Private Sub Devam_StokGirisleri_Click()
Dim baglanti
Dim kayitset
Dim sql
Dim Mesaj
Dim Hata
Dim StokGirisID
 
Set baglanti = New ADODB.Connection
baglanti.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & "c:\Test\dbtest.mdb"
Set kayitset = New ADODB.Recordset
 
 
 
Mesaj = "Lütfen "
Hata = 0
 
If IsNull(FirmaAdi) Then
Mesaj = Mesaj & "Firma Adını,"
Hata = 1
End If
 
If IsNull(Tarih) Then
Mesaj = Mesaj & "Tarih,"
Hata = 1
End If
 
 
Mesaj = Mesaj & " seçiniz."
 
If Hata = 0 Then
 
sql = "select * from tbl_StokGirisleri"
kayitset.Open sql, baglanti, 1, 3
kayitset.AddNew
kayitset("Tarih") = Tarih
kayitset("FirmaID") = FirmaAdi
kayitset("FaturaNumarasi") = FaturaNumarasi
kayitset.Update
StokGirisID = kayitset("StokGirisID")
kayitset.Close
DoCmd.Close
DoCmd.OpenForm "frm_StokGirisleriBirim", acNormal ' Burdan StokGirisID verisini formdaki bir text boxa yazdıramıyorum
 
Else
MsgBox (Mesaj)
End If
 
End Sub