نوشته شده توسط
iransim
سلام و عرض ادب
ممنون از توجه و راهنمائی جنابعالی
با عرض پوزش ، من متوجه فرمایش شما در خصوص مثل نمونه هست نشدم ، چون گزینه اول برای خروجی گرفتن هست و مورد درخواستی و مورد سئوال من برای دریافت اطلاعات از فایل اکسل هست
با احترام امکانش هست روی فایل ارسالی موارد مورد نظر رو پیاده سازی نمائید ؟
بسیار سپاسگزارم
سلام، کد شما رو به این شکل نوشتم، ببینید مشکل برطرف شده.
Private Sub Command15_Click()
'------------------------------
On Error GoTo Problem
'------------------------------
Dim f As Object
Dim strFile As String
Dim varItem As Variant
Set f = Application.FileDialog(3)
If f.Show Then
For Each varItem In f.SelectedItems
strFile = Dir(varItem)
Next
If Not IsNull(txtTblName) Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, txtTblName, strFile, True
Me.Requery
MsgBox "˜ÇÑÈÑ ÑÇãí :ÇØáÇÚÇÊ ÇÒ ÝÇíá ǘÓá ÏÑíÇÝÊ ÔÏ", vbOKOnly + vbInformation + vbMsgBoxRight, "íÇã Èå ˜ÇÑÈÑ"
Else
MsgBox "لطفا نام جدول را انتخاب کنید", vbOKOnly + vbInformation + vbMsgBoxRight, "íÇã Èå ˜ÇÑÈÑ"
txtTblName.SetFocus
Exit Sub
End If
End If
'------------------
Problem:
If Err.Number = 2391 Then
MsgBox "˜ÇÑÈÑ ÑÇãí : ÝíáÏåÇí ÌÏæá ãÈÏÇ æ ãÞÕÏ åãÎæÇäí äÏÇÑÏ", vbInformation + vbMsgBoxRight + vbOKOnly, "ÇØÜÜáÇÚ ÑÓÇäí"
Else
MsgBox "ÚãáíÇÊ ÏÑÎæÇÓÊí ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ ", vbInformation + vbMsgBoxRight + vbOKOnly, " ÇØÜÜáÇÚ ÑÓÇäí"
End If
End Sub