Dim myStr As String '条件
myStr = ""
'---日時検索---
If IsDate(Me.[Request date(依頼日)].Value) Then
myStr = myStr & " And [Request date(依頼日)]=#" & Me.[Request date(依頼日)].Value & "#"
End If
If myStr = "" Then
MsgBox "抽出条件を入力してください。", vbCritical, "エラー"
Else
DoCmd.OpenForm "FQ_試験マスター", , , Mid(myStr, 6)
End If
End Sub
上記のコード実行で、 FQ_試験マスターを起動すると、なぜか、単票形式で起動されます。
形式は、データシートにしています。FQ_試験マスターの表示項目は、36個あります。
表示項目がたくさんあると、自動的に単票形式になるのでしょうか？
お手数ですが、ご教示お願いします。
フォームのプロパティの「既定のビュー」は「データシート」、「データシートビューの許可」は「はい」になっていますか。
あるいは、フォームのプロパティ設定を無視して、強制的にデータシートビューで開きたい場合は、下記のように記述します。
そんなことはないと思います。
ですよね。といいますか、突然できるようになりました。
hatena様効果でしょうか？
お騒がせしました。ありがとうございました。