[Access] Controllo SQL data e ora in vba

[Stimbao]

io ho questa stringa SQL: "SELECT SalaRiunione.IDSala, SalaRiunione.IDPersonale, SalaRiunione.IDCommessa, SalaRiunione.Data, SalaRiunione.Inizio, SalaRiunione.Fine, SalaRiunione.[Note/Descrizione] FROM SalaRiunione WHERE (((SalaRiunione.Data)=[Forms]![SalaRiunione]![txtData]) AND ((SalaRiunione.Fine)>[Forms]![SalaRiunione]![txtInizio])) OR (((SalaRiunione.Data)=[Forms]![SalaRiunione]![txtData]) AND ((SalaRiunione.Inizio)<[Forms]![SalaRiunione]![txtFine]))"

non conosco molto bene vba ma per caso posso inserire questo sql in codice e dire che se viene fuori un record di mandarmi un msgbox di errore


Grazie anticapatamente...
Saluti Stimbao

[borgodiavalon]

dim rst As DAO.Recordset
dim sql as string

'apre recorset
sql = "SELECT SalaRiunione.IDSala, SalaRiunione.IDPersonale, SalaRiunione.IDCommessa, SalaRiunione.Data, SalaRiunione.Inizio, SalaRiunione.Fine, SalaRiunione.[Note/Descrizione] FROM SalaRiunione WHERE (((SalaRiunione.Data)=#" & format([Forms]![SalaRiunione]![txtData],"dd/mm/yyyy") & "#) AND ((SalaRiunione.Fine)>" & [Forms]![SalaRiunione]![txtInizio] & ")) OR (((SalaRiunione.Data)=#" & format([Forms]![SalaRiunione]![txtData]"dd/mm/yyyy") & "#) AND ((SalaRiunione.Inizio)<" & [Forms]![SalaRiunione]![txtFine] & "))"
Set rst = CurrentDb.OpenRecordset(sql)
     
    
    If Not rst.BOF Then 'verivica se il recordset non è vuoto
    msgbox "errore"
    end if
              
        'chiudi e azzera il recordset
        rst.Close: Set rst = Nothing

prova così, la parte in rosso potrebbe dare problemi, access legge sempre la data come fosse anglosassone, io la riporto al formato italiano ma poi dipende da come tu hai impostato quel campo.

[Stimbao]

nel campo la ho inserita giorno mese anno...

purtroppo quando faccio compila mi da questo errore:

Errore di compilazione:
Errore di sintassi

e mi segnala la riga sql = "select eccetera" in rosso...

[borgodiavalon]

l'errore ti segnala un problema nell'istruzione sql. io sinceramente non riesco a vederlo. la stringa sql che hai postato all'inizio funziona correttamente come query?

[Stimbao]

Funziona la query.

La query la ho creata con creazione guidato (o come caspita si chiama) dopodiche sono passato al linguaggio SQL e mi sono coppiato la stringa.

[Stimbao]

Ho trovato che c'è un comando DoCmd.OpenQuery "ControlloOre"

ControlloOre è la mia query...

si puo usare direttamente quello? come faccio a dirgli che se trova uno record deve darmki un msgbox...

ps. scusate il doppio post.

[borgodiavalon]

trovato.

sql = "SELECT SalaRiunione.IDSala, SalaRiunione.IDPersonale, SalaRiunione.IDCommessa, SalaRiunione.Data, SalaRiunione.Inizio, SalaRiunione.Fine, SalaRiunione.[Note/Descrizione] FROM SalaRiunione WHERE (((SalaRiunione.Data)=#" & format([Forms]![SalaRiunione]![txtData],"dd/mm/yyyy") & "#) AND ((SalaRiunione.Fine)>" & [Forms]![SalaRiunione]![txtInizio] & ")) OR (((SalaRiunione.Data)=#" & format([Forms]![SalaRiunione]![txtData],"dd/mm/yyyy") & "#) AND ((SalaRiunione.Inizio)<" & [Forms]![SalaRiunione]![txtFine] & "))"

la correzione all'errore l'ho evidenziata in rosso (era una virgola).

iniziamo a vedere se cosi funziona.

come ti dicevo nei post precedenti la formatazione dd/mm/yyyy potrebbe non funzionarti, fai delle prove ed in caso cambiala con mm/dd/yyyy (qui sono io che non mi ricordo mai cosa vuole access).

[Stimbao]

Errore di sintassi nel numero nell'espressione della query '(((SalaRiunione.Data)=#02/07/2010#)and((SalaRiunione.Fine)>10.00.00))or(((SalaR iunione.Data)=#02/07/2010#)and((SalaRiunione.Inizio)<12.00.00))'.

selezionando la riga con f9 e proseguendo con f8 ho scoperto che va in errore nella riga Set rst = CurrentDb.OpenRecordset(sql).

Passando con il cursore, sempre durante l'esecuzione della routine, su sql mi visualizza correttamente la stringa.

[borgodiavalon]

ho un vuoto di memoria, non mi ricordo se i capi ora vogliono il # o '. fai le prove con entrambi.
esempio:
#" & [Forms]![SalaRiunione]![txtInizio] & "#
oppure
'" & [Forms]![SalaRiunione]![txtInizio] & "'

logicamente devi modificare anche txtfine

[Stimbao]

mi dispiace romperti con questo di venerdi mattina

ma mi lo stesso errore di prima solo che al posto del # mi da '