Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


439 / 500 ページ ←次へ | 前へ→

【4396】Re:抽出条件にFormat関数は使えないのでし...
回答  クロ  - 05/2/10(木) 11:13 -

引用なし
パスワード
   > クエリーでは抽出されるのに、コードにSQLを展開すると
この意味はどういうことですか?もう少し詳しく...

また、フォームAの「伝票日付」の書式はどうのようになってますか?
・ツリー全体表示

【4395】Re:抽出条件にFormat関数は使えないのでし...
質問  さつこ  - 05/2/10(木) 11:02 -

引用なし
パスワード
   クロ さんへ
早くに回答いただいていたのにすみません。

そして、以下のように間違いだったのです。

>> WHERE ((Format([伝票日付],"yyyymm"))=Format([Forms]![A]![伝票日付],"yyyymm"))) でした。

いろいろやってみたのですが・・・どうにもうまくいきません。
・ツリー全体表示

【4393】Accessの日付関数を教えてください
質問  超初心者です  - 05/2/10(木) 0:57 -

引用なし
パスワード
   最近、マクロからやっとVBAに取り組みはじめたばかりです。
アドバイスお願いいたします。


エクセルで、使用しているworkday関数を、
アクセスで使用したいのですが、よい方法がありましたら教えてください!

エクセルのオブジェクトライブラリを可能にして
Excel.Application.を付加して実行しましたら
利用できない意味の実行時エラーが発生してしまいました!


workday(当日の日付,在庫日数,祝日)で、
欠品予定日を算出したい。

※現在はアクセスで欠品予定日以外のデータを作成させ、
エクセルにエクスポートして関数で計算をさせて、
再びアクセスに取り込みなおしてます※

バージョンはアクセス、エクセル共に2000です。
・ツリー全体表示

【4392】Re:グループ単位の累計について
回答  かろちん  - 05/2/10(木) 0:31 -

引用なし
パスワード
   >やはりエラーがでます。何か良い方法がありますでしょうか?

どんなエラーが出るのでしょうか?
エラーの内容が分からないとレスできないです。

>Sum(出荷数.数量の合計)
これはすこしきになりますが。
・ツリー全体表示

【4391】Re:検索フォーム内でのフォーカス(カーソ...
回答  かろちん  - 05/2/10(木) 0:29 -

引用なし
パスワード
   整理します。
>最新の情報が画面に表示されていてもenterキーを押すたびに
>どんどん古い情報が画面に表示されていき、最後は製品コード(検索に使った)
>以外は空白になります。
これは、
1)単票フォームですか?
2)帳票フォームですか?
3)単票フォームがサブフォームとして張り付いているのですか?
4)帳票フォームがサブフォームとして張り付いているのですか?
5)製品コード入力フォームと、結果表示フォームは分かれているのですか?
画面上には、入力した製品コード以外のデータも抽出されていているような
文書になっていますが、どうでしょうか?

6)Enterキーはどこで入力するのですか?
 製品コードですか?
 標準書番号ですか?
 製品名ですか?
 製品コードですか?
 廃止日ですか?

>   説明不足ですみません。使用者の中でただ一人だけが
>   「古い情報を見たい時がある」という位、使用頻度が少ないので
>   できれば新旧の情報をいったりきたりくるくるしたいです。
>   enterキーを押すたびに新→旧→新→旧みたいにしたいです。
上記の内容から想定するならば、Enterキーを押したタイミングで
DoCmd.GotoRecordで該当するレコードに飛ばしてやればよいように
思います。

>   これもすみません。ひとつの製品コードに対して何件(大体2〜3件)の
>   標準書(データ)があるか知りたかったのです。
>   Dcount関数を試したら、テーブルにある全レコード数(220件)をカウント
>   してしまいました。
これはHELPでDcount関数を調べられましたか?

--以下HELP--------------------------------------------------------
DCount(expr, domain[, criteria])

DCount 関数には、次の引数があります。

引数 内容
expr    対象となるデータが含まれているフィールドを表す文字列式、
      またはフィールドの値の計算を表す式です。テーブルのフィー
      ルド名、フォームのコントロール、定数、組み込み関数、および
      ユーザー定義関数が指定できます。ただし、ほかの定義域集計
      関数や SQL 集計関数は指定できません。

domain   定義域を構成するレコードを指定する文字列式です。
      テーブル名またはクエリ名が指定できます。
criteria  この引数は省略可能です。演算対象となるデータの範囲を指定
      する文字列式です。
      たとえば、SQL 式の WHERE 句を指定できます (語 WHERE は省略
      します)。
      引数 criteria を省略すると、定義域全体に対して expr が適用
      されます。
      criteria に含まれるフィールドが domain のフィールドでない
      場合、DCount 関数はNull 値を返します。
------------------------------------------------------------------
したがって、検索するデータの件数は、画面で入力した製品コードの数を
カウントすることになるため。

DCount("製品コード","クエリー名","製品コード=" & Froms!フォーム名.製品コード)
製品コードが文字型なら
DCount("製品コード","クエリー名","製品コード='" & _
            Froms!フォーム名.製品コード & "'")
になると思います。
・ツリー全体表示

【4390】超超超〜初心者です。。。抽出件数につい...
質問  リオ  - 05/2/9(水) 17:40 -

引用なし
パスワード
   こんにちは、超超超初心者です。

抽出件数についてなんですけど、教えてください。

<<質問>>
現在、「複数の条件に一致するレコードを抽出する」というのを作ってます。
入力フォームで複数の項目に入力させて、一致するものを出力フォームに表示
させています。
その際、選択クエリでは「Like "*" & [forms]![入力フォーム]![住所] & "*"」
を条件にしているのですが、これを条件分、複数個書くと、多分「または」って
ことで、本来1レコードしかないのに、答えがたくさんのレコードになってしまいます。

なにかいい方法ありますか?
・ツリー全体表示

【4389】Re:本当に初心者なんですけど・・・検索に...
お礼  カナ  - 05/2/9(水) 17:34 -

引用なし
パスワード
   ▼クロ さん:
>ヘルプで「Access の定義」を引いて「クエリ」のところに書いてあります。

すみません、ありがとうございました〜☆
・ツリー全体表示

【4388】Re:検索フォーム内でのフォーカス(カーソ...
質問  mako  - 05/2/9(水) 17:02 -

引用なし
パスワード
   かろちんさんへ。ありがとうございました。
朝、再質問したつもりがかろちんさんのお返事をそのまま
投稿してしまっていました。本当にすみません。

どうか再び再質問させて下さい。

>>1.一番古い情報を確認した後、また最新の情報を見たい

> これは、最新の順に表示するサブフォームと
> 古い順に表示するサブフォームを用意すること
> により可能ではないでしょうか。
    
   説明不足ですみません。使用者の中でただ一人だけが
   「古い情報を見たい時がある」という位、使用頻度が少ないので
   できれば新旧の情報をいったりきたりくるくるしたいです。
   enterキーを押すたびに新→旧→新→旧みたいにしたいです。

>>2.一番最初にenterキーを押した時点で、その製品コードに対して
>> 何個の標準書番号が存在するのか知りたい
>
> これは、フォームに件数を表示するテキストボックスを
> 設置し、DCount関数で件数を表示(コントロールソース
> にセットする)することにより可能かと思います。

   これもすみません。ひとつの製品コードに対して何件(大体2〜3件)の
   標準書(データ)があるか知りたかったのです。
   Dcount関数を試したら、テーブルにある全レコード数(220件)をカウント
   してしまいました。

>画面構成が良く分からないのですが
   
   私の説明が不十分なために、大切な時間を割いていただいたのに
   申し訳ございませんでした。
   質問する時のポイントなどがあれば、教えて下さい。
  
どうかよろしくお願いいたします。
   
・ツリー全体表示

【4386】Re:グループ単位の累計について
質問  takataka  - 05/2/9(水) 16:19 -

引用なし
パスワード
   有難うございます。できました。さらにラインNO・出荷順位単位で挑戦しました。
cmd.CommandText = " SELECT 出荷数.ラインNO, 出荷数.出荷順位, " & " Sum(出荷数.数量の合計) As 出荷計 FROM 出荷数 " & " GROUP BY 出荷数.ラインNO, 出荷数.出荷順位; "
で記述して見ました。
やはりエラーがでます。何か良い方法がありますでしょうか?
・ツリー全体表示

【4385】コピー&貼り付け
質問  みき  - 05/2/9(水) 15:41 -

引用なし
パスワード
   フォームで抽出したレコードのある一部分
例:
名前 メールアドレス
ゆき  yuki@aaa.co.jp
はな  hana@bbb.co.jp
たろう tarou@ccc.co.jp
上記の例で言うと「メールアドレス」の部分をコピーして別フォームのテキストボックスに貼り付けたい。
これを自動化したいのですが、どのようにしたらいいでしょうか?

参照しようとしても一番最初のアドレスしか表示されません。
ひとつのテキストボックスの中に例で言うと、3つのアドレスをまとめて表示したいです。
・ツリー全体表示

【4384】Re:本当に初心者なんですけど・・・検索に...
発言  クロ  - 05/2/9(水) 15:06 -

引用なし
パスワード
   ヘルプで「Access の定義」を引いて「クエリ」のところに書いてあります。
・ツリー全体表示

【4383】本当に初心者なんですけど・・・検索につ...
質問  カナ  - 05/2/9(水) 12:04 -

引用なし
パスワード
   はじめまして、こんにちは
ものすごい初心者なんですけど、様々なツール作成担当にひとりでなっちゃったので、
教えてください!

<<質問:こういうことってできますか???>>
検索して、抽出するクエリを作成しようと思っているのですが、検索条件は
AND検索の場合、何個までという規定はありますか?
・ツリー全体表示

【4381】Re:フォーカスが戻らない
回答  Gin_II  - 05/2/9(水) 10:40 -

引用なし
パスワード
   >>どのイベントに書いたんですか?
>コンボボックスのLostFocusです。

どのコントロールに、フォーカスを戻したいのでしょうか?
今の状態だと、コンボボックスの前のコントロールにフォーカスが移ると
思います。
・ツリー全体表示

【4380】Re:フォーカスの移動
回答  DIO  - 05/2/9(水) 9:50 -

引用なし
パスワード
   ▼かろちん さん:
>>サブフォームの詳細に複数のレコードが表示されるのですが、他のレコードを
>>クリックしたときコンボボックスがNULLの時などは他のレコードにフォーカス
>>を飛ばしたくないのです。
>
> DoCmd.GotoRecordやコンボボックス名.SetFocusでいけると
> 思いますが、GotoRecordやSetFocusはHELPで調べて見ましたか?
>
> 今回の質問の場合、コンボボックスがNULLの条件はどこでチェック
> するのでしょうか?
> 変更していないケースもあるので、フォーカス喪失時もしくは
> フォーカス喪失後になると思います。
> フォーカス喪失時の処理でNULL判定するなら、Cancelが使えますので
> NULLの場合、Cancel=1 でも可能かと思います。
NULLの条件はフォーカス喪失時に関数へ飛ばしてチェックしています。
DoCmd.CancelEventの後、SetFocusでうまくいくような気がするのですが...
・ツリー全体表示

【4379】Re:確立密度関数について
お礼  ひろみち  - 05/2/9(水) 9:00 -

引用なし
パスワード
   ▼クロ さん:
クロさん
どうもありがとうございます!

教えていただいた方法で計算ができました。
ほんとに助かりました!

>こんな方法はどうでしょうか?
>http://www.ruriplus.com/msaccess/tch/tch_026.html
・ツリー全体表示

【4378】Re:グループ単位の累計について
回答  かろちん  - 05/2/9(水) 0:24 -

引用なし
パスワード
   これは、このまま記述され、記述されているままにコピッペされました
でしょうか。
もしそうなら。

下記、スレッドの関係で任意の位置で改行しています
>cm.CommandText = "SELECT 出荷数.ラインNO, Sum(出荷数.数量の合計)
> As 出荷計" & "FROM 出荷数 GROUP BY 出荷数.ラインNO;"
        ↑ここの部分ですが、スペースがありません。

〜 As 出荷計FROM 出荷数 〜

となり、出荷計とFROMがくっついていますよ。
また、「〜 FROM 出荷数 GROUP BY 〜」の
           ↑ここが全角スペースになっています。

これでは、エラーになってしまいますよ。
・ツリー全体表示

【4377】Re:検索フォーム内でのフォーカス(カーソ...
回答  かろちん  - 05/2/9(水) 0:14 -

引用なし
パスワード
   画面構成が良く分からないのですが

>1.一番古い情報を確認した後、また最新の情報を見たい

 これは、最新の順に表示するサブフォームと
 古い順に表示するサブフォームを用意すること
 により可能ではないでしょうか。

 古い順のサブフォームは、最後の1件のみの
 表示でも良いと思います。

>2.一番最初にenterキーを押した時点で、その製品コードに対して
> 何個の標準書番号が存在するのか知りたい

 これは、フォームに件数を表示するテキストボックスを
 設置し、DCount関数で件数を表示(コントロールソース
 にセットする)することにより可能かと思います。
・ツリー全体表示

【4376】Re:フォーカスの移動
回答  かろちん  - 05/2/9(水) 0:02 -

引用なし
パスワード
   >サブフォームの詳細に複数のレコードが表示されるのですが、他のレコードを
>クリックしたときコンボボックスがNULLの時などは他のレコードにフォーカス
>を飛ばしたくないのです。

DoCmd.GotoRecordやコンボボックス名.SetFocusでいけると
 思いますが、GotoRecordやSetFocusはHELPで調べて見ましたか?

 今回の質問の場合、コンボボックスがNULLの条件はどこでチェック
 するのでしょうか?
 変更していないケースもあるので、フォーカス喪失時もしくは
 フォーカス喪失後になると思います。
 フォーカス喪失時の処理でNULL判定するなら、Cancelが使えますので
 NULLの場合、Cancel=1 でも可能かと思います。
・ツリー全体表示

【4375】グループ単位の累計について
質問  takataka  - 05/2/8(火) 23:43 -

引用なし
パスワード
   Function s457()
Dim ct As ADODB.Connection
ラインNO毎に数量の合計をしたいと考えており、下記の様なモージュルを作成しました。
しかし、selectステートメントが間違っている予約語や引数を含んでいるか、区切り記号が正しくありません。と言うメッセージがでます。どこがおかしいのでしょうか?
Function s457()
Dim rs As ADODB.Recordset
Dim cm As ADODB.Command
Dim msg As Integer
Set ct = Application.CurrentProject.Connection
Set cm = New ADODB.Command
cm.ActiveConnection = ct
cm.CommandText = "SELECT 出荷数.ラインNO, Sum(出荷数.数量の合計) As 出荷計" & "FROM 出荷数 GROUP BY 出荷数.ラインNO;"
Set rs = New ADODB.Recordset
Set rs = cm.Execute
msg = MsgBox(rs.Source)
rs.Close
ct.Close
End Function
・ツリー全体表示

【4374】Re:既存のデータベースの削除
回答  YU-TANG  - 05/2/8(火) 23:05 -

引用なし
パスワード
   こんばんは、YU-TANG です。

関係あるかもしれません。

http://support.microsoft.com/kb/312968/JA/

# 関係なかったら悪しからず。
・ツリー全体表示

439 / 500 ページ ←次へ | 前へ→
ページ:  ┃  記事番号:
1084746
(SS)C-BOARD v3.8 is Free