begin process at 2008 08 22 06:06:26
1 229 779 membres
50 nouveaux aujourd'hui
14 267 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Afficher a partir de .... [ Archives Visual Basic / Formulaire ] (tenthor)

Afficher a partir de .... le 11/05/2006 11:51:08

tenthor
Bonjour tout le monde.

Alors voilà je développe une application sur access. J'ai un formulaire qui est basé sur une table personnel qui contient les fiches du personnel et leur caractéristiques. J'aimerais savoir si c'est possible de faire un champs de saisi où si tape "M", mon formulaire commence à afficher la liste du personnel dont le nom commence par "M". Vous voyez ce que je veux dire ? Car pour le moment si je chercher la fiche de "Martin", il faut que je clique sur les bouton suivant ou précédent jusqu'a trouver sa fiche. C'est pas très pratique.

Si vous avez des idées et des explications, je suis preneur.
Merci de votre attention.

Re : Afficher a partir de .... le 11/05/2006 15:38:39

eldim
Bonjour,

tu peux le faire en manuel...
tu recherche dans ta base sur l'événement text_change la première valeur qui commence par ce que tu as tapé

-- Pourquoi faire simple quand on peut faire compliquer --

Re : Afficher a partir de .... le 11/05/2006 16:48:12

tenthor
Bonne idée, merci. Mais j'ai un petit problème :

voilà le code que j'ai fait :

Private Sub OK_Click()
On Error GoTo Err_OK_Click


    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sql As String
    
    MsgBox Me!Texte63
    sql = "select * from PERSONNEL where Per_Nom like '" & Texte63.Value & "%'"
    
    MsgBox sql
    Set db = CurrentDb
    Set rst = db.OpenRecordset(sql)
    
    If Not rst.EOF Then
        'que faut-il mettre pour afficher la valeur du rst ???
    End If
    
    rst.Close
    Set rst = Nothing
    Set db = Nothing
    
Exit_OK_Click:
    Exit Sub

Err_OK_Click:
    MsgBox Err.Description
    Resume Exit_OK_Click
    
End Sub

je saisi une lettre dans un champs puis je clique sur OK pour valider. Le code précédent s'execute alors. Mais comment faut-il que je fasse pour envoyer dans le formulaire la valeur de mon recordset.

Encore une fois merci !

Re : Afficher a partir de .... le 11/05/2006 17:12:31

eldim
Réponse acceptée !
il faut mettre
while not rst.eof
   if not isnull(rst.fields("NomChamps")) then
       MaVariable=rst.fields("NomChamps").value
         ....
   endif
   rst.movenext
wend

-- Pourquoi faire simple quand on peut faire compliquer --

Re : Afficher a partir de .... le 12/05/2006 16:38:39

Classé sous : partir, formulaire, afficher, personnel, commence

Participer à cet échange

Pub



Appels d'offres

CalendriCode

Août 2008
LMMJVSD
    123
45678910
11121314151617
18192021222324
25262728293031

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS