Discussion :

[spacesheep]

Bonjour les developpezien(ne)s,

j'ai un formulaire avec plusieurs zones de text, une case à coché et un bouton

j'aimerai lorsque je clique sur le bouton qu'il copie txt_marque_repris dans txt_marque_livres,..., si la case à cocher est égale à 1

Mais rien ne se passe lorsque je clique sur ce bouton

voici ma syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub btn_copie_repris_livres_Click()
 
If Me.migration = 1 Then
Me.txt_marque_livres.Value = Me.txt_marque_repris
Me.txt_modele_livres.Value = Me.txt_modele_repris
Me.txt_mgt_livres.Value = Me.txt_mgt_repris
Me.txt_ns_livres.Value = Me.txt_ns_repris
Else
End If
 
End Sub

j'ai essayé aussi avec If Me.migration.value = "1" Then mais ça ne marche pas non plus
Pourquoi cela ne fonctionne pas?

je vous remercie de votre aide d^_^b

[zoom61]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub btn_copie_repris_livres_Click()
 
If Me.migration = 1 Then
   Me.txt_marque_livres.Value = Me.txt_marque_repris
   Me.txt_modele_livres.Value = Me.txt_modele_repris
   Me.txt_mgt_livres.Value = Me.txt_mgt_repris
   Me.txt_ns_livres.Value = Me.txt_ns_repris
End If
Me.refresh 
End Sub

@+.

[spacesheep]

cela ne fonctionne pas non plus j'ai fait un test tout bête

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub btn_copie_repris_livres_Click()
 
'If Me.migration = 1 Then
   Me.txt_marque_livres.Value = Me.txt_marque_repris
   Me.txt_modele_livres.Value = Me.txt_modele_repris
   Me.txt_mgt_livres.Value = Me.txt_mgt_repris
   Me.txt_ns_livres.Value = Me.txt_ns_repris
'End If
'Me.refresh 
End Sub

et la ça fonctionne mais des qu'il y a la condition il ne veut rien savoir...
Je ne comprend pas

[zoom61]

Avec ce code cela te donne quoi, le message que tu obtiens :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub btn_copie_repris_livres_Click()   
msgbox me.migration.value
If Me.migration.value = 1 Then 
Me.txt_marque_livres.Value = Me.txt_marque_repris.value
Me.txt_modele_livres.Value = Me.txt_modele_repris.value
Me.txt_mgt_livres.Value = Me.txt_mgt_repris.value 
Me.txt_ns_livres.Value = Me.txt_ns_repris.value
End If 
Me.refresh 
End Sub

@+.

[spacesheep]

bonjour zoom61,

ça m'affiche -1

théoriquement ça devrai être plutôt un 1 non?

[zoom61]

C'est une case à cocher ?

[spacesheep]

ben pour la penne ma syntaxe ce transforme en ça:

Code :

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

1
2
3
4
5
6
If Me.migration.Value = -1 Then
Me.txt_marque_livres.Value = Me.txt_marque_repris.Value
Me.txt_modele_livres.Value = Me.txt_modele_repris.Value
Me.txt_mgt_livres.Value = Me.txt_mgt_repris.Value
Me.txt_ns_livres.Value = Me.txt_ns_repris.Value
End If

Je ne comprend pas pourquoi la valeur de la case à cocher et devenu négative

En tout cas merci la méthode du msgbox aide pas mal d^_^b

[zoom61]

Les valeurs d'une case à cocher sont : -1 et 0.

@+.

[spacesheep]

Lol ok ben j'aurai pensais que les deux état pour une case à cocherr était 1 et 0 et non -1 et 0 ^^

Merci pour ta lumière

[zoom61]

N'oublie pas le tag

@+.