submit the data entered in textbox to a table column

[abhay_547]

Hi All,

I have sharepoint linked table table name "table1" in my access database and a form .i.e. form1 which has one combobox, one datepicker and one textbox which are linked to that sharepoint table in the following way, the combobox is linked to table column which is product column so the combobox gets populated with product names and for datepicker and textbox I have used a dlookup which populates datepicker with date of the commentary for the selected product and textbox with the commentary entered by product guy against selected product. Now I have command button which is "Submit commentary" on the form1. I want to give product guys this access form as an commentary input tool so that they don't need to go to the sharepoint link. They can straight away open the access form. Select their product in combobox and submit the commentary. Now I want to put some code in the background of the command button .i.e. submit commentary which will save back the commentary and the date selected in the datepicker by product guy against the product selected by him combobox to the sharepoint table which is a linked table in access. Note: the commentary is collected from products on daily basis so the whatever was entered by them yesterday will get populated today in the form1 so they just need to modify the same for today. Please help.

Thanks for your help in advance.

 

[abhay_547]

Hi All,

Did anyone get the chance to look into the above thread.

Thanks a lot for your help in advance

 

[abhay_547]

Hi All,

As mentioned earlier I just want input some code in the background of the submit command button on my form which will save back the commentary updated in textbox and the date selected in the datepicker by product guy against the product selected by him in combobox to the data table in access. Below is the code which I have so far. Please help.

Private Sub Combo2_AfterUpdate()
Me.DTPicker1.Value = DLookup("[Data As Of Date]", "[Commentary Table]", "[Product] = '" & Me.Combo2 & "'")
Me.Text15 = DLookup("[Commentary]", "[Commentary Table]", "[Product] = '" & Me.Combo2 & "'")
End Sub

Private Sub Command17_Click()
DLookup("[Commentary]", "[Commentary Table]", "[Product] = '" & Me.Combo2 & "'") = Me.Text15.Value
DLookup("[Data As Of Date]", "[Commentary Table]", "[Product] = '" & Me.Combo2 & "'") = Me.DTPicker1.Value

Thanks a lot for your help in advance