access-vba

    1热度

    3回答

    我需要为其屏幕不像其他人那样大的用户调整大小的弹出窗体 - 将窗体设置为Popup和Modal以及BorderStyle Resizable有一个主要限制 - 代码现在启动弹出框的表单不会等待表单返回。 那么,如何让一个表单等待隐形?我尝试使用sleep和doevents循环,但这会使弹出窗体不能很快响应,并且会嚼碎CPU周期。我已经尝试设置启动窗体的form.gotfocus事件,但不会触发,这

    0热度

    2回答

    我需要一个访问函数,其输出将在100%的时间内与excel工作簿函数匹配。 这个问题困扰了我多年。互联网上有很多代码,但输出与excel不匹配。 下面的代码是最后为我工作的代码。

    -2热度

    1回答

    我希望跟踪时间戳,以便在用户从选项组复选框中选择“是”复选框并将相同的另一个字段选为“否” 。请帮我解决一下这个。 基本上我想跟踪访问表单中的是复选框时间戳和无复选框时间戳。

    2热度

    1回答

    我在MS Access表中持有人员的详细信息(tblStaff): | Employee ID | Employee Name | Manager ID | Manager Name | -------------------------------------------------------------------- | 205147 | Bobby Fischer | 20115

    0热度

    1回答

    我有一个带有组合框和子窗体的未绑定窗体。当我删除此表单上的记录时,组合框不会刷新,除非我完全关闭并再次打开它。甚至尝试通过将行源设置为“”然后返回到查询手动刷新组合框。仍然没有运气。 这里是我的删除代码: Sub DeleteFS(iID As Integer) Dim strSQL As String Dim strSQLAmend As String Dim

    0热度

    1回答

    我将从访问中生成一个文档,并希望在文档中使用字段代码“ListNum”。我有以下宏从MS字正确运行时正确地将字段代码添加到文档中。 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "LISTNUM LegalDefault ", PreserveFormatting:=False 然而

    0热度

    1回答

    我有一个表单,我不希望用户能够输入具有相同名称的联系人。 窗体上有一个保存按钮。要检查重复的那个按钮的代码部分是: - If Me.DataEntry = False Then Else 'Check for duplicate contact If DCount("[ContactID]", "tblContactsNew", "[first_name] = " & "'"

    1热度

    2回答

    我有一个Access数据库有一个复选框,我需要查看它是“假”还是“真”,因为我从记录到记录。如果复选框为true,则标签的字体颜色和名称应该更改。 这是我的代码,但它不能正常工作: Private Sub Check796_Click() lngRed = RGB(255, 0, 0) lngBlack = RGB(0, 0, 0) If Me.Check796 =

    3热度

    3回答

    我正试图从Excel文档中将特定列转移到Access数据库中的表中。例如我的Excel工作表可能包含以下内容: Date Last First Gender Month School Grade 10/1 Rode Danny Male Sept. Ro ISD 10 10/2 Dode Manny Male Sept. Ro ISD 11 而且我对我的数据库学生表可包括以下字段:

    -1热度

    1回答

    我有一个多VBA形式,第一种形式从组合框需要用户名和一个全局变量保存它,代码如下: Option Compare Database Public emplID_global Private Sub OKLogin_Click() If Not IsNull(Me.Combo_emplID) Then emplID_global = Me.Combo_emplID.Column