Discussion :

[zidane22]

Bonjour
Je suis maître d’école et je veux développer une petite application vb6



Je cherche s'il est possible de remplir les champs de la table Access via les 4 TextBoxs en cliquant le CommandButton add.
Si ceci n'est pas possible, quel autre contrôle peut faire la tâche?
merci

[l_autodidacte]

Possible mais long à coder.

Moi je préfèrerais un contrôle ListBox à un contrôle TextBox; car pour ListBox, il suffit d'invoquer l'index de l'élément à ajouter.
Pour un TextBox(Tâche un peu difficile), on doit tout spliter(pour les 4 contrôles) ensuite l'ajouter à la BD.

[zidane22]

Possible mais long à coder.

Moi je préfèrerais un contrôle ListBox à un contrôle TextBox; car pour ListBox, il suffit d'invoquer l'index de l'élément à ajouter.
Pour un TextBox(Tâche un peu difficile), on doit tout spliter(pour les 4 contrôles) ensuite l'ajouter à la BD.

Merci pour la réponse. mais le problème est qu'on peut pas écrire sur une lisbox.
Avec votre idée j'ai pensé à contourner l problème en transmettant data du texts sur listbox et puis vers database.
Malheureusement je me suis rencontré par ce problème.
Quand je copie les noms des élèves qui son affichées sut le text , ils s'affichent horizontalement. Y'a t-il un moyen pour les afficher verticalement.


Merci

[l_autodidacte]

L'écriture directe dans ListBox ne peut se faire que si on tape un seul caractère, sinon le chemin est un peu long(pour écrire plus d'un caractère)
Le reste est expliqué dans Form1

[zidane22]

L'écriture directe dans ListBox ne peut se faire que si on tape un seul caractère, sinon le chemin est un peu long(pour écrire plus d'un caractère)
Le reste est expliqué dans Form1

Than you man
You're very generous
Thanks a million

[l_autodidacte]

A propos des caractères qui apparaissent comme les lettres arabes sj(ج سـ) : Ton système est sûrement BIDI(Arabe-Français), le retour chariot est traduit par le système en ces caractère(ج سـ)

[iclic]

Bonjour,

Et pourquoi ne pas utiliser des Combobox où on peut écrire?

[zidane22]

A propos des caractères qui apparaissent comme les lettres arabes sj(ج سـ) : Ton système est sûrement BIDI(Arabe-Français), le retour chariot est traduit par le système en ces caractère(ج سـ)

merci l_autodidacte pour la remarque
et que dois-je faire pour se débarrasser de ces caractère?

[zidane22]

Bonjour,

Et pourquoi ne pas utiliser des Combobox où on peut écrire?

Merci pour l'idée

[l_autodidacte]

et que dois-je faire pour se débarrasser de ces caractère?

C'est déjà écrit dans la procédure

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 And Text2.Text <> "" Then
      List1.AddItem Replace(Text2.Text, vbNewLine, "")
      Text2.SelStart = 0
      Text2.SelLength = Len(Text2.Text)
      Text2.SelText = ""
   End If
End Sub

Dans la ligne 3 : Replace(Text2.Text, vbNewLine, "") remplace tout retour chariot par un caractère nul(chaine vide)

[zidane22]

l_autodidacte
Tout est résolu
Merci beaucoup

[ProgElecT]

Salut
Histoire de pinailler

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 And Text2.Text <> "" Then
      List1.AddItem Replace(Text2.Text, vbNewLine, "")
      'Text2.SelStart = 0
      'Text2.SelLength = Len(Text2.Text)
      'Text2.SelText = ""
      Text2.Text = ""
   End If
End Sub

[l_autodidacte]

Salut ProgElecT

Parfois quand on écris, on a la tête ailleurs.

En effet ce que tu proposes est plus concis.