Discussion :

[MAMANHOU]

Bonjour,

J'aimerai insérer une phrase définie dans un formulaire continue après avoir cocher une case à cocher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Cocher99_AfterUpdate()
Dim a, b, c, d As String
 
a = "Je fais un test."
b = "PC"
c = "A suivre"
b = "normal"
str = "INSERT INTO T_Suivi ([date], [reponse], [initiale], [statut], [importance]) VALUES (date(),'" & a & "', '" & b & "', '" & c & "', '" & d & "')"
DoCmd.RunSQL str
End Sub

Ça ne marche pas, j'ai une erreur d'argument non facultatif... Ce n'est peut être pas la bonne méthode ?
Merci d'avance
Mamanhou

[madefemere]

Bonjour,

Ta définition de variables est fausse.
Il faut définir CHAQUE variable par un AS. Dans ta définition actuelle, a, b et c sont variant.
L'erreur rencontrée fait suite au fait que tu ne définis pas la variable str que tu utilises.


Cordialement.

[MAMANHOU]

Merci pour ton retour...
J'ai essayé une autre méthode qui me parait plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Cocher99_AfterUpdate()
 
'Me.REPONSE = "Je fais un test."
'Me.INITIALE = "PC"
'Me.statut = "a suivre"
'Me.Importance = "normal"
Forms("frm_suivi").Refresh

Je vois bien mon enregistrement se créer et se rajouter dans le formulaire continue = c'est ok
Le seul Hic, c'est que ma cocher99 qui se trouve dans l'entête de mon formulaire perd sa coche quand je réouvre le formulaire et c'est peut être normal ? mais comment le changer ?

Merci d'avance
Mamanhou

[madefemere]

Bonjour,

Si ta case à cocher a perdu sa valeur, cela veut dire qu'elle est indépendante.

Cordialement.