Re: Cant finish the code!

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Jeff (JeffKlein_at_Associatedoffices.com)
Date: 08/26/04


Date: Wed, 25 Aug 2004 23:35:13 -0500

Duane,
Thanks for the reply...this is exactly what I was looking for. Thank you.
Works perfectly!

"Duane Hookom" <duanehookom@NO_SPAMhotmail.com> wrote in message
news:#VyyL3xiEHA.636@TK2MSFTNGP12.phx.gbl...
> 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 Hookom
> MS Access MVP
>
>
> "Jeff" <JeffKlein@Associatedoffices.com> wrote in message
> news:eEiSuzxiEHA.644@tk2msftngp13.phx.gbl...
> > 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));"
> >
> >
>
>


Quantcast