|
|
|
|
Salut,
on peut procéder autrement, en parcourant le recordset et en récupérant les valeurs des champs (avec ! indiquant que l'on parle d'un champ) Dim Rs As Recordset
Dim toto as String
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenTable, dbReadOnly)
Rs.MoveFirst
While Not Rs.EOF
With Rs
toto = !champ1
MsgBox toto & !champ2
End With
Rs.MoveNext
Wend
Rs.Close
Ca irait comme ça ? A+ Blux "Les cons, ça ose tout. C'est même à ça qu'on les reconnait" |
Salut blux !
D'abord, merci de bien vouloir m'aider ! Ben écoute, j'ai essayé ta méthode, mais je reçois toujours l'erreur "Invalid argument" à la ligne : Set Rs = CurrentDb.OpenRecordset("tblEmail", dbOpenDynaset, dbReadOnly) Pourtant, ma table tblEmail existe et n'est pas vide (elle contient 3 champs dans la colonne Email) Saurais-tu pk ça plante ?
|
Oui, j'avais essayé, bien pensé qd m !
Et je vous remercie de votre aide, c très gentil ! Entre-temps, g fait un peu différemment et g trouvé la solution, la voici : Private Sub Commande53_Click() Set cdb = CurrentDb() Dim SqlSelectRecepients As String Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.CreateItem(0) SqlSelectRecepients = "SELECT tblEmail.Email FROM tblEmail;" Set rst_SqlSelectRecepients = cdb.OpenRecordset(SqlSelectRecepients) Do Until rst_SqlSelectRecepients.EOF 'Reihe auslesen myEmail = rst_SqlSelectRecepients!Email MonMessage.To = MonMessage.To + " " & myEmail & ", " rst_SqlSelectRecepients.MoveNext Loop rst_SqlSelectRecepients.Close MonMessage.Subject = "Refeering" MonMessage.Display Set MonOutlook = Nothing End Sub |
alors je fait une base de données qui gére un stock mais je trouve des diffuclté
par exemple j'aime crée un bouton qui fait deux opération en mémé temps il fiat la mis à jours du tableau produit il fait un adjout dans le tableau opération effectue aide mois. merci </code</gras>></gras></gras> |
Salut! Alors je ne comprends pas très bien ta question...
De plus, un bouton qui fait deux choses à la fois, ça me paraît pas très clair comme tu l'as expliqué. Quand tu clique une fois, il fait l'action X et quand tu cliques deux fois, il fait l'action Y par exemple? |
| 19/09 14h12 | Comment lire un fichier RMVB | Vidéo |
| 27/06 14h16 | [Unix] Lire le synopsis d'un man | Unix |
| 21/12 00h16 | [Python] Lire et écrire des fichiers CSV | Python |
| 15/02 16h55 | [Gravure] Graver ou lire un fichier .BIN / .CUE | Gravure |
| 22/05 11h52 | [Gravure] Graver ou lire un fichier .IMG / .CCD / .SUB | Gravure |
| 19/05 17h20 | VBA-Access : Recordset, indirection et eval | 0 |
| 09/05 20h29 | VBA lire une colone et en tiré les info | 5 |
| 03/08 11h16 | [vba] lire un cookie | 0 |
| 19/05 17h40 | Pb code vba avec recordset | 1 |
![]() | VLC - VLC Media Player est un lecteur multimédia sous capable de lire de nombreux formats audio et vidéo (MPEG-1, MPEG-2, MPEG-4,... | Catégorie: Lecteurs vidéo Licence: Open Source |
![]() | VLC - VLC media player est un lecteur multimedia capable de lire de nombreux formats audio et vidéo (MPEG-1, MPEG-2, MPEG-4, ... | Catégorie: Lecteurs vidéo Licence: Open Source |
![]() | GOM Player - GOM Player est un lecteur vidéo léger et rapide. Tout comme VLC , il inclue déjà la plupart des codecs nécessaires à la... | Catégorie: Lecteurs vidéo Licence: Freeware/gratuit |
![]() | IsoBuster - IsoBuster est un outil de récupération de CD, DVD, HD-DVD et BD prenant en charge tous les formats et tous leurs système de... | Catégorie: Gravure Licence: Freeware/gratuit |
![]() | Lapin malin : J'apprends | Catégorie: Jeu vidéo PC | |
![]() | La ferme en délire | Catégorie: Jeu vidéo PC | 4.95 € Amazon.fr |
![]() | J'Aime Lire Bienvenue Au | Catégorie: Jeu vidéo PC |