我有一张桌子,我需要为每个类别获得前n个最高金额的项目.
Category Item InventoryCount ------- ----- ------------- Beverage milk 3 Beverage water 2 Beverage beer 9 Utensil fork 7 Utensil spoon 2 Utensil knife 1 Utensil spork 4
我想要的输出是最顶层2类别的最高库存.
Category Item InventoryCount ------- ----- ------------- Beverage beer 9 Beverage milk 3 Utensil fork 7 Utensil spork 4
我想只在第二页和超出PER记录显示标题.新细节的第一页不应显示页眉.
最初我有以下代码
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Me.PageHeaderSection.Visible = Not (Me.Page = 1)
End Sub
除第一个页面外,它在每个页面上显示标题.
我希望在每个组的第一页(但不包括第一页)之后显示标题.
我正在尝试将RichTx32.Ocx注册到我正在Access 2010中工作的应用程序(文件格式2003 mdb).我已经更新到Windows 7 64位(从Windows XP SP3 32位),无法让ActiveX OCX注册.
我已将该文件放在system32文件夹中并收到以下消息:"模块"RICHTX32.OCX"可能与您正在运行的Windows版本不兼容.请检查该模块是否与x86兼容(32位) )或x64(64位)版本的regsvr32.exe"
当我将文件放在SysWOW64文件夹并运行regsvr32到该位置时,我收到以下错误消息:"模块"C:\ Windows\SysWOW64\RICHTX32.OCX"已加载,但对DllRegisterServer的调用失败,错误代码为0x8002801c ".
我一直在使用以下命令通过VBA打开另一个MDB Access文件:
Shell "cmd /c " & Chr(34) & strNewFullPath & Chr(34), vbHide
strNewFullPath是MDB文件的完整路径.使用Access 2010时工作正常,但不能在Access 2003上运行.如果我在XP DOS终端中运行该命令,它将运行.
我可以用其他什么命令,应该在Access 2003中了工作,并与Access运行？
我在查询中有以下列.
iif(Len([Field1])=0,0,Asc(Mid([Field1] & "",Len([Field1]))))
这个想法是它应该返回字符串字段中最后一个字符的ASCII值.问题是如果Field1为空,则语句错误,并显示以下消息:"无效的过程调用或参数(错误5)".如果该字段为空,则应返回0.
我试图通过隐藏的表单字段将字段的值设置为使用符合MySQL的datetime字段的PHP或Javascript的当前日期和时间.
我在VBA中有以下代码返回两个日期之间的年份:DateDiff("yyyy", "10/10/1930","06/07/2008 8:30:00 AM")
它返回78,但它应该是77.
这里发生了什么？
我需要通过移动到记录集中的下一条记录来遍历表单.
我正在使用Form_Current事件来循环.我使用了几个陈述并且有不同的结果.
这个有时崩溃并给出错误消息:"你不能去指定的记录."
DoCmd.GoToRecord , , acNext
这个只有72个记录并停止.
DoCmd.RunCommand acCmdRecordsGoToNext
这个只有129个记录并停止.
Me.Recordset.MoveNext
尝试查找将转到下一条记录的指令,直到它到达文件结尾.我使用Access 2010(Access 2002 -2003文件格式mdb)作为前端.记录源是SQL Server 2008链接的视图.
我在Access中有一个查询,并想知道是否可以使用该where not exists子句在没有返回的行时显示每个字段的特定文本.
示例查询:
Select Field1, Field2, Field3
From TableA
Where Field1 = "test";
如果没有返回结果,我希望以下内容返回:
Field1 = "test"
Field2 = "not provided"
Field2 = "not provided"
我使用Access 2003与本地表,稍后将传输并链接到SQL Server 2008表.我使用以下代码但得到错误:"运行时错误3704:关闭对象时不允许操作"在cnn.Execute行上.
sub test()
On Err GoTo Err_Sub
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Dim strSQL As String
'Open a connection.
Set cnn = New ADODB.Connection
cnn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentDb.Name & ";" & _
"Persist Security Info=False"
strSQL = Me.RecordSource
str = Mid(strSQL, InStr(strSQL, "Where "))
strSQL = "Update myTable SET Active = False " & str
Set rs = cnn.Execute(strSQL)
If Not rs Is Nothing …