Private Sub KMTKAYDET_Click()
'değişkenleri tanımlıyoruz..
Dim rs As New ADODB.Recordset
Dim i As Integer
'tarih veya sevkeden boş ise uyarı verdirip çıkılması
If IsNull(Me.MTNTARIH) Or IsNull(Me.AKSEVKEDEN) Then MsgBox "tarih veya sevkeden boş olmamalıdır.": Exit Sub
'kayıt yapılacak tabloyu açıyoruz..
rs.Open "T_KAYITSEVKEDILEN", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'listenin başından sonuna gidecek for next döngüsü hazırlıyoruz..
For i = 1 To Me.LSTSEVKALT.ListCount - 1
rs.AddNew ' yeni kayıt ekler
rs("TARIH") = Me.MTNTARIH
rs("SEVKEDEN") = Me.AKSEVKEDEN
rs("TESHIS") = Me.LSTSEVKALT.Column(1, i) 'Me.AKTESHIS
rs("SEVKEDILEN") = Me.LSTSEVKALT.Column(2, i) 'Me.AKSEVKEDILEN
rs("SEVKEDILENSAYI") = Me.LSTSEVKALT.Column(3, i) 'Me.SEVKEDILENSAYI
rs.Update
Next
rs.Close
Set rs = Nothing
MsgBox "veriler aktarılmıştır."
End Sub
şu satırda sarı ışık yaktı..
rs("TESHIS") = Me.LSTSEVKALT.Column(1, i) 'Me.AKTESHIS