collegare il risultato di un campo query ad un msg box

Question

buongiorno a tutti mi chiedeveo se avendo un campo query con due possibili riusltati "vero" o "falso" era possibile far apparire una finestra di messaggio (quando il riultato è "vero")  tipo es.: "l'indennita è bloccata" e sul clic per chiuderla chiudere tutte le maschere in esecuzione ed aprire ingrandendola la maschera "MASTER"...

grazie

Answer 1

Ciao Enrico,

non ho capito bene cosa si blocca, la query che viene eseguita dalla DlookUP?  Se è  così prova prima a cambiare la dlookup così:

risultato = DLookup("[blocco indennita]", "[archiviazione conguagli nello storico 1 p i]", "")

e se continua  a dare errore prova a farci vedere l'SQL della query.

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 2

ok fatto non mi da piu errore ma continua a bloccarmi la query riportandomi un errore nei capi formule date

non c'e' un altra soluzione???

grazie

Answer 3

Ciao enrico,

per l'errore sulla msgbox basta togliere le parentesi: 

MsgBox  "L'indennità è bloccata!", vbOKOnly

---

Cinzia

---

Sito RIO

Il mio Blog

Answer 4

Dim risultato As Boolean

   Dim frm As Form

risultato = DLookup("blocco indennita", " archiviazione conguagli nello storico 1 p i", "")

If risultato Then

   MsgBox ("L'indennità è bloccata!", vbOKOnly)

   CloseAllForms

   DoCmd.Open "MASTER P I"

End If

Public Function CloseAllForms() As Boolean

'*****************************************************************

'Name : CloseAllForms()'Purpose : Close all Forms

'Author : Alessandro Baraldi

'Output : True if is OK

'*****************************************************************

On Error GoTo Err_Close

Dim n, x As Integer

n = Forms.Count

For x = n - 1 To 0 Step -1

DoCmd.Close acForm, Forms(x).Name

Next

CloseAllForms = True

Exit_here:

Exit Functi

fatta ma la riga "MsgBox ("L'indennità è bloccata!", vbOKOnly)" appare in rosso

e mi da errore di compilazione

poi quando attivo la query mi dice che le formule che ci sono all'interno

hanno un errore di compilazione....

grazie enrico

Answer 5

Ciao Enrico,

se capisco beni quello che vuoi, prova dove prendo a prestito una funzione di Alex Baraldi per chiudere tutte le maschere aperte

Dim risultato as boolean
Dim frm as form

risultato = Dlookup("CampoX", "QueryY", "")
if risultato then
   MsgBox ("L'indennità è bloccata!", vbOKOnly)
   CloseAllForms

   Docmd.Open "Master"

end if

Public Function CloseAllForms() As Boolean
'*****************************************************************
'Name : CloseAllForms()'Purpose : Close all Forms
'Author : Alessandro Baraldi
'Output : True if is OK
'*****************************************************************

On Error GoTo Err_Close
Dim n, x As Integer
n = Forms.count
For x = n - 1 To 0 Step -1
DoCmd.Close acForm, Forms(x).Name
Next
CloseAllForms = True
Exit_here:
Exit Function
Err_Close:
CloseAllForms = False
Resume Exit_here
End Function

---

Cinzia

---

Sito RIO

Il mio Blog