Add to my Command Button

[Bob]

--
I have already this on my command button is it possible to extend it by
adding this to it:

Private Sub Command220_Click()
Me!tbStartDate1 = DateSerial(Year(Date), Month(Date), 1)
Me!tbEndDate1 = DateSerial(Year(Date), Month(Date) + 1, 0)
tbEndDate1.SetFocus
tbEndDate1_LostFocus
End Sub

I would like to add to this script:

cbDailyCharge1 = tbSetUp,DailyCharge
tbDailyChargeRate1 = tbSetup,DailyRate
tbAdditionalCharge = tbSetUp,AddCharge
tbAdditionalChargeRate = tbSetUp,AddRate

Thanks for any help with this script...................Bob

 

[Douglas J. Steele]

Assuming that by "tbSetUp,DailyCharge", you mean you want the value of the
field DailyCharge in table tbSetUp, you can use the DLookup function.