Probleme de recupération/comparaison de valeurs

Question

Bonjour nous sommes deux &#233;tudiants qui galerent sur un projet en vb, celui-ci consiste &#224; faire un programme de gestion de notes.
Nous rencontrons le probleme suivant, impossible de r&#233;cup&#233;rer la cl&#233; d'un enregistrement dans un fichier txt en acces direct. Nous tentons de r&#233;cuperer celle -ci  en comparant les valeurs contenues dans deux combo &#224; celles de chaque enregistrement dans le fichier pour que quand il y est une correspondance entre ces deux champs et la valeur des combos, une variable recupere la valeur du premier de l'enregistrement concern&#233;.

voici le code :

Private Sub btn_ajout_eleve_enregistrer_Click()
Dim ajt_elv As eleve
Dim cpteur As Integer
Dim chr_classe As classe
cpteur = 0
Dim num_classe_cherche As String
Dim long_ddn As Integer

long_ddn = Len(ajout_eleve_ddn)

If long_ddn <> 8 Or ajout_eleve_ddn = "JJ/MM/AA" Then
    MsgBox ("Veuillez respecter le format de la date de naissance!")
End IfIf text_ajout_eleve_nom "" Or text_ajout_eleve_prenom "" Or combo_ajout_eleve_classe = "" Or combo_ajout_eleve_periode = "" Or ajout_eleve_ddn = "" Then
    MsgBox ("Vous devez remplir tous les champs!!")
Else
    
    Open App.Path & "\data\classes.txt" For Random As #1 Len = Len(ajt_cla)
        cpteur = LOF(1) / Len(ajt_cla)
        Dim count As Integer
        count = 0
        While Not EOF(1)
            count = count + 1
            Get #1, count, ajt_cla            If combo_ajout_eleve_classe chr_classe.nom_classe And combo_ajout_eleve_periode chr_classe.annee_classe Then
                 num_classe_cherche = chr_classe.num_classe
            End If
        Wend
    Close #1
    
    
    Open App.Path & "\data\eleves.txt" For Random As #1 Len = Len(ajt_elv)
        cpteur = (LOF(1) / Len(ajt_elv)) + 1
        ajt_elv.num_eleve = cpteur
        ajt_elv.nom_eleve = text_ajout_eleve_nom
        ajt_elv.pren_eleve = text_ajout_eleve_prenom
        ajt_elv.ddn_eleve = ajout_eleve_ddn
        ajt_elv.num_classe_eleve = Val(num_classe_cherche)
        Put 1, cpteur, ajt_elv
    Close #1
End If

End Sub

et le type structure employ&#233; :

Public Type classe
num_classe As Integer
nom_classe As String * 5
annee_classe As String * 9
End Type

voila, si qqun pouvait nous aider ??

merci d'avance  julien et tristan

cs_Stephane33 · Answer

il ne manque pas les propri&#233;t&#233;s de tes contr&#244;les...
combo_ajout_eleve_periode.text
.....
Juste faites-le

psykoman7 · Answer

oula nan a priori ce n'est pas le pbm, merci quand meme !!

Probleme de recupération/comparaison de valeurs

2 réponses

Discussions similaires