Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Screen.ActiveControl.Name o tag

41 views
Skip to first unread message

francode...@gmail.com

unread,
Mar 4, 2016, 5:11:24 AM3/4/16
to
ciao a tutti


anzichè utilizzare la funzione
givemenamecontrol = Screen.ActiveControl.Name
in questo codice

posso utilizzare la proprietà tag?
se si, come?

grazie

If givemenamecontrol = "PRESSO" And _
Len(Forms("M_ConfermaC")!CboTraspVarie & vbNullString) <> 0 Then
Me.Recordset.FindFirst "IdTraspVarie = " & Forms("M_ConfermaC")!CboTraspVarie
else
Me.Recordset.FindFirst "IdTraspVarie = " & Forms("M_ConfermaC")!CboTrasportatore

End If

Karl Donaubauer

unread,
Mar 4, 2016, 5:23:09 AM3/4/16
to
Salve,

Francodellavalle4 ha scritto:
> anzichè utilizzare la funzione
> givemenamecontrol = Screen.ActiveControl.Name
> in questo codice
>
> posso utilizzare la proprietà tag?
> se si, come?

Screen.ActiveControl.Tag

--
Ciao
Karl
*********
Access FAQ: http://www.donkarl.com/it

francode...@gmail.com

unread,
Mar 4, 2016, 8:21:25 AM3/4/16
to
grazie Karl

ho provato cosi ma non va bene,
dove sbaglio?

If Aperta("M_ConfermaC") Then

If Screen.ActiveControl.Tag = "Presso" And _
Len(Forms("M_ConfermaC")!CboTraspVarie & vbNullString) <> 0 Then
Me.Recordset.FindFirst "IdTraspVarie = " & Forms("M_ConfermaC")!CboTraspVarie
Else
Me.Recordset.FindFirst "IdTraspVarie = " & Forms("M_ConfermaC")!CboTrasportatore

End If

else
ecc.

@Alex

unread,
Mar 4, 2016, 8:54:32 AM3/4/16
to
Facciamo alcune domande tecniche

Dove NON VA BENE....?
Hai fatto DEBUG...?
Ottieni un errore...?
Quale...?
Dove, in che riga...?
Che valore assumono le variabili...?
Perchè non controlli con NoMatch se esiste il Record che vorresti Puntare...?
Quella Funzione [Aperta...] cosa sarebbe...?

Franco... dai mettici un po del tuo.

@Alex

francode...@gmail.com

unread,
Mar 5, 2016, 5:52:58 AM3/5/16
to
ciao Alex

per aprire la maschera uso doppio click su un'etichetta
dove su tag della medesima ho inserito: Presso.

All'apertura della maschera, dove ho il codice

ho provato con solo
msgbox Screen.ActiveControl.Tag
ma restituisce un messaggio senza alcun valore.


la funzione "Aperta" mi verifica se la maschera è aperta

RobertoA

unread,
Mar 5, 2016, 6:00:17 AM3/5/16
to
A Fra', sei al terzo messaggio e non si e' ancora capito
1- cosa voresti fare (devo fare questo e poi quest'altro..)
2- il perche' non riesci a farlo (mi da' errore 3475 ala riga ....)
Se vuoi aiuto, devi descrivere per bene bene bene almeno queste due cose

francode...@gmail.com

unread,
Mar 5, 2016, 6:01:54 AM3/5/16
to
ho notato che tag con l'etichetta non funziona,
mentre se la trasformo in casella di testo
funziona.
Perchè?
grazie
0 new messages