ş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
Sub sqql(v AsString)Dim Sql AsStringDim 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
EndSub
kodları ile sno adında otomatik sayı eklenir. Üstteki otomatik sayı ekler, alttaki birincil anahtar ekler. Bu kodları, end sub'un üstüne yazarak deneyiniz.
Bu site, içeriği kişiselleştirmenize, deneyiminizi uyarlamanıza ve kaydolduğunuzda oturumunuzu açık tutmanıza yardımcı olacak çerezler kullanır. Bu siteyi kullanmaya devam ederek, çerezleri kullanmamıza izin veriyorsunuz.