[kapetang]

Καλησπέρα

Άλλαξε τη δήλωση: Dim X As String

σε: Public X As String

Προσοχή:
Αυτό θα δημιουργήσει προβλήματα, αν υπάρχουν δηλωμένες και άλλες μεταβλητές X στο Module.

Επίσης αν γίνει μεταβολή της τιμής του X έξω από τη συνάρτηση SetValuesFromForm, θα μεταβληθεί και μέσα σ' αυτή.

Το καλύτερο είναι να παίρνουμε την τιμή με μια συνάρτηση τύπου:

Public Function GetValuesFromForm()
Dim X As String

X= Forms!Form1.TextField1
GetValuesFromForm=X
End Function

y=GetValuesFromForm()

Το y θα είναι ίσο με X