Newsgroup: it.comp.appl.access
Titolo: Codice che chiude la maschera ( E NON DEVE FARLO!!!!!)

Ciao, ho delle maschere continue dove consento l'immissione di nuovi
record (CAMBIERO' DECISAMENTE QUESTA IMPOSTAZIONE), e faccio dei
controlli sul valore del campo Nome dei record inseriti; il codice è
il seguente:
Private Sub NomeAgenzia_Exit(Cancel As Integer)
DoCmd.SetWarnings False
If Not IsNull(NomeAgenzia) Or (NomeAgenzia <> "") Then
    Me![NomeAgenzia] = StrConv(Me![NomeAgenzia], vbProperCase)
Else
    If MsgBox("Annullare inserimento di una nuova agenzia?", vbQuestion
+ vbYesNo, "Inserimento nuova agenzia") = vbYes Then
        Me.Undo
    Else
        MsgBox "Inserire un nome valido per l'agenzia", vbInformation,
"ATTENZIONE"
        NomeAgenzia.SetFocus
    End If
End If
End Sub
1. a parte che il setfocus mi viene ignorato ma ora indipendentemente
se clicco SI o NO la maschera mi si chiude.
Questo codice l'ho riciclato anche per le altre maschere continue, con
gli opportuni riferimenti e anche quelle si chiudono.
Dove erro??
Grazie :)

 ha scritto nel messaggio
news:1118242367.7...@f14g2000cwb.googlegroups.com...




Dove erro??
Grazie :)
Devi annullare la variabile Cancel per non chiudere la Form
Private Sub NomeAgenzia_Exit(Cancel As Integer)
If Not IsNull(NomeAgenzia) Or (NomeAgenzia <> "") Then
    Me![NomeAgenzia] = StrConv(Me![NomeAgenzia], vbProperCase)
Else
    If MsgBox("Annullare inserimento di una nuova agenzia?", vbQuestion
+ vbYesNo, "Inserimento nuova agenzia") = vbYes Then
        Me.Undo
    Else
        MsgBox "Inserire un nome valido per l'agenzia", vbInformation,
"ATTENZIONE"
        Cancel=true
        NomeAgenzia.SetFocus
    End If
End If
End Sub
Adesso ho messo il Cancel=True nella condizione NO poichè non si capisce
se si deve chiudere su NO o su SI, eventualmente spostalo.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Ah, grazie Ale ;)

Ops....scusa mi son dimenticato: la maschera non deve chiudersi
affatto....deve restare aperta cmq. Quindi devo mettere Cancel = true
su tutte e due le condizioni?
P.S. sto andando a cena fuori. se riesco mi infilo in un internet point
dopo cena sennò a domani!!!
Buona serata a te e a tutto il ng!!!!!!

 ha scritto nel messaggio
news:1118258976....@g44g2000cwa.googlegroups.com...
Ops....scusa mi son dimenticato: la maschera non deve chiudersi
affatto....deve restare aperta cmq. Quindi devo mettere Cancel = true
su tutte e due le condizioni?
SI.
P.S. sto andando a cena fuori. se riesco mi infilo in un internet point
dopo cena sennň a domani!!!
Buona serata a te e a tutto il ng!!!!!!
Scusa ma se non deve chiudersi perchč non togli il pulsante di chiusura...?


....ma non è il pulsante di chiusura....è l'evento EXIT di una
casella di testo.
Praticamente la logica ERA (perchè ho riprogettato il tutto):
1. apri la maschera ed il focus va sul nome dell'azienda.
2. se con la tabulazione premi INVIO e mandi il focus altrove ti viene
chiesto 'se desideri annullare l'inserimento di un nuovo record'
però mi son reso conto che era un'implementazione assurda già a
livello logico percui ho riprogettato il tutto creando una maschera
apposita per l'inserimento di nuove voci e gestioni varie dei record.
Grazie cmq  :D

 wrote in message
news:1118308361.9...@o13g2000cwo.googlegroups.com

Avevo capito Exit della Form...!
In ogni caso sempre con Cancel=True è la soluzione.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG