Newbie Questions

Re: Submitting to Access and using the ADSysInfo Data

gricks — Thu, 18 May 2006 20:23:54 GMT

That did it - thanks!

Re: Submitting to Access and using the ADSysInfo Data

shailaja — Thu, 18 May 2006 14:06:48 GMT

Hello,
To add or create text boxes to data source Right click on myFields, click on Add and give the field name. Text field will be added to data source which is not related to any field in Access data base.

Hope this helps!

Re: Submitting to Access and using the ADSysInfo Data

gricks — Tue, 16 May 2006 18:11:09 GMT

My real question is this - once you create a connection that will submit to an Access database, how do you create text boxes that are not connected to that data source?

The data that I get from the ADSysInfo could be brought into that text box -

Am I missing something?

Thanks.

Submitting to Access and using the ADSysInfo Data

gricks — Tue, 16 May 2006 15:30:12 GMT

I have the code at the bottom working well with a new form - it is bringing in user email and name perfectly.

My question is this - how can I combine this code with a form that submits to a MS Access database?

I cannot figure out how to put this code into a form that is submitting to Access.

I also tried the other way around - I cannot figure out how to start with this code, and then add in the submitting to Access.

First post here - hopefully I asked the right question!

Thanks.

Sub XDocument_OnLoad(eventObj)
Dim objUser
Set objUser = XDocument.DOM.selectSingleNode("//my:Name")

If objUser.Text = "" Then
Dim objPhone, objEmail, objEmpID

Set objEmail = XDocument.DOM.selectSingleNode("//my:Email")

Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUsr = GetObject("LDAP://" + objADSysInfo.UserName)

objUser.Text = Replace(objUsr.Get("cn"), "&", "+")
objEmail.Text = objUsr.Get("mail")

Set objADSysInfo = null
Set objUsr = null
End If
End Sub