[vb]
On Error GoTo Hatada 'Hata olduğunda
Dim ObjQry As DAO.QueryDef 'Objemizi tanıtıyoruz QueryDef
Dim Sql As String 'Sorgumuz için Sql cümlemiz

Sql = "SELECT * FROM TabloAdimiz WHERE ID=1" 'SQL Cümlemiz
QryName = "SorguAdimiz" 'Oluşacak sorgunun adı
Set ObjQry = CurrentDb.CreateQueryDef(QryName, SQL) 'Sorgumuzu Yaratıyoruz

Hatada:
If Err.Number = 3012 Then 'Yaratılan sorgu varsa 3012 hatası verir

Arkadaşlar formdan taloya [fgplt] ve [fyil]  alanlarını +1 artırarak istenilet sayıda kayıt işlemesini nasıl yaparız.

Private Sub fcoklukyt_Click()
   Dim rs As Recordset, rs1 As Recordset
    Dim t As Integer
    Set rs = CurrentDb.OpenRecordset("select ISTARIH, SANTIYE, UGRUBU, KALITE, VARDIYA, MUSTERI, URUN, YUZEY, BOY, EN, KALINLIK, BIRIM, ADET, METRAJ, KMETRAJ, BARKOD3, PLTADET, PLTNO_GUN, PLTNO_YIL")
    Set rs1 = CurrentDb.OpenRecordset("ETIKET_GIRIS")
    rs.MoveFirst
    Do Unt