当ms access中的MsgBox函数返回-1 \f25 vbYesno -1\f6值时

当MS Access中的MsgBox函数返回-1值时，表示用户点击了对话框中的"是"按钮。

MsgBox函数是用于显示消息框或对话框的函数。它可以用于向用户显示一条消息，并根据用户的选择返回一个值。在这种情况下，MsgBox函数返回-1，表示用户选择了"是"。

在MS Access中，MsgBox函数常用于与用户进行交互，例如询问用户是否执行某个操作或确认用户的选择。返回值-1表示用户选择了"是"，可以根据这个返回值来执行相应的操作。

在云计算领域中，MS Access通常不是首选的数据库解决方案，因为它更适用于小型应用程序和个人使用。在大规模的云计算环境中，通常会使用更强大和可扩展的数据库解决方案，如MySQL、PostgreSQL、MongoDB等。

如果您在云计算环境中需要使用数据库，腾讯云提供了多种数据库产品，包括云数据库MySQL、云数据库PostgreSQL、云数据库MongoDB等。您可以根据自己的需求选择适合的数据库产品。您可以访问腾讯云官网了解更多关于这些产品的详细信息和使用指南。

腾讯云数据库产品介绍链接：

云数据库MySQL：https://cloud.tencent.com/product/cdb_mysql
云数据库PostgreSQL：https://cloud.tencent.com/product/cdb_postgresql
云数据库MongoDB：https://cloud.tencent.com/product/cdb_mongodb

请注意，以上答案仅供参考，具体的解决方案和产品选择应根据实际需求和情况进行评估和决策。

相关·内容

最完整的VBA字符串知识介绍（续：消息框和输入框）

消息框的返回值 MsgBox函数能用于返回一个值，此值对应于用户在消息框上单击的按钮。根据消息框显示的按钮，用户单击后，MsgBox函数可以返回值。...图19 注意，当输入框显示默认值时，该值位于文本框中，并且该值已被选中。因此，如果该值没有问题，用户可以接受它并单击“确定”。...输入框的返回值当输入框显示时，输入值后，用户将单击其中一个按钮：确定或取消。如果用户单击“确定”，则应获取用户已键入的值，还应负责查明用户是否键入了有效值。...由于InputBox函数可以返回任何类型的值，因此它没有验证用户输入的机制。要在用户单击“确定”时获取输入框对话框的值，可以获取InputBox函数的返回值。...也就是说，当InputBox函数退出时，由于VisualBasic语言的灵活性，编译器可以直接转换返回值。

1.9K2 0

VB语言基础重要知识点05

任务思路： 1.使用函数msgbox，选择这个函数的第2个参数，选择是或者否的类型vbyesno 2.通过if语句进行判断msgbox点击的结果是yes或者no 判断点击是（yes）和否（no）的核心代码...textbox控件：这个用控件用来输入内容，输入的内容在text属性中 val函数：这个函数是用来将文本转为数值 val函数使用方法：val(文本内容)，结果返回的是数值类型。...本节代码如下： Private Sub Command1_Click() If MsgBox("是否真的要打开form2窗体？"..., vbYesNo, "消息标题") = vbYes Then Form2.Show Else MsgBox "你没中招" End If End Sub Private Sub Command2..._Click() Print Val(Text1.Text) If Val(Text1.Text) > 30 Then MsgBox "太热了" Else MsgBox "温度适宜"

1.1K3 0

VB.NET 结合Access数据库开发的含有系统登录示例

---- ---- VB.NET 结合Access数据库开发的含有系统登录示例 ---- 登录界面源码: Imports System.Data.OleDb Public Class FRM_LOGIN...PICC4.BackColor = Color.Transparent ''********************************** End Sub #Region "返回验证码..., vbYesNo, "退出") = vbYes Then Close() End If End Sub Private Sub BT_QX_Click..., vbYesNo, "退出") = vbYes Then Close() End If End Sub #End Region #Region "获取用户信息..., vbYesNo, "退出") = vbYes Then FRM_LOGIN.Close() End If End Sub Private Sub

1.7K3 0

消息窗体的输入输出，断点调试方法【VB学习笔记2020课堂版02】

设置参数cancel的值为-1即可停止退出。...msgbox 规则1：不需要函数的返回值的时候，不用括号 MsgBox "123,木头人" 返回值：在调用函数后，会产生一个结果返回给程序。...规则2：需要函数的返回值，使用函数的时候加上括号（） Dim a a = MsgBox("123,木头人") print a '输出a的返回值为1 行内潜规则：不会断点调试，就等于没有学会编程。...（当前运行到的行，但是尚未运行，显示底纹为黄色） 4.一步一步按F8，是的程序运行完，观察运行过程中的变量值的变化 dim表示声明变量，而声明一个变量的本质实在内存中开辟一个空间，用来存储相应类型的值。...：Call mybook2("VB书籍大全") 文本输入消息窗口使用inputbox函数，该函数会返回输入的值。

9551 0

EXCEL VBA语句集300

VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler ‘当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 ‘恢复正常的错误提示 ...(“Com”).Name ‘返回名称字符串  公式与函数 (67) Application.WorksheetFunction.IsNumber(“A1”) ‘使用工作表函数检查A1单元格中的数据是否为数字...‘消息框中显示消息Hello (81) Ans=MsgBox(“Continue?”,vbYesNo) ‘在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。...,vbYesNo)vbYes Then Exit Sub ‘返回值不为“是”，则退出 (82) Config=vbYesNo+vbQuestion+vbDefaultButton2 ‘使用常量的组合...，都会强制计算该函数 Application.Volatile False ‘只有在该函数的一个或多个参数发生改变时，才会重新计算该函数  定制模块行为 (101) Err.Clear

1.8K4 0

VBA实用小程序：使用VBA代码安装或卸载加载宏

= "FXLNameMgr" '安装加载宏 Sub Setup() vReply =MsgBox("这将安装 "& sAppName & vbNewLine & _ "到你的默认加载项文件夹...Excel功能区中的加载项工具安装该加载宏...TAB返回Excel以阅读此文本..."这个 "& sAppName & " 已经从你的计算机中移除...在移除加载宏时，会弹出“加载宏”对话框，需要手动取消相应加载宏前面的复选，才能彻底移除该加载宏。

9303 0

用 Python 爬取股票实时数据

f2,f3,f4,f5,f6,f7,f8,f9,f10,f12,f13,f14,f15,f16,f17,f18,f20,f21,f23,f24,f25,f22,f11,f62,f128,f136,f115...f2,f3,f4,f5,f6,f7,f8,f9,f10,f12,f13,f14,f15,f16,f17,f18,f20,f21,f23,f24,f25,f22,f11,f62,f128,f136,f115...,f152&_=1658838703305" res = requests.get(json_url) 数据处理接下来我们观察返回的数据，可以看出数据并不是标准的 json 数据于是我们先进行...返回各参数对应含义： f2：最新价 f3：涨跌幅 f4：涨跌额 f5：成交量（手） f6：成交额 f7：振幅 f8：换手率 f9：市盈率 f10：量比 f12：股票代码 f14：股票名称 f15：最高...f2,f3,f4,f5,f6,f7,f8,f9,f10,f12,f13,f14,f15,f16,f17,f18,f20,f21,f23,f24,f25,f22,f11,f62,f128,f136,f115

2.9K5 0

使用VBA复制文件的5个实战示例

示例1：直接复制文件下面的代码将C盘“test”文件夹下的文件books.xlsx复制到D盘“完美Excel”文件夹中。...示例2：使用变量复制文件在示例1中，直接在FileCopy语句中包括了文件名，下面的代码我们将其放置在变量中。...示例3：基于单元格值复制文件复制单元格中内容包含的文件路径指定的文件名，如下图1所示。..., Buttons:=vbYesNo, Title:="复制文件") If msgBoxAnswer = vbNo Then Exit Sub End If End If...FileCopy strFromFile, strToFile End Sub 示例5：复制文件时避免错误如果发生错误则提供错误消息，代码如下： Sub CheckTargetFileCopyPlus

1.3K1 0

使用VBA复制文件：5个示例代码

示例1：复制文件下面的代码将openpyxl.xlsx从文件夹D:\完美Excel\复制到D:\完美Excel\我的文章\。...示例2：使用变量复制文件在示例1中，文件名包含在FileCopy语句中。然而，它们也可以作为变量提供。...示例3：基于单元格值复制文件在本例中，我们使用单元格值中包含的文件路径复制文件。如下图1所示，单元格C2包含当前文件路径，单元格C4包含文件要复制到的路径。...图1 可以运行下面的代码来使用这些单元格值重命名文件。...\openpyxl-副本.xlsx" If Dir(copyToFile) "" Then msgBoxAnswer = MsgBox(Prompt:="在此位置中该文件已存在

3.1K5 0

VBA实战技巧32：安装Excel加载宏

最简单的就是，单击功能区“开发工具”选项卡“加载项”组中的“Excel加载项”，即可打开如下图1所示的的“加载宏”对话框。...2.注册表对于与上述位置不同的加载项，Excel将在注册表中查找。当单击“浏览”按钮以查找加载项时，会在此处添加键。...所需的值只是加载项的路径及其名称，如下图3所示。图3 选择了哪些加载宏在注册表的另一个位置，Excel会记录选择了哪些加载项（在加载项对话框中检查）。...接下来它调用IsInstalled函数，该函数检查是否已安装加载项。然后，有两个关于插件文件存储位置的检查。...最后一行关闭加载项打开的所有工作簿。为什么？因为当没有活动工作簿时你无法打开加载项对话框，显然这也会阻止Excel通过VBA将新加载项添加到列表中。

4.7K2 0

VB键盘鼠标无动作调用程序尝试的案例分享

SystemParametersInfo可以实现获取屏幕保护信息的函数。...'调用API,bRunning返回屏保运行状态 Debug.Print Time; "屏保运行="; bRunning '演示:打印屏保是否运行的信息End Sub '另外,查看屏保是否启用,也可以用下面方法...:SystemParametersInfo SPI_GETSCREENSAVEACTIVE, 0, bActive, False 'bActive为返回值(逻辑型)可是不知道为什么我在WIN7下调试还是有问题...，提示SystemParametersInfo SPI_GETSCREENSAVERRUNNING, 0, bRunning, False中的bRunning类型错误，只能作罢。...最后来说一下最终实现的方案是使用GetLastInputInfo函数获取系统的空闲时间，参考代码如下：Option ExplicitPrivate Declare Function GetLastInputInfo

6530 0

VBS终极教程（1）

") WshShell.Popup "剑思庭VBS教程" MsgBox 函数描述在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。...在将这些数字相加以生成 buttons 参数值时，只能从每组值中取用一个数字。...返回值 MsgBox 函数有以下返回值：常数值按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo...下面的示例利用 MsgBox 函数显示一信息框并且返回值说明了按下的是那一个按钮: Dim MyVar MyVar = MsgBox ("Hello World!"...把变量 b付值为 6 c="a"+b'把变量 a的内容和变量 b内的内容进行相加，存放到变量 c中 msgbox(c)'用 msgbox函数显示出变量 c中的内容。

7761 0

VBA: 多份文件的批量顺序打印（2）

文章背景：测试仪器的数据有些会以Excel文件的形式保存，工作量大时测试员会选中多份文件进行批量打印，同时可能需要删除一些无需打印的测试数据（比如空白样，错误数据等）。...在模块中添加如下代码，批量打印文件的按钮中指定的宏命令为printFiles。..., vbYesNo + vbDefaultButton1, "打印确认") '如果全部打印 If Response1 = vbNo..., vbYesNo + vbDefaultButton1, "确认无需打印的文件个数") If Response2 = vbYes Then...相关资料： [1] VBA: 多份Excel文件的批量顺序打印 [2] Excel: 提取路径中的文件名 [3] VBA：获取指定数值在指定一维数组中的位置

1.3K4 0

gg修改器自动点击脚本_gg修改器变速教程

, vbYesNo, “Prompt!”) Y=MsgBox(“Do you want to reinstall Outlook Express?”, vbYesNo, “Prompt!”)...然而，使用以下的函数就能解决这个问题 Zip “D:\test.iso”, “D:\test.zip” Zip “D:\test”, “D:\test.zip” Msgbox “OK” Sub Zip(...在Word中将加载函数添加到主菜单项、快捷菜单项、工具条按钮和快捷键中　　在WLL中应用函数登记完成之后,就可以在主菜单、快捷菜单和工具条中添加自己的菜单项和快捷键建立mytest目录，将mytest...*.iso文件拷贝到mytest目录下因为它也是以对象库的形式被VB所引用的，所以在使用它之前也必须在工程加上对其的引用 “ Usage1=”语法１：GB2Ue.vbs [驱动器][目录][文件名] (...，它确实是一种很好的用户程序开发工具，可VB提供的基本控件中都没有闪烁属性设置，使应用程序界面缺乏“活性”，近期笔者设计软件封面时，就要求字体不断地闪烁，为此，经反复分析、实践，最后终于成功地实现字体闪烁效果

1.6K3 0

Excel VBA编程

数组的存取当将Excel表中的数据传递给数组时，默认建立的是一个二维数组，因此在取数组的值时，需要传递两个数值进去，如果只传入一个数组，会出现下标越界的警告。...A-Z]” 逻辑运算符运算符作用语句形式计算规则 and 执行逻辑“与”运算表达式1 and 表达式2 当表示式1和表达式2的值都为TRUE时，返回TRUE，否则返回false or 执行逻辑...2 当表达式1和表达式2返回的值不相同时返回TRUE，否则返回false eqv 执行逻辑“等价”运算表达式1 eqv 表达式2 当表达式1和表达式2返回的值相同时返回TRUE，反之false Imp...执行逻辑“蕴含”运算表达式1 imp 表达式2 当表示1的值为TRUE，表达式2的值为false时返回false，否则返回TRUE VBA内置函数函数虽然很多，但是我们不需要很精确的记住它们。...1048576 指定文本英在希伯来文和Alibaba系统中显示为从右到左阅读 MsgBox函数的返回值常数值说明 vbOk 1 单击【确定】按钮时 vbCancel 2 单击【取消】按钮时 vbAbort

45.4K2 2

VB语言基础重要知识点03

图1 一、回顾控件中常用词汇 caption 用于描述标签中的文本内容 forecolor 前景色，比如文字颜色 backcolor 背景色，比如标签的背景色。...提问：默认在图形界面上双击控件后默认是单击事件的控件有哪些？按钮commandbutton、文本标签label 三、弹框学习 1 消息框使用函数msgbox ,这个单词的意思是“消息框”。...用法1：使用一个参数，这个参数是文本类型（字符串类型）。使用方法：msgbox "文本内容"。...2 输入框使用函数inputbox，这个单词的意思是“输入框” 用法1：使用一个参数，这个参数是文本类型，用来提示使用者需要输入什么内容。...使用方法：inputbox "提示文本内容" 用法2：第二个参数是输入框的标题title inputbox整个函数最后会返回一个字符串（文本），也就是说返回我们输入的内容，这个输入的内容可以把它输出的某个控件中或者变量中

1.1K1 0

C语言：输入一批正整数（以零或负数为结束标志），求其中的奇数和。要求定义和调用函数int even(int n)判断整数n的奇偶性，当为奇数时返回1，否则返回0。

我是川川，QQ2835809579,有问题留言or私我原题：输入一批正整数（以零或负数为结束标志），求其中的奇数和。...要求定义和调用函数int even(int n)判断整数n的奇偶性，当为奇数时返回1，否则返回0。...1: 0; } int main() { int n,sum=0; printf("请输入-批数整数: \n"); scanf( "%d", &n); while (n !

5.3K4 0

Excel实战技巧89：强制用户保护工作簿工作表

学习Excel技术，关注微信公众号： excelperfect 使用VBA代码，在用户关闭工作簿时，只有设置了保护工作簿，才能正常关闭。..., vbYesNo) Else MsgBox "工作簿已被保护!"...End If End Sub 如下图1所示，当用户关闭工作簿时，如果没有设置工作簿保护，则提示用户是否设置工作簿保护。...图1 上述代码提供给用户选择是否保护工作簿，下面的代码强制用户设置保护工作簿，否则不能关闭工作簿。...End If End Sub 上述代码是强制当前工作簿设置工作表保护，你也可以使用指定的工作表代替ActiveSheet，以强制必须对指定工作表设置保护，否则不能关闭工作簿。

9323 0

常用vbs代码

, vbYesNo, “Delete Files”) If intAnswer = vbYes Then Msgbox “You answered yes.”...”) ‘声明饮用函数 set oexec=wshshell.exec(program1) ‘运行程序 wscript.sleep 2000 ‘(该行命令未知作用.估计是设定延迟，请高手指点)...，因此VBS文件具有很多命令的统一性) 将某一指定文件夹的所有只读文件转为可读文件 Const ReadOnly = 1 ‘设只读属性对应值为1 Set FSO = CreateObject(...默认为True）’执行XOR逻辑运算，将其改为可读 End If ‘结束判断 Next 将Word文件另存为文本文件 Const wdFormatText = 2 ’设置常数值 (当该值为...8时另存为HTML文档，为11时另存为XML文档) Set objWord = CreateObject(“Word.Application”) ‘申明调用函数 Set objDoc = objWord.Documents.Open

2.2K2 0

Word VBA技术：对文档中的所有表格应用统一的边框

标签：Word VBA 如果你的文档中或者他人传给你的文档中有很多表格，但这些表格有不同样式的边框，而你现在想将这些表格的边框设置为统一的样式，怎么办？...当然，你可以逐个表格逐个表格地设置，但是如果文档中的表格很多，这样的操作既繁琐又浪费时间。这种情形下，VBA就派上用场了。...WdLineWidth Dim objBorderColor As WdColor Dim objArray As Variant Dim n As Long Dim i As Long '可以将下面的值修改为想要的样式...Style = vbYesNo + vbQuestion Response = MsgBox(strMsg, Style,strTitle) If Response vbYes Then...Exit Sub Else '当前文档中没有找到表格 MsgBox "文档中没有表格."

1.4K3 0

点击加载更多

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云