Code stopped working

[mdjks]

The code below worked fine yesterday, today the form just opens either way. Any idea what could change overnight?



Private Sub cmdEnterData_Click()

'If Me!Hospital = Null Then 'I tried this too.
If Me.Hospital = "" Then
Beep
MsgBox "Select Hospital Abbreviation", vbOKOnly, "Hospital Abbreviation "

Else
DoCmd.SetWarnings False

DoCmd.OpenQuery "qUpdateIndex"
Dim stlinkcriteria As String
Dim db As Database
Dim fld As Field

stDocName = "fMonthlyHospitalDataEntry"

stlinkcriteria = "[Index]=" & "'" & Me![Index] & "'"
DoCmd.OpenForm stDocName, , , stlinkcriteria
DoCmd.SetWarnings True
End If
Exit Sub

End Sub

 

[ghudson]

'If Me!Hospital = Null Then 'I tried this too.
If Me.Hospital = "" Then

s/b

If IsNull([Hospital]) Or [Hospital] = "" Then

You have other problems in your code but this is the odvious.

 

[mdjks]

It was working fine with the me.hospital= "" then statement when I put it in yesterday. I was confused when it ignored the null today.

Thank you, the
IsNull([Hospital]) Or [Hospital] = "" Then
is working correctly.