Bonjour nous sommes deux étudiants qui galerent sur un projet en vb, celui-ci consiste à faire un programme de gestion de notes.
Nous rencontrons le probleme suivant, impossible de récupérer la clé d'un enregistrement dans un fichier txt en acces direct. Nous tentons de récuperer celle -ci en comparant les valeurs contenues dans deux combo à 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é.
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 If
If 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é :
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