Private Sub afficher_Click()
Dim SQL As String
Dim MaBase
Dim Digit12_ As Recordset
Dim Digit3_ As Recordset
Dim Cable_ As Recordset
Dim Longueur_ As Recordset
Dim Digit45_ As Recordset
Dim Digit6_ As Recordset
Dim Digitf_ As Recordset
'Set MaBase = CurrentDb("C:\Documents and Settings\commercial\Bureau\bd1.mbd")
If Not IsNull(Me![x12]) And Not IsNull(Me![x31]) And Not IsNull(Me![x32]) And Not IsNull(Me![cable]) And Not IsNull(Me![longueur]) And Not IsNull(Me![x45]) And Not IsNull(Me![x6]) And Not IsNull(Me![f]) Then
'on cherche digit 1 et 2
SQL = "SELECT _d1, _d2 FROM digit_x1_x2 WHERE Désignation= '" & Me![x12] & "' AND methodes = '" & Me![x31] & "';"
Set Digit12_ = CurrentDb.OpenRecordset(SQL)
[...]