スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
実行環境により処理を切り替える方法として、条件付きコンパイラ定数を使うことができます。「#Const ディレクティブ」で定数を宣言し、「#If...Then...#Else ディレクティブ」の中で処理を分けます。
サンプルでは宣言箇所の F_DOSV の値を True とすれば、#If F_DOSV Then 〜 #Else までの行が、F_DOSV の値を False とすれば #Else 〜 #End If までの行が、コンパイル対象となります。

●サンプル●
Sub Sample1()

#Const F_DOSV = True	' ← DOS/Vの場合：True、NEC PC98の場合：False にする

#If F_DOSV Then
    ' フロッピーデータをインポート（DOS/V）
    DoCmd.TransferText acImportDelim, , "t_履歴ワーク", "A:\Data.txt", False
#Else
    ' フロッピーデータをインポート（NEC PC98）
    DoCmd.TransferText acImportDelim, , "t_履歴ワーク", "C:\Data.txt", False
#End If

End Function

●備考●
この場合、Trueを1(0以外の数値)、Falseを0としても構いません。
(例)
　#Const <定数> = True → #Const <定数> = 1
　#Const <定数> = False → #Const <定数> = 0