access-vba

    0热度

    2回答

    所以我一直负责创建一个跟踪数据库&我遇到了一个让我发疯的问题。 我已经创建了一个输入表单,并且为了便于使用,我需要创建自定义导航按钮,我已经完成了这个工作,并且它们工作正常。 我已添加代码到当前事件以禁用按钮,如果在第一条记录/最后一条记录 - 再次这工作正常。 这是我卡住的地方,只要我禁用了内置的导航按钮,它就会禁用我创建的自定义按钮。如果我删除当前的事件代码,他们再次工作,但不是我打算如何。

    0热度

    1回答

    我的VBA代码,我得到了与它的数字和一个按钮列表框,我想在列表框中显示的数量,你以另一种形式选择 例如我想从1买了数字键的10,如果我选择3,我想接下来的形式展现你买了3个按键 Private Sub List28_Click() If Not IsNull([num of keys]) Then Forms! [navigation forms].Form.[navigationsubfor

    0热度

    1回答

    Private Sub bBrowse_Click() Const msoFileDialogFilePicker As Long = 3 Dim objDialog As Object Set objDialog = Application.FileDialog(msoFileDialogFilePicker) With objDialog .AllowMulti

    0热度

    1回答

    我试图将某些个人分类为“Flights”。飞行中不能超过10人,并且我正在循环查看记录集,根据现有航班中的人数来确定每个人应该乘坐哪个航班。 所以它应该理想地看看表,做的人的数量的动态计数飞行1,如果这个数字是< = 10,然后继续前进,写记录,如果不增加航班数量,并再次去,直到所有的运动员都被分配。 记录集似乎并没有表明它何时到达EOF并且一直跳回到Move First,并且它无止境地循环遍历记

    0热度

    1回答

    我正在回收旧数据库中的代码。 对于一个人,位于全国各地的一半,我相信可能有一些连接问题。 Public Function BackUpBackend() Dim Source As String Dim Target As String Dim retval As Integer Source = "\\network\backend\accessfil

    0热度

    1回答

    我正在使用下面的代码来审计我的表单以进行更改。当我使用tbl_MBR上的ID字段“MBRID”时,它可以很好地工作。但是,当我使用tbl_ItemMaster上的ID字段“IMID”时,出现错误:无法找到表达式中引用的字段“IMID”。任何想法为什么IMID无法找到? Private Sub Form_AfterDelConfirm(Status As Integer) If Status =

    0热度

    2回答

    我有一列有数据,如year(date)或date-365。 如何将此文本用作代码而不是文本?意思是,我希望能够做到像 me.ProjectName="ddddd " & MyColumnWithCode ,并得到ddddd 2017或ddddd 10/21/2016 我做了谷歌在各个方面我能想到的,并没有得到任何东西。

    0热度

    1回答

    Hy人人专家! 我想通过从MS Access中的子窗体中选择一行来填充主窗体,但它不工作, 这是主窗体! 在主要形式的每个控件绑定到数据源。 这是子窗体! 在这种形式我想通过选择任何行形成子表单来填充行数据的主要形式。当我标记红色。当我选择它时,它应该自动填入主窗体。我试图通过调用这样的参考。 me.ShiftProdRecord2_Query_SubForm = textbox.value

    0热度

    1回答

    使用DoCmd.TransferText()时,我的SCHEMA.INI文件被忽略 我SCHEMA.INI文件被ignored.I得到相同的结果我是否在同一个文件夹中的文件scheme.ini我的标签文件与否。所有的列结束在一个列中。我正在尝试使用schema.ini,因为我正在导入制表符分隔的文件。如果尝试导入逗号分隔文件,结果非常有意义。 所以我的假设是,schema.ini文件被忽略。 我正

    0热度

    1回答

    我正试图将一个窗体/子窗体名称传递给一个函数,但没有成功。该功能通过子窗体上的每个.Control控制,并执行一组简单的查询操作。我的代码正常工作与表单/子表单名称硬编码;我正在寻找更通用的方法。 在函数调用中获取类型不匹配错误,使用和不使用引号。 实施例: 'Function Call call AuditChanges("forms![someForm]![someSubForm]"