8.mesajda yazdığınız kodlara dair hem bir düzeltmede bulunmak hem de bilgilendirme olması adına,naçizane aşağıdaki açıklamaların yapılması uygun görülmüştür.
1)
Komut14 adlı buton içeriği ile,eğer sayı değeri uzunluğu 6 ise kaydetsin değilse boş bıraksın anlamında kullanmışsınız.
akabinde,Komut9 adlı buton içeriği ile de;eğer sayı değeri uzunluğu küçük ve EŞİT ya da büyük ve EŞİT ise sayı değerini boş bıraksın ve formu kapatsın değilse yine kapatsın anlamında kullanmışsınız.
burada şu hususlar söz konusu olmakta:
a) ilk buton içeriğinde 6 değerine EŞİTLİK varsa geçerli olmakta.
b) fakat,diğer butonda da,EŞİTLİK durumu yine geçerli olmakta.dolayısı ile de,bu butonun işlevi düşmekte.KÜÇÜK ya da BÜYÜK olma durumları EŞİT ifadesi olmaksızın yazılmalı ki,bu kod işlerlik kazansın.
bu buton ile,eşitlik olsa da olmasa da kapatmak üzerine.
2)
iki buton şeklinde ayrı ayrı bu şekilde yazmak yerine,tek bir buton içerisinde (madem,buton olayı ile çözmek istiyorsunuz);
Kod:
If Len(Me.isim) = 6 Then
DoCmd.Save
Else
Me.isim = ""
DoCmd.Close
End If
Kod:
Me.sayi = IIf(Len(Me.sayi) = 6, Me.sayi, "")
If Me.sayi = "" Then
Me.sayi = ""
DoCmd.Close
Else
DoCmd.Save
End If
ayrıca,isterseniz;kaydetme sonrasına formu kapatma kod satırını da ekleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.