当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字符串知识介绍（续：消息框和输入框）

消息框是一个特殊的对话框，用于向用户显示一条信息。用户无法在消息框中键入任何内容。通常会创建两种消息框：一种只是显示信息，另一种是希望用户做出决定。

EXCEL VBA语句集300

定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示  Option Compare Text ‘字符串不区分大小写  Option Base 1 ‘指定数组的第一个下标为1 (2) On Error Resume Next ‘忽略错误继续执行VBA代码,避免出现错误消息 (3) On Error GoTo ErrorHandler ‘当错误发生时跳转到过程中的某个位置 (4) On Error GoTo 0 ‘恢复正常的错误提示 (5) Application.DisplayAlerts=False ‘在程序执行过程中使出现的警告框不显示 (6) Application.ScreenUpdating=False ‘关闭屏幕刷新 Application.ScreenUpdating=True ‘打开屏幕刷新 (7) Application.Enable.CancelKey=xlDisabled ‘禁用Ctrl+Break中止宏运行的功能  工作簿 (8) Workbooks.Add() ‘创建一个新的工作簿 (9) Workbooks(“book1.xls”).Activate ‘激活名为book1的工作簿 (10) ThisWorkbook.Save ‘保存工作簿 (11) ThisWorkbook.close ‘关闭当前工作簿 (12) ActiveWorkbook.Sheets.Count ‘获取活动工作薄中工作表数 (13) ActiveWorkbook.name ‘返回活动工作薄的名称 (14) ThisWorkbook.Name ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称 (15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小 (16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列 (17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化  工作表 (18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数 (19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性) (20) Sheets(Sheet1).Name= “Sum” ‘将Sheet1命名为Sum (21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) ‘添加一个新工作表在第一工作表前 (22) ActiveSheet.Move After:=ActiveWorkbook. _ Sheets(ActiveWorkbook.Sheets.Count) ‘将当前工作表移至工作表的最后 (23) Worksheets(Array(“sheet1”,”sheet2”)).Select ‘同时选择工作表1和工作表2 (24) Sheets(“sheet1”).Delete或 Sheets(1).Delete ‘删除工作表1 (25) ActiveWorkbook.Sheets(i).Name ‘获取工作表i的名称 (26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines ‘切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮 (27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings ‘切换工作表中的行列边框显示 (28) ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式 (29) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接 (30) ActiveSheet.PageSetup.Orientation=xlLandscape 或ActiveSheet.PageSetup.Orientation=2 ‘将页面设置更改为横向 (31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页面设置的表尾中输入文件路径 ActiveSheet.PageSetup.Le

大家好，又见面了，我是你们的朋友全栈君。在公司实习了一个周，虽然很累，但也感觉有所得，此次项目是做一个局域网两台计算机之间的文件传输。我用的主要控件为winsock控件，用其TCP协议。至于用此控件连接两台计算机书上都有介绍，我主要介绍一下我传送文件的思想和方法：首先，将要传送的文件分成指定大小的N个包，大小不能超过8K因为TCP每次最多发送8K数据，最后一个包可能会小于其它包。然后在每个包加个包头，因为接收端需要通过包头知道传送过来的是数据还是路径（因为发送端指定存放路径），接收端收到数据后必须返回确认到发送端，这样才能循环发送，但一定要有最后的终止，不然会死循环。我的主要发送和接收代码如下：发送端收到数据后产生的事件 Private Sub WskCli_DataArrival(ByVal bytesTotal As Long) Dim FIT As Boolean, OVER As Boolean, xx As Byte WskCli.GetData FIT If Number < BagNum Then If FIT = True Then ‘接收端已收到上一个数据包 If v <> 0 Then ‘传送速率受限制 Dim ss As Long ss = 0 Do Until (Number * 1024 <= v * ss) ‘传送速率过大则等待 ss = CLng((Time – timeInt) * 3600 * 24) Loop End If Send_File ‘调用发送文件数据包过程 End If Number = Number + 1 ‘计数 ProgressBar1.Value = Number * 20 / BagNum ‘刷新进度条的进度 El** *x = 2 WskCli.SendData xx ‘发送传送完毕的信息给接收端 Close 1 Label1.Caption = “发送完毕！” OVER = True Number = 0 ‘传送完后置计数Number=0 End If If OVER = True Then ‘传送完之后的处理 Drive1.Enabled = True Dir1.Enabled = True File1.Enabled = True CmdSend.Enabled = True Exit Sub End If End Sub send_file是自定义的一个发送过程: Private Sub Send_File() Dim i As Long ‘循环变量 If Number <= BagNum – 1 Then ReDim Buff(1 To BagSize) As Byte ‘定义缓冲区 ReDim TempBuff(0 To BagSize) As Byte Get 1, , Buff TempBuff(0) = 1 ‘设置包头为1代表文件数据 For i = 1 To BagSize TempBuff(i) = Buff(i) Next WskCli.SendData TempBuff Else ‘传送最后一个数据包 n = filelength – Seek(1) + 1 ‘得到最后一个包的大小 If n > 0 Then ReDim Buff(0 To n) As Byte ReDim TempBuff(0 To n) As Byte TempBuff(0) = 1 ‘设置包头为1代表文件数据 Get 1, , Buff For i = 1 To n TempBuff(i) = Buff(i – 1)

导读：本期介绍如何在Access数据库中创建一张空数据表。下期将介绍如何将工作表中的数据存入数据库对应的表中，随后还将介绍如何从数据库的表中取出数据输出到Excel工作表中，以及如何在导入一个文本文件时（如信贷台账.csv），自动建立数据库，创建表，并将记录导入到数据库表中，完成Excel与Access的完美交互。演示：在下面的演示中，运行代码后，你将看到，在数据库中，创建了一张名为的空表，有4个字段。 📷 代码： 📷 Code: Option Explicit '需手动在VBE窗口，工具-引用 Mi

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

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

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐