şu kodu denedim

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