سلام دوستان
من با استفاده از کدهای زیر اطلاعات موجود از فایل اکسل رو ( با شرط حذف اطلاعات قبلی ) به بانک اکسس برنامه اضافه میکنم
Dim f As Object
Dim strFile As String
Dim strFolder As String
Dim varItem As Variant
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then
For Each varItem In f.SelectedItems
strFile = Dir(varItem)
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM tblTak"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "tbltak", strFile, True
Me.Requery
DoCmd.SetWarnings True
Next
"اطلاعات از فایل اکسل دریافت شد" msgbox
End If
حال میخوام شرطی بزارم که اگر فیلدهای موجود در جدول اکسل با جدول TblTak اکسس همخوانی نداشته باشد ( Error 2391 ) یک پیام خطا صادر و از حذف اطلاعات موجود در جدول جلوگیری کنه
اگر لطف کنید و راهنمائی کنید ممنون میشم
البته از کدهای زیر استفاده کردم ولی جواب نگرفتم و بازم اطلاعات جدول حذف میشه
Problem:
If Err.number = 2391 Then
"فیلدهای جدول مبدا و مقصد همخوانی ندارد" msgbox
Exit Sub
End If
پاسخ با نقل قول
نوشته شده توسط amirzazadeh
