AccessTr.neT

Tam Versiyon: Tek form sayfasında 2 tabloya birden Yeni Kayıt Yapılması Hk.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Arkadaşlar 2 adet tablom var çeker zimmet ve dorse zimmet form sayfası üzerinde denetim kaynağı Çeker Olan Kayıt formunda bağlı olduğu Dorse Plakayı girdiğimde alt bilgiden dorseye ait ilgili bilgiler hücrelere gelmektedir. ve dorseye ait hücreleri üzerinde düzenleme yapıp kayıt tuşuna bastığımda ilgili dorsenin kayıtları dorse zimmete aktarılıyor buraya kadar tamam ancak ben yeni bir çeker ve dorse plakası girdiğimde Çeker Zimmete ve Dorse Zimmete Yeni Bir Kaydı Açmasını İstiyorum. Zaten Çeker Plaka ve Dorse Plakayı yazdığımızda mükerrer olması durumunda ekteki programım ikaz vermektedir. Eğer mükerrer değil ise Yeni bir kayıt oluşturacak Çeker ve Dorse tablolarına yeni bir kayıt oluşturacak bunu Nasıl yapabiliriz. Yardımcı olurmusunuz.

Sn.sledgeab'ın daha önceden Kayıt düzenleme başlık altında yardımcı olduğu ve şu anda kullandığım kod aşağıdadır. bu kodlama üzerinden değişiklik yapılabilirmi.

If IsNull(dorse) Then
MsgBox ("Plaka Boş geçilemez")
Exit Sub
Else
strSQL = "SELECT * FROM [Dorse Zimmet Ana Tablo] "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit


.Find "[Dorse Plaka]=" & Me.dorse
.Update
.Fields("Cinsi") = Me.dcınsı

.Fields("Tipi") = Me.dtıp
.Fields("Trafiğe Çıkış Tarihi") = Me.dtrafık
.Fields("Garanti Süresi Bitiş Tarihi") = Me.dgarantı

.Update
MsgBox "Güncelleme Tamamlandı"
End With
Sn.hocalarım konu hakkında yardımcı olabilecekmisiniz.
Araç bilgilerinde araç plaka nosuna ne yazarsak yazalım var diyor. Orda bir yanlışlık var. Kullanımıyla ilgili biraz daha bilgi vermelisiniz. Mantığını çok anlayamadım ben.
Sn.Demiral Hatayı düzelterek ve daha iyi anlaşılması için size tekrar gönderiyorum. iki adet tablom var çeker zimmet, dorse zimmet form sayfasında dorse plakayı yazdığımda alt formdan dorseye bağlı bilgiler hücrelere gelmektedir. dorseye ait bilgileri değiştirdiğimde dorsenin kaydını güncellemektedir. ancak ben yeni bir kayıt yaptığımda dorseye bu form sayfasından yeni bir kayıt ekleyemiyorum. yani ben buraya çeker ve dorse plakasını yazdığımda kayıt tuşuna bastığımda Çeker Zimmet ve Dorse Zimmete Yeni Kayıt oluşturmasını istiyorum.
son güncellenmiş dosyam ektedir.
[Resim: dorsedzenleme.jpg]
[Resim: yenkayit.jpg]
Aslında kaydediyor ama EOF ve BEOF ile ilgili bir hata veriyor. Bence güncelleme düğmesini Yenikayıt için kullanmayın. Bir buton koyun, YeniKayıt adını alsıın ve ona bastığınızda Güncelleme butonu pasif olsun. Yeni kayıtta henüz veri tablodan forma çağrılmadığı için Update komutunda hata dönüyor. Ya son eylemde forma gelen verileri güncelleyin, ya da güncelleme butonunu kullanmayın.
If Isnull (...) then
Yeni Kayıt Yap
Else
If [...] = ""then
Güncelleme Yap
Else
gibi bir kod uygulasak olurmu
Mehmet Demiral bey; yardımcı olursanız çok sevinirim uğraştım ancak yapamadım.
Sn.Mehmet DEMİRAL bey dediğiniz şekilde form sayfasını yeniden düzenledim bir bakabilirmisiniz. Yeni Kayıt butonuna nasıl bir kodlama yapmamız gerekir dorse bilgilerinide Dorse Zimmete atsın
Sayfalar: 1 2 3