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