Hi Liveson, no that did not make any diffeence. Thanks anyway.
--- In [email protected], "L Tumbulu" <[EMAIL PROTECTED]> wrote: > Try changing Dim MyDB as Database to Dim MyDB as DAO.Database > > This may help > > Liveson > > ----- Original Message ----- > From: "jezmo_codpiece" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Wednesday, July 13, 2005 6:18 PM > Subject: [AccessDevelopers] Can you check this code please > > > >I am using the value from a textbox (txtDeliveryAddressID) on the > > form (frmQuote) as a criteria for the query > > qryDeliveryAddressForQuote, so that the query returns the relevant > > address for the record selected on the form. This works fine, if I > > run the query manually I get the correct address. What I want to do > > then is poke the rest of the address fields in to the fields on the > > form, but I cannot get this to work. Essentially I have said that > > when txtDeliveryAddressID changes, run the following code. I have > > only put the city field in so far to test it, but it does t work and > > I cannot see why. Can anybody help please? > > > > Private Sub txtDeliveryAddressID_Change() > > On Error GoTo Err_txtDeliveryAddressID_Change > > > > Dim MyDB As Database > > Dim Myrec As DAO.Recordset > > > > Dim MyQuery As String > > > > Set MyDB = CurrentDb > > Set MyQuery = "qryDeliveryAddressForQuote" > > Set Myrec = MyDB.OpenRecordset(MyQuery, dbOpenSnapshot) > > > > > > Myrec.MoveFirst > > > > Set Forms!frmQuote!txtDeliveryCity = Myrec!DeliveryCity > > > > > > Myrec.Close > > MyDB.Close > > > > > > Exit_txtDeliveryAddressID_Change: > > Exit Sub > > > > Err_txtDeliveryAddressID_Change: > > MsgBox Err.Description > > Resume Exit_txtDeliveryAddressID_Change > > > > End Sub > > > > > > > > > > > > Please zip all files prior to uploading to Files section. > > Yahoo! Groups Links > > > > > > > > > > > > Please zip all files prior to uploading to Files section. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AccessDevelopers/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
