その他（データベース）(10ページ目)

データベースによって情報が整理されていると非常に便利ですよね。データベースに関するおすすめの参考書を教えてほしい、データベースを作る際、どのシステムを利用したらよいか等、参考になるような回答が集まっています。

回答数

気になる

Select Distinct の使い方

【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でどのように書けばよいでしょうか

質問日時: 2014/12/30 18:34 質問者: superwonderful

ベストアンサー

5

0
Accessフォームで日付入力

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

質問日時: 2014/12/30 15:51 質問者: superwonderful

ベストアンサー

1

0
SQLiteでフィールド名を得る方法はありますか？

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です。

質問日時: 2014/12/30 00:12 質問者: remokon

ベストアンサー

2

0
単票フォームにあるタブのサブフォーム

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

質問日時: 2014/12/28 16:30 質問者: superwonderful

ベストアンサー

1

0
Python 2.7で、SQLite3の全文検索

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

質問日時: 2014/12/27 21:31 質問者: remokon

ベストアンサー

2

0
コンボボックスにレコードセットでリストをセットする

【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 　　 ■コード　の終わりエラーになりませんが、画面でコンボボックスのリストが空になります。解決方法を教えて頂きたいと思います。よろしくお願いします。

質問日時: 2014/12/24 11:54 質問者: superwonderful

ベストアンサー

1

0
Access　集計クエリにて。

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

質問日時: 2014/12/23 20:52 質問者: dream_actress

ベストアンサー

6

0
Access　SQLについて

下記の式で実行するとクエリ式’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_エクセル貼り付け; アラビア数字使ってないですし、フィールド名も[]ついています。なにかおかしいところありますか？？

質問日時: 2014/12/22 21:38 質問者: dream_actress

ベストアンサー

4

0
Access作成について(クエリ)

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

質問日時: 2014/12/21 18:52 質問者: dream_actress

ベストアンサー

3

0
2回目に画面のレコードセットの値が読めない

メインフォームとサブフォームの画面゛てレコードソースは、ワークテーブルを参照しメインフォームの保存ボタンの処理で、 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 の行で、「オブジェクトが正しくないか、現在設定されていません」というエラーになります。この原因はどうしたら解決出来ますでしょうか？よろしくお願いします。

質問日時: 2014/12/20 16:38 質問者: superwonderful

ベストアンサー

9

0
レコードセットに新規追加する

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 と出来ますでしょうか？よろしくお願いします。

質問日時: 2014/12/20 12:16 質問者: superwonderful

ベストアンサー

2

0
レコードロックする方法

Access2013 VBA 今、アクセスのシステムを作っていますが、おおまかに書きますと・フロントエンドとバックエンド・ワークテーブルを使用してデータの編集をして、元テーブルに反映する処理・4人ぐらいの利用者を想定この場合に、・レコードロックのようなやり方が可能か・DAOを使用する場合に、今変更をしようとしているレコードにロックをかける方法はあるのか・既に他の画面で開いている画面のレコードソースのテーブルを、後から開いた別画面の処理でOpenRecordsetでレコードセットを取得し、そのレコードを編集・新規追加したいのですが、この場合には、Optionには何を使用すれば良いでしょうか？ ※先に開いている人には読み取りは可能 ※後から開いた人は、データの編集が可能にする ※先に開いた人が、後から開いた人がデータの編集をしている時に該当レコードの変更は出来ないようにしたいよろしくお願いします。よろしくお願いします。

質問日時: 2014/12/20 00:39 質問者: superwonderful

ベストアンサー

1

0
マスターのあるレコードを削除しても（修正）

【Access 2013 vba】テーブルのあるレコードを削除しても、そのIDを使用している別テーブルには影響を与えたくない場合、つまり、別テーブルのIDの値は消したくない場合には、どのようなリレーションシップにしたらよいでしょうか。因みに、このテーブルの編集画面フォームAでは、3つのクエリーを作成しその最後のクエリーQ3をレコードセットとして参照しています。以下参照【Table1】　・受注ID（主キー）　・日時　・部屋ID（Ex.Key) 【Table2】　・部屋ID（主キー）　・建物ID（Ex.Key) 　・部屋の情報【Table3】　・建物ID（主キー）　・建物の情報　・所有者ID（Ex.Key) 【Table4】　・所有者ID（主キー）　・所有者の名前 <<Q1>>→Table1+Table2 　<Table1> 　　・受注ID 　　・部屋ID2（外部キー）→Table2部屋の部屋ID　⇐　※　ここが、問題のリレーションシップです。　<Table2> 　　・部屋ID...主キー <<Q2>>→Q1+Table3 　<Q1> 　　・Q1のTable2の建物ID（外部キー）→Table3の建物ID 　<Table3> 　　・建物ID <<Q3>>→Q2+Table4 　<Q2> 　　・Q2のTable3の所有者ID（外部キー）→Table4の所有者ID 　<Table4> 　　・所有者ID このようにクエリーを作成し、Q3をフォームのレコードソースとしたフォームAを使用しています。このフォームで、<<Q1>>の※印の行のTable2から取得するIDをTable1の項目「部屋ID2」に保存していますがTable2の方にあるレコードを削除しそのIDがなくなっても、Table1には影響しないようにしたいのです。よろしくお願いします。

質問日時: 2014/12/16 11:58 質問者: superwonderful

ベストアンサー

1

0
本テーブルに変更内容を反映する方法

【Access 2013 VBA】今、Workテーブルメイン、Workテーブルサブがあり、それをレコードソースにしたメインフォームとそのサブフォームがあります。この画面で、サブの帳票のレコードを編集し、また、新規入力したものから本になるテーブルのメインとサブに更新をする処理を作っています。その更新先のレコードセットのSQLは以下のとおりです。 SQL = "SELECT " SQL = SQL & "[SubTable].*, " SQL = SQL & "[MainTable].* " SQL = SQL & "FROM [SubTable] " SQL = SQL & "LEFT JOIN [MainTable] ON " SQL = SQL & "[SubTable].[ID] = [MainTable].[ID]" この時、Recのフィールドの値を行進する時はいいのですが、 SubTableに新規レコードを追加する場合、どのようにすれば良いのかわかりません。普通にRec.AddNewとすると上のMainTableにも新規レコードができるのでしょうか？よろしくお願いします。

質問日時: 2014/12/15 15:44 質問者: superwonderful

ベストアンサー

2

0
エクセルの行の選択方法

エクセルにて、一列で１００行、２００行もあるデーターを Shift＋↓かドラックして選択をしています。選択する時間が結構かかります。 Ctrl＋↓をすると最後に飛ぶだけでした。瞬時に選択したい列の行を選択する方法を教えてください。すみませんが教えてください。

質問日時: 2014/12/14 17:25 質問者: 20050301

解決済

3

0
サブフォームの帳票のレコードを編集している時

ここに、親フォームと子フォーム（サブフォーム）があって子フォームのレコードソースは、Workテーブルとします。子フォームを編集・新規レコード追加すると、親フォームの保存ボタン処理で、子フォームのレコード内容をWorkから、元テーブルに更新をかける知りをつくろうと考えています。この時、子側の帳票のレコードを編集したり、新規レコードを追加している時には ■『親側で、別のレコードに移動出来ないようにし、親側にある「保存」ボタンを押して、上記の処理をしたあとに、親側で別レコードに移動できる』　ような作りにしたいです。これを実現するために、上の■『・・・』を実現できるようにするのには、どのようにしたら良いでしょうか？よろしくお願いします。

質問日時: 2014/12/14 15:40 質問者: superwonderful

ベストアンサー

3

0
SQLiteのREAL型について

SQLiteのREAL型についてC#プログラミングでfloat型として扱う場合に、 Insert文でREAL型に「9999999.999999」と値を入れた場合に Select文で値を取得すると、「1E+07」で返ってきました。「9999999.999999」という値で取得する方法がわからないためご教授いただきたいです。申し訳ございませんが、よろしくお願いします。

質問日時: 2014/12/14 09:50 質問者: Dmix

ベストアンサー

2

0
Access2013 vbaサブフォームのレコード

[Access2013 vba] ■したいことサブフォームのレコードの中から、一レコードだけをチェックボックスなどで選択したいのですが、どのようにしたら出来ますでしょうか。複数行選択は出来ないようにしたいです。選択したのち、メインフォームの選択ボタンを押すと、そのレコードのID番号を取得して、呼出元のフォームのIDフィールドに代入したいです。 ■画面の流れ・・・ Aフォーム　→　帳票型Bフォームで、レコードを選び「開く」ボタンを押す→ B 'メインフォームとCサブフォーム）が開く Cサブフォームのレコードをチェックボックスにチェックを入れて選択する B ' メインフォームの「選択」ボタンを押すと B ' メインフォームと、その前のBフォームが閉じて Aフォームに戻り、AフォームのIDフィールドに選択したIDが格納される。よろしくお願いします。

質問日時: 2014/12/14 09:46 質問者: superwonderful

ベストアンサー

3

0
フォームのレコードソースの設定の仕方

フォームを以下の手順で作成し、 1. 4つぐらいのテーブル間でリレーションを設定 2. その中の1つのテーブルから、フォームの自動作成 3. 出来たフォームのレコードソースの「・・・」ボタンをクリックして、1で設定した3つのテーブルを追加し、必要な項目を追加して、その設定内容を保存　→最初のテーブルは「テーブル名.*」として一覧に追加、その他のテーブルは、必要な項目だけを追加 4. デザインモードで、フォームの項目を追加してフォームを作成再度、フォームのレコードソースを開くと、中身が消えてしまい、何もありません。そして、エラーがおき、「「*」を有効なフィールド名、式として認識出来ません」というようなエラーになり、表示できません。複数のテーブルを連結してレコードソースにスル場合、このようなエラーが起きるのでしょうか。また、解決方法なども教えていただけると助かります。よろしくお願いします。

質問日時: 2014/12/09 15:20 質問者: superwonderful

ベストアンサー

1

0
FileMakerで外部保存PDFを開く方法

Windows7/FileMaker13v2使用です。以下の手順で、外部保存したPDFファイルを開くスクリプトを作成したいのですが、思ったように動作しません。１）オブジェクトフィールド：tbl::obj 　　[オブジェクトフィールドを外部に保存]にて　　・保存先：[データベースの場所]/test/ 　　・オープン格納："tbl/obj/" 　　→フィールドに、「ファイル名.PDF」を登録し、上記保存先に格納されることを確認しました。 2)スクリプト　　・変数を設定[$wk; GetValue ( tbl::obj ; 2 )] 　　・Event送信[「aevt」; 「odoc」; 「$wk」] 　　※$wkの値は「FILE:tbl/obj/ファイル名.PDF」になっていました。 →2)のスクリプトを実行すると、、「ファイル[ファイル名.PDF]が見つからなかったため、処理を完了できません。」と出てきます。フィールド参照にせず固定パスにしたところPDFファイルは開きました。 GetValueの取り方が間違っているのかと予想するのですが、どのように取得するとEvent送信で有効になるのでしょうか？

質問日時: 2014/12/09 12:46 質問者: hiromi_hiyuna

解決済

2

0
エクセルのマクロについて

現在、数種のデータを格納したファイルが会社のサーバーに保管されています。各フォルダのデータを閲覧するためルートを作ってあげて目的のフォルダをひらけるようにしたいと考えております。シートごとに検索項目を設定し、マクロ記録モードでファイルを開く手前まで作成できたのですが、フォルダを開くのがうまくいきません。フォルダを開くマクロがあれば、教えていただけないでしょうか。よろしくお願いします。

質問日時: 2014/12/05 22:05 質問者: frdt

ベストアンサー

2

0
2つのフィールドの文字列の組み合わせ

Access2013 vba あるテーブルの構成が以下のようになっていますが □テーブル構成・ID(Long) ・建物NO(外部キー/Long) ・部屋番号（文字列）この時、建物NOと部屋番号の組み合わせで、一意の値にしたい場合、どのようにしたら良いでしょうか。よろしくお願いします。

質問日時: 2014/12/05 14:41 質問者: superwonderful

ベストアンサー

1

0
SQLで'ABC'をDBの'AB'にHIT

sqlite3をVC++2013で扱っています。もしかしたら、単純な方法があるのかもしれないので質問させてください。 DBに渡す文字が'ABC'でDB内のデータ'AB'にHITさせたいと思っています。現状思いつく方法は select * from テーブル where キー like 'A%'; select * from テーブル where キー like 'AB%'; select * from テーブル where キー like 'ABC%'; と渡す文字を一文字ずつ増やして検索して row数が0以上の一番小さい数のデータを取得するという方法しか思いつかないのですが。何か良い方法はありますでしょうか？

質問日時: 2014/12/05 11:30 質問者: sting2011

ベストアンサー

5

0
フォームのフィールドの参照の仕方

Access2013 で、現在システムを開発しているところですが、フォーム上の帳票のボタンを押した時の処理が、複数の画面で共通なので共通処理として使用したいと考えていますが、その時に、画面のフィールドの名前を変数に変えてどのように画面のフィールドに値をセットすればよいでしょうか。よろしくお願いします。

質問日時: 2014/12/05 10:19 質問者: superwonderful

ベストアンサー

1

0
エクセルのマクロについて

マクロのコードについて質問させていただきます。シート1のA1の値をシート2のA1に自動で反映させるマクロを教えていただけないでしょうか。

質問日時: 2014/12/04 17:37 質問者: frdt

ベストアンサー

1

0
Access ADO パラメータークエリー

Access ADOでフォームのコントロールを参照するパラメータークエリーを開こうとすると、どうしても「SQLステートメントが正しくありません・・・」のエラーが発生してしまいます。もちろん、クエリー単体では正常に動作しますが、クエリーのパラメーターに参照するコントロールを登録してもADOでは開けません。現在はパラメータークエリーの抽出結果を一時テーブルに書き込んで、これをADOで開くという非効率極まりない方法で凌いでいますが、どうすれば良いのでしょうか。

質問日時: 2014/12/03 21:39 質問者: Barracuda

ベストアンサー

5

0
Access2013/フロントエンドとバックエンド

Access2013で、フロントエンドとバックエンドにファイルを分割し、ネットワーク上にバックを配置して、最高三人ぐらいの人数で使用するような形をとろうかと考えています。この場合、アクセスはこわれたりすることはありうるのでしょうか？また、普段のアクセスのメンテナンスの仕方について ACCESSは、データの最大許容量が2GBとありますが、これに対する対応として、どのようなやり方があるか知りたいです。（レコードを削除したりするのではなく違う方法で）私が考えているのに、MS SQL Serverに移行するという手段があります。その他の対応方法を知りたいです。よろしくお願いします。

質問日時: 2014/12/02 10:29 質問者: superwonderful

ベストアンサー

4

0
ファイルメーカーでソート後のレコード番号を取得する

1000件データがあって、ソートして20件にしたとします。その20件に連番を１から振って、その数字をエクスポートしたいです。ソート後のレコード番号を取得できる関数があるならそれでもかまいませんし、エクスポートで直接連番が書き出せるならその方がもっと助かります。方法をご存知でしたら、ぜひご回答よろしくお願いいたします。

質問日時: 2014/12/01 18:13 質問者: Wingard

ベストアンサー

3

0
テキストデータをSQLServerに取込むには

列区切なし、改行コードなしの固定長データをSQLにコンバートしたいのですが、上手く行かず困っています。（ファイル形式：テキストファイルバイナリ固定長）　・試した方法　　BULK INSERT　　　添付画像のようなデータをSQLサーバに取り込みたいのですが　上手く読み込みができません。　添付画像のようなデータは取り出せないのでしょうか？　　宜しくお願いします。。

質問日時: 2014/11/29 13:47 質問者: kazusami

ベストアンサー

2

0
自前採番処理について

Access2013で、自前で採番処理をスル場合以下のどちらが正しいでしょうか？ 1) フォームの保存ボタンで、採番管理テーブルを参照して、現在の主キーのID番号を取得して、それに+1したものを採番管理テーブルに保存し、エラーがなければ、画面にセットして保存。 2) フォームのレコードソースのID番号の最大値を取得して、それに+1加算したものを採番管理テーブルに保存し、エラーがなければ、画面にセットし保存。 1) 2)どちらも、採番管理テーブルに+1した番号を保存する時にエラーが起きたら、画面は Me.Undoする。よろしくお願いします。

質問日時: 2014/11/29 11:36 質問者: superwonderful

ベストアンサー

2

0
テーブルの文字列を簡単にコードに変えたい

テーブルに例えば、県名の文字列が入っているフィールドがあってrecord数が何千県とあるとします。この文字列を簡単に、数値に変えて、それをマスター管理したいとすると、一番簡単に変えられる方法って何でしょうか？手間かけずに。こういう値の変更が簡単にできる方法があると、管理しやすいのですが・・・

質問日時: 2014/11/28 11:56 質問者: superwonderful

ベストアンサー

2

0
dlookup関数が使えない

ただいま、フォーム上のあるテキストボックスのコントロールソースに以下のような式を入れています。「=DLookUp("[M00マスター]![個人名]","[M00マスター]","[M00マスター]![個人ID]=[K00オーナーテーブル]![個人ID]")」このフォームは、K00オーナーテーブルがコントロールソースとなっています。しかし、このテキストボックスには、エラーと出て、しかも、ずっと点滅し続けています。この原因がお分かりになるかた、いませんでしょうか。よろしくお願いします。

質問日時: 2014/11/27 18:47 質問者: superwonderful

ベストアンサー

3

0
ACCESS クエリの抽出項目をEXCELから

Access2000のクエリの抽出項目をExcel2013の内容を抽出項目として指定するにはどうすればよいでしょうか。 Excelには、佐藤田中鈴木 ......... のように縦に名前が最大18名分入っています。この（最大）18名の名前をAccessの抽出項目とします（フィールドは10あってその6番目に抽出項目を18名分入力したいのです）。 18名を一人一人コピペしていたのですが、何とか簡素化できないものかな？と思っています。できれば、マクロで一発で抽出項目を貼り付けたいのですが。よろしくお願いします。

質問日時: 2014/11/26 21:25 質問者: Siam0710

ベストアンサー

8

0
複数テーブルが絡む複雑なUPDATE文の書き方

こんばんは次のような2つのテーブルを参照して条件を指定するUPDATE文はどのように書けばよいのでしょうか? Parentsテーブル ID, Name, HasChild, AGE 1, Tanaka, True, 20 2, Yamamoto, False, 25 3, Suzuki, True, 30 4, Kobayashi, True, 20 5, Sato, True, 25 Children ID, Name, ParentID, Male, Flag 1, Taro, 1, True, 0 2, Hanako, 1, False, 0 3, Ichiro, 3, True, 0 4, Jiro, 4, True, 0 5, Subroh, 5, True, 0 やりたいこと：20歳の親を持つ男の子のみにフラグを付ける Parentテーブルで、親が子持ち（HasChild = True）で、年齢が20歳の人だけを対象に Childrenテーブルでその親の子（Parents.ID = Children.ParentID）が男の子（Male = True)だった場合、 Flag を 0 から 1 に変更する実行結果 Children ID, Name, ParentID, Male, Flag 1, Taro, 1, True, 1 2, Hanako, 1, False, 0 3, Ichiro, 3, True, 0 4, Jiro, 4, True, 1 5, Subroh, 5, True, 0 結果は、Tanaka TaroくんとKobayashi Jiroくんのフラグが1になります。複数テーブルのSELECTについては勉強してきましたが、こういうパターンは初めてでわかりません。エクセルVBAから.mdbファイルを扱う時に使います。Microsoft.Jet.OLEDB.4.0のADODB.Connectionを使っています。よろしくお願いします。

質問日時: 2014/11/25 21:27 質問者: tuktukrace

ベストアンサー

1

0
自前の採番処理をするとリレーションが

自前の採番処理を作成するのが初めてなので質問したいのですが自前の採番処理をしてオートナンバー型を主キーで使用しないようにすると、リレーションが、参照整合性のところが設定出来ません。自動連鎖更新など。これは、普通のことでしょうか？あと、MainとSubのFormがある場合、Subフォームでの自動採番処理はどのようにすれば良いでしょうか？よろしくお願いします。

質問日時: 2014/11/21 16:02 質問者: superwonderful

ベストアンサー

8

0
子画面を読んだ後親画面のRecordsetClon

同じレコードソースを持つ帳票フォームAとポップアップ画面Bがあり新規作成ボタンイベントで、Aからで新規入力用のB画面を acAddNew, acDialogで開き新規レーコドを追加する作業をして B画面の保存ボタンを押すことでしてレコードを保存しています。 ◆B画面の保存ボタンの処理 Private Sub cmd保存_Click() 　　'保存処理　　Dim i As Long 　　Dim NewKey As Long 　　Dim SQL As String 　　Dim lngCurrentRec As Long 　　　　If Me.Dirty = True Then 　　　　Ret = MsgBox("入力したデータを保存しますか。", vbQuestion + vbOKCancel) 　　　　If Ret = vbCancel Then 　　　　　　cmd取消_Click 　　　　　　GoTo exitH 　　　　End If 　　　　Set Me.ClsDao_ = New ClsDao 　　　　SQL = "Select final_value, [更新日時] from T95ID管理表 " 　　　　SQL = SQL & "where " 　　　　SQL = SQL & " ID_Name = '作業記録ID';" 　　　　　　　　NewKey = Me.ClsDao_.SelectID(SQL) 　　　　Me.作業記録ID.Value = NewKey 　　　　　　　　Me.BeforeUpdate = "" 　　　　DoCmd.RunCommand acCmdSaveRecord 　　　　　　　　'採番テーブルに新しいNoで更新をする　　　　ClsDao.UpdateID NewKey 　　　　modPub.lngNewRecID = NewKey　'Global変数に新しいID NOをセット（親画面で取得するため）　　　　Set ClsDao = Nothing 　　　　　　　　BeforeUpdate = "[イベントプロシージャ]" 　　'　　Me.Visible = False 　　　　DoCmd.Close 　　End If End Sub ◆B画面の保存ボタンの処理終わり　　その後、呼出元のB画面を開くイベントの処理を継続し A画面を更新し、新規入力されたレコードを選択する処理をしています。問題は、まず１回目には、新規作成ボタンを押して新規データを登録し A画面でその新規レコードを選択することが１回目は可能で同じ事を２回目すると、 ※実行時エラー'7951': 　RecordSetCloneプロパティに対する不適切な参照を含む式を入力しました。というエラーが出ます。その時の画面は、複数行あったのが一レコードだけになってしまい、各項目のTextboxは、「#Name?」が表示されています。デバッグボタンを押すと以下のソースの「Set Rec = Me.RecordsetClone」で止まります。この解決方法を教えて下さい。 ◆A画面の新規作成ボタンのソースの内容開始 Private Sub cmdNewRec_Click() 　　Dim ClsDao As ClsDao 　　Dim SQL As String 　　Dim NewFm As Form 　　Dim Rec As Recordset 　　Dim NewNo As Long 　　Dim MyFm As Form 　　Dim StrRecSource As String 　　　　Set MyFm = Me.Form 　　 StrRecSource = Me.RecordSource 　　　　DoCmd.OpenForm "FXX作業記録(NewEntry_連結版)", acNormal, , , acFormAdd, acDialog 　　　　If modPub.lngNewRecID > 0 Then 　　　　NewNo = modPub.lngNewRecID 　　　　Me.RecordSource = StrRecSource 　　　　Me.Requery 　　　　Set Rec = Me.RecordsetClone　<===ここでエラー　　　　Rec.FindFirst "作業記録ID = " & NewNo 　　　　If Rec.NoMatch = False Then '　　　　　　Me.CurrentRecord = Rec.AbsolutePosition 　　　　　　DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, Rec.AbsolutePosition + 1 　　　　　　Rec.Close 　　　　　　Set Rec = Nothing 　　　　End If 　　End If End Sub ◆A画面の新規作成ボタンのソースの内容終了

質問日時: 2014/11/21 08:01 質問者: superwonderful

ベストアンサー

2

0
SQLiteで... like を早くする

データベース初心者です。 SQLiteを使って多くのデータを作りました。インデックスを使っているので WHERE A = '...' はとても早いのですが、 WHERE A like '%...' は、とても遅いです。速くする方法は無いでしょうか。

質問日時: 2014/11/20 02:28 質問者: remokon

ベストアンサー

2

0
MySQL、PostgreSQLの必要要件について

MySQL、PostgreSQLの必要要件が載っているサイトやページがあれば教えて頂けないでしょうか。サポートＯＳ（Win、Linux）、インストールするために必要な容量が少なくとも欲しいです。（その他の情報もあることにこしたことはありません。）また、最新のみではなく、これまでのバージョンもあれば良いのですが・・・。もちろんここ最近の数バージョン程度で良いです。

質問日時: 2014/11/19 10:50 質問者: payanyan

ベストアンサー

2

0
Access2013、有り無しなどのフラグのデータ

Access2013、有り無しなどのフラグのデータ型を何にしたら良いのか、悩んでいます。しょうもない質問かと思われる方もおられるかもしれませんが、 Yes/No型か数値のバイト型か整数型かもしかすると、先でMS SQL Serverに移行するかもしれない可能性がありますが、今のところ未定です。よろしくお願いします

質問日時: 2014/11/14 18:52 質問者: superwonderful

ベストアンサー

3

0
Accessで自前の自動採番処理で採番テーブルを

Accessで自前の自動採番処理で採番テーブルを作り、その採番テーブルに格納してある最後の主キーのNO.を取得して、それに1加算したものを、新規レコードの主キーの自動採番処理結果として設定するやり方を考えていますが、その場合に 1) 複数レコードにエクセルなどから複数行データをコピーして貼り付けた場合には、採番がうまくいくのでしょうか？行かない場合には、その対処策はありますでしょうか。 2) 一行、または、複数行を削除した場合には、採番は既に登録済みの最後のNo.から自動採番するようになると思いますが、通常のアクセスのシステムでは、このような挙動で宜しいのでしょうか？ご回答のほうよろしくお願いします。

質問日時: 2014/11/14 16:57 質問者: superwonderful

ベストアンサー

2

0
アクセス2013で自前の自動採番をする時の主キーの

アクセス2013で自前の自動採番をする時の主キーのデータ型を現在、十進型の18桁にしています。他の人達は、自前の自動採番をする場合、テキスト型でするという質問を他のサイトで見かけた事がありますが、数字で自動採番処理を自前で作成する場合は、どのデータ型が宜しいのでしょうか? よろしくお願いします。

質問日時: 2014/11/14 13:47 質問者: superwonderful

ベストアンサー

2

0
Accessのセキュリティアラートを出さない

Access2013でデータベースを作成しましたが、中身をいじれないようにする為にコンパイルして「.accde」形式で保存をしましたところが、そのファイルを開くたびに添付画像のようなセキュリティのアラートが出てしまいますこれを出さないで開く方法はないのでしょうか・・・レジストリをいじるなど、このファイルをいじる方法は基本的に出来ません何か良い方法はないでしょうか？またコンパイルをした目的は「レイアウトやモジュール等をいじられないようにする為」ですので、コンパイル以外の方法で上記の目的を達成し、かつアラートが出ない方法があればそれでも構いません何か良い方法があれば教えて頂けませんでしょうか宜しくお願い致します

質問日時: 2014/11/12 23:56 質問者: tora0515

ベストアンサー

1

0
Access VBA 読み取り専用かチェック

お世話になります。現在Accessにてツールを作成しておりますが、読み取り専用で開かれた場合は、処理をさせないようにしたいとところです。処理が実行されると削除クエリの箇所で、削除できない旨のエラーが出てしまい処理が中断します。なお、中断される前にローカルにテンポラリテーブルを作成したりしている為、中途半端な状態で止まってしまいます。 ※ツールはRuntime環境で利用する為、ユーザーが中途半端に　作成されたテーブル等を削除できません。なので、フォームを開く際に読み取り専用で開かれたかどうかチェックし、読み取り専用の場合は、処理させないようにボタンを使用不可にしたいと考えております。ご教示の程、宜しくお願い致します。

質問日時: 2014/11/05 13:22 質問者: naoto0216

ベストアンサー

5

0
ACCESSのデータ消失について

ACCESSベースで生徒提出物をバーコード管理し、受付票のレシートや各種統計、帳票を印刷するVBAによるPOSを組んで4月から勤務校等で使用しているのですが… 先日、導入している関連校で”ブックマークが参照できません”というメッセージが複数回現れた後に、フリーズ、その後強制終了により、データベースが破損するという事象が起きました。一応、世代管理で過去5日分、就業時間前に自動バックアップする仕様にしているのですが、1日分のデータの事もあり、壊れた状態から復元すると、40件ほど全て”*”が表示された行ができていました。これはどうやら、登録済みのレコードが破損したもののようです。さらに、生徒提出物を採点者に渡す際の現物仕訳の段階で、一度、登録したレコードの内、”*”を残さずに完全に消滅したと思しきものが43件ありました。その問題の起きた関連校のみ、学園本部ネットワークにBD本体を置き、インターフェイスを職員室のネットワークに置いていました。(私は経路が迂遠になり、レスポンスが下がるので推奨しませんでしたが) 最近、学園本部でDNSを入れ替えた後、様々なトラブルが発生していました事も追記します。上記の状況を総合的にみた場合、どのような原因で、83件のデータの消失が起きたのか、今後のためにも是非、知りたく思います。お手数をおかけしますが、お知恵をお貸しください。

質問日時: 2014/11/05 00:01 質問者: izayoi168

ベストアンサー

2

0
Access　クロス集計クエリについて

お世話になります。クロス集計クエリの結果が以下の内容になっているとします。項目　　　2013年10月　　2014年07月　　2014年08月　　2014年09月商品数　　100　　　　　　　　150　　　　　　　120　　　　　　　　130 顧客数　　2000　　　　　　　2200　　　　　　2100　　　　　　　2200 ※2013年11月～2014年6月までのデータ無し上記クエリで、データの無い期間の商品数及び顧客数を0とし、また見出しも埋めたいところです。項目　　　2013年10月　　2013年11月　・・・2014年08月　　2014年09月商品数　　100　　　　　　　　0　　　　　　　　　120　　　　　　　　130 顧客数　　2000　　　　　　　0　　　　　　　　　2100　　　　　　　2200 このように表示したい場合、やはり元データにレコードを作成し各数量は0で登録しなければなりませんでしょうか。それとも、実際にレコードが無くても、上記表示は可能でしょうか。 ************ 当該クエリの内容は最終的にExcelファイルに貼り付けします。現状、左詰めで貼り付けられてしまう為、可能であれば1年分の体裁を整えた状態で貼り付けしたいところです。ご教示の程、宜しくお願い致します。

質問日時: 2014/11/04 12:11 質問者: naoto0216

ベストアンサー

10

0
工事管理データベースで月締め時に請求書を出す方法

工事管理データベースのデータベースを今設計しております。工事の受注から、工事の見積作成、進捗管理、請求書、入金、出金の管理など考えています。請求書の部分ですが、私の会社では月末に締めて、その月の請求する工事物件のすべての出勤、入金関係のデータを集計し、請求書を起こしていますが、過去、未収金の分なども当月の請求書に入れています。請求に対する入金があった場合に、工事物件の依頼テーブルか、見積テーブルなどに入金された日付、クローズなどの処理をしたりしているのでしょうか。それとも、そういうことは全くしなくても良いのでしょうか？集計処理で当月分の見積の金額などを全部集計するだけでは、その月以前の未収金分は含まれないのですが、このような未収金分は、全部手作業で請求書に入れ込むのか、システムで何かやり方があるのか、このへんの事をわかる方、教えていただきたいです。よろしくお願いします。m(_ _)m

質問日時: 2014/11/02 00:08 質問者: superwonderful

ベストアンサー

3

0
Accessで別テーブルの値をフォームに表示したい

初めてのＡｃｃｅｓｓで分からない事があり質問させてください。＜会社テーブル＞会社ID 会社名住所＜社員テーブル＞会社ＩＤ社員名ソート番号＊1社に対し複数の社員レコードが存在以上のようなテーブルがあるとします現在「会社テーブル」を表形式で一覧表示しています会社ＩＤ，会社名、住所とフィールドが並んでいるのですが、その後ろに「社員テーブル」のソート番号が一番若い社員名を表示したいと考えています（現状は番号関係なく表示させる方法すら分かりません）色々いじくりまわしたのですが、初めてＡｃｃｅｓｓをさわる事もあってよくわかりませんリレーション等でひっぱってくる事ができるのでしょうか？どなたか教えて頂けませんでしょうか何卒よろしくお願い致しますＰＳ．Ａｃｃｅｓｓ2013で作成中です

質問日時: 2014/11/01 19:44 質問者: tora0515

ベストアンサー

2

0
Filemaker Pro 12　ボディとヘッダー

Filemaker Pro 12　で住所録を作りレイアウト画面を作って、プレビューに切り替えると、「表形式で印刷するには、ボディが用紙内に収まっていなければなりません。印刷する場合には、ボディの高さを小さくするか、大きい用紙に変更するか、または、表形式を解除してください。」とのメッセージが出ました。レイアウトは１０cmX１４．８cmのハガキ大で、プリンタ用紙設定も「ハガキ」です。郵便番号とヘッダーが重なりますが、ヘッダーとボディの設定をおしえてください。

質問日時: 2014/10/29 15:42 質問者: niebelung

ベストアンサー

1

0
access2010のレポート印刷について質問です

選択クエリにて日付で抽出しています。選択クエリを実行すると、パラメーターの入力画面が表示され、日付を入力すると抽出されます。その選択クエリをそのままレポートとしてあります。そのレポートを印刷するにあたり、現在の流れは、フォームの印刷ボタンを押す→パラメーターの入力→レポート表示→ファイルタブから印刷を選択→印刷をクリック→プリンター選択等のプロパティー画面→印刷となっていますが、この手順を、フォームの印刷ボタンを押す→パラメーターの入力→プリンター選択等のプロパティー画面→印刷としたいのですが。分かる方、是非教えて下さい。宜しくお願いします。

質問日時: 2014/10/26 12:49 質問者: korozo88

ベストアンサー

1

0
Access Excelへ出力時にエラー

お世話になります。下記にてローカルクエリの抽出結果をExcelへ出力しております。　Dim obj As Object 　Dim MyDB As DAO.Database 　Dim MyRs As DAO.Recordset 　Dim qdf As DAO.QueryDef 　Dim out_path as String 　Dim sheet_name as String 　out_path = "出力先ファイルのフルパス（ファイル名含む）" 　sheet_name = "出力先シート名" Set MyDB = CurrentDb Set obj = GetObject(out_path, "Excel.Sheet") obj.Application.Visible = False obj.Parent.Windows(1).Visible = True Set qdf = MyDB.QueryDefs("ローカルクエリ名") With qdf .Parameters("[forms]![test]![id]") = Forms!test!id Set MyRs = .OpenRecordset .Close End With obj.Worksheets(sheet_name).Select　　　←　（注） obj.Application.Cells(24, 1).CopyFromRecordset MyRs ※ローカルクエリの抽出条件としてフォーム上のテキストボックスを　参照しているため、Parametersを使ってます。とりえあず上記で抽出結果は出力されます。但し、適当なExcelファイルを開いた状態で実行すると、（注）の箇所で「実行時エラー1004　WorksheetクラスのSelectメソッドが失敗しました」となってしまいます。なお、Selectの箇所をActiveにすると「実行時エラー438　オブジェクトはこのプロパティまたはメソッドをサポートしていません。」と表示されます。また、obj.Application.Visible = False の箇所で開いていた Excelファイルが閉じてしまうのですが、そういうものなのでしょうか。勉強不足で大変恐縮ですが、ご教授の程、宜しくお願い足します。

質問日時: 2014/10/24 14:37 質問者: naoto0216

解決済

3

0

←前の結果
1
...
5
6
7
8
9
10
11
12
13
14
15
...
20
次の結果→

【データベース】に関するカテゴリ

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

【その他（データベース）】に関するコラム/記事

弁護士が解説！あなたの声を行政に届ける「パブリックコメント」制度のすべて

社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...