Newsgroup: it.comp.appl.access
Titolo: da eseguire all'inizio di ogni mese

Vorrei creare un'istruzione da inserire nell'evento "su apertura"
all'interno di una maschera che mi apra un'ulteriore maschera qualora sia la
prima volta che apro questo DB nel mese nuovo.
Non ho idea di come poter fare...
Ringrazio sin da ora chi potrà aiutarmi.
Saluti
Mauro

 ha scritto nel messaggio
news:9824jv$2f1$1...@fe1.cs.interbusiness.it...

Ciao Mauro,
cosa ne dici?
"su apertura" della maschera
======================
se il mese di oggi è diverso dal mese memorizzato in tabella allora
    ' siamo all'inizio del mese
    apri l'altra maschera
    ...
    memorizza il nuovo mese nella tabella
fine se
In alternativa potresti memorizzarti il mese nelle proprietà del DB.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


Grazie Silvio della tua sollecitudine. Purtroppo non ti ho detto che la
prima maschera che si apre è una maschera di sola lettura, (è una classica
maschera di avvio con solo pulsanti) non ho quindi alle spalle nessuna
tabella ove memorizzare il valore.
Mi interessa il discorso di memorizzare il mese nelle proprietà del DB ma ti
chiedo se cortesemente puoi essere più chiaro.
Grazie di nuovo.
Mauro




 tabella ove memorizzare il valore.
Non credo che Silvio si riferisse alla tabella sottostante alla maschera.
Devi creare una tabella di servizio dove vai a memorizzare la data
dell'ultima volta che hai aperto il db, quindi, all'apertura della maschera
di avvio, con un dlookup vai a vedere quella data.
Sib

 ha scritto nel messaggio
news:982fm6$k2$1...@fe1.cs.interbusiness.it...

Come ti ha già risposto Sib, non intendevo necessariamente una tabella
origine record della maschera, ma niente ti vieta comunque di farlo!!
Appoggi la tua maschera sulla tabella e inserisci un controllo nascosto con
origine controllo sul campo Mese della tabella: questo ti rende + semplice
indirizzarlo con Me.Mese.
X quanto riguarda le proprietà del DB, vai a guardare sull'help la voce
Containers.


 Grazie di nuovo.
Beccati questo esempio. Si ipotizza che la data la imposti sul BE dal FE.
MiaData = Date() 'per esempio
Public Sub SetDateBE()
 'imposta la data del BE
 Dim dbs As Database, prp As Property
 Const conErroreProprietàNonTrovata = 3270
 Set dbs = OpenDatabase("tuoBE.mdb")
 On Error GoTo Modifica_Err
 dbs.Properties("LaMiaData") = MiaData
 Set dbs = Nothing
 Exit Sub
Modifica_Err:
 If Err = conErroreProprietàNonTrovata Then  'proprietà non trovata
  Set prp = dbs.CreateProperty("LaMiaData", dbDate, MiaData)
  dbs.Properties.Append prp
  Resume Next
 Else 'errore sconosciuto
  MsgBox ("Errore nel creare la proprietà")
 End If
End Sub
Public Function GetDateBE() As Variant
 'legge la data del BE
 Dim dbs As Database, prp As Property
 Set dbs = OpenDatabase("tuoBE.mdb")
 On Error GoTo Prop_Err
 GetDateBE = dbs.Properties("LaMiaData")
 Set dbs = Nothing
 Exit Function
Prop_Err:
 GetDateBE = Null 'proprietà non trovata
End Function
Public Sub VerificaDataBE()
 'verifica che la data del BE (proprietà DB)
 Dim MiaData
 MiaData = GetDateBE()
 If IsNull(MiaData) Or MiaData > DataLimite Then
  MsgBox "Non fare il furbo. Programma terminato.", vbCritical
  DoCmd.Quit
 End If
End Sub
L'esempio dovrebbe essere chiaro, e naturalmente va adattato al tuo db.
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************

"AntoGal" <ant...@NOSPAMsitocomune.com> ha scritto nel messaggio
news:985hdn$633$4...@lacerta.tiscalinet.it...

Bravo, soluzione semplice e molto elegante.
Sib

 Sib
Grazie Grazie,
i panettoni a Natale li invierò come al solito al tuo indirizzo :-)
