社区
Office开发/ VBA
帖子详情
使用docmd.runsql进行纪录操作的时候,如何避免出现确认信息?
BoBoQ
2003-08-22 08:42:53
我在使用docmd.runsql中执行删除或者新增记录时候都会弹出确认信息,不知道如何避免
我只知道通过选项中的关闭操作查询这个可选项能够避免,但是请教高手,能不能在VBA代码中实现这个功能?
...全文
125
2
打赏
收藏
使用docmd.runsql进行纪录操作的时候,如何避免出现确认信息?
我在使用docmd.runsql中执行删除或者新增记录时候都会弹出确认信息,不知道如何避免 我只知道通过选项中的关闭操作查询这个可选项能够避免,但是请教高手,能不能在VBA代码中实现这个功能?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dongshaoqing
2003-08-22
打赏
举报
回复
你可以通过录制宏来完成获取代码,你先在工具-宏-录制宏开始录制一个宏,然后你就用鼠标操作选项中的关闭操作查询这个可选项,然后结束录制,这是你到VB编辑器里就能得到相应的代码,我在这里就不给你录制代码了,你自己可以试试,以后有什么操作不会写代码的,都可以通过这种方法来得到VBA代码!
changechange
2003-08-22
打赏
举报
回复
当然可以
http://access911.net/index.asp?board=4&mode=3&recordid=76FABF1E
access多数据录入
ACCESS多条数据录入,可以方便用户Private Sub BtOK_Click() Dim strSQL As String If (Me.CbSize.Value "") Then strSQL = "INSERT INTO 服装表(服装名称,款式,尺寸) VALUES('" & Me.TxName.Value & "','" & Me.TxStyle.Value & "'," & Me.CbSize.Value & ");"
DoC
md
.SetWarnings False
DoC
md
.
Ru
nSQ
L strSQL
DoC
md
.SetWarnings T
ru
e Else strSQL = "CREATE TABLE 服装临时表(服装名称 CHAR(50) PRIMARY KEY,款式 CHAR(50));" '
DoC
md
.SetWarnings False
DoC
md
.
Ru
nSQ
L strSQL '
DoC
md
.SetWarnings T
ru
e strSQL = "INSERT INTO 服装临时表(服装名称,款式) VALUES('" & Me.TxName.Value & "','" & Me.TxStyle.Value & "');" '
DoC
md
.SetWarnings False
DoC
md
.
Ru
nSQ
L strSQL '
DoC
md
.SetWarnings T
ru
e strSQL = "INSERT INTO 服装表(服装名称,款式,尺寸) SELECT 服装名称,款式,尺寸 FROM 服装临时表,尺寸表;" '
DoC
md
.SetWarnings False
DoC
md
.
Ru
nSQ
L strSQL '
DoC
md
.SetWarnings T
ru
e strSQL = "DROP TABLE 服装临时表" '
DoC
md
.SetWarnings False
DoC
md
.
Ru
nSQ
L strSQL '
DoC
md
.SetWarnings T
ru
e End If MsgBox "添加成功" End Sub
ACCESS合成数据
'//ACCESS合成数据 Private Sub Command14_Click() '导入男生体育成绩 On Error Resume Next Dim strfilename As String Dim myCat As New ADOX.Catalog Dim strsql As String Dim mytable As String '指定外部数据库 strfilename = GetFileName("选择
md
b文件", "*.
md
b", "
md
b") Me.MYBOOKPATH = strfilename mytable = "studs" '指定外部库中数据表 strsql = "INSERT INTO 体育" strsql = strsql + " SELECT * " strsql = strsql + " FROM " & mytable & " in '" & strfilename strsql = strsql + "' WHERE sex='男';" Me.Text11 = strsql '将指定外部库中指定表中的数据追加到 [体育] 表中
DoC
md
.
Ru
nSQ
L strsql Me.List6.Requery End Sub ......
抽奖
信息
管理系统的设计思路和基本原理.
doc
DoC
md
.SetWarnings False
DoC
md
.OpenQuery "删除对奖票号", acNormal, acEdit
DoC
md
.OpenQuery "追加对奖票号", acNormal, acEdit
vb请教:用vb写了一个打印当前页的命令,但总是出现打印窗口,有没有办法不出现这个窗口直接打印
请教:用vb写了一个打印当前页的命令,但总是出现打印窗口,有没有办法不出现这个窗口直接打印 悬赏分:25 - 解决时间:2010-2-4 11:07 因为经常需要打印当前的某一页而不是全部,所以在网上找到这个命令,建立宏命令: 点击“创建”按钮,进入Word宏编辑状态。在要“Sub FilePrinttCurrentPage”和“End Sub”之间,录入以下内容(图2): With Dialogs(wdDialogFilePrint) .Range = wdPrintCurrentPage .Show End With 但打印时仍出现让人点击“确定”的打印窗口,请问大侠们有啥办法让它直接打印,不再出现窗口没,类似Word自己的那个直接打印按钮 提问者: xyc700 - 五级最佳答案在宏里写如下代码,直接按word设置的打印机打印,而不会像你说的显示对话框。 With Dialogs(wdDialogFilePrint) .Range = wdPrintCurrentPage .Execute
成语字典代码
Recordsource Recordset bookmark Option Compare Database Private Sub Form_Close() '
DoC
md
.Quit acQuitSaveNone 'Application.Quit acQuitSaveNone End Sub Private Sub Form_Load() '
DoC
md
.
Ru
nCommand acC
md
AppMinimize Set Me.SUB.Form.Recordset = Me.Recordset End Sub Private Sub Image13_Click() Me.Recordset.MoveFirst Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image14_Click() On Error Resume Next Me.Recordset.MovePrevious Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image15_Click() 'Forms!main.Recordset.MoveNext 'Forms!main!SUB.Form!CM.SelLength = 0 '****************************************** On Error Resume Next Me.Recordset.MoveNext Me!SUB.Form!CM.SelLength = 0 '****************************************** 'Me.Recordset.MoveNext 'Me.SUB.Form.CM.SelLength = 0 End Sub Private Sub Image16_Click() Me.Recordset.MoveLast Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image19_Click() On Error Resume Next Me.SUB.SetFocus End Sub Private Sub srch_Afte
rU
pdate() 'Me.SUB.SetFocus If Nz(Me.srch) <> "" Then If IsNull(DLookup("CM", "Main", "CM LIKE '*" & Me.srch & "*'")) Then MsgBox "找不到包含[" & Me.srch & "]的成语" Me.srch = "" Exit Sub End If Me.RecordSource = "select * from main where CM LIKE '*" & Me.srch & "*'" Else Me.RecordSource = "main" End If Me.srch = "" 'Set Me.SUB.Form.Recordset = Me.Recordset Set Me!SUB.Form.Recordset = Me.Recordset Me.Requery 'Me.SUB.SetFocus Me.SUB.Form.CM.SelLength = 0 End Sub
Office开发/ VBA
5,139
社区成员
17,886
社区内容
发帖
与我相关
我的任务
Office开发/ VBA
其他开发语言 Office开发/ VBA
复制链接
扫一扫
分享
社区描述
其他开发语言 Office开发/ VBA
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章