Q&A
タイトルに要件がありません。タグで済む内容ですし「Access」もタグにあります。
あと、文章だけでは何も言えません。コードや定義を提示してください。
というか、エラーメッセージそのままでは？、
エラーメッセージ
アクセスで実行時エラー 2450 参照されているフォーム’Fログイン’がみつかりません
該当のソースコード
Forms!F_ログイン！担当ID.SetFocus '担当IDにフォーカス
1ソースコード
ここのVBAで黄色く表示されています。
その他のパソコンはログインができるのですが
このエーラーメッセージがでてログインができなくなりました。
アクセスは無知に近いのでよろしければ教えていただければ幸いです。
すいません よくわかっていなくて
こちらでしょうか？
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
'
'F_ﾛｸﾞｲﾝ フォームオープン時
'ログイン画面オープン時に更新ID レコード削除
'
'
'DoCmd.ShowToolbar "Ribbon", acToolbarNo 'リボン非表示
DoCmd.SetWarnings False '警告メッセージの非表示
DoCmd.OpenQuery "Del_ﾛｸﾞｲﾝID" 'ログインIDレコードの削除
DoCmd.SetWarnings True '警告メッセージの表示
Me.Requery 'フォームの更新 requery
End Sub
Private Sub pass_AfterUpdate()
'
'ログインID＆ﾊﾟｽﾜｰﾄﾞ入力時
'ログイン情報と担当マスタの照合
'
'
Dim LogIn As Recordset
Me.Filter = "担当ID='" & 担当ID & "'and pass='" & pass & "'" '担当IDとﾊﾟｽﾜｰﾄﾞの検索
Me.FilterOn = True
Me!count = DCount("*", "M_担当者", "担当ID='" & [担当ID] & "' And pass='" & [pass] & "'") '担当IDとﾊﾟｽﾜｰﾄﾞが一致した件数
Forms!F_ログイン!担当ID.SetFocus '担当IDにフォーカス
Dim LG As String 'LG・・変数宣言
LG = Me!count
If LG <> 1 Then '一致件数が1以外の場合
MsgBox "IDとﾊﾟｽﾜｰﾄﾞが正しくありません！" 'メッセージボックス表示
Else
lgT = Now()
Set LogIn = CurrentDb.OpenRecordset("更新ID", dbOpenTable)
With LogIn
.AddNew
.Fields("担当ID") = Me.担当ID
.Fields("担当名") = Me.担当名
.Fields("pass") = Me.pass
.Fields("ﾛｸﾞｲﾝ日時") = Me.lgT
.Update
End With
LogIn.Close
Set LogIn = Nothing
DoCmd.SetWarnings False '警告メッセージの非表示
' DoCmd.OpenQuery "Q_ﾛｸﾞｲﾝ" 'ﾛｸﾞｲﾝIDのテーブル追加クエリ実行
DoCmd.OpenForm "F_メインメニュー", acNormal 'メインフォームを開く
DoCmd.SetWarnings True '警告メッセージの表示
End If
End Sub
全然わからんけど「F_ﾛｸﾞｲﾝ」のフォームを開くコードが「Fログイン」になっているんじゃない？
F_ﾛｸﾞｲﾝに書いてあるコード載せても意味がないような気がする。
というか半角カタカナをオブジェクト名で使うのはマジでやめたほうがいい。
ありがとうございます。
一度ためしてみます。
質問は編集できます。
あと、大抵は全角半角はもちろん大文字小文字も別のものとして扱われます。コピペがもっとも間違いないです。
というかエラーメッセージ読んでください。
解決しました ありがとうございます。
質問は編集できます。
あと「自己解決」にも手順があります。ヘルプページを読んで対応してください。
ただ、質問への追記が先です。
あなたの回答
tips
プレビュー
