小编Ste*_*eve的帖子

我得到一个run time error 2185,"你不能引用控件的属性或方法,除非控件有焦点......".

这是我正在使用的代码.

Private Sub Command5_Click()
    Dim cardno As Integer
    cardno = cardnumber.Text
    DoCmd.OpenForm "search_card_number", acNormal, , WHERE & cardno = [Account Number]
End Sub

我必须通过vba将包含多个工作表的一个excel文件导入到访问表中,但下面列出的当前代码只会复制excel的第一个工作表记录并导入到访问表中,所有工作表都具有相同的格式和布局.如何使我的代码能够复制所有工作表的记录并导入到访问中的表中.请随时回答这个问题并感谢您的回答.

 Private Sub Command9_Click()


       ' Requires reference to Microsoft Office 11.0 Object Library.

   Dim fDialog As FileDialog
   Dim varFile As Variant

   ' Clear listbox contents.
   'Me.FileList.RowSource = ""

   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog

      .AllowMultiSelect = False


      .Filters.Add "Excel File", "*.xls"
      .Filters.Add "Excel File", "*.xlsx"

      If .Show = True Then

         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
         ' Label3.Caption = varFile

         Const acImport = …