04/01/2009, 02:06
Kaydet Butonuna aşağıdaki kodu ekle.
Ayrıca, Yeni Konu Açma, Yeni Cevap Yaz.
Kod:
Private Sub Komut649_Click()
If (IsNull(Açılan_Kutu663.Value)) Then
DoCmd.Save
Else
If (IsNull(TARİH.Value)) Or (IsNull(SAYISI.Value)) Or (IsNull(ALINDIĞI_TARİH.Value)) Or (IsNull(EKİ.Value)) Or (IsNull(KONUNUN_ÖZETİ.Value)) Or (IsNull(Liste645.Value)) Then
MsgBox ("Boş kalan alanlar var.")
End If
End If
If (IsNull(Açılan_Kutu665.Value)) Then
DoCmd.Save
Else
If (IsNull(TARİHİ.Value)) Or (IsNull(KONUNUN_YAPILAN_VEYA_YAPILACAK_İŞLEMİN_ÖZETİ.Value)) Or (IsNull(AİT_OLDUĞU_DOSYA_NO.Value)) Or (IsNull(KAYIT_NO_SONRASI.Value)) Or (IsNull(KAYIT_NO_ÖNCESİ.Value)) Then
MsgBox ("Boş kalan alanlar var.")
End If
End If
End Sub
Ayrıca, Yeni Konu Açma, Yeni Cevap Yaz.