[HOW TO を Access 2000 で MAILTO アドレスに HTTP アドレスから、ハイパーリンク フィールドの値を変更

ハイパーリンク フィールドに電子メール アドレスを入力する場合は、アドレスは既定で HTTP アドレスをリンクになります。 したがって、 someone@example.com 、入力した場合と実際には、データベースに格納されますは someone@example.com#http://someone@example.com#

これは、ハイパーリンク フィールドは 2 つの部分を行われるのでの予想される動作: 表示されるテキストと実際のアドレス。 フィールドの種類は [ハイパーリンクのため、Access でテキストが入力のされる Web サイトおよび電子メール アドレスしないものと見なされます。

ように変更するこのハイパーリンクをクリックして電子メールを送信できる、方法 1 または方法 2 の前述のいずれかを使用できます。 = 両方の方法は、既存のレコードのみを更新します。

自動的に形式が入力データをデータベースに、使用できます自動的、「方法をストアが正しく書式設定された電子メール アドレスに」前記載されています。

方法 1

更新クエリを使用して、MAILTO アドレスへの HTTP アドレスを変更するには

1. クエリをデザイン ビューを電子メール アドレスを持つテーブルに基づくで作成します。
2. クエリ デザイン グリッドにテーブルからの電子メール フィールドだけを含める
3. [ クエリ ] メニューの [更新] をクリックします。 レコードの更新 行、クエリ デザイン グリッドを追加これとします。
4. レコードの更新 ] 行に、次の式を入力します。 電子メール フィールドの名前で [差し込みフィールド] を置き換えます。
   IIf 関数 (Left([Mail Field],8) <>"# mailto:","#mailto:"& 左 ([フィールドのメール] InStr(1,[Mail Field],"#")-1)、[差し込みフィールド])
5. [ ファイル ] の [ 保存 ] をクリックします。 qryUpdateHyperlink としてクエリを保存します。
6. [ クエリ ] の [ 実行 ] をクリックします。 数の行 (テーブル内のレコード) を表すメッセージが表示されるノートが更新されます。 [はい] にレコードを更新するをクリックします。

方法 2

アプリケーション コードを使用して、MAILTO アドレスへの HTTP アドレスを変更するには

注 : この資料では Microsoft データ アクセスでのオブジェクトのサンプル コードです。 正常に動作させるには、Microsoft DAO 3.6 Object Library を参照する必要があります。 行う、 ツール メニュー Visual Basic エディターで、 [参照設定 ] をクリックし、 DAO 3. 6 オブジェクト ライブラリ のチェック ボックスがオンになっていることを、します。

1. 新しいモジュールを作成し、 basUpdateHyperlinkToMail という名前を付けます。
2. 入力するか、モジュールに次のコードを貼り付けます:

   Sub UpdateHyperlinkToMail()
   On Error GoTo Err_UpdateHyperlinkToMail
       Dim DB As DAO.Database
       Dim RS As DAO.Recordset
       Dim strMail As String
       
       Set DB = CurrentDb
       Set RS = DB.OpenRecordset("E-mail Table", dbOpenDynaset)
       
       With RS
           If .RecordCount > 0 Then .MoveFirst
           Do Until .EOF
               If Not IsNull(![Hyperlink Field]) Then
                   If Left(![Hyperlink Field], 8) <> "#mailto:" Then
                       strMail = "#mailto:" & Left(![Hyperlink Field], _
                       InStr(1, ![Hyperlink Field], "#") - 1) & "#"
                       .Edit
                           ![Hyperlink Field] = strMail
                       .Update
                   End If
               End If
               .MoveNext
           Loop
       End With
       MsgBox "Update complete!"    
   
   Exit_UpdateHyperlinkToMail:
       RS.Close
       Set RS = Nothing
       Set DB = Nothing
       Exit Sub
       
   Err_UpdateHyperlinkToMail:
       MsgBox "Error: " & Err.Number & " - " & Err.Description
       Resume Exit_UpdateHyperlinkToMail
   End Sub
   					

3. 「電子メール表」のテキスト、コードのと正しいテーブルの名前を置き換えられ、[フィールドの [ハイパーリンク] というテキストのすべてのインスタンスを電子メール アドレスを持つフィールドの名前で置き換えます。
4. この手順のどこかで、ポインターをクリックして F5 キーを押してコード実行をキーを押します。

自動的に、正しく書式設定された電子メール アドレスを格納します。

将来的には、インターネットのページにハイパーリンクの代わりに、電子メールのリンクとして入力した電子メール アドレスを格納する場合は、次の手順に従います。 このプロセスは、データがフォームを通じて入力されたことが必要です。

1. デザイン ビューで、データ入力フォームを開きます。
2. 右フィールドを使用、電子メール アドレスを入力するをクリックしてクリックして プロパティ。
3. [ イベント ] タブ のプロパティ のダイアログ] をクリックします。
4. "AfterUpdate/更新後処理" プロパティ ボックスで、矢印 [、一覧の [ Event Procedure ] をクリックします。
5. (...) ビルド 、</a0> をクリックして Visual Basic エディターを起動します。
6. Visual Basic Editor で表示は、電子メール フィールドの名前によって異なります。 たとえば、電子メール フィールドの名前が Text0 場合、に、次の表示:

   Private Sub Text0_AfterUpdate()
   
   End Sub

7. 入力するか、2 つの次の 2 行を手順 6 に示すコードの間のコード行を貼り付けます。 [Text0] フィールドの名前で ようにしてください。

   If Len(Me![Text0]) = 0 Then Exit Sub 
   Me![Text0] = "#mailto:" & Left(Me![Text0], InStr(1, Me![Text0], "#") - 1) & "#"

   に電子メール アドレスがこのフィールドに入力されて今すぐ、ときに自動的にフォーマットありこのフィールドからフォーカスが移動するとすぐに電子メール アドレスとして格納します。