显示隐藏导航窗格

Public hidden_num As Integer

Private Sub Command隐藏_Click()

If hidden_num = 0 Then

hidden_num = 1

DoCmd.SelectObject acForm, , True

DoCmd.RunCommand acCmdWindowHide

Else

hidden_num = 0

DoCmd.SelectObject acForm, , True

End If

End Sub

向组合框添加选项

Private Sub Command删除_Click()

If Me.城市列表 <> "" Then

    DoCmd.SetWarnings (False)

    Dim del_sql As String

    del_sql = "Delete From 城市表 Where  城市名称= '" & Me.城市列表 & "'"

    DoCmd.RunSQL del_sql

    Me.城市列表.Value = ""

    Me.城市列表.Requery

Else

MsgBox "请选择要删除的城市"

End If

End Sub

Private Sub Command添加_Click()

If Me.添加城市名 <> "" Then

    If Nz(DCount("城市名称", "城市表", "城市名称='" & Me.添加城市名 & "'"), 0) > 0 Then

        MsgBox "城市名已存在"

        Exit Sub

    End If

    DoCmd.SetWarnings (False)

    Dim add_sql As String

    add_sql = "Insert Into 城市表 (城市名称) Values ('" & Me.添加城市名 & "')"

    DoCmd.RunSQL add_sql

    Me.城市列表.Requery

Else

MsgBox "城市名不能为空"

End If

End Sub

修改密码验证功能

Private Sub Command修改密码_Click()

Dim oldpw As String

Dim newpw As String

oldpw = InputBox("请输入原密码")

If oldpw <> Me.密码 Then

MsgBox "原密码不正确"

Exit Sub

End If

newpw = InputBox("请输入新密码")

If newpw <> "" Then

    If newpw = oldpw Then

        MsgBox "新密码不能与旧密码相同"

        Exit Sub

    End If

    If Len(newpw) < 6 Then

        MsgBox "新密码不能小于6位"

        Exit Sub

    End If

    Me.密码 = newpw

    MsgBox "密码修改成功"

Else

MsgBox "新密码不能为空"

Exit Sub

End If

End Sub