• ベストアンサー

ACCESS-VBA の組み方　(ADOと表の世界）

この質問は、No.1575853、No.1584218をベースとします。 テーブルをソートして、特定のフィールドに通番をいれるVBAはできました。 これは、フォームにボタンを設定して、イベントプロシージャ ADO(またはDAO)を使って裏の世界で処理してしまうものです（下記VBA参照） これを、表の世界で表示させながら実現したのです。 －フォームにテーブルをもってくるには、エクセルのような「Datasheet」形式か、「Tabular」形式等がある。 －「Tabular」形式では、先頭に空間を持たせて、そこにボタンを設定できるが、 　「Datasheet」形式では、デザインビューでボタンを設定できても、実行画面ではボタンは表示されない。 －ADO(またはDAO)は裏の世界でのものであり、表の世界でリアルタイムで反映表示する方法はわかっていない。 今回の質問は、 （１）テーブルを開いて、何らかの方法で、VBAを起動して、結果を得る方法 （２）フォーム上にボタンと「Datasheet」形式でデータを表示し、裏の世界(ADO)と表の世界 (見えているテーブル)とリアルタイムでリンクさせる方法。 ２つについて、よろしくお願い致します。 -- Public Sub 実行2_Click() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim Cnt As Long MyCount = 1 Set Cn = CurrentProject.Connection Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open "[データテーブル]", Cn, adOpenKeyset,adLockOptimistic Rs.Sort = "[氏名] ASC,[データ] ASC" '並べ替え temp = "" Do Until Rs.EOF If temp <> Rs![氏名] Then MyCount = 1 Else MyCount = MyCount + 1 End If temp = Rs![氏名] Rs![通番] = MyCount Rs.Update Rs.MoveNext '次のレコードに移動 Loop Rs.Close: Set Rs = Nothing Cn.Close: Set Cn = Nothing End Sub

noname#95859
noname#95859

質問者が選んだベストアンサー

  • ベストアンサー
  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.3

サブフォームとする他に、「データシート型フォーム+ポップアップフォーム」によって対応することも可能かと。 ・データフォーム: 　「データテーブル」をレコードソースとするデータシート型フォーム(フィールドは適宜追加) 　(プロパティシート「書式」タブ・既定のビュー=「データシート」) ・操作フォーム: 　「実行」コマンドボタンを持つポップアップフォーム 　(プロパティシート「その他」タブ・ポップアップ=「はい」) ※通常のダイアログタイプで表示させたければ、フォームのプロパティで、「書式」タブ・境界線スタイル=「ダイアログ」を設定して下さい※ 操作フォームの「実行」ボタン・クリック時イベントに以下の文を貼り付け: Private Sub 実行_Click() 　DoCmd.GoToRecord acForm, "データフォーム", acFirst 　Do While Forms!データフォーム.NewRecord = False 　　通番割当 　Loop 　DoCmd.GoToRecord acForm, "データフォーム", acFirst 　MsgBox ("終了しました") End Sub Private Sub 通番割当() 　Forms!データフォーム!通番 = Forms!データフォーム.CurrentRecord 　DoCmd.GoToRecord acForm, "データフォーム", acNext End Sub ※ごく普通の通し番号のようなので、「CurrentRecord」を使用しました※ 　(先頭を「0」にしたい場合は、後ろに「-1」をつけて下さい) これで、「通番」への数値割り当てがリアルタイムで見られると思います。 ・・・実際に代入された数字を目で追えるような速さではないと思いますけれど(笑)

その他の回答 (4)

回答No.5

（１）他の方と同じですが、テーブルにはイベントは存在しません。 もし、テーブルのデータシートとトリガの代わりのフォームを並べて表示しプロシージャを実行したとしても、データシートは再表示しないと最新のデータが表示されません。 （２）フォームの場合も（１）とほぼ同様ですが、フォームに表示されているデータはテーブル／クエリのコピー（RecordsetClone）です。他の方の説明の通り、最後にRequeryメソッドを実行しないと最新のデータが表示されません。 代わりに、非連結フォームを作成し、ＡＤＯでの１レコードの処理ごとに各フィールドの値を表示したほうがよろしいかと思います。

noname#95859
質問者

お礼

おかげさまでかなりわかってきました。ありがとうございます。

  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.4

No.3です。 補足: 「Private Sub 実行_Click()」の直後に、以下の二文を追加して下さい。 DoCmd.OpenForm "データフォーム", acNormal, "", "", , acNormal DoCmd.SelectObject acForm, "データフォーム", False 「データフォーム」を開かれている限り、なくてもエラーは出ませんが(開いていない場合はエラー)、例えばデータベースウィンドウが最大表示された状態だった場合、表に見えてこないことになりますので。 (なお、実際にデータベースを組む場合は、双方のフォームの開閉を連動させ、「実行_Click」にはおかない方がベターかと思います : データの目視確認上)

noname#95859
質問者

お礼

色々ありがとうございます。今日帰ってから、勉強します。

  • Gin_F
  • ベストアンサー率63% (286/453)
回答No.2

> （１）テーブルを開いて、何らかの方法で、VBAを起動して、結果を得る方法 テーブルにはイベントが存在しませんので、テーブルを開いて、VBAを起動は難しいと 思います。 マクロ・VBAからテーブルをデータシートビューで開けばいいと思いますけど？ > （２）フォーム上にボタンと「Datasheet」形式でデータを表示し、裏の世界(ADO)と表の世界 データシートビューでコマンドボタンはムリですね。 代案として、 　サブフォームをデータシートビューで表示させる 　コマンドボタンではなく、ツールバーで代用する とかを検討してください。

noname#95859
質問者

お礼

ACCESS勉強中です。参考になります。ありがとうございます。

noname#112806
noname#112806
回答No.1

コマンドボタンが設置されているフォーム上にサブフォームを設置する。 サブフォームのソースをデータテーブルにする。 コマンドボタンクリック時のイベントの最後に Me!サブフォーム名.Requery でどうでしょうか？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 数値のMAXの値を取得したい　ADO　VBA

    アクセスです。 ADOで該当のフィールドの数値のMAXの値を取得するにはどうすればいいですか？ テーブルの番号フィールドには、 1 2 3 4 5 と入っているのですが、 この場合、一番大きい値は５なので MAX関数のようなもので５を返したいのですが ADOにそのようなプロパティはありますか？ オブジェクトブラウザーでRecordsetを見てみましたが 見つけられませんでした。 Sub Sample() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection rs.CursorLocation = adUseClient rs.Open "SELECT * FROM T_test", cn, adOpenStatic, adLockPessimistic rs.Sort = "番号 DESC" Debug.Print rs("番号").Value rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub これで同じような動きは出来ますが、 もっとシンプルにできませんか？

  • ＶＢＡ　ADOのフィルタのアポストロフィーの意味は

    ＶＢＡで文字列はダブルコーテーション「”」で括りますが ------------------------------------------------ Sub ADO_Filter() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "T社員名簿", cn, adOpenKeyset, adLockOptimistic rs.Filter = "質問タイトル LIKE '*田*'" rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Sub ------------------------------------------------ 上記の　'*田*'　のアポストロフィーはどういう時に必要なのでしょうか？ LIKE演算子を使ってるからか Filterだからか など理由があれば教えて下さい。 また、「'」を使っているのに、以後がコメントにならないのも不思議です。 よろしくお願い致します。

  • ADO1とADO2は意味は同じですか？

    Private Sub ADO1() Dim cn As New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CurrentProject.FullName cn.Close: Set cn = Nothing End Sub Private Sub ADO2() Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & CurrentProject.FullName cn.Close: Set cn = Nothing End Sub は、 Dim cn As ADODB.Connection Set cn = New ADODB.Connection を簡素化したものが Dim cn As New ADODB.Connection になるのでしょうか？

  • ADO　「認証に失敗しました」

    ADOでデータベースに接続したいのですが ”実行時エラー　-2147217843(80040e4d)　認証に失敗しました。” になります。 コードは Sub ado() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source" & CurrentProject.FullName　★ rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub です。 ★ 印の所でエラーになります。 宜しくお願いいたします。

  • アクセスVBA。ADO

    CSVから列を分割してテーブルにしたいかったので 下記のコードを記述しましたが、 Dim cn As ADODB.Connection Dim rs As New ADODB.Recordset Dim datacount As Long Set cn = New ADODB.Connection With cn .ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\;" .Properties("Extended Properties").Value = "text;HDR=YES;" .Open End With Set rs = cn.Execute("SELECT * FROM 構成マスタ.csv") datacount = rs.Fields.Count For i = 0 To datacount strsql = "SELECT " & rs.Fields(i).Name & " INTO " & rs.Fields(i).Name & " FROM 構成マスタ.csv;" cn.Execute strsql Next i rs.Close cn.Close Set rs = Nothing Set cn = Nothing SQLを実行するところで、「日付エラー」となってしまいます。 データには特に日付等はないのでエラーになる原因がわかりません。 どなたかご教示いただけますでしょうか。

  • VBAでOracleにSQL発行（ADO)

    ExcelのVBAからOracleにADOで登録したく下記のコードを作成しましたが　コンパイルで"変数定義がされていません”に成ってしまいます。 参照設定に何か必要なのでしょうか? ----------------------------------------------- 'ADO用のオブジェクト変数の宣言 Dim cn As New ADODB.Connection ←　ここでエラー Dim rs As New ADODB.Recordset Dim rownum As Long Dim colnum As Integer 'ADOコネクションの生成 cn.Open "Provider=OraOLEDB.Oracle;Data Source=" & ActiveSheet.Cells(26, 1) & ";User ID=scott;Password=tiger;", "scott", "tiger" 'ADOレコードセットの生成（全データを返すレコードセットの生成） rs.Open "select * from emp", cn, adOpenDynamic, adLockOptimistic, adCmdText ... ... ...

  • ADO　オブジェクトの渡し方

    こんにちは。ADOについてお教えください。 フォームをロード時に接続プロシージャと切断プロシージャを走らせたいと思います。 ConnectDatabaseを呼び出しは成功しますが、CloseDatabase呼び出しには失敗します。 スコープの問題で、rs、cnのオブジェクトが無い為だと思います。 ConnectDatabaseで作成されたcn、rsオブジェクトを別の関数で処理するにはどのようにコードをかけばよろしいでしょうか？宜しくお願い致します。 Private Sub Form_Load() Call ConnectDatabase Call CloseDatabase End Sub Module1 ------------------ sub ConnectDatabase() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset 処理～～～～ end sub sub CloseDatabase() rs.Close cn.Close Set rs = Nothing Set cn = Nothing end sub

  • 【ＡＤＯ】「Execute」を使うときは「Update」は不要？

    Sub test() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Desktop\test1.mdb" Set rs = New ADODB.Recordset rs.Open "テーブル1", cn, adOpenStatic, adLockPessimistic cn.Execute "DELETE FROM テーブル1" rs.Update '保存 Set rs = Nothing Set cn = Nothing End Sub を実行したとき テーブル1にデータがあるときはエラーにはならないのですが 何もデータがないときは「rs.Update」でエラーになります。 なので「Update」は消して実行していますが 「Update」がなくても「Execute」を実行した後は自動的に保存されるのでしょうか？ よろしくお願いします。

  • ADOでエクセルからSQL Serverへデータを移行するには

    エクセルｖｂａのＡＤＯを使って、 SQL Serverの「test」という名のデータベースの「Table_1」に 新規レコードを追加する事はできますか？ エクセルからアクセスには Sub test() Dim データベース名 As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & データベース名 rs.Open "Ｔテーブル１", cn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields("フィールド１") = データ rs.Update rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub で移行しています。 これをエクセルからSQL Serverへ移行させるにはどうすればいいのでしょうか？ よろしくお願いします。

  • ADOでレコードの値を一部変更したい

    アクセスのテーブル1には 番号（主キー） 内容１ 内容２ というフィールドがあります。 エクセルからアクセスへADOを使って内容１フィールドだけを変更したのですがうまく行きません。 もともと 番号には「1」、内容１には「あああ」と入力されているとして 内容１を「いいい」に変更したい場合下記のコードを実行すると 「主キーが重複している」というエラーになるか、 全然関係ない番号の値が変わってしまい、テーブルがぐちゃぐちゃになってしまいます。 Sub test() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\○○○\Desktop\test1.mdb" Set rs = New ADODB.Recordset rs.Open "テーブル1", cn, adOpenStatic, adLockPessimistic 番号 = 1 rs("番号") = 番号 rs("内容１") = "いいい" rs.Update '保存 Set rs = Nothing Set cn = Nothing End Sub どうすれば「番号1の内容1の値を変更する」ことが可能なのでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する