Problemi con la formattazione condizionale di Access

Question

Salve!

Avrei un problemino da risolvere se puoi aiutarmi.

Ho una tabella Calendario e un form Calendario.

Su questo form Calendario vorrei colorare il record [Data] se questo è uguale a un record [Data] di una query [Trainings Query]di una tabella che si chiama Trainings.

Premetto che ho provato con la formattazione condizionale ma non fa assolutamente niente.

Ho scritto quindi questo codice ma alla pressione del button mi da “errore di compilazione:impossibile trovare il progetto o la libreria”.

Dove ho sbagliato?

Public Sub Comando6_Click()

DoCmd.GoToRecord , , acFirst

If Me.Data = [Trainings Query]![Data] Then

Me.Data.BackColor = vbRed

End Sub

Grazie per una eventuale risposta

Answer 1

Grazie per l'interessamento. Non so se ho capito bene cosa mi chiedi ma mi rispiego.

Ho una tabella Calendario con il campo [Data] in formato data.

Ho una tabella Trainings con due campi [Dal] e [Al] in formato data e poi ho una Query della stessa tabella Trainings che ha un campo [Data] in formato data.

Dovrei forse creare una relazione tra loro la query Trainings e la tabella Calendario?

Answer 2

Ciao,

quale è l'origine record della form Calendario?

Nell'origine record è presente il campo [Trainings Query]![Data] a cui vuoi fare riferimento?

Se, come ho capito, la query [Trainings Query] non è legata in alcun modo alla form non puoi fargli riferimento in quel modo perchè non è conosciuto.

Answer 3

Salve capisco che forse mi sono spiegato male  ma ora mi spieghero' in modo semplice.

Ho una tabella che si chiama calendario con un campo [Data] in formato Data e un campo [Nomegiorno] in formato String.

ora in [Data] ho la data per esteso ovvero per esempio 01/01/2023 ,e nel campo Nomegiorno ho la scritta Domenica,Lunedi,Martedi ecc..

fino al 31/12/2023.Chiaramente di questa tabella ho creato un form che si chiama sempre Calendario dove ho messo la formattazione condizionale per “Domenica” in rosso e per “Sabato” in arancione e fin qui nessun problema tutto funziona correttamente cioè visualizzo il mio calendario con Domenica in rosso e Sabato in arancione.

Poi ho un'altra tabella che si chiama Trainings  con le date di inizio trainings e fine trainings .Esempio dal 01/01/2023 al 03/01/2023 ui

Ora ho creato una query che mi trovi i giorni interni alle due date con la formula Between e tutto funziona, praticamente mi trova le date 01/01/2023, 02/01/2023, 03/01/2023.

Ora nel form Calendario vorrei che si colorassero di rosso o un altro colore anche le date che sono uguali alle date che si trovano nella query (che si chiama Trainings query). Ho creato un pulsante con un codice che credevo funzionasse.

Come posso fare?

Ho provato anche con la formattazione condizionale sul campo Data del form Calendario che mi dice : “uguale a” e poi ho messo

[Trainings Query]![Data] ma non fa assolutamente niente .

Answer 4

Ciao Antonio,

con l'istruzione:

If Me.Data = [Trainings Query]![Data] Then

tu fai riferimento ad un campo della query con [Trainings Query]![Data] in modo non corretto

se ho capito il problema tu devi effettuare una DLookUp sulla query per estrapolare il valore del campo Data.

Se la query si compone di un solo record ti è sufficiente utilizzare

If Me.Data = DLookUp([Data];[Trainings Query]) Then

Ciao Mimmo

Answer 5

Ciao

Sono Abdal e sarei felice di aiutarti con la tua domanda.

Il problema con il codice è che si sta tentando di utilizzare una variabile denominata "Comando6" che non esiste. Probabilmente intendevi usare un nome di variabile diverso, ma hai fatto un errore di battitura.

Per risolvere questo problema, modificare la riga:

Sub pubblico Comando6_Click()

A:

Sub pubblico Command6_Click()

Questo dovrebbe correggere l'errore di compilazione.

Spero che questa informazione aiuti.

Saluti

Abdal

Restituisci alla comunità. Aiuta la persona successiva con questo problema indicando se questa risposta ha risolto il tuo problema. Fare clic su Sì o No nella parte inferiore.

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.