Autoıncrement Prımary Key
bunu nasıl ekleyeceğim
Sub sqql(v As String)
Dim Sql As String
Dim dbs As Database
Set dbs = OpenDatabase("C:\Users\doktor2\Desktop\pmf\_udemy\egitim.accdb")
Sql = "SELECT liste_tam.FABRİKA as fabrika, liste_tam.DEPARTMAN as departman, liste_tam.[GÖREV TANIMI (AS400)] as gorevas," _
& " liste_tam.[GÖREV TANIMI (İSO)] as goreviso, liste_tam.SİC as sicil, liste_tam.V as vardiya4," _
& " liste_tam.ADI as isim, liste_tam.SOYADI as soyisim, liste_tam.[İŞE GİRİŞ T] as isgirtar" _
& " INTO liste6" _
& " FROM liste_tam" _
& " WHERE (liste_tam.SİC) Is Not Null AND (liste_tam.V) Like '*" & v & "*'" _
& " ORDER BY liste_tam.FABRİKA, liste_tam.DEPARTMAN, liste_tam.[GÖREV TANIMI (AS400)], liste_tam.[GÖREV TANIMI (İSO)];"
dbs.Execute sql
dbs.Close
End Sub