Me.AllowEdits non funziona sempre

di
lucavalentino
il
8 risposte
L
lucavalentino
Utente Attivo
Iscritto da
apr, 2022
Messaggi:
175

Me.AllowEdits non funziona sempre

Sto tentando di rendere una maschera inizialmente non modificabile, ma non sempre funziona-
Quali cause potrebbero essere 
Private Sub Form_Current()
If Me.Dirty Then Me.Dirty = False
Me.AllowEdits = False
......

8 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8743

    Re: Me.AllowEdits non funziona sempre

    Cosa significa non funziona sempre...?
    Innanzitutto metti la proprietà Consentì Modifiche a False nella maschera delle proprietà.
    Poi spiega quando non funziona... e come si comporta, su Current devi anche valutare il NewRecord...
  • L
    lucavalentino
    Utente Attivo
    Iscritto da
    apr, 2022
    Messaggi:
    175

    Re: Me.AllowEdits non funziona sempre

    Ho messo l'impostazione Me.AllowEdits = False su open, current, ma continuo a poter modificare qualche volta si altre no.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8743

    Re: Me.AllowEdits non funziona sempre

    Il codice su OPEN non serve a NULLA ti ho detto di impostare a NO la proprietà Consenti Modifiche così senza codice fa già tutto, poi serve capire come abiliti la modifica... e, come gestisci il Salva/Undo perché mentre sei in edit probabilmente qualche cosa fa fallire il codice in Current.
  • L
    lucavalentino
    Utente Attivo
    Iscritto da
    apr, 2022
    Messaggi:
    175

    Re: Me.AllowEdits non funziona sempre

    La routine comoleta 
    Private Sub Form_Current()
    campo 'trami un cliclo e ctl.tag rendo visibile dei dati a condixone
    dati 'recuperare dati da una tavella inbase al calore diun determinato campo
On Error GoTo Predefinito
    Dim sNomeFileImg As String
    
    sNomeFileImg = "M:\Foto" & Trim(Me![id]) & ".jpg"
    Me![Img].Picture = sNomeFileImg
    Exit Sub
    
Predefinito:
    sNomeFileImg = "C:\foto\id.jpg"
    Me![Img].Picture = sNomeFileImg
 '   DoCmd.OpenForm "frmStudenti", acNormal, "", "", acEdit, acNormal
 If Me.Dirty Then Me.Dirty = False
Me.AllowEdits = False
End Sub
  • P
    Philcattivocarattere
    Utente Famoso
    Iscritto da
    giu, 2014
    Messaggi:
    2250

    Re: Me.AllowEdits non funziona sempre

    lucavalentino ha scritto:

    La routine comoleta...
    Ma cosa dovrebbe fare quella routine?
    Ci sono le prime due righe con scritto campo e dati che non si sa cosa facciano, se non l'indicazione con i commenti.
    Poi popoli la picture box in un modo tutto lasciando un'immagine di default in caso di errore!
    Verifica prima se la foto esiste, guardando con Dir se a quel path corrisponde davvero un file.
    Nonché tutto quello che avviene dopo l'etichetta [Predefinito:] ovviamente avviene (per come l'hai scritta) se si verifica un errore prima.
    Per me incomprensibile.
  • L
    lucavalentino
    Utente Attivo
    Iscritto da
    apr, 2022
    Messaggi:
    175

    Re: Me.AllowEdits non funziona sempre

    Philcattivocarattere ha scritto:

    lucavalentino ha scritto:

    La routine comoleta...
    Ma cosa dovrebbe fare quella routine?
    Ci sono le prime due righe con scritto campo e dati che non si sa cosa facciano, se non l'indicazione con i commenti.
    La funzione campo fa visualizzare determinati campi a determinate condizioni.
    La funzione dati se un capo ha un determinato valore recuperare dati da una tabella altrimenti da un'altra

    Philcattivocarattere ha scritto:

    lucavalentino ha scritto:

    La routine comoleta...
    Poi popoli la picture box in un modo tutto lasciando un'immagine di default in caso di errore!
    Verifica prima se la foto esiste, guardando con Dir se a quel path corrisponde davvero un file.
    Nonché tutto quello che avviene dopo l'etichetta [Predefinito:] ovviamente avviene (per come l'hai scritta) se si verifica un errore prima.
    Per me incomprensibile.
    Incomprensibile in che senso
  • P
    Philcattivocarattere
    Utente Famoso
    Iscritto da
    giu, 2014
    Messaggi:
    2250

    Re: Me.AllowEdits non funziona sempre

    lucavalentino ha scritto:

    Incomprensibile in che senso
    Per come è fatta e che cosa ti aspetti che faccia.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8743

    Re: Me.AllowEdits non funziona sempre

    Scusa ma l'exit sub subito dopo la gestione foto non va bene... se trova l'immagine è non genera errore non esegue la parte dei permissivi ecco perché alcune volte funziona...

    Sei certo sia la logica corretta...?
Devi accedere o registrarti per scrivere nel forum
8 risposte