Discussion :

[Cyphen]

Salut à tous !

J'ai dans un formulaire un champ permettant à l'utilisateur d'entrer une référence au clavier et un bouton "Recherche".J'aimerai lors du click sur ce bouton de recherche, que le programme teste si cette référence est présente dans ma table.

Si c'est le cas: Le champ Référence du Formulaire prend la valeur de cette référence. (Je sais faire)
Sinon: J'affiche une MsgBox d'erreur. (Je sais faire)

Mon problème reste de tester la présence de la dîte valeur dans ma table.

Merci d'avance pour vos conseils !

Cyp'

Edit: A noter que j'ai trouvé ca dans la FAQ mais je ne suis pas sûr que ce la corresponde et que j'arrive pas à l'exploiter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ExisteChamp(NomTable As String, NomChamp As String) As Boolean
On Error GoTo err:
Dim MCat As New ADOX.Catalog
Dim MTable As ADOX.Table
Dim MField As ADOX.Column
Set MCat.ActiveConnection = CurrentProject.Connection
Set MTable = MCat.Tables(NomTable)
Set MField = MTable.Columns(NomChamp)
ExisteChamp = True
err:
Set MCat = Nothing
Set MTable = Nothing
Set MField = Nothing
End Function

[stéphane_ais2]

Bonjour,

Regarde du côté de la Fonction 'DLookup'....

SE

[Cyphen]

Je veux bien mais le DLookUp me permet pas de faire un test non ?

Par exemple si la valeur n'existe pas dans la table, comment réaliser un test pour qu'en cas de non-existence, ma msgbox s'affiche ?

[stéphane_ais2]

Et ça :

Code :

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

1
2
3
 
If IsNull(DLookup("[NomChamp]", "[table]", "[NomChamp]=" & Forms![NomFrm]![NomContrôle])) Then
...

Non..?

SE

[stéphane_ais2]

Sinon il y a la méthode 'FindFirst'...

SE

[Cyphen]

Ce code fonctionne avec le cas "Trouvé" mais pas le cas inconnu :

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
Private Sub Search_Click()
 
Dim MySrch As String
Dim MyTest As Boolean
 
MySrch = DLookup("[Part Number]", "ZLT Tools", "[Part Number]='" & SrTxt & "'")
MyTest = IsNull(MySrch)
 
If MyTest = True Then
MsgBox "This Tool (" & SrTxt.Value & ") wasn't found !!", vbExclamation, "Error"
SrTxt.Value = ""
Else
PNTxt = SrTxt
Extracting
SrTxt.Value = ""
End If
 
End Sub

Pourtant, d'aprés ce que je comprend de ce que j'ai codé... Je recherche une valeur qui correspond à mon champ de recherche par le DLookUp... Si il en trouve pas, forcement MySrch est Null non ? Donc mon IsNull devrait retourner du True non ?

[Cyphen]

Problème résolu avec un code de ce type :

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
Dim MySrch
Dim MyTest As Boolean
 
'Search for a matching PN
 
MySrch = DLookup("[Part Number]", "ZLT Tools", "[Part Number]='" & SrTxt & "'")
MyTest = IsNull(MySrch)
 
If MyTest = True Then
MsgBox "This Tool (" & SrTxt.Value & ") wasn't found !!", vbExclamation, "Error"
SrTxt.Value = ""
Else
PNTxt = SrTxt
Extracting
SrTxt.Value = ""
End If

Le DLookUp ayant des problèmes avec le Null, il faut en fait définir le résultat du DLookUp sans type. Et ensuite tester un Null.

Merci, j'espère que ca pourra servir ^^