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

Eseguire filtro con data assegnata tramite variabile

  1. #1
    Raf1966 non è in linea Novello
    Buogiorno a tutti.
    Ho un campo "Data Esame" che non può essere modificato ma puo solo mostrare le date tramite un filtro.
    Il calendario di access che appare cliccando sul campo non funziona poichè il campo è bloccato.
    Per non dover fare manualmente il filtro "uguale a.." tutte le volte, ho creato un campo data, a parte, in cui si può inserire la data richiesta più comodamente e tramite vba su evento Dopo aggiornamento prelevare questa data e utilizzarla nel filtro del campo "Data Esame"
    Ho fatto questo codice:

    Private Sub Testo128_AfterUpdate()
    Dim MyStr As Date, StrNewDate As Date
    Forms!AUDIZIONI.Form!Testo128.SetFocus
    StrNewDate = Forms!AUDIZIONI.Form!Testo128.Value
    MyStr = Format(StrNewDate, "mm/dd/yyyy")     ' Formattato come Data inglese
    Me.Filter = "[Data Esame] = MyStr" 
    Me.FilterOn = True
    End Sub
    
    Purtroppo continua a darmi il messaggio Mystr: Immettere valore parametro.

    Qualcuno mi puo' aiutare?

    Ringrazio anticipatamente.

    Raffaele
    Ultima modifica di AntonioG; 18-05-2021 08:54  Motivo: Tag CODE per il codice

  2. #2
    Quote Originariamente inviato da Raf1966 Visualizza il messaggio
    Ho fatto questo codice:
    che non hai racchiuso tra tag CODE
    Quote Originariamente inviato da Raf1966 Visualizza il messaggio
    Ho fatto questo codice:
    ...
    MyStr = Format(StrNewDate, "mm/dd/yyyy")     ' Formattato come Data inglese
    Me.Filter = "[Data Esame] = MyStr" 
    ...
    
    Purtroppo continua a darmi il messaggio Mystr: Immettere valore parametro.
    MyStr va fuori dalla stringa che passi alla proprietà Filter, altrimenti cerca "MyStr" in [Data Esame], non il valore che quella variabile rappresenta. Occhio ai delimitatori, si tratta di un campo data.

  3. #3
    Raf1966 non è in linea Novello
    Grazie per avermi risposto.

    Purtroppo ho anche tentato di mettere:

    Me.Filter = "[Data Esame] = #MyStr#"
    
    ma mi da errore.
    Non so come fare a passare il valore di MyStr alla proprietà Filter.
    Ultima modifica di AntonioG; 18-05-2021 08:58 

  4. #4
    Ti è stato detto "fuori dalla stringa"

    Me.Filter = "[Data Esame] = #" & MyStr & "#"
    
    Se scrivi MyStr nella stringa non ottieni il suo valore ma semplicemente il nome della variabile.
    Devi concatenare i valori.

    P.S. Occhio al regolamento, quando posti del codice devi usare i tag CODE. Questa volta ho corretto io
    ℹ️ Leggi di più su AntonioG ...

  5. #5
    Raf1966 non è in linea Novello
    Un immenso grazie a tutti.
    Ora funziona. Avevo già tentato varie volte di concatenare
    la variabile con i # ma mi mancavano 2 apici.

  6. #6
    Di nulla, comunque la concatenazione di stringhe costanti e variabili è una delle cognizioni di base per poter scrivere codice. Per evitare altri "intoppi" di questo tipo, ti consiglio di dare uno sguardo ai primi capitoli del linguaggio prima di continuare a scrivere codice.
    ℹ️ Leggi di più su AntonioG ...

  7. #7
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    In modo forse più semplice:
    Me.Filter = "[Data Esame] = " & clng(me!TxtcontrolloData)
    
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Variabile non assegnata
    Da Chico nel forum C#
    Risposte: 3
    Ultimo Post: 16-10-2018, 15:26
  2. Variabile non assegnata
    Da Chico nel forum C/C++
    Risposte: 2
    Ultimo Post: 16-10-2018, 15:10
  3. Filtro data di scadenza tramite checkbox
    Da maxs84 nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 06-09-2016, 13:37
  4. Eseguire file VBS tramite combinazione di tasti
    Da 7nuvole nel forum Microsoft Windows
    Risposte: 3
    Ultimo Post: 06-02-2015, 18:05
  5. Eseguire Pagine Web tramite VB
    Da tralux nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 24-02-2005, 14:07