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

huangli0356

        黄南 于2013-10-16 21-14-48：
解释啥？

t小宝

雨 于2013-10-16 21-15-11：
快去看书，别来问这无厘头的问题

Office中国群管

      Ａ 于2013-10-16 21-15-25：
[face10.gif]

t小宝

雨 于2013-10-16 21-19-34：
[qqimg]{D2BD3A1C-0F04-9FE3-8B7A-766FFA55F931}.gif[/qqimg]

Office中国群管

      Ａ 于2013-10-16 21-20-35：
这段代码有点子用  。。

smileyoufu

席主习 于2013-10-16 21-23-06：
你放到谷歌去翻译一下，就知道了

Office中国群管

      Ａ 于2013-10-16 21-23-35：
嗯  我去试试[face13.gif]

huangli0356

        黄南 于2013-10-16 21-41-20：
Private Sub Check0_AfterUpdate()
Dim strDH As String
strDH = InputBox("底下为当前默认单号", "请注意当前选择", Format(Date, "yyyymmdd"))

If Me.Check0 Then
    If strDH  "" Then
   
        Me.Text2 = strDH
        Me.Check0 = 1
    Else
        Me.Check0 = 0
    End If
   
    Else
        If MsgBox("这里的内容", vbOKCancel, "请确认") = vbOK Then
        Me.Text2 = ""
   
        Else
        Me.Check0 = 1
        End If
End If
End Sub

huangli0356

        黄南 于2013-10-16 21-41-37：
这样的语句严谨不？

smileyoufu

席主习 于2013-10-16 21-43-12：
有点绕