Hej NG
Jeg har en lille database med medlemmer, jeg bruger nednævnte Case ved
..Delete,
mit ønske er, at jeg når MsgBox er fremme, og man svarer ja da først at der
laves
en kopi af posten og denne kopi indsættes i en tabellen "Udmeldte", for
derefter fra tabellen
"Medlemmer" at slette posten.
Er der nogen der har en god (ikke for vanskelig) ide.
Case cmdDelete
navigateButtons ("11111101011")
Dim iResponse As Integer
Dim sAskUser As String
sAskUser = "Er du sikker på, at du vil slette denne Post?"
iResponse = MsgBox(sAskUser, vbQuestion + vbYesNo + _
vbDefaultButton2, "Medlemsliste")
If (iResponse = vbYes) Then
With Data1.Recordset
.Delete
Med venlig hilsen
Ole J. Hansen
|