我有以下代码,从我的MS Access(小型酒店预订数据库)表单中获取某些字段,并填充所述Excel文件中的已定义单元格。 Dim objXLApp As Object Dim objXLBook As Object Set objXLApp = CreateObject("Excel.Application") Set objXLBook = objXLApp.Workbooks.Open("Y:\123files\File\Hotel Reservation.xls") objXLApp.Application.Visible = True objXLBook.ActiveSheet.Range("B2") = Me.GuestFirstName & " " & GuestLastName objXLBook.ActiveSheet.Range("C2") = Me.PhoneNumber objXLBook.ActiveSheet.Range("E2") = Me.cboCheckInDate objXLBook.ActiveSheet.Range("F2") = Me.cboCheckOutDate objXLBook.ActiveSheet.Range("H2") = Me.RoomType objXLBook.ActiveSheet.Range("I2") = Me.RoomNumber End Sub 如何将新访客填充到下一行的同一个Excel文件中?
我目前有一个前端访问数据库,该数据库的VBA项目已损坏。该数据库不存储数据,仅存储表单,报表,查询,宏和模块。文件格式为ACCDB 当我打开它时,出现多个“ Id不是该表中的索引”弹出窗口,然后可以访问数据库。 但是,每当我要在“视图”模式下打开“表单/报表/表”时,都会多次收到“ Id不是此表中的索引”消息,因此什么也没有发生。 我能够看到“ MSysCompactError”中内容的唯一方法是尝试将表导出到文本文件(预览起作用,而不是导出)。它包含两行,如下所示: -1504;"You tried to assign Null to a variable that isn't a Variant";;"MSysAccessStorage" 当我尝试将表单/报表导出到另一个Access数据库,或尝试从另一个数据库导入它们时,我仍然收到“ Id不是该表中的索引”消息,并且无法导入/导出。 我的问题是,当我可以检索表格/报表/查询时,如何使其处于一种状态?或者,以更一般的方式,我该如何撤退它们?
我想编写一个查询,将两个Access 2000数据库合并为一个查询。每个表都有35个表,这些表具有相同的字段,并且大多数都是唯一的数据。有些行将具有相同的“主键”,在这种情况下,数据库A中的行应始终优先于数据库B。我在“主键”周围使用引号,因为生成的数据库没有任何键或关系。例如: 数据库A,表1 col1 col2 Frank red Debbie blue 数据库B,表1 col1 col2 Harry orange Debbie pink 我想要的结果是: col1 col2 Frank red Harry orange Debbie blue 这些数据库是由不懂SQL的用户生成和下载的,因此,我只想给他们一个查询以进行复制和粘贴。显然,他们将必须首先从一个数据库导入或链接到另一个数据库。 我猜我将不得不用合并的结果查询制作第三个表,然后删除其他两个表。不过,理想情况下,它只是获取数据库B的表并添加数据库A的表(在必要时覆盖)。 我当然不是在寻找完整的答案,只是希望就从何处开始寻求一些建议。我有一些mySQL经验,并且了解联接的基础。是否可以在一个查询中完成所有这些操作,或者每个表都必须有一个单独的查询?
在Access 2013中,我正在编写报告。使用 On print event,每次日期字段为空时,我都会尝试向变量添加一个值。它工作正常 somaValores =Somavalores + 1 试着 IIF 但它不起作用。 有任何想法吗? Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer) Select Case Me!TipoMeta Case "Percentagem" Select Case Me!DtResposta Case Is Me!DtLimite ForaPrazo = ForaPrazo + 1 ********************************************************* DTLIMITE IS A DATE TYPE FIELD HERE I NEED: CASE DTLIMITE = …