Check på om et felt er tomt
Hvad er der galt her.Jeg forsøger at lave en knap der skal åbne en anden form, men inden den gør det skal den undersøge om et felt på formen indeholder en værdi. Hvis der ikke er en værdi i det felt skal proceduren stoppe.
Her er koden:
Private Sub cmdVisNiveau1_Click()
On Error GoTo Err_cmdVisNiveau1_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim bCheck As Boolean
Me.Repaint
bCheck = IsEmpty(Me![GLevel1])
If bCheck = False Then
MsgBox "The field is empty, so it is not possible to go to next level", vbInformation
Exit Sub
End If
stDocName = "frmGeografiVedligeholdLand"
stLinkCriteria = "[LandNr]=" & Me![LandNr]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdVisNiveau1_Click:
Exit Sub
Err_cmdVisNiveau1_Click:
MsgBox "The field is empty, so it is not possible to go to next level", vbInformation
Resume Exit_cmdVisNiveau1_Click
End Sub
