Newsgroup: it.comp.appl.access
Titolo: Funzione valida per molti pulsanti...

Ok, il subject non è il massimo della comprensibilità ma in pochi
caratteri...
Praticamente ho una maschera con molti pulsanti che aprono tutte le maschere
del db senza vincoli (normalmente si parono dal pannello principale con
controlli impostati via codice).
I pulsanti li ho creati x comodità con l'autocomposizione di A97
Ora vorrei aggiungere nell'evento OnClick di ognuna un codice brevissimo che
richiami ua funzione (a seguire), la quale si deve incaricare di verificare
se il booleano chkPermesso sia spuntato o no, ed in base ad esso dare
facoltà all'utente di manipolare i dati contenuti nella maschera aperta.
Nell'evento onclick aggiungerei qualcosa del tipo
Scelta_Uso (mskURL)
intendendo (in italiano!) che A97 vada a prendersi la funzione Scelta_Uso e
la usi per la maschera mskURL.
La funzione è questa:
Public Function Scelta_Uso(nomeMsk)
Select Case Me!chkPermesso
    Case 0
        Forms!nomeMsk.AllowDeletions = True
        Forms!nomeMsk.AllowEdits = True
    Case -1
        Forms!nomeMsk.AllowDeletions = False
        Forms!nomeMsk.AllowEdits = False
End Select
End Function
ma ho gravi problemi ad impostare la corretta sintassi per fare ciò che ho
pensato: come gliela passo?
--
'--------------------------------------------------------
'Saludos
'--------------------------------------------------------

 pensato: come gliela passo?
Cambia il codice in questo modo:
Public Function Scelta_Uso(nomeMsk as string)
  Select Case Me!chkPermesso
     Case 0
         Forms(nomeMsk).AllowDeletions = True
         Forms(nomeMsk).AllowEdits = True
     Case -1
         Forms(nomeMsk).AllowDeletions = False
         Forms(nomeMsk).AllowEdits = False
 End Select
End Function
Non ho capito perche' hai usato una Function visto che non ritorni niente.
Il codice forse non e' completo?
Dimmi se funge.
Ciao, Antonio.

 ha scritto nel messaggio
news:CqGb9.122606$lu5.3...@twister1.libero.it...

Prima di tutto: questo chkPermesso è :
1- un controllo che c'è in ogni maschera
2- solo nella maschera con i pulsanti
3- Una variabile globale?
Caso 1 la funzione diventa
Public Function Scelta_Uso(nomeMsk)
Select Case Forms(nomeMsk)!chkPermesso
    Case 0
        Forms(nomeMsk).AllowDeletions = True
        Forms(nomeMsk).AllowEdits = True
    Case -1
        Forms(nomeMsk).AllowDeletions = False
        Forms(nomeMsk).AllowEdits = False
End Select
End Function
Caso 2
Public Function Scelta_Uso(nomeMsk)
Select Case Forms!MascheraMenu!chkPermesso
    Case 0
        Forms(nomeMsk).AllowDeletions = True
        Forms(nomeMsk).AllowEdits = True
    Case -1
        Forms(nomeMsk).AllowDeletions = False
        Forms(nomeMsk).AllowEdits = False
End Select
End Function
Caso 3:
Public Function Scelta_Uso(nomeMsk)
Select Case chkPermesso
    Case 0
        Forms(nomeMsk).AllowDeletions = True
        Forms(nomeMsk).AllowEdits = True
    Case -1
        Forms(nomeMsk).AllowDeletions = False
        Forms(nomeMsk).AllowEdits = False
End Select
End Function
E poi richiami questa funzione (perchè funzione?)  nella routine di ogni
pulsante
Ciao, FABIO

 '--------------------------------------------------------
ottimi Fabio e Antonio 
ma allora perche' non 
su onclick = "=scelta_uso('nomemsk')"
e poi 
Public function sceltauso(mskURL)
forms(mskURL).Allodeletions = not chkpermesso
forms(mskURL).AllowEdits = not chkpermesso
end function
;<)
--
a.cara

 Ciao, Antonio.
FUNGE!!!!
Incredibile come le soluzioni per i problemi possano essere semplici!!!
Grazie anche agli altri intervenuti!

 end function
Dipende se ChkPermesso è sempre boolean o può essere anche null (confesso
che come scusa mi è venuta in mente adesso e non quando ho risposto)
Fabio


ciao Fabio
La cosa era semplicemente per "cazzeggiare" poiche' le risposte tue e di
A. Ganci mi sembravano pulite ed esaustive. 
Normalmente le cose che ho scritto poi non le metto in pratica poiche'
in fase di manutenzione, sopratutto se a manutenere non e' l'originale
estensore, alcune volte fanno venire il mal di testa.
C'e' un amico che ancora mi sta cercando per bastonarmi dato che una
volta,
appunto per "cazzeggiare", dovendo dividere per 2 ho fatto uno 
slittamento a dx di un bit
--
a.cara