mecburi giriş

1 2 3
04/01/2009, 02:06

ozanakkaya

Kaydet Butonuna aşağıdaki kodu ekle.

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.
04/01/2009, 02:45

hanedan0812

teşekkür ederim Eline sağlık
07/12/2011, 00:37

yorum70

Bu program tam aradığım formatmış.Keşke sorunun çözen arkadaş son halini ekleseymiş bizde faydalansaymışız !
bU PROĞRAMA NASIL kullanıcı-şifre-yetki eklemesi yapabiliriz ?


Değerli üstatlar; bu konuyla ilgili yardım edecek yok mu ? Ve program bu haliyle kullanıma açık mıdır ? İncelediğim kadarıyla evet ama, ben acemi penceresinden baktım.

Sn.Hanedan0812 'ye mesaj attım-Yanıt bekliyorum, saygılarımla.
07/12/2011, 13:39

alpeki99

Kullanıcı adı ve şifre ile giriş için sitede onlarca örnek var. Sizin aradığınız daha farklı bir şey mi?
07/12/2011, 13:44

yorum70

Sn.Alpek99 hoca, arkadaşların emeklerine sağlık lakin bulsam bile neyi nereye yapıştıracağımı veya yazacağımı bilmiyorum.Denediğim zaman ise evde ki bulgurdan oluyorum..Bir sorun da raporları excele atıyor gözüküyor ama nereye atıyor bulamadım.

Tşk.
07/12/2011, 18:43

yorum70

Sn.Hanedan0812 gelirse bu işi çözer.
1 2 3