小编Sma*_*oli的帖子

MS Access:从子窗体中删除记录时捕获值

当我删除Form或SubForm中的数据时,我想在BeforeDelConfirm事件中捕获已删除的记录.我知道可以从"删除缓冲区"中获取数据以将其用于其他内容.

我不想使用这个Delete活动.我知道在Recordset中实际删除数据之前可以从中获取数据,但是我想在BeforeDelConfirm事件中删除"删除"缓冲区.

我知道这是可能的,因为我几年前创建了它,但我找不到合适的代码,并且没有在几个Google会话中找到它.

events ms-access vba recordset

6
推荐指数
1
解决办法
4673
查看次数

断开引用数据库的链接

我正在使用两个Access 2010数据库.一个保存在我们公司的文件服务器上,第二个保存在几台PC上.我想将我的VBA代码存储在网络数据库中,并将该文件用作本地副本的参考库.但是,使用该配置,只要本地副本处于打开状态,网络文件就会被锁定以进行编辑.使用VBA,是否可以在不关闭本地文件的情况下中断两个文件之间的链接?

为了找到解决方法,我按如下方式设置了测试环境:

  1. C:\ DB Test \中创建了两个空白的Access 2010数据库文件
    • 本地DB.accdb
    • 网络DB.accdb
  2. 将模块LocalCode添加到本地DB.accdb
  3. 将模块RemoteCode添加到Network DB.accdb
  4. 本地DB.accdb中添加了对Microsoft Visual Basic for Applications Extensibility 5.3引用
  5. 本地DB.accdb中添加了对C:\ DB Test\Network DB.accdb引用
    • 此引用将网络数据库添加到我的VBA编辑器的项目列表中,就像文件已打开一样.
  6. 将以下过程添加到Local DB.accdb中LocalCode模块
Public Sub ClearDBReference()

    Dim DBFile As String
    Dim Proj   As VBIDE.VBProject
    Dim Ref    As Access.Reference

    DBFile = "C:\DB Test\Network DB.accdb"

    For Each Ref In Application.References  
        If Ref.FullPath = DBFile …
Run Code Online (Sandbox Code Playgroud)

vba access-vba ms-access-2010

6
推荐指数
1
解决办法
563
查看次数

如何在合并的单元格中显示值

我想使用openpyxl库获得从D3到H3的合并单元格的值.根据我的理解,大多数图书馆从第一个细胞本身读取数据.因此合并的内容存在于其中,但是当我阅读它时,我得到一个无值.

以下是我的代码:

wb = load_workbook(work_directory_path+'/outputs/report_vap.xlsx')
ws = wb.get_sheet_by_name("Summary")
suite_path = ws.cell('D3').value
if not isinstance(suite_path, unicode):
    value=unicode(suite_path)
value=value.encode('utf8')
print "Suite Location is "+value;
Run Code Online (Sandbox Code Playgroud)

输出为:套房位置为无

D3到H3的单元格中的值为:c:\ users\xyz\desktop\abc\c ++\events\comevents

我甚至尝试打印工作表中的所有值,但除了整数值之外,所有值都返回无.

以下是更改的代码:

wb = load_workbook(work_directory_path+'/outputs/report_vap.xlsx')
ws = wb.get_sheet_by_name("Summary")
for row_index in range (ws.get_highest_row()):
    for col_index in range (ws.get_highest_column()):
        print ws.cell(row=row_index, column=col_index).value
suite_path = ws.cell('A11').value
print suite_path
if not isinstance(suite_path, unicode):
   value=unicode(suite_path)
value=value.encode('utf8')
print "Suite Location is "+value;
Run Code Online (Sandbox Code Playgroud)

输出是:

没有

当作没有没有没有没有没有没有没有没有没有没有没人

没有

没有

没有

当晚红潮无谁没有没有没有没有没有没有没有没有没有没人

宣宣者者和目图(连续作品1)1 0作品无无无无无9 916无性无无无无10 1011 2007无无无无套房位置(无)套房位置为无12

Excel文件包含以下内容

项目/模块ID项目/模块构建分析语言编译器源文件源文件

1_1 HTMLEdit.vcxproj Success …

excel python-2.7 openpyxl

6
推荐指数
3
解决办法
9251
查看次数

在Notepad ++中,设置文件类型的背景颜色

当各种文件类型同时打开时,例如Notepad ++中的.html,.css和常规.txt文件,是否可以为每种文件类型设置不同的主背景颜色?

每当我更改任何主题,语言类型,默认样式以及全局覆盖的背景颜色时,所有样式配置器中的每个文档选项卡和类型都会反映背景颜色的变化.

Style Configurator中的每种语言都有自己的一组颜色说明符.文本颜色和语法突出显示颜色似乎保持不变,但主要的背景颜色似乎是一个全球一个尺寸适合所有的事情?

如果我希望文本文件始终是带有黑色文本的白色背景但是所有.html文件都是带有白色文本的黑色背景 - 并且每个文本文件同时打开,该怎么办?

我花了太多时间进行智能试验和错误研究.也许我正在尝试做不可能的事情?

syntax-highlighting notepad++

5
推荐指数
1
解决办法
9409
查看次数

循环遍历完整的XML文档

我正在寻找一种循环遍历XML文档的所有节点的方法.

XML文件示例

<root>
    <llnode created="2005-05-24T15:26:24" createdby="42912153" createdbyname="" description="" id="107810306" modified="2008-06-05T16:07:44" name="" objname="" objtype="0" ownedby="42912153" ownedbyname="" parentid="107810295" size="4">
        <Nickname domain=""/>
        <MajorMinorContainer>false</MajorMinorContainer>
        <llnode created="2005-05-06T12:54:03" createdby="42912153" createdbyname="" description="" id="107815681" modified="2006-12-04T14:39:51" name="" objname="" objtype="0" ownedby="42912153" ownedbyname="" parentid="107810306" size="0">
            <Nickname domain=""/>
            <MajorMinorContainer>false</MajorMinorContainer>
        </llnode>
        <llnode created="2005-05-06T12:54:31" createdby="42912153" createdbyname="" description="" id="107815683" modified="2006-12-04T14:39:53" name="" objname="" objtype="0" ownedby="42912153" ownedbyname="" parentid="107810306" size="0">
            <Nickname domain=""/>
            <MajorMinorContainer>false</MajorMinorContainer>
        </llnode>
    </llnode>
    <llnode created="2005-05-24T15:26:24" createdby="42912153" createdbyname="" description="" id="107810306" modified="2008-06-05T16:07:44" name="" objname="" objtype="0" ownedby="42912153" ownedbyname="" parentid="107810295" size="4">
        <Nickname domain=""/>
        <MajorMinorContainer>false</MajorMinorContainer>
        <llnode created="2005-05-06T12:54:03" createdby="42912153" createdbyname="" description="" id="107815681" …
Run Code Online (Sandbox Code Playgroud)

xml recursion ms-access vba

5
推荐指数
1
解决办法
3万
查看次数

SSIS包:在unicode和非unicode字符串数据类型之间进行转换

我正在连接到Oracle数据库并且连接正常,但是我对某些列收到以下错误:

Description: Column "RESOURCE_NAME" cannot convert between unicode 
and non-unicode string data types.
Run Code Online (Sandbox Code Playgroud)

RESOURCE_NAME的价值:

  • 对于Oracle: VARCHAR2(200 BYTE)
  • 对于SQL Server: VARCHAR(200 BYTE)

我可以通过Oracle SQL Developer连接到Oracle DB而没有任何问题.另外,我有SSIS包设置Run64BitRuntime = False.

sql-server oracle unicode ssis

5
推荐指数
1
解决办法
9万
查看次数

Twilio 出站语音呼叫延迟开始

我刚刚编写了我的 Twilio 应用程序,用于向我在印度尼西亚的电话号码拨打电话。

当我接听语音电话时,在播放第一个音频之前大约有 3-5 秒的延迟,无论是使用<Say>还是使用<Play>动词。

你们知道为什么会这样吗,以及是否有当前的解决方法可以将这种长时间的延迟减少到仅仅 1-2 秒?如果另一端长时间没有声音,收件人很可能会挂断电话。

提前感谢任何见解

voip twilio

5
推荐指数
2
解决办法
1952
查看次数

Range.Find.Execute在单词2013中失败

请考虑Word 2013中的下表

A BBB
A CCC
D E F
Run Code Online (Sandbox Code Playgroud)

A,B和C是合并的单元格.

A和B是空的.C A里面有文字.

现在以下代码

Set rng = ActiveDocument.Range(0, 0)  
With rng.Find
    .Forward = True
    .Wrap = wdFindStop
    .Execute "A"
End With
Run Code Online (Sandbox Code Playgroud)

崩溃了Execute "A".

如果我改变文本Execute "B"它没有找到任何东西,但没有崩溃的话.问题仅出现在2013年.

我们尝试Selection.Find逐个手动搜索,但这两个都很慢.

有没有快速的方法来规避这个错误?

编辑:这是我构建的最小失败示例.在我们的应用程序中,我们使用了很多Range.Find,有时使用wrap,几乎从不从Document.Start开始

EDIT2:进一步调查显示,如果以兼容模式(Word 97-2003格式)打开Document,则不存在错误.

vba ms-word word-vba word-2013

5
推荐指数
1
解决办法
2049
查看次数

Access ODBC无法从超过255列的SQL表中提取

我有一个数据库,我试图从Access使用ODBC查询.我需要读取的表有304列,我只能在查询生成器中看到前255个.我在其他地方读过,解决方案是手工编写SQL查询而不是依赖于Builder,所以我尝试了这个查询:

SELECT [Field1], [Field304] 
FROM [ODBC;DRIVER=SQL Server;UID=USERNAME;SERVER=ServerAddress].[TabelName];
Run Code Online (Sandbox Code Playgroud)

这个查询就像我期望的那样返回Field1,但仍然不会得到Field304.我究竟做错了什么?

sql ms-access odbc ms-access-2013

5
推荐指数
1
解决办法
7823
查看次数

Github Markdown:查找巴西国旗的表情符号

我正在尝试使用降价来使用巴西国旗。但事情并不像我想象的那么简单。也就是说,:pt-BR:像美国国旗 ( :us:) 或意大利国旗 ( :it:) 一样写作。

我找到了很多存储库和列表,但没有一个显示我正在寻找的标志。

是否可以使用巴西国旗,或者将其放入我的README.mdGithub 上?

github emoji github-flavored-markdown

5
推荐指数
2
解决办法
4578
查看次数