Msgbox hvis feltet ikke er udfyldt
Jeg vil gerne have en msgbox op hvis feltet \"kunstner\" ikke er udfyldt, når jeg sletter en post. Jeg har brugt følgende kode, som virker hvis feltet Kunstner er udfyldt, men skal så fejlmelde hvis ikke. Håber der er hjælp derude :-)Private Sub Slet_Click()
Dim Navn As String
Dim msg As String, Svar As Integer
Navn = Adodc1.Recordset(\"Kunstner\")
msg = \"Slet CD:\" & Chr$(13) & Chr$(13)
msg = msg & Navn & Chr$(13) & Chr$(13)
msg = msg & \"Er du helt sikker?\"
Svar = MsgBox(msg, vbOKCancel, \"Slet CD\")
If Svar = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub