title image


Smiley Tja, aus irgendwelchen Gründen...
(vermutlich aus den in der Fehlermeldung genannten) ist das Formular bzw. seine Datenherkunft nicht aktualisierbar.



Und auch sonst schreibst du besser:



Private Sub cmd_delete_Click()

If MsgBox("Do you really want to delete this entry?", vbYesNo + vbQuestion) = vbYes then

Me!active = False

MsgBox "Entry deleted", vbOKOnly, "Deleted"

DoCmd.Close acForm, Me.Name

End If

End Sub



Ich würde zwar zu allererst der Ursache für dieses Verhalten auf den Grund gehen - du könntest aber natürlich auch dein Ja/Nein-Feld ausserhalb des Formulars setzen:



Private Sub cmd_delete_Click()

If MsgBox("Do you really want to delete this entry?", vbYesNo + vbQuestion) = vbYes then

CurrentDB.Execute "UPDATE DeineTabelle SET Active = False WHERE ID = " & Me!ID

MsgBox "Entry deleted", vbOKOnly, "Deleted"

DoCmd.Close acForm, Me.Name

End If

End Sub



Für "ID" müsstest du den (ganzzahligen) Primärschlüssel deiner Tabelle einsetzen.


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: