摘要：
Private Sub Com1_Click()Me.win.SourceObject = "窗体1"End Sub Private Sub Com2_Click()Me.win.SourceObject = "窗体2"End Sub 阅读全文
posted @ 2018-05-01 23:37
黑旗君
阅读(894)
评论(0)
推荐(0)
摘要：
Private Sub Form_Load()DoCmd.Echo False Dim x, y As IntegerDoCmd.Maximizex = Me.WindowWidthy = Me.WindowHeightDoCmd.RestoreDoCmd.Echo TrueMove (x - Me 阅读全文
posted @ 2018-05-01 13:43
黑旗君
阅读(577)
评论(0)
推荐(0)
摘要：
Private Sub Form_Load()DoCmd.ShowToolbar "Ribbon", acToolbarNo '窗体最大化，占满软件最 End Sub 阅读全文
posted @ 2018-05-01 13:42
黑旗君
阅读(540)
评论(0)
推荐(0)
摘要：
Private Sub Form_Load() '引用C:\windows\system32\MSCOMCTL.OCX，否则提示出错。 Dim Rec As New ADODB.Recordset Dim stRecQL As String Dim Item As Integer Dim i As 阅读全文
posted @ 2018-05-01 12:01
黑旗君
阅读(496)
评论(0)
推荐(0)
摘要：
Private Sub TreeView0_Updated(Code As Integer)Dim ndeindex As NodeSet ndeindex = TreeView0.Nodes.Add(, , "a", "基础资料 ", "k1")Set ndeindex = TreeView0.N 阅读全文
posted @ 2018-05-01 10:36
黑旗君
阅读(667)
评论(0)
推荐(0)
摘要：
‘ 这一段是用来检查有没有输入用户名或密码的If IsNull(Trim(Me.username )) ThenDoCmd.BeepMsgBox ("请输入用户名称! ")ElseIf IsNull(Trim(Me.password )) ThenDoCmd.BeepMsgBox ("请输入密码! 阅读全文
posted @ 2018-05-01 10:34
黑旗君
阅读(827)
评论(0)
推荐(0)
摘要：
Private Sub login_Click()If IsNull(Me.username) ThenMsgBox "请输入用户名！", vbExclamationElseIf IsNull(Me.password) ThenMsgBox "请输入密码！", vbExclamationElseIf 阅读全文
posted @ 2018-05-01 10:15
黑旗君
阅读(1823)
评论(0)
推荐(0)
浙公网安备 33010602011771号