coding problem

[Guest]

is it possible to write code so that when you press a button on a form it
ticks a box and adds a date to a query

i came up with this: -

Private Sub Invoice_Click()
On Error GoTo Err_Command51_Click

Dim stDocName As String

stDocName = "Due to be invoced"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command51_Click:
Exit Sub



Me.[Invoice Raised] = 1
Me.[Invoice Date] = Date

Exit_Welcome_Letter_Click:
Exit Sub
Err_Command51_Click:
MsgBox Err.Description
Resume Exit_Command51_Click

End Sub

it runs and displays the query but does nothing with the tick box and date
fields, i am not very good at coding and may have made a mistake

Thanks

Phil

 

[Ruskin Hardie]

You almost have it correct, but you have an 'Exit Sub' before the setting of
the 'Invoice Raised' and 'Invoice Date' fields. You may want to move the
setting of the invoice raised and date fields, to before the
Err_Command51_Click line.

 

[Ruskin Hardie]

Sorry, meant to say, move the invoice raised and date fields to before the
EXIT_Command51_Click line...

You almost have it correct, but you have an 'Exit Sub' before the setting of
the 'Invoice Raised' and 'Invoice Date' fields. You may want to move the
setting of the invoice raised and date fields, to before the
Err_Command51_Click line.

is it possible to write code so that when you press a button on a form it
ticks a box and adds a date to a query

i came up with this: -

Private Sub Invoice_Click()
On Error GoTo Err_Command51_Click

Dim stDocName As String

stDocName = "Due to be invoced"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command51_Click:
Exit Sub



Me.[Invoice Raised] = 1
Me.[Invoice Date] = Date

Exit_Welcome_Letter_Click:
Exit Sub
Err_Command51_Click:
MsgBox Err.Description
Resume Exit_Command51_Click

End Sub

it runs and displays the query but does nothing with the tick box and date
fields, i am not very good at coding and may have made a mistake

Thanks

Phil

 

[Guest]

thanks for your reply. that only changes the current record in the form
that i press the button from is there anyway to change all the records that
match the query criteria

thanks

Phil

Sorry, meant to say, move the invoice raised and date fields to before the
EXIT_Command51_Click line...

You almost have it correct, but you have an 'Exit Sub' before the setting of
the 'Invoice Raised' and 'Invoice Date' fields. You may want to move the
setting of the invoice raised and date fields, to before the
Err_Command51_Click line.

is it possible to write code so that when you press a button on a form it
ticks a box and adds a date to a query

i came up with this: -

Private Sub Invoice_Click()
On Error GoTo Err_Command51_Click

Dim stDocName As String

stDocName = "Due to be invoced"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command51_Click:
Exit Sub



Me.[Invoice Raised] = 1
Me.[Invoice Date] = Date

Exit_Welcome_Letter_Click:
Exit Sub
Err_Command51_Click:
MsgBox Err.Description
Resume Exit_Command51_Click

End Sub

it runs and displays the query but does nothing with the tick box and date
fields, i am not very good at coding and may have made a mistake

Thanks

Phil