标签: ms-access-2007

如何检索多列列表框中所选行的指定列的值？

我通过使用SQL字符串设置RowSource属性来填充列表框.BoundColumn设置为值1.

我可以通过使用检索绑定列(所选行的)的值ListBox.Value.但我也想要另一列的价值.

我有一个Access窗体的以下代码.当我打开和关闭表单时,似乎SendKeys是NumLock在打开和关闭它时弄乱了我的键.

出于完全正确的原因,我不想进入,我真的不想完全隐藏功能区(我希望下拉菜单仍然可访问)所以DoCmd.ShowToolbar命令不是我喜欢的方式.

有没有人有任何建议,我如何修改下面的代码,以完成我想要的SendKeys命令使用？

使用Access 2007这样的命令

CommandBars.ExecuteMso "MinimizeRibbon"

不适合我.

顺便说一句,数据库将被分发,因此解决方案必须包含在数据库中.

Private Sub Form_Close()

' Unhide navigation pane
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.Maximize

' Maximize the ribbon
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 75)

Select Case RibbonState
    Case True
        SendKeys "^{F1}", True
    Case False
        'Do nothing, already maximized
End Select
End Sub

Private Sub Form_Load()
' Hide navigation pane
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.Minimize
Debug.Print Application.CommandBars.Item("Ribbon").Height
' Minimize ribbon
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)

Select Case RibbonState
    Case True
        'Do …

我在MS-Access 2007中尝试以下查询,但它在时间字段上失败.

INSERT INTO LOG (
    EMPLOYEECODE, STATUSID, LOCATIONID, TIME, DURATION,
    SHIFTID, LATECOMING, EARLYGOING, LOGDATE, STATIONID
)
VALUES (
    1, 1, 0, '4/21/2009 2:25:53 PM', 0, 
    8, 0, 1, '1/1/2009', 1
)

该TIME字段定义为日期时间.

没有该TIME字段,查询工作正常!

我尝试了很多不同的东西,比如将日期时间括在哈希,引号等中.但是,查询仍然在时间字段上失败.

感谢你们!这几乎让我完全在那里.我仍然继续获取insert语句的语法错误,但随后进一步使用googling,我意识到这TIME可能是一个保留关键字,所以把它放在方括号上[TIME]就行了!

我有一个列表框,根据用户选择填充不同的数据集.

如何循环遍历列表框中的任何给定值？这是一个For Each声明,还是什么？

我调整了我的A2007导航窗格的大小,并以某种方式将其关闭得如此紧(可能是8毫米),我无法再次调整它(无法抓住正确的边距....)窗格打开并运行,我可以键入搜索窗格的搜索栏,它可以工作,包括打开我找到的对象.我只是不能让它调整大小所以我可以阅读它.

有任何想法吗？

我搜遍了各种方法来做到这一点.

我想打开另存为对话框,以便用户可以选择保存文件的位置.但是,我希望"保存类型"字段预设为"逗号分隔值文件(*.csv)"

问题是"过滤器"方法似乎不适用于"msoFileDialogSaveAs".是否可以使用"Application.FileDialog(msoFileDialogSaveAs)"预设文件类型？

目前,如果我使用.csv扩展名保存文件,然后在excel中打开它,我会收到" 您尝试打开的文件xxx.csv的格式与文件扩展名指定的格式不同... "信息.该文件可正常工作.

 With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "xxx"
        .AllowMultiSelect = False
        .InitialFileName = "xxx.csv"
        '.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        result = .Show
        If (result <> 0) Then
            ' create file
            FileName = Trim(.SelectedItems.Item(1))
            fnum = FreeFile
            Open FileName For Output As fnum


            ' Write the csv data from form record set
            For Each fld In rs.Fields
               str = str & fld.Name & ", "
            Next

           ' Write header line
           str = Left(str, Len(str) - …

我有这个代码:

If Me.Combobox.Value = "My Text" Then

因为我想测试"我的文本"是否是唯一选择的值,但是会跳过条件.

我也试过了

Me.Combobox.Column(1)

和

Me.Combobox.Text

我相信有一些简单的解决方案,我只是忽略了.

我在使用Access sql查询时遇到问题.我是新手,所以bieng一个新手很难弄清楚语法.下面是我的查询.

SELECT *
FROM BookingMaster WHERE JourneyDate = #01/08/2012#;

以下是各自的表格数据:

BookingID   BookingDate    JourneyDate   CustomerName   TelephoneNo  Address
5            01-08-2012     01-08-2012         roshan         78889     hjgj    

列出的上述查询返回0结果,即使数据存在于01/08/2012旅程日期.

任何人都可以帮助我.

我已经在这个解决方案上奋斗了几天......

因此,正如您所知,Microsoft运行其云ALM平台:团队基础服务(https://tfs.visualstudio.com/).它可以免费用于包含少于5个用户的团队......并且它可以与MS Access一起使用!

与此同时,我的一位客户要求我维护一套内部开发的MS Access应用程序:(.

虽然我们可以逐步将thees应用程序迁移到.Net,但第一步是调试和维护访问应用程序......所以为了最小化问题,我决定将其置于源代码管理之下,为什么不进行ALM.

问题是Access文件(mdb :()是二进制文件.

没有明确的解释可以使它与Team Foundation Services一起使用.

我怎么能做到这一点？

如何将表从一个MS Access数据库(*.mdb或*.accdb)链接到VBA中的另一个Access数据库？

基本上我只是使用VBA来复制外部数据向导的功能.

我用谷歌搜索了这个,我看到了很多关于如何更新或重新链接表的示例以及链接到SQL数据库的许多示例,但很少有Access数据库之间的简单链接表.