Vic,
I am currently running the code you suggest. It still does nto work properly. I used the debug to check the numbers and conditions are being met, but the update is not happening under the right conditions.
Also, there is a difference in the update strings. Notice: Arrival_Verification =...
Did not work. Syntax error - Missing Operand!
One thing that might be causing problems: My actual code reads:
=DCount("[Tee_Shirt_Size]", "tbl_Attendants", "[Tee_Shirt_Size] = 'L'" AND [Parish_Group_ID] = " & [Parish_Group_ID])
How does it know that I want...
I am sure this is a simple question...
I am trying to use the MS code for a autolookup drop down on a tect box and button. I am using the following code:
Private Sub Command67_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Last_Name] = " &...
See, that's the problem. It never evaluates to false! Is it the After_Update event that is the problem? I tried the on_click, but that did not work either. (The triple property is false.) *************
M. MARNEY
www.tgw.com
I am running this code on the after_update event of the check box which is named Parish_Group_Arrival and is bound to the same name. *************
M. MARNEY
www.tgw.com
Paul,
That did not work. I have tried TRUE as well
here is the code...
If Me!Parish_Group_Arrival = -1 Then
DoCmd.RunSQL "String Here (Works)"
Else
DoCmd.RunSQL "String Here (Works)"
End If
Ideas? *************
M. MARNEY
www.tgw.com
Randy,
Ok, re-read your post and say the answer to my last. Sorry. The code you provided was invalid. I assumed the double-quote after L' was misplaced.
Still having trouble though...
=DCount("[Tee_Shirt_Size]","tbl_Attendants","[Tee_Shirt_Size] = 'L' AND...
The following code always comes out TRUE.
If Me!Parish_Group_Arrival.Value Then
DoCmd.RunSQL "UPDATE tbl_attendants SET Arrival_Verification = TRUE WHERE Parish_Group_Arrival = TRUE AND Parish_Group_ID =...
Randy,
Thank you for the code.
I need to add another field to the where clause though.
Basically...
"[Tee_Shirt_Size] = 'L' AND [Group_ID] = '&[Current_Group_ID]'"
Will this work? *************
M. MARNEY
www.tgw.com
I know I have posted this before, but am having trouble getting a good answer.
Here is the current code:
It works great in a form, but not in a report.
Dim rs As Object
Set rs = CurrentDb.OpenRecordset("Select * from tbl_Attendants Where Tee_Shirt_Size = 'L'")
rs.MoveLast...
I know I have posted this before, but am having trouble getting a good answer.
Here is the current code:
It works great in a form, but not in a report.
Dim rs As Object
Set rs = CurrentDb.OpenRecordset("Select * from tbl_Attendants Where Tee_Shirt_Size = 'L'")
rs.MoveLast...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.