ACCESS TE MESSAGE BOX

[erkanacet]

ACCESS'TE YAPTIÐIM BİR FORMDA KAYDET'E BASTIÐIMDA TÜM HANELER DOLU DEÐİL İSE KAYDETMESİN. UYARI VERSİN. YANİ KULLANICININ BOÞ OLAN TÜM ALANLARI DOLDURMASINI SAÐLAMAK İSTİYORUM. ADRES FORMU GİBİ. KULLANICI TÜM BİLGİLERİ GİRMEDEN KAYDETMESİN. YARDIMLARINIZ İÇİN ÞİMDİDEN TEÞEKKÜR EDİYORUM.

 

[erkanacet]

Ã?RNEKTE GÃ?RÜLDÜÃÜ ÜZERE BOÞ OLAN HANELER DOLDURULMADIKÇA KAYDEDİLMESİN.

 

[excile]

Selam

3 tane için örnek aşağıdaki gibi bir şeyler

Private Sub Command4_Click()
Dim strErrMsg As String
If Me!AdSoyad & "" = "" Then
    strErrMsg = "Lütfen Ad Soyad seçiniz"
End If

If Me!Yetkinlik & "" = "" Then
   strErrMsg = strErrMsg & vbCrLf & "Lütfen yetkinliği seçiniz"
End If

If Me!Turu & "" = "" Then
    strErrMsg = strErrMsg & vbCrLf & "Lütfen türü seçiniz"
End If

If strErrMsg & "" <> "" Then
    MsgBox prompt:=strErrMsg, buttons:=vbOKOnly, Title:="Integrity ERROR"
    Exit Sub
End If
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub

 

[erkanacet]

Sayın excile
Teşekkür ediyorum.

 

[mktemel]

bu kodları nereye yazmam gerektiği konusunda tardımcı olurmusunuz teşekkrüler

 

[modalı]

Sayın mktemel,

Forma ayit kod sayfası penceresini açıp oraya kopyalayıp yapıştırın. Yalnız tabi komut düğümesi adını değiştirmeniz gerekiyor. Bu da formu kapat ve olayı kaydet düğümelerinin altına ayrı ayrı kopyalanması gerekiyor.

 

[mktemel]

teşekkür ederim vermil oldugunu bilgi için Bahsetmiş oldugunuz şekilde yaptım ve çalışıyor. Emeğiniz için tekrar teşekkürler. Bilgi almak adına

If Me!AdSoyad & "" = "" Then
strErrMsg = "Lütfen Ad Soyad seçiniz"
End If

If Me!Yetkinlik & "" = "" Then
strErrMsg = strErrMsg & vbCrLf & "Lütfen yetkinliği seçiniz"

Bu kodlar içerisinde şunu yapabilirmiyiz adsoyad yada yetkinlik bölümünden ikiside işarteli değil ise ve sadece birini işaretlemek zorunda bırakabilceğim bir yöntmen varmıdır. Kısaca Ya adsoyada yada Yetkinlk boş kalmamalı .