ky2605のプロフィール
- ベストアンサー数
- 2
- ベストアンサー率
- 100%
- お礼率
- 75%
http://okwave.jp/qa/q5553986.html で、手順を間違って、お礼する前にベストアンサーを選んでしまいました。回答くださった方、ありがとうございました。
- 登録日2009/12/27
- 性別男性
- 都道府県千葉県
- 【至急】Accessデータ検索について
すごく急いでいて困っています! csvデーターからインポートしたAccessのテーブルがあります。 そこに「個人ID」「テストNo」「解答1」「解答2」…と解答が続きます。 できればフォームで以下のことを指定して、一致しないデータが存在する場合には 「"個人ID" の "テストNo(○枚目)" がありません。」 というメッセージを表示したいです。 <ユーザーフォームで指定したいこと> ・個人ID(出席者把握のため) ・テストが何枚あるか(毎回枚数が違うため) csvのデータでは、 セルA1:個人ID「123」 セルB1:枚数「1(枚目)」 セルC1:1枚目の1問目の回答 以下続く という感じで、それをインポートしています。 ユーザーフォームでの「個人ID」の選択方法についても良いアドバイスがありましたらご教授下さい。 ※ID数は20~30くらいで、毎回全員いるとは限りません。 よろしくお願い致します。
- 締切済み
- Visual Basic
- goronyangogo55
- 回答数1
- Accessコンボボックスとテキストボックス連携
Access初心者です。よろしくお願い致します。 コンボボックスとテキストボックスの連携がうまくいかずに苦戦しています。 Accessオブジェクト <テーブル> T_住所録 ∟ID、名前、住所、電話番号、アドレス T_住所確認テーブル ∟名前、住所 <クエリ> Q_ラベル_住所録 Q_住所確認テーブル Q_入力_住所確認テーブル <フォーム> F_入力_住所確認テーブル ∟コンボボックス(名前)、テキストボックス(住所) とあり、 「Q_住所確認テーブル」では、 「T_住所録:名前」=「T_住所確認テーブル:名前」 「T_住所録:住所」=「T_住所確認テーブル:住所」 を、つなげてあります。 フォームの「F_入力_住所確認テーブル」では、コンボボックスをクリックすると名前が選択でき、選択するとその名前の人の住所がテキストボックスに表示されるようにしたいのですがうまくできません。 ネットや書籍などを見ていろいろ試したのですが、ことごとく失敗しています。 「Me」とかダメでした。 ExcelのVBAは経験があるのですが、Accessはデータベースを少々編集した程度なので知識は浅いです。 なのでとても初歩的な質問かもしれませんが、どなたかご教授いただけますと幸いです。 とても勝手ながら、すごく急いでいて、どうにかしたいともがいているのですがどうにもならず焦っています。どうぞよろしくお願い致します。
- 締切済み
- Visual Basic
- goronyangogo55
- 回答数3
- VBAをVBで焼き直ししたい
access2003 VBAで下記のように、クエリー(qqq00)を作成し、 そのクエリー元に再処理をし、テーブル(tb0)にupdateしています。 このVBAを、VB2010に焼き直しをしたいのですが、 分かりませんので教えて頂けませんか。 (access2003のプログラム) sql00 = " SELECT xren.*" _ & " FROM xren ; " sql01 = " SELECT Avg(qqq00.kei04) AS avkei04," _ & " FROM qqq00 ; " Set qrdef_0 = db.CreateQueryDef("qqq00", sql00) Set tb = db.OpenRecordset("qqq00") Do nsu = nsu + 1 tb0.AddNew tb0!ren_no = tb!ren_no tb0!avkei04 = tb!avkei04 tb0.Update tb.MoveNext Loop Until tb.EOF DoCmd.DeleteObject acQuery, "qqq00" qrdef_0.Close: Set qrdef_0 = Nothing (VB2010のプログラム) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\xxxxxs.mdb") Dim SQLCm As OleDbCommand = Cn.CreateCommand Dim Adapter As New OleDbDataAdapter(SQLCm) Dim Table As New DataTable SQLCm.CommandText = "SELECT * xren" Adapter.Fill(Table) ここからが分かりません。 (1)クエリー(qqq00)名のつけ方 (2)qqq00の実行方法 (3)テーブル(tb0)へのupdate方法 Table.Dispose() Adapter.Dispose() SQLCm.Dispose() Cn.Dispose() End Sub
- ベストアンサー
- その他(データベース)
- grabcdef
- 回答数1
- Accessコンボボックスとテキストボックス連携
Access初心者です。よろしくお願い致します。 コンボボックスとテキストボックスの連携がうまくいかずに苦戦しています。 Accessオブジェクト <テーブル> T_住所録 ∟ID、名前、住所、電話番号、アドレス T_住所確認テーブル ∟名前、住所 <クエリ> Q_ラベル_住所録 Q_住所確認テーブル Q_入力_住所確認テーブル <フォーム> F_入力_住所確認テーブル ∟コンボボックス(名前)、テキストボックス(住所) とあり、 「Q_住所確認テーブル」では、 「T_住所録:名前」=「T_住所確認テーブル:名前」 「T_住所録:住所」=「T_住所確認テーブル:住所」 を、つなげてあります。 フォームの「F_入力_住所確認テーブル」では、コンボボックスをクリックすると名前が選択でき、選択するとその名前の人の住所がテキストボックスに表示されるようにしたいのですがうまくできません。 ネットや書籍などを見ていろいろ試したのですが、ことごとく失敗しています。 「Me」とかダメでした。 ExcelのVBAは経験があるのですが、Accessはデータベースを少々編集した程度なので知識は浅いです。 なのでとても初歩的な質問かもしれませんが、どなたかご教授いただけますと幸いです。 とても勝手ながら、すごく急いでいて、どうにかしたいともがいているのですがどうにもならず焦っています。どうぞよろしくお願い致します。
- 締切済み
- Visual Basic
- goronyangogo55
- 回答数3
- 劇場版東のエデン1作目がまだやっている映画館ってあるんでしょうか??
劇場版東のエデン1作目がまだやっている映画館ってあるんでしょうか??
- ベストアンサー
- アニメ・声優
- os-akana77
- 回答数1