Checkbox versus Textbox

Question

Salut...

J'utilise VB, ADO et ACCESS.

J'ai un probl&#232;me de compr&#233;hension avec une boucle. Bon je n'utilise jamais de boucle car j'ai de la difficult&#233; &#224; saisir cela... enfin... Passons.... Mais je ne sais pas si le bug peux venir de la boucle.

Mon but est d'utiliser une base de donn&#233;es ACCESS o&#249; il y a des X dans certain ligne (La base de donn&#233;e a &#233;t&#233; tres mal mont&#233; car les individus qui l'utilise mettent un X au lieu d'avoir cr&#233;&#233; un check box dans la BD... Je dois donc vivre avec cela car la base de donn&#233;e est trop volumineuse pour corriger cette erreur une par une.  C'est pourquoi je programme un prog pour tenter de r&#233;gler une partie de ce probl&#232;me.

Le programme est utilis&#233; pour faire le suivi des dossiers... Je veux que s'il y a un X dans la colonne Dessinateur par exmeple et bien ca sera un checkbox coch&#233; dans mon programme. Chekcbox qui se nommera Dessin.

Donc quand je me prom&#232;ne dans ma BD avec mon prog VB je peux voir les colone qui on un X et je veux que si, comme comme je le mentionnais pr&#233;c&#233;demment, voir un checkbox coch&#233; qui indique que le dossier est au dessinateur.

Je me suis donc cr&#233;&#233; 7 checkbox diff&#233;rent qui sont relier aux 7 collones de ma BD (ex. dessinateur, calcul, recherche, etc.

Premier prob, il doit qu'avoir qu'un seul checkbox de cocher (car le dossier ne peux &#234;tre qu'&#224; une place &#224; la fois) et c'est l&#224; que j'utilise ma boucle...

Voici le code 

For i =  0 To 7
    If i <> Index Then
        If Check1.Item(i).Value = 1 Then
            Check1.Item(i).Value = 0
Exit Sub
        End If
    End If
Next i


Check1.Item(Index).Value = 1

Jusqu'ici ca va

Auparavant j'ai cr&#233;&#233; un code pour dire que si il y a un X dans la colonne Dessin alors cocher le checkbox Dessin... Ca aussi ca va... Voici le code

 Private Sub CheckBox() 


If txtAttenteTerrain.Text  "x" Or txtAttenteTerrain.Text "X" Then
    Check1.Item(1).Value = 1
Else
    Check1.Item(1).Value = 0
End If


If txtAttenteTirroir.Text "x" Or txtAttenteTirroir.Text "X" Then
    Check1.Item(2).Value = 1
Else
    Check1.Item(2).Value = 0
End If


If txtRecherche.Text "x" Or txtRecherche.Text "X" Then
    Check1.Item(3).Value = 1
Else
    Check1.Item(3).Value = 0
End If


If txtCalcul.Text "x" Or txtCalcul.Text "X" Then
    Check1.Item(0).Value = 1
Else
    Check1.Item(0).Value = 0
End If


If txtDessin.Text "x" Or txtDessin.Text "X" Then
    Check1.Item(6).Value = 1
Else
    Check1.Item(6).Value = 0
End If


If txtRapport.Text "x" Or txtRapport.Text "X" Then
    Check1.Item(5).Value = 1
Else
    Check1.Item(5).Value = 0
End If


If txtYvon.Text "x" Or txtYvon.Text "X" Then
    Check1.Item(4).Value = 1
Else
    Check1.Item(4).Value = 0
End If
    
End Sub

Mais si je veux Modifier ma BD en utilisant le programme VB ca plante...

Je veux lui dire que si je  mets le chekcbox au Calcul il devrait effacer le X qui &#233;tait auparavant au Dessin et mettre un X dans Calcul...  J'ai tenter ce code mais ca plante. c'Est qu'il n'efface pas le X et il ne fait que ,mettre un X dans Calcul... Le bug est que j'ai deux X a deux endroit diff&#233;rent...

If Check1.Item(0).Value = 1 Then
    txtAttenteTerrain.Text = "X"
ElseIf Check1.Item(1).Value = 1 Then
    txtAttenteTirroir.Text = "X"
ElseIf Check1.Item(2).Value = 1 Then
    txtRecherche.Text = "X"
ElseIf Check1.Item(3).Value = 1 Then
    txtCalcul.Text = "X"
ElseIf Check1.Item(4).Value = 1 Then
    txtDessin.Text = "X"
ElseIf Check1.Item(5).Value = 1 Then
    txtRapport.Text = "X"
ElseIf Check1.Item(6).Value = 1 Then
    txtYvon.Text = "X"
ElseIf Check1.Item(7).Value = 1 Then
    txtInvisible.Text = "X"

Bon je ne sais pas si je suis assez clair.... Je l'esp&#232;re...  Mais je suis d&#233;sesp&#233;rer et je ne sais plus quoi faire....

J'attends votre aide...

Merci d'avance.

BasicInstinct · Answer

si j'ai tout compris...
il suffit que tu reinitialise tes textbox

txtAttenteTerrain.Text = ""
txtAttenteTirroir.Text = ""
....
If Check1.Item(0).Value = 1 Then
    txtAttenteTerrain.Text = "X"
ElseIf Check1.Item(1).Value = 1 Then
    txtAttenteTirroir.Text = "X"
ElseIf Check1.Item(2).Value = 1 Then
    txtRecherche.Text = "X"
ElseIf Check1.Item(3).Value = 1 Then
    txtCalcul.Text = "X"
ElseIf Check1.Item(4).Value = 1 Then
    txtDessin.Text = "X"
ElseIf Check1.Item(5).Value = 1 Then
    txtRapport.Text = "X"
ElseIf Check1.Item(6).Value = 1 Then
    txtYvon.Text = "X"
ElseIf Check1.Item(7).Value = 1 Then
    txtInvisible.Text = "X"

 BasicInstinct

Checkbox versus Textbox

1 réponse

Discussions similaires