Private Sub ODEMETUTARI_Exit(Cancel As Integer)
If MsgBox("İşlem kaydedilsin mi?", vbInformation + vbYesNo) = vbYes Then
If IsNull(Me.ODEMETUTARI) Or Me.ODEMETUTARI = "" Or Me.ODEMETUTARI = 0 Then
MsgBox " Dikkat...Tutar Yazmadan kayıt edemezsiniz...!"
Me.ODEMETARIHI.SetFocus
Me.ODEMETUTARI.SetFocus
'Exit Sub
Else
End If
Else
End If
End Sub
Adı Soyadı:
Ce.... Ya....
Konum:
Ankara
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
Bugün,19:18
Cevapla