Reprise du message précédent :
je comprend pas ce coup ci :
 
erreur de compilation
declaration existante dans la portée en cour
 
  il souligne ca : Dim rs As DAO.Recordset
 
il a pas aimé la modif
 
 

Ben voila! T'as déjà une variable rs déclarée qq part. Surement en tête de module. Change le nom de la variable de procédure et ça ira beaucoup mieux.

ca avance bien maintenant c'est dans l'avant derniere ligne que ca pose probleme
c'est bientot regle
 
 erreur d'execution 3021
 aucun enregistrement en cours
 
pourtant ma table est bien rempli
 

Avant d'essayer de lire le recordset, teste s'il y a qq chose dedans:

(juste après Set rs = ...)

ok je test ! pas mal le msgbox ! mdr

non il doit avoir une valeur puisque le msgbox ne s'affiche pas
par contre c'est quoi BOF
EOF je sais mais BOF : .... of file ?

je redonne mon code mais normalement c'est ce que tu m'as dit
 
Private Sub Commande146_Click()
Dim strnom As String
Dim rs As DAO.Recordset
Dim qdReq As DAO.QueryDef
   
      strnom = InputBox("Nom de l'entreprise?" )
      Set qdReq = CurrentDb.CreateQueryDef("", "SELECT * FROM entreprise  WHERE ent_nom LIKE '" & strnom & "';" )
      Set rs = qdReq.OpenRecordset
 
 If rs.EOF And Not rs.BOF Then
    MsgBox "Rien! Que dalle! Nada!"
    Exit Sub
  End If
 
  Do While Not rs.EOF
      Debug.Print rs.Fields("ent_nom" )
      Debug.Print rs.Fields("ent_adr" )
      rs.MoveNext
  Loop
      Texte147.Text = rs.Fields("ent_nom" )
      Texte149.Text = rs.Fields("ent_adr" )
 
End Sub

BOF = Begin Of File (début de recordset).
J'ai édité mon msg dans les secondes qui ont suivi le post parce qu'il y avait un conner.. dedans. Mais tu as fait + vite que moi !
Donc, il fallait lire
If rs.EOF And rs.BOF Then
et pendant qu'on y est, tu peux virer la boucle avec les debug.print qui ne sert à rien.

bon quand je laisse le inputbox vide il m'affiche ton msgbox
et ne plante pas
par contre quand je rentre une valeur correct, il m'affiche un message d'erreur :  
   "impossible de faire reference a une propriete ou de la definir pour un controle si ce dernier n'est pas activé"
 
pourtant la propriété enabled est sur true et il n'est pas verouillé
voila si ca te dit quelque chose ... je vais rechercher cette erreur sur google pour voir

rien de bien interressant sur google ....

Il faut un Text1.Setfocus avant le Text1.Text = blabla.
Idem pour le Text2.

c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon c'est bon  
yyyyyyyyyyyyyyyyeeeeeeeeeeeeeeessssssssssssssssss
j'ai mis du temps a y arriver parce que tu as mis text1 dans ton poste alors que sous access le nom automatique est texte1 !
enfin je te remercie ! on a mis le temps mais ca marche c'est trop nickel  
encore merci a tout ceux qui m'ont aidé merci les gars c'est cool
un derniere chose quelqu'un sait comment on fait pour changer le titre du topic ?
voila voila merci Jihemair pour ta grande, continue et precieuse aide !

et au fait que fait presicement set focus ?
 

pour le cas ou d'otre novice comme moi aurais ce pb voici le code complet qui fonctionne sous acces 2002
 
Private Sub Commande146_Click()
Dim strnom As String
Dim rs As DAO.Recordset
Dim qdReq As DAO.QueryDef
   
      strnom = InputBox("Nom de l'entreprise?" )
      Set qdReq = CurrentDb.CreateQueryDef("", "SELECT * FROM entreprise  WHERE ent_nom LIKE '" & strnom & "';" )
      Set rs = qdReq.OpenRecordset
 
 If rs.EOF And rs.BOF Then
    MsgBox "Rien! Que dalle! Nada!"
    Exit Sub
  End If
      Texte147.SetFocus
      Texte147.Text = rs.Fields("ent_nom" )
      Texte149.SetFocus
      Texte149.Text = rs.Fields("ent_adr" )
 
End Sub

p'tite questions
est ce ke l'on peut recuperer le numero de l'enregistrement
pas celui que l'on donne genre ent_num mais celui que access affecte automatiquement pour pouvoir naviguer dans les enregistrements ?

euh excuser c'est plus la peine

la je comprends pas pk tu renvoie pa tes résultat dans le formulaire mais en mode feuilles de données, ça serait beaucoup plus simple que de vouloir remplir les champs...mainan je dis tetre une bétise lol

parce que c'est des neuneu qui vont l'utiliser et qu'ils y comprennent rien ( c'est des commerciaux ) et que c'est moins joli et que comme ca ca m'apprend des chose ce qui est utile vu que je fais un bts info