Hey gurus!
This works only if a record exists in the Contracts table where the Listing_ID equals the ID of a record in the Listings table:
Private Sub Command44_Click()
Dim sWHERE As String
sWHERE = "Contracts.Listing_ID = " &[Listings.ID].Value
DoCmd.OpenForm "Contract_Info"...
OK, In my "Listings" table, I have a checkbox [Lot_Selected] which I want to be checked in all records if the checkbox on the form [Check124] matches the value of a checkbox [Garage] in table "Houses". (This is all executed on the click of Command120)
The "Listings" table and "Houses" table...
Spelling all looks to be good.
Does it matter that [Garage] is in the "Houses" table?
The tables are joined in the form with the button executing the command, does it have to be joined in the sql statement too?
RT Error 3061
Too few parameters. Expected 1
Dim strSQL As String
strSQL = "Update Listings Set [Lot_Selected] = -1 Where [Garage] = " & Me.Check124
CurrentDb.Execute strSQL, dbFailOnError
Thanks, guys!
Too bad there isn't a Paypal donation button for me to drop 99cents everytime someone gives me a working line of code! Totally worth it!
-Dave
OK, forget the new form.
Private Sub Command120_Click()
UPDATE[Listings] SET [Lot_Selected] = 1
End Sub
Can you type up a sample of what you mean that I can work with? This is my first DB.
Private Sub Command120_Click()
UPDATE[Listings] SET [Lot_Selected] = 1
DoCmd.OpenForm "Market_Review_Report", acNormal, , sWHERE
End Sub
Nope!
Gah!
-Dave