VB Yes No 2

[EasyOnly]

Hi All,

I am not sure What is missing in the below codes if I need the following. If someone choose Pending, the below happens. if someone choose anything else, nothing happens.If we change the status from pending to complete. the value in book does not change....Any help.....?



Private Sub_AfterUpdate()
If Me!Status = "Pending" Then
MsgBox("blah blah blah.........?", vbYesNo) = vbYes Then
Me.Book= "Yes"
Else
Me.Book= "No"
End If
End If

End Sub


Thanks

 

[Remou]

The code will only run if status = "Pending", because Me.Book= "No" is inside the message box If statement. Indenting code helps to show up this kind of thing.

Private Sub_AfterUpdate()
    If Me!Status = "Pending" Then
        MsgBox("blah blah blah.........?", vbYesNo) = vbYes Then
           Me.Book= "Yes"
        End If

        Me.Book= "No"
    End If   
End Sub

PS Please use the [ignore]

[/ignore] tags.

http://lessthandot.com

 

[EasyOnly]

It is given me Compile error. syntex error. Something is missing....

 

[PHV]

Something is missing
Probably an If instruction ...

 

[Remou]

Probably an If instruction ...

Er, yes, that could be it

http://lessthandot.com

 

[randy700]

If Me!Status = "Pending" Then
    [COLOR=red][b]If[/b][/color] MsgBox("blah blah blah.........?", vbYesNo) = vbYes Then
        Me.Book= "Yes"
    Else
        Me.Book= "No"
    End If
End If

Randy