Bonjour,
Je suis actuellement en train de finaliser un projet, aujorud'hui, j'arrive, sans problemes, à acceder aux données du formulaire principal.
Pour ce qui est des donnees du sous formulaire, je n'arrive qu'à avoir le premier enregistrement.
Donc Question: Comment faire "enregistrement suivant" pour ce nouveau formulaire.
Voici le code que j'utilise aujourd'hui:
Dim i, column, row, length As Long
Dim temp As Variant
Dim code_text As Variant
Dim varcondition, varcode, varcommentaire As Variant
DoCmd.OpenForm "observations", acNormal
DoCmd.SelectObject acForm, "observations", True
length = 4
row = 26
i = 0
For i = 0 To 26
varcode = Forms![observations]![code]
varcommentaire = Forms![observations]![commentaire]
varcondition = Forms![observations]![Condition]
temp = Left(code_text, length)
appexcel.Range("C" & row) = code_text & " : " & varcommentaire & " / " & varcondition
appexcel.Range("B" & row) = temp
i = i + 1
row = row + 1
Next
Merci pour vos reponses
A biento, je l'espere
Partager