+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 10 su 10

Discussione: Modifica contemporanea record

  1. #1
    WEM
    WEM non è in linea Scolaretto
    Post
    186

    Modifica contemporanea record

    Sia pure avendo chiuso le Form e le Tabelle/Query prima dell'apertura di una maschera di immissione, quando da questa tento di modificare i dati compare il seguente messaggio:

    "Durante la corrente sessione di modifica il record è stato modificato da un altro utente. Salvando le proprie modifiche si sovrascriveranno i cambiamenti dell’altro utente.
    Seguono i tre bottoni: Salva il Record, Copia negli Appunti, Non salvare le Modifiche."

    Cos'altro debbo chiudere per evitare questo accesso contemporaneo ed il fastidio del conseguente messaggio?

    Altrimenti, visto che rispondendo "Salva Record" il processo di aggiornamento esegue regolarmente le istruzioni, c'e un modo per rispondere affermativamente alla richiesta del messaggio ma all'interno di un codice?
    Grazie !

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Moderatore Globale
    Luogo
    Aosta
    Post
    7,571
    è strano questo messaggio.
    Controlla le impostazioni di access
    Strumenti -> opzioni
    Scheda Modifica
    (Rettangolo conferma)
    Deflegga Query di comando.
    Questi fleg in questo rettangolo gestiscono i messaggi di conforma.

    Se non è questa la soluzione, mi descrivi per intero cosa fa la maschera e da cosa è costituita, contiene codici??

    Ciao

  3. #3
    WEM
    WEM non è in linea Scolaretto
    Post
    186
    Tenterò di esplicitare gli elementi utili. Grazie !

    Form: F_Dettagli
    Su Query: Q_DettaglioMatr
    Private Sub Valutazioni_Click()

    Dim stName As String
    Dim stLinkCriteria As String
    stName = "F_Valutazioni"
    Dim V_Matr As String
    V_Matr = Me!Matricola

    Dim dbs As Database, rst As Recordset
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("T_IndicatProfess", dbOpenTable)
    rst.Index = "IDMatricola"

    DoCmd.OpenForm stName, acNormal, , stLinkCriteria
    Dim Controllo As String
    Controllo = "0"
    rst.MoveFirst

    Do Until rst.EOF
    If rst.Fields("Matricola") = V_Matr Then
    Controllo……
    End If

    rst.MoveNext
    Loop

    DoCmd.Close acForm, ("F_Dettagli")
    DoCmd.Close acQuery, ("Q_DettaglioMatr")

    DoCmd.OpenForm ("F_Valutazioni"), acNormal, , "Matricola = " & V_Matr

    Uscita:
    rst.Close
    End Sub



    Form: F_Valutazioni
    Su Tabella: T_IndicatProfess

    V_Matr = Matricola
    Dim dbs As Database, rst As Recordset
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("T_IndicatProfess", dbOpenTable)
    rst.Index = "IDMatricola"
    rst.MoveFirst
    Dim V_AnzTOTPeso As Integer
    Dim V_ProfTOTPeso As Integer
    Dim V_ColTOTPeso As Integer

    Do Until rst.EOF
    If rst.Fields("Matricola") = V_Matr Then
    ' MsgBox (" Ho trovato la Matr. " & Matricola & " " & V_pesoAnz & " ") '& PesoAnz
    rst.Edit
    rst![PesoAnz] = V_pesoAnz
    etc………………
    rst.Update

    QUI COMPARE IL MESSAGGIO
    End If

    rst.MoveNext
    Loop

    DoCmd.Save
    DoCmd.Close

  4. #4
    L'avatar di dragone bianco
    dragone bianco non è in linea Moderatore Globale
    Luogo
    Aosta
    Post
    7,571
    Prova a mettere
    codice:
    Set rst = dbs.OpenRecordset("T_IndicatProfess")
    invece di

    codice:
    Set rst = dbs.OpenRecordset("T_IndicatProfess", dbOpenTable)
    Ciao

  5. #5
    WEM
    WEM non è in linea Scolaretto
    Post
    186
    Ho il medesimo risultato con tutte e due le stringhe.
    Mi potresti dare un'occhiata all'ordinamento
    ' Me.OrderBy = TOTALE & " " & "ASC"
    ' Me.OrderBy = "TOTALE"
    ' Me.OrderBy = "TOTALE" & Asc
    ' Me.OrderBy = "TOTALE" & "Asc"
    ' Me.OrderBy = "TOTALE" & " " & "ASC"
    ' Me.OrderBy = TOTALE & "DESC"
    ' Me.OrderBy = "TOTALE" & "Asc"
    ' Me.OrderByOn = True
    ' Me.OrderBy = "TOTALE DECR"
    Me.OrderBy = "TOTALE"
    Me.OrderByOn = True
    Ho tratto le istruzioni dal forum ("Ordinamento record" BornsLippy). A me serve un ordinamento decrescente.
    l'istrizione Asc viene riconosciuta perché la a diventa subito maiuscola; ma non riesco a trovare una valore per Decrescente.
    Grazie !

  6. #6
    L'avatar di dragone bianco
    dragone bianco non è in linea Moderatore Globale
    Luogo
    Aosta
    Post
    7,571
    Quote Originariamente inviato da WEM
    ' Me.OrderBy = "TOTALE DECR"
    ci sei andato vicino è Desc
    un trucchetto crea una query (con la paramettrizazione che ti serve) dopo in visualizzazione struttura vai su VIsualizza-> Visualizzazione SQL.
    così Vedi il codice sql della query.

    Ciao

  7. #7
    WEM
    WEM non è in linea Scolaretto
    Post
    186
    Con Me.OrderBy = "TOTALE DECR", La risposta è: Immettere il valore del parametro !!!
    Ci sono speranze ?
    Ciao !

  8. #8
    L'avatar di dragone bianco
    dragone bianco non è in linea Moderatore Globale
    Luogo
    Aosta
    Post
    7,571
    codice:
    SELECT Tabella1.ID, Tabella1.Testo, Tabella1.Totale
    FROM Tabella1
    ORDER BY Tabella1.Totale DESC;
    Questo è il codice sql per aprire una tabella di nome Tabella1
    Visualizzare i campi
    ID
    Testo
    Totale

    E mettere in ordine decrescente per i valori di totale.

    Ciao

  9. #9
    Post
    1
    Scusate ho lo stesso problema della messaggio di conferma per la modifica di un record. Non sono riuscito a trovare una soluzione finale. Mi potete aiutare

    Grazie

  10. #10
    L'avatar di @Alex
    @Alex non è in linea Very Important Person
    Post
    11,740
    Quote Originariamente inviato da giuliano.manfredini Visualizza il messaggio
    Scusate ho lo stesso problema della messaggio di conferma per la modifica di un record. Non sono riuscito a trovare una soluzione finale. Mi potete aiutare

    Grazie

    Non dici quale versione di Access stai usando ma questo problema accade spesso in caso di qualche errore di sviluppo del DB nel caso di LINKED_TABLE, altra cosa che non hai detto...

    Nel tuo caso specifico non saprei aiutarti, ma valuta bene l'apertura di una Query, soprattutto se questa può essere origine dati diretta(o indiretta) di una Form ...!

    Normalmente questa anomalia avviene proprio in casi di involontario accesso al Dataset con procedure un pò forzate... magari via codice mentre sono aperte tabelle o query o form...!

    Non sò darti la soluzione ma ti suggerisco solo di rivedere meglio quella procedura abbastanza contorta di accesso a varie Tabelle con i Recordset, che non sempre chiudi e non capisco bene che contemporaneità possono avere le aperture... in ogni caso sembra un pò arzigogolato...!

    Saluti
    @Alex
    Il CROSSPOST è VIETATO
    Mirror al vecchio sito WEB(salvare i Demo riassegnando l'estensione (.Zip/.Rar/.Exe in base all'icona...):
    http://mirror.masterdrive.it/alessandrobaraldi/
    Leggi il
    Regolamento del Forum e nel comprenderne la filosofia rispettalo.

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi