引用外部链接图片

Dim imagepath As String

Private Sub 图片名称_DblClick(Cancel As Integer)

imagepath = CurrentProject.Path & "\" & "图片\" & Me.图片名称 & ".png"

Forms("引用外部链接图片").image图像.Picture = imagepath

End Sub

隐藏Access后台界面

隐藏后台界面

Public hidden_num As Integer

Public restore_num As Integer

Private Sub Command隐藏_Click()

If hidden_num = 0 Then

hidden_num = 1

restore_num = 0

fSetAccessWindow (0)

Else

hidden_num = 0

showwindow Access.Application.hWndAccessApp, 5

End If

End Sub

Private Sub Form_Timer()

If restore_num = 0 Then

DoCmd.Restore

restore_num = 1

End If

End Sub

模块1

Public Declare PtrSafe Function showwindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare PtrSafe Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hwnd As Long, _

ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

Dim loX As Long

Dim loForm As Form

On Error Resume Next

loX = apiShowWindow(hWndAccessApp, nCmdShow)

Err.Clear

fSetAccessWindow = (loX <> 0)

End Function

注册登录窗体

Private Sub 登录_Click()

If 账号 <> "" And 密码 <> "" Then

    If Me.密码 = DLookup("密码", "账号密码表", "账号='" & Me.账号 & "'") Then   '修改域函数参数

        MsgBox "登录成功"

        DoCmd.OpenForm "系统主页", acNormal, , "账号='" & Me.账号 & "'"

        DoCmd.Close acForm, Me.Name

    Else

        MsgBox "账号或密码错误"

    End If

Else

MsgBox "请输入账号和密码"

End If

End Sub

Private Sub 退出_Click()

Application.Quit acQuitSaveAll

End Sub

Private Sub 注册_Click()

If 账号 <> "" And 密码 <> "" Then

    If DCount("密码", "账号密码表", "账号='" & Me.账号 & "'") > 0 Then

    MsgBox "该账号已存在，请输入其他账号"

    Exit Sub

    Else

    DoCmd.SetWarnings (False)

    Dim add_sql As String

    add_sql = "Insert Into 账号密码表 (账号,密码) Values ('" & 账号 & "','" & 密码 & "')"

    DoCmd.RunSQL add_sql

    MsgBox "注册成功"

    Exit Sub

    End If

Else

MsgBox "请输入注册的账号和密码"

End If

End Sub