docmd.openform 选择打开窗体的视图

最新推荐文章于 2023-11-01 17:19:40 发布
最新推荐文章于 2023-11-01 17:19:40 发布
阅读量3.2k 收藏 3
点赞数 1
分类专栏： 001 Access VBA
1.以设计视图的方式打开窗体

DoCmd.OpenForm "窗体名", acDesign

2.以数据表的方式打开窗体
DoCmd.OpenForm "窗体名", acFormDS

3.以数据透视图的方式打开窗体
DoCmd.OpenForm "窗体名", acFormPivotChart

4.以数据透视表的方式打开窗体
DoCmd.OpenForm "窗体名", acFormPivotTable

5.以普通窗体的方式打开窗体，默认方式
DoCmd.OpenForm "窗体名", acNormal

6.以预览的方式打开窗体
DoCmd.OpenForm "窗体名", acPreview

7.以普通窗体的方式打开窗体，默认
DoCmd.OpenForm "窗体名"

低调的嚣张的程序员
关注
  • 1
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
一个简单易用的登录窗体
03-12
我的一段登陆按钮代码，用户表里有三个用户名，在登陆时只有第一个用户名有效，其他几个都是用户名或密码错误，不知什么原因，请高手指点，代码如下，谢谢！ Option Compare Database Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmd_登陆_Click() Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "用户表 ", conn Dim username As String Dim userpass As String txt_用户名.SetFocus username = txt_用户名.Text If IsNull(username) Or IsNull(txt_密码.Value) Then MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vbInformation, "错误信息" Else If username rs!用户名 Then MsgBox "用户名或密码不正确,请重新输入", vbOKOnly + vbInformation, "错误信息" txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Value = "" txt_用户名.SetFocus Else rs.Close rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic rs.AddNew rs!用户名 = username rs!登录时间 = Now() rs!退出时间 = CDate(0) rs.Update rs.Close DoCmd.Close DoCmd.OpenForm "库存信息窗体" End If End If End Sub Private Sub Form_Load() txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Text = "" txt_用户名.SetFocus End Sub
html表单 access,【Access基础】OpenForm打开窗体方法详解
weixin_35075144的博客
07-05 1535
时　间:2020-06-11 08:01:25作　者:摘　要:对openform方法中的相关参数进行详解。正　文:expression.OpenForm(FormName,View,FilterName,WhereCondition,DataMode,WindowMode,OpenArgs)括号内的都是openform方法的相关参数，有些参数是必需指定，有些参数可选。expressio...
access vba的DoCmd对象
深未来技术
04-09 5125
DoCmd在Access中用于执行vb过程内的宏操作 其语法为： DoCmd.操作名 用逗号分隔的参数 比如打开窗体 DoCmd.OpenForm "我的窗体" 可以加个where条件过滤，在打开窗体时，前提是窗体的数据源已经设置完毕 下面是用命名参数的方式 DoCmd.OpenForm FormName:="我的窗体",WhereCondition:="[age]>30" ...
在windows下使用open命令
最新发布
lhy_9527的博客
11-01 390
windows下使用open命令 1.进入到c:/windows/路径下 2.找到explorer.exe 3.将explorer.exe复制出来一份，重命名为open.exe 通过以上步骤可以在gitbash或者cmd中直接使用open . 在windows资源管理器中打开当前所在的文件夹 使用 open 加上文件名可以选择打开方式来打开文件
打开CMD的六种方法，CMD快捷键，CMD命令大全及详解
热门推荐
yaosichengalpha的博客
07-22 2万+
打开CMD的六种方法，CMD快捷键，CMD命令大全及详解
Linux查看文件信息
weixin_44164489的博客
09-26 5011
本文转自此博客 在linux中，查看文件信息主要有三个命令： 1）ls命令 - list directory contents 2）file命令 - determine file type 3）stat命令 - display file or file system status 本文针对这三大命令描述使用方式，以及查看各种文件信息需要的详细命令。这三个命令的具体使用都可以通过 --help 来获取，例如对于ls 命令： 1、ls命令 1.1 列出文件夹中的文件 ls 1.2 文件夹中文件详
基于Access数据库开发商场管理系统.doc
02-27
基于Access数据库开发... [销售员工id] '打开"商品资料查询"窗体 docmd.openform "商品资料查询", acnormal, , , , acwindownormal end if '使"计算金额"按钮处于可用状态 me![计算金额].enabled = true exit_选择商
MD5加密解密算法描述.doc
04-15
MD5加密解密算法描述.docMD5加密解密算法描述.docMD5加密解密算法描述.doc
access多数据录入
10-01
DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True Else strSQL = "CREATE TABLE 服装临时表(服装名称 CHAR(50) PRIMARY KEY,款式 CHAR(50));" 'DoCmd.SetWarnings False DoCmd.RunSQL ...
openoffice cmd启动命令
02-22
openoffice cmd启动命令 通过cmd来启动openoffic服务
关于open form的资源
11-18
有关open form的相关知识，仔细学习有理于你进一步对open form进行了解
OpenFOAM软件
10-26
OpenFOAM是关于仿真计算的开源软件，适合应用在LInux系统下
openform学习
11-16
openfoam自带的学习帮助文件，便于自学和深入学习
RUNCOMMAND参数的中文详细说明
12-02
Microsoft Access 中的每个菜单和工具栏命令都有一个相关的常量，在 Visual Basic 中，可以用 RunCommand 方法执行该常量对应的那条命令。 　
vb请教：用vb写了一个打印当前页的命令，但总是出现打印窗口，有没有办法不出现这个窗口直接打印
09-24
请教：用vb写了一个打印当前页的命令，但总是出现打印窗口，有没有办法不出现这个窗口直接打印 悬赏分：25 - 解决时间：2010-2-4 11:07 因为经常需要打印当前的某一页而不是全部，所以在网上找到这个命令，建立宏...
帮我优化以下代码，不使用ADO ,然后每次导出不同的10000条记录至新的EXECL文件中：Dim strSQL As String Dim strFileName As String Dim i As Long Dim batchSize As Long '每批次导出的记录数 Dim batchCount As Long '批次计数器 Dim exportCount As Long '导出计数器 '设置导出文件路径和文件名 strFileName = "C:\Users\icd\Desktop\流水分割\" batchSize = 10000 '每批次导出的记录数 DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "SELECT 导出数据.* INTO ExportData FROM 导出数据" '将表导入临时表ExportData DoCmd.SetWarnings True '重新开启Access的警告信息 Set rs = CurrentDb.OpenRecordset("SELECT * FROM ExportData", dbOpenSnapshot) '打开临时表ExportData '循环导出数据 Do While Not rs.EOF If exportCount Mod batchSize = 0 Then '每批次导出到一个新的文件 If exportCount <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If batchCount = batchCount + 1 End If exportCount = exportCount + 1 rs.MoveNext Loop '导出最后一份文件 If exportCount Mod batchSize <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If rs.Close Set rs = Nothing DoCmd.SetWarnings False '暂时关闭Access的警告信息 DoCmd.RunSQL "DROP TABLE ExportData" '删除临时表ExportData DoCmd.RunSQL "DELETE 导出数据.* FROM 导出数据" '删除导出数据内容 DoCmd.SetWarnings True '重新开启Access的警告信息
06-09
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(batchCount, "000000") & ".xlsx", True End If batchCount = batchCount + 1 End If exportCount = ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值