:???: Arkadaşlar aşağıda belirttiğim TRF, KOL, MUA ve YET tarih içeren birer kayıt.
Sorunum TRF, KOL, MUA ve YET te girilen tarihler bu günden büyük ise kayıt gerçekleşsin, değilse gerçekleşmesin.
Böyle yaptım çalışmadı.
Private Sub KAYDET_Click()
If TRF > Date Then
ElseIf KOL > Date Then
ElseIf MUA > Date Then
ElseIf FEN > Date Then
On Error GoTo Err_KAYDET_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_KAYDET_Click:
Exit Sub
Err_KAYDET_Click:
MsgBox Err.Description
Resume Exit_KAYDET_Click
Else
MsgBox (PLAKA) + " Plakalı Bu aracın belgelerinin biri veya birkaçının geçerlilik süresi bittiğinden Çıkış işlemi Yapılmayacaktır", vbCritical, "ÇIKIŞ KAYDI İPTALİ"
On Error GoTo Err_KAYDI_GERİ_AL_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_KAYDI_GERİ_AL_Click:
Exit Sub
Err_KAYDI_GERİ_AL_Click:
MsgBox Err.Description
Resume Exit_KAYDI_GERİ_AL_Click
End If
End Sub
Sorunum TRF, KOL, MUA ve YET te girilen tarihler bu günden büyük ise kayıt gerçekleşsin, değilse gerçekleşmesin.
Böyle yaptım çalışmadı.
Private Sub KAYDET_Click()
If TRF > Date Then
ElseIf KOL > Date Then
ElseIf MUA > Date Then
ElseIf FEN > Date Then
On Error GoTo Err_KAYDET_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_KAYDET_Click:
Exit Sub
Err_KAYDET_Click:
MsgBox Err.Description
Resume Exit_KAYDET_Click
Else
MsgBox (PLAKA) + " Plakalı Bu aracın belgelerinin biri veya birkaçının geçerlilik süresi bittiğinden Çıkış işlemi Yapılmayacaktır", vbCritical, "ÇIKIŞ KAYDI İPTALİ"
On Error GoTo Err_KAYDI_GERİ_AL_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_KAYDI_GERİ_AL_Click:
Exit Sub
Err_KAYDI_GERİ_AL_Click:
MsgBox Err.Description
Resume Exit_KAYDI_GERİ_AL_Click
End If
End Sub