ホーム>source

MS Accessデータベースを取得して、データベースの日付フィールドにある今日の日付、または将来の最も近い日付のいずれかでフォームを開くようにしています。コードを試しましたここに、しかしそれは動作しません。日付フィールドを強調表示し、最も近い将来のレコードではなく、最初のレコードに移動します。

日付フィールドは WorshipDate ですそしてテーブルは wp_elements です 。 (私はこのテーブルを使用して日曜礼拝を計画する牧師です)。

ウィズウィズ

私が組み込んだSQLコードが機能することはわかっています。これは、非常にうまく機能しているPythonスクリプトで使用しているためです。

何が欠けていますか?または、これを行う他の簡単な方法はありますか?

Private Sub Form_Load() Dim db As DAO.Database Dim rst As DAO.Recordset Dim strSQL As String Dim TheDate As Date Set db = CurrentDb strSQL = "SELECT TOP 1 * FROM wp_elements WHERE wp_elements.WorshipDate >= Date() ORDER BY wp_elements.WorshipDate;" Set rst = db.OpenRecordset(strSQL) TheDate = rst.Fields(0) WorshipDate.SetFocus DoCmd.FindRecord TheDate, , True, , True Set rst = Nothing Set db = Nothing 'DoCmd.RunCommand acCmdRecordsGoToLast End Sub
あなたの答え
  • 解決した方法 # 1

    必要なコードは1行だけです。

    <前>ウィズウィズ me.RecordSet.FindFirst "Date() >= WorshipDate"

  • 前へ java - JPAクエリ:サブクエリをグループ化条件に結合する
  • 次へ regex - Python:パンダ:数値のみの分割のみを削除し、アルファベットがある場合は維持します