ACCESS VBA
TORTUE85
-
freto Messages postés 1543 Date d'inscription Statut Membre Dernière intervention -
freto Messages postés 1543 Date d'inscription Statut Membre Dernière intervention -
Salut !!
J'ai un probleme avec Access [Je suis debutant]
Malgre mes recherches sur le net et sur le site je n'arrive pas a trouver ma solution:
Je voudrai mettre a jour un champ de ma table qd je consulte une requete.
Alors j'ai essaye en VBA du genre :
Dans le module de ma requete
Private Sub Command26_Click()
[ALERT_SPACERS] = "ALERTE"
End Sub
Il m'affiche comme quoi "Recordsed is not updateable"
Enfin, j'aimerai savoir le code VBA pour renvoyer a la ligne dans un msgbox...
Merci beaucoup
J'ai un probleme avec Access [Je suis debutant]
Malgre mes recherches sur le net et sur le site je n'arrive pas a trouver ma solution:
Je voudrai mettre a jour un champ de ma table qd je consulte une requete.
Alors j'ai essaye en VBA du genre :
Dans le module de ma requete
Private Sub Command26_Click()
[ALERT_SPACERS] = "ALERTE"
End Sub
Il m'affiche comme quoi "Recordsed is not updateable"
Enfin, j'aimerai savoir le code VBA pour renvoyer a la ligne dans un msgbox...
Merci beaucoup
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour a toi
il est normal que ton code ne fonctionne pas, puisque cette ligne est faite pour un recordset, qui n'est pas ouvert
utilise plutot la fonction UPDATE
Pour ce faire
Private Sub Command26_Click() Dim requete as String requete="UPDATE [nom_de_la_table] SET [nom_du_champ]=valeur WHERE [nom_d_un_champ]=valeur" DoCmd.RunSQL requete End Sub
Evidemment, il faut remplacer les noms par ceux qui vont bien, et les valeurs aussi
Pour ce qui est de faire un retour a la ligne, un peu de recherches t'aurait permis de trouver cette solution
MsgBox "tapremière phrase" & vbCrLf & " ta deuxième phrase"
Veille bien à la syntaxe (plus précisément la casse) de vbCrLf et tout sera bon
Voili voilou
