bonjour. j'ai un probleme ou je m'arrache les cheveux...
je selectionne un enregistrement dans un premier formulaire.
quand je clique sur OK, ca ouvre un deuxieme formulaire avec comme enregistrement actif, celui selectionner dans le premier formulaire.
le deuxieme formulaire est tout bete et est basé sur une table.
dans cette table est stocké un champ (TLTX60) dasn lequele est stocké le chemin d'un fichier texte.
dans ce meme formulaire, il y a une fenetre texte dans l'aquelle je veux afficher le contenu du fichier texte plus haut.
le probleme est qu edans ce second formulaire, ca ouvre bien un champs texte, mais seulement du premier enregistrement.
si je selectionne le 5eme, les données du formulaires seront bien du 5eme sauf pour le fichier texte ou ca sera le 1er...
qqun a une idée?
Mes codes sont les suivant...
Ouverture du 2nd formulaire par le premier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Dim stDocName As String Dim stLinkCriteria As String stDocName = "MAJ_reclamation_en_attente_2" stLinkCriteria = "[Numéro]=" & Me![Modifiable5] DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, "MAJ_reclamation_en_attente"
Si je ferme pas le premier formulaire ca marche pas non plus...
a l'ouverture du second formulaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Form_Open(Cancel As Integer) Texte25.Value = " " Dim fs, f 'affiche...' Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(Form_MAJ_reclamation_en_attente.TLTX60, ForReading, TristateFalse) Do While f.AtEndOfStream <> True Texte25.Value = Texte25.Value & f.ReadLine & vbCrLf Loop f.Close End Sub
Partager