Discussion :

[adelsunwind]

Bonjour je faiisais des recherches via SEEK classique.Tout allait bien maintenant je suis passé en mode table liée donc j ai essayé la méthode avec openforseek.
Et là ca na marche pas. J ai un message d'ereur incompatibilité type et il me souligne la derniere ligne du module de la FAQ que voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function OpenForSeek(pCurDB As Database, ByVal pTableName As String) As Recordset

'***********************************************************************
'* Permet d'ouvrir une table attachée pour des recherches *
'* avec la méthode Seek *
'* (Suppose une table MS-ACCESS) *
'***********************************************************************

Dim pos As Long
Dim ConnectString As String
Dim AttachDBPath As String

ConnectString = pCurDB.TableDefs(pTableName).Connect
pos = InStr(ConnectString, "DATABASE=")
If pos = 0 Then
    AttachDBPath = ConnectString
    Else
    AttachDBPath = Right$(ConnectString, Len(ConnectString) - pos - 8)
End If

Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase(AttachDBPath, False, False).OpenRecordset(pTableName, dbOpenTable)
end function

Par contre dans mon code du formulaire j'ai rien changé de particulier. Le voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
indic = UCase(Forms![nouveau CEV]![nom de la station])
                 an = Forms![nouveau CEV]![année du CEV]
                 style = Forms![nouveau CEV]![type de CEV]
                 Set db = Application.CurrentDb
                 Set rec = OpenForSeek(db, "LOC")
                rec.Index = "PrimaryKey"
                rec.Seek "=", indic, an, style
                'si ce CEV existe déjà
                 If rec.NoMatch = False Then
                    'avertissement
                   MsgBox "Ce CEV existe déjà !", vbOKOnly, "Erreur"
                 rec.Close
 
End Function

Merci pour ceux qui voudrait bien ce penchait sur mon probleme.

[LedZeppII]

Bonjour,

La méthode Seek ne fonctionne pas (n'est pas disponible) avec des tables liées.

Au lieu d'ouvrir le recordset avec dbOpenTable on l'ouvre avec dbOpenDynaset (lecture/écriture) ou dbOpenSnapshot (Lecture).
Puis on utilise la méthode FindFirst du recordset.

Vu l'usage que tu fais du recorset, je verrai un code de ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
                 Set db = Application.CurrentDb
                 strSQL = "SELECT * FROM LOC" & _
                          " WHERE (NomChamp1=" & indic & ")" & _
                            " AND (NomChamp2=" & an & ")" & _
                            " AND (NomChamp3=" & Style & ")"
                 Set rec = db.OpenRecordset(strSQL)
		 If Not rec.EOF Then
                    'avertissement
                    MsgBox "Ce CEV existe déjà !", vbOKOnly, "Erreur"
		 End if

Peut importe que la table soit liée ou pas.
La syntaxe de mon exemple correspont à des champs numériques.
Si NomChamp3 est de type texte par exemple, ajouter des guillemets simples

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

                            " AND (NomChamp3='" & Style & "')"

Si tu tiens absolument au Seek, c'est possible.
Il faut d'abord ouvrir la base dorsale au lieu d'utiliser CurrentDB.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strCheminBDDdorsale As String
strCheminBDDdorsale = "C:\....\BaseDorsale.mdb"
Set db = DBEngine.Workspaces(0).OpenDatabase("strCheminBDDdorsale ")

A+