#8
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord = True Then
If MsgBox("Yeni Kayıt kaydedilsinmi", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
End If
End If
If Me.NewRecord = False Then
If MsgBox("Değişiklikler kaydedilsinmi", vbQuestion + vbYesNo, "Onay") = vbNo Then
DoCmd.RunCommand acCmdUndo
Else
End If
End If
End Sub| Bu Konudaki Yorumlar |
|
Formda filitreleme - Yazar: conquerora - 05/11/2012, 15:08
Cvp: Formda filitreleme - Yazar: iscinar - 05/11/2012, 16:22
Cvp: Formda filitreleme - Yazar: conquerora - 06/11/2012, 10:07
Cvp: Formda filitreleme - Yazar: conquerora - 06/11/2012, 11:26
Cvp: Formda filitreleme - Yazar: conquerora - 07/11/2012, 15:20
Cvp: Formda filitreleme - Yazar: Puletin - 11/11/2012, 12:37
Cvp: Formda filitreleme - Yazar: benremix - 14/11/2012, 07:44
Cvp: Formda filitreleme - Yazar: conquerora - 21/11/2012, 10:52
Cvp: Formda filitreleme - Yazar: accessman - 21/11/2012, 10:54
Cvp: Formda filitreleme - Yazar: akadguler - 05/11/2012, 15:22
Cvp: Formda filitreleme - Yazar: conquerora - 05/11/2012, 15:29
|
