Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Lecture d'une table non présente dans un formulaire

Lecture d'une table non présente dans un formulaire

2 réponses
Avatar
jcp66
Bonsoir
Grâce à vos conseils, j'avance dans ma requete de creation de table mais
j'ai encore besoin d'aide.
Merci beaucoup pour vos conseils et disponibilité.
Entre les 2 boucles For Next il faudrait que je lise la table T-Centres pour
chaque enregistrement (il y en a NbCentres)
Ces valeurs devraient s'écrire dans la table T-Semaine
Pour l'instant la seule info de la table T-Centres inscrite dans le
formulaire est le nombre d'enregistrements (NbCentres)
Par avence merci.
Cordialement
jcp




Private Sub Bascule77_Click()
Dim Rst_Produit As DAO.Recordset
Dim MySql As String
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")
DoCmd.SetWarnings False
For j = 1 To NbCentres
'Ici il faudrait ouvrir la table T-Centres et lire pour chaque
enregistrement LibCentre et CoefCentre qui devraient prendre la place de
'aa' et 'bb' dans l'écriture de la table T-Semaine
For i = 1 To NbRef
MySql = "INSERT INTO [T-semaine] ( semaine, centre, produit, quantite )
VALUES ('aa', 'bb', designation, DistribCentre)"
DoCmd.RunSQL MySql
Recordset.MoveNext
Next i
Recordset.MoveFirst
Next j
DoCmd.SetWarnings True
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabien
jcp66 a écrit :
Bonsoir
Grâce à vos conseils, j'avance dans ma requete de creation de table mais
j'ai encore besoin d'aide.
Merci beaucoup pour vos conseils et disponibilité.
Entre les 2 boucles For Next il faudrait que je lise la table T-Centres pour
chaque enregistrement (il y en a NbCentres)
Ces valeurs devraient s'écrire dans la table T-Semaine
Pour l'instant la seule info de la table T-Centres inscrite dans le
formulaire est le nombre d'enregistrements (NbCentres)
Par avence merci.
Cordialement
jcp






Bonjour
Alors voilà :
Private Sub Bascule77_Click()
Dim Rst_Produit As DAO.Recordset


Dim Rst_Centre as dao.recordset
Dim MySql As String
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")


Set Rst_Centre = Currentdb.OpenRecordset("select LibCentre,CoefCentre
from [T-Centres]")
DoCmd.SetWarnings False
For j = 1 To NbCentres


Rst_Centre.movefirst
While not Rst_Centre.eof
> 'Ici il faudrait ouvrir la table T-Centres et lire pour chaque
> enregistrement LibCentre et CoefCentre qui devraient prendre la
place de
> 'aa' et 'bb' dans l'écriture de la table T-Semaine
> For i = 1 To NbRef
> MySql = "INSERT INTO [T-semaine] ( semaine, centre, produit,
quantite )
> VALUES ('" & Rst_Centre("LibCentre") & "', '" &
rst_Centre("CoefCentre") & "', designation, DistribCentre)"
> DoCmd.RunSQL MySql
> Recordset.MoveNext
> Next i
> Recordset.MoveFirst
Rst_Centre.movenext
wend
Next j
DoCmd.SetWarnings True


Rst_Produit.close
Rst_Centre.close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub






@+
Avatar
jcp66
Bonjour
Merci BEAUCOUP Fabien.
Ca marche.
Il y avait juste un petit pb, il a fallu que je supprime la boucle for next
de j qui "s'emmelait" avec le while.
Merci infiniment de ton aide qui me permet d'avancer en découvrant le vb.
Cordialement
jcp

"Fabien" a écrit dans le message de news:

jcp66 a écrit :
Bonsoir
Grâce à vos conseils, j'avance dans ma requete de creation de table mais
j'ai encore besoin d'aide.
Merci beaucoup pour vos conseils et disponibilité.
Entre les 2 boucles For Next il faudrait que je lise la table T-Centres
pour chaque enregistrement (il y en a NbCentres)
Ces valeurs devraient s'écrire dans la table T-Semaine
Pour l'instant la seule info de la table T-Centres inscrite dans le
formulaire est le nombre d'enregistrements (NbCentres)
Par avence merci.
Cordialement
jcp






Bonjour
Alors voilà :
Private Sub Bascule77_Click()
Dim Rst_Produit As DAO.Recordset


Dim Rst_Centre as dao.recordset
Dim MySql As String
Set Rst_Produit = CurrentDb.OpenRecordset("Select
reference,designation,stock from [T-Produits]")


Set Rst_Centre = Currentdb.OpenRecordset("select LibCentre,CoefCentre from
[T-Centres]")
DoCmd.SetWarnings False
For j = 1 To NbCentres


Rst_Centre.movefirst
While not Rst_Centre.eof
> 'Ici il faudrait ouvrir la table T-Centres et lire pour chaque
> enregistrement LibCentre et CoefCentre qui devraient prendre la
place de
> 'aa' et 'bb' dans l'écriture de la table T-Semaine
> For i = 1 To NbRef
> MySql = "INSERT INTO [T-semaine] ( semaine, centre, produit,
quantite )
> VALUES ('" & Rst_Centre("LibCentre") & "', '" &
rst_Centre("CoefCentre") & "', designation, DistribCentre)"
> DoCmd.RunSQL MySql
> Recordset.MoveNext
> Next i
> Recordset.MoveFirst
Rst_Centre.movenext
wend
Next j
DoCmd.SetWarnings True


Rst_Produit.close
Rst_Centre.close
Set Rst_Produit = Nothing
Set Rst_Centre = Nothing
End Sub






@+