その他(データベース)

Access 2013 vba 1つの受注された案件で、その売上の請求先が複数になる場合があります。 しかも、その請求先に何を請求するのかは、その場、その場で変わり、決まっていないらしいです。 このような場合に、どのように請求先を1つの受注した工事案件に引き当てれば良いのか、良くわからず、困っています。テーブル構造は恐らく 【受注テーブル】 ・受注ID(Main key) ・受注日 ・依頼元 ・依頼内容 ・受注総合計金額 などなど 【請求引当テーブル】 ・請求引当ID(Main key) ・受注ID (Ex.Key) ・請求金額 ・摘要 ・支払期日（依頼元が当社に支払う期日） ・支払方法 しかし、その明細については、受注テーブルの項目の依頼内容の何になるのかは、その時にならなければわからないのです。それに、請求先が1つしかない場合もあるし、複数に成るのが最後にならないと分からない場合もあります。 この場合、請求書をPGでデータベースからデータを選択して作成する場合、何を選択すれば良いのかわかりません。 このような説明の仕方では、ご回答が難しいかとも思いますが、私も説明に苦慮しています。 実際に、このようなケースを扱ったシステムでは、どんな解決策をとっているのか知りたいです。

Access 2013 vba 消費税率を変数に入れる場合、その変数のデータ型は何にすればよいでしょうか? Doubleで良いのでしょうか?

ご覧頂き誠にありがとうございます。 当方アクセスの初心者ですが会社の顧客リスト作成を頼まれており、アクセスにて、複数に分かれたエクセルファイル同士を繋ぎ合せてエクセルで顧客リストを作成したいと考えております。 エクセルファイルなのですが、1つ目は住所リスト(顧客番号、名前、住所)でもう一つは売上データ(顧客番号、名前、売上高)です。住所データは全顧客記載、売上データは該当の顧客のみ記載されております。(売上0の顧客は記載せず) 上記ファイルをアクセスに取り込み選択ウィザードで顧客番号を主力キーにして合体をさせたのですが、売上データに記載の顧客のみが抽出され住所リストの一部顧客が消えてしまいます。(売上のある顧客の顧客番号、名前、住所、売上高は記載できました。) 2つのファイルを合体させて全顧客の顧客番号、名前、売上(売上がない場合は空欄)と抽出をしたいです。 お力添え頂けると幸いです。

Access 2013 vba メイン画面に、2つのサブフォーム（共に帳票）があり 親→子→孫 となっています。 この時、親、子、孫のレコードを取得して ある書類を作成しエクセルに出力しようとしています。 この場合、親のデータは普通に変数Aに入れて 子のデータは一次元配列B()に入れ 孫のデータは一次元配列C(0)～C(3)に入れたものを、更に子用の一次元配列B1()～B4()に入れるように作りにしようと考えています。 この場合、 子の画面で次の2レコード目に進んだ時、子画面用のB1...B4の配列変数に入れている孫のC(0)～C(3)の配列の中身は、子画面の一レコードと二レコード目では同じものになるのでしょうか。 もし、同じものになるのであれば、この方法は使えないと思っていますが。。。 他に何か良い方法はありますでしょうか。 Accessで、クラスを作って、それを配列変数に入れるとか・・・ よろしくお願いします。

Access 2013 VBA フォームの帳票タイプで あるレコードのチェックボックスにチェックを入れた時だけ、そのレコードにある特定のフィールドのテキストボックスを入力可能にしたいです。 どのようにしたら良いでしょうか? 誰かお分かりの方おられましたら、よろしくお願いします （お正月でまだ誰も見る暇がないようですが・・・）

Access 2013 vba 今工事のための材料の注文履歴を保存するテーブルと画面を作っています。 この商品名や、単価、仕入れ値などのデータは、管理テーブルを作成してそこで管理し、そこから商品IDを選択すると、注文履歴の画面にIDだけがセットされるような作りにしようと考えています。 【注文内容の入力画面A】 ・注文日 ・受注ID ・商品ID ・注文先ID ・単価 ・数量 ・単位 【商品管理テーブル】 ・商品ID ・メーカーID ・単価 ・品番 このようにすると、商品管理のテーブルのレコードを勝手に削除されたりした場合に、大変な事になることを考えると躊躇してしまいます。 商品管理のテーブルはあくまでも参照にとどめて、その商品名や品番などは、注文履歴を保存する画面のフィールドに保存したほうが良いか、迷っています。 この点で良いアドバイスがあれば、よろしくお願いします。

環境は WindowsXP SP2 Python 2.7, sqlite3 です。 次のSQL文は成功します。 SELECT head, body FROM dic WHERE body MATCH 'foo bar' しかし、次がエラーになります。 SELECT head, body FROM dic WHERE body MATCH 'foo bar' AND head MATCH 'bar' 解決方法はありますか。

今、ある単票フォームに、2つのサブフォームを配置し、そのサブフォーム間で金額の連携をしたいと考えています。 【親フォームA】 ・ID1、長整数型(主きー) ・受付日時 ・発注金額総合計 <== ※Bが更新されたら、ここを更新したい 【サブフォームB】 ・ID2、長整数型(主キー) ・ID1(外部キー) ・発注日 ・発注合計金額 <===　※Cが更新されたら、ここを更新したい ==> Aの更新へ↑ 【サブフォームC】 ・ID3、長整数型(主キー) ・ID2(外部キー) ・発注項目名 ・単価 ・数量 ==>ここを更新する→Bへ↑ ・単位 ==>ここを行進する→Bへ↑ ・摘要 サブフォームB、Cは、いずれも帳票型です。 それぞれ、テーブルA, B, Cがレコードソースで テーブル構成は、上の項目の構成と同じです。 A-ID1: B-ID1 = 1：多 B-ID2: C-ID2 = 1：多 この時、Cで単価と数量を入力したら、Bの発注合計金額の値を更新したいです。 それと同時に、親Form Aの「発注金額総合計」の値を、Bの全てのレコードの「発注合計金額」のSumで更新したいです。 よろしくお願いします。

【Access 2013 VBA / SQL】 [親Table] *ID1 *日付 *受注元会社名 {子Table ] *ID2(主キー) *ID1(親テーブルのID) *ID3(外部キー) [Table B] *ID3 *会社名 ------------------------------ ID2　　ID1　　　　会社ID ------------------------------ 1　　　　1　　　　　A 2　　　　1　　　　　B 3　　　　1　　　　　B 4　　　　1　　　　　C 5　　　　2　　　　　B 6　　　　2　　　　　A 7　　　　2　　　　　A ------------------------------ ID1=1のもので、会社IDを一意にして選択した会社名を表示したい この時、SQLでどのように書けばよいでしょうか

【Access2013 VBA】 日付のフィールドをフォームから入力スル場合に そのフィールドにカーソルを移動した時、普通は、右端に四角い日付入力用のマークが出て、それをクリックするとカレンダーが表示され、そこから選択することが可能ですが、 このマークが出るフィールドと出ないフィールドがあります。 何故なのかよく分かりません。 その設定方法などがあるのであれば、教えて頂きたいです。 画面の設定方法、そして、VBAでもやり方があるのであれば・・・ よろしくお願いします。

c.execute('''CREATE TABLE stocks (date text, trans text, symbol text, qty real, price real)''') すると、date, trans, symbol, qty, price等のフィールドが用意されます。 c.execute("SELECT * FROM stocks") すると、その登録内容を得ることが出来ます。 ところで、登録内容を得る前に、選ばれる対象となる"date","trans", ...等のフィールド名を得る方法はありませんか。 環境はWindows、Python 2.7です。

当方MAC　OS10.10, filemaker　pro11 userです。 フィールドを開け直すとソート優先順位が固定されずっと同じ順位になっていまいます。ソート解除して新しい設定にしても立ち上げ直すともとにもどります。 だれか教えて頂けますでしょうか？

Access2013 vba 単票フォームFormAがあり、そこにタブTabBを配置します。 そのタブの中に、サブフォームフレームSubFmFrameを配置 このフレームの中に、サブフォーム SubFormがあるとします。 その時、サブフォームのイベントで何かの処理をスル場合に、自分のフォームのフィールドの値を取得するのには、親フォームから参照したやり方をしなくてはいけないのでしょうか。 その場合の書き方がわかりません。 サブフォームから、Set objP = Me.Parent としても、エラーになります。 親フォーム：FormA タブ：TabB サブフォームフレーム：SubFmFrame サブフォーム名：SubForm 宜しくお願いします。

結論だけでいいです。 Python 2.7で、SQLite3のFTSを使える　□YES/□NO 当然使えると思って前準備まで全部行ったのに、実際に登録しようとしたら出来ず調べると、ソースからコンパイルとか何かを介するとか何かをダウンローダするとか... これでは私的にはNOです。

【Access2013/VBA】 ■テーブル構成 【分析テーブル】 ・分析ID（主キー） ・依頼ID（外部キー） ・会社ID 【会社管理テーブル】 ・会社ID（主キー） ・会社名 ■コード 　　Dim Rst As DAO.Recordset 　　Dim Db As DAO.Database 　　Dim SQL As String 　　Dim lngID As Long 　　Dim FlgWinLoad As Boolean 　　 　　Me.FlgWinLoad = modPub.FlgWindowLoading 　　 　　lngID = modPub.Selected依頼ID 　　 　　'コンボボックスの設定 　　SQL = "SELECT DISTINCT [分析テーブル].[会社ID] as [会社ID1], " 　　SQL = SQL & "　[分析テーブル].[依頼ID], " 　　SQL = SQL & "　[会社管理テーブル].[会社ID] AS [会社ID2], " 　　SQL = SQL & "　[分析テーブル].[会社ID] AS [会社ID3], " 　　SQL = SQL & "　[会社管理テーブル].[会社名] " 　　SQL = SQL & "FROM [分析テーブル] LEFT JOIN [会社管理テーブル] ON " 　　SQL = SQL & "　[分析テーブル].[会社ID] = [会社管理テーブル].[会社ID] " 　　SQL = SQL & "where [依頼ID]=" & lngID & " " 　　SQL = SQL & "ORDER BY [分析テーブル].[依頼ID] " 　　Set Db = CurrentDb 　　Set Rst = Db.OpenRecordset(SQL, dbOpenDynaset) 　　If Rst.EOF = True And Rst.EOF = True Then 　　　　GoTo errH 　　　　 　　End If 　　 　　Me.cmbo会社ID.ColumnCount = 5 　　Me.cmbo会社ID.ColumnWidth = "1cm;1cm;1cm;3cm;3cm" 　　Me.cmbo会社ID.RowSource = "会社ID1;依頼ID;会社ID2;会社ID3;会社名" 　　Me.cmbo施工会社ID.RowSourceType = "テーブル/クエリ" 　　 　　Set Me.cmbo施工会社ID.Recordset = Rst.Clone 　　 ■コード　の終わり エラーになりませんが、画面でコンボボックスのリストが空になります。 解決方法を教えて頂きたいと思います。 よろしくお願いします。

地域計: DCount("市区町村","テーブル名") 今上記の状態で止まっています。 下記のようなテーブルがあるとします。 都道府県　市区町村 東京都　　新宿区 東京都　　豊島区 東京都　　葛飾区 東京都　　新宿区 東京都　　新宿区 東京都　　葛飾区 東京都　　豊島区 東京都　　豊島区 東京都　　豊島区 この中で新宿区は何件、豊島区は何件、葛飾区は何件、と出したいです。 しかし、都道府県市区町村は変動します。 毎回変わるのです。 なので特定の文字列を検索するというよりは その時にそのテーブルに貼った市区町村別に何件ずつ入ってるか、を求めたいです。 地域計をだしたいのです。 只今集計クエリで○○: Sum(IIf([フィールド名]="○○",1,0)) で○○の件数は何件かを出しているのですが この○○はどの地域でも変わらないため、指定できるのですが 地域は変わってしまう為指定できません。 ○○の隣に地域計を出したいのですが どうすればいいでしょうか。

下記の式で実行するとクエリ式’Format((NZ([フロントNG]))/(NZ([後確NG])+NZ([エントリー後NG])+NZ([アンテナ後確NG])+(NZ([フロントNG])+NZ([決裁者NG])+NZ([アンテナNG])+NZ([検討NG])+NZ([対象回線済NG])+NZ([NG])),"0%") AS フロントNG率 FROM t_エクセル貼り付け;　の構文エラー：演算子がありません。 というエラーが出ます。 SELECT t_エクセル貼り付け.地域, Format((NZ([フロントNG]))/(NZ([後確NG])+NZ([エントリー後NG])+NZ([アンテナ後確NG])+(NZ([フロントNG])+NZ([決裁者NG])+NZ([アンテナNG])+NZ([検討NG])+NZ([対象回線済NG])+NZ([NG])),"0%") AS フロントNG率 FROM t_エクセル貼り付け; アラビア数字使ってないですし、フィールド名も[]ついています。 なにかおかしいところありますか？？

はじめて投稿いたします。 なにか不手際がございましたら申し訳ありません。 Access作成についてご指南をいただけますでしょうか。 初心者なので当たり前のことをお伺いしていたら申し訳ありません。 ネットで色々調べたのですが、全く解決しなかったのでお願いします。 今回作るAccessはおそらく集計クエリを使うのだろうとうっすらと思っているのですが… なお、当方コールセンター勤務です。 まず、Accessとは全く関係のないシステムがあり、 そのシステムを使って電話をかけた数(コール数)や フラグ立て(大まかに言うと留守だったのか在宅だったのかなど)をします。 そのシステムからエクセルをエクスポートすると 東京都新宿区 大阪府大阪市 愛知県名古屋市 京都府京都市 ・・・ のようにA列に地域名が縦に並びます。 1行目は見出しとして例えばですがB1に「在宅」C1に「留守」D1に「OK」E1に「NG」F1に「改め」G1に「計」とあります。(これが立てたフラグです。) その地域の電話結果のフラグが何件か、というのが分かるエクセルです。 例えば東京都新宿区は「在宅」５、「留守」８、「OK」0(エクセル上では空白)、「NG」2、「改め」4、「計」19 といった形です。 現在そのエクセルデータを貼り付けるテーブルを作りました。 今回このデータを使って在宅している率を出したいです。 式は、（「在宅」+「OK」+「NG」+「改め」）/「計」＝在宅率(％) クエリを実行した際、地域フィールドに地域名がレコードごとにでて、 隣の在宅率フィールドにそれぞれの地域の在宅率が出るようにしたいのです。 エクセルだと思いつくのですが これをAccessでやろうとするとどのようにすればよいのでしょうか。 ご教授いただけますようお願いします。

メインフォームとサブフォームの画面゛て レコードソースは、ワークテーブルを参照し メインフォームの保存ボタンの処理で、 Private Sub 保存ボタン_Click() 　Set mySubFm = Me![テーブル子].Form 　Set myParFm = Forms(Me.name) '<== 親フォーム 　Set Rec1 = myParFm.RecordsetClone 　Set Rec2 = mySubFm.RecordsetClone 　Lng受注ID = Rec1.Fields("受注ID").Value 　Dim Rtn As Integer 　・レコードセットのデータを、本テーブルに更新する処理 　・自動採番した番号を、レコードセットのIDのフィールドにセット 　　Rec1.Edit 　　Rec1.Fields("ID").value = newID 　　Rec1.Update 　・Me.Requery '<== メインフォームの画面を更新 　・mySubFm.Requery '<==サブフォームの画面を更新 　Set Rec1 = Nothing 　 Set Rec2 = nothing End Sub この処理を一度行い、更に、画面のサブレコードの値を変更して、保存ボタンを再度押すと、 Lng受注ID = Rec1.Fields("受注ID").Value の行で、 「オブジェクトが正しくないか、現在設定されていません」というエラーになります。 この原因はどうしたら解決出来ますでしょうか？ よろしくお願いします。

Access2013 VBAで ■テーブルa ・id ・名前 ・id2 とあり このテーブルのレコードセットを以下のように作ります。 dim Rec = dao.Recordset Set Db = CurrentDB set Rec = Db.OpenRecordset("Select * from [テーブルa] where id2 = " & 2, dbOpenDynaset) この時、このテーブルにid2=2のレコードが何もない場合、この生成したRecで、 Rec.AddNew Rec.Fields("名前").value = "名前" Rec.Update と出来ますでしょうか？ よろしくお願いします。