Evento notinlist combobox

di il
4 risposte

Evento notinlist combobox

Buongiorno, avrei questo problema da risolvere se qualcuno a dei suggerimenti ringrazio in anticipo.
Ho una maschera continua che prende i dati da una query, alla stessa query passo dei parametri per filtrare la query stessa, i parametri li passo attraverso textbox e combobox che ho sulla stessa maschera in intestazione, tutto funziona. In pie di maschera ho un pulsante che mi apre un altra maschera è mi mostra il singolo record di cui gli passo l ID con largomento openargs.
Funziona tutto, il problema è che quando seleziono un elemento da una delle combobox e poi faccio premo il pulsante invece di aprirsi subito la finestra per mostrarmi il record, viene eseguito prima l evento notinlist, che comunque gestisco con un messaggio personalizzato, come potrei fare per non far eseguire questo evento ed eseguire il click del pulsante? Grazie

4 Risposte

  • Re: Evento notinlist combobox

    Hai letto come gestire i messaggi restituiti da quell'evento....?
    In particolare al parametro Response...?
  • Re: Evento notinlist combobox

    Grazie Alex, penso di gestirlo nel modo corretto, su notinlist prima mi mostra una msgbox personalizzata, poi metto response=acdataerrcontinue. E funziona correttamente, forse mi sono spiegato male, il mio problema non è che mi dà un errore ma non riesco a gestire come vorrei il possibile caso che se si scrive qualcosa nella parte text della combobox e non si preme invio o il pulsante ricerca che ho messo nella maschera, ma si preme un altro pulsante che mi apre un altra form prima di eseguire l evento click di detto pulsante, mi esegue prima i evento notinlist. E questo vorrei evitarlo senza possibilmente togliere l evento notinlist. Grazie ancora
  • Re: Evento notinlist combobox

    Prova nell'evento Form_Error, ad intercettare questi:
    
    Option Compare Database
    Option Explicit
    
    Private Const ERR_ONETOMANYCONFLICT = 3101
    Private Const ERR_RELATEDRECORDS1 = 3200
    Private Const ERR_RELATEDRECORDS2 = 3201
    Private Const ERR_REQUIREDDATA = 3314
    Private Const ERR_DUPLICATEKEY = 3022
    Private Const ERR_NOCURRRECFOUND = 3021
    Private Const ERR_DATATYPE = 2113
    Private Const ERR_INPUTMASK = 2279
    Private Const ERR_NULLKEY = 3058
    Private Const ERR_NULLVALUE = 3162
    Private Const ERR_ZEROLENGTHSTRING = 3315
    Private Const ERR_DATAVALIDATION1 = 2107
    Private Const ERR_DATAVALIDATION2 = 3317
    Private Const ERR_ITEMNOTINLIST1 = 2237
    Private Const ERR_ITEMNOTINLIST2 = 2473
    Private Const ERR_CANTSAVE = 2169
    
    Private Sub Form_Error(DataErr As Integer, Response As Integer)
        SELECT CASE DataErr
            Case ERR_ITEMNOTINLIST1, ERR_ITEMNOTINLIST2
                   MsgBox "SONO IO"  ' ovviamente poi rimuovi il MsgBox
                   Response = acDataErrContinue
            Case Else
                   Response = acDataErrDisplay
        End Select
    End Sub
  • Re: Evento notinlist combobox

    Grazie mille ancora appena posso provo
Devi accedere o registrarti per scrivere nel forum
4 risposte