计算日期内多少周末？
我需要计算多少个周末2日期内？我的意思是，我有两个日期，并想知道周六和放大器的数量;这些日期之间的星期日。 我对每条记录的2日期（从日 - 至今），想查询周末的计数。 解决方案 下面的VBA功能将允许你运行表单的访问查询 SELECT CountWeekendDays（[日期]，[最新]）作为WeekendDays从YourTable 就在Access中创建一个新的模块并粘贴以下
..
Access
检查移动数据时，值已更改
我已经建立了移动值内约10个不同的表从一个数据库到另一个宏了。它需要一个唯一标识，所以说列“NID”和检查，看它是否已经存在于新的数据库中，如果没有匹配它移动的数据，如果有一个匹配，它已经存在，它没有。 本宏工作正常不过，我想它检查是否值已经存在，如果它要检查每列的任何变化，如果有变化的值的移动新值过。例如对新数据库的原始数据库更新密码更改。 某些表有多达50列，以手动循环每一个都将是一个很长
..
访问删除命令问题
我仍然工作走这种形式，现在我ecountering与删除code部分的错误。我相信这是有一个问题，认识我选择什么，但我可能是错的。该错误信息读取运行时错误3265没有找到在此集合 整个code读取： 私人小组cmdDelete_Click（） “删除记录 “检查现有的选择的记录 如果不是（Me.TableSub.Form.Recordset.EOF而Me.TableSub.Form.Recor
..
工作code导入超过255个字段制表符分隔txt文件分为两种访问表
这code以下将进口超过255个字段制表符分隔文件转换成两个表。只要确保当你设计所有的领域都为字段正确的数据类型被导入了两个表。我最初是通过使用Access导入文本文件向导创建我的表。使用向导前我删除了255场后，创建了第一个表，然后删除了前255个，创建第二个表。希望这可以帮助别人，并感谢大家在下面谁帮我这个项目。 公用Sub ImportTextFile（） “使用ADODB.Record
..
如何强制访问组合框的更新？
有没有一种技术，我编码自己的状态时，可俯瞰？ 我有一对层叠的连击。 ComboSource筛选可供选择的ComboInformation 选项 ComboInformation设置表中的一个必填字段的内容 行来源为ComboSource是： SELECT tblSource.SourceID，tblSource.Source 从tblSource ORDER BY tblSourc
..
如何创建具有时间和日期戳在访问一个评论框
有Access 2010中所谓的联系人的模板。在窗体上有一个评论框，它下面的文本框和一个按钮。当你进入到文本框，然后点击该按钮将其添加文本批注框和时间/日期戳它。如果你做一遍它preserves在评论栏中旧文本，并添加下面的新文本。 我是pretty的新的访问，但我希望能够将此功能添加到我的数据库。 所以，我得在桌子上，形式以及输入文本框和按钮的窗体上的备注字段。有谁知道我在这里做的就是这个功
..
增量编号的MS Access VBA
我需要能够创建一个唯一的编号，它使用的日期，在文本框中选择。并且当存在一个以上的记录与该月/年，我需要它来计算与该月和年的记录数，并创建加一的ID。因此，如果有4例为2013年10月份，我需要它来创建的ID如下： CEF-1013-1 CEF-1013-2 CEF-1013-3 CEF-1013-4 如果有以下的code： 私人小组Text0_AfterUpdate（） “创建基于日
..
结合接入领域到一个场给出两个查询
我的 N 的MS接入领域，需要每行检查一个法律单元。一个合法的电池根本没有价值“失踪”，“未知”;或不为空。所有这些细胞将被合并成一个单一的字段仅包含细胞与合法值 参考下面的表格， Name_Final 将包含从 Name_2010 ， Name_2011 和 Name_2012 。 我已经有两个单独的查询，帮我做的工作，但我需要他们的结果结合起来，为了让我得到了 Name_Final
..
自动生成号码
我需要自动生成一个跟踪号码。 我说这在行动“插入之前”（见下文），但我9号之后有问题。 我！[追踪＃] = NZ（DMAX（“[跟踪＃]”，“[TblTrackingNum]”），0）+ 0.01 我的追踪号码总是启动与89669.这code工作，直到达到十号。 追踪号码应该这样做： 89669.1 ... 89669.2 ... 89669.3 ... 89669.4 ... 89669
..
[否当前记录＆QUOT;在acCmdSaveRecord错误时更新前被取消
我用 RunCommand acCmdSaveRecord 保存记录，而我试图使用表单的更新前事件验证某些领域，我不希望被留空在保存记录之前。 我有点新的使用更新前所以我不知道如果我正确地使用它;这里是我的更新前 code： 私人小组Form_BeforeUpdate（取消作为整数） 如果ISNULL（ME [名]）或ISNULL（Me.LastName）或ISNULL（Me.DateOfBir
..
哪些对象进行全局，这使当地的？
要避免谁不喜欢的一般性问题的版主，这是一个Visio VBA之一，但我不希望包括在标题，因为它是一个有点小众，我想答案可能是通用的:-) 我的code具有以下变量： 公共gappVisio作为Visio.Application 公共gdocFile作为Visio.Document 公共gpagDiagram作为Visio.Page 对于那些unfamilar使用Visio，您创建一个应
..
嵌套if then语句，正确的方式来处理
私人小组btn_Click 昏暗intAnswer为整型 如果txtAddress＆LT;＆gt;“中”那 intAnswer = MSGBOX“你要保存”，vbYesNo 如果intAnswer = vbNo然后 其他 做的事情 结束如果 结束小组 注意第二个然后语句是空白，我希望它去的else语句。我的大脑是玉米粥和放大器;我告诉自己最初做了 SELECT CASE ，
..
Excel中VBA排序 - 错误从Access 2007的自动化，当
我写了一些code在Excel 2007中的VBA，其中包括一些排序，并能正常工作在Excel中。现在，我试图把它从Access 2007年的工作，自动化Excel。 当我得到的应用方法，我得到这个错误： “排序引用无效。请确保它是你要排序的数据中，和第一排序中是不一样的或空白” 但两者的排序键是我要排序的数据中。此外Add方法的关键参数是完全合格的。 下面是我的code。首先，这是在Ex
..
复位计数器ID为1，在MS Access每个新的一年
我有两个表， tblContacts 和 tblTrackJob 。每当一个新的纪录即将在 tblContacts 添加，ID喜欢它的 JobNo 字段分配给的值无论 ID 是 tblTrackJob 已储存。编号样的值，以每年重置为1。 例如... 姓，名，JobNo，dateEntered 王富强01 2013年1月1日 李四02 2013年1月2日 玛丽·托马斯03 2013年1月
..
导入的.xls访问的.mdb：外部表不是预期的格式
我有一个宏，进口为preadsheet如下：（这个S preadsheet是一个基于Web的应用程序中的出口，以及初始出口时所选择的格式为97-2003） DoCmd.TransferS preadsheet acImport，ACS preadsheetTypeExcel12，“d2s_safety_tbl”，_ “\\ company.com \ dfsroot $ \共享\ office
..
将焦点设置子窗体
我有嵌入控制两个子形式（就是那个看起来像一组文件夹，让您从标签变为标签......对不起，我不知道英文名字）.. 两个子形式被嵌入到一张纸上，我想立即执行程序后，我写了子窗体中的一个，该组的重点则转到其他子窗体。 由于一些奇怪的原因，我不能得到它的工作。子窗体和字段我试图去是frmObjectives03和EFFECTIVE_DATE。 我想： 表格！frmObjectives03！Effe
..
是否进入VBA有Listbox.List方法为Excel VBA有
我在写code在列表框项目的访问VBA来上下移动。需要使用的.List物业的访问。但是，它抛出一个错误说没有一种方法或成员发现。任何与更换的.List的方法？研究这个超过4天。 私人小组cmdUP_Click（） 暗淡我只要 昏暗leaveAlone由于布尔 昏暗的POS机只要 昏暗的温度作为字符串 POS = 0 随着Me.lbfNames 对于i = 0到.ListCount -
..
自动筛选Excel中使用VBA
我想从Access中打开Excel和应用过滤器的片材。 下面是我的code： 暗淡参考译文]字符串 设置oApp =的CreateObject（“Excel.Application”） oApp.Wworkbooks.Open文件名：=“dudel.xlsm” oApp.Visible = TRUE S =“AB” 随着oApp .Rows（“2：2”），选择 .
..
放大的报告
我试图建立形式弹出放大，这将放大嵌在标签控件嵌入在窗体的报告。我在框控件变焦称为txtzoom。在codeI想到会工作如下所示 私人小组Form_Open（取消作为整数） Me.txtZoom =表格（“frmContactsSwitchboard”）。报告（“rptContactPage05”）！注 结束小组 我的计划是要能够放大到一个领域，并能够对其进行编辑..我不知道这是可能的。
..
方案变动形成不会救
有没有人有一个想法可能prevent的这些命令与实际储蓄的一种形式？是否有我失踪，可以使形式设置“只读”？我切换负载窗体上的control.enabled属性，但我没有看到使它坚持一旦我关闭的形式。 DoCmd.Close acForm，Me.Name，acSaveYes DoCmd.Save acForm，Me.Name 编辑： 有些伪code澄清。 此功能运行在窗体加载启用/禁用某
..