Question

我是一名新的访问程序员，我的任务是将旧的学校索引卡/ excel电子表格库存系统用于工作（实习）并创建一个访问数据库（因为实习生总是得到“有趣”的工作）无论如何，我说这里的其他情况太复杂了，因为我的很简单。我的功能如下：

Public Function PartNumMod()
On Error GoTo Part_Number_Macro_Err
    DoCmd.Requery "Subform1"
    Forms!Subform1.SourceObject = Queries![Part Number Query]
Part_Number_Macro_Exit:
    Exit Function
Part_Number_Macro_Err:
    MsgBox Error$
    Resume Part_Number_Macro_Exit
End Function

从名为“搜索表单”的表单上的按钮调用此函数。任何帮助将不胜感激。

SELECT Inventory.[PART NUMBER], Inventory.DESCRIPTION, Inventory.Location, Inventory.[B#9 Of], Inventory.[B#11 FM], Inventory.[B#14 DA], Inventory.[B#15 TL], Inventory.[B#16 WH], Inventory.[B#17 MH], Inventory.[B#22 TN], Inventory.[B#24], Inventory.QTY
FROM Inventory
WHERE (((Inventory.[PART NUMBER]) Like "*" & [Forms]![Search Form]![WhatPart] & "*"));

以下是所要求的部件号查询。

Answer 1

我发现了问题。我没有正确引用事物。以下是我的代码，全部都是漂亮的，准备好看日光。

'Tests to make sure that the subform isnt already loaded with the query
If Forms![Search Form]!Subform1.SourceObject <> "Query.Part Number Query" Then
   'In theory, this should change the source of the subform to display the part number query
    Forms![Search Form]!Subform1.SourceObject = "Query.Part Number Query"
End If 

'Runs the requery on subform to refresh
DoCmd.Requery "Subform1"

所以是的。解析度。让我们祈祷老板喜欢它。

谢谢你们，

Santh

在Access中有一个对象需要错误。这里的每一个其他情况都太复杂了

1 个答案: