Urgentissimo VB e ACESS

[dvx80]

Devo consegnare un progetto entro martedi della prox settimana ma ho un problema.

Devo fare delle query in vba a cui passo come variabile una stringa o una data. Es:

Form_QueryClienti.ElencoClienti.RowSource = "SELECT Clienti.Codice, Clienti.Nome, Clienti.Cognome, Clienti.Data, Clienti.Comune1, Clienti.Via, Clienti.NumeroCivico, Clienti.Comune2, Clienti.Provincia, Clienti.Nazione, Clienti.TipoDocumento, Clienti.NumeroDocumento FROM Clienti WHERE Clienti.TipoCliente=0 AND Clienti.Nome=" & Me.Nome.Value

xò non funziona. La stessa cosa vale se il parametro è una data. Funziona invece se il dato è di tipo numerico.

Allora la domanda è semblice come cavolo faccio a farlo funzionare ???

[cionci]

Prova così :
Form_QueryClienti.ElencoClienti.RowSource = "SELECT Clienti.Codice, Clienti.Nome, Clienti.Cognome, Clienti.Data, Clienti.Comune1, Clienti.Via, Clienti.NumeroCivico, Clienti.Comune2, Clienti.Provincia, Clienti.Nazione, Clienti.TipoDocumento, Clienti.NumeroDocumento FROM Clienti WHERE Clienti.TipoCliente=0 AND Clienti.Nome='" & Me.Nome.Value & "'"

Le stringhe vanno messe fra gli apici singoli...
Per le date utilizza DateValue e guarda il post sopra il tuo che parla di Access e date...

[dvx80]

ho appena provato ma nessuna delle due funziona .

Hai altri duggerimenti?????

[cionci]

Come ho scritto nell'altro post...stampa a video la query (mettila ad esempio in un TextBox) copiala ed incollala in una nuova query di Access usando la "Visualizzazione SQL" (menù Visualizza)...

[dvx80]

Allora x le stringhe ho risolto mettendo gli apici singoli.

Per le date invece non c'è stato niete da fare. Ho provato ad usare la funzione che .ToShortDateString ma non me la riconosce.

[buttarelli]

Per cercare le stringhe devi usare la clausola LIKE.
Ad esempio: ... where utenti.nome like 'daniele'.

Per le date è più complicato! Il linguaggio SQL di Access le vuole in formato mm/gg/aaaa poi per cercare una data devi fare così:
... where utenti.datanascita = '#1/31/1970#'.

Quindi i passi sono i seguenti:
1) Creare una stringa con la data in formato mm/gg/aaaa
2) Nella stringa SQL usare il carattere # all'inizio e alla fine della data.

Spero di essermi spiegato.

[dvx80]

per le date basta il # ma si il valore lo imposti tu per sx #01/08/2002# mentre se si fa una cosa del genere

...... WHERE Clienti.DataN= #" & datan.value & "#"

non funziona per niente.

[dvx80]

Ultima richiesta .

Esiste una funzione che trasformi una data in formato GG/MM/AAAA nella formato MM/GG/AAAA.

tnx.

[buttarelli]

Devi costruire tu la stringa.
Chiamiamo "data" la tua data in formato GG/MM/AAAA; per costruire una stringa con la data in formato MM/GG/AAAA devi fare così:

giorno = Mid(data, 1, 2)
mese = Mid(data, 4, 2)
anno = Mid(data, 7, 4)
data = "#" + mese + "/" + giorno + "/" + anno + "#"

Spero di essere stato chiaro.
Alla prossima

[buttarelli]

Mi sono dimenticato di dirti che se non ti servono i 2 #, puoi eliminarli!

[cisky]

E' piu comodo usare la funzione Format:

Es: Format(Date, "mm/dd/yy")

P.S: Funziona anche con le stringhe!
Es :Format("10/09/2002", "mm/dd/yy")

Ciao!