[Access97] Moduli di classe : Riconoscimento campidi una maschera

[Elena78]

Perchè se all'interno di un modulo di classe inserisco un campo di testo della form richiamata Access non lo riconosce e mi ritorna errore 'Variabile non definita'?

Ho creato questa subroutine sull'evento change del campo TxtObliteratrice
In questa subroutine voglio che al change del campo TxtObliteratrice la query ne recuperi il dato e valorizzi il campo 'TxtBus' con il vaore recuperato dalla select.
Solo che all'esecuzione del debug mi da errore su riga :
TxtBus.Text = strSqlOrig
indicandomi 'Variabile non definita su'TxtBus.Text'

Per quale motivo??
Dov'è lo sbaglio?

Questa è la subroutine:


Private Sub TxtObliteratrice_Change()
Dim VObliteratrice As String
Dim strSqlOrig As String
Dim VBusAttuale As String
Dim frm As Form
DoCmd.OpenForm "Maschera1"
Set frm = Forms!Maschera1

'Maschera1.Visible = True
'Maschera1.Caption = "Nuovi impiegati"

TxtObliteratrice.SetFocus
VObliteratrice = TxtObliteratrice.Text
strSqlOrig = ""
strSqlOrig = strSqlOrig & "SELECT BusAttuale "
strSqlOrig = strSqlOrig & " FROM Tabella1"
strSqlOrig = strSqlOrig & " WHERE Data =(SELECT Max(Data) FROM TABELLA1 WHERE OBLITERATRICE='" & VObliteratrice & "'"
VBusAttuale = strSqlOrig
TxtBus.Text = strSqlOrig
End Sub

Grazie,

[xegallo]

perché TxtBus è membro di un form
se all'esterno del form vuoi riferirti ad un membro di esso devi specifcare a chi appartiene

ovvero Maschera1.TxtBus

[Elena78]

Originariamente inviato da xegallo
perché TxtBus è membro di un form
se all'esterno del form vuoi riferirti ad un membro di esso devi specifcare a chi appartiene

ovvero Maschera1.TxtBus

Se scrivo così mi dice che Maschera1 non è una variabile definita... eppure l'ho dichiarata quà:

Private Sub TxtObliteratrice_Change()
Dim VObliteratrice As String
Dim strSqlOrig As String
Dim VBusAttuale As String

Dim frm As Form
DoCmd.OpenForm "Maschera1"
Set frm = Forms!Maschera1
'Maschera1.Visible = True
'Maschera1.Caption = "Nuovi impiegati"

TxtObliteratrice.SetFocus
VObliteratrice = TxtObliteratrice.Text
strSqlOrig = ""
strSqlOrig = strSqlOrig & "SELECT BusAttuale "
strSqlOrig = strSqlOrig & " FROM Tabella1"
strSqlOrig = strSqlOrig & " WHERE Data =(SELECT Max(Data) FROM TABELLA1 WHERE OBLITERATRICE='" & VObliteratrice & "'"
VBusAttuale = strSqlOrig

Maschera1.TxtBus
TxtBus.Text = strSqlOrig
End Sub

[xegallo]

scusa non ho access sottomano prova
sostituisci

Maschera1.TxtBus
TxtBus.Text = strSqlOrig

con

frm.TxtBus.Text = strSqlOrig

[Elena78]

Originariamente inviato da xegallo
scusa non ho access sottomano prova
sostituisci

Maschera1.TxtBus
TxtBus.Text = strSqlOrig

con

frm.TxtBus.Text = strSqlOrig

non da piu errore.
E' gia un primo passo.
Thanks