- ベストアンサー
Access
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 当日は Me.txt処理日 = Now() 前日は Me.txt処理日 = Now() -1 で良いと思います。 ではでは・・・
関連するQ&A
- アクセス2003でカレンダーコントロールを挿入し、フォームの開くときイ
アクセス2003でカレンダーコントロールを挿入し、フォームの開くときイベントに、 Private Sub Form_Open(Cancel As Integer) Me.Calendar7.Visible = True Me.Calendar7.Value = Date End Sub と記述しても、当日の日付が表示されません。 原因がわからないのでどなたか教えてください。
- ベストアンサー
- オフィス系ソフト
- ACCESS VBA 判定に利用できる情報について
下のようなテストプログラムを作ってみました。 サブルーチン chgcolorの中で、どちらの上位ルーチンからコールされたか で処理を切り替えたいと考えています。上位ルーチンからの引数を増やす ことなく、判定する方法はないものでしょうか。 アドバイスお願いします。 Private Sub txt1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call chgcolor(Me.txt1) End Sub : Private Sub txt1_DblClick(Cancel As Integer) Call chgcolor(Me.txt1) End Sub : Sub chgcolor(a As Control) ◇txt1_MouseDownからコールされた場合(またはクリックイベントの場合) →a.BackColor = CLng("&HFF00FF") ◇txt1_DblClickからコールされた場合(またはダブルクリックイベントの場合) →a.BackColor = CLng("&HFFFFFF") End Sub
- ベストアンサー
- オフィス系ソフト
- アクセス モジュールの意味
下記はどうゆう意味なのですか?考えたのですが、よく分かりません。 private sub form open(cancel As Integer)・・・開いたとき ●If Forms!F_Main!検索条件 = 4 Then・・・??? これで分かりますか?? 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- access2003を開くと同時に読み取り専用に
access2003を開くと同時に読み取り専用にしたいです。 mdbファイルをダブルクリックしてファイルを開いて操作しても 変更が保存されないようにしたいです。 Private Sub Form_Open(Cancel As Integer) End Sub の中にvbaコードを書いて 起動時の設定で、該当のフォームを選択すると ファイルと開いたと同時に読み取り専用に出来ると思うのですが コードがわかりません。 ご教示よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- アクセスVBA コンパイルエラー
フォームを開いた時にフォームの高さを設定したいので Private Sub Form_Open(Cancel As Integer) Me.Height = 12000 End Sub としてるのですが「.Height =」の部分がコンパイルエラーになってしまいます。 何がいけないのでしょうか?
- ベストアンサー
- オフィス系ソフト
- (Cancel As Integer)の使い方
アクセスのフォームを開く時のイベントには、 Private Sub Form_Open(Cancel As Integer) となっていますが、 (Cancel As Integer) は何のためにあるのでしょう? フォームを開く時にやりたいことをフォームモジュールに書いていますが (Cancel As Integer)がある意味や、使うタイミングがわかりません。
- ベストアンサー
- オフィス系ソフト
- アクセスのVBについて
先ほど立てたものですが、第二段です。先ほどは詳しい説明ありがとうございした。しかし、【Private Sub form_open(Cancel AS Integer)】のCancelの使い方が今一分りません。下の文を見ていただきたいのですが、 ★[F_顧客]フォームでは、OPENARGS引数で受け取った値を利用して、フォーム の[票題]プロパティを変更する処理を行います。 Private Sub form_open(Cancel AS Integer) 'OPENARGSプロパティによって[標題]プロパティを変更 Select Case Me.OPENARGS Case "追加" ME.Caption="F_顧客(追加モード)" Case "編集" ME.Caption="F_顧客(編集モード)" Case Else ME.Caption="F_顧客" End Select End Sub 例えば、上記の場合などはなぜキャンセルが必要なのでしょうか・・・。 初心者のため、どなたか細かくご説明いただければたすかります。 m(__)m
- 締切済み
- オフィス系ソフト
- フォームを表示してからメッセージボックスを表示する
メッセージボックスが表示される前に、フォームを表示させたいです。アクセスです。 ナビゲーションウインドウからフォームをダブルクリックしてフォームを開くのですが、 今のままだとメッセージボックスが表示されてからフォームが表示されてしまいます。 フォームを表示してからメッセージボックスを表示するにはどうすればいいでしょう? Private Sub Form_Open(Cancel As Integer) MsgBox "Form_Open" End Sub だと、先ほど述べたように、メッセージボックスが表示されてからフォームが表示されてしまいます。 フォームを開いたときのイベントは複数あるようで、 Private Sub Form_Activate() MsgBox "Form_Activate" Debug.Print "Form_Activate" End Sub Private Sub Form_Current() MsgBox "Form_Current" Debug.Print "Form_Current" End Sub Private Sub Form_GotFocus() MsgBox "Form_GotFocus" Debug.Print "Form_GotFocus" End Sub Private Sub Form_Open(Cancel As Integer) MsgBox "Form_Open" Debug.Print "Form_Open" End Sub Private Sub Form_Load() MsgBox "Form_Load" Debug.Print "Form_Load" End Sub をすると、 ・Form_Load ・Form_Activate ・Form_GotFocus ・Form_Open ・Form_Current の順に開きますが、やはりフォームが最後に表示されてしまいます。 どうにかして先にフォームを表示させる方法はないでしょうか? ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access フォームでの並べ替え OrderBy
いつもお世話になっています。 フォームで「製品ID」が昇順に並べ替えられるよう下記のイベントを 設定しましたが、上手くいきません。 Private Sub Form_Open(Cancel As Integer) Me.OrderBy = "製品ID" End Sub お力添えよろしくお願いいたします。
- 締切済み
- その他(データベース)
- ACCESSのレポートに売上の累計を計算させましたが・・・・
ACCESS2002についてです。 テーブルに"売上日" "売上金額"とある中で"売上累計"を明細行毎にだそうと、本に書いてある下記のように入力しましたが、ページが変わってしまうと"売上累計"が合わなくなってしまいます。どうしたら解決できますか???? Option Compare Database Option Explicit Private curRuikei As Currency Private Sub Report_Open(Cancel As Integer) End Sub Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer) '累計のクリア curRuikei = 0 End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) '累計の加算 curRuikei = curRuikei + Me!売上金額 Me!売上累計 = curRuikei End Sub です。
- ベストアンサー
- その他(データベース)
お礼
有難う御座いました!!前日が表示されるようになりました。