Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

420 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4787】Re:三つのＩＦ判断条件の組み合わせ

クロ - 05/4/1(金) 16:20 -


	引用なし

	パスワード

>三つの判断条件に、一つの条件でも成立したら、
>　MsgBox "処理開始"を実行して、
>　End IFに戻って、処理終了となります。
>三つの条件ともに不成立の場合は、Elseに分岐され、
>　MsgBox "前日のデータ、受付できません"を実行して、
>　Exit FunctionからIF～EndIF抜けます。
>正しい理解でしょうか？

でいいんですが...
Exitの後のFunctionはSubで行ってるならSubにして下さい。
但し、この場合これ以降に別の処理がある場合です。
なければExit...は要りません。

もしかしたら条件が変かな？
特にElseのメッセージ...

今日が2005/04/01(Date)だとして

AAA1.xls 作成日 2005/04/01
AAA2.xls 作成日 2005/03/31
AAA3.xls 作成日 2005/04/01

AAA1～3.xls何れかが今日より小さい(過去)だから処理開始します。

このメッセージは..「前日のデータ、受付できません」どういう意味
ですか？

事例を教えてください。
条件は今日が2005/04/01とした場合、各ファイルの作成日が
いつだったら処理して、いつだったら処理をしたくないのか？

・ツリー全体表示


	【4786】Re:日付型にnull値入力

小僧 - 05/4/1(金) 14:45 -


	引用なし

	パスワード

▼smith さん：
クエリで成功するのにADOで実行できないとなると、
ADOの記述のところに問題があるかも…です

>下記のような文を試してみましたがダメでした。前後は略しています。

前後のコードをもう少し記載していただくと
状況がわかり易くなると思われます。

・ツリー全体表示


	【4785】日付型にnull値入力

smith

- 05/4/1(金) 11:15 -


	引用なし

	パスワード

ローカルテーブルAの日付・時刻型フィールドにnull値をinsertするSQL文を実行
するとエラーになってしまいます。別のテーブルBの日付・時刻型フィールドをそのローカルテーブルAにinsertするもので、クエリだとうまくいくのですがADOを使ってやるとエラーになってしまいます。
　日付型なので”#”で囲ってやると、値が入っているレコードはinsertされるのですが、null値にぶちあたるとエラーになります。なのでiif文を使うのですがnull値ならば
何を入力するように書けばいいのでしょう。

下記のような文を試してみましたがダメでした。前後は略しています。

　1. ",#" & IIF(isnull[A],"null",[A]) & "#"
　2. ",#" & IIF(isnull[A],0,[A]) & "#"
　3. ",#" & [A] & "#"

ご回答お願いします。

・ツリー全体表示


	【4784】Re:三つのＩＦ判断条件の組み合わせ

sakai - 05/4/1(金) 10:23 -


	引用なし

	パスワード

クロさん
　ありがとうございます。
内部処理の仕組みは分かりませんので、ご指導ください。
一応わたしの理解は、
三つの判断条件に、一つの条件でも成立したら、
　　　　　　　　　MsgBox "処理開始"を実行して、
　　　　　　　　　End IFに戻って、処理終了となります。
　　　　　　　　　　　三つの条件ともに不成立の場合は、Elseに分岐され、
　　　　　　　　　　　MsgBox "前日のデータ、受付できません"を実行して、
　　　　　　　　　　　Exit FunctionからIF～EndIF抜けます。
正しい理解でしょうか？

If FileDateTime("D:\圧縮解凍\AAA1.xls") < Date or _
　 FileDateTime("D:\圧縮解凍\AAA2.xls") < Date or _
　 FileDateTime("D:\圧縮解凍\AAA3.xls") < Date Then
　 MsgBox "処理開始"
Else
　 MsgBox "前日のデータ、受付できません"
　 Exit Function
End If

・ツリー全体表示


	【4783】Re:三つのＩＦ判断条件の組み合わせ

クロ - 05/4/1(金) 9:04 -


	引用なし

	パスワード

>三つの条件の中に一つでも「True」の場合は、MsgBox "処理開始"へ移すために
>Andをorに変更するだけ、よろしいですね。

そうですね。
ただ、そのときはAAA1～AAA3のファイルを処理するものだと思いますが
処理しないもの(3つの中で条件に合わないもの)については別途何らかの
分岐が必要かも？です。

・ツリー全体表示


	【4782】Re:三つのＩＦ判断条件の組み合わせ

sakai - 05/3/31(木) 20:04 -


	引用なし

	パスワード

▼クロさん：
大変助かりました。
三つの条件の中に一つでも「True」の場合は、MsgBox "処理開始"へ移すために
Andをorに変更するだけ、よろしいですね。

If FileDateTime("D:\圧縮解凍\AAA1.xls") < Date or _
FileDateTime("D:\圧縮解凍\AAA2.xls") < Date or _
FileDateTime("D:\圧縮解凍\AAA3.xls") < Date Then
　　MsgBox "処理開始"
Else
　　MsgBox "前日のデータ、受付できません"
　　Exit Function
End If

・ツリー全体表示


	【4781】Re:三つのＩＦ判断条件の組み合わせ

クロ - 05/3/31(木) 16:12 -


	引用なし

	パスワード

If FileDateTime("D:\圧縮解凍\AAA1.xls") < Date And _
FileDateTime("D:\圧縮解凍\AAA2.xls") < Date And _
FileDateTime("D:\圧縮解凍\AAA3.xls") < Date Then
　　MsgBox "処理開始"
Else
　　MsgBox "前日のデータ、受付できません"
　　Exit Function
End If

こういうことでしょうか？

・ツリー全体表示


	【4780】Re:フォームの最大化

マッハン - 05/3/31(木) 15:28 -


	引用なし

	パスワード

▼クロさん：
>もしかしたら最大化フォームを閉じるときに
>DoCmd.Restore
>のことでいいのかな？

はい、そうです。。
有難うございました。解決しました。

・ツリー全体表示


	【4779】三つのＩＦ判断条件の組み合わせ

sakai - 05/3/31(木) 15:23 -


	引用なし

	パスワード

お世話になります。どうしても分からないことがあって、投稿しました。
よろしくお願いします。
実行したいのは、
三つの判断条件があるとします。
同時に成立する場合は、次のステップへ回します。
そうでない場合は、MsgBoxを実行し、そして抜けます。
知っている範囲まで、下記のように書きました。

If FileDateTime("C:\AAA1.xls") < Date Then
　　　 If FileDateTime("C:\AAA2.xls") < Date Then
　　　　　If FileDateTime("C:\AAA3.xls") < Date Then
　　　 MsgBox "前日のデータ、受付できません"
　　　Exit Function　　　　　　　　　　　
Else

・ツリー全体表示


	【4778】Re:フォームの最大化

クロ - 05/3/31(木) 14:44 -


	引用なし

	パスワード

もしかしたら最大化フォームを閉じるときに
DoCmd.Restore
のことでいいのかな？

・ツリー全体表示


	【4777】Re:フォームの最大化

クロ - 05/3/31(木) 12:24 -


	引用なし

	パスワード

http://homepage3.nifty.com/_miyabi/technic/access/ac_tec_8.htm
上記が参考になりますか？

・ツリー全体表示


	【4776】Re:フォームの最大化

マッハン - 05/3/31(木) 12:16 -


	引用なし

	パスワード

クロさん、早速のご返答有難うございます。
すみません、私の質問の仕方が悪かったようで。。。
先ほど教えて頂いたフォーム最大化を一度実行すると、
全てのフォームに適用されるようです。
ひとつのフォームだけを最大化するということは可能なのでしょうか？
よろしくお願い致します。

・ツリー全体表示


	【4775】Re:フォームの最大化

クロ - 05/3/31(木) 11:34 -


	引用なし

	パスワード

InsideHeight プロパティ
InsideWidth プロパティ
で適宜に...

・ツリー全体表示


	【4774】Re:フォームの最大化

マッハン - 05/3/31(木) 11:06 -


	引用なし

	パスワード

有難うございます。
逆に、サイズを自動的に調整することはできますか？

・ツリー全体表示


	【4773】Re:フォームの最大化

クロ - 05/3/31(木) 10:44 -


	引用なし

	パスワード

対象フォームの開く時のイベントに
DoCmd.Maximize
でいいのでは？

・ツリー全体表示


	【4772】フォームの最大化

マッハン - 05/3/31(木) 9:51 -


	引用なし

	パスワード

フォームを開いたときに自動的に最大化させたいのですが、可能でしょうか？

・ツリー全体表示


	【4771】Re:マスタテーブルに登録したプリンター全...

ひまわり - 05/3/31(木) 9:04 -


	引用なし

	パスワード

ありがとうございます！
早速チャレンジしてみます。
またなにかありましたらよろしくお願いします。

・ツリー全体表示


	【4770】Re:マスタテーブルに登録したプリンター全...

Gin_II - 05/3/31(木) 1:15 -


	引用なし

	パスワード

>パソコンに登録されているプリンターをマスタテーブル化し、
>そのテーブルに存在するプリンター全てに印刷指示をしたいのですが、
>方法がわかりません。

VBAが必須ですね。

Microsoft Access 2002 でのプリンタ設定のプログラミング
http://www.microsoft.com/japan/msdn/officedev/officeXP/odc_acc10_printers.asp

こちらを確認してください。

・ツリー全体表示


	【4769】Re:テープルエクスポートの件

takataka - 05/3/30(水) 22:07 -


	引用なし

	パスワード

有難うございます。
キーワードを元に検索して行きます。
▼Gin_II さん：
>>Excelで、範囲名をつけました。
>範囲名がつけてあると、
>>するとテーブル"シート名$A31:G31"は既に存在しています。
>というエラーがでると思います。
>
>>Excelの特定sheetの特定セルへの貼付は難しいのでしょうか?
>難しいというか、Accessの機能では、TransferSpreadsheet メソッドのRange 引数を
>使うぐらいですね。
>オートメーション機能を使えば、自由はききますね。
>
>CopyFromRecordset
>あたりをキーワードに過去ログを検索すれば、ヒットすると思います。

・ツリー全体表示


	【4768】マスタテーブルに登録したプリンター全て...

ひまわり - 05/3/30(水) 16:41 -


	引用なし

	パスワード

初心者です。
パソコンに登録されているプリンターをマスタテーブル化し、
そのテーブルに存在するプリンター全てに印刷指示をしたいのですが、
方法がわかりません。
どなたかご存知の方がいらっしゃいましたら是非お教え下さい。
お願いします。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

420 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free