[γιώργοςΚ]

Καλησπέρα Γιώργο,

Έχω δοκιμάσει την λύση που προτείνεις και αντιμετωπίζω ένα μικρό πρόβλημα. Εφόσον ανοίξει η φόρμα frmStart η οποία περιέχει τον κώδικα ελέγχου εάν υπάρχει το text file, μου βγάζει ένα InputBox το οποίο θέλω να απαληφθεί...

Δοκιμασα να κάνω μια μετρτοπή στον κώδικα διαγράφωντας το κομματι του κώδικα που σχετίζεται με το InputBox και βάζωντας στην θέση του να ενημερώνεται απο ένα unbound που έβλα στην φόρμα αλλά, αν και τρέχει ο κώδικας, πηγαίνει και μου βάζει εκατοντάδες στοιχεία μέσα στο αρχείο Test.txt.....

Τι κανω λάθος Γιώργο?

Παραθέτω τον κώδικα με την μετατροπή που έκανα

Sub CreateTextFile(sFile As String)
Dim nFile As Integer, sNum As String

'Ο επόμενος ελεύθερος αριθμός για ταυτότητα αρχείου
nFile = FreeFile

'Άνοιγμα αρχείου για εγγραφή δεδομένων
Open sFile For Output As #nFile

Do
sNum = Forms!StartForm.CurrentSVN


If sNum = "" Then
Exit Do
Else
Print #nFile, "" & sNum & ""
End If
Loop

Close #nFile

End Sub