Recherche
rasinganguy
Messages postés
1
Date d'inscription
samedi 23 décembre 2000
Statut
Membre
Dernière intervention
5 octobre 2008
-
5 oct. 2008 à 19:11
amelou2812 Messages postés 18 Date d'inscription mardi 30 septembre 2008 Statut Membre Dernière intervention 21 mars 2009 - 5 oct. 2008 à 22:30
amelou2812 Messages postés 18 Date d'inscription mardi 30 septembre 2008 Statut Membre Dernière intervention 21 mars 2009 - 5 oct. 2008 à 22:30
4 réponses
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
2
5 oct. 2008 à 19:24
5 oct. 2008 à 19:24
http://www.vbfrance.com/forum/sujet-RECHERCHE_1211469.aspx#
Trouver une ressource
<center>
Trouvez une ressource parmi 38 791 codes, 1 183 283 messages d'aide etc...
Recherche: * dans <select class= "tb" id="m_Rech_UCSearchInMaster1_DropSearch" name="m$Rech$UCSearchInMaster1$DropSearch"><option value="tout">Tout le site</option><option value="code" selected="">Codes</option><option value="blog">Blogs</option><option value="tutorial">Tutoriaux</option><option value="forum">Forum</option><option value="blog">Blogs</option><option value="livre">Livres</option><option value="rfc">RFC</option><option value="icon">Icones</option><option value="newsdotnet">News .NET</option><option value="boutique">Boutique</option></select>[http://www.vbfrance.com/derniermoteur.aspx [ Dernières recherches ]]
Filtre: <label for ="m_Rech_UCSearchInMaster1_R_DotNet_0">Tous les codes</label><label for="m_Rech_UCSearchInMaster1_R_DotNet_1">.NET uniquement</label><label for="m_Rech_UCSearchInMaster1_R_DotNet_2">Exclure .NET</label>
<hr />
</center>
Bonjour chez vous !
Trouver une ressource
<center>
Trouvez une ressource parmi 38 791 codes, 1 183 283 messages d'aide etc...
Recherche: * dans <select class= "tb" id="m_Rech_UCSearchInMaster1_DropSearch" name="m$Rech$UCSearchInMaster1$DropSearch"><option value="tout">Tout le site</option><option value="code" selected="">Codes</option><option value="blog">Blogs</option><option value="tutorial">Tutoriaux</option><option value="forum">Forum</option><option value="blog">Blogs</option><option value="livre">Livres</option><option value="rfc">RFC</option><option value="icon">Icones</option><option value="newsdotnet">News .NET</option><option value="boutique">Boutique</option></select>[http://www.vbfrance.com/derniermoteur.aspx [ Dernières recherches ]]
Filtre: <label for ="m_Rech_UCSearchInMaster1_R_DotNet_0">Tous les codes</label><label for="m_Rech_UCSearchInMaster1_R_DotNet_1">.NET uniquement</label><label for="m_Rech_UCSearchInMaster1_R_DotNet_2">Exclure .NET</label>
<hr />
</center>
Bonjour chez vous !
spamito
Messages postés
183
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
30 mars 2013
5 oct. 2008 à 21:45
5 oct. 2008 à 21:45
Ehhhm !!! Oui je sais tout cela cher ami, mais je n'ai pas trouvé dont j'ai besoin.
spamito
Messages postés
183
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
30 mars 2013
5 oct. 2008 à 21:46
5 oct. 2008 à 21:46
Zut !!! Dsl mais je me suis trompé d'endroit, pardonnez moi.
amelou2812
Messages postés
18
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
21 mars 2009
5 oct. 2008 à 22:30
5 oct. 2008 à 22:30
slt
je ne c pas si c se dont t'as besoin, mais voici un petit exemple ki te permettra d'effectuer une recherche
Dim family As Recordset
Dim famille As Database
Set famille = OpenDatabase("chemin de la base de données")
If .Cod_fam.Text = "" Then 'si le code est null alors
MsgBox "Vous devez saisir le code de le famille de l'article", vbInformation, "INFORMATION"
Else ' sinon cherche Set family famille.OpenRecordset("SELECT * From famille WHERE famille.cod_fam """ & Me.Cod_fam & """")
If (family.BOF And family.EOF) Then
MsgBox " Ce code n'existe pas, veuillez saisir un autre code", vbExclamation
Else ' sinon Affiche les infos
Cod_fam.Text = family("cod_fam")
design_fam.Text = family("design_fam")
end if
End If
je ne c pas si c se dont t'as besoin, mais voici un petit exemple ki te permettra d'effectuer une recherche
Dim family As Recordset
Dim famille As Database
Set famille = OpenDatabase("chemin de la base de données")
If .Cod_fam.Text = "" Then 'si le code est null alors
MsgBox "Vous devez saisir le code de le famille de l'article", vbInformation, "INFORMATION"
Else ' sinon cherche Set family famille.OpenRecordset("SELECT * From famille WHERE famille.cod_fam """ & Me.Cod_fam & """")
If (family.BOF And family.EOF) Then
MsgBox " Ce code n'existe pas, veuillez saisir un autre code", vbExclamation
Else ' sinon Affiche les infos
Cod_fam.Text = family("cod_fam")
design_fam.Text = family("design_fam")
end if
End If