ş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

Önceki mesajınıza eklediğiniz örnek üzerinde kodu denedim, teshis açılan kutusu boş olunca hata veriyor. Bu alanın boş geçilmemesi için kod eklemelisiniz.

Uygulamanın çalışma prensibini bilmediğim için kod üzerinde düzeltme yapamayacaığım

bende açılan kutu dolu olduğunda da hata veriyor ama aslında yapmak istediğimi yapamadım ben listeden bilgileri alığ tabloya aktardım.. tablodan tabloya nasıl aktarabilirm ?

tamam kayıt işlemini insert into ile halettim... fakat iki sorun daha oldu. birincisi F_SEVK formunda + ekle işlemi yaptığımda listeye sayılar geliyor metin olarak gelmiyor. ikincisi ise insert into kayıt ya tabloda bulunmayan formda ki metin ve sevkedilen kutularını nasıl ekleyebilirim.

tabloya "kara ambulansı" yerine 1 yazması doğru.

LSTAMBULANSALT alt formunun satır kaynağını T_ALTAMBULANSTURU yerine sayı yazan satırlar ile ilgili tablolarıda ekleyip sorgu oluşturursanız sayı yerine ilgili metin yazar.

Ekteki uygulama düzeltilmiş halidir.

Site Kuralları gereği 2. sorunuz için yeni konu açmalısınız.

teşekkür ederim hocam sorun çözülmüştür?