質問: DCount("実施者ID", "200m記録") + 1 & "/" & DCount("実施者ID", "200m総合記録")
回答: お書きになった内容をVBAで書きますと、大体こんな感じになるかと思います。 尚、今回は動作検証をしていません。 もし何か問題がありましたら、補足をお願いします。 Private Sub コマンド1_Click() '以下の[変数]を使うことを宣言する Dim 実施者性別 As Long '実施者の性別,長整数型 '実施者の性別を取得して、実施者性別(変数)に代入する '([実施者]テーブルに[性別]フィールドがあるとする) 実施者性別 = DLookup("性別", "実施者", "[実施者ID] = " & Me![実施者ID]) '実施者の性別及び、性別選択の内容によって、表示する内容を変える If 実施者性別 = -1 And Me.性別選択 = 0 Then Me.[200m順位] = DCount("実施者ID", "200m記録") + 1 & "/" & DCount("実施者ID", "200総合記録", 性別選択 = 0) + 1 ElseIf 実施者性別 = 0 And Me.性別選択 = 1 Then Me.[200m順位] = DCount("実施者ID", "200m記録") + 1 & "/" & DCount("実施者ID", "200m総合記録", 性別選択 = -1) + 1 ElseIf 実施者性別 = -1 And Me.性別選択 = -1 Then Me.[200m順位] = DCount("実施者ID", "200m記録") + 1 & "/" & DCount("実施者ID", "200m総合記録", 性別選択 = -1) ElseIf 実施者性別 = 0 And Me.性別選択 = 0 Then Me.[200m順位] = DCount("実施者ID", "200m記録") + 1 & "/" & DCount("実施者ID", "実施者総数", 性別選択 = 0) Else Me.[200m順位] = DCount("実施者ID", "200m記録") + 1 & "/" & DCount("実施者ID", "200m総合記録") End If End Sub