エラーが消えません。

質問

Access2000を使用しています。

エラーが消えません。どうすればいいのでしょうか。
エラーは「実行時エラー'424'」です。

ｓｔｒSQLの部分にエラーが発生します。
社員情報入力画面から作業実績画面へ移るときに、
SQL文で書いたデータを表示させようとしています。

条件として、社員情報入力画面で入力したコードと
作業実績テーブルがあるので、そこで一致した情報だけを表示させようとしています。
ここの画面ではオートフォームを使用しています。

また、『社員情報テーブル.社員コード』のところで、別画面が開いて、
そこに値を入力しなければいけません。

どうしたら解決しますでしょうか。

Private Sub Form_Load()

Dim strSQL As String

strSQL = "SELECT 開始日,終了日,期間,社名,略名,業務名,機種,言語コード,OSコード,データベースコード,作業内容コード,役割コード,技術取得内容,アピール FROM 作業実績テーブル " _
& " WHERE 社員情報テーブル.社員コード = '" & Forms!社員情報入力画面!社員コード & "'"

DoCmd.OpenForm "作業実績画面", , strSQL

End Sub

回答No.1

tohru999 · ベストアンサー

「Forms!社員情報入力画面!社員コード」
の箇所ですが、フォーム名およびフィールド名は正しいですか？
（間違っている時に、値の入力画面が出たりしますので）

試しに
「Forms!社員情報入力画面!社員コード」
を四角カッコで囲んでみては？
「Forms![社員情報入力画面]![社員コード]」

※ 社員情報入力画面ってのは、Form_Loadの画面ですか？
　 もし、そうなら、Me![社員コード] で出来ます。
　 違っているなら、無視しちゃってください

お礼

ありがとうございました。
フォーム名が間違っておりました。
そのため、別の画面が表示されるようになっていたみたいです。