yes/no button behaviour

[edgarchado]

I have found another way to do this which I fond more easy to use by the
users. I am using a search form which filters the records by date and
depending on the date it will let me edit the record or not.

By the way, I want to put a yes/no button which will let me display a
message box before puting its status to ok.

Up till now I have this code in the on click event,

Private Sub Anulado_Click()
Beep
If MsgBox("Está seguro que quiere anular el pedido N°" & Me.N°_de_Pedido &
"?", vbQuestion + vbYesNo, "Anular el pedido?") = vbYes Then
End If
End Sub

What I am missing is the THEN section. I dont know what to put so it sets
the value of the yes/no option to yes if the users press enter on the
message box or leave it blank, I they cancel the action.

 

[PHV]

the value of the yes/no option
Which option ? A checkbox ? An option group ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[edgarchado]

PHV,

You are right, I forgot to clarify. It is a checkbox.

Thanks

 

[PHV]

Something like this ?
Me![checkbox control] = True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[edgarchado]

Phv,

What if I would like to set the value of the yes/no option through an unbound command button.

The idea is for the user to click on a command button which will set the value yes in the table where is this yes/no field.

This command button will have assigned the code you helped me to fix. This way the user will need to confirm the action through a message box.

Thanks, and I hope I am clear enough.

 

[edgarchado]

PHV,

The problem is that I don´t know how to modify the part you posted before (Me![checkbox control] = True), so it works with the unbound command button.

If it helps, I can make it bound through a query. What would be easier?

 

[Eupher]

edgarchado,

Put the code (without the parentheses) in the button's Click event.

Ken S.

 

[TheAceMan1]

How are ya edgarchado . . . . .

For the [purple]Command Button[/purple]:

[blue]Private Sub Anulado_Click()
   Dim Msg As String, Style As String, Title As String

   Msg = "Está seguro que quiere anular el pedido N°" & Me.N°_de_Pedido & "?"
   Style = vbQuestion + vbYesNo
   Title = "Anular el pedido?"
   Beep
   
   If MsgBox(Msg, Style, Title) = vbYes Then
      Me![checkbox control] = True
   Else
      Me![checkbox control] = False
   End If

End Sub[/blue]

See Ya! . . . . . .

 

[edgarchado]

AceMan,

It works just as I imaginied it should have. Thanks.

One question though. Is there a way to not use the "Me![checkbox control]" in the and reference it directly to the table?

For example (I know it is not correct) tblPedido.Anulado = True.

I don´t want to have the checkbox in the form, I want to have the event of the command button add the yes or no value to the field in the table

 

[Eupher]

edgarchado,

If the form is bound to the table, all the fields in the table are exposed in the form's recordset, even if you haven't placed a corresponding field onto the form - so you don't actually have to put the field on your form in order to be able to refer to it with the Me![fieldname] syntax.

Ken S.

 

[edgarchado]

Eupher,

Thanks, I didn´t realize this. Thank you.