Discussion :

[ashen]

Je suis novice en access et vba mai je souhaite effectuer un formulaire de recherche.

Voici la situation
g une table produits contenant des champs dont celui Identifiant
je rentre dans mon formulaire l'identifiant que je recherche et j'aiemerai tester son existence dans la table avant de continuer
seulement je n'arrive pas à coder cela en VB

Merci d'avance

[tinwul]

Salu!
J'ai eu le même problème et j'ai fini par coder ça à l'arraché : j'ai utilisé un recordset avec une requête sql qui recherchait l'identifiant dans la table.

Si MonRecordset.eof alors
'c'est qu'il n'y est pas
Sinon
'il existe dans la table


Commence par ça mais je pense qu'il y a mieux.D'ailleurs si qq a une autre solution, je prends!
à+

[Mariboo]

Essaye :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim critère As String
        Dim MaBd As Database
        Dim table As Recordset
        Dim Identifiant as string
 
      Identifiant = Me.identifiant
       'Définit le critère de recherche (N°_Identifiant = nom de la colonne de ta table).
       critère = "[N°_Identifiant] = '" & Identifiant & "'"         
   Set table = MaBd.OpenRecordset("TableIdentifiant", DB_OPEN_DYNASET) 
            table.FindFirst critère
            If Not (table.NoMatch) Then
                ' Si on trouve une occurrence.
            Else
                'Si t'en trouve pas

[ashen]

je pense pas trop avoir fais d'erreur dans l'adaptation
pour info la base est Bd1 et la table Produits et la colonne recherché est nommée Identifiant

et voila se que j'obtient

[Mariboo]

OK moi aussi j'ai galéré sur cette erreur !
en fait c'est tout con : quand tu déclare:
Ta bd et ton recorset il faut écrire :

Dim MaBd as DAO.Database
Dim table as DAO.Recordset

Comme ça tu précise que tu es en DAO ... sur Access 2003 normalement t'as pas besoin de l'écrire mais sur les versions précédente c nécéssaire !

[Mariboo]

BOUDU !!! g oublié !!
il faut que tu écrive :

Set MaBd = currentDb

Après les "Dim ..." et avant critère = [..] = "...."

[ashen]

Voila c pour cela que je l'avai un peu modifié

seulement il me met un nouvo pb

Dim MaBd as DAO.Database -> Type défini par l'utilisateur non défini

[ashen]

Je suppose une petite erreur
ce n'est pa DAO.DataBase

mai plutot ADODB ?
Mai en fait sa ne marche toujours pas

[Mariboo]

Encore un oubli de ma part !!

Il faut que tu référence la library DAO :

Vas dans "Outils" "Référence" et tu coche "Microsoft DAO 3.xxx Object library"