Access VBA質問箱 IV

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

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


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

475 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3652】Re:DOSコマンドの戻り値について

Gin_II - 04/10/5(火) 1:02 -


	引用なし

	パスワード

>このエラーを感知（DOSコマンドの戻り値を調べる）方法があればご教授願い
>ます。

DOS コマンドの実行結果を取得する方法
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGetDosResult.html

こちらはどうでしょうか？

・ツリー全体表示


	【3651】Re:WHERE句でワイルドカードと変数を使用...

こもれび - 04/10/4(月) 23:13 -


	引用なし

	パスワード

こもれびです

▼クロさん：
>Like演算子は最初にも書きましたが文字列を比較を行うので
> Like "文字列" となります。

>私なら
>"and ((T_data.inputdate) like '2004/" & strdispmonth & "/%'));"
>と書きますが...たぶん通るばすです。

通りました。
Like "文字列"を頭に叩き込んでおけば悩まずに済んだようです。
シングルクォーテーションで括ったほうがコードは読みやすいですね。
ご教示ありがとうございました。

・ツリー全体表示


	【3650】DOSコマンドの戻り値について

ドイツ人 - 04/10/4(月) 21:33 -


	引用なし

	パスワード

いつもお世話になります。

shell関数及びcommannd.com を使って、DOSコマンドを実行しています。
具体的には、テーブルのレコードの中から、条件に合うレコードを検出し、
そのレコードの職員番号を用いて、NET SENDコマンドでメッセージを送信
する内容です。送信は正常に機能しています。

ここで、Shell関数は、Shell関数自体の実行直後に制御が戻ってくるため、
Shell関数そのもののエラーは感知できますが、NET SENDコマンドの処理の
途中でエラーがあった場合には、エラーを感知できません。

このエラーを感知（DOSコマンドの戻り値を調べる）方法があればご教授願い
ます。

Dim NetSend As String
Dim user_name As String

Do Until (レコードセット).EOF
　　If 条件文 Then
　　　　user_name = (レコードセット)!職員番号
　　　　NetSend = "command.com /C net send " & user_name & " " & (送信文)
　　　　Call Shell(NetSend, vbHide)
　　End If
　　rs1.MoveNext
Loop
(レコードセット).Close

・ツリー全体表示


	【3649】Re:タブのように移動したい。

クロ - 04/10/4(月) 14:02 -


	引用なし

	パスワード

タブ移動とはtabキーで移動することでいいのでしょうか？

メイン/サブともにtabキーの移動順は各フォームをデザインビューで開いて
メニュー>表示>タブオーダーで事前に移動したい順にしておきます。
※この移動順もコードで行うのであればそれぞれのコントロールの
　TabIndexとTabStopプロパティで調整します。

メインフォームに置いたaボタンをクリックした段階で既にフォーカスは
メイン側にありますので、aボタンにコード書くならクリック時のイベントに

Me.第１コントロール名.SetFocus

と第１コントロールにフォーカスを移動するようにすればいいと
思います。

メインフォームからサブフォームにフォーカスを移動する(bボタン)には
以下のようにクリック時のイベントにコードで

Me.サブフォーム名.SetFocus
Me.サブフォーム名.Form.第１コントロール名.SetFocus

とします。
1行目はメインフォームから見たサブフォームコントロールにフォーカスを
移動し、2行目はそのサブフォーム内の第１コントロールを指定してフォーカスを
移動します。

・ツリー全体表示


	【3648】タブのように移動したい。

なお - 04/10/4(月) 11:57 -


	引用なし

	パスワード

フォームＡ、上でコマンドボタンaとbを作り。

aボタンを押すとテキストボックス1～5の間での移動(タブの移動)が出来るよ
うに。

bボタンを押すとサブフォームのテキストボックス1～5の間での移動（タブの
移動）が出来るようしたいのですが？

・ツリー全体表示


	【3647】Re:WHERE句でワイルドカードと変数を使用...

クロ - 04/10/4(月) 11:44 -


	引用なし

	パスワード

Like演算子は最初にも書きましたが文字列を比較を行うので
Like "文字列" となります。

ということは
コード上は「"」単体では使えないので、私の場合通常
"Like '2004/10/%'"と書くことになります。
意味としてはこもれびさんの「"」の括り方でいいと思います。

私なら
"and ((T_data.inputdate) like '2004/" & strdispmonth & "/%'));"
と書きますが...たぶん通るばすです。

・ツリー全体表示


	【3646】Re:WHERE句でワイルドカードと変数を使用...

こもれび - 04/10/4(月) 11:30 -


	引用なし

	パスワード

こもれびです

解決しました

文は次の記述で通りました。

"and ((T_data.inputdate) like ""2004/" & strdispmonth & "/%""));"

なるほど…とも取れますし、何で？とも取れてしまう記述です。

何はともあれ、回答ありがとうございました。<m(__)m>

・ツリー全体表示


	【3645】Re:WHERE句でワイルドカードと変数を使用...

こもれび - 04/10/4(月) 11:11 -


	引用なし

	パスワード

クロさん　おはようございます　<m(__)m>

お世話になります。

うーむ、どうもlike節はシビアですね。

こちらに投稿する前にいろいろ試したのですが悉くはねられました。(T_T)

×：like #2004/" & strdispmonth & "/%# ));" → 日付の構文エラー
×：like 2004/" & strdispmonth & "/% ));" →　構文エラー

エラーメッセージを読むとどちらも惜しいところまではきているようです。
（「パラメータ無し」にはなっておらず、2004/10/% までは読んでいる。）

また、次の文は論外で変数が読み込まれませんでした。

×：like #2004/ & strdispmonth & /%#));"　→ 日付の構文エラー

・ツリー全体表示


	【3644】Re:それともう一つ

クロ - 04/10/4(月) 9:19 -


	引用なし

	パスワード

> ※いろいろためしてみたら、上手く実行されている時もありました。
> エラーになるのは、検索リストをクリックした時のみです。
> 何度もすみません。よろしくお願いいたします。

とありますがどのタイミングで検索リストをクリックするのでしょうか？
件のコード(フォーカス移動)では無理では？

・ツリー全体表示


	【3643】Re:WHERE句でワイルドカードと変数を使用...

クロ - 04/10/4(月) 8:43 -


	引用なし

	パスワード

#を抜いてはどうなりますか？
Likeは「2つの文字列の比較を行います」とのことなので...

・ツリー全体表示


	【3642】WHERE句でワイルドカードと変数を使用する...

こもれび - 04/10/3(日) 23:05 -


	引用なし

	パスワード

こもれびです

どなた様かお助け願います　<m(__)m>

WHERE句でワイルドカードと変数の両方を用いてSQLを記述する方法
がわからなくなってしまいました。

　& "WHERE (((T_Data.Sankasya)=" & strsankaid & ") " _
　& "and ((T_data.inputdate) like #2004/" & strdispmonth & "/%#));"

上記のWHERE句には条件が2つありますが、問題は and 以下の日付の条件
の部分で引っ掛かっています。
「strdispmonth」が月の変数です。また日がワイルドカード「%」となっております。
何か1つ構文がまずいようで、エラーとなってしまいます。

比較のために、次のWHERE句を実行した場合は問題ありません。

　& "WHERE (((T_Data.Sankasya)=" & strsankaid & ") " _
　& "and ((T_data.inputdate) like '2004/10/%' ));"

WHERE句でワイルドカードと変数を使用するときはどうしたらよいのでしょうか？

・ツリー全体表示


	【3641】Re:コマンドラインでのpwdオプションの記...

たかぽん - 04/10/3(日) 22:52 -


	引用なし

	パスワード

># まさかデータベースパスワードを指定しようとしているん
># じゃないですよね？

ということはここでのパスワードはデータベースパスワードじゃ
ないんですね
これができたらいろいろ使えると思ったんですが...
YU-TANG さんおさわがせしてごめんなさい

・ツリー全体表示


	【3640】Re:変数宣言とif文について

きちでん - 04/10/3(日) 15:54 -


	引用なし

	パスワード

ありがとうございました。

・ツリー全体表示


	【3639】Re:コマンドラインでのpwdオプションの記...

YU-TANG

- 04/10/3(日) 14:32 -


	引用なし

	パスワード

こんにちは、YU-TANG です。

>　　Call Shell("MSACCESS.EXE a.mdb /pwd aa", 1)

ユーザー名の指定が抜けていますよ。
参照先の例にも有るように、ユーザーレベルセキュリティでは
ユーザー名の指定が必須です。

# まさかデータベースパスワードを指定しようとしているん
# じゃないですよね？

・ツリー全体表示


	【3638】Re:コマンドラインでのpwdオプションの記...

たかぽん - 04/10/3(日) 12:56 -


	引用なし

	パスワード

こんにちは、YU-TANGさん。
さっそくの回答ありがとうございます。

Private Sub コマンド1_Click()
　　Call Shell("MSACCESS.EXE a.mdb /pwd aa", 1)
End Sub

でやってみているんですが『ログオン』というダイアログ
ボックスがでてきてうまくいきません。

OSはWindowsMe、AccessはOffice XPです

・ツリー全体表示


	【3636】Re:コマンドラインでのpwdオプションの記...

YU-TANG

- 04/10/3(日) 3:08 -


	引用なし

	パスワード

こんばんは、YU-TANG です。

> /pwd以降の記述がわかりません。

半角スペースを空けてからパスワードを記述するだけです。
下記が参考になるかもしれません。

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGnrlHowToAttachExternalMdb.html#Shell

・ツリー全体表示


	【3635】Re:変数宣言とif文について

YU-TANG

- 04/10/3(日) 3:07 -


	引用なし

	パスワード

こんばんは、YU-TANG です。

> いずれも人の書いたコードを見ててDim宣言なしの変数が出てきたり，
> end ifがないif文が出てきたりしたものですから。

# なぜその人に訊かないのか？というのがナゾですが。

VBA のヘルプで下記を参照しましょう。答えがそのまま書いてあります。

Option Explicit ステートメント
If...Then...Else ステートメント

・ツリー全体表示


	【3634】コマンドラインでのpwdオプションの記述に...

たかぽん - 04/10/2(土) 18:45 -


	引用なし

	パスワード

コマンドラインでAccessを起動するとき/pwdオプションを
つけたいのですが/pwd以降の記述がわかりません。
だれか教えてください。

・ツリー全体表示


	【3633】Re:特定の宛名だけを印刷したい時

お初 - 04/10/2(土) 17:58 -


	引用なし

	パスワード

▼クロさん：
ありがとうございます。
できました。
お手数お掛けしました。

>>DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] =0"
>訂正
>DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] >0"

・ツリー全体表示


	【3632】変数宣言とif文について

きちでん - 04/10/2(土) 17:34 -


	引用なし

	パスワード

初めて投稿します。きちでんと申します。
Dimで変数宣言をしなくてもいきなり変数を書いてもいいみたいなのですが、
何か書き方があるのでしょうか。
またif文で最後のend ifを省略する方法を教えて下さい。

いずれも人の書いたコードを見ててDim宣言なしの変数が出てきたり，end if
がないif文が出てきたりしたものですから。

よろしくお願いします

・ツリー全体表示


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

475 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free