Dim xMatricule As String, xNom, As String, _ xPrenom As String, xService As String, xDiretion As String With rsttable 'on se positionne sur le premier et on sauvegarde. .MoveFirst xMatricule=!matricule xNom=!nom xPrenom=!prenom xService= !service xDirection=!direction 'on passe au suivant .MoveNext While Not .EOF 'on teste if xMatricule=!matricule Then print#1, xMatricule & xNom & xPrenom & _ xService & xDirection & _ !service & !direction Else print#, !matricule & !nom & !prenom & _ !service & !direction End If 'On sauvegarde les champs courants avant de passer à l' enregistrement suivant. xMatricule=!matricule xNom=!nom xPrenom=!prenom xService=!service xDirection=!direction 'on passe au suivant .MoveNext Wend End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question