Tag: ms access

select并删除基于旧条目的查询: 我有一个使用ADO将数据推送到Access数据库的Excel工作表。它基本上是把发票放入数据库。有时我会修改我的发票，因此数据库将以相同的发票两次结束。我需要进行一个select和删除查询，根据发票号find重复项，并删除较旧版本的发票（旧logging），下面是一个简单的例子： ID发票＃总项目date戳 1 1234 456.29 $ shoes 06/06/2016 03:51 2 1234 78.58 $ boots 06/06/2016 03:51 3 1234 22.74 $围巾06/06/2016 03:51 4 1234 539.34 $鞋06/07/2016 12:44 4 1234 66.24 $裤子06/07/2016 12:44 正如你所看到的，第4行和第5行是这个客户的新发票。我想要删除相同发票编号的每个以前的订单。请注意：它们实际上并不重复，只有发票号码是重复的。查询需要根据发票号码查看重复，并且标准可以看到比最近的date更早的date。在那个时候，这远远超过了我。我将不胜感激的帮助。

VBA崩溃访问时着色Excel单元格: 我一直在为MS Access数据库添加一个function，但是我对于我的代码的哪一部分可能导致崩溃感到困惑。在我的机器上，代码从不崩溃。但是，在其他机器上（包括访问的非运行时副本），一个小小的更改会导致应用程序完全崩溃。以下代码在Excel中格式化导出的查询： Option Compare Database Public Function format_status_report(ByVal filename As String, ByVal path As String) Dim obj_excel As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Dim rng As Range Dim tbl As ListObject Const LAST_COL = 10 last_col_char = Chr(LAST_COL + 64) Set obj_excel = New Excel.Application On Error GoTo […]

使用VBA访问数据的其他方法: 所有的好日子。在过去的8个小时里，我正在寻找在Access 2007中的一个数据透视select，因为我们的Citrix帐户（OWC10.dll）中没有提供参考dll 。所以我尽了我的一切努力研究解决这个问题的方法，但到目前为止我什么都没有，所以我觉得是时候给点帮忙。我在这里是一个原始数据的样本.. 这是我正在寻找的最终结果，一个数据透视表，其中，当然，可以在一个窗体（最佳解决scheme）或提取的Excel文件中查看。所以基本上，我需要显示：他们每天工作多less时间他们每天工作多less 我尝试了TRANSFORM语句/交叉表，我得到错误，有太多的行使它成为一个列，因为我有20,000+行 – 30天/月*工作的人。 – DISTINCT他们，但我不知道如何？我没有在我们的系统中的.dll文件，所以正常的pivoting是没有问题的。有谁知道任何替代品，可以给我这些显示结果？

将MS Excel文件链接到MS Access时丢失数字/date格式: 嗨，并提前感谢您的帮助。我有一个Access 2007数据库，其中有几个Microsoft Excel 2010电子表格的实时链接创build表。我有几个Accessmacros对这些链接的表运行查询，我发现如果我运行macros，而不是首先打开这些链接的Excel电子表格文件格式输出格式非常奇怪的格式。换句话说，如果我打开链接的电子表格并运行Accessmacros，所有数据格式都正确，但是如果我在运行Accessmacros时closures了链接的Excel电子表格，格式化会变得很有趣 – 特别是date字段。任何人都可以就如何解决这个问题提供任何意见？非常感谢金

Excel VBA SQL返回不同的结果与访问数据库SQL: 我有一个这样的查询： Select sales from salesTable where product like "abc*" 我把相同的查询放在我的Excel VBA脚本中，起初它返回空。所以我改变了查询使用%而不是* ，你显然必须做。 Select sales from salesTable where product like "abc%" 现在它返回一个结果，但结果是不同于MS Access中拉的结果。谢谢

比较Excel，Access或SQL Server中的文本: 在编辑两个Excel表格时，我们已经失去了参考。现在我们有一个像AC SERVO MOTOR MHMD082AIG（PANASONIC）（CNC-PLASMA SPARE PARTS）另一个Excel工作表包含两个描述，描述1和描述2.我们通过分裂长描述的第一个和第二个30个字符来做出这两个描述。我们没有做任何编程，但手动。因为我们必须得到以下结果说明1：交stream伺服电机MHMD082AIG 说明2： PANASONIC（CNC-PLASMA SPARE PA 请注意，拆分是有意义的和可读的。现在:-(怎样才能重build映射，在上面的例子中，我明白了如果我使用MHMD082AIG这个词，我可以映射excel，如果手工操作，我必须花费几天时间:-(。任何想法使用Excel或Access或SQL Server是高度赞赏

不同的Excel导入结果取决于Excel是否打开: 亲爱的StackOverflow社区我有一个关于表格导入表格的问题。我有一个Excel工作表，我将不同的工作表从Excel导入到Access数据库。这是通过VBA，Trasnferspreadsheet。我已经意识到，如果Excel的wb是打开的date将被保存为数字，如果表closures，但正确的格式被考虑。有没有人有一个想法，为什么是这样的情况？先进的谢谢你。亲切的问候，哈雷斯

通过Excel导入将数据添加到访问logging中: 你好，谢谢你的帮助。我是Access的noob，但是我的公司已经提出了一个关于可能导入Access中某些logging的某些信息的问题。基本上，我在一家保险公司工作，他们有一个十年前由最近离开公司的人在Accessbuild立的索赔系统。该系统工作，并适合当前的需要。但是，最近我们被要求修改某个logging（索赔）的字段。因为有大约200-300个logging，我们正在寻找一个可能的import解决scheme。问题是，我从来没有这样做，担心可能会影响logging中的其他logging或其他字段。唯一需要改变的是一个领域，其余的必须保持不变。我知道Access表名和logging号（RecordNo – 在Access中的文本框）和我想改变的字段的名称（引用 – 在Access中的文本框），但我不确定如何导入，如何准备好excel文件以及如何确保不添加新logging，而是修改现有logging。例如，我可以只有2列，一个叫“RecordNo”，另一个是“Reference”？或者我需要添加空列来考虑Access表中的额外列？我是否需要创build一个命名的范围或一个Excel表格，或者简单地把这些列在Excel中？有什么特定的格式，我应该使用（文本或一般或别的 – 参考将是一个文本值，因为它有数字和字母）？使用导入向导在Access中导入时，是否需要select“将logging的副本附加到表格”？它将如何知道要修改哪条logging，因为Access表将包含我不想以任何方式更改的数千条logging？我也可以访问Access中的“导航窗格”，在那里我可以find表格和查询等，不确定是否可以批量修改表中的logging？为了使事情更加复杂，Access数据库在服务器上，需要同时被多个用户访问，所以我理想的情况是要在单独的副本上进行testing。但是将其复制到我自己的计算机不会切断与服务器上的副本的连接，并且任何更改都会立即反映在原始副本中。我试图在网上寻找，但我似乎无法find任何东西，将消除我的忧虑。我可以find一些关于导入问题的文章，虽然不是我会感兴趣的，但是他们都是以前版本的Access，真的我几乎不能理解当前的版本。我们正在使用Excel和Access 2013.如果可能的话，我宁愿不使用VBA，因为当前的数据库有很多，而且很难pipe理和导航。我也不知道关于Access VBA，只是excel。谢谢

运行Access-VBA脚本时，新计算机永久冻结: 我在Excel中有一个广泛的VBA脚本，它将一个访问表分成几个Excel文件，并在Excel中进行一些格式化和计算。这些表格有几百行，我反复循环遍历整个表格，有些excel计算使用SUMIF函数等，因此需要一段时间来计算。脚本没有在性能方面进行优化，而是在10分钟内完成了旧的Dualcore Win10 32Bit（德文版，英文版）Notebook。我升级到了一个更新的笔记本（Win10英文版，64位，i5 Quadcore），但是当我尝试使用相同的Access文件运行相同的脚本时，笔记本永久冻结。我甚至无法中止剧本，等了一个多小时后，还没有完成，我必须硬重置我的电脑。有一些Windows系统级别的设置，我可能错过了调整？每当我回到我的旧笔记本使用相同的文件/脚本它运行没有问题。

3027“无法更新。数据库或对象是只读的。“从excel中使用make table后: 我可以通过excel访问我的数据库，当我尝试再次访问它时，问题就出现了。看来我在我身后留下了一些东西，但我不明白是什么。 Dim con As ADODB.Connection Dim cmd As ADODB.Command Dim strInput As String Set con = New ADODB.Connection Set cmd = New ADODB.Command strInput = Sheets("base_pivot").Range("I4").Value 'I get the input for the parameter from my sheet base_pivot on the cell I4 With con .Provider = "Microsoft.ACE.OLEDB.12.0" .Open "C:\cmo_accounting\CMO_accounting.mdb" End With With cmd .ActiveConnection = […]