Cant finish the code!

  • Thread starter Thread starter Jeff
  • Start date Start date
J

Jeff

Below is code that exists in a command button. How do I complete this code
to edit the record it finds and replace the StartDate with
txb_StartDate.value?

Dim dbs As Database
Dim strSQL As String

Set dbs = CurrentDb
strSQL = "SELECT Meetings.MeetingID FROM Meetings WHERE
(((Meetings.MeetingID)=txb_ParentMeetingID.value));"
 
Dim dbs As DAO.Database
Dim strSQL as String
strSQL = "UPDATE Meetings SET StartDate = #" & _
Format(Me.txb_StartDate,"mm/dd/yyyy") & "# " & _
"WHERE MeetingID = " & Me.txb_ParentMeetingID
Set dbs = CurrentDb
dbs.Execute strSQL, dbFailOnError
 
Duane,
Thanks for the reply...this is exactly what I was looking for. Thank you.
Works perfectly!
 
Back
Top