正如问题所说。该表没有定义主键。数据库中的其他表在压缩后不会更改,也没有定义主键。如果没有主键,Access可以根据需要自由重新排列表中的行。我的猜测是,效果取决于表的使用模式。删除行时,数据库只会将其标记为已删除。压缩时,它会通过用未删除的行覆盖已删除的行来回收空间。如果一个表有一个主键,那么数据库将在这个过程中小心地保留行顺序(这是一个非常昂贵的操作);否则,它就不会。如果没有主键,Access可以根据需要自由地重新排列表中的行。我的猜测是,效果取决于表的使用模式。删除行时,数据库只会将其标
我需要从MS Access数据库发送一系列电子邮件通知
没有第三方dll像赎回一样
无法触发outlook安全警告
电子邮件将有一个pdf附件
我知道要做到这一点,我需要使用MAPI,但我似乎找不到用VBA实现这一点的方法
任何帮助都将不胜感激
谢谢
Scott如果用户已安装outlook:
Dim strErrMsg As String 'For Error Handling
Dim olApp As New Outlook.Application
Dim olNameSpace As O
我有一个VBA函数,它返回一个布尔值。我有一个调用此函数的查询:Expr1:IsValidEmail([E-Mail])。当我运行查询时,它显示-1表示True,0表示False。到目前为止还不错
现在我想过滤查询,只显示无效的电子邮件。我使用的是查询设计器,所以我只需在条件字段中添加一个值0。这给了我一个“数据类型不匹配”错误。“0”(带引号)和False也是如此。如何为布尔函数指定条件?对于布尔列,“0”肯定会导致“条件表达式中的数据类型不匹配”错误。但是,不带引号的0或False应该可以工
我需要在午夜每24小时运行一次进程。不管是12:00:00还是12:00:03,只要是午夜左右就行
我是否需要一个计时器控件来检查每分钟的时间,或者是否有更复杂/更简单的方法来执行此操作
检查当前是否为午夜的if语句是什么?是否可以使用任务计划程序运行vbs文件,该文件可以使用ActiveX运行数据库中所需的代码是否需要让数据库始终处于打开状态
如果没有,考虑在午夜创建一个带有Windows调度器的任务来打开数据库。使用autoexec宏,在数据库打开时启动进程
如果不希望每次打开数据库时都运行
我要一张有datetime列的桌子
让我们将其命名为TmStamp,数据为01/01/2001 01:00:PM
还有另一个日期列,我们用数据01/01/2001将其命名为RegDate
我想选择具有该日期的数据
所以我写
SELECT * FROM TABLE WHERE RegDate>=#01/01/2001# and RegDate<=#01/01/2001#
我得到了2001年1月1日的数据
但是,
SELECT * FROM TABLE WHERE TmStamp &g
我在MS Access数据库中有一个表单,它列出了带有订单号的订单,每页一个订单。表单底部有一个按钮,用于打开另一个表单,为订单添加项目
我正在尝试使用MS Access中的vb获取订单号,并自动将其放入新项目详细信息表单中的字段中。我尝试了不同的方法,但似乎推荐使用OpenArgs。但是详细信息表单不会打开,我会收到运行时错误。
以下是问题的详细信息-非常感谢您的建议:
所涉及的表格和字段包括:
带订单的表格为FRMPEDIDOAVIFIND
带有订单行的表单为frmPedidoAvifi d
我们正在努力减少access数据库中的重复代码。我们有几个表单,在这些表单上使用下面的代码
strSQL = "Some SQL"
Me!cboClientName.RowSource = strSQL
Me!cboClientName.BoundColumn = 2
Me!cboClientName.ColumnCount = 2
Me!cboClientName.ColumnWidths = "0cm ; 2 cm"
我想做的是创建一个子例程并将表单传递给它,然后用对象替换Me
所以我现在
我想知道这是一个bug还是什么,但是x轴为什么不能在Access 03的散点图中工作呢。我使用的是Windows7操作系统,使用的是MicrosoftAccess图形(不是excel)。基本上,如果我做一个散点图,x轴的值都会以1的任意值对齐。y轴工作正常。出于信息目的,我发现我看错了图形。我认为plot graph读取的查询值如下所示:
X1-Y1
X2 Y2
X3 Y3
当它真的像这样工作的时候
Y1 Y2 Y3
x1x2x3
更新:若要更改它,使其以我最初期望的方式读取查询数据,请
我有三张桌子:年份、球队、球员。
我有很多教练
我试图实现的是附加到coach id的子表单。
到目前为止我还行,但我的逻辑变得模糊了:在子表单中,我希望能够选择教练为冠军球队工作的年份,然后只显示所选年份的球队,然后只显示该球队当年的球员
因此,我有一年的时间回顾,比如说50年,每年参加锦标赛的球队以及当年为球队效力的球员。
因此,如果我选择1984年,当我选择一支球队时,它只提供1984年可用球队的选择,然后当我选择一名球员时,它只显示1984年该球队的球员
我有一种感觉,我需要创建一些查询
access报告具有以下脚本。
报告有许多记录(或数据行),每个记录都有文本框CompColor。
因此,根据您在报告中单击的文本框,报告将所有CompColor文本框的颜色设置相同。如何根据在该文本框中输入的值使每个值正确
Private Sub Report_Current()
Select Case Me.CompColor
Case "Green"
Me.CompColor.BackColor = vbGreen
Case "Red"
Me
我在这里建立了一个简单的数据库(Access 2007格式):
我有两张桌子:
任务清单
组织名单
我想要一个表单“AssignOrgs”有一个从OrgList表中绘制的下拉列表,我已经完成了。我将其设置为在下拉列表中显示几个内容:组织名称和组织类型。例如,下拉列表显示以下两列:
airline | American Airlines
airline | United Airlines
eCommerce | ebay
eCommerce | Amazon
如果查看“组织列表”表,您将
我有一个名为ECD的表,如下所示:
Cle2 Mont Lettrage
acbd.... +8,36 Suspens
abcd... -8,36 Suspens
dced.. +12,89 Suspens
dced.. -12,89 Suspens
其中
如果MDB文件相对较小(即0-200MB),是否有理由在该文件上运行JETCOMP.EXE或任何其他压缩方法
我可以理解,如果它正在接近一个大小限制(例如,1GB的一些旧的MDB格式),那么它将是有意义的,但有任何其他需要吗
无法运行JETCOMP(或类似)会导致数据损坏问题吗?Access数据库非常容易发生数据损坏,尤其是在通过网络共享数据库时。偶尔运行压缩和修复以确保数据库处于最佳状态不会有什么坏处。在任何大小的Access数据库上运行常规压缩都是一种好做法,因为它有几个好处:首先是文件的大
我的Access客户端中有一个搜索结果表单,它使用了在acDialog模式下打开表单的技巧。如果用户取消搜索,则表单会自动关闭;如果用户选择了其中一个搜索项,则表单会将结果写入未绑定字段,然后使其自身不可见
调用代码将挂起(由于acDialog模式),直到上一段中描述的两个事件之一发生。调用代码检查表单是否仍在加载-当它知道已请求搜索项时,因此它从表单检索该项,然后将其关闭。如果表单尚未加载,我们假定选择了取消路由
搜索结果数据源是一个select语句“select*FROM details O
我正在使用access创建表单
当我单击按钮时,我想知道如何获取当前记录id。
我在vb按钮代码中尝试了“Me.CurrentRecord”。但这并没有起作用。
有人能帮忙吗
Private Sub save_record_Enter()
Me.CurrentRecord
End Sub
您可以按名称引用MS Access中基础记录集和表单控件中的字段,例如:
Me.ID
MsgBox Me.ID
Me.txtID
您可以按名称引用MS Access中基础记录集和表单控件中的字段,
我有一个数据库。我将表导出到xlsx。然后我使用openOffice将其保存为.ods
因为我发现phpmyadmin mysql不再支持excel文件。我将mySQL数据库的格式设置为完全可以接受数据的格式。我明白了,除了一个小细节外,一切似乎都很好
在某些字段中,该值为NULL,而不是根据.ods文件应具有的值。有些行正确显示该字段的相同值,有些行显示NULL
此外,“错误”行中的一些字段显示了导入文件中为空的字段的值0(而不是NULL)。mySQL中这些字段的默认值为NULL。每一行都有许
嘿,我已经为此奋斗了很长一段时间,任何人都可以帮助我,这将使我的一天,我有一个子表单,在我的子表单上有三个字段:
营业时间、营业时间和工作时间
比如我的营业时间从9000开始,我的营业时间是12000=工作小时数是3000
现在,在子窗体中的下一个记录中,我的开放时间必须自动变为我的关闭时间,而上一个记录的开放时间将自动变为12000小时。有人能帮我吗?因为我压力很大,我真的很感激,提前谢谢。如果你能帮我做这件事,你会让我开心的:)所有这些信息都在一个表中,如果是,你的主键是什么
如果您使用自动
在访问编码方面,我不是很熟练,我更喜欢使用SQL。我制定了一套规范,以吸引特定领域的一些员工。但是有一张表有员工的全部历史记录,所以我把字段REC EFF STT DT拉进来,这是他们可能开始的每个职位。我只需要他们最近的一份工作。我知道我需要在WHERE语句中包含MAX DATE的子查询,但我不知道如何正确设置它的格式
SELECT O896IA_VEMPPRSA.EMP_NA, O896IA_VEMPPRSA.SYS_EMP_ID_NR,
([O896IA_VEMPPRSA].[
如果用户输入红色,则自动将表单字段更改为黄色的正确步骤是什么
我本想尝试一个BeforeUpdate事件,但文档上说:
如果试图修改在事件过程中触发BeforeUpdate事件的控件中包含的数据,将发生运行时错误
这似乎违背了目标
例如:
Private Sub color_BeforeUpdate(Cancel As Integer)
If color = "YELLOW" Then
color = "RED"
End If
End Sub
您应
我在ms access 2010数据库中有一组两个嵌套的导航子窗体。问题是,当不同机器上的不同用户通过不同的屏幕分辨率和文本大小设置查看数据库时,表单可能会产生屏幕不动产的愚蠢浪费,如下图所示:
假设左侧和顶部是固定的,如何设置每个导航子窗体的宽度和高度,使两个导航子窗体的右侧和底部都有一个小插页(30像素?)
这是我到目前为止编写的代码,但它将东西推到了太远的右侧和底部,而没有在右侧和底部留下我需要的插图:
Main form (this is the outermost form):
我的“添加医生”表单中有两个下拉列表。一个是选择大学,另一个是选择系。我想让系(有6个列表项)列表项根据选择的大学(有2个列表项)进行更改。如果用户选择了其他大学,我还想让选择重置“系”下拉列表
首先,用户使用黄色部分选择产品。这将为结果部分右侧的下拉框生成信息。用户选择特定产品,Dlookups生成文本框中的值
在下面的表格中,我有一个列表框(当前未显示)。列表框列出了使用属性部分从查询中生成的信息。问题是listbox经常显示来自查询的信息,这些信息与文本框中的任何结果都不匹配。我需要从列表中删除该结果
使用下面给出的代码,它循环遍历每个文本框控件,并检查每个文本框中的值是否与查询结果匹配。如果没有,则从列表框中删除。然而,它似乎不起作用。任何关于本规范哪里出错的建议,或关于如何实
我有一个数据库,当用户单击“发送”按钮时,我正试图将表单中包含的信息以及列表框中的选定项发送到表中。我有代码设置,应该复制我的信息,但得到一个语法错误,我不知道为什么。。。我试过几种不同的方法,但都不能成功。我已包括以下代码:
Private Sub ctrSend_Click()
Dim intI As Integer
Dim lst As ListBox
Dim varItem As Variant
Set lst = Me![lstShipping]
With lst
If .
我有一个Access 2010报告,它当前显示表中的所有记录。我想添加一个日期选择器,它允许用户在报告中选择一个日期,并显示所有晚于所选日期的记录
在Access 2010报告中是否可以这样做?如果是,怎么做?您有两种选择:
1) 在报表的SQL代码中设置where子句,并将其设置为:
WHERE SomeColumnDate = EnterDate
从那里,当用户打开报告时,它将提示他们输入日期
2) 这一个更简单,但更复杂,您需要创建一个带有文本框的表单,该文本框的格式为dateTime,
如何在MS Access中使用字段的值(ID)作为查找字段条件中的引用
示例表1模式:
ID (Number)
Name (Char)
ID_Something (Number)
...
Lookup1 (Number)
字段Lookup1使用如下条件:
[...] WHERE table2.myID = table1.ID_Something
如何强制查找字段使用字段ID\u的值并在更改时自动更新?
请不要说我想实现这一点,没有任何形式,只是简单的表。
提前谢谢 当一个字段正在查找另一个表
我有一个列表框,希望从中获取每列的值,但下面的代码总是将itemsselected.count返回为0
Dim item As Variant
If Me.Lst_ProcVeri_CardInfo.ItemsSelected.Count <> 0 Then
For Each item In Me.Lst_ProcVeri_CardInfo.ItemsSelected
a = Me.Lst_ProcVeri_CardInfo.Colu
我是MS Access的初学者。我想知道根据我从同一表中的另一行中选择的内容自动获取数据的可能方式。我有如下表格
ID(自动编号)
航空公司(短文本)
航班号(短文本)
从上面的例子来看,一家航空公司可能有很多航班号。因此,在我的表格中,我为同一家航空公司输入了许多航班号。我想做的是,当我在下拉列表中选择一个航班号时,我想在数据库中根据我在表中输入的数据选择正确的航空公司
如蒙惠顾,不胜感激。谢谢您需要的是层叠组合框。其中,组合框根据之前所做的选择级联。我正在扩展你的例子。为了简单起见,我有一个
我复制并粘贴了新版本的数据到我的MS Access表中,现在我的查询中出现了奇怪的字符。如果我说:
SELECT a, b from table1
一切都很好。如果我改为
SELECT a, b from table1 group by a, b
结果我得到了非常奇怪的角色。起初我把L颠倒过来了,但现在我得到了汉字。这很奇怪,因为我数据库中的其他查询使用该表并获得所需的输出。似乎只有当我做一个小组时,我才有问题。有什么建议吗?我已经准备好推出它,但现在我得到了这些错误 如果在备注字段上分组,
英语日期到尼泊尔日期:加上-56年-8个月-16天
尼泊尔日期到英语日期:在vb6.0中减去-56年-8个月-16天
我想减去日期,再加上日期,将日期从英语转换为尼泊尔语,将尼泊尔语转换为英语。我使用下面的代码,但它只转换年份,因为它是最后一行
Private Sub Command1_Click()
Text1.Text = Date
Text2.Text = DateAdd("d", 16, Text1.Text)
Text2.Text = DateAdd("m", 8, Text1.Te
我创建了一个Access数据库,并已将该数据库导入SQLServerManagementStudio 2008。我还有一些在Access 2013中创建的表单,我想知道是否有办法将这些表单发送到SQL Server Management Studio?
我问过我的老板,他说我们可能需要创建链接到SQL后端的列表。我不太清楚他那是什么意思。提前感谢。如果您将SQL表链接到access,则可以继续使用access表单。他们将能够读取甚至直接写入SQL表。为此,您需要创建一个ODBC句柄。您需要在Ac
早上好,
我有一个“有趣”的经验,报告和出口他们的pdf格式。
我创建了一个基于条件隐藏特定字段的报告。这些字段在打印预览中隐藏(它们应该隐藏),在我导出到Word时也隐藏,但在导出到pdf时,它们都会重新显示。对于我手动隐藏的任何字段,结果都是一样的
有人知道原因并有办法解决吗
导出为PDF时,将重新创建报告,即重新执行程序代码(尽管这不可见,因为它会在调试断点处停止)。但是,未重新执行子报告。因此,在导出为pdf期间,在此处初始化的字段将不会初始化。
我通过再次以sub ReportFoot
因为我正在学习Access VBA,所以我需要最右边行的编码。这就是我从工作中继承的一个数据库中代码生成器的外观,用于生成需要的字母
我所知道的是,我必须将整数从1减少到10,再减少到1到7,以使隐藏字段的网格线消失,但字母缺少最右边的垂直线……我尝试将整数从1减少到8,但出现了一个错误
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim lDarkGray As Long: lDarkGray =
我在Access数据库中有一个基本表。在该表中,我有一个10位数字字段,存储为长文本(前导零是有效的)。我从表中的该字段中提取了唯一值,并创建了一个具有相同长文本数据类型的新表/字段。当我尝试将该字段连接回原始表时,会出现错误:无法连接备忘录、OLE或超链接对象。是否有解决方法,或者我需要解决的已知问题?请改用ANSI JOIN。这对我来说很有用
SELECT A.A, B.B, C.C
FROM aaa AS A, bbb AS B, ccc AS C
我有一个计算字段,它将表中的两个字段分开,但是当查询运行时,查询只计算计算字段的第一行,而不是所有行
我在我的计算字段中使用一个简单的计算,所以我不确定为什么会发生这种情况
我的整个表情:
SELECT LlamadoDeCapital.ID, LlamadoDeCapital.TotalCapitalCommitted, LlamadoDeCapital.CapitalCallRequestDate, LlamadoDeCapital.CapitalCallDate, LlamadoDeCap
我的下拉菜单有以下代码
Private Sub cmb_Name_AfterUpdate()
Dim strFilter As String
Me.cmb_WorkCity.Requery
strFilter = "[Employee Name]='" & Replace(Me.cmb_Name.Column(0), "'", "''") & _
"' And [Movement Type]='" & Me.cmb_Name.Column(1) &
下面是一些Access 2013代码的精简版,它只是以一个新名称复制了当前项目
仅当文件以共享模式打开时,它才起作用。如果以独占模式打开,将生成“权限被拒绝”错误
我很惊讶我的研究没有解释这一点。在以独占模式打开的数据库中,是否可以使用其他文件复制方法?或者我需要一个在数据库之外运行的方法吗?试试FileCopy source,Destination文档说,对于打开的、共享的或独占的文件,它根本不起作用,但可以尝试一下。文档似乎是正确的;FileCopy不适用于任何打开的文件。该文章中描述的Co
我感兴趣的是动态使用MicrosoftAccess查询,有时作为使用ODBC访问远程SQL Server的传递查询,有时作为本地Select查询访问同一Access数据库中的表。但是,QueryDef.Type属性是只读的,我不知道如何更改它
所以在代码中它看起来像:
Dim qd As DAO.QueryDef
Set qd = CurrentDB.QueryDefs("qrySubForm1")
'this line turns the qd.Type property to dbQSQL
为了获得有关MS Access 2010项目中导致写入冲突的列、表或行的更多信息,我编写了以下代码:
Private Sub Form_BeforeInsert(Cancel As Integer)
Call printCollisionInfo(Me.Recordset, Me.name)
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Call printCollisionInfo(Me.Recordset,
我在一个表中有一个自动编号,用于订单id。我制作了一个表单,将此订单id的行项目输入到该表中。我想要一个功能,可以让我点击我的“添加到订单按钮”,它将继续使用相同的订单id为每个记录,直到我完成订单。我在单击“添加记录”按钮的子按钮上的中尝试了以下操作me.txt\u Orderid=me.txt\u Orderid-1,但这自然不起作用。我是一个相当新的访问,所以访问vba是绊倒了我。想法?如果您想要对字段进行多条记录,则不应在字段上使用自动编号。而是创建一个新字段并将其用于orderid。创
我是Access的新手,我正在寻找一种解决方案,它超出了我公司其他人的能力,也可能超出Access的能力范围
我有以下字段
Date: Last Name: First Name: Test1: Test2: Test3:
我期待着下面的事情发生
在任何一个日期,用户可以进行多次测试
如果用户通过了所有三项测试,则不会显示任何失败或重复通过的记录
如果用户未通过三项测试中的任何一项,但有多条失败记录,则仅显示一条
如果用户在任何字段中有“NotUsed”语句,但在任何其他字段中有一
我试图通过使用DMAX函数来添加一个发票号,用下一个连续的发票号填充一个文本框。根据在组合框Me.cmb\u CustomerType.Value中选择的地产代理名称,发票编号(调查发票编号、调查tbl)将以不同的数字开头,例如Elmhurst将以08开头,Bridgfords将以05开头,Harrington durham将以04开头。
我尝试过使用各种论坛上的select语句、left、dmax、dlookup,但都无法使用,我对此束手无策
If cmb_CustomerType.Value
我无法在Access 2016中调整选项卡控件的大小。它现在大约有16英寸宽,我需要把它改成14英寸。我在属性窗口的Width属性中键入了14英寸,但它的大小恢复到原来的16英寸。如有帮助,将不胜感激
谢谢,
Howard Hong我猜其他选项卡中的一个控件超过了14”。检查它们。选项卡控件上必须有一个或多个控件超出14英寸,可以是一条线。
我的Access数据库中有此类模块:
Option Compare Database
Public Event BeforeCalc()
Public Sub Calculate(ByVal i As Integer, ByVal y As Integer)
RaiseEvent BeforeCalc
Calculate = i + y
End Sub
Private Sub Class_Initialize()
Debug.Print "Inside const
我的表单中的11个字段都有相同的AfterUpdate事件。有没有办法将AfterUpdate代码放入函数或模块中,然后在每个AfterUpdate事件中调用该函数或模块
如果主窗体上的某个字段发生了更改,我会用一个消息框提示用户需要在子窗体中添加一个说明更改的注释。如果用户单击消息框上的“确定”,则会将焦点转到“注释”子窗体。如果用户单击“取消”,则在主窗体中撤消更改
以下是11个字段重复的代码:
Private Sub ID_AfterUpdate()
On Error GoTo Stan
在MS Access VBA中,我使用不同的参数以不同的方法进行不同的检查。一旦其中一个失败,Cancel设置为True,不应执行进一步的检查。看起来是这样的:
Cancel = checkMethodOne(param1)
If Not Cancel Then
Cancel = checkMethodTwo(param2, param3)
End If
If Not Cancel Then
Cancel = checkMethodThree(param4)
End If
只是好奇是否可以存储一个带有某人登录名的标签
我希望这样,当勾选复选框时,它将显示登录者的用户名(由“Bob”选中)
谢谢你
在项目中,定义一个公共变量strUserName,并在表单加载时或从定义的User表中将该值设置为strUserName=Environ(“用户名”)
使用复选框的单击事件设置标签标题
嗨,桑托什,你以前在登录标签方面帮过我。因为你知道我的登录是如何工作的。我可以将其合并到复选框标签中吗。
Public strUsername As String
Private S
我得到一个运行时错误3075
我已经检查了所有的括号和引号,看起来一切正常,但仍然没有运行
'现在检查数据库,查看是否存在有关月份和年份的现有记录
txtSQL = "SELECT Count([Rec_ID]) AS CountID FROM [dbo_NBD_EMEA_NBD_Source_Download] Where [Ledger_Year] = " & CurYear & " AND [Ledger_Month] = " & CurMonth & "
我正在尝试打印预览报告(使用表单上的按钮,请参见下面的代码)。当我开始做的时候,它会弹出一个超小的图像,我不能右击它(所以我不能打印或导出它)
但是,只要进入设计视图(但不更改任何内容),然后打开表单再次打印报告,它就可以正常工作(即以正常大小弹出,我现在可以右键单击报告)
知道为什么会这样吗?进入“设计”视图,然后返回“表单”视图,会改变报表的打开方式吗?可能是代码?如果将popüp的大小设置为10x10,Me.Move 0,010001000在报告中加载将使其增长。除了大小之外,“真正”的
我是MS access的新手,我正在努力完成一个查询,以找出哪些合作伙伴在特定的选定月份/年度没有付款
我有两个表格,一个是我所有合伙人的名字(Sócios),第二个是表格(Registro de Pagamento)登记了所有合伙人的所有付款,包括付款的月份和年份
我不知道我正在尝试的方式是否是最好的。但是,首先,我创建了一个表单,允许用户选择他感兴趣的月份(组合框:TBoxMes)和年份(组合框:TBoxAno),以找出哪些合作伙伴没有在所选期间付款
我当时的想法是创建一个查询(名为“Sel
在Access数据库(CurrentDB)的VBA代码中,我打开了另一个数据库(通过Application.DBEngine.OpenDatabase(…))
我想更新第二个数据库中的一些库引用。但由于引用对象是应用程序对象的属性(而不是我认为应该是数据库对象的属性)
我只能列出和更改CurrentDB的引用,而不能更改第二个。
知道如何访问第二个数据库的引用吗
安德烈,谢谢你的第一个回答,这真的让我更进一步了!现在我面临下一个问题:我打开第二个数据库,删除所有断开的引用(它们真的消失了),关闭
1 2 3 4 5 6 ...
下一页 最后一页 共 363 页