|
Jezmo previously said:
"Hi, how do I post the DB to the help folder? Thanks"
To upload the file:
First remove any irrelevant or private data (if
any)
Zip the file
Click on Add File
Browse for your zipped file and Upload
File
HTH,
Toby
----- Original Message -----
Sent: Wednesday, July 13, 2005 9:44
AM
Subject: RE: [AccessDevelopers] Re: Can
you check this code please
Upload your file.
Tom Oakes
Personal PC Consultants, Inc.
[EMAIL PROTECTED]
503.230.0911 (O)
402.968.6946 (C)
713.583.7091 (F)
Hi Tom, have tried it as you have suggested, but still no joy!
I am
rapidly losing what hair I have at the moment. Thanks for your
suggestion.
--- In [email protected], "Tom
Oakes" <[EMAIL PROTECTED]>
wrote:
> I would remove the parameter from
the query and do it in code.
Placing
> hard-coded parameters
in your queries greatly limits their use.
>
>
> Private Sub txtDeliveryAddressID_Change()
> On Error GoTo
Err_txtDeliveryAddressID_Change
>
> Dim MyDB As
DAO.Database
> Dim Myrec As
DAO.Recordset
> Dim MyQuery As
String
> Dim strSQL As String
>
> strSQL = "SELECT * FROM
qryDeliveryAddressForQuote WHERE
> DeliveryAddressID=" &
Me.txtDeliveryAddressID
>
> Set MyDB =
CurrentDb
> Set MyQuery =
"qryDeliveryAddressForQuote"
> Set Myrec =
MyDB.OpenRecordset(strSQL, dbOpenForwardOnly) '<--
> forward-only
should be faster
>
> 'Myrec.MoveFirst '<-- don't need this
>
> If Not
Myrec.EOF then
>
Forms!frmQuote!txtDeliveryCity =
Myrec!DeliveryCity
>
Else
> Msgbox "Record
not found."
> End
If
>
>
Myrec.Close
>
MyDB.Close
>
>
Exit_txtDeliveryAddressID_Change:
> Exit
Sub
> Err_txtDeliveryAddressID_Change:
>
MsgBox Err.Description
> Resume
Exit_txtDeliveryAddressID_Change
> End Sub
>
>
> Tom Oakes
> Personal PC Consultants, Inc.
> [EMAIL PROTECTED]
> 503.230.0911 (O)
> 402.968.6946 (C)
> 713.583.7091 (F)
>
>
>
>
> _____
>
> From: [email protected]
>
[mailto:[EMAIL PROTECTED] On Behalf Of
jezmo_codpiece
> Sent: Wednesday, July 13, 2005 9:19 AM
> To:
[email protected]
> 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
>
>
>
>
* Visit your group "AccessDevelopers
>
<http://groups.yahoo.com/group/AccessDevelopers>
" on the web.
>
>
>
* To unsubscribe from this group, send an email
to:
> [EMAIL PROTECTED]
>
<mailto:[EMAIL PROTECTED]
subject=Unsubscribe>
>
>
> * Your
use of Yahoo! Groups is subject to the Yahoo! Terms of
Service
>
<http://docs.yahoo.com/info/terms/>
.
>
>
>
_____
Please zip all files prior to uploading
to Files section.
Please zip
all files prior to uploading to Files section.
Please zip all files prior to uploading to Files section.
YAHOO! GROUPS LINKS
|
