Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 13

Apertura form con Condizioni Multiple WHERE

  1. #1
    gas1966 non  in linea Scolaretto
    Buongiorno a tutti,
    dopo aver verificato se trovavo una soluzione nei vari 3D e in seguito a vari tentativi mi trovo a scrivervi (ahim con un po di vergogna) per darmi un aiuto ad effettuare l'apertura di una maschera con 3 condizioni WHERE, 2 campi numerici e 1 di testo (mi sembra apparentemente semplice ma nella realt a me non riesce).
    Private Sub CboLetteraVetturaRicerca_AfterUpdate()
        DoCmd.OpenForm "LetteraVetturaInserimento", , , "tm_numdoc = " & Me.CboLetteraVetturaRicerca.Column(4)
        
        '"Disegno ='" & yy & "' And EWO ='" & ff & "'" Questa l'ho presa da un esempio di Alex, entrambi campi di testo
        
    
    Con un solo WHERE ovviamente funziona (nell'esempio il campo numerico) al quale ne dovrei aggiungere un'altro numerico e uno di testo.
    Vi ringrazio per un vostro aiuto.
    Stefano

  2. #2
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    nel tuo codice hai messo solo una condizione
    aggiungi anche le altre, no?
    cosa non ti funziona?

    ps: attento che per prevenire problemi con testi con apostrofi devi usare
     replace(testo, "<apice singolo>","<apice singolo><apice singolo>")
    
    ho usato <apice singolo> al posto di ' perch altrimenti non si capisce

    per capire meglio cosa stai passando come condizione costruisci tutto in una variabile
    non necessario se sai cosa fai ma nel tuo caso utile
    es:
    condizione = ...
    debug.print condizione        'cos vedi come l'hai valorizzata
    docmd.openform tuaForm,,, condizione
    

  3. #3
    OsvaldoLaviosa non  in linea Topo di biblioteca
    Se non vado fuori tema, per casi complessi...dove non ci si raccapezza, suggerisco di impiantare una query. Poi costruisci la maschera sulla query...oppure imposti il RecordSource della maschera che hai gi con il nome della query.
    ℹ️ Leggi di pi su OsvaldoLaviosa ...

  4. #4
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    la domanda ... perch?

  5. #5
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    La risposta che l'osservazione di Osvaldo tecnicamente sbagliata, la dove dice che sia meglio.
    Una query Parametrica di quel Tipo meno flessibile, l'uso della WHERE CONDITION estremamente pi comoda, sia per rimuovere eventualmente il Filtro che per modificarlo, che per usarlo anche per altri scopi... REPORT ecc...!
    ℹ️ Leggi di pi su @Alex ...

  6. #6
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    esatto, intendevo quello

  7. #7
    gas1966 non  in linea Scolaretto
    Salve Muttley,
    infatti il punto che divento matto con la punteggiatura, mi sembra di aver provato tutte le combinazioni ma evidentemente no, sarebbe possibile avere un esempio con WHERE di 2 campi numerici e 1 di testo perch io non ci levo le gambe. Grazie infinite!

  8. #8
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    E' possibile tutto... la composizione di una WHERE solo questione di metodo...!
    Devi imparare a fare un DEBUG attivo... e capire cosa stai facendo.
    Dim scr1 As String
    Dim scr2 As String
    Dim scr3 As string
    Dim sWHR  As String
    scr1="NomeCampoNumerico1=" & Variabile1
    scr2="NomeCampoNumerico2=" & Variabile2
    scr3="NomeCampoTesto1='" & Variabile3 & "'"
    sWHR=scr1 & " AND " & scr2 & " AND " & scr3
    Debug.Print swhr
    
    Puoi metterne 100(n) di criteri... non hai limite, se la sintassi corretta.
    ℹ️ Leggi di pi su @Alex ...

  9. #9
    gas1966 non  in linea Scolaretto
    Grazie Alex, guarda un attimo per cortesia:
    Private Sub CboLetteraVetturaRicerca_AfterUpdate()
        Dim scr1 As String
        Dim scr2 As String
        Dim scr3 As String
        Dim sWHR  As String
        scr1 = "tm_numdoc=" & Me.CboLetteraVetturaRicerca.Column(4)
        scr3 = "tm_serie='" & Me.CboLetteraVetturaRicerca.Column(5) & "'"
        scr2 = "tm_anno=" & Me.CboLetteraVetturaRicerca.Column(6)
    
        sWHR = scr1 & " AND " & scr3 & " AND " & scr2
        Debug.Print sWHR
        DoCmd.OpenForm "LetteraVetturaInserimento", , , "tm_numdoc=" & scr1 And "tm_serie='" & scr3 & "'" And "tm_anno= & SCR2"
    
        
    End Sub
    
    Mi sono perso vero?
    Il debug ha i dati corretti, io vorrei aprire la form "LetteraVetturaInserimento" dove le condizioni sono 3:
    tm_numdoc Numerico
    tm_serie Testo
    tm_anno Numerico
    che per altro avrei anche in un campo solo denominato FatSerieAnno che include i 3 campi.
    Abbi pazienza ma ne avrei veramente necessit.
    Saluti, Stefano.

  10. #10
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Ti sei perso si... non hai capito nulla mi pare...!
    Private Sub CboLetteraVetturaRicerca_AfterUpdate()
        Dim scr1 As String
        Dim scr2 As String
        Dim scr3 As String
        Dim sWHR  As String
        scr1 = "tm_numdoc=" & Me.CboLetteraVetturaRicerca.Column(4)
        scr3 = "tm_serie='" & Me.CboLetteraVetturaRicerca.Column(5) & "'"
        scr2 = "tm_anno=" & Me.CboLetteraVetturaRicerca.Column(6)
     
        sWHR = scr1 & " AND " & scr3 & " AND " & scr2
    
        DoCmd.OpenForm "LetteraVetturaInserimento", , , sWHR 
     
    End Sub
    
    Oppure, semplificando:
    Private Sub CboLetteraVetturaRicerca_AfterUpdate()
        Dim sWHR  As String
        sWHR  = "tm_numdoc=" & Me.CboLetteraVetturaRicerca.Column(4) & " AND " _
        sWHR  = sWHR  & "tm_serie='" & Me.CboLetteraVetturaRicerca.Column(5) & "' AND "
        sWHR  = sWHR  & "tm_anno=" & Me.CboLetteraVetturaRicerca.Column(6)
    
        DoCmd.OpenForm "LetteraVetturaInserimento", , , sWHR 
     
    End Sub
    
    ℹ️ Leggi di pi su @Alex ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. form istanze multiple
    Da muttley005 nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 11-05-2015, 20:54
  2. Condizioni multiple
    Da pgft nel forum Microsoft Excel
    Risposte: 15
    Ultimo Post: 13-03-2015, 18:10
  3. [Excel] Condizioni multiple
    Da Rapido nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 18-02-2010, 10:39
  4. Condizioni multiple
    Da coccobil nel forum PHP
    Risposte: 4
    Ultimo Post: 22-05-2006, 21:14
  5. Risposte: 7
    Ultimo Post: 08-03-2006, 11:11