Çok soru geldiğinde bazen böyle gözden kaçma veya geç cevap verme durumları olabiliyor.
Anladığım kadarıyla sizin için ekteki örneği yaptım.
Private Sub Komut8_Click()
Dim RS As ADODB.Recordset
Dim strSQL As String
Dim Numune_ID, Deney_ID
'-----------------------------------------------------------------------
' Kayıt İşlemleri
'-----------------------------------------------------------------------
strSQL = "Select * From Deneyler"
Set RS = New ADODB.Recordset
RS.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For Each Numune_ID In Me.Liste_Numuneler.ItemsSelected
RS.AddNew
RS("Lab No") = Me.Liste_Numuneler.Column(0, Numune_ID)
RS("Numune No") = Me.Liste_Numuneler.Column(1, Numune_ID)
For Each Deney_ID In Me.Liste_Deneyler.ItemsSelected
Select Case Me.Liste_Deneyler.Column(0, Deney_ID)
Case "pH"
RS("pH") = True
Case "EC"
RS("EC") = True
Case "Tuz"
RS("Tuz") = True
Case "Sıcaklık"
RS("Sıcaklık") = True
Case "Oksijen"
RS("Oksijen") = True
End Select
Next Deney_ID
RS.Update
Me.Liste_Numuneler.Selected(Numune_ID) = False
Next Numune_ID
RS.Close
Me.Numuneler.Requery
'-----------------------------------------------------------------------
End Sub
Notlar:
* Tablo alan adlarında boşluk kullanmayın. Örneğin; "Lab No" değil "LabNo" veya "Lab_No" kullanın.
* Formlardaki kontrollerin isimlerini anlaşılır yapın. Örneğin; Liste0 yerine Liste_Numuneler kullanın.