No.4
- 回答日時:
VBAでやるなら
<郵便番号の-(半角)削除>
Sub test01()
Dim conn As Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Source = "住所録1"
rs.Open "住所録1", conn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
s = rs!郵便番号
st = 1
p01:
p = InStr(st, s, "-")
If p = 0 Then GoTo p02
s = Mid(s, 1, p - 1) & Mid(s, p + 1, Len(s) - p)
st = p + 1
GoTo p01
p02:
rs!郵便番号 = s
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
<「コード」フィールドの先頭1字削除>
Sub test02()
Dim conn As Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Source = "住所録1"
rs.Open "住所録1", conn, adOpenKeyset, adLockOptimistic
rs.MoveFirst
Do Until rs.EOF
s = rs!コード
s = Mid(s, 2, Len(s) - 1)
rs!コード = s
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End Sub
No.1
- 回答日時:
1に関しては、テーブルに削除したいデータがあると仮定すると
削除したいレコードを選択(白黒反転)し、「置換(Ctrl+H)」で
「検索する文字列」に「-」、「置換後の文字列」に何も入れずに
「カレントフィールドのみ」にチェックが入っている事と、
「完全に一致するフィールドだけを検索する」にチェックが入っていない事を
確認して「全て置換」でOKです。
2に関してはAccessではなくExcelにエクスポート → Excelで加工 →
Accessにインポートの方が簡単では?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- Yahoo!メール Yahooメールにログインできません 2 2022/12/12 07:46
- Excel(エクセル) Excel 指定した固有番号で、複数の行を削除する方法は? 2 2022/03/30 15:18
- Excel(エクセル) エクセルの住所から郵便番号を表示するには 2 2022/09/01 16:18
- Excel(エクセル) エクセルの使い方について 2 2023/02/07 20:54
- LINE LINEに詳しい方よろしくお願いします。 あるLINE の過去履歴(オープンチャット)だけを一括で消 1 2023/06/26 21:18
- Google Maps 郵便番号を Google マップで調べる方法を教えてください 環境としては 日本に滞在して間もない 3 2022/03/23 12:25
- その他(ネットショッピング・通販・ECサイト) 海外サイトで買い物をしようとすると何回郵便局番号をうっても下の画像のようにエラーがでて購入出来ません 2 2022/04/17 13:08
- その他(ネットショッピング・通販・ECサイト) 海外サイトで買い物をしようとすると何回郵便局番号をうっても下の画像のようにエラーがでて購入出来ません 2 2022/04/17 13:09
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのデータをアクセスに...
-
ACCESSで行数を増やすには?
-
ACCESSのテーブルのデータで、...
-
EXCEL→ACCESSインポートでセル...
-
URL #が付いてるレコードと...
-
Access2000 テキストデータの...
-
ACCESSのカスタマーバーコード...
-
ACCESSで改行コードを削除する方法
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
-
Accessで、1つの項目に複数の...
-
エクセルにおける「フィールド...
-
access インポート時、既にある...
-
テキストボックスにクエリ結果...
-
2つのテーブルに共通するレコ...
-
アクセスで追加した項目に全て...
-
Accessのテーブルのフィールド...
-
最新日のデータのみ抽出するク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのテーブルのデータで、...
-
エクセルのデータをアクセスに...
-
EXCEL→ACCESSインポートでセル...
-
ACCESSで改行コードを削除する方法
-
Accessチェックボックス 一度で...
-
アクセスのオートナンバーが飛...
-
郵便番号の-(ハイフン)等をま...
-
ACCESSで行数を増やすには?
-
ACCESS フォームに入力できる文...
-
Access2000 テキストデータの...
-
Access2003でフィールドのデー...
-
アクセス(データシートビュー)...
-
アクセス2000で固定長フィール...
-
エクセルの重複データについて...
-
ファイルメーカーのレイアウト...
-
エクセルのデータをアクセスへ...
-
ACCESS2003でテーブルに入力し...
-
ACCESS 検索置換 にデ...
-
ファイルメーカーからメールソ...
-
差込印刷での全角表示について...
おすすめ情報