mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Trova record

Ciao,
vorrei creare un codice che su il campo chiave univoco (dopo aggiormanento) 
se il valore è già stato inserito mi si posizioni sul record in questione.
Francamente non so da che parte incominciare, intercetto l'errore ma poi?
Grazie per il vostro supporto
Fabio 


Sull'evento dopo aggiornamento del campo da monitorare scrivi
qualcosa
del genere:
Private Sub univoco_AfterUpdate()
Dim rs As Object
Dim univ As Integer
univ = Me.univoco
If DCount("univoco", "tuatabella", "[univoco] =" & Me.univoco) > 1
Then
       MsgBox "Errore, campo duplicato"
       DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
       Set rs = Me.Recordset.Clone
       rs.FindFirst "[ID] = " & univ
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
End Sub

 End Sub
Per ora grazie proverò e poi ti farò sapere
Grazie
Fabio 

 End Sub
Grazie della tua dritta funziona, adattato alla mia situazione cosě
Private Sub MVIS01TxT03_AfterUpdate()
On Error GoTo Errore
Dim Valore As Long
Dim rs As Object
Valore = Me!TVIS01C01
Me.Painting = False 'riduce lo sfarfallio
Me.Requery
Me.RecordsetClone.FindFirst "TVIS01C01 = " & Valore
Me.Bookmark = Me.RecordsetClone.Bookmark
Esci:
    Me.Painting = True
Exit Sub
Errore:
    Select Case Err.Number
        Case 3159 'Bookmark non valido
        Resume Esci
    Case Else
        MsgBox "valore in doppio"
        'univ = Me.MVIS01TxT03
        Valore = Me.MVIS01TxT03
        Me.Undo
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[TVIS01C01] = " & Valore
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
        Resume Esci
    End Select
End Sub
Grazie ancora
Fabio
Newsgroup: it.comp.appl.access
Titolo: stampa report

scusate ho un altro probema dato che sono un novizio di access.
Ho necessità di visualizzare e poi stampare un report.
Dico anche che in apertura report eseguo una funzione che esegue dei
calcoli.
Quando dall'anteprima , vado in stampa la funzione  non viene  più eseguita
(perchè la funzione eseguita solo su apertura report).
Quindi i calcoli che stampo sono diversi da quelli che visualizzo in
anteprima di stampa.
Come posso risolvere il problema?
AIUTATEMI sono in vicolo cieco !

 ha scritto nel messaggio
news:g9rB4.24717$C24.2...@news.infostrada.it...

Hai provato ad eseguire il calcolo nella query del report?
Ciao.


invece di mettere la funzione sull'anteprima del report mettila
sull'evento formattazione o stampa di una delle sue parti (tipo il
corpo).

Newsgroup: it.comp.appl.access
Titolo: MsgBox si/no solo se campo not null

Un salutoi a tutti. Nuovo problema...devo memorizzare la data di
modifica di una txtbox e vorrei quindi che sull'afterupdate della
stessa mi apparisse un msgbox si/no che lo informasse che continuando
memorizzerà la data di inserimento (per evitare che il dato venga
memorizzato in caso di inserimento erroneo) Questo l'ho ottenuto.
Ora però vorrei anche che, sempre in caso di inserimento erroneo, se
il valore immesso viene cancellato, non comparisse più il msgbox e non
riesco ad impostare la if.
Ho provato con:
If Not IsNull (Me.txtbox1) and MsgBox... vbYes/not = Yes Then
Me.Date1 = Date
ma il msgbox mi appare in ogni caso, anche in caso di aggiornamento
sulla cancellazione del valore immesso quindi di valore null. Come
posso fare?


Devi usare BeforeUpdate. Vedi
www.donkarl.com/it
FAQ 4.32 Chiedere prima di salvare un record
FAQ 2.23 Tener traccia delle modifiche ai dati
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio
news:1167302319.6...@a3g2000cwd.googlegroups.com...

Ciao T_A_O,
VBA non controlla se c'è un Boolean Short Circuit nell'espressione, quindi
il MsgBox viene sempre eseguito.
Dopo aver spostato il codice nell'evento BeforeUpdate, come suggerito da
Karl, modificalo in questo modo:
----
If IsNull (Me.txtbox1)=False Then
   If MsgBox... vbYes/not = Yes Then
      Me.Date1 = Date
   End If
End If
----
Ciao
-- 
Giorgio Rancati
[Office Access MVP]

giorgio rancati ha scritto:

Grazie ad entrambi, è esattamente ciò che mi serviva. Auguri di un
ottima fine ed inizio anno a voi e ai vostri cari (sono scaramantico,
ve li faccio ora gli auguri anche se non sono così sicuro di doverveli
rifare prima del 31.... :)

Newsgroup: it.comp.appl.access
Titolo: Scuse dovute a Roberto

Involontariamente ho utilizzato il tuo indirizzo e-mail, ti chiedo vivamente
scusa.
Salvatore

 wrote in message
8li2r3$m8l$1...@lacerta.tiscalinet.it...

Nessun problema
Roberto
Newsgroup: it.comp.appl.access
Titolo: Problema con connessione al DB

ciao a tutti,
chi mi spiega perche' mi da errore sulla connessione al DB?
se io questo codice lo eseguo all'interno dell'oggetti form in questione
fuziona alla perfezione,
se invece lo inserisco in un modulo mi da' errore sulla connessione
  - : Errors :  : Errors/Errors
    - : Item 1 :  : Variant/Object/Error
        : Description : "Nessun valore specificato per alcuni parametri
necessari." : String
        : HelpContext : 5000000 : Long
        : Number : -
2147217904
 : Long
ho provato anche a passare la connessione per parametro come
currentproject.connection
come faccio ad utilizzare la connessione corrente ad una funzione in un
modulo?
PS ecco il codice:
MODULO: NextElem
Public Function Max(tbl As String, key As String, char_key As Integer) As
String
' questa funzione serve per incrementare un campo sebbene sia di tipo testo.
' Se in tbl la massima key fino ad ora era "00015"
' max ("tbl","key",5) = "00016"
' puo', io credo, non servire
   Dim cnx As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim I_Cod As Long
   Dim S_Cod As String
   Dim strSQL As String
   Dim i As Integer
   Set cnx = CurrentProject.Connection
   Set rst = New ADODB.Recordset
'sicuramente esiste un modo piu' elegante :)
   strSQL = "SELECT max(CLng([""" & key & """])) AS massimo FROM " & tbl &
";"
   'Debug.Print cnx.ConnectionString
   '****ERRORE****
   rst.Open strSQL, cnx
   S_Cod = ""
   If (IsNull(rst("massimo").Value)) Then
      I_Cod = 1
   Else
      I_Cod = rst("massimo").Value + 1
   End If
   If (I_Cod >= 10 ^ (char_key + 1)) Then
            MsgBox "Raggiunto il limite consentito di " & tbl & "!",
vbCritical, "Attenzione"
            I_Cod = 0
   'se I_Cod torna 0 S_Cod torna "00..0" e eventualmente si puo' intervenire
      Else
            For i = char_key To 1
               S_Cod = "0" & S_Cod
            Next
   End If
         S_Cod = S_Cod + CStr(I_Cod)
         Max = S_Cod
End Function


anzi ora non funziona neanche nel form!!
cosa c'e' di sbagliato???
 grazie 1k

 cosa c'e' di sbagliato???
scusate :p
le virgolette!!!!!
^___^
Devo staccarmi dal monitor almeno un paio d'ore
ciao diego
Newsgroup: it.comp.appl.access
Titolo: Report in pdf

Salve,
ho creato un BE con access per la stampa di fatture che devono essere 
esportate in pdf.
Ho provato installando pdf creator e usando la procedura riportata sul sito 
comune. Per un po funziona, poi quando si fanno aggiornamenti di pdfcreator 
oppure si utilizza il programma da un altro pc, segnala errore nel 
riferimento a pdfcreator, dicendo che non lo trova pi�.
Per stampare il report, uso il seguente codice:
Dim StDocName As String
Dim StrLinkCriteria As String
 
StDocName = "fattura"
StrLinkCriteria = "[causale] = '" & Me.causale & "' and [numero_documento] = 
" & Me.numero_documento & " and [data_documento] = #" & Me.data_documento & 
"#"
 
DoCmd.OpenReport StDocName, , , StrLinkCriteria, , "fattura"
 
Vorrei sapere se � possibile creare un pdf velocemente e senza usare 
pdfcreator.
Ho visto il programma fatto da Stephen Lebans e devo dire che � molto 
performante ma, non sono riuscito a capire come fare a passargli sia i 
criteri che l'openargs.
E' possibile stampare il pdf senza pdfcreator o altri programmi? oppure, si 
pu� passare nella procedura di Stephen Lebans anche i criteri e l'openargs?
 
Grazie a tutti anticipatamente.
Stefano
 
 
 

 criteri e l'openargs?
 
Dipende un po' dalla versione di Access che non hai rivelata.
Sai che da A07 in poi Access puo creare PDF senza altri programmi?
 
In principio il trucco ï¿œ sempre lo stesso: prima apri il report
in anteprima (visibile o no) e poi usa o la funzione di Lebans o
OutPutTo (in >=A07), p.e.
 
DoCmd.OpenReport "TuoReport", acViewPreview, , "qui i criteri"
ConvertReportToPDF "TuoReport", ecc.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 


La versione di access che sto usando ï¿œ la 2003. Purtroppo il mio cliente 
non ha la 2007.
Provo a vedere se funziona aprire il report in anteprima e poi lanciare 
la funzione di conversione del report.
Grazie mille per i suggerimenti.
 
Ciao.
 
Stefano

Newsgroup: it.comp.appl.access
Titolo: MDE errore

Ciao a tutti, ho provato a creare una versione del mio database in formato 
mbe, ma access mi da una finestra di errore, come se ci fossero troppe 
maschere da convertire (eppure non č cosě, ce ne solo solo 20, mentre 
l'avviso parla di 2000 e passa).
Facendo varie prove mi sono accorto che il problema risiede su due maschere 
e cioč quelle in cui ho inserito negli eventi "su apertura" e "su chiusura" 
(varie macro che aprono e chiudono altre maschere piů altre cose).
Cancellando queste due maschere access riesce a convertire in mde, 
altrimenti nulla da fare.
Esiste un metodo per ovviare a tutto questo?
Grazie a tutti. 


Riuscirai a trovare l'errore semplicemente lanciando un debug dalla finestra
di Vba.
Una volta intercettato l'errore potrai facilmente rimuoverlo e vedrai che
Access ti creerà il file mde.
Newsgroup: it.comp.appl.access
Titolo: Record eliminato su maschera dopo DELETE e INSERT

Buongiorno a tutti, ho un problema di questo tipo.
Per semplicità di manutenzione dell'applicativo Access, ho pensato di agganciare una tabella ad una maschera (non continua) e di aggiornare i campi della maschera collegati alla tabella cancellando il record attuale con DELETE * e aggiungendo il record voluto con una INSERT (entrambi i comandi agiscono sulla tabella tramite il comando VBA RunSQL).
La sequenza funziona nel seguente modo:
0) la form punta sull'unico record attualmente presente nella tabella;
1) si preme il pulsante sulla form per avviare procedura;
2) lancia delete * from tabella;
3) lancia insert into tabella select (1 solo record);
4) infine requery / refresh della form  , mi aspetto che venga visualizzato l'unico record appena inserito.
Il problema è che nel punto 4) esce l'errore "Errore di run-time '3167' Record eliminato".
Ovviamente Access ha ragione, ma sono un po' arrugginito in materia Access:
devo scegliere eventi diversi per le varie operazioni? oppure forzare il salvataggio con Me.Dirty? oppure forzare il passaggio al nuovo record inserito, ecc. ?
Grazie in anticipo se mi potete dare una dritta.

 Il problema è che nel punto 4) esce l'errore "Errore di run-time '3167' Record eliminato". 
 
Grazie lo stesso ho risolto facendo uso della buona vecchia chiave del record:
inserire il record con una chiave
aprire la Form puntando alla chiave
cancellare tutti i record di tabella diversi dal valore chiave.
 
DoCmd.RunSQL _
"INSERT INTO Ordine" _
& " SELECT * FROM qOrdineRead" _
& " WHERE ID='" & sChiave & "'"
 
DoCmd.OpenForm "Form", , , "ID='" & sChiave & "'"
DoCmd.RunSQL "DELETE * FROM Ordine WHERE ID<>'" & sChiave & "'"
 
Forse la soluzione è naive ma permette di risparmiare molto tempo rispetto ad alimentare una maschera non associata con assegnazioni campo per campo.

Newsgroup: it.comp.appl.access
Titolo: dati seqenziali

Devo risolvere questo quesito che da tempo mi assale.
Il mio database ha dei campi numerici e campi con data.
i campi numerici sono sequenziali e possono contenere anche valori identici,
così per i campi data.
Cio che vorrei evitare e questo:
il secondo campo numerico con relativa data non puo essere inferiore al
primo campo numerico se ha data superiore alla prima, e così via.
Per un esempio pratico:
N° 12 del 12/12/01
N° 13 del 13/12/01 (possibile)
N° 14 del 12/12/01 (impossibile)
N° 14 del 14/12/01 (possibile)
esiste un codice ho una rutine o una macro che eviti questo?

 esiste un codice ho una rutine o una macro che eviti questo?
Non spieghi come vengono inseriti questi valori.
Comunque, tramite le funzioni DLookup o Dmax puoi scrivere del codice a
fronte dei dopo aggiornamenti sulla maschera e risputare gli inserimenti non
corretti
Antonio
Newsgroup: it.comp.appl.access
Titolo: maschera di input

aaaaaaaaaaaaaaaaaaaaaaaaa
e cosě dacendo non č consentito inserire cognomi accentati tipo SALO'
come lo risolvete voi?
ciao

 ha scritto nel messaggio
news:9r3vke$1ca6$1...@stargate1.inet.it...

nel tuo ragionamento ci sono due concetti che si escludono mutualmente:
1) Ci devono essere solo lettere
2) Ci possono essere apostrofi
Possibile soluzione:
Nel codice dell'evento "su pressione" metti
KeyAscii= GetAsc(KeyAscii)
dove GetAsc č questa funzione:
Function GetAsc(nAsc As Long) As Long
    ' Costante con i caratteri che si lasciano passare (occhio all'apostrofo
all'inizio)
    Const scChars = "'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If InStr(scChars, Chr(nAsc) > 0) Then
        GetAsc = nAsc
    Else
        GetAsc = 0
    End If
End Function

C'era una parentesi messa male:
Function GetAsc(nAsc As Long) As Long
    Const scChars = "'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If InStr(scChars, Chr(nAsc)) > 0 Then


fantastico!
il problema era proprio di concetto: non vogliono simboli tranne il simbolo
'
bisogna saperlo fare!
ciao grazie


Private Sub txtCognome_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
	Case 39, 65 to 90
		' Niente perché apostrofo e lettere maiuscole
	Case 97 to 122
		KeyAscii=KeyAscii - 32   ' Trasforma minuscole in
maiuscole
	Case Else
		KeyAscii = 0        ' Nessun altro carattere è ammesso
	End Select
End Sub
Ciao Filippo
Filippo da studio

funziona, ma adesso non mi prende più gli spazi e il tasto back
Come fare?

con il tuo metodo basterebbe trovare i codici dello spazio e back ed
aggiungerli ai case?
Non l'ho ancora provato però, scusami
ciao

 Come fare?
guarda il commmento della funzione che ti ho scritto, nella costante vanno i
caratteri che accetti, aggiungi anche lo spazio. Non puoi rappresentare il
backspace per cui mettici una riga di codice che testa nAsc=9 (backspace)


Scusa, il backspace č 8. Comunque fai cosě
Function GetAsc(nAsc As Long) As Long
    Const scChars = "'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    If (InStr(scChars, Chr(nAsc)) > 0) Or (nAsc = 8) Then


con il tuo metodo basterebbe trovare i codici dello spazio e back ed

Si certo, space è 32 e back è 8
per Back non dovrebbe neabche essere necessario perché se non ricordo
male è insensibile a KeyAscii (cioè non viene intercettato) però non
sono sicuro. Controlla.


siete fantastici, grazie ad entrambi!
Newsgroup: it.comp.appl.access
Titolo: Query accodamento e criterio Like

In una query di accodamento ho un valore da accodare nel campo
della tabella di destinazione ( e che poi e' il discriminante dei dati
della query) che viene richiesto mediante il criterio:
Like[inserisci valore]
La query viene lanciata da codice con una DoCmd.OpenQuery.
All'interno della maschera il cui codice lancia la query
ho gia' il valore che deve essere accodato.
Come posso fare per accodare il valore prendendolo direttamente
dalla maschera evitando il prompt del 'Like'?
Ciao

 Ciao
il criterio deve essere : Like [Forms]![Tua_Form]![Tuo_Campo]
-- 
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Pablitomf (Maurizio Facciuti)
tnx , as usual aggiungerei...:)
Spider

Newsgroup: it.comp.appl.access
Titolo: format(12.13, "#.00") restituisce 12,13 come faccio ...

format(12.13, "#.00") restituisce 12,13 come faccio per ottenre 12.13 senza 
sostituire il carattere , con . nella stringa e senza variare le 
impostazioni internazionali
Grazie fin'd'ora
Ever


Si immagina che tu voglia 12.13 in formato stringa:
str(12.13)
Ciao
AleC

 ha scritto nel messaggio 
news:260f1c07-d053-405b...@h23g2000prf.googlegroups.com...

E' quello che mi serviva.
Grazie
Ever

Newsgroup: it.comp.appl.access
Titolo: Valore da query a casella d testo

Ho creato una query che ottiene il valore massimo del campo NumeroFattura e
lo incrementa di +1 mettendo il valore nella espressione newnumber.
Come faccio a passare questo valore dall'espressione nella query in una
casella di testo (NumeroFattura) in una maschera (fatture)?
Ho provato a guardare sul sito comune ma non sono riuscito a trovare niente.
Grazie.

 ha scritto nel messaggio
news:UH9kb.11074$e5.3...@news1.tin.it...

Se la query che hai creato l'hai anche registrata, usa la funzione DLookup
(vedi help).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
--------------------------------------------- 

 wrote in message
news:UH9kb.11074$
e5.3...@news1.tin.it

Secondo me non è il modo giusto per operare.
La funzione che hai usato per calcolare il nuovo
numero di Fattura la generi Public in un Modulo
usando le funzioni di aggregazione sui domini, magari
usando DMAX("NumeroFattura","TabellaFattire") se il campo
è esclusivamente numerico, altrimenti usa la stessa funzione della
Query.
A questo punto nella Casella di Testo come Valore Predefinito
inserisci il nome della Funzione che hai generato:
=MaxFattura()
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Roberto
Grazie mille, funziona!
Newsgroup: it.comp.appl.access
Titolo: FDF Toolkit e file PDF

Ciao a tutti,
sto tentando di creare un codice per compilare automaticamente i campi
nascosti in un file PDF.
su internet ho trovato che questo ė possibile tramite FDF Toolkit, Adobe
acrobat per creare i campi nel file PDF e Visual basic per scrivere il
codice per poter valorizzare i campi.
A questo punto il mio dubbio ė di sapere se il codice scritto con Visual
basic è uguale a quello che devo compilare con Visual basic for access,
a me sembrano uguali!
Sul sito simply4you ho trovato le istruzioni che fanno riferimento a
Visual basic, sapete dove posso trovare le informazioni per Microsoft
access?
Grazie


Sono sostanzialmente uguali in quanto VBA è un dialetto di VB6
specifico per l'applicativo, passatemi l'esempio.
Di fatto il VBA è composto dalle istruzioni VB6+Istruzioni specifiche
per l'applicativo.
@Alex

Newsgroup: it.comp.appl.access
Titolo: Riepilogo di una serie di Query

Salve,
ho bisogno di un vostro aiuto, giacché con la mia conoscenza di Access
(molto limitata, sigh) non riesco a risolvere questo problema.
Dunque ho una tabella dove ho i dati principali, chiamiamola "Tabella",  i
campi interessati sono:
...    Data    ...    Importo    Note    Esiti
I campi "Note" ed "Esiti" hanno valori diversi; attraverso l'incrocio di
tali valori estrapolo gli importi necessari, costruendomi tre query ad hoc
(ed utilizzando un range "Data" Between [da data] And [a data]), e sono:
Criterio: Note="Contanti" quindi è l'incassato
Criterio: Note="Contanti" Or Esiti="C" quindi è la rimessa clienti
Criterio: Note="Reso" Or Esiti="C" quindi è il giroconto
Attreverso tre report diversi ho effettuato al loro interno i totali delle
rispettive query, ma adesso vorrei costruirmi un report riepilogativo dove
posso inserire questi tre dati su un unico foglio, come devo procedere? ho
provato a costruirmi una query inserendo i tre "Importo" delle rispettive
query ma non so come visualizzarle tutte usando un range "data" che sia
comune a tutte le tre query.
Spero sia stato chiaro nell'esposizione (mi sono anche un po incartato
nell'esposizione, scusatemi...) e, ringraziandovi anticipatamente, ne
approfitto per salutare tutti gli amici della news .
Liano

 comune a tutte le tre query.
La query avrà tre campi calcolati fatti così
Importo_Incassato: iif(note = "Contanti" AND Esiti <> "C";importo;0)
Importo_Rimessa: iif(note = "Contanti" AND Esiti = "C";importo;0)
Importo_Giroconto: iif(note = "Reso";importo;0)
Facendo le somme nel report di questi campi calcolati hai gli importi per
catogoria
Antonio

 ha scritto nel messaggio
news:syn1c.48516$FJ6.1...@twister1.libero.it...

Salve,
gli Or dovevano essere effettivamente Or, visto che i campi "Note" ed
"Esiti" possono anche avere valore nullo, comunque ho provato e funziona
alla grande, grazie!!!!!!!!!!!!!!!!!!
Saluti
Liano
P.S.: scusami per l'e-mail privata ma ho sbagliato ad inoltrare la risposta,
non volevo.
Newsgroup: it.comp.appl.access
Titolo: Memoria Esaurita!!!!!!!!!

Salve a tutti.
Ripropongo un errore ormai noto, ma che comunque non ho ancora capito a cosa
sia dovuto.
Mi spiego meglio.
Ho costruito un semplicissimo DB che non presenta alcuna imperfezione nella
sua struttura. Di questo ne sono certo.
Ora nel momento in cui compio una serie di operazioni quali:
* inserimento di dati,
* visualizzazione report,
* apertura e chiusura di una maschera,
* passaggio all'altra maschera,
ecc..
indovinate chi si presenta??
"Memoria Esaurita, Impossibile aggiornare la visualizzazione...chiudere i
programmi non necessari e riprovare"
...quali programmi!?
Beh...io non so più dove andare a "parare"!
Vorrei proprio sapere se qualcuno di voi ha risolto definitivamente questo
problema e se ha scoperto la "vera" causa del tutto.
Vi ringrazio anticipatamente!!!
Luca


Sent via Deja.com 
http://www.deja.com/
Before you buy.
Newsgroup: it.comp.appl.access
Titolo: Impedire ad una maschera senza righe di aprirsi

Buon Giorno
A97
ho uma naschera ORDINE
con sottomaschera RIGHE ORDINE
link tra le 2 (Master e Slave) ID ORDINE in entrambi i casi
voglio ad apertura maschera che se la maschera slave non ha record mi si
inibisca l'apertura della stessa con msgbox 'la maschera non presenta
record..."
come si puo' fare????
Grazie
Luigi
BARI


if dcount("*", tuatabella, Tuofiltro) >0 then
    docmd.openform...
else
msgbox
end if
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio
news:dt1qtc$sar$1...@area.cu.mi.it...

Vosa vuol dire tuatabella e tuofiltro????
Io apro la maschera (con sottomaschera in questione) utilizzando un pulsante
abbinato
ad una macro (apri maschera condizione where)
Voglio che nel momento che seleziono il numero d'ordine
e spingo il pulsante ad apertura della amschera mi faccia un controllo se
esistonto recorsds in sotoo maschera...
in caso negativo (non presenza di records) nessuna apertura...
Grazie

 ha scritto nel messaggio 
news:nh_If.5456$uQ4....@tornado.fastwebnet.it...

Vuol dire che Ma ti ha indicato una traccia che tu adesso devi sviluppare.
Premi F1 si apre la guida in linea e li ti cerchi DCount e trovi
È possibile utilizzare la funzione DCount per stabilire il numero di record 
contenuti in un determinato set di record, un dominio. Utilizzare la 
funzione DCount in Visual Basic, in una macro, in una espressione nella 
query o in un controllo calcolato.
È possibile, ad esempio, utilizzare la funzione DCount in un modulo per 
restituire il numero di record contenuti in una tabella Ordini 
corrispondente agli ordini inoltrati in una determinata data.
Sintassi
DCount(espr, dominio[, criteri])
nota quanto assomiglia a  " if dcount("*", tuatabella, Tuofiltro) >0 then"
Poi se sei audace clicchi su Esempio e .....
Esempio di funzione DCount
Nell'esempio riportato di seguito si restituisce il numero di ordini 
inoltrati nel Regno Unito dopo il 1 gennaio 1995. Il dominio è la tabella 
Ordini. L'argomento criteri limita il set di record risultante ai record per 
i quali PaeseDestinatario è uguale a UK e DataSpedizione è posteriore al 
01/01/95.
intX = DCount("[DataSpedizione]", "Ordini", _
 "[PaeseDestinatario] = 'UK' AND [DataSpedizione] < #01/01/95#")
Nell'esempio riportato di seguito l'argomento criteri include il valore 
corrente di una casella combinata chiamata PaeseDestinatario. I valori 
contenuti nella casella combinata PaeseDestinatario provengono dal campo 
PaeseDestinatario della tabella Ordini. Si noti che non viene incluso il 
riferimento al controllo tra le virgolette che denotano la stringa. In tale 
modo si assicura che ogni volta che viene richiamata la funzione DCount, il 
controllo fornisca il valore corrente.
intX = DCount("[DataSpedizione]", "Ordini", "[PaeseDestinatario] = '" _
 & Forms!Ordini![PaeseDestinatario] & "'AND [DataSpedizione] < #01/01/95#")
Morgan.
Newsgroup: it.comp.appl.access
Titolo: Proprietà RecordsetType

Ciao,
situazione Form con sottoForm, impostati su Snapshot per evitare modifiche 
dall'utente A
L'utente B può modificare i dati dopo log sulla Form
riesco ad impostare la proprietà recordsetType per la form principale, ma 
non riesco per la parte sottoscheda, mi chiedo:
è possibile? e come
ciao
Fabio

 Fabio 

 ha scritto nel messaggio
news:45dea2de$0$3817$5402...@news.sunrise.ch...

Hai provato a usare la solita sintassi per referenziare controlli dentro una
sottomaschera e cioè
me.sottomaschera.form.controllo. ... ?
Antonio

 Antonio

Newsgroup: it.comp.appl.access
Titolo: numerazione gruppi record in una query

ho una tabella così
id  |           tipo|     gruppo|
1  |            1   |      1
2  |            2   |      1
3  |            3   |      1
4  |            1   |      2
5  |            2   |      2
10|            2   |      2
11|            3   |      2
12|            1   |      3
13             2   |      3
25|            3   |      3
sostanzialmente ad ogni tipo 1 vorrei che il gruppo aumentasse di 1
anche per i record di tipo 2 e 3 , che sono ovviamente in numero
variabile come si vede dagli id 5 e 10
è possibile? se sì come deve essere scritta l'sql?
ciao a tutti e buona giornata

 � possibile? se s� come deve essere scritta l'sql?
In un campo calcolato di una query puoi usare p.e.
DCount("*","tabella","tipo = 1 And id<=" & id)
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

Karl Donaubauer ha scritto:



anzitutto grazie per l'interessamento e per la risposta, per� in questo mi
numera solo i record di tipo 1 ma i record successivi (con id maggiore del
record di tipo 1 precedente) di tipo 2 e 3 non vengno ovviamente numerati
� prorio questo il mio problema maggiore....
magari hai qualche idea con qualche subquery o devo magari utilizzare
qualche function?
ciao e per ora grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Karl Donaubauer ha scritto:



tra le altre cose non funziona il dcount che mi hai segnalato, mi
restituisce sempre 0


Karl Donaubauer ha scritto:



scusami ho detto solo fesserie funziona alla perfezione, sei stato come la
solito gentilissimo e ultra competente
ciao e grazie mille ancora

Newsgroup: it.comp.appl.access
Titolo: ARCHIVIAZIONE DOCUMENTI

Vorrei realizzare un applicativo che gestista l'archiviazione di documenti.
Per ogni documento archiviato vorrei conservare anche una copia
scannerizzata....
per il database penso di avere le idee chiare.....
che tipo di controllo devo utilizzare per avviare la scansione e archiviare
l'immagine insieme al record direttamente da access?
grazie Ciao

 ha scritto nel messaggio
news:bmqs8h$fup$1...@lacerta.tiscalinet.it...

Se con VBA di Access vuoi scannerizzare un documento la cosa migliore è
usare i controlli ActiveX Kodak che, se usi una versione di Windows
precedente a Windows XP, li trovi già installati nel tuo PC insieme al
programma Imaging, anche quello della Kodak.
Con essi puoi creare un file immagine .tif o .bmp scannerizzando da VBA
un'immagine, scegliendo tu il nome del file ed il nome della directory che
lo conterrà.
A questo punto in una tabella sarà sufficiente memorizzare, in un campo di
tipo testo, il percorso completo (directory + nome + estensione) del file
immagine; per visualizzare in una maschera o in un report il contenuto del
file immagine esterno al database, sarà sufficiebte inserire in essi un
controllo Immagine ed impostare la sua proprietà Picture con il percorso
completo del file. In alternativa potrai visualizzare l'immagine in un
controllo ActiveX Kodak.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Casella Combinata e valore "Tutti"

Ciao a tutti!
Prendendo spunto dalla Faq di Roberto sul SC ed avendo la necessità di
aggiungere una scelta "Tutti" all'interno dei campi di una casella
combinata, ho indicato come origine riga della stessa:
SELECT 0 As Oper, "Tutti" As OperChiaro
FROM TCasOper
UNION SELECT TCasOper.Oper, TCasOper.OperChiaro FROM TCasOper;
E fin qui tutto bene, il valore "Tutti" compare in testa alle scelte ed
è ok!
Tuttavia non mi riesce di far comparire detto valore "Tutti" come
valore predefinito! Penso che dipenda dalla Query, ma non riesco a
venirne a capo. C'è qualcuno che può darmi una mano?
Grazie!


www.donkarl.com/it
FAQ 4.12 Casella combinata/di riepilogo - Selezionare una riga
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

Karl Donaubauer ha scritto:

Ok, molte grazie, funziona alla grande, ma siccome l'appetito vien
mangiando, dovrei anche poter impostare da evento click di pulsante di
comando, il valore "Tutti": con un semplice
 Me!Casella Combinata = "Tutti"
 non compare niente! Mi dai ancora una piccola mano? Devo aggiornare lo
schermo?
Grazie!

Grazie!
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

Roberto dal portatile ha scritto:

Però non è possibile farlo dall'evento click di un pulsante di
comando? In pratica vorrei impostare a "Tutti" il valore della casella
combinata, qualsiasi sia il valore selezionato in quel momento(con form
aperta ed in uso): non mi pare una buona soluzione chiudere e riaprire
la maschera, ma dall'evento click sul pulsante di comando non riesco a
far uscire il mio "Tutti"!

far uscire il mio "Tutti"!
Certamente si: non vedo proprio dove sia il problema a farlo.




Scusami per questa storia senza fine, ma la Casella combinata è
associata ad una tabella che non contiene il valore "Tutti", che è
stato aggiunto con
SELECT 0 As Oper, "Tutti" As OperChiaro
FROM TCasOper
UNION SELECT TCasOper.Oper, TCasOper.OperChiaro FROM TCasOper
Di solito non ho problemi ad impostare su click e pulsante di comando
qualunque valore per una casella combinata associata ad una tabella, ma
in questo caso non riesce: sarà una questione di aggiornamento di
schermo?

PaoloD ha scritto:

Mi rispondo da solo: e' solo questione di aggiornamento di schermo, con
un bel
'Me.Refresh'
riesco ad impostare sto valore!
Grazie molte a tutti!

Newsgroup: it.comp.appl.access
Titolo: Perchè l'invio di posta non funziona ?

Ciao a tutti ! Ho problemi a spedire dei report tramite posta elettronica da
Access.mi da un errore ""impossibile aprire la sessione di posta
elettronica" Controllare l'applicazione per assicurarsi che funzioni
correttamente.
    Che significa ?
Gigi

 ha scritto nel messaggio
news:RRpO6.2244$d8.4...@news2.tin.it...

come fai a spedire un report via posta?
lo stampi su file? lo converti in pdf? o cosa?
Max
Newsgroup: it.comp.appl.access
Titolo: Far apparire una combobox su selezione di un valore

Ciao a tutti!
Ho un problema che so già che non riuscirò a spiegare :)
Allora, sto facendo un database in cui vengono inserite delle
informazioni, diciamo che è il fulcro del database, poi viene tutto il
resto: cioè fonti delle info, chi riguardano, oggetto
dell'informazione, ecc....
Nella maschera di inserimento dell'informazione ad un certo punto ho
una casella combinata dove posso scegliere l'oggetto. E fin qui tutto
bene, solo che mi è stato chiesto di fare un'ulteriore suddivisione.
Se in Oggetto scelgo un determinato oggetto (tra: Prodotti, Progetti
futuri, Vendite, e altri), cioè "Prodotti", vorrebbero poter inserire
anche il prodotto specifico cui riguarda l'info.
C'è un modo per far si che alla scelta nella CasellaCombinata di
"Prodotti" appaia di fianco una casella combinata che mi mostri i
prodotti? (ho già creato la tabella in questione, il dubbio è proprio
su come far apparire la Casella solo in quel caso)
Grazie per eventuali risposte!

 su come far apparire la Casella solo in quel caso)
La crei con visibile a false, dopo aggiornamento del campo prima fai un IF
che rende visibile la combo o la rinasconde.
Ciao

 Ciao
Si, è proprio quello che ho fatto, ma nell'IF devo aver sbagliato
qualcosa.
Come si fa a dirgli "se il valore selezionato della casella combinata
è uguale a <valore>"???
Ho fatto una If di prova con 2 msgbox a seconda che il valore sia
uguale o no, ma non lo è mai, quindi inizio a pensare che sia
sbagliato il codice.
Grazie!

Newsgroup: it.comp.appl.access
Titolo: Re: Blocco Tastiera


durante l'azione del tuo codice imposta a null l'effetto keypress\keydown e
riabilitalo quando il codice avrà finito di girare.
non l'ho testata, ma così a naso, credo sia la strada giusta da seguire.
saluti,
--
strano...mavero




C'ho pensato su, ma non riesco a capire come fare operativamente...
C'è qualche proprietà particolare da impostare sul form oppure che altro ?
grazie
Newsgroup: it.comp.appl.access
Titolo: Sicurezza con Access 2010

Buongiorno,
Avendo la necessità di non rendere pubblico un file access che
contiene dati personali, ma dovendo al tempo stesso renderlo
disponibile ad un gruppo di persone autorizzate, abbiamo messo in
rete
il file MDB di access 2002, che però può essere aperto solo con il
comando seguente (già convertito per l'uso con access2010):
"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE" D:\per
\giper_xp\XP/WRKGP d:\per\giper_xp\xp_per10.mdw
Il comando funziona e fino a qui nessun problema.   Ma, mentre nella
versione Access 2002, non era possibile aprirlo direttamente, adesso
basta lanciarlo e si apre, mostrando tranquillamente tabelle e dati
riservati.
Come si può gestire questo tipo di  sicurezza con Access 2010?
Grazie Ulderico.


credo di aver letto che convertendo un db in access 2010 la protezione a 
livello utente venga rimossa.
google di sicuro ti aiuta
ciao
BFS


Già dalla versione 2007 la gestione del File MDW non è più usata.
Leggi questo:
https://groups.google.com/group/microsoft.public.it.office.access/browse_thread/thread/ebb039467798806a/3b0b166fee1c0c72?hl=it&lnk=gst&q=sicurezza+utente+A2007#3b0b166fee1c0c72
@Alex

 - Mostra testo citato -
GRAZIE per le risposte


Ciao Ulderico,
non so se hai ricevuto la mia nota  postata due giorni fa perchè non
la vedo nelle risposte al tuo quesito.
Comunque la riepilogo.
Ho avuto lo stesso tuo problema ma io avevo già implementato
nell'applicazione una gestione utenti, come suggerito da  @Alex in
altri posts.
Nel convertire la mia applicazione in access 2010 ho aggiunto nell'
evento load della maschera di startup la seguente istruzione:
Dim MySystemDbase As String
MySystemDbase = SysCmd(acSysCmdGetWorkgroupFile)
If Right(MySystemDbase, 12) <> "Security.mdw" Then
    MsgBox ("You are not allowed to open this application, Please use
proper application")
    DoCmd.Quit
End If
tale istruzione restituisce il percorso completo del file system, ne
estrae solo il nome e lo confronta con il nome del mio file
system(security.mdw).
Se il nome non è lo stesso, lancia il messaggio che la persona non è
abilitata ad aprire l'applicazione e chiude la stessa.
Se il nome è lo stesso,  confronto il nome utente usando l'istruzione
CurrentUser, con l'uleriore lista degli utenti implementata e se
l'utente non è l'amministratore di sistema lancio le seguenti
istruzioni:
       SetProperties "AllowBypassKey", dbBoolean, False
       SetProperties "AllowFullMenus", dbBoolean, False
       SetProperties "AllowBuiltInToolbars", dbBoolean, False
       SetProperties "StartUpShowDBWindow", dbBoolean, False
che disabilitano il menu, di access, i tasti speciali e quanto non
necessario al normale utente.
In Access 2010 se l'applicazione viene lanciata senza far riferimento
ad un file system, niente è cambiato. Il percorso restituito sarà
quello di default (system.mdw) che non esiste più e il CurrentUser
sarà Admin che non è presente nella mia list di utenti abilitati.
Spero di essere stato chiaro e di aver contribuito a risolvere parte
del tuo problema
Saluti
Newsgroup: it.comp.appl.access
Titolo: proprietà o metodo non supportati dall'oggetto

ciao a tutti
su scricamento di una maschera ho inserito:
 
    If Not IsNull(Forms![MieOrdini]![ordini_a_Fornitori].IDOrdine) Then
        Forms![MieOrdini].SetFocus
        Forms![MieOrdini]![ordini_a_Fornitori].SetFocus
        DoCmd.GoToRecord , , acFirst
    End If
 
per passare dopo la chiusura della maschera al primo record della 
sottomaschera
"ordini_a_Fornitori" (già aperta)
 
Ma ho l'errore
proprietà o metodo non supportati dall'oggetto
 
Come posso risolvere?
Grazie
 
 
 

Piero ha scritto:

E' sbagliata la sintassi per il riferimento alla sottomaschera.
Vedi 
http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm
 
4.2   Riferimento ad una sottomaschera/sottoreport
Ciao.
-Marco-
 
 
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

 ha scritto nel messaggio 
news:kp6u69$618$1...@news.newsland.it...

grazie Marco

Newsgroup: it.comp.appl.access
Titolo: Host

Come si può ottenere il nome dell'host che sta utilizzando un certo database
in una intranet con diversi sistemi operativi Windows ???


Se ricordo bene nel file ldb c'è scritto...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:baq64b$dd9$1...@canarie.caspur.it...

Altrimenti c'è un'API specifica...

Newsgroup: it.comp.appl.access
Titolo: Query: espressione

A97
Un saluto a tutti
In una query con la seguente situazione:
DataReg    Quant
13/01            20
14/01            30
03/02            12
04/02            10
Vorrei creare un campo calcolato che raggruppasse per mese facendo la somma
del campo Quant.
In sostanza vorrei ottenere:
Genn        50
Febb        22
Ringrazio in anticipo chiunque vorrà aiutarmi
Saluti
  Gabriele

 ha scritto nel messaggio
news:Xq11c.2720$36.6...@news4.tin.it...

Se la tabella che contiene i dati si chiama Tabella1 ed ha un astruttura
simile a questa:
ID                   Contatore e chiave primaria
DataReg          Data/ora
Quant              Numerico
ecc. ecc.
Creati una query di raggruppamento che abbia il seguente codice SQL:
SELECT Format([DataReg],"yyyy mmm") AS AnnoMese, Sum(Tabella1.Quant) AS
SommaDiQuant
FROM Tabella1
GROUP BY Format([DataReg],"yyyymm"), Format([DataReg],"yyyy mmm");
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Access 2016 - cambiare nome al file allegato alla mail con sendobject

mi spiego meglio, 
 
con il comando 
DoCmd.OutputTo acOutputReport, "Fattura", acFormatPDF, PercorsoFinale & nomefile
genero un file pdf in c:\fatture\001_2019.pdf
 
poi con il comando
DoCmd.SendObject acSendReport, "fattura", "PDFFormat(*.pdf)", Me.Email, , , oggetto, testo, True
 
invio il report di nome "Fattura" in formato pdf alla mail del cliente, ma l'allegato si chiama "fattura.pdf" che è il nome del report
 
----------------
la mia domanda è
----------------
si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?
 
grazie a tutti.

Domanda molto strana...
Il file che alleghi deve esistere quello che inserisci è il Path del file che verrà passato alla codifica MIME.
Quindi certo che puoi cambiare nome, ma non alla variabile, ma direttamente al file prima di inviarlo ovviamente.
 
@Alex

 si può inviare come allegato il file creato con il comando DoCmd.OutputTo che si chiamerà correttamente "001_2019.pdf" oppure si può cambiare nome da codice vba al file che viene generato e allegato con il comando sendobject?
 
Il tuo codice non manda come allegato il file che salvi ma direttamente 
il report di Access. Non è possibile di mandare un file salvato con 
SendObject. Dovresti usare un codice diverso di automazione di Outlook o 
diversi altri metodi di mandare e-mail.
 
Se invece vuoi solo cambiare il nome del file allegato basta cambiare la 
proprietà Caption del report, p.e.
 
Dim strRptName As String, strPDFName As String
 
strRptName = "Fattura"
strPDFName = "001_2019" 'o la variabile nomefile ma senza ".pdf"
 
DoCmd.OpenReport strRptName, acViewDesign, , , acHidden
Reports(strRptName).Caption = strPDFName
DoCmd.Close acReport, strRptName, acSaveYes
 
DoCmd.SendObject acSendReport, strRptName, acFormatPDF, Me!Email, , , 
Oggetto, Testo, True
 
 
-- 
Ciao
Karl
*********
http://www.AccessDevCon.com
 
Access FAQ: 
http://www.donkarl.com/it
 


chiarissimo grazie mille


provato e funziona grazie ancora.


mi è venuto un dubbio, se devo distribuire il file formato accde ce non prevede l'apertura in modalità struttura di un report per cambiarne la proprietà caption, esiste un altro modo per il file accde?
 
Grazie.

 ...
 
Usa la vis. anteprima di stampa invece di struttura:
 
...
 
DoCmd.OpenReport strRptName, acViewPreview, , , acHidden
Reports(strRptName).Caption = strPDFName
 
DoCmd.SendObject ...
 
DoCmd.Close acReport, strRptName, acSaveYes



ok grazie.


con acViewPreview non funziona mantiene nome report precedentemente creato
Newsgroup: it.comp.appl.access
Titolo: messaggio di errore se dati già inseriti

Buon pomeriggio a tutti, passo subito alla richiesta di aiuto:
nel solito programma di protocollo ho tra gli altri il campo DATA e PROT
Non so come fare per  evitare, magari con un messaggio di errore, che
vengano inseriti dei dati che abbiano la stessa data e lo stesso numero di
protocollo.
In modo da evitare, in fase di digitazione, che qualcuno sbagli anno
(sopratutto in questo periodo) e numerazione progressiva .
Esempio:
Nome Ditta         Data           Prot
Alessia            01/01/00        0001
Alessia            01/01/00        0001        (Errore esiste già il Prot
0001 con data 01/01/00)
Pippo              01/01/01        0001        Ok perchè la data è diversa
Alessia            01/01/01        0002        Ok perchè numero di Prot
diverso
Quindi
- Il campo Data può contenere la stessa data
- il campo Prot può contenere lo stesso Prot solo se data di anno precedente
- il campo PROT e DATA devono dare errore solo se entrambi già digitati.
Spero di essere stata abbastanza chiara.
Grazie tantissime.
Ale

 ha scritto nel messaggio
news:93cqgm$1rta$1...@half.spin.it...

Io ho fatto così:
ho inserito due caselle di controllo impostate a 0 (false), le ho chiamate
(nel tuo caso) numeroProtocolloCambiato e dataProtocolloCambiata;
nell'evento "su modifica" delle caselle di testo [Prot] e [data] imposto per
ognuna numeroProtocolloCambiato = -1 (o true) e per l'altra casella
dataProtocolloCambiata =-1. A questo punto nell'evento "prima di aggiornare"
della maschera, verifico lo stato delle caselle di controllo, se una delle
due è -1 (true) vuol dire che è comunque stato digitato qualcosa o il valore
è cambiato; quindi faccio una ricerca nella tabella per vedere se ci sono
già record con le stesse caratteristiche (numero e data); se sì, un bel
msgbox e un setfocus sul controllo che aveva la casella di controllo a true
invitando l'utente a modificare il valore inserito. Questo mi mette al
riparo da eventuali modifiche al numero e/o data di record già inseriti e
validati, e con record da inserire.
Ciao.

 wrote in message 93cqgm$1rta$1...@half.spin.it...

Per semplificare facciamo il caso che tu usi un pulsante che testa la
correttezza dei dati inseriti, altrimenti dovresti scrivere il codice che ti
dirò sugli eventi dopo aggiornamento di entrambi i controlli PROT e DATA
gestendo il caso di dati ancora non inseriti.
Sull'evento clic del pulsante fai:
dim app as variant
if isnull(PROT) or isnull(DATA) or PROT = "" or DATA = "" then
  msgbox "Ah ciccio, impizza tutti i dati e sveglite!!!"
else
  criterio = "[DATA] = '" & me.data & "' AND [PROT] = '" & me.prot & "'"
  app = Dlookup("[PROT]","tab_dati",criterio)
  if not isnull(app) then
     msgbox "Ma allora dormi! L'hai già impizzato questo!!!"
  else
     msgbox "Sicuramente ti hanno aiutato: va beh, 'namo avanti!"
  end if
end if
Antonio


Grazie Grazie della dritta.
Mi sono piaciuti i tuoi msgbox, quasi quasi li lascio cosģ.
Ale
Newsgroup: it.comp.appl.access
Titolo: A proposito di una data

Un saluto a tutti i frequentatori del Ng.
Supponiamo di avere in un campo una data in formato "gg/mm/aaaa" esiste una
qualche funzione che mi restituisca i mesi (inteso come mese solare)
mancanti alla fine dell'anno, mi spiego meglio con qualche esempio:
Supp. di avere
20/10/1999 --->deve restituirmi  3 (mese solare)
30/09/2000 --->deve restituirmi  4
10/12/2001 ---> deve restituirmi 1
Su excel esiste la funzione Data.diff (data_iniziale, data_finale,
"parametro"), dove parametro permette di impostare come effettuare la
differenza, su access esiste una funzione analoga?

elio <el...@NOSPAMlibero.it> wrote in message
piKX6.6934$x_3.2...@news.infostrada.it...

13 - month(tuaData)
Antonio

"elio" <el...@NOSPAMlibero.it> ha scritto nel messaggio
news:piKX6.6934$x_3.2...@news.infostrada.it...

Con poca fantasia si chiama:
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
vedere help x dettagli
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: email da maschera (modifica inattesa)

Buongiorno,
nel mio db, la tblclienti ha un campo email che ho salvato come collegamento 
ipertestuale, per far si che in tutte le maschere che lo evidenziano, basta 
cliccare sul campo e parte la email con destinatario l'indirizzo che il 
campo indica; ora, fino a ieri funzionava bene...davvero...e non so come 
mai.....ma fatto sta che oggi la cosa non va più! se ad esempio il campo 
contiene 
mio...@tiscali.it
, anzichè aprirsi una email, mi si apre il 
browser che punta a www.tiscali.it...
Come posso risolvere il problema? e soprattutto...cosa ho cambiato perchè si 
modificasse la cosa??
grazie, Raffi 

 grazie, Raffi
-- 
Ciao
Geppo 

"Geppo" <c...@tin.it.invalid> ha scritto nel messaggio 
news:QPy6k.12094$Ca.1...@twister2.libero.it...

Grazie ancora..tutto ok!
Post Chiuso