fonctions de recherche vba

Question

Bonjour,

j'ai un application qui g&#232;re les programmes et leurs diff&#233;rentes versions (1 table programmes, 1 tables versions). Dans mon sous formulaire versions, j'ai un champ "No de version". Je souhaiterais qu'il soit g&#233;r&#233; automatiquement, pas que l'utilisateur doivent le renseigner.

En fait, il faudrait regarder dans le sous-formulaire "Versions" le plus grand num&#233;ro et ajouter 1. Comment puis-je faire cela? J'ai entendu parler de fonctions comme "Lookup", "Vbmax" mais m&#234;me dans l'aide VBA, je n'ai pas trouv&#233; ce que je cherche.

Est-ce que quelqu'un peut me dire comment elles fonctionnent ?

merci grand.

skeut

cs_skeut · Answer

Est-ce que les fonctions Lookup et Vbmax existent en VBA 

skeut

Rhoulz · Answer

Bonjou Skeut,

Je sais je post longtemps après toi ... mais j'ai le même probleme et en cherchant sur le forum je suis tombé sur ton post.

Aurais-tu trouver l'equivalent á la fonction LookUp de Excel en VBA?

Sinon je vais continuer á chercher et je posterais la solution ici, si il y en a une...

Roulz

Rhoulz · Answer

Bhen voila,

Une solution concernant Excel mais qui pourait egalement servir au VBA en general...

http://www.vbfrance.com/infomsg_VBA-EXCEL-FONCTION-LOOKUP-VBA_837218.aspx#3

Si ça peut t'aider ou les creuseurs des forum á travers recherches...

Rhoulz

cs_skeut · Answer

Salut Rhoulz,

A l'époque j'avais utilisé un MAX pour trouver le plus grand numéro de version existant dans ma table pour un programme donné. On peut certainement optimiser mais ça fonctionne.

A tout hazard, voici le code:


Public Function genereNoVersion(ByVal NumProg As Long) As Long
' Fonction qui génère automatiquement le numéro de version


Dim rst As DAO.Recordset
Dim SQLMAX As String
Dim lngNoVersion As Long


SQLMAX "SELECT MAX(NoVersion)AS MaxNoVersion FROM Versions WHERE Num_Programme" &amp; NumProg


Set rst = CurrentDb.OpenRecordset(SQLMAX, 2)


If IsNull(rst!MaxNoVersion.Value) Then
    'résultat de la requête vide, le rst retourne une ligne avec null dans la valeur
    lngNoVersion = 1
Else
    lngNoVersion = rst.Fields("maxNoVersion").Value + 1


End If


rst.Close
Set rst = Nothing


genereNoVersion = lngNoVersion


End Function


skeut

Fonctions de recherche vba

4 réponses

Discussions similaires