iki tabloya kayıt

Sayın Power

Excel de tablorı hazırladım, Ektedir. Sonuç olarak Acemiliğimden olsa gerek Ya mantık hatası yapıyorum, yada bağlantı eksikliğinden herhangi bir cari form da extre görmek istediğimde gerekli yerlerden gerekli bilgileri alamıyorum. Tabloları bağlamaya çalışınca hata alıyorum ve filitreleme yapamıyorum. O nedenle ayrı ayrı yazılırsa bilgi çekme ve hesaplama yapmada daha rahat işlem yaparım kanaatine vardım. İki tabloya birden yazdırmayı o nedenle istemiştim.
Saygılarımla

Ek Dosyalar

Örneğinizi acdb olduğu için inceleyemedim ancak benim formumda kullandığım bir kodu fikir açısından göndermek isterim.

Tek bir form üzerinden birinci bölümde Tablo_Araclar tablosuna yeni araç girişi yapıyorum.
İkinci bölümde ise Girişini yaptığım araca Tablo_Zimmet tablomda garaja geliş zimmeti açıyorum.

Private Sub YEkle_Click() 'Yeni araç girişi yapıyoruz



On Error Resume Next

Dim cnr As New ADODB.Recordset

Set cnr = New ADODB.Recordset

Dim Sql As String

Dim PLAKAM As String

PLAKAM = InputBox("Plakayı Giriniz...", "Yeni Araç Plakasını Giriniz")



sql = "select * from Tablo_Araclar" 'Birinci Forma Araç Kaydı yapıyorum.

If IsNull(PLAKAM) = True Then

MsgBox "plaka boş olamaz..."

Exit Sub

End If



 cnr.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

 cnr.AddNew

 cnr("Plaka") = PLAKAM



 cnr("Gurup") = Me.YGurup 'cnr("Tablodaki hedef alan adı")=me.Formdaki Metin Kutusu

 cnr("Durum") = Me.YDrum

 cnr("Cins") = Me.YCins

 cnr("Marka") = Me.YMarka

 cnr("Model") = Me.YModel

 cnr("SigortaTarih") = Format(Me.YSigortaBitis, "dd/mm/yyyy")

 cnr("MuayeneTarih") = Format(Me.YMuayeneBitis, "dd/mm/yyyy") 'Tarih alanları için kullanılacak format



 cnr("Aktif") = Nz(Me.YAktif, 0)

 cnr("Otobil") = Nz(Me.YOtobil, 0)

 cnr("TrafikSeti") = Nz(Me.YTrafikSeti, 0) 'Onay kutuları için kullanılacak format

 cnr("Takograf") = Nz(Me.YTakograf, 0)

 

cnr.Update

cnr.Close





sql = "select * from Tablo_Zimmet" 'İlk Tabloya girişini yaptığımız aracın İkinci Tabloya Zimmet Kaydı Burada başlıyor



 cnr.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

 cnr.AddNew

 cnr("Plaka") = PLAKAM

 cnr("Durum") = Me.YDrum

 cnr("ZimmetTuru") = "Garaj" 'Bu dört alan sabit olduğu için değerleri de sabit tuttum

 cnr("Garaj") = "Merkez Garaj"

 cnr("Birim") = "Merkez Garaj"

 cnr("Aciklama") = "Merkez Garaja Geliş"

 cnr("ZimmetTarih") = Format(Me.ZimmetTarih, "dd/mm/yyyy")

 cnr("ZimmetSaat") = Me.ZimmetSaat

 cnr("ZimmetYili") = DatePart("yyyy", Now())

 cnr("ZimmetYapan") = Forms![Frm_Ana].Form![oturum]

cnr.Update

cnr.Close

 

If MsgBox("Kayıt işlemi başrıyla tamamlanmıştır." & Chr(10) & "Yeni araç girişi yapmak için EVET'i " & Chr(10) & "Rapor almak için 'HAYIR'ı tıklayın", vbQuestion + vbYesNo, "İsmail ÇINAR") = vbNo Then



 DoCmd.OpenReport "Rpr_Yeni_Gelen_Araclar", acViewPreview

End If

Form.Requery





End Sub

Sayın iscinar
ilginize teşekkür ediyorum.
İyi Çalışmalar