Sayın dsezgin83260 teşekkür ederim, sorun çözüldü.
Soru içeriği ile ilgili değil ama, iki sorum daha olacaktı.
1- 32 bit ile yapılan programcık 64 bit işletim sisteminde ve ofiste çalışır mı? veya nasıl çalışır.
2- İki kişi tarafından ayrı bilgisayarlarda kullandığında, veri kaybı olmaması için ne yapmak gerekir. (Mesela bir birinden habersiz ikisi de aynı kayıtı tutmuşsa, birisinin kaydının olmayacağı gibi, vaya ben yanlış mı biliyorum).
Anlayışınız ve yardımınız için şimdiden teşekkürler.
1- 32 bit ile yapılan programcık 64 bit işletim sisteminde ve ofiste çalışır mı? veya nasıl çalışır. VBA da declare ile ilgili satir sorun cikarabilir. Bunun icin
#If VBA7 And Win64 Then
'***64 olani bu bolume declare sonrasi PTRSAFE ekleme ile
#Else
Eski declare satirini bu bolume tasimalisiniz
#End If
bazen ozel tanimlamalar(SutunAdlari, Form-Rapor alanlarinda kullanilmis olan Turkce karakterler hata verdirebilir. 64 bit bilgisayarda deneme yapilmalidir.
2- İki kişi tarafından ayrı bilgisayarlarda kullandığında, veri kaybı olmaması için ne yapmak gerekir. (Mesela bir birinden habersiz ikisi de aynı kayıtı tutmuşsa, birisinin kaydının olmayacağı gibi, vaya ben yanlış mı biliyorum). Tabloya kayit yapilmadan once anahtar alana gore if dcount("*","TabloAdi","SorSutunAdi=" & [YeniGirVeri])>0 deyimi ile me.undo ile kayit yaptirmazsiniz veya anahtar alanin tekrar etmeme ayarini tablodan yapmaniz ile mukerrer kayidi engellemis olursunuz.
Sayın dsezgin83260 cevabınız için teşekkürler,
ancak ikinci soruya verdiğiniz cevaptan yenileme hariç, diğerini nasıl uygulayabiliriz, tam anlayamadım. yardımcı olursanız sevinirim.
*Tabloya kayit yapilmadan once anahtar alana gore if dcount("*","TabloAdi","SorSutunAdi=" & [YeniGirVeri])>0 deyimi ile me.undo ile kayit yaptirmazsiniz veya anahtar alanin tekrar etmeme ayarini tablodan yapmaniz ile mukerrer kayidi engellemis olursunuz.
Yeni bir Personel tablosu olusturun ve bir Adi isminde tipi metin alan ekleyin ve kaydedip cikin,
Personel tablosunun uzerine odaklanin ve fare ile form sihirbazi ile form olusturun. Formu tasarlayin, Adi alani guncelleme sonrasi olay yordamina
Visual Basic
privatesub Adi_after_update()
ifdcount("*","Personel","Adi=" & me.Adi )>0 then
msgbox "Mukerer kayit"
me.undo
else
docmd.runcommand accmdsaverecord
endif
endsub
ile Adi alanina veri girildiginde daha onceden girilen bir isim var ise uyari ile form geri islemi yaptirilir, mukerer degil ise kayit dizini kaydedilir.