ACCESS FEED: Re: RE: [MS_AccessPros] Run an append query automatically

Sabtu, 31 Oktober 2015

Re: RE: [MS_AccessPros] Run an append query automatically

Duane,

You are right. Actually I am ashamed of myself for not knowing how to use debug.print... I am going to learn it today. Thanks a lot for your suggestion.

Best Regards,

Kevin

Regards,

Kevin Zhao

From: Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]
Date: 2015-10-31 22:04
To: Access Professionals Yahoo Group
Subject: RE: [MS_AccessPros] Run an append query automatically

Kevin,
What did you see in the debug window after altering the code?

You should really do yourself a favor and learn how to debug your code using debug.print and breakpoints. It's surprising how you can find your mistakes when doing what many of us have been doing for decades. I probably make as many mistakes as you (or more) but I catch them early and move on.

Duane Hookom, MVP
MS Access

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Sat, 31 Oct 2015 09:19:37 +0800
Subject: Re:RE: [MS_AccessPros] Run an append query automatically

Duane-

After runing the code, no error appears, and there's no record appended either.

Best Regards,

Kevin

在 "Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2015年10月31日上午9:02写道：

Two suggestions:
Don't state "it didn't work" without some statement of what your results were. Did you get an error? Were there no records added? Did record get added but they weren't as expected?

Add a debug.print to your code so you can easily see what SQL is being run. I rarely if ever Execute until I have used:

Debug.Print strSQL
' uncomment the next line once you have reviewed the strSQL
' CurrentDb.Execute strSQL, dbFailOnError

Duane Hookom, MVP
MS Access

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Sat, 31 Oct 2015 08:06:31 +0800
Subject: Re: [MS_AccessPros] Run an append query automatically

By the way, I did something like this, it didn't work out. What's wrong with my code? Thanks.

Dim strSQL As String

If IsNull(ELookup("PartItineraryCityTourBookingRoomID", "tblPartItineraryCityTourBookingRoom", "PartItineraryCityTourID=" & PartItineraryCityTourID)) Then

strSQL = "INSERT INTO tblPartItineraryCityTourBookingRoom (RoomTypeID, NumberOfRooms,)" & _
"SELECT tblGroupBookingRoom.RoomTypeID, tblGroupBookingRoom.NumberOfRooms" & _
"FROM tblGroupBookingRoom WHERE GroupBookingID=Me.Parent.GroupBookingID" & "," & PartItineraryCityTourID

CurrentDb.Execute strSQL, dbFailOnError

End If

Regards,
Kevin Zhao

From: 'zhaoliqingoffice@163.com' zhaoliqingoffice@163.com [MS_Access_Professionals]
Date: 2015-10-31 06:57
To: MS_Access_Professionals
Subject: [MS_AccessPros] Run an append query automatically

Dear All,
Is that possible to click on a command button run an append query automatically without pop up windows. For example:

source table: tblBooking
BookingID Roomtype NumberOfRooms

Destination table: tblCityRoomBooking
CityRoomBookingID CityTourID RoomType NumberOfRooms

By cliecking on a command button on the frmCityTour, I want to append "RoomType, NumberOfRoom" into tblCityRoomBooking, and I hope the "CityTourID" will be filled according to "CityTourID" from frmCityTour.

Can this be done? Thanks.
Best Regards,
Kevin

Regards,
Kevin Zhao