[vbhelp] Need help with VB Code

rxmuzzy Tue, 07 Jun 2005 12:23:58 -0700

I am creating a vb application in MS Outlook 2000 that is taking 
Custom User Defined fields on a form that when a user presses submit 
it copies the data over to a SQL/Access DB to warehouse the data.. 
below is my code..


Sub Submit_Click()

Dim objConnection
Dim objRecordset
Dim strSQL

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Mode = 3
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data 
Source=C:\Documents and Settings\muzzy\My Documents\test.mdb"
'strSQL = "SELECT * FROM tblData"
'Set objRecordset = CreateObject("ADODB.Recordset")
'objRecordset.Open strSQL
'Set objRecordset = objConnection.Execute(strSQL)
'objRecordset.AddNew





strSQL = " INSERT INTO tblData VALUES("

strSQL = strSQL & "'" & objItem.UserProperties("AccountName") & "',"
strSQL = strSQL & "'" & Item.UserProperties("DepartmentShow") & "',"
strSQL = strSQL & "'" & Item.UserProperties("Position") & "',"
strSQL = strSQL & "'" & Item.UserProperties("ETStaff") & "',"
strSQL = strSQL & "'" & Item.UserProperties("ETFL") & "',"
strSQL = strSQL & "'" & Item.UserProperties("ETI") & "',"
strSQL = strSQL & "'" & Item.UserProperties("ETTC") & "',"
strSQL = strSQL & "'" & Item.UserProperties("NetworkAcctTxtBx") & "',"
strSQL = strSQL & "'" & Item.UserProperties("AvstarAcctTxtBx") & "',"
strSQL = strSQL & "'" & Item.UserProperties("InternetAccessTxtBx") 
& "',"
strSQL = strSQL & "'" & Item.UserProperties("OtherSoftwareChkBx") 
& "',"
strSQL = strSQL & "'" & Item.UserProperties("OtherSoftwareTxtBx") 
& "',"
strSQL = strSQL & "'" & Item.UserProperties("AvstarGrpChkBx") & "',"
strSQL = strSQL & "'" & Item.UserProperties("AvstarGrpTxtBx") & "',"
strSQL = strSQL & "'" & Item.UserProperties("eMailDistGrps") & "',"
strSQL = strSQL & "'" & Item.UserProperties("NetworkGroupsTxtBx") 
& "',"
strSQL = strSQL & "'" & Item.UserProperties("SuperName") & "',"
strSQL = strSQL & "'" & Item.UserProperties("SuperPhoneNum") & "',"
strSQL = strSQL & "'" & Item.UserProperties("HRApprovalName") & "',"
strSQL = strSQL & "'" & Item.UserProperties("AccountCreatedBy") & "',"
strSQL = strSQL & "'" & Item.UserProperties("NetAccountLogon") & "',"
strSQL = strSQL & "'" & Item.UserProperties("TempPW") & "',"
strSQL = strSQL & "'" & Item.UserProperties("DeptShareDrv") & "',"
strSQL = strSQL & "'" & Item.UserProperties("eMailAddress") & "',"
strSQL = strSQL & "'" & Item.UserProperties("OtherSoftwareLO") & "',"
strSQL = strSQL & "'" & Item.UserProperties("AvstarAcctLO") & "')"
objConnection.Execute sSQL



    'Main Fields
    'objRecordset.Fields("AccountName") = Item.UserProperties
("AccountName")
    'objRecordset.Fields("DepartmentShow") = Item.UserProperties
("DepartmentShow")
    'objRecordset.Fields("Position") = Item.UserProperties("Position")
    
    'Employee Type Field Box
    'objRecordset.Fields("ETStaff") = Item.UserProperties("ETStaff")
    'objRecordset.Fields("ETFL") = Item.UserProperties("ETFL")
    'objRecordset.Fields("ETI") = Item.UserProperties("ETI")
    'objRecordset.Fields("ETTC") = Item.UserProperties("ETTC")
    
    'Account Type
    'objRecordset.Fields("NetworkAcctTxtBx") = Item.UserProperties
("NetworkAcctTxtBx")
    'objRecordset.Fields("AvstarAcctTxtBx") = Item.UserProperties
("AvstarAcctTxtBx")
    'objRecordset.Fields("InternetAccessTxtBx") = Item.UserProperties
("InternetAccessTxtBx")
    'objRecordset.Fields("OtherSoftwareChkBx") = Item.UserProperties
("OtherSoftwareChkBx")
    'objRecordset.Fields("OtherSoftwareTxtBx") = Item.UserProperties
("OtherSoftwareTxtBx")
    'objRecordset.Fields("AvstarGrpChkBx") = Item.UserProperties
("AvstarGrpChkBx")
    'objRecordset.Fields("AvstarGrpTxtBx") = Item.UserProperties
("AvstarGrpTxtBx")
    'objRecordset.Fields("eMailDistGrps") = Item.UserProperties
("eMailDistGrps")
    'objRecordset.Fields("NetworkGrpsTxtBx") = Item.UserProperties
("NetworkGrpsTxtBx")


    'objRecordset.Fields("SuperName") = Item.UserProperties
("SuperName")
    'objRecordset.Fields("SuperPhoneNum") = Item.UserProperties
("SuperPhoneNum")

    'HR
    'objRecordset.Fields("HRApprovalName") = Item.UserProperties
("HRApprovalName")

    'IS Department
    
'    objRecordset.Fields("AccountCreatedBy") = Item.UserProperties
("AccountCreatedBy")
'    objRecordset.Fields("NetAccountLogon") = Item.UserProperties
("NetAccountLogon")
'    objRecordset.Fields("TempPW") = Item.UserProperties("TempPW")
'    objRecordset.Fields("DeptShareDrv") = Item.UserProperties
("DeptShareDrv")
'    objRecordset.Fields("eMailAddress") = Item.UserProperties
("eMailAddress")
'    objRecordset.Fields("OtherSoftwareLO") = Item.UserProperties
("OtherSoftwareLO")
'    objRecordset.Fields("AvstarAcctLO") = Item.UserProperties
("AvstarAcctLO")
'
'    objRecordset.Update
'    objRecordset.Close
    objConnection.Close
'    Set objRecordset = Nothing
    Set objConnection = Nothing

End Sub

however i cannot figure out how to create the custom field/form 
property. The name of the field is AccountName, ect when i look at 
properties i cannot figure out why the data is not sending out to the 
db.. Can anyone help
    







'// =======================================================
    Rules : http://ReliableAnswers.com/List/Rules.asp
    Home  : http://groups.yahoo.com/group/vbHelp/
    =======================================================
    Post  : [email protected]
    Join  : [EMAIL PROTECTED]
    Leave : [EMAIL PROTECTED]
'// =======================================================
 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/vbhelp/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/

[vbhelp] Need help with VB Code

Reply via email to