Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3285 / 9994

←次へ　｜　前へ→


	【9970】アクセス95から2000に移行後のエラー

timtim

- 07/11/9(金) 10:13 -


	引用なし

	パスワード

初心者ですがよろしくお願いします。
昔、９５で作成されたプログラムを２０００に移行し、
走らせたところ、実行時エラー「94」：と表示され
下記のコードの※しるしがついたところがエアーと表示され
CTL![東亜建設コード]= Nullとなっている。

Private Sub Form_Open(Cancel As Integer)
　　Dim D_DB As Database, CTL As Recordset, TOK As Recordset
　　Set D_DB = DBEngine.Workspaces(0).OpenDatabase(DBNAME)
　　Set CTL = D_DB.OpenRecordset("Fコントロール")
　　　　CTL.INDEX = "主キー"
　　　　CTL.Seek "=", 1
　　If CTL.NoMatch Then
　　　 MsgBox "コントロールＦＲＥＡＤエラー"
　　　 Cancel = True: CTL.Close: Exit Sub
　　End If
※ 東亜建設コード = CTL![東亜建設コード]
　　有効日 = CTL![有効日]
　　消費税率1 = CTL![消費税率1]
　　消費税率2 = CTL![消費税率2]
　　
　　Set TOK = D_DB.OpenRecordset("M得意先")
　　　　TOK.INDEX = "主キー"
　　　　TOK.Seek "=", CTL![東亜建設コード]
　　If TOK.NoMatch = True Then
　　　 MsgBox "コントロールＦに東亜建設コードを入力して下さい"
　　　 Cancel = True: CTL.Close: TOK.Close: Exit Sub
　　End If
　　Me![端数区分] = TOK![端数区分]
　　CTL.Close: TOK.Close
　　
　　Me![記事61] = "上記計"
End Sub
下記の部分を変更したら
Dim D_DB As Database, CTL As Recordset, TOK As Recordset
から
Dim D_DB As Database, CTL As Database, TOK As Database
に変更したら変更した上の行｛Private Sub Form_Open(Cancel As Integer)｝
が黄色く反転されます。
間違いがわかりません、よろしくご指導お願いします。

1,380 hits

▼

【9970】アクセス95から2000に移行後のエラー timtim 07/11/9(金) 10:13