小编D34*_*HxD的帖子

我正在尝试编写一个if语句,如果某个组合框是null,那么它运行代码的某一部分,如果它有数据,那么它运行另一个.我写了这个:

Private Sub ProjectAddSetDateAutoBtn_Click()
If ProjectAddAllDueDateAutoCmBx = Null Then
'Code1
Msgbox("ComboBox Is Null")
Else
'Code2
Msgbox("ComboBox Has Data")
End If
End Sub

我没有数据保留组合框,然后它不会在if的第一部分或第二部分的代码中运行代码!如果我在框中输入数据,它将完美地运行if语句的第二部分.没有错误,我对此非常难过.ComboBoxes有自己的"Null"吗？这个if语句有问题吗？

我正在寻找有关尝试通过文本框和按钮将数据添加到表/查询中的帮助。目前，有两个按钮将连接到文本框；搜索和添加。

搜索 我已经完成了，它搜索附加到表格的查询，以获取您在文本框中输入的输入。简单的。

虽然现在我还想制作一个添加按钮，一旦您将信息放入文本框中并单击添加而不是搜索，它会直接将该信息添加到表格中并保存它，以便您可以在以后的时间点查看.

这是我在网上某处找到的代码，但我不知道如何使用它从文本框中获取数据：

Private Sub Command344_Click()

INSERT INTO OrderT (CustomerName,OrderName,OrderDesc,DateOfPurchase,ProjectDueDate,EngineerDueDate,ProjectComplete,CutplanDueDate,MaterialSpecs,CutplanCode,HardwareSpecs,HardwareDueDate,HardwareComplete,PurchaseOrder,PurchaseSupplier);
VALUES (CustomerName,OrderName,OrderDesc,DateOfPurchase,ProjectDueDate,EngineerDueDate,ProjectComplete,CutplanDueDate,MaterialSpecs,CutplanCode,HardwareSpecs,HardwareDueDate,HardwareComplete,PurchaseOrder,PurchaseSupplier);

End Sub

按钮名称：Command344

文本框名称： CustomerName OrderName OrderDesc DateOfPurchase ProjectDueDate EngineerDueDate ProjectComplete CutplanDueDate MaterialSpecs CutplanCode HardwareSpecs HardwareDueDate HardwareComplete PurchaseOrder PurchaseSupplier

表中的字段名称相同，顺序完全相同，从顶部 -> 底部，左侧 -> 右侧。

表名是 OrderT。

表单名称是 SearchF

我试图通过按钮进行查询; 虽然它在JOIN操作中显示语法错误.当我点击它...我找不到语法错误,也许你们可以帮助我吗？这是代码:

   Set qdef = CurrentDb.CreateQueryDef("UnitMoreInfoQ", _
                                       "SELECT UnitsT.*, WorkOrdersQ.CustomerName, WorkOrdersQ.ClientName, WorkOrdersQ.WorkOrderNumber " & _
                                       "FROM UnitsT inner join workordersQ on WorkOrdersT.WorkOrerID=WorkOrdersQ.WorkOrderID " & _
                                       "WHERE UnitsT.UnitID = " & txtWorkOrderID.Value)