#2
Private Sub Form_Current()
'If Not IsNull(Me.ÇIKIŞ_TARİHİ) Then
'MsgBox ("deneme")
'End If
Call KutuRenk
Me.ADİSYON_TUTARI = [frm_adisyon].Form![Metin5]
If NewRecord = True Then
If MsgBox("Yeni oda kaydını onaylıyormusunuz ?", vbQuestion + vbYesNo, "Kayıt Onayı") = vbNo Then
DoCmd.RunCommand acCmdUndo
End If
End If
End Sub| Bu Konudaki Yorumlar |
|
Boş kayıt yaplımasını önlemek yazma çakışması hata msj. - Yazar: fascioğlu - 12/01/2012, 20:30
Cvp: Boş kayıt yaplımasını önlemek yazma çakışması hata msj. - Yazar: Puletin - 12/01/2012, 20:54
Cvp: Boş kayıt yaplımasını önlemek yazma çakışması hata msj. - Yazar: fascioğlu - 12/01/2012, 21:02
Cvp: Boş kayıt yaplımasını önlemek yazma çakışması hata msj. - Yazar: fascioğlu - 12/01/2012, 21:08
Cvp: Boş kayıt yaplımasını önlemek yazma çakışması hata msj. - Yazar: ozanakkaya - 12/01/2012, 21:11
|
