Try changing Dim MyDB as Database to Dim MyDB as DAO.Database
This may help
Liveson
----- Original Message -----
From: "jezmo_codpiece" <[EMAIL PROTECTED]>
To: <AccessDevelopers@yahoogroups.com>
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/
