URGENT URGENT ACCESS
far78
Messages postés
10
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
20 avril 2004
-
20 janv. 2003 à 17:38
far78 Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 20 avril 2004 - 21 janv. 2003 à 11:14
far78 Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 20 avril 2004 - 21 janv. 2003 à 11:14
2 réponses
MIKHAELJ
Messages postés
2
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
21 janvier 2003
21 janv. 2003 à 09:46
21 janv. 2003 à 09:46
-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
> Je souhaite inscrire toutes mes lignes provenant d'une requete créee en dynamique en vba. Ma base de données est sql server.
> Je n'arrive à inscrire qu'une seule ligne de ma requete alors qu'il y a 5 enregistrements. Access m'en affiche qu'une seule
> Voici mon code :
> rs.Open "SELECT * from CONTACT where identifiantsociete = " & IDENTIFIANTSOCIETE2 & " order by nomcontact", chaineODBC, adOpenDynamic, adLockOptimistic
> While Not rs.EOF
> Me.Fille260.SetFocus
>
> Me!Fille260!CIVILITE.SetFocus
> Me!Fille260!CIVILITE = rs.Fields("CIVILITE")
> Me!Fille260!PRENOM.SetFocus
> Me!Fille260!PRENOM = rs.Fields("PRENOMCONTACT")
> Me!Fille260![NOM CONTACT].SetFocus
> Me!Fille260![NOM CONTACT] = rs.Fields("NOMCONTACT"Me!Fille260!NCONTACT.SetFocus
> Me!Fille260!NCONTACT = rs.Fields("IDENTIFIANTCONTACT")
> Me!Fille260!FONCTION.SetFocus
> Me!Fille260!FONCTION = rs.Fields("FONCTION")
> Me!Fille260![TEL LD].SetFocus
> Me!Fille260![TEL LD] = rs.Fields("TELEPHONECONTACT")
> Me!Fille260!PORTABLE.SetFocus
> Me!Fille260!PORTABLE = rs.Fields("PORTABLECONTACT")
> Me!Fille260!EMAIL.SetFocus
> Me!Fille260!EMAIL = rs.Fields("EMAIL")
> rs.movenext
> rs.close
>
>
> Cela me permet d'inscrire une seule ligne dans mon formulaire. Je pense que je doit créer des lignes en dynamique dans mon formulaire mais je sais pas comment/.
> C'EST TRES TRES URGENT
> MERCI BEAUCOUP
Bonjour,
Il manque un "Enddo" pour fermer taboucle "While...".
Il faut fermer ton recordset seulement a la fin de ta boucle "While...".
While....
< traitement >
rs.movenext
Enddo
rs.close
Ton formulaire doit etre en mode continue ( Proprietes, onglet format / Affichage par defaut ).
Bonne réception.
Mikhael
Réponse au message :
-------------------------------
> Bonjour,
> Je souhaite inscrire toutes mes lignes provenant d'une requete créee en dynamique en vba. Ma base de données est sql server.
> Je n'arrive à inscrire qu'une seule ligne de ma requete alors qu'il y a 5 enregistrements. Access m'en affiche qu'une seule
> Voici mon code :
> rs.Open "SELECT * from CONTACT where identifiantsociete = " & IDENTIFIANTSOCIETE2 & " order by nomcontact", chaineODBC, adOpenDynamic, adLockOptimistic
> While Not rs.EOF
> Me.Fille260.SetFocus
>
> Me!Fille260!CIVILITE.SetFocus
> Me!Fille260!CIVILITE = rs.Fields("CIVILITE")
> Me!Fille260!PRENOM.SetFocus
> Me!Fille260!PRENOM = rs.Fields("PRENOMCONTACT")
> Me!Fille260![NOM CONTACT].SetFocus
> Me!Fille260![NOM CONTACT] = rs.Fields("NOMCONTACT"Me!Fille260!NCONTACT.SetFocus
> Me!Fille260!NCONTACT = rs.Fields("IDENTIFIANTCONTACT")
> Me!Fille260!FONCTION.SetFocus
> Me!Fille260!FONCTION = rs.Fields("FONCTION")
> Me!Fille260![TEL LD].SetFocus
> Me!Fille260![TEL LD] = rs.Fields("TELEPHONECONTACT")
> Me!Fille260!PORTABLE.SetFocus
> Me!Fille260!PORTABLE = rs.Fields("PORTABLECONTACT")
> Me!Fille260!EMAIL.SetFocus
> Me!Fille260!EMAIL = rs.Fields("EMAIL")
> rs.movenext
> rs.close
>
>
> Cela me permet d'inscrire une seule ligne dans mon formulaire. Je pense que je doit créer des lignes en dynamique dans mon formulaire mais je sais pas comment/.
> C'EST TRES TRES URGENT
> MERCI BEAUCOUP
Bonjour,
Il manque un "Enddo" pour fermer taboucle "While...".
Il faut fermer ton recordset seulement a la fin de ta boucle "While...".
While....
< traitement >
rs.movenext
Enddo
rs.close
Ton formulaire doit etre en mode continue ( Proprietes, onglet format / Affichage par defaut ).
Bonne réception.
Mikhael
far78
Messages postés
10
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
20 avril 2004
21 janv. 2003 à 11:14
21 janv. 2003 à 11:14
> > Bonjour,
> > Je souhaite inscrire toutes mes lignes provenant d'une requete créee en dynamique en vba. Ma base de données est sql server.
> > Je n'arrive à inscrire qu'une seule ligne de ma requete alors qu'il y a 5 enregistrements. Access m'en affiche qu'une seule
> > Voici mon code :
> > rs.Open "SELECT * from CONTACT where identifiantsociete = " & IDENTIFIANTSOCIETE2 & " order by nomcontact", chaineODBC, adOpenDynamic, adLockOptimistic
> > While Not rs.EOF
> > Me.Fille260.SetFocus
> >
> > Me!Fille260!CIVILITE.SetFocus
> > Me!Fille260!CIVILITE = rs.Fields("CIVILITE")
> > Me!Fille260!PRENOM.SetFocus
> > Me!Fille260!PRENOM = rs.Fields("PRENOMCONTACT")
> > Me!Fille260![NOM CONTACT].SetFocus
> > Me!Fille260![NOM CONTACT] = rs.Fields("NOMCONTACT"Me!Fille260!NCONTACT.SetFocus
> > Me!Fille260!NCONTACT = rs.Fields("IDENTIFIANTCONTACT")
> > Me!Fille260!FONCTION.SetFocus
> > Me!Fille260!FONCTION = rs.Fields("FONCTION")
> > Me!Fille260![TEL LD].SetFocus
> > Me!Fille260![TEL LD] = rs.Fields("TELEPHONECONTACT")
> > Me!Fille260!PORTABLE.SetFocus
> > Me!Fille260!PORTABLE = rs.Fields("PORTABLECONTACT")
> > Me!Fille260!EMAIL.SetFocus
> > Me!Fille260!EMAIL = rs.Fields("EMAIL")
> > rs.movenext
> > rs.close
> >
> >
> > Cela me permet d'inscrire une seule ligne dans mon formulaire. Je pense que je doit créer des lignes en dynamique dans mon formulaire mais je sais pas comment/.
> > C'EST TRES TRES URGENT
> > MERCI BEAUCOUP
>
> Bonjour,
>
> Il manque un "Enddo" pour fermer taboucle "While...".
> Il faut fermer ton recordset seulement a la fin de ta boucle "While...".
>
> While....
> < traitement >
> rs.movenext
> Enddo
> rs.close
>
> Ton formulaire doit etre en mode continue ( Proprietes, onglet format / Affichage par defaut ).
>
> Bonne réception.
> Mikhael
> > Je souhaite inscrire toutes mes lignes provenant d'une requete créee en dynamique en vba. Ma base de données est sql server.
> > Je n'arrive à inscrire qu'une seule ligne de ma requete alors qu'il y a 5 enregistrements. Access m'en affiche qu'une seule
> > Voici mon code :
> > rs.Open "SELECT * from CONTACT where identifiantsociete = " & IDENTIFIANTSOCIETE2 & " order by nomcontact", chaineODBC, adOpenDynamic, adLockOptimistic
> > While Not rs.EOF
> > Me.Fille260.SetFocus
> >
> > Me!Fille260!CIVILITE.SetFocus
> > Me!Fille260!CIVILITE = rs.Fields("CIVILITE")
> > Me!Fille260!PRENOM.SetFocus
> > Me!Fille260!PRENOM = rs.Fields("PRENOMCONTACT")
> > Me!Fille260![NOM CONTACT].SetFocus
> > Me!Fille260![NOM CONTACT] = rs.Fields("NOMCONTACT"Me!Fille260!NCONTACT.SetFocus
> > Me!Fille260!NCONTACT = rs.Fields("IDENTIFIANTCONTACT")
> > Me!Fille260!FONCTION.SetFocus
> > Me!Fille260!FONCTION = rs.Fields("FONCTION")
> > Me!Fille260![TEL LD].SetFocus
> > Me!Fille260![TEL LD] = rs.Fields("TELEPHONECONTACT")
> > Me!Fille260!PORTABLE.SetFocus
> > Me!Fille260!PORTABLE = rs.Fields("PORTABLECONTACT")
> > Me!Fille260!EMAIL.SetFocus
> > Me!Fille260!EMAIL = rs.Fields("EMAIL")
> > rs.movenext
> > rs.close
> >
> >
> > Cela me permet d'inscrire une seule ligne dans mon formulaire. Je pense que je doit créer des lignes en dynamique dans mon formulaire mais je sais pas comment/.
> > C'EST TRES TRES URGENT
> > MERCI BEAUCOUP
>
> Bonjour,
>
> Il manque un "Enddo" pour fermer taboucle "While...".
> Il faut fermer ton recordset seulement a la fin de ta boucle "While...".
>
> While....
> < traitement >
> rs.movenext
> Enddo
> rs.close
>
> Ton formulaire doit etre en mode continue ( Proprietes, onglet format / Affichage par defaut ).
>
> Bonne réception.
> Mikhael
