我想弄一个登入的窗体

自由飞翔

我想做一个用户登入的窗体，只有输入用户名，密码 还有2个按钮，各是确定，取消，

请问我要怎么编确定的程序呢，我懂取消怎么编的，就是不懂确定，谁能告诉我呢，谢谢

thomasleung83

Private Sub Command7_Click()
Dim loginacc As String
Dim password As String
If IsNull(DLookup("[loginacc]", "[accdata]", "[loginacc]=""&loginacc.value&""")) Then
MsgBox "??祥湔婓"
Me.loginacc.Value = Null
Me.loginacc.SetFocus
Else
loginacc = Me.loginacc.Value
If IsNull(DLookup("[password]", "[accdata]", "[password]=""&password.value&""")) Then
MsgBox "躇徨嶒悷"
Me.password.SetFocus
Me.password.Value = Null
Else
DoCmd.OpenForm "mainmeau"
DoCmd.Close acForm, "login"
End If
End If
End Sub

這是我修改的~幫忙看一下~~謝謝~

thomasleung83

為什麼跟著做還是不行?想尋求幫助~

naiba

怎么今天发表的都会乱码呢?

naiba

发个贴图吧,这样就不会乱码了,给你参考用的

[此贴子已经被作者于2004-9-14 14:47:30编辑过]

xulanghui

http://www.office-cn.net/forum.php?mod=viewthread&tid=20784看此贴就可以了。