access-vba

    1熱度

    1回答

    當我運行在訪問VBA的查詢下面時,它將日期更新到12/30/1899。請幫幫我。 DQRY = "Update " & tb & " Set ImportDate = " & Format(Now, "MM/DD/YYYY") & ";" db.Execute DQRY 而DORY當量至 「更新600_London_Name集ImportDate = 2017年9月26日;」 然而,我得到的

    0熱度

    2回答

    我在Windows 32位中使用了vba代碼。現在我已經遷移到Windows 10 64位,我收到了消息:「此項目中的代碼應該更新以用於64位系統,請檢查並更新Declare語句,然後使用PtrSafe屬性標記它們。」我有申報的命令如下: Public Declare Function GetUserNameEx Lib "Secur32.dll" Alias "GetUserNameExA" (

    2熱度

    1回答

    我試圖觸發按鈕,該按鈕將處理所選文檔的提取,一旦用戶雙擊表單中列出的文檔,如下面的屏幕截圖 所以我的屬性去和配置: Private Sub ParamName_DblClick(Cancel As Integer) call Forms!FormName.Extract_Click End Sub 沒有成功,我也試過: Private Sub ParamName_DblClick(Canc

    0熱度

    1回答

    我有一個訪問數據庫。我想調出一個帶有文本框的表單,然後讓用戶將條形碼掃描到該文本框中(15到20個字符)。將代碼掃描到文本框中對我的USB HID掃描儀非常有用,但一旦掃描了代碼,訪問權限就位於此處。 OnChange事件看起來是正確的方向。這是我的示例代碼。 Private Sub Text0_Change() Debug.Print Me.Text0.Value Debu

    0熱度

    1回答

    我想使用Alter Table語句將一些字段添加到表中。我想在添加字段時控制字段的位置。我嘗試了下面的語法,它會添加字段,但它不會被添加到位置2,它會被添加到表格中的最後一個位置。 這應該如何改變以控制添加的字段的位置? Set td = db.TableDefs("InformationSeminar") With td .Fields.Append .CreateField("Fi

    0熱度

    1回答

    如果有重新打開沒有訪問重載的關閉表單的方法? 我有一個Modal表單,我希望用戶填寫並且不希望他們離開那個屏幕直到數據填滿。 我試過剛剛重新開放,他們正在試圖關閉形式,但它重載訪問,並不會讓我做任何事情之後

    0熱度

    1回答

    我試圖用阿倫·布朗的ConcatRelated()功能,但我得到的錯誤: 錯誤3061:參數太少。預計1 下面是語法我輸入我的查詢 - > ConcatRelated("Product","[_ProdInfo]","OrderNumber = " & [OrderNumber]) 我應該怎麼改變,因此這不會產生錯誤並顯示結果我之後? 進一步解釋: 字段名稱是產品 表名是_ProdInfo 以

    0熱度

    1回答

    我在Access中使用VBA修改使用宏1的Excel工作表,並在使用宏2的表格中輸入它。當我連續運行這兩個代碼時,我的系統卡在一個循環中,但運行良好,如果我運行一個宏並運行宏2後重新啓動Microsoft訪問應用程序。有時,我正在運行我的代碼的Excel文件獲得一個彈出框啓用讀/寫訪問..可以有人幫助我嗎? 宏1 Function Clean() Dim CurrFilePath, Path

    0熱度

    1回答

    在where子句中使用它時,字符串中是否有任何特定數量的字符?在tempExtractedtbl MyString中的 SQL2 = "SELECT DISTINCT " & a & " AS MyString," & b & " FROM tempExtractedtbl" Set rsGenerate = CurrentDb().OpenRecordset(SQL2) Do While N

    0熱度

    1回答

    我使用這行代碼: Call SendTQ2XLWbSheetData("qryCustExportStyColOnlyDrop", "Data", "C:\Users\" & GetLogonName() & "\FWD Order Customer Export.xlsm") 調用和參數傳遞給這個函數: Public Function SendTQ2XLWbSheetData(strTQNa