Private Sub btnmalbilgikayit_Click() yordamını aşağıdaki şekilde yazalım.
Private Sub btnmalbilgikayit_Click()
strSQL = "SELECT * FROM tbl_GirenMalBilgisi "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.AddNew
.Fields("GirenMalID") = Me.txtmalID
.Fields("Material") = Me.txtmaterial
.Fields("Batch") = Me.txtbatch
.Update
End With
With rstkayit
'Aşağıdaki satırdaki kod işimizi görecek.
Liste66.AddItem Me.txtmaterial & ";" & Me.txtbatch
.MoveLast
showRecord2 intCount & " Kayıtta " & .AbsolutePosition
End With
End Sub
Yine olup olmadığı konsusunda dönersen sevinirim. Kolay gelsin