设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: tmtony
打印 上一主题 下一主题

Access与Sql Server结合对企业开发有很大好处--2013-10-16-Access培训群(195471449)

 关闭 [复制链接]

点击这里给我发消息

491#
发表于 2013-10-16 21:43:44 | 只看该作者
        黄南 于2013-10-16 21-43-44:
我觉得语句很清晰啊。还是容易理解的。

点击这里给我发消息

492#
发表于 2013-10-16 21:44:20 | 只看该作者
雨 于2013-10-16 21-44-20:
MsgBox("这里的内容"...
看不懂

点击这里给我发消息

493#
发表于 2013-10-16 21:56:13 | 只看该作者
        黄南 于2013-10-16 21-56-13:
Private Sub Check0_AfterUpdate()
Dim strDH As String
Dim strRN As String
strRN = "是否删除当前编号为:" & Chr(10) & Chr(13) & Me.Text2 & Chr(10) & Chr(13) & "的内容"
If Me.Check0 Then
strDH = InputBox("底下为当前默认单号", "请注意当前选择", Format(Date, "yyyymmdd"))
    If strDH  "" Then
   
        Me.Text2 = strDH
        Me.Check0 = 1
    Else
        Me.Check0 = 0
    End If
   
Else
        If MsgBox(strRN, vbOKCancel, "请确认") = vbOK Then
        Me.Text2 = ""
   
        Else
        Me.Check0 = 1
        End If
End If
End Sub

点击这里给我发消息

494#
发表于 2013-10-16 21:56:19 | 只看该作者
        黄南 于2013-10-16 21-56-19:
改进后的。

点击这里给我发消息

495#
发表于 2013-10-16 22:09:36 | 只看该作者
雨 于2013-10-16 22-09-36:
基本可用

点击这里给我发消息

496#
发表于 2013-10-16 22:10:32 | 只看该作者
zhuyiwen 于2013-10-16 22-10-32:
晚上好

点击这里给我发消息

497#
发表于 2013-10-16 22:12:42 | 只看该作者
雨 于2013-10-16 22-12-42:
朱总好

点击这里给我发消息

498#
发表于 2013-10-16 22:15:29 | 只看该作者
无名小卒 于2013-10-16 22-15-29:
各位老师,晚上好

点击这里给我发消息

499#
发表于 2013-10-16 22:24:29 | 只看该作者
无名小卒 于2013-10-16 22-24-29:
请教一下:Grab the values out of the class properties to populate the text boxes中的out of是什么意思?

点击这里给我发消息

500#
发表于 2013-10-16 23:12:02 | 只看该作者
无名小卒 于2013-10-16 23-12-02:
在绑定窗体中,添加新记录,其代码是不是这样:DoCmd.GoToRecord , , acNewRec
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-9-23 14:33 , Processed in 0.092389 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表