AYNI YIL İÇERİSİNDEAYNI PERSONEL NO VE AYNI AD SOYAD VAR İSE UYARI VERSİN..
KAYIT YAPMASIN İSTİYORUM..

DİKKAT !! TABLODA DEGİL AYNI FORMDA (ALT FORMDA) AYNI KAYIT OLMASIN İSTİYORUM..

KOD BİLMEM ANLAMAM YARDIMCI OLABİLECEK ARKADAŞA ŞİMDİDEN ŞÜKRANLARIMI SUNARIM..

Veritabanını açıyorum fakat formlarda hata veriyor bilginize. Kolay gelsin.

TEKRAR İNDİRDİM DENEDİM SORUN YOK BENDE ACCESS 2016 DA AÇARSANIZ SORUN LMAZ SANIRIM

(14-10-2018, 19:11)yaaasin demiş ki: TEKRAR İNDİRDİM DENEDİM SORUN YOK BENDE ACCESS 2016 DA AÇARSANIZ SORUN LMAZ SANIRIM

SP1 ve SP2 farki,

  PersonelArge.rar (Boyut: 32,54 KB / İndirilme: 113) Dcount(... deyimi ile guncelleme oncesi kontrolunu inceleyebilirsiniz....

İŞTE GÖRÜYORSUNUZ MİKEMMELLL...

KÖRÜN İSTEDİGİ 1 GÖZ... SEN MESAJA YILI GÖSTERTEN UYARI BİLEM EKLEMİŞİN YAWWW

ELİNE EMEGİNE TECRÜBENE SAGLIK MÜDÜRÜM..

BURDAKİ BU KODLARIN BİRAZ ANLAYABİLECEGİM ŞEKİLDE AÇIKLAMASINI YAPARMISIN..

BEN VE BENİM GİBİ HİÇ KODDAN ANLAMAYANLAR İÇİN EN AZINDAN KODLAMA ALEMİNE BİR GİRİŞ KAPISI OLUR BELKİ...

Oradaki Me.parent ne işe yarar
mesela ben bu kodu kopyalayıp yıl formu için aynı şekilde yapmaya çaıştım beceremedim


Private Sub Yil_BeforeUpdate(Cancel As Integer)
If DCount("*", "Tbl_Yil", "Yil" = Me.Parent.Yil & "'") > 0 Then
MsgBox Me.Yil & " Senesi kayitlidir."
Me.Undo
Cancel = True
End If
End Sub

aynı yıl varsa kayıt yapmasın gibi..
bunu tablodan yineleme yok seçerekte yaparım ama buradan daha bi afilli oldu bunu ögrenmek istiyorum..

oradaki * (yaldız) ne işer yarar
son bölüm koşulmuş ( aynı yıl varsa kayıt yapma demeye çalışıyorum ama
("Yil" = Me.Parent.Yil & "'") ????? ÇOK ALAKASIZ SAÇMA DEEE Mİ ) MAKİNA DİLİNİ ANLAMAMAK BÖYLE BİŞİ İŞTE )

BEN BALIK SEVERİM HELEKİ KOLAY YOLDAN GELİYORSA VE BELEŞSE ÇOOK SEVERİM BANA BOL BOL BALIK TABİİKİ VERİN AMA NE OLUR TUTMAYIDA ÖGRETİN BE YAAA... )

YIL EKLEME FORMUNUN Yil metin kutusuna

Private Sub Yil_BeforeUpdate(Cancel As Integer)
If DCount("*", "Tbl_Yil", "[Yil]=" & [Yil]) > 0 Then
MsgBox Me.Yil & " Senesi kayitlidir."
Me.Undo
Cancel = True
End If
End Sub

Koşul kısmına Form aç makrosundaki koşulu kopyaladım [id_1] leri [Yil] yaptım perfect çalıştı ama bu seferde

yeni yıl ekledim yazdım metin kutusundan çıktm sorum yok

ama yazdım sildim boş bırakarak çıkmaya çalıştım abuk subuk hata veriyor boş bırakıp çıkamıyorum..