Kod:
Private Sub Liste7_DblClick(Cancel As Integer)
If IsNull(Me.Liste7) Or IsNull(Me.Kimlik) Then
MsgBox "Lütfen Deney veya kayıt seçiniz"
Else
CurrentDb.Execute "Insert Into Deney (LabNo,DeneyAdı) Values ('" & Me.LabNo & "','" & Me.Liste7 & "')"
Me.Alt5.Requery
End If
End Sub