|
▼初心者3 さん:
>いつも大変お世話になっております。
>
>フォームを使って検索し、検索データを修正した後
>登録を行うコードをいろいろな方のコードを参考に
>作っています。
>以下のように書きましたが、シート上では検索
>出来ましたが、フォーム上に表示されません。
>
>どこの部分を修正すれば、反映されますでしょうか?
>
>
>Private Sub CommandButton1_Click() '[検索]ボタン
> Dim myDname As String
> Dim c As Range
>
> strSimei = Me.simei.Value
>
>'エラートラップを設定する
> On Error GoTo errHandler
>'テキストボックスの文字列を検索する
> With Sheets("編集用シート").Columns("A")
> Set c = .Find(What:=Me.TextBox1.Text, After:=Range("A2"), LookIn:=xlValues, lookat:=xlPart).Activate
> Me.simei.value = c.value
> Me.furigana.Value = c.Offset(, 1).Value
> Me.tel1.Value = c.Offset(, 2).Value
> Me.tel2.Value = c.Offset(, 3).Value
> Me.tel3.Value = c.Offset(, 4).Value
> Me.mail1.Value = c.Offset(, 5).Value
> Me.mail2.Value = c.Offset(, 6).Value
> Me.mail3.Value = c.Offset(, 7).Value
> Me.memo.Value = c.Offset(, 8).Value
>
>
> End With
>
>'エラートラップを解除する
> On Error GoTo 0
>
>'サブルーチンを抜ける
>Exit Sub
>'エラートラップ用ラベル
>errHandler:
>'メッセージボックスを表示する
> MsgBox "該当なし"
>'エラーを無視して次のステートメントを実行する
> Resume Next
>End Sub
Me.tel1.Value ←このあたりのコントロールはなんですか?
TextBoxですか?
Label だとしたら、.Captionだと思います。
On Error GoTo errHandler をコメントアウトして
どうなるのか明記してください。
|
|