Passaggio di variabile da Casella di ricerca a Select

di fabionik2004 il
4 risposte
Utente Attivo
Iscritto da
set, 2011
Messaggi
196

Ciao A tutti,

ho un problema nel riprendere una variabile all'interno di una select.

Si tratta di un evento che viene eseguito sull'aggiornamento di una casella di ricerca ma mi da come risultato una finestra di dialogo dove mi chiede di inserire pmont

credo il problema sia nel passare la variabile all'instruzione select

Help?

Private Sub cboSearchmonth_AfterUpdate()
Dim pmont As Integer
pmont = Val(Me.cboSearchmonth)
If Me.cboSearchmonth = 0 Then
Me.RecordSource = "SELECT Tabella1.CompanyName, Tabella2.PayMonth, FROM Tabella1 INNER JOIN Tabella2 ON Tabella1.Cod = Tabella2.Cod Where (Tabella2.Control = 0 AND Tabella2.paymonth <  pmont ) ;"

4 Risposte

  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951

    Si non stai passando la variabile ma hai chiuso la Variabile nella stringa e JET non la può ovviamente risolvere…!

    Perchè non fai DEBUG sulla Stringa SQL…? Ti accorgeresti subito di cosa non funziona…!!!!!!

    Devi farla risolvere al VBA in modo Esplicito:

    Me.RecordSource = "SELECT Tabella1.CompanyName, Tabella2.PayMonth, FROM Tabella1 INNER JOIN Tabella2 ON Tabella1.Cod = Tabella2.Cod Where (Tabella2.Control = 0 AND Tabella2.paymonth < " & pmont " & ) ;"
  • Utente Attivo
    Iscritto da
    set, 2011
    Messaggi
    196

    Ho provato a correggere come indicato da te, mettendo pero' i doppi apici '" & pmont & "'  ma mi da ancora errore, tipo dati non corrispondete

    Si tratta di variabili numeriche, mi sembra strano

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917

    Alla fine c'era una piccola svista… deve essere

    Tabella2.paymonth < " & pmont & ") ;"
  • Utente Attivo
    Iscritto da
    set, 2011
    Messaggi
    196

    Perfetto ora funziona grazie!

Devi accedere o registrarti per scrivere nel forum
4 risposte