Me.AllowEdits non funziona sempre

di il
8 risposte

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

  • 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...
  • 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.
  • 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.
  • 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
    
  • 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.
  • 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
  • Re: Me.AllowEdits non funziona sempre

    lucavalentino ha scritto:


    Incomprensibile in che senso
    Per come è fatta e che cosa ti aspetti che faccia.
  • 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