Önceden Eklenmiş İse........

[karaayhan]

örnek ve isteğim ekte önceden girilen bir kayıtsa buna bağlı olarak
diğer alanları oto vermesi girilmemiş ise yani yeni kayıt ise tanımlı değilse
ekleme yapılacağına dair uyarı versin ve ekleyerek geçsin o zaman diğer alanlar manuel yazılsın.......

 

[modalı]

Sayın karaayhan,

Önceden girilmemiş kayıt nasıl oluyor?

Herneyse anladığımkadarını yapabildim. Umarım işinizi görürü.

İyi çalışmalar

 

[karaayhan]

sevgil modalı teşekkürler öncelikle,

yaptığın örnekten anladığım kadarıyla ben anlatamamışım olayı

şöyleki; seri numarası yazan( kırmızı zeminli alan) 'ın çıkıldığında olay yordamına
bir kod yazalım bu kod aynı tablonun seri numarasını konttrol etsin eğer daha önceden girilmiş ise aşağıdaki sarı zeminli alanları seri numarasına bağlı olarak doldursun (column.3) gibi sütun özellikleri varya ona göre olabilir.

yoksa bu kayıt yeni bir kayıt uyarısı gelsin ve eklemek isteyip istemediğimizi sorsun evet dersek doğal olarak yeni bir kayıt olacağından sarı zeminli olanları biz dolduralım .kaydet güzel olmuş ellerine sağlık
yüreğine sağlık .........
:yazici: k:: :arkadas:

 

[modalı]

Sayın karaayhan,

Bir örnek hazırlıyorsunuz ve bu örnekte bir tablo var, bu tabloya veri girmek üzere bir form hazırlayıp ilişkilendiriyorsunuz. Ondan sonra da bir metin kutusu ki direkt olarak tabloyla ilişkili içine bir seri numarası yazıyorsunuz ve tabloda o numaranın olup olmadığını aratmak istiyorsunuz bu imkansız. Bunun için bu tabloyla ilişkisiz ayrı bir bir metin kutusu ekleyip buna bağlı olarak bir sorgu çalıştırmanız gerekir.

Bunun için hem zaman tasarrufu sağlamak hem de sonuca ulaşmak için örnek uygulamaları daha dikkatli hazırlamamız gerekiyor.

İyi çalışmalar

 

[karaayhan]

yeniden örnek

sevgili modalı haklısın bu yüzden ayırdım tabloları farklı bir örnek ekte
kırmızı alanda plaka var ona sürücü bililerini ait plaka yazılınca bulması ve sarı alanları otomatik olarak atması bu yapılabiliyor ancak üst formla ilişkili olduğundan
alt forma veri girildiğinden işlem yapmıyor yani otomatik verilere getirmiyor sarı alanlara iliştileri alt formla olan ilişkileri kaldırdığımızda ise sonradan girilen veriler
eşleşmiyor karışık bir durum değil belki ama ben toparlayamadım
yeni örnek ekte şimdiden teşekkürler kardeş ellerine sağlık.. :arkadas:

 

[karaayhan]

sevgili site sakinleri belki olurya örneği yeni ekledim farketmemi olabilirsiniz diye
tekrar yazıyorum ilginize teşekkürler şimdiden.. :dua:

 

[karaayhan]

8 kere indirilmiş ama cevap yok görüş yok niye acaba çok mu zor soru anlamadım ki..... :uyku:

 

[modalı]

Sayın karaayhan,

Bu sorunuza kendime göre bir çözüm ürettim.

Ama tabi daha düzeltilmesi gerekiyor.

Uygulamayı çalıştırdıktan sonra, sürücü bilgileri alt formu nu açarsanız ne yapmanız gerektiğini anlarsınız.

İyi çalışmalar :hey:

 

[karaayhan]

If MsgBox("Yazılan değer listede yok. Eklensin mi?") = vbNo then exit sub
Dim db As Database
Set db = CurrentDb
db.Execute "insert into TABLO1(ALAN1) values (" & AcilanKutu1.Text & ")"
'db.Execute "insert into TABLO1(ALAN1) values (' " & AcilanKutu1.Text & " ')"
'Eger kayit girilecek alan sayi degil de metin ise 2. satiri kullanin.
'Acilan kutudaki yeni metin ilgili tabloya eklenecek.
'TABLO1(ALAN1) yerine hangi tablonun hangi alanina ekleme yapilacaksa
'onlari yazin. KISILER(AdiSoyadi) gibi. tablo ya da alan isimleri
'hata verirse basina ve sonuna koseli parantez ekleyin.
'[kisi adlari tablosu]([adi soyadi]) gibi.
Dim deger
deger = AcilanKutu1.Text
AcilanKutu1.Undo
AcilanKutu1.Requery
Response = acDataErrAdded
'yeni kaydi ben simdi ekledim. hatayi yoksay.
AcilanKutu1.Value = deger


konuya en yakın çözüm bu kodlarda gizli ancak yinede olmuyor yeni kaydı soruyor ama birdahaki sefere o kaydı tanımıyor yani ilgili tablodaki alana eklememiş oluyor sanki

bu yarım kodu tamamlarsanız istediğim cevabı yarım kalan bir sorum daha hallolmuş olacak...

ilgilinize teşekkür ederim şimdiden

iyi çalışmalar