vba - Access crashed when I set a subform recordset to an ADODB recordset -
so i'm working on proof of concept app going search ad phonebook. can details selected user , can populate combo box users pulled active directory. when created form , added subform display results of ldap query, access goes kaboom! below code i'm using , i'll upload access file , post link...
dim objroot variant set objroot = getobject("ldap://rootdse") dim ldapdomainname string ldapdomainname = objroot.get("defaultnamingcontext") dim cn variant set cn = createobject("adodb.connection") cn.open "provider=adsdsoobject;" dim cmd variant set cmd = createobject("adodb.command") cmd.activeconnection = cn dim rs variant 'adodb.recordset set rs = createobject("adodb.recordset") dim selectedfields string selectedfields = "employeeid, displayname, mail, telephonenumber, mobile" dim whereclause string whereclause = " objectcategory='user' , mail = '*@*'" if not isnull(forms![activedirectorysearch]![txtgivenname]) whereclause = whereclause & " , givenname = '" & forms![activedirectorysearch]![txtgivenname] & "'" end if if not isnull(forms![activedirectorysearch]![txtsn]) whereclause = whereclause & " , sn = '" & forms![activedirectorysearch]![txtsn] & "'" end if if not isnull(forms![activedirectorysearch]![cbxtitle]) whereclause = whereclause & " , title = '" & forms![activedirectorysearch]![cbxtitle] & "'" end if if not isnull(forms![activedirectorysearch]![cbxdepartment]) whereclause = whereclause & " , department = '" & forms![activedirectorysearch]![cbxdepartment] & "'" end if dim selectldap string selectldap = "select " & selectedfields & " 'ldap://" & ldapdomainname & "' " & whereclause & " order sn, givenname, cn" cmd.commandtext = selectldap set rs = cmd.execute set me.recordset = rs
Comments
Post a Comment