Problème remplissage Form par recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème remplissage Form par recordset

alkashee

Si c'est pas beau ca !

Bonjour,

J'ai un petit problème lors du remplissage d'un sous-form avec un recordset.

Petite précision d'entrée; le form est affiché sous la forme d'une feuille de donnée.

Voici le code utilisé dans un module et lancé sur l'évènement _click d'un bouton dans un autre sous-form du menu principal:

Code :

Function affiche_details_clm(num_clm As String) As DAO.Recordset
Dim requete_clm As String
Dim rs_details_clm As DAO.Recordset
requete_clm = "SELECT [T_Sous-Reseau].Adresse_IP, [T_Sous-Reseau].Sous_Reseau, [T_Sous-Reseau].Masque, [T_Sous-Reseau].Num_Port, [T_Sous-Reseau].Nom_LAN, [T_Sous-Reseau].Fonction, [T_Sous-Reseau].Nom_Equipement" & _
" FROM [R_Test-Reponse] INNER JOIN [T_Sous-Reseau] ON [R_Test-Reponse].[CLM 1] = [T_Sous-Reseau].Nom_Equipement" & _
" GROUP BY [T_Sous-Reseau].Adresse_IP, [T_Sous-Reseau].Sous_Reseau, [T_Sous-Reseau].Masque, [T_Sous-Reseau].Num_Port, [T_Sous-Reseau].Nom_LAN, [T_Sous-Reseau].Fonction, [T_Sous-Reseau].Nom_Equipement" & _
" HAVING ((([T_Sous-Reseau].Num_Port) Not Like " & Chr(34) & "loopback*" & Chr(34) & " ));"
Set rs_details_clm = CurrentDb.OpenRecordset(requete_clm)
Do Until rs_details_clm.EOF = True
Forms.F_Resultat.F_sf_Detail_CLM_1.Form.Adresse_IP = rs_details_clm.Fields("Adresse_IP" )
Forms.F_Resultat.F_sf_Detail_CLM_1.Form.sous_reseau = rs_details_clm.Fields("Sous_Reseau" )
Forms.F_Resultat.F_sf_Detail_CLM_1.Form.masque = rs_details_clm.Fields("masque" )
Forms.F_Resultat.F_sf_Detail_CLM_1.Form.port = rs_details_clm.Fields("num_port" )
Forms.F_Resultat.F_sf_Detail_CLM_1.Form.Nom_LAN = rs_details_clm.Fields("nom_LAN" )
rs_details_clm.MoveNext
Loop
End Function

En substance, je crée un recordset auquel j'attribue comme valeur une variable contenant une instruction SQL. J'attribue ensuite les champs de mon recordset aux champs (indépendant) de mon sous-form. Tout se passe bien jusqu'à ce que l'on passe au recordset suivant ('rs_details_clm.MoveNext'):

Access écrase les donnée dans le sous-form au lieu "d'aller à la ligne" et de les mettre dans une nouvelle ligne.

J'ai parcouru des forums et j'en ai retiré qu'il fallait donner comme source de données du sous-form le recordset. J'ai essayé avec la ligne suivante:

Code :

Forms.F_Resultat.F_sf_Detail_CLM_1.Form.RecordSource = rs_details_clm

Mais Access me lève une erreur d'exécution 13 "Incompatibilité de type" => Effectivement je veux attribuer comme source d'un form un recordset.

J'ai alors tenté de mettre en source une requête-test contenant mon code SQL (qui fonctionne bien en me retournant le bon résultat) mais ca ne marche pas plus.

Auriez-vous des solutions ?

Vous en remerciant d'avance.

---------------
Shooter ou être shooté, that iz the question

Publicité

alkashee

Si c'est pas beau ca !

Personne n'aurait une petite idée ?

---------------
Shooter ou être shooté, that iz the question

Oliiii

A vue de nez ton probleme de passage a la ligne est du au fait que tu fais un .MoveNext pour aller au record suivant dans ton record set mais tu ne dit pas a ta forme d'aller a la ligne suivante, donc il ecrase les champs deja remplis.

Pas facil d'en dire plus sans voir a quoi ca ressemble

Message cité 1 fois

alkashee

Si c'est pas beau ca !

Bonjour,

Effectivement, c'est bien ça le problème il manque quelque chose qui dit "retour à la ligne" au form

On m'a rigolé au nez sur un autre forum quand j'ai dit que je voulais remplir un form avec un recordset issue d'une requête SQL.

J'ai dit OK, faisons autrement, mettons en source directement la requête SQL (qui marche, c'est sûr à 100%) comme je l'expliquais à la fin de mon premier post:

Code :

Forms.F_Resultat.F_sf_Detail_CLM_1.Form.RecordSource = requete_clm

Je vois bien qu'Access "prépare" les lignes du sous-form (car il y a le compte exact du résultat de la requête), mais il me met dans chaque colonne la même valeur sur toute les lignes [:blackdranzer]

Oliiii a écrit :

[...]mais tu ne dit pas à ta forme d'aller à la ligne suivante, donc il écrase les champs déjà remplis.

Sais-tu comment faire ?

:jap:

---------------
Shooter ou être shooté, that iz the question

Oliiii

Non, je ne connais pas assez Access pour te dire exactement comment faire et je ne l'ai pas ici donc je ne pourrais meme pas essayer de trouver

alkashee

Si c'est pas beau ca !

Erf...

Un âme charitable qui aurait une solution ? Je commence à fondre un fusible à force d'y réfléchir :pt1cable:

---------------
Shooter ou être shooté, that iz the question

FORUM HardWare.fr

Programmation

SQL/NoSQL

Problème remplissage Form par recordset

Sujets relatifs
AS3 = probleme indicateur chargement d'images multiple	probleme avec easy forum ! 2.5
problème avec la fonction vlookup	Probleme avec " Adobe Flash Player "
Problème lecture codes barre 2/5 entrelacés	problème réalisation tableau périodique tkinter
GDI - Texte transparent sur Form transparent	Problème Script AS3 Flash
[ACCESS] [RESOLU] Problème de doublon récalcitrant	Problème de connexion
Plus de sujets relatifs à : Problème remplissage Form par recordset

Page générée en 0.058 secondes