Ok, Im using the datepicker control to validate the date but I want to add the value the user chooses to an Access table I've created. I'm using the ADODB.Recordset to add the values of the other controls on the form
to the table (these controls are all combo boxes).How can I alter the following code to add the date as chosen from the datepicker?
Dim adoconnection As ADODB.Connection
Set adoconnection = New ADODB.Connection
adoconnection.Open ("Provider=Microsoft.jet.oledb.4.0;" & "Data Source =H:\AssetTracking.mdb"
Set rs1 = New ADODB.Recordset
rs1.Open "select * from Licenses_Owned ", adoconnection, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1!LicenseOwnedID = TxtLicOwn.Text
rs1!ProductID = CboProduct.Text
rs1!Department = CboDept.Text
rs1!VendorID = CboVendor.Text
rs1!Location = CboLocation.Text
rs1!LicensesPurchasedpre201 = CboLPurch.Text
rs1!LicensesConvertedon201 = CboLConvert.Text
rs1!LicensesObtainedon201 = CboLObtain.Text
rs1!LicensesObtainedPost201 = CboLPost.Text
rs1!AcquisitionConversionDate = CboAcquisition.Text
rs1!ForUseWithBy = CboForUse.Text
rs1!SupportLevel = CboSupport.Text
rs1!AgreementNumber = CboAgreement.Text
rs1.Update
rs1.Close
Set r1s = Nothing
Thanks a million
to the table (these controls are all combo boxes).How can I alter the following code to add the date as chosen from the datepicker?
Dim adoconnection As ADODB.Connection
Set adoconnection = New ADODB.Connection
adoconnection.Open ("Provider=Microsoft.jet.oledb.4.0;" & "Data Source =H:\AssetTracking.mdb"
Set rs1 = New ADODB.Recordset
rs1.Open "select * from Licenses_Owned ", adoconnection, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1!LicenseOwnedID = TxtLicOwn.Text
rs1!ProductID = CboProduct.Text
rs1!Department = CboDept.Text
rs1!VendorID = CboVendor.Text
rs1!Location = CboLocation.Text
rs1!LicensesPurchasedpre201 = CboLPurch.Text
rs1!LicensesConvertedon201 = CboLConvert.Text
rs1!LicensesObtainedon201 = CboLObtain.Text
rs1!LicensesObtainedPost201 = CboLPost.Text
rs1!AcquisitionConversionDate = CboAcquisition.Text
rs1!ForUseWithBy = CboForUse.Text
rs1!SupportLevel = CboSupport.Text
rs1!AgreementNumber = CboAgreement.Text
rs1.Update
rs1.Close
Set r1s = Nothing
Thanks a million