Access: masquer résultat requête
Résolu
05steph
-
steph05 -
steph05 -
Bonjour,
J'ai fait une requête dont le résultat est une liste de valeurs. Je
veux utiliser chacune de ces valeurs comme paramètre pour exécuter une
autre requête. Mais je ne veux pas que le résultat de la première
requête s'affiche. De plus, à chaque fois, ça m'ouvre une boîte de
dialogue où je dois saisir le paramètre.
Comment puis-je faire ?
Mon code est le suivant:
Code :
Private Sub cmdBanqueDiff_Click()
DoCmd.OpenQuery "RBanqueDiff", acViewNormal, acEdit
Dim mabase As DAO.database
Dim lerecordset As DAO.Recordset
Set mabase = CurrentDb
Set lerecordset = mabase.OpenRecordset("RBanqueDiff" )
lerecordset.MoveFirst
Do While Not lerecordset.EOF()
MonNomBanque = lerecordset![NomBanque]
DoCmd.SetWarnings False
machaineSQL = "SELECT TCartesBINNom.NumCarte INTO TBinNom2 FROM
TCartesBINNom WHERE (((TCartesBINNom.NomBanque)=" & MonNomBanque &
" ));"
DoCmd.RunSQL machaineSQL
DoCmd.SetWarnings True
DoCmd.TransferText acExportFixed, "Export", "TBinNom2", MonNomBanque &
".txt", False
lerecordset.MoveNext
Loop
End Sub
Merci
J'ai fait une requête dont le résultat est une liste de valeurs. Je
veux utiliser chacune de ces valeurs comme paramètre pour exécuter une
autre requête. Mais je ne veux pas que le résultat de la première
requête s'affiche. De plus, à chaque fois, ça m'ouvre une boîte de
dialogue où je dois saisir le paramètre.
Comment puis-je faire ?
Mon code est le suivant:
Code :
Private Sub cmdBanqueDiff_Click()
DoCmd.OpenQuery "RBanqueDiff", acViewNormal, acEdit
Dim mabase As DAO.database
Dim lerecordset As DAO.Recordset
Set mabase = CurrentDb
Set lerecordset = mabase.OpenRecordset("RBanqueDiff" )
lerecordset.MoveFirst
Do While Not lerecordset.EOF()
MonNomBanque = lerecordset![NomBanque]
DoCmd.SetWarnings False
machaineSQL = "SELECT TCartesBINNom.NumCarte INTO TBinNom2 FROM
TCartesBINNom WHERE (((TCartesBINNom.NomBanque)=" & MonNomBanque &
" ));"
DoCmd.RunSQL machaineSQL
DoCmd.SetWarnings True
DoCmd.TransferText acExportFixed, "Export", "TBinNom2", MonNomBanque &
".txt", False
lerecordset.MoveNext
Loop
End Sub
Merci
A voir également:
- Access: masquer résultat requête
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
- Quick acces ✓ - Forum Windows