If statement problem

[tizwaz]

Can anyone help

I can't see what I'm doing wrong here but I keep getting a compile error saying Else without if

Private Sub DateIssued_AfterUpdate()

If IsNull(Me.DateIssued) Then Forms!frmPassReissue.AvailableToIssue.Value = "-1"

Else: Forms!frmPassReissue.AvailableToIssue.Value = "0"
End If

End Sub

 

[Remou]

You seem to be mixing two different formats.

Private Sub DateIssued_AfterUpdate()

If IsNull(Me.DateIssued) Then
    Forms!frmPassReissue.AvailableToIssue.Value = "-1"
Else
    Forms!frmPassReissue.AvailableToIssue.Value = "0"
End If

End Sub

http://lessthandot.com

 

[Remou]

... Or much better:


[tt]Forms!frmPassReissue.AvailableToIssue=IsNull(Me.DateIssued)[/tt]

I very much doubt that you mean text ("-1","0") for true and false (-1,0)

http://lessthandot.com

 

[tizwaz]

sorry I'm confused.

What I'm trying to do is change the checkbox 'AvailableToIssue' so that if I have added a date to the dateissued field the checkbox becomes clear and if I remove a date from the dateissued field the 'AvailableToIssue' checkbox is checked.

the AvailableToIssue box is on a different form

 

[Remou]

This line:

[tt]Forms!frmPassReissue.AvailableToIssue=IsNull(Me.DateIssued)[/tt]

Should do that.

[tt]IsNull(Me.DateIssued)[/tt]

Evaluates to True if no date has been filled in, so you get:

[tt]Forms!frmPassReissue.AvailableToIssue=True[/tt]

You will need to use a suitable event(s), the Current event for the form with DateIssued, and the After Update event for DateIssued.

http://lessthandot.com