30. december 2001 - 22:11Der er
3 kommentarer og 1 løsning
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
Private Sub Slet_Click() Dim Navn As String Dim msg As String, Svar As Integer Navn = Adodc1.Recordset(\"Kunstner\") If Navn = \"\" Then MsgBox \"Der er en fejl\" Exit Sub End If 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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.