access-vba

    1热度

    1回答

    我怎样才能制作一个文本框,当填写和点击输入,按输入的代码检查框? 数据库中每行有多个字段;问责制复选框,姓名,身份证号码,地址等......分别。我想要一个拆分表单,其中包含编辑查看每个配置文件的字段,然后是包含底部所有数据的表格。我想要有一个框,当输入ID号码时将选中问责框,然后我想要一个按钮,它将取消选中所有问责性复选框来重置它。 我会制作带有条形码和扫描仪的身份证,以便在代码后面打“ente

    1热度

    1回答

    我很新,所以我想知道是否有人可以帮我满足以下要求。我试图创建一个查询来提取表值将它们组合成一个独特的标识符(ID)分组在同一行。 我看过试图使用交叉表查询,但他们似乎更多的执行计算和使用PIVOT功能,但它也似乎不符合我的要求。 任何帮助真的很感激。请看下面的数据例子。 我的数据格式如下 ID EMAIL COMMENTS 1 [email protected] <TEXT> 1

    -3热度

    1回答

    如果已经得到解答,我表示歉意,但是我现在真的没有时间彻底搜索。部分原因是因为我在为工作而努力。我从手机上询问,所以我不能截图等。 我有一个建立在Access 2016中的数据库,并且有问题。 我有一个表格根据输入的内容更新表格,我希望查看表中是否有实际更新的内容,而不必打开查询和滚动结果。 我有一个宏设置为单击'update'按钮时运行,它根据特定字段的值运行不同的查询。 I.E. “如果字段=

    -2热度

    1回答

    我在Access 2016中有一对一关系的两个表,我希望在第一个键上输入一个值(整数),即“服务报告编号”以自动将其设置在第二个。

    0热度

    1回答

    我现在面临一个小问题。我的问题是,当我编辑我的子表单中的当前记录并单击“更新”时,它将覆盖我以前不记录的记录。 相反,我想从子窗体中添加我编辑的数据记录,并将其作为新记录插入到子窗体中,并使用与我正在编辑的PO编号相同的采购订单编号。 下面是我的代码: Private Sub cmdAdd_Click() 'when we click on button Add there are tw

    1热度

    1回答

    我在处理MS Access时遇到了一些问题。我一起使用SQL Server和MS Access。 我尝试将数据插入到新表中。 首先,该程序要求我将项目添加到列表中(它就像临时表)。然后,还有另一个确认数据的提交按钮(这一步是需要的,不是低效的,请不要询问这一步)。 要将数据添加到列表中,我使用存储过程。但是我不知道我需要怎么做再次提交数据。 这里是我的代码: Dim rs As ADODB.Rec

    0热度

    1回答

    我有一个带有选项卡控件的父窗体,每个窗体都有一个报表。我正在尝试在我的主窗体上放置一个命令按钮,以便在活动选项卡上打印报告。我强烈地试图避免在每个报告上放置“打印”按钮。 到目前为止,我已经做了以下内容: 1.I我使用这行代码来打开打印预览所选报告: DoCmd.OpenReport Right(Me!Rpt0.SourceObject, Len(Me!Rpt0.SourceObject) - 7

    1热度

    1回答

    我想验证我的Access窗体中的文本框中的条目。文本框背后的字段存储识别每个项目记录的项目编号。我们目前在文本框的before_update事件中有一个非常复杂的Do While循环,它可以成功地验证事件,但我正在收紧代码并希望了解如何进行更优雅的正则表达式验证。这是技术细节。 项目编号有一个标准格式,如PJ17-14-000,分成三个块,用破折号分隔。这是每个块的规则。 第一个区块是项目类型/会

    2热度

    1回答

    处输入时,在报告中出现一个标签和文本(折扣)。我难以使VBA或宏执行此功能。基本上,我正在制定一个MS访问销售服务系统和折扣部分所需的系统。这个概念是当用户在表单站点输入折扣的百分比并且在百分比为0时出现在报表中时,系统将隐藏折扣标签。 我尝试使用一些VBA代码,如 Private Sub txtDiscount_Click(txtDiscount As Integer) If Me.t

    0热度

    1回答

    已经运行一个程序数周,现在进入groomer时间到数据库。从来没有遇到过问题。 昨天第一次进入工作正常,没问题。 第二次输入时发生错误。 昨天没有时间看它,所以只是手动输入所有的时间。 今天同样的事情。第一次进入,完美运作,没有问题。 第二次输入,会引发错误。 的代码将停止在这条线: If DCount("[PetID]", "[TimeLog]", strCriteria) > 0 Then