注册表格vba sql

Question

也许有人可以使用访问权限帮助我使用此代码获取注册表单。

Private Sub Befehl17_Click()
Dim sql As String
Dim rs As DAO.Recordset
sql = "Select Username from dbo_UserTest1 where Username = '" & Me.Username & "' "
On Error GoTo weiter
Set rs = CurrentDb.OpenRecordset(sql)
If rs!Username= Null Then
weiter:
DoCmd.RunSQL "Insert Into dbo_UserTest1 (Username, Passwort) values ('" & Me.Username & "' , '" & Me.Passwort & "')"
Else
message = MsgBox("Name schon vorhanden", vbOKOnly)
End If
End Sub

对我来说很好看，但它根本没用。 我做错了什么？

Answer 1

好的，我明白了。 不是我的vba + sql代码错了我的数据库表错了。

感谢您的帮助。