Butona tıkladığınızda ilgili
Excel dosyasını seçmek üzere yeni bir pencere alışması gerekiyor. Bende sorunsuz çalışıyor.
Excel dosyasını seçmeden çıktığınızda o uyarıyı almanız gerekiyor. Kodu aşağıdaki şekilde değiştirirmisiniz.
Private Sub Komut0_Click()
On Error GoTo Err_Komut0_Click
Dim Klasor As String
Klasor = GetOpenFile_CLT("D:\", "Aktarılacak
Excel dosyasını seç" & ".xlsx" & ".xls")
DoCmd.TransferSpreadsheet acImport, 8, "tblogrenci", Klasor, True, "a1:d1000000", 0
MsgBox "Aktarım Gerçekleşmiştir.", vbInformation, "Accesstr.net"
Exit_btn_aktar_Click:
Exit Sub
Err_Komut0_Click:
MsgBox "İlgili
Excel dosyasını seçmediniz.", vbInformation, "Accesstr.net"
End Sub