ヘルプこのコードを.adpファイルタイプの変換にデバッグする

Question

私は、Access 2003を使用していたVBコードでフォームを作成しました。最近、SQL Serverを持つ別のデータベースの小さなフロントエンドインターフェイスと同じフォームを使用したかったバックエンド。ただし、Accessでのこのプロジェクトのファイルの種類は.adpであり、すべてのvbコードが適切に動作しているわけではありません。それはDAO.DatabaseとDAO.Recordsetのためにエラーを投げている

Private Sub SurveyNameCombo_AfterUpdate() 

Dim db_CFC As DAO.Database 
Set db_CFC = CurrentDb 

Dim rst As DAO.Recordset, query As String, count As Integer 
query = "SELECT DISTINCT SurveyID FROM tbl_SurveyMeta WHERE SurveyName = " & Chr(34) & Me.SurveyNameCombo.Value & Chr(34) 

Set rst = db_CFC.OpenRecordset(query) 
count = rst.RecordCount 

If count > 1 Then 
    Me.SurveyIDCombo.RowSource = query 
Else 
    rst.MoveFirst 
    Me.SurveyIDCombo.Value = rst.Fields(0).Value 
    Call SurveyIDCombo_AfterUpdate 
End If 

End Sub 

：あなたは私がこのコードのバグを修正するのに役立つことができれば。

ありがとうございました！

Answer 1

このような行にエラーメッセージ「定義されていないユーザー定義型」...

Dim db_CFC As DAO.Database 

は...あなたのアプリケーションがMicrosoft DAOオブジェクトライブラリへの参照が含まれないことを意味します。その後、

オープンコードモジュール、VBEエディタのメインメニューからチェック：ツール - >は

を参照します。通常の治療法は、次のMicrosoft DAOをクリックし、オブジェクトライブラリのボックスにチェックマークを配置するだろうOK。しかし、あなたのアプリケーションはADPであり、私はDAOがADPでも使用できるかどうかわかりません。あなたが試すことができます。 :-)

申し訳ありませんもっと詳しく説明できません。私は数年前にADPを使用して終了しました。代わりに、SQL ServerデータベースオブジェクトへのODBCリンクでMDB形式を使用します。必要に応じてADPバージョンを動作させることができない場合は、おそらく同じアプローチを検討することができます。