登録フォーム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コードが間違っていませんでした。私のデータベーステーブルが間違っていました。

お願いします。