ÇOK ÇOK TEŞEKKÜR EDERİM ELLERİNİZE SAĞLIK

Dim Sql As String



Dim db As Database

Dim rs As DAO.Recordset

Set db = CurrentDb()

SQL = "SELECT * FROM islemtab"

Set rs = db.OpenRecordset(SQL)

rs.AddNew

rs!SALONNO = Me.SALONNO

rs!ÜRÜNNO = Me.ÜRÜNNO

rs!MAKİNENO = Me.MAKİNE0

rs!BOY = Me.Metin4

rs.Update

Me.SALONNO = ""

Me.ÜRÜNNO = ""

Me.MAKİNE0 = ""

Me.Metin4 = ""



End Sub

KODUN AÇIKLAMASI NEDİR
SQL KOD NASIL ÖĞRENECEĞİM Vba KOD KİTAPLARININ FAYDASI OLUR MU KOD YAZMAYI ÖĞRENMEK İÇİN MANTIĞINI ANLATAN BİR KAYNAK VAR MI