iki tabloya kayıt

1 2 3
29/02/2012, 16:16

ceday

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

29/02/2012, 17:00

iscinar

Ö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
29/02/2012, 17:54

ceday

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