Excel'e veri aktarıyorum aktarım sonrasında birincil anahtar olan (NO) otomatik sayıda gidiyor. Aktardığım excel'den tekrar access'e veri çektiğimde otomatik sayı alanı (NO) sorun çıkartıyor. Kısacası aşağıdaki kullandığım kodda nasıl bir değişiklik yapmalııyımki no alanını excele aktarmasın.
On Error GoTo Err_Komut33
Dim Klasor
Klasor = CurrentProject.Path & "\" & "BİLGİTAKİP (EXCEL OLARAK YEDEK)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,programın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "PERSONEL", Klasor, True, "ÇEKER BİLGİLER"
MsgBox "Dikkat programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
Exit_Komut33:
Exit Sub
Err_Komut33:
MsgBox Error$
Resume Exit_Komut33
End If