Newsgroup: it.comp.appl.access
Titolo: disabilitare pulsante su verifica dati

Salve avrei un quesito, in una maschera dovrei abilitare o meno 2
pulsanti a seconda che 2 caselle di testo siano o meno vuote.
All'inizio avevo la necessità che questo accadesse solo per una
casella ed ho adottato questo codice:
Private Sub Form_Current()
If IsNull([codice fiscale]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
End If
End Sub
Il problema è che devo fare lo stesso controllo sia sul campo codice
fiscale che su cap.
Ho provato:
Private Sub Form_Current()
If IsNull([codice fiscale]) or ([cap]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
End If
End Sub
purtroppo niente da fare ... con 2 controlli sull'if non riesco
(scusate la niubbaggine)
Qualcuno può farmi capire dove sbaglio?
Grazie

news:84aaa8fa-e6c5-416e...@d4g2000prg.googlegroups.com...

Ciao gog,
se vuoi disabilitare il pulsante quando uno dei due controlli è Null 
allora:
Private Sub Form_Current()
If IsNull([codice fiscale]) or isnull([cap]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
End If
End Sub
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
---------------------------------------- 


wrote:

Grazie Cinzia , avevo risolto anche io in tal modo guardando il NG:
Private Sub Form_Current()
If IsNull([codice fiscale]) Or IsNull([cap]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
   Else
   Me.Refresh
   Me.Comando68.Enabled = True
   Me.Comando70.Enabled = True
End If
Ora però ho una piccola variante ... dovrei fare capire ad access che
" se il codice fiscale ed il cap sono nulli, allora mi deve
disabilitare il pulsante ( e qui ci siamo) " ma dovrei anche fargli
capire che " se il codice fiscale è nullo ma se partita iva non lo è ,
allora deve abilitarmi i pulsanti"
Stavo provando con qualcosa del genere:
Private Sub Form_Current()
If IsNull([codice fiscale]) Or IsNull([cap]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
   Else
   Me.Refresh
   Me.Comando68.Enabled = True
   Me.Comando70.Enabled = True
End If
   If IsNull([codice fiscale]) And > 0 ([partitra iva]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
   Else
   Me.Refresh
   Me.Comando68.Enabled = True
   Me.Comando70.Enabled = True
End If
End Sub
sono un autodidatta con VB per cui son sicuro che leggere questo
codice vi farà inorridire :)
Grazie a tutti in anticipo


scusate con la fretta avevo sbagliato codice.. ecco quello che sto
usando ma che comunque non riesco a far funzionare:
Private Sub Form_Current()
If IsNull([codice fiscale]) Or IsNull([cap]) Then
   Me.Refresh
   Me.Comando68.Enabled = False
   Me.Comando70.Enabled = False
   Else
   Me.Refresh
   Me.Comando68.Enabled = True
   Me.Comando70.Enabled = True
End If
   If Not IsNull([codice fiscale]) And IsNull([partitra iva]) Then
   Me.Refresh


 End Sub
-- 
Ciao
Geppo 


Scusami ma il primo IF funziona , è il secondo controllo che non và.
Se il campo codice fiscale è vuoto ma il campo partita iva non lo è  ,
allora deve abilitare i pulsanti ( a proposito, se cap è vuoto prende
le istruzioni del 1° if? )
grazie.

 grazie.
prova in questo modo:
private sub form_current()
Comando68.Enabled = IsNull(telef) Or IsNull(cognome)
Comando70.Enabled = IsNull(telef) Or IsNull(cognome)
-- 
Ciao
Geppo 


Mi da errori di fine istruzione .. in effetti non vedo il "enabled" o
"true"


Il true lo restituisce     "IsNull"
Comunque, se ti puo servire a capire,  puoi dare un occhiata a questo 
esempio:
http://www.divshare.com/download/3379740-bf5
-- 
Ciao
Geppo 


Io uso Access 97 , tu con quale versione lo hai fatto ? non me lo
apre ..
Mentre ci sono , posso chiedere qui per un problema su una
sottomaschera che dovrebbe diventare "enabled= false" se un campo è
vuoto?
ho il codice , ma non va .. lo ho provato su un db nuovo con una form
nuova e li va ... non capisco cosa nella maschera possa inibire il mio
codice:
Private Sub Form_Open(Cancel As Integer)
If IsNull([causale ddt]) Then
   Me.Refresh
   Me.sottomaschera_new_batt.Enabled = False
   Else
   Me.Refresh
   Me.sottomaschera_new_batt.Enabled = True
End If
End Sub

 End Sub
Per questo vedi la risposta di Gabriele Bertolucci  che ti ha dato 
dell'altro post.
-- 
Ciao
Geppo 


Perfetto , ora devo solo risolvere l'altro :)
grazie