アクセルでの電話番号の形式を作りたいのですが。

◇-?アクセルでの電話番号の形式を作りたいのですが。-ももんが(2004/9/22-09:23)No.203150
　┣?!Re:アクセルでの電話番号の形式�...-龍矢(2004/9/22-09:55)No.203152
　┗?!Re:アクセルでの電話番号の形式�...-unknown(2004/9/22-13:21)No.203178

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

203150	アクセルでの電話番号の形式を作りたいのですが。	ももんが	2004/9/22-09:23
メーカー名：SHARP シャープ OS名：WindowsXP パソコン名：TT-G45 ソフト名：アクセス -- おはようございます。アクセスの入力画面にて、0000-00-0000と00-0000-0000と入力できるように設定したいのです。どちらかは無理ですか？でしたら片方だけでも教えて下さるとありがたいです。それから、アクセスの質問よろしいのでしょうか？パソコン自体の質問でなくても。アクセス専門の質問掲示板を探してみたのですが、見つからなくて質問させていただきました。よろしくお願いします。

▲このページのトップに戻る

203152	Re:アクセルでの電話番号の形式を作りたいのですが。	龍矢	2004/9/22-09:55
記事番号203150へのコメント入力するテキストボックスのプロパティを開いて、定型入力をウィザード(定型入力を選ぶと右に出てくる「…」をクリック)で電話番号に設定する。もしくは定型入力に直接　!9999\-99\-9999;0;_ と入力する（0000-00-0000の場合）こういうことでよいのかな？

▲このページのトップに戻る

203178	Re:アクセルでの電話番号の形式を作りたいのですが。	unknown	2004/9/22-13:21
記事番号203150へのコメントももんがさんは No.203150「アクセルでの電話番号の形式を作りたいのですが。」で書きました。 >アクセスの入力画面にて、0000-00-0000と00-0000-0000と >入力できるように設定したいのです。 >どちらかは無理ですか？ >でしたら片方だけでも教えて下さるとありがたいです。 ACCESS専用の掲示板は結構あるみたいです http://www.google.com/search?num=50&lr=lang_ja&q=ms+access+%E6%8E%B2%E7%A4%BA%E6%9D%BF 入力するテキストボックス(txt0)の更新後処理のイベントプロージャで “-”を取っ払うのはどうでしょう参考 #適当に自作なので使用は自己責任でお願いします Private Sub txt0_AfterUpdate() 'エラー処理なし Dim str_a, str_b As String Dim int_i1, int_i2, int_k As Integer If Not IsNull(Me![txt0]) Then '半角に変換 str_a = StrConv(Me![txt0], 8) '文字数を調べる int_k = Len(str_a) '"-"の場所探す int_i1 = InStr(str_a, "-") int_i2 = InStr(int_i1 + 1, str_a, "-") '一個目の"-"が存在 If int_i1 > 1 Then str_b = Left(str_a, int_i1 - 1) '二個目の"-"が存在 If int_i2 > 1 Then str_b = str_b + Mid(str_a, int_i1 + 1, int_i2 - int_i1 - 1) str_b = str_b + Mid(str_a, int_i2 + 1, int_k - int_i2) Else '二個目なし str_b = str_b + Mid(str_a, int_i1 + 1, int_k - int_i1) End If Me![txt0] = str_b Else '"-"なし End If End If End Sub

パソコントラブル解決・過去ログTOP > ログTOP > アクセルでの電話番号の形式を作りたいのですが。

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言