[コンパイルエラー 修飾子が不正です]

ユーザフォームに「ユーザ名」を入力します。
　(1)テキストボックスの入力有無の確認
　(2)ユーザ名の重複の確認
上記を実行させようとしているのですが、「コンパイルエラー　修飾子が不正です」が表示
されてしまいます。

にわか覚えのVBAでどうしたらよいか・・わかりません。
ご教授願います。。m(__)m。。

**********以下

'[登録ボタン]を押した時の処理
Private Sub user_touroku_button_Click()　　　←★ここでエラー発生！！

'-------------------------------------------------
Dim check As Long '重複有無
Dim rowsCount As Long '表の現在行数


'必須項目のチェック（ユーザ名）
If user_txt.Text = "" Then
MsgBox "ユーザ（案件）名を入力してください。", vbExclamation, "入力エラー"
user_txt.Text.SetFocus
Exit Sub
End If

'ユーザ名の重複チェック
On Error Resume Next
check = 0
check = WorksheetFunction.Match(user_txt.Text, Range("ユーザ一覧").Columns(5), 0)

On Error GoTo 0
If check > 0 Then
MsgBox "このユーザ（案件）名はすでに登録されています", vbExclamation, "重複エラー"
user_txt.Text.SetFocus

Exit Sub

End If
'-----------------------------------------------------

よろしくお願いします。

No.1 ベストアンサー 回答者： nag0720 回答日時： 2011/08/26 20:24

パッと見ただけで確認はしていませんが、

user_txt.Text.SetFocus
はＮＧです。（２ヶ所ありますね）

user_txt　はテキストボックス
user_txt.Text　はテキストボックスに入力された文字列

SetFocusを指定できるのはテキストボックスなので、
user_txt.SetFocus
としなければなりません。

この回答へのお礼

あっ！！そのようですね。。
単純なミスでした、、すみません。。

これで動きました。ホントお騒がせいたしました。
ありがとうございます！！

お礼日時：2011/08/26 20:31