Ｐａｇｅ 240 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ACCESSでデータの追加ができません。 飛影 03/4/2(水) 21:31 ┣Re:ACCESSでデータの追加ができません。 イケガミ 03/4/2(水) 21:49 ┗Re:ACCESSでデータの追加ができません。 YU-TANG 03/4/2(水) 23:40 ┗Re:ACCESSでデータの追加ができません。 飛影 03/4/3(木) 8:55 ┗Re:ACCESSでデータの追加ができません。 YU-TANG 03/4/3(木) 23:03 ┗Re:ACCESSでデータの追加ができません。 飛影 03/4/4(金) 9:07 ─────────────────────────────────────── ■題名 ： ACCESSでデータの追加ができません。 ■名前 ： 飛影 ■日付 ： 03/4/2(水) 21:31 -------------------------------------------------------------------------
| VBA初心者の飛影です。 ACCESSでテーブルにデータを新しく追加する方法がわかりません。 実際に行いたい作業は連番でデータを100個追加するということです。 SQLのINSERT INTOを使うのかなぁとは思うのですがよくわかりません。 抽象的な質問で申し訳ないのですが知恵をお貸しください。 |
| >実際に行いたい作業は連番でデータを100個追加するということです。 >SQLのINSERT INTOを使うのかなぁとは思うのですがよくわかりません。 いちばん簡単なのは、Excelで作ってインポートだと思いますけど、 それじゃだめなのかな？ |
| > 実際に行いたい作業は連番でデータを100個追加するということです。 イケガミさんの方法は、私もよく使います。 適材適所ですね。 もし Access 2000 以降ならオートフィル機能が有るので、既定値を 設定していないフィールドであれば、データシートビューで最初の レコードに 1、次のレコードに 2 と入力して、後は下矢印キーを 押しっぱなしで黙って見ていれば、ものの 5 秒くらいで 100 ていどの 連番は作成されると思いますが。 それとも *VBAで* という条件付きの質問なのでしょうか...。 |
| ▼YU-TANG さん： >> 実際に行いたい作業は連番でデータを100個追加するということです。 > >イケガミさんの方法は、私もよく使います。 >適材適所ですね。 > >もし Access 2000 以降ならオートフィル機能が有るので、既定値を >設定していないフィールドであれば、データシートビューで最初の >レコードに 1、次のレコードに 2 と入力して、後は下矢印キーを >押しっぱなしで黙って見ていれば、ものの 5 秒くらいで 100 ていどの >連番は作成されると思いますが。 > >それとも *VBAで* という条件付きの質問なのでしょうか...。 わかりにくい質問ですいません。 現在、txtのデータがあり、検索をかける部分までACCESで作っています。 検索をかけたときに１つも一致するデータが無かった場合連番でデータを 追加したいと考えていますのでできればVBAを使って実行したいです。 ややこしい質問ですいませんがよろしくお願いします。 |
| > できればVBAを使って実行したいです。 Access 2000 だから、たぶん ADO ですよねぇ...。 私は ADO よく分からないので、内心イケガミさんが先にレスして くださるんじゃないかと期待して眺めていたりなんかしてたんですが (^ ^;)、NEWS 23 も始まってしまったので、一応こんな感じではないか と思うのを書いてみました。 Dim rs As New ADODB.Recordset Dim i As Long With rs .Open "テーブル名", _ CurrentProject.Connection, _ adOpenForwardOnly, _ adLockOptimistic, _ adCmdTableDirect For i = 1 To 100 .AddNew .Fields("フィールド名").Value = i .Update Next .Close End With なんかおかしかったらツッコんでください。＞諸氏 |
| ▼YU-TANG さん： >> できればVBAを使って実行したいです。 > >Access 2000 だから、たぶん ADO ですよねぇ...。 > >私は ADO よく分からないので、内心イケガミさんが先にレスして >くださるんじゃないかと期待して眺めていたりなんかしてたんですが >(^ ^;)、NEWS 23 も始まってしまったので、一応こんな感じではないか >と思うのを書いてみました。 > >Dim rs As New ADODB.Recordset >Dim i As Long >With rs >.Open "テーブル名", _ > CurrentProject.Connection, _ > adOpenForwardOnly, _ > adLockOptimistic, _ > adCmdTableDirect >For i = 1 To 100 > .AddNew > .Fields("フィールド名").Value = i > .Update >Next >.Close >End With > >なんかおかしかったらツッコんでください。＞諸氏 YU-TANG さん うまく動作しました。ありがとうございます。 さすがですね。私も勉強して回答が書けれるようにがんばってみます。 |