Bonjour,

Je viens de migrer mon application ACCESS 2003 vers SQL SERVER 2000

j'ai donc maintenant un fichier ADP avec mes formulaire, procedures et tables importées depuis mon .mdb

le souscis c'est que mon code se connect en DAO aux tables et requetes.

j'ai donc le code suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function dista(A As Integer, b As Integer) As Integer
 
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim LG1 As Double
    Dim LG2 As Double
    Dim LT1 As Double
    Dim LT2 As Double
 
    Set db = Application.CurrentDb
 
    If A < b Then Set rs = db.OpenRecordset("SELECT * from distancier WHERE P1 =" & A & " and P2 =" & b)
    If b < A Then Set rs = db.OpenRecordset("SELECT * from distancier WHERE P1 =" & b & " and P2 =" & A)
    If A = b Then dista = 0: Exit Function
access me renvoie systematiquement une erreur :

"erreur d'execution 91

variable Objet ou Variable de bloc With non define"

et lorque que je verifie la valeur prise par l'objet DB elle est egale a Nothing.

comment puis je faire ?

cordialement

Franck