04/02/2020, 09:57
şu kod ile bir tablodan başka bir tablo oluşturuyorum ama otomatik sayıda eklemek istiyorum
Autoıncrement Prımary Key
bunu nasıl ekleyeceğim
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