Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Aggiornare valori di una casella combinata

  1. #1
    CESABAS non è in linea Scribacchino
    Buongiorno, la situazione è questa:

    - ho una query "buoni_non_incassati" che filtra tutti i valori di una tabella "buoni" se il campo "incassato" è nullo o diverso da si
    - da questa query prende i dati una casella di riepilogo "ricevuta".
    - ho un'altra query "buoni_tramite ricevuta" che filtra tutti i valori di "buoni_non_incassati" in base al campo della casella combinata "ricevuta"

    Al verificarsi di un determinato evento in una form contenente la la casella combinata "ricevuta", viene variato il campo "incassato" di un record della tabella "buoni" in SI

    Quindi quel record non ci sarà più nella query "buoni_non_incassati" e dovrebbe non esserci più nella casella di riepilogo "ricevuta" il dato relativo ad esso....invece ce lo trovo ancora. Ho provato con me.ricevuta.requery ma i dati della casella di riepilogo non si aggiornano.
    Come posso ovviare? Grazie

  2. #2
    CESABAS non è in linea Scribacchino
    Ho risolto facendo un doppio requery

  3. #3
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quote Originariamente inviato da CESABAS Visualizza il messaggio
    Ho risolto facendo un doppio requery
    Doppio Requery di cosa...?
    Non è una tecnica consueta fare un doppio Requery, ed assolutamente errata se fosse sullo stesso Oggetto.
    Quindi definire RISOLTO ci sarebbe da capire bene se intendi che hai messo una pezza accrocchiata o meno...!
    ℹ️ Leggi di più su @Alex ...

  4. #4
    CESABAS non è in linea Scribacchino
    ho fatto un doppio requery sulla casella combinata..hai ragione sicuramente ci sarà qualche problema

    Private Sub Comando20_Click()
    Dim codicesql As String
    Dim CODICECANCELLA As String
    Dim Operatore As String
    If IsNull(Me.CasellaCombinata44) Then
    MsgBox ("Seleziona metodo di pagamento")
    Me.CasellaCombinata44.SetFocus
    Else
    Operatore = Me.Operatore.Value
    DoCmd.SetWarnings False

    If Me.Testo61.Value >= 0 And Me.Testo28.Value > 0 And Me.Testo78.Value >= 0 Then
    Forms!m_scarico_magazzino_vendita!Sottomaschera_Qu ery_buoni_tramite_ricevuta!incassato.Value = "si"
    Forms!m_scarico_magazzino_vendita!Sottomaschera_Qu ery_buoni_tramite_ricevuta!idvendita.Value = Me.OPERAZIONE.Value
    ElseIf Me.Testo61.Value > 0 And Me.Testo28.Value > 0 And Me.Testo78.Value < 0 Then
    If MsgBox("Vuoi creare un altro buono per l'importo restante", vbYesNo) = vbYes Then
    Forms!m_scarico_magazzino_vendita!Sottomaschera_Qu ery_buoni_tramite_ricevuta!incassato.Value = "si"
    Forms!m_scarico_magazzino_vendita!Sottomaschera_Qu ery_buoni_tramite_ricevuta!idvendita.Value = Me.OPERAZIONE.Value
    Forms!m_scarico_magazzino_vendita!Sottomaschera_Qu ery_buoni_tramite_ricevuta!residuo.Value = Me.Testo78.Value * -1
    DoCmd.OpenQuery ("crea_nuovo_buono_con_residuo")
    End If
    End If
    Me.CasellaCombinata67.Value = Null
    Me!CasellaCombinata67.Requery
    Me.Sottomaschera_Query_buoni_tramite_ricevuta.Requ ery
    Me!CasellaCombinata67.Requery

    DoCmd.OpenQuery ("Trasferisci_carico_scarico_query_vendita")
    CurrentDb.Execute "DELETE * FROM MOVIMENTI_MAGAZZINO_scarico"
    Me.Sottomaschera_Query_inserimento_prodotti_vendit a.Requery
    MsgBox ("Vendita conclusa")
    Dim opscon As String
    opscon = DLookup("maxdioperazione", "query_scontrino")
    Me.OPERAZIONE.Value = opscon + 1
    Me.CODICE_CLIENTE.SetFocus
    Me.Operatore.Value = Operatore
    Me.CasellaCombinata44.Value = Null
    Me.Testo23.Value = Null
    Me.Testo78.Value = Null
    Me.Testo61.Value = Null
    DoCmd.SetWarnings True
    Me.Testo28.Value = 0
    End If
    End Sub

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Aggiornare da casella combinata
    Da Tachesci nel forum Altri Database Server
    Risposte: 0
    Ultimo Post: 27-08-2019, 21:21
  2. estarre valori da una casella combinata
    Da red_apple nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 26-02-2018, 13:02
  3. Casella combinata con soli due valori
    Da timoty nel forum Microsoft Access
    Risposte: 16
    Ultimo Post: 12-12-2017, 18:53
  4. Errore prima di aggiornare casella combinata
    Da massimocard nel forum Microsoft Access
    Risposte: 13
    Ultimo Post: 03-03-2017, 21:24
  5. Riutilizzare valori da casella combinata
    Da alp79 nel forum Microsoft Access
    Risposte: 7
    Ultimo Post: 26-01-2015, 17:00