17-01-16, 15:08
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-04-2013 Περιοχή: Κύπρος
Μηνύματα: 738
| |
Καλησπέρα Γιώργο,
Έχω δοκιμάσει την λύση που προτείνεις και αντιμετωπίζω ένα μικρό πρόβλημα. Εφόσον ανοίξει η φόρμα 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
|