1

Microsof Access で VBA を作成しようとしています (VBA を使用する方法がある場合)。私が必要としているのは、来週中に展開が行われることを警告するポップアップ メッセージです。

私のテーブルは Tasks_List と呼ばれ、Deployment_Date というフィールドがあります。

私が必要だと思うのは、初期フォームの OnLoad をまとめることです。今日の日付を確認し、Deployoment_Date を確認して、来週中に展開が行われるかどうかをポップアップ表示します。ポップアップには、Initiating_System、Deployment_Date、Description など、どのような展開が行われているかが表示されます。

前もってありがとう、私はこれでレンガの壁にぶつかりました。試したことを投稿しますが、VBAの知識がなく、かなり悪いです。

私が試したこと：

Private Sub Report_Open(Cancel As Integer)
Dim varX As Variant
varX = DLookup(Tasks_List.[Deployment_Date]< Now - 20)
If varX > 0 Then GoTo line2


line1: msgbox "Deployment approacing for: "

line2:


End Sub

編集: 以下のヘルプの後、このためのクエリとフォームを作成しました。Dcount の使用:

Private Sub Detail_OnLoad()
    Deploy = DCount("*", "Tasks_List_Popup_Query")

    If Deploy <> 0 Then
        DoCmd.OpenForm "Tasks_List_Popup_Query_Form"
        DoCmd.GoToRecord , , acNewRec

    End If
End Sub
4

1 に答える 1

1

VBA は必要ありません。関連するレコードを選択するクエリを作成し、クエリに基づいてフォームを作成します。DCount を使用して、フォームを起動する前にレコードがあることを確認できます。これには、VBA が少し必要です。

SELECT * FROM Tasks_List WHERE [Deployment_Date]< (Date - 20)

DCount の場合:

Deploy = DCount("*","TheQuery")
于 2013-01-18T10:03:37.177 に答える