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
<*> 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/
