text:
Alessandro Baraldi ha scritto:

Ho guardato l'esempio di Karl ma non sembra quello che cerco, infatti
in quel caso è possibile cambiare il form che viene usato come
subform, io invece avrei bisogno di
usare sempre lo stesso sottoReport, nel quale personalizzare l'origine
dati di alcuni campi
modificando la proprietà ControlSource (e non la SourceObject del
subReport).
Ciao
Elio


title: Gestione ControlSource in un SottoReport

author: Alessandro Baraldi

text:
Elio_IX ha scritto:
> Alessandro Baraldi ha scritto:
 [CUT]
> Ho guardato l'esempio di Karl ma non sembra quello che cerco, infatti
> in quel caso è possibile cambiare il form che viene usato come
> subform, io invece avrei bisogno di
> usare sempre lo stesso sottoReport, nel quale personalizzare l'origine
> dati di alcuni campi
> modificando la proprietà ControlSource (e non la SourceObject del
> subReport).
>
> Ciao
> Elio
Perchè parli di ControlSource ancora....?
Il ControlSource è l'origine controllo che trovi in ListBox, TextBox
ecc....!
Nelle SubForm e nei SubReport hai il
RecordSource....!!!!!!!!!!!!!!!!!!!!!!
Me!nomeCorniceReport.Report.RecordSource="Nuova"
@Alex


text:
Alessandro Baraldi ha scritto:

Sto parlando proprio di ControlSource perchè è l'origine controllo di
singoli TextBox presenti nel sottoReport che devo gestire ... e non
l'origine dell'intero sottoReport (sourceObject).
Non penso di essere in confusione.
ciao
Elio


text:
Elio_IX ha scritto:
 [CUT]
> Sto parlando proprio di ControlSource perchè è l'origine controllo di
> singoli TextBox presenti nel sottoReport che devo gestire ... e non
> l'origine dell'intero sottoReport (sourceObject).
> Non penso di essere in confusione.
>
> ciao
> Elio
SurseObject non c'azzecca nulla.... quello è solo il riferimento della
cornice al ReportName, cosa ASSOLUTAMENTE diversa dal RecordSource....!
SourceObject="NomeReport"   essendo il SubReport un Report
RecordSource="SELECT * FROM T1 WHERE...."
Se devi accedere al ControlSource
Me!NomeCorniceReport!NomeControllo.ControlSource
Personalmente trovo questo sistema troppo incasinato, senza contare che
se segui i tempi di caricamento degli oggetti prima viene caricato il
SubReport..... quindi potresti avere qualche noia....!
@Alex


text:
Alessandro Baraldi ha scritto:

Ok,
a questo punto proverò una strada differente, lasciando perdere il
sourceObject
nel caso chiederò ancora, approfittando della tua/vostra esperienza.
Per il momento grazie.
ciao
Elio


title: Euro: ecco le funzioni con arrotondamento

author: Carlo Costarella

text:
Buogiorno a tutti.
Gią dall'anno scorso, su questo NG, si č molto parlato e scritto sulla
conversione in Euro e del suo arrotondamento. Con Karl ed altri abbiamo
testato varie funzioni e risolto problemi quale l'arrotondamento delle cifre
negative.
Visto che continuano le richieste per funzioni di arrotondamento dell'Euro,
ho pensato di postare qui e sul sito comune due funzioncine che assolvono
bene al loro compito.
Public Function LireToEuro(denaro As Double) As Double
On Error Resume Next
Dim Euro
Euro = 1936.27
LireToEuro= denaro / Euro
LireToEuro= ArrotondaEuro(LireToEuro)
End Function
Public Function ArrotondaEuro(dblValore)
On Error Resume Next
    If dblValore < 0 Then
    dblValore = (Mid(dblValore, 2, Len(dblValore)) * 100) + 0.5
    If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore)
    ArrotondaEuro = dblValore / 100
    ArrotondaEuro = "-" & ArrotondaEuro
    Else
    dblValore = (dblValore * 100) + 0.5
    If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore)
    ArrotondaEuro = dblValore / 100
    End If
End Function
Ciao, Carlo


author: Stefano Marzocchi

text:
"Carlo Costarella" <
> Buogiorno a tutti.
> Già dall'anno scorso, su questo NG, si è molto parlato e scritto sulla

Tuttavia è decisamente più complessa della funzioncina di Karl ... la quale
mi sembra funzioni perfettamente.
Ciao: Stefano
>


author: Emyr

text:


sono perfettamente daccordo..... Viva Karl.... Karl for president.....
e poi la funzione lì sopra come si comporta con i numeri in notazione
scientifica? 1E-2
Saluti.
Emanuele.


title: Maledetta Requery......

author: Gianni

text:
Beh salve ancora una volta......non ci capisco + un tubo vabbè che sono alle
prime armi ma come mai non mi riesce di fare il  Requery (maledetto) ad una
Sottomaschera ?!?
[Oggetto]. Requery... questo ho trovato.......
ma dove cavolo sbaglio?!?
se qualcuno è disposto a dargli un'occhiata me lo fà sapere ......
Saluti
Gianni.


title: Maledetta Requery......

author: Roberto Pasqualini

text:
"Gianni" <
giian...@bluewin.ch
> ha scritto nel messaggio
news:3ced6...@news.bluewin.ch...

Se si tratta veramente di una sottomasche la sintassi da utilizzare è:
Forms![nome_maschera]![nome_sottomaschera].Requery
Roberto


title: Maledetta Requery......

author: Sib

text:
"Roberto Pasqualini" <
rpasq...@sidesoft.it
> ha scritto nel messaggio
> "Gianni" <
giian...@bluewin.ch
> ha scritto nel messaggio
> > Beh salve ancora una volta......non ci capisco + un tubo vabbè che sono
> alle
> > prime armi ma come mai non mi riesce di fare il  Requery (maledetto) ad
> una
> > Sottomaschera ?!?
> > [Oggetto]. Requery... questo ho trovato.......
> > ma dove cavolo sbaglio?!?
> > se qualcuno è disposto a dargli un'occhiata me lo fà sapere ......
> > Saluti
> > Gianni.
> >
> >
>
> Se si tratta veramente di una sottomasche la sintassi da utilizzare è:
> Forms![nome_maschera]![nome_sottomaschera].Requery
Non sono daccordo.
Direi invece:
Forms!NomeMaschera!NomeSottoMaschera!Form!Requery
Sib


title: Maledetta Requery......

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:NWsH8.82852$CN3.2...@news2.tin.it...

Beh caro Sib le ho provate tutte ma non và.......
grazie comunque...
Gianni.


title: Maledetta Requery......

author: Sergio MAZZA

text:
"Gianni" <
giian...@bluewin.ch
> ha scritto nel messaggio
news:3cf25...@news.bluewin.ch...
>
> Beh caro Sib le ho provate tutte ma non và.......
> grazie comunque...
> Gianni.
>
Prova con:
'--------------------
Forms!NomeMaschera!NomeSottoMaschera.Form.Requery
'--------------------
Ciao.
--
Sergio MAZZA


title: Maledetta Requery......

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
> "Gianni" <
giian...@bluewin.ch
> ha scritto nel messaggio
> >
> > Beh caro Sib le ho provate tutte ma non và.......
> > grazie comunque...
> > Gianni.
> >
>
> Prova con:
> '--------------------
> Forms!NomeMaschera!NomeSottoMaschera.Form.Requery
> '--------------------
Ops,
in realta' io uso sempre e solo i punti, per fare il "toco" ho voluto usare
i punti esclamativi dimenticando di non metterli per le proprieta'.
Sib


title: Maledetta Requery......

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:Uv6J8.2946$b4.6...@news2.tin.it...
>
> Ops,
> in realta' io uso sempre e solo i punti, per fare il "toco" ho voluto
usare
> i punti esclamativi dimenticando di non metterli per le proprieta'.
>
> Sib
>
Poco male, pensa invece se neanche cosě funzia...
Ciao.
--
Sergio MAZZA


title: Maledetta Requery......

text:
Beh ragazzi grazie comunque a tutti per i consigli che mi avete dato
sopratutto a Sib, Sergio , e tanti altri per il mio problema di aggiornare
una casella combinata in tempo reale, purtroppo le ho provate tutte è non và
,è ormai sicuro che dipende da un mio errore ma purtroppo per la mia
conoscenza limitata non riesco a trovarlo, ho aggirato il problema in un
altro modo,poco carino ma efficace,ma mi resta sempre il dubbio di dove ho
sbagliato,quindi io chiedo,prima se c'è qualcuno che ha tempo è voglia di
dare un'occhiata al mio piccolo db per illuminarmi dove ho sbagliato.....
Riannuncio il mio problema....... ho creato un piccolo db impostato
cosi......
ho creato due Tabelle...tabella 1 Reparti,tabella 2 Difetti.
ho creato tramite la creazione guidata una maschera che prende i record da
ambedue le tabelle ed è venuto fuori una Maschera che ho chiamato Störung
(in Tedesco Difetti) con la relativa Sotomaschera che ho chiamata
Sottomaschera Störung......
fino a qui tutto a posto.....ma i problemi cominciano adesso ... nella
sottomaschera ho piazzato un controllo di scelta multipla (Combox) che ho
chiamato Difetti Tipo,ho abbinato al controllo sull'evento doppio clic
l'apertura di un'altra maschera per aggiornare il contenuto della ComBox ma
non c'è verso di aggiornare il controllo(Combox) senza chiudere la maschera
PRINCIPALE..
la soluzione che ho trovato per un altro controllo uguale nella stessa
sottomaschera è il seguente.....(Non ridete,purtroppo non sono un gran che)
ho creato due macro una che all'evento doppio click mi apre la maschera per
aggiornare la combox è nello stesso tempo chiude la maschera
principale,l'altra Macro lo abbinata all'evento di chiusura della maschera
di Immisioni dati in modo che quando finisco di immetere i dati da
aggiornare ,alla chiusura di questa maschera mi riapre la maschera
principale con la Combox aggiornata........
Scusa ma è un sacco di notti che provo di tutto........
Grazie ancora....è scusate lo sfogo......
Gianni.


title: Maledetta Requery......

text:
"Gianni" <
giian...@bluewin.ch
> ha scritto nel messaggio
news:3cf74...@news.bluewin.ch...

Secondo me sono proprio i nomi che ti complicano la vita. Se il controllo lo
hai chiamato Difetti Tipo, la giusta sintassi è: Me![Difetti Tipo], cioè
racchiudi tra parentesi quadre il nome.
Quindi prova con:
'-------------
Forms![NomeMaschera]![NomeSottoMaschera]![Difetti Tipo].Requery
'-------------
Ciao.
--
Sergio MAZZA


title: creare campi su form da VBA

author: Giovanna Pellegri

text:
Ciao a tutti
Sapete se č possibile aggiungere ad una form vuota i campi ricavando le
proprietą (X,Y,Size,"Eventi" ....) da tabella appropriata ?.
Ho provato a leggere l'help ma non ho trovato niente di interessante.
Grazie
Ciao
Giņ
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: creare campi su form da VBA

author: Roberto da casa

text:
"Giovanna Pellegri" <
in...@echovr.it
> ha scritto nel messaggio
news:cbb88c1fe47623c3a1a...@mygate.mailgate.org...
> Ciao a tutti
> Sapete se č possibile aggiungere ad una form vuota i campi ricavando le
> proprietą (X,Y,Size,"Eventi" ....) da tabella appropriata ?.
> Ho provato a leggere l'help ma non ho trovato niente di interessante.
> Grazie
> Ciao
> Giņ
Hai provato con le Funzioni CreateControl e CreateReportControl (vedi help)?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: creare campi su form da VBA

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:zmUkb.51493$
vO5.1...@twister1.libero.it
>
> "Giovanna Pellegri" <
in...@echovr.it
> ha scritto nel messaggio
> news:cbb88c1fe47623c3a1a...@mygate.mailgate.org...
> > Ciao a tutti
> > Sapete se è possibile aggiungere ad una form vuota i campi ricavando le
> > proprietà (X,Y,Size,"Eventi" ....) da tabella appropriata ?.
> > Ho provato a leggere l'help ma non ho trovato niente di interessante.
> > Grazie
> > Ciao
> > Giò
>
> Hai provato con le Funzioni CreateControl e CreateReportControl (vedi help)?
No perchè non le ho trovate.
Adesso guardo meglio.
Grazie
Ciao
Giò



title: Anteprima report diversa da stampa

author: Roberto

text:
Salve a tutti,
ho un problema che oserei definire assurdo.
Ho un DB access che mi crea una lettera di invito al pagamento e
relativo bollettino di c/c postale.
Lo stesso DB è in tre pc diversi (non in rete):
1) stessa versione di office (2000)
2) stesso sistema operativo (win 2000)
3) stampanti multifunzione identiche (canon iR2016i)
L'unica differenza è nel processore.
Il problema è questo:
in anteprima di stampa è tutto ok, mentre in stampa (esclusivamente
nel pc più lento) non mi visualizza i valori "calcolati".
Nel primo report la formula incriminata è:
=[EURO]+([EUROCENT]/100)
Nel secondo report sono:
=Format([EURO]+[EUROCENT]/100;"Standard")
="# " & Trim([Lettere]) & "/" & Format([EUROCENT];"00") & " #"
Esiste una spiegazione?
Grazie


title: Anteprima report diversa da stampa

text: ho fatto una domanda scema ???


title: Anteprima report diversa da stampa

text:
"Roberto" <
erre...@yahoo.it
> ha scritto nel messaggio
news:1181638110.8...@i13g2000prf.googlegroups.com...
Salve a tutti,
ho un problema che oserei definire assurdo.
Ho un DB access che mi crea una lettera di invito al pagamento e
relativo bollettino di c/c postale.
Lo stesso DB č in tre pc diversi (non in rete):
1) stessa versione di office (2000)
2) stesso sistema operativo (win 2000)
3) stampanti multifunzione identiche (canon iR2016i)
L'unica differenza č nel processore.
Il problema č questo:
in anteprima di stampa č tutto ok, mentre in stampa (esclusivamente
nel pc piů lento) non mi visualizza i valori "calcolati".
Nel primo report la formula incriminata č:
=[EURO]+([EUROCENT]/100)
Nel secondo report sono:
=Format([EURO]+[EUROCENT]/100;"Standard")
="# " & Trim([Lettere]) & "/" & Format([EUROCENT];"00") & " #"
Esiste una spiegazione?
Grazie
------------------------------------------
Qualche riferimento mancante?
Hai formattato in grassetto e la stampante non č alla risoluzione adeguata?
Ciao, Carlo


title: Anteprima report diversa da stampa

text:
> Qualche riferimento mancante?
> Hai formattato in grassetto e la stampante non è alla risoluzione adeguata?
no i riferimenti ci sono tutti e le stampanti sono settate tutte uguali


title: Anteprima report diversa da stampa

text:
"Roberto" <
erre...@yahoo.it
> ha scritto nel messaggio
news:1181718866....@o11g2000prd.googlegroups.com...


-------------------------
Impostazioni internazionali di valuta diversi?
Hai provato a copiare l'mde che funziona su quello non funzionante?
Imposta le formule da codice e su formattazione oltre che su stampa...non
iserirle direttamente nel controllo:
Me.NomeControllo = Me.[EURO]+(me.[EUROCENT]/100)
da ripetere sia su stampa che su formattazione della sezione.
Ciao, Carlo


title: Anteprima report diversa da stampa

text:
> Impostazioni internazionali di valuta diversi?
domani verifico ma dovrebbero essere uguali
> Hai provato a copiare l'mde che funziona su quello non funzionante?
niente .mde solo .mdb che cmq non funziona
> Imposta le formule da codice e su formattazione oltre che su stampa...non
> iserirle direttamente nel controllo:
> Me.NomeControllo = Me.[EURO]+(me.[EUROCENT]/100)
> da ripetere sia su stampa che su formattazione della sezione.
domani faccio prove (ma se così fosse quale sarebbe la spiegazione
logica ?)


title: Anteprima report diversa da stampa

text:
> domani verifico ma dovrebbero essere uguali
il DB, dopo l'inserimento dati, ha un pulsante che manda in stampa (o
in anteprima) tutti i report collegati ...
ecco la situazione:
1) se utilizzo il pulsante l'anteprima è come dovrebbe essere mentre
nella stampa ci sono errori;
2) se apro l'anteprima direttamente dal database (sezione report)
invece è tutto ok
mi sembra di sognare ...


title: ordinamento record anomalo

text:
?qualcuno mi sa aiutare? GRAZIE.
ho dei record con categoria e descrizione entrambi tipo testo si ordinano in
questo modo
categoria crescente, descrizione crescente
il problema è che ottengo questo ordinamento anomalo:
categoria 1     angolare 100x100x5
categoria 1     angolare 40x40x5
categoria 1     angolare 50x50x4
categoria 1     angolare 80x80x5
mentre vorrei ottenere il seguente ordinamento:
categoria 1     angolare 50x50x4
categoria 1     angolare 40x40x5
categoria 1     angolare 80x80x5
categoria 1     angolare 100x100x5


title: ordinamento record anomalo

author: Franchi Graziano & Famiglia

text:
"leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4d191114$0$10576$4faf...@reader1.news.tin.it...

Inserisci un campo con nome Ordinamento
Ogni angolare ha un numero da 1 fino 255 se byte oppure 1 to 32767 se intero
ed ordini il tutto su questo numero che tu gli dai.
Saluti
graziano


title: ordinamento record anomalo

author: Geppo

text:
?Ciao "leopard73" <
leop...@email.it
> ha scritto nel messaggio
news:4d191114$0$10576$4faf...@reader1.news.tin.it...
> ?qualcuno mi sa aiutare? GRAZIE.
> ho dei record con categoria e descrizione entrambi tipo testo si ordinano
> in questo modo
>
> categoria crescente, descrizione crescente
>
> il problema � che ottengo questo ordinamento anomalo:
>
> categoria 1     angolare 100x100x5
> categoria 1     angolare 40x40x5
> categoria 1     angolare 50x50x4
> categoria 1     angolare 80x80x5
>
> mentre vorrei ottenere il seguente ordinamento:
>
> categoria 1     angolare 50x50x4
> categoria 1     angolare 40x40x5
> categoria 1     angolare 80x80x5
> categoria 1     angolare 100x100x5
li ordina in formato testo pertanto considera solo la prima cifra/lettera.
--
Ciao
Geppo


title: ordinamento record anomalo

text:
?Inserisci un campo con nome Ordinamento
Ogni angolare ha un numero da 1 fino 255 se byte oppure 1 to 32767 se intero
ed ordini il tutto su questo numero che tu gli dai.
Saluti
graziano
Si questa � un idea per� mi pare che qualcuno mi avesse spiegato tempo f�
come ordinare in modo intelligente i campi anche se di tipo "testo" ovvero
come mi servirebbe a me in questo caso, per� non mi ricordo ne come ne chi
mi ha detto come fare. Grazie.


title: ordinamento record anomalo

author: sv

text:
leopard73 ha scritto:
> ?Inserisci un campo con nome Ordinamento
> Ogni angolare ha un numero da 1 fino 255 se byte oppure 1 to 32767 se intero
> ed ordini il tutto su questo numero che tu gli dai.
> Saluti
> graziano
> Si questa è un idea però mi pare che qualcuno mi avesse spiegato tempo fà
> come ordinare in modo intelligente i campi anche se di tipo "testo" ovvero
> come mi servirebbe a me in questo caso, però non mi ricordo ne come ne chi
> mi ha detto come fare. Grazie.
https://groups.google.com/group/it.comp.appl.access/browse_thread/thread/1698e708a5f46463/a735ae126146c78a?hl=it&lnk=gst&q=ordinamento+campi+di+tipo+testo#a735ae126146c78a
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: ordinamento record anomalo

author: Karl Donaubauer

text:
leopard73 wrote:
> ho dei record con categoria e descrizione entrambi tipo testo si
> ordinano in questo modo
>
> categoria crescente, descrizione crescente
>
> il problema è che ottengo questo ordinamento anomalo:
>
> categoria 1     angolare 100x100x5
> categoria 1     angolare 40x40x5
> categoria 1     angolare 50x50x4
> categoria 1     angolare 80x80x5
>
> mentre vorrei ottenere il seguente ordinamento:
>
> categoria 1     angolare 50x50x4
> categoria 1     angolare 40x40x5
Qual'è la regola per l'ordinamento di questi due record?
> categoria 1     angolare 80x80x5
> categoria 1     angolare 100x100x5
L'ordinamento di Access è giusto e logico.
Il problema è la struttura "anomala" dei dati/campi. Se devi ordinare
i record secondo parti di un campo non sei seguito la prima regola
di normalizzazione, cioè atomizzare i dati. Dovresti avere un campo
separato per ogni valore che contribuisce all'ordinamento.
Forse è ancora possibile di separare i dati.
Comunque è una regola elementare che è più facile combinare
dati che separarli.
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: ordinamento record anomalo

text:
?
https://groups.google.com/group/it.comp.appl.access/browse_thread/thread/1698e708a5f46463/a735ae126146c78a?hl=it&lnk=gst&q=ordinamento+campi+di+tipo+testo#a735ae126146c78a
--
sv
fantastico sei meglio del robot di google.


title: Contare il numero di file

author: Simone Bianchi

text:
E' possibile contare il numero di file presenti in una cartella ?
Grazie per l'aiuto
Simo


title: Contare il numero di file

text:
"Simone Bianchi" <
simone...@libero.it
> ha scritto nel messaggio
news:j0dW9.27806$lj5.3...@tornado.fastwebnet.it...
> E' possibile contare il numero di file presenti in una cartella ?
>
> Grazie per l'aiuto
>
> Simo
Se vuoi sapere solo il numero di file contenuti nella cartella Documenti del
disco C, ma non il numero delle sottodirectory in essa contenute, prova
cosě:
Dim Pluto As String
Dim Cartella As String
Dim NumeroFile As Long
Cartella = "C:\Documenti\*.*"
NumeroFile = 0
Pluto = Dir(Cartella)
Do Until Pluto = ""
    NumeroFile = NumeroFile + 1
    Pluto = Dir
Loop
Se invece vuoi sapere sia il numero dei file e sia quello delle
sottodirectory contenuti nella cartella Documenti del disco C, prova cosě:
Dim Pluto As String
Dim Cartella As String
Dim NumeroFileEDirectory As Long
Cartella = "C:\Documenti\"
NumeroFileEDirectory = 0
Pluto = Dir(Cartella, vbDirectory)
Do Until Pluto = ""
If Pluto <> "." And Pluto <> ".." Then
NumeroFileEDirectory = NumeroFileEDirectory + 1
End If
Pluto = Dir
Loop
Se infine vuoi sapere il solo numero delle sottodirectory contenute nella
cartella Documenti del disco C, ma non quello dei file, prova cosě:
Dim Pluto As String
Dim Cartella As String
Dim NumeroDirectory As Long
Cartella = "C:\Documenti\"
NumeroDirectory = 0
Pluto = Dir(Cartella, vbDirectory)
Do Until Pluto = ""
If Pluto <> "." And Pluto <> ".." Then
If (GetAttr(Cartella & Pluto) And _
vbDirectory) = vbDirectory Then
NumeroDirectory = NumeroDirectory + 1
End If
End If
Pluto = Dir
Loop
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Contare il numero di file

author: Maurizio Borrelli

text:
> "Simone Bianchi" <
simone...@libero.it
> ha scritto nel messaggio
> news:j0dW9.27806$lj5.3...@tornado.fastwebnet.it...
> E' possibile contare il numero di file presenti in una cartella ?
    Osserva la proprieta' Count nell'esempio seguente:
Public Function FileSearchTest()
  Dim oMsoFileSearch  As Office.FileSearch
  Dim oMsoFoundFiles  As Office.FoundFiles
  Dim lIndex          As Long
  Set oMsoFileSearch = Application.FileSearch
  With oMsoFileSearch
    .NewSearch
    .LookIn = "C:\Programmi"
    .SearchSubFolders = False
    .FileName = "*.*"
    .FileType = msoFileTypeAllFiles
    .Execute msoSortByFileName, msoSortOrderAscending
    Set oMsoFoundFiles = .FoundFiles
  End With
  With oMsoFoundFiles
    If (.Count = 0) Then
      Debug.Print "Nessun file."
    Else
      For lIndex = 1 To .Count
        Debug.Print .Item(lIndex)
      Next
    End If
  End With
  Set oMsoFoundFiles = Nothing
  Set oMsoFileSearch = Nothing
End Function
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: Contare il numero di file

text:
 Grazie funziona!
 Simo


title: Runtime Access 2000 e Windows 95

author: Mony

text:
Ciao a tutti, è la prima che scrivo quindi siate pazienti con me :-)
Volevo chiedere se qualcuno ha mai avuto problemi con l'installazione
del runtime di Access 2000 su Windows 98...
A me è capitata una cosa molto strana...ho effettuato alcune modifiche
a un programma in Access 2000 e ho fornito al cliente il file .mde, da
una volta all'altra ha perso alcuni riferimenti. La versione attuale,
infatti, non riesce a risolvere le funzioni interne di Access, mi
spiego meglio: per esempio un campo che dovrebbe contenere il valore
predefinito dell'anno in corso (Year(Date())) viene visualizzato come
#Nome? e non mi riesce a eseguire le parti di codice in cui richiamo
querydef...questi sono solo alcuni dei malfunzionamenti che per il
momento ho riscontrato...
Qualcuno di voi sa per caso come mai da una volta all'altra è successo
tutto questo pasticcio?? Premetto che ho controllato e i riferimenti
sono esattamente gli stessi, solo che prima delle modifiche funziona e
dopo no..oltrettutto ho cambiato solamente impostazioni di report,
quindi non dovrei aver intaccato niente...
Vi ringrazio in anticipo per l'aiuto...
Se vi servono altre spiegazioni fatemi sapere
Grazie ancora
Ciao a tutti
Mony


title: Runtime Access 2000 e Windows 95

author: MA

text:
Mony wrote:
> Ciao a tutti, č la prima che scrivo quindi siate pazienti con me :-)
> Volevo chiedere se qualcuno ha mai avuto problemi con l'installazione
> del runtime di Access 2000 su Windows 98...
> A me č capitata una cosa molto strana...ho effettuato alcune modifiche
> a un programma in Access 2000 e ho fornito al cliente il file .mde, da
> una volta all'altra ha perso alcuni riferimenti. La versione attuale,
> infatti, non riesce a risolvere le funzioni interne di Access, mi
> spiego meglio: per esempio un campo che dovrebbe contenere il valore
> predefinito dell'anno in corso (Year(Date())) viene visualizzato come
> #Nome? e non mi riesce a eseguire le parti di codice in cui richiamo
> querydef...questi sono solo alcuni dei malfunzionamenti che per il
> momento ho riscontrato...
>
> Qualcuno di voi sa per caso come mai da una volta all'altra č successo
> tutto questo pasticcio?? Premetto che ho controllato e i riferimenti
> sono esattamente gli stessi, solo che prima delle modifiche funziona e
> dopo no..oltrettutto ho cambiato solamente impostazioni di report,
> quindi non dovrei aver intaccato niente...
>
> Vi ringrazio in anticipo per l'aiuto...
> Se vi servono altre spiegazioni fatemi sapere
> Grazie ancora
> Ciao a tutti
> Mony
ciao e benvenuta.
Sul pc del cliente devi registrare le librerie DAO.
ci sono molti post che ti aiutano a farlo.
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Info:
www.donkarl.com/it


title: Runtime Access 2000 e Windows 95

text:
Grazie mille, provo a cercare e al massimo mi risentirete per altri
problemi :-)
Grazie ancora
Mony
MA ha scritto:
> Mony wrote:
> > Ciao a tutti, è la prima che scrivo quindi siate pazienti con me :-)
> > Volevo chiedere se qualcuno ha mai avuto problemi con l'installazione
> > del runtime di Access 2000 su Windows 98...
> > A me è capitata una cosa molto strana...ho effettuato alcune modifiche
> > a un programma in Access 2000 e ho fornito al cliente il file .mde, da
> > una volta all'altra ha perso alcuni riferimenti. La versione attuale,
> > infatti, non riesce a risolvere le funzioni interne di Access, mi
> > spiego meglio: per esempio un campo che dovrebbe contenere il valore
> > predefinito dell'anno in corso (Year(Date())) viene visualizzato come
> > #Nome? e non mi riesce a eseguire le parti di codice in cui richiamo
> > querydef...questi sono solo alcuni dei malfunzionamenti che per il
> > momento ho riscontrato...
> >
> > Qualcuno di voi sa per caso come mai da una volta all'altra è successo



title: Outlook

author: wildsurfer

text:
ho utilizzato il file SendMailMapi.mdb scaricato dal sito comune.
mi chiedevo se fosse possibile inviare anche la e-mail oltre che inserirla
solo nella posta in uscita di outlook.
Esite cioè un modo per comandare il tasto "invia ricevi" ?


title: Outlook

author: Dominijanni Giuseppe

text:
wildsurfer wrote:

non riesco a scaricare i files del NG , di conseguenza non posso verificare il
contenuto di SendMailMapi.mdb.
Puoi inviare la e-mail attraverso codice:
Dim appOutlook As Outlook.Application
On Error Resume Next 'riparte dalla riga successiva a quella dell'errore
Set appOutlook = GetObject(, "Outlook.Application") 'verifica se Outlook è già
aperto
If appOutlook Is Nothing Then 'Se è vero Outlook non è aperto
     Msgbox "MS Outlook non è attivato.", vbExclamation, "Warning ! Operazione
annullata"
        Set appOutlook = Nothing
        Exit Sub
End If
Dim objRecipient As Recipient
Dim objAttacment As Attachment
Dim objMailItem As MailItem
'Costruisce una Mail Item
Set objMailItem = appOutlook.CreateItem(olMailItem)
With objMailItem
'costruisce un destinatario per il messaggio e-mail
    Set objRecipient = .Recipients.Add("
indi...@email.it
")
    objRecipient.Type = olTo
    'imposta l'oggetto,il corpo e l'importanza dell'e-mail
    .Subject = "Richiesta di intervento n°: " & strRiferimento
    .Body = "Questa è la richiesta " & vbCrLf & "Per ulteriori informazioni,
contattami." _
    & vbCrLf & vbCrLf
    .Importance = olImportanceNormal
    Set objAttacment = .Attachments.Add("C:\Documenti\file")
    For Each objRecipient In .Recipients
        objRecipient.Resolve
    Next
    'Visualizza il messaggio e-mail
    .Display
    'invia il messaggio e-mail
    .Send
giuseppe


title: Funzione Format <-- suo utilizzo

author: SAM

text:
ciao di nuovo...
utilzzando in una query questa sintassi oggi 20 Luglio,
Format(Month(Date());"mmmm")
speravo di ottenere Luglio
invece ottengo gennaio
Perchè vi (e soprattutto mi) chiedo?
Saluti
Samuele


title: Funzione Format <-- suo utilizzo

text:
"SAM" <
sam...@libero.it
> wrote in message
news:cdj74d$d7v$
1...@newsreader.mailgate.org

Scusate lasciate stare, sarà il caldo
Format(Date();"mmmm")
grazie cmq
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Funzione Format <-- suo utilizzo

text:
"SAM" <
sam...@libero.it
> ha scritto nel messaggio
news:cdj74d$d7v$1...@newsreader.mailgate.org...

Il perché non lo so' (lo fa anche a me) ma l'istruzione giusta è:
Format(Date(),"mmmm")...
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

author: namor

text:
Sergio MAZZA ha scritto:
> > ciao di nuovo...
> > utilzzando in una query questa sintassi oggi 20 Luglio,
> > Format(Month(Date());"mmmm")
> > speravo di ottenere Luglio
> > invece ottengo gennaio
> > Perchè vi (e soprattutto mi) chiedo?
> > Saluti
> > Samuele
> >
> Il perché non lo so' (lo fa anche a me) ma l'istruzione giusta è:
> Format(Date(),"mmmm")...
> Ciao.
Lo fa perchè le date non sono altro che il numero di giorni trascorso da
una certa data di riferimento (a me risulta dal 30/12/1899, prova
debug.print cdate(1)), quindi se gli dici di formattare come "mmmm"
l'espressione Month(Date()), in luglio lo interpreterà come
format(7,"mmmm"), ossia format(#06/01/1900#,"mmmm") e quindi ti darà
"gennaio".
Darà sempre "gennaio" per i qualsiasi valore di date() dal 1° febbraio al
31 dicembre, e "dicembre" per le date di gennaio.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:cdjfu8$cep$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> > > ciao di nuovo...
> > > utilzzando in una query questa sintassi oggi 20 Luglio,
> > > Format(Month(Date());"mmmm")
> > > speravo di ottenere Luglio
> > > invece ottengo gennaio
> > > Perchè vi (e soprattutto mi) chiedo?
> > > Saluti
> > > Samuele
> > >
>
> > Il perché non lo so' (lo fa anche a me) ma l'istruzione giusta è:
> > Format(Date(),"mmmm")...
> > Ciao.
>
> Lo fa perchè le date non sono altro che il numero di giorni trascorso da
> una certa data di riferimento (a me risulta dal 30/12/1899, prova
> debug.print cdate(1)), quindi se gli dici di formattare come "mmmm"
> l'espressione Month(Date()), in luglio lo interpreterà come
> format(7,"mmmm"), ossia format(#06/01/1900#,"mmmm") e quindi ti darà
> "gennaio".
> Darà sempre "gennaio" per i qualsiasi valore di date() dal 1° febbraio al
> 31 dicembre, e "dicembre" per le date di gennaio.
> Namor
>
>
> --
> namor at inwind punto it
Ah! Sì... L'avevo intuito...(Grunf!)
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
Sergio MAZZA ha scritto:
> > > > ciao di nuovo...
> > > > utilzzando in una query questa sintassi oggi 20 Luglio,
> > > > Format(Month(Date());"mmmm")
> > > > speravo di ottenere Luglio
> > > > invece ottengo gennaio
> > > > Perchè vi (e soprattutto mi) chiedo?
> > > > Saluti
> > > > Samuele
> > > Il perché non lo so' (lo fa anche a me) ma l'istruzione giusta è:
> > > Format(Date(),"mmmm")...
> > > Ciao.
> > Lo fa perchè le date non sono altro che il numero di giorni trascorso da
> > una certa data di riferimento (a me risulta dal 30/12/1899, prova
> > debug.print cdate(1)), quindi se gli dici di formattare come "mmmm"
> > l'espressione Month(Date()), in luglio lo interpreterà come
> > format(7,"mmmm"), ossia format(#06/01/1900#,"mmmm") e quindi ti darà
> > "gennaio".
> > Darà sempre "gennaio" per i qualsiasi valore di date() dal 1° febbraio al
> > 31 dicembre, e "dicembre" per le date di gennaio.
> > Namor
> Ah! Sì... L'avevo intuito...(Grunf!)
> Ciao.
Don't worry, da domani vi lascio in pace! Sono in ferie fino al 5/8 e la
mia presenza sul niusgrup sarà quasi nulla.
Ciao.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cdjhj6$p5s$1...@news.newsland.it...
>
> Don't worry, da domani vi lascio in pace! Sono in ferie fino al 5/8 e la
> mia presenza sul niusgrup sarà quasi nulla.
> Ciao.
> Namor
>
>
> --
> namor at inwind punto it
>
E' il quasi che mi preoccupa...
Buone ferie.
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
Sergio MAZZA ha scritto:
> > Don't worry, da domani vi lascio in pace! Sono in ferie fino al 5/8 e la
> > mia presenza sul niusgrup sarà quasi nulla.
> > Ciao.
> > Namor
> E' il quasi che mi preoccupa...
> Buone ferie.
> Ciao.
Fai bene a preoccuparti, perchè mi hanno richiamato dalle ferie per un
problema sulle paghe e sono qua ancora per un paio d'ore, oggi.
Uff... in fondo sono solo circa 500 paghe, non sarebbe stato un grosso
problema se non fosse che tra quelle c'è anche la miaaaa!!!
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cdlgr8$ho7$1...@news.newsland.it...
>
> Fai bene a preoccuparti, perchè mi hanno richiamato dalle ferie per un
> problema sulle paghe e sono qua ancora per un paio d'ore, oggi.
> Uff... in fondo sono solo circa 500 paghe, non sarebbe stato un grosso
> problema se non fosse che tra quelle c'è anche la miaaaa!!!
> Namor
>
>
> --
> namor at inwind punto it
>
Hi! Hi!
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdlh44$7bh$1...@canarie.caspur.it...

la differenza tra me e te è che tu sei bastard
also outside
Oh però quando ti ci metti..
;-P
MAssimiliano


title: Funzione Format <-- suo utilizzo

text:
"MA" <
m...@accessgroup.it
> ha scritto nel messaggio news:DLrLc.3789$B06....@news.edisontel.com...

Scusate ma è un periodo di cazzeggio...
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

author: skipper

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:cbbLc.27554$5D1.1...@news4.tin.it...
>
> > utilzzando in una query questa sintassi oggi 20 Luglio,
> > Format(Month(Date());"mmmm")
> > speravo di ottenere Luglio
> > invece ottengo gennaio
> > Perchè vi (e soprattutto mi) chiedo?
> > Saluti
> > Samuele
> >
>
> Il perché non lo so' (lo fa anche a me) ma l'istruzione giusta è:
> Format(Date(),"mmmm")...
>
> Ciao.
>
partendo dal presupposto che la mia ignoranza di access è massima....
ma a me luglio viene fuori tranquillamente....
apro la query e nelle proprietà del campo alla voce formato metto
semplicemente mmmm
forse non capisco qualche sottigliezza?
skipper dixit...


title: Funzione Format <-- suo utilizzo

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto
nel messaggio
news:cdljo3$813$1...@canarie.caspur.it...

E non diciamo da quanti anni dura...
MAssimiliano


title: Funzione Format <-- suo utilizzo

text:
MA ha scritto:

Chebbashtardiii... prendete pure pel culo, su. Se trovo un internet point
galleggiante vi mando un post firmato "Namor dal mare della Croazia", alla
facciaccia vostra e di tutti quelli che stanno a sgobbare con questo caldo
infernale!
Eheheh! Buon lavoro!
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Funzione Format <-- suo utilizzo

text:
> > > utilzzando in una query questa sintassi oggi
20 Luglio,
> > > Format(Month(Date());"mmmm")
> > > speravo di ottenere Luglio
> > > invece ottengo gennaio
> > > Perchè vi (e soprattutto mi) chiedo?
> > > Saluti
> > > Samuele
> > >
> >
> > Il perché non lo so' (lo fa anche a me) ma
l'istruzione giusta è:
> > Format(Date(),"mmmm")...
> >
> > Ciao.
> >
> partendo dal presupposto che la mia ignoranza di
access è massima....
>
> ma a me luglio viene fuori tranquillamente....
>
> apro la query e nelle proprietà del campo alla
voce formato metto
> semplicemente mmmm
>
> forse non capisco qualche sottigliezza?
E va beh, fattene una ragione...
E' dura che vengano fuori così spesso i propri
limiti...
MAssimiliano


title: Funzione Format <-- suo utilizzo

author: Sergio MAZZA

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cdll0g$v3o$1...@news.newsland.it...
>
> Chebbashtardiii... prendete pure pel culo, su. Se trovo un internet point
> galleggiante vi mando un post firmato "Namor dal mare della Croazia", alla
> facciaccia vostra e di tutti quelli che stanno a sgobbare con questo caldo
> infernale!
> Eheheh! Buon lavoro!
> Namor
>
>
> --
> namor at inwind punto it
Vabbé ma qui sono uscite le buste paga, e li come va?
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
"skipper" <NOskip...@GRAZIEsuperskipper.it> ha scritto nel messaggio news:WwsLc.90748$G%.7195@tornado.fastwebnet.it...
>
>
> partendo dal presupposto che la mia ignoranza di access č massima....
>
> ma a me luglio viene fuori tranquillamente....
>
> apro la query e nelle proprietą del campo alla voce formato metto
> semplicemente mmmm
>
> forse non capisco qualche sottigliezza?
>
> skipper dixit...
>
L'hai provato nella finestra di debug? Intendo l'istruzione di SAM...
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
Sergio MAZZA ha scritto:
> > Chebbashtardiii... prendete pure pel culo, su. Se trovo un internet point
> > galleggiante vi mando un post firmato "Namor dal mare della Croazia", alla
> > facciaccia vostra e di tutti quelli che stanno a sgobbare con questo caldo
> > infernale!
> > Eheheh! Buon lavoro!
> > Namor
> Vabbé ma qui sono uscite le buste paga, e li come va?
> Ciao.
Qui sono calcolate già da un paio di giorni, ma... saranno giuste? Quando
a video vedi un importo di 1.072 e sul tabulato riepilogativo trovi 17.152
ti scatta nel cervelletto l'evento "On Error", ed esegui una sub che ti
costringe a cercare di capire cos'è successo. Secondo me nella nuova
release del programma paghe si sono dimenticati un join in una query, o di
cancellare dati temporanei. L'altr'anno invece funzionava bene!
Mannaggia, questi databaseisti, che casini che fanno!
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cdlqj5$vhv$1...@news.newsland.it...
>
> Qui sono calcolate già da un paio di giorni, ma... saranno giuste? Quando
> a video vedi un importo di 1.072 e sul tabulato riepilogativo trovi 17.152
> ti scatta nel cervelletto l'evento "On Error", ed esegui una sub che ti
> costringe a cercare di capire cos'è successo. Secondo me nella nuova
> release del programma paghe si sono dimenticati un join in una query, o di
> cancellare dati temporanei. L'altr'anno invece funzionava bene!
> Mannaggia, questi databaseisti, che casini che fanno!
> Namor
>
>
> --
> namor at inwind punto it
>
17.000!!! EURIII!!! Tutti insieme?? E quando li vedo? Magari facessero un piccolo errore qui, tanto il recupero sarebbe per tutta la
vita... Beato a chi c'ha un occhio...
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
Sergio MAZZA ha scritto:
> > Qui sono calcolate già da un paio di giorni, ma... saranno giuste? Quando
> > a video vedi un importo di 1.072 e sul tabulato riepilogativo trovi 17.152
> > ti scatta nel cervelletto l'evento "On Error", ed esegui una sub che ti
> > costringe a cercare di capire cos'è successo. Secondo me nella nuova
> > release del programma paghe si sono dimenticati un join in una query, o di
> > cancellare dati temporanei. L'altr'anno invece funzionava bene!
> > Mannaggia, questi databaseisti, che casini che fanno!
> > Namor
> 17.000!!! EURIII!!! Tutti insieme?? E quando li vedo? Magari facessero un
piccolo errore qui, tanto il recupero sarebbe per tutta la
> vita... Beato a chi c'ha un occhio...
> Ciao.
Non ho mica specificato se trattasi di competenza o di TRATTENUTA...
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio news:cdltm0$29f$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> > > Qui sono calcolate già da un paio di giorni, ma... saranno giuste? Quando
> > > a video vedi un importo di 1.072 e sul tabulato riepilogativo trovi 17.152
> > > ti scatta nel cervelletto l'evento "On Error", ed esegui una sub che ti
> > > costringe a cercare di capire cos'è successo. Secondo me nella nuova
> > > release del programma paghe si sono dimenticati un join in una query, o di
> > > cancellare dati temporanei. L'altr'anno invece funzionava bene!
> > > Mannaggia, questi databaseisti, che casini che fanno!
> > > Namor
>
> > 17.000!!! EURIII!!! Tutti insieme?? E quando li vedo? Magari facessero un
> piccolo errore qui, tanto il recupero sarebbe per tutta la
> > vita... Beato a chi c'ha un occhio...
> > Ciao.
>
> Non ho mica specificato se trattasi di competenza o di TRATTENUTA...
> Namor
>
>
> --
> namor at inwind punto it
>
Blub!
E poi sarei il bastardo eh?
Ciao.
--
Sergio MAZZA


title: Funzione Format <-- suo utilizzo

text:
skipper ha scritto:
> > > utilzzando in una query questa sintassi oggi 20 Luglio,
> > > Format(Month(Date());"mmmm")
> > > speravo di ottenere Luglio
> > > invece ottengo gennaio
> > > Perchè vi (e soprattutto mi) chiedo?
> > > Saluti
> > > Samuele
> > Il perché non lo so' (lo fa anche a me) ma l'istruzione giusta è:
> > Format(Date(),"mmmm")...
> > Ciao.
> partendo dal presupposto che la mia ignoranza di access è massima....
> ma a me luglio viene fuori tranquillamente....
> apro la query e nelle proprietà del campo alla voce formato metto
> semplicemente mmmm
> forse non capisco qualche sottigliezza?
> skipper dixit...
Se usi Format(Date(),"mmmm") o applichi il formato "mmmm" al campo
calcolato Date() ti dà correttamente "luglio".
Il problema deriva dal fatto che all'inizio lui usava
Format(Month(Date()),"mmmm"), col month che non c'entra niente, quindi
applicava il formato al numero 7 che corrisponde al 06/01/1900 e non al
38188 che corrisponde al 20 luglio 2004.
Le date sono solo numeri formattati. Per verificare vai in debug e fai
  ?clng(#20/07/2004#)
  ?cdate(7)
Namor
PS. Ma quando facciamo la crociera di ICAA?
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito



title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:cdlqj5$vhv$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> > > Chebbashtardiii... prendete pure pel culo,
su. Se trovo un internet point
> > > galleggiante vi mando un post firmato "Namor
dal mare della Croazia", alla
> > > facciaccia vostra e di tutti quelli che
stanno a sgobbare con questo caldo
> > > infernale!
> > > Eheheh! Buon lavoro!
> > > Namor
>
> > Vabbé ma qui sono uscite le buste paga, e li
come va?
> > Ciao.
>
> Qui sono calcolate già da un paio di giorni,
ma... saranno giuste? Quando
> a video vedi un importo di 1.072 e sul tabulato
riepilogativo trovi 17.152
Secondo me alla voce "dipendente" di questa busta
sbagliata  c'è lo stesso nome
dell'autore del db.. e il controllo
Right(dipendente;3) = "mor"...
> ti scatta nel cervelletto l'evento "On Error",
ed esegui una sub che ti
> costringe a cercare di capire cos'è successo.
Secondo me nella nuova
> release del programma paghe si sono dimenticati
un join in una query, o di
> cancellare dati temporanei. L'altr'anno invece
funzionava bene!
> Mannaggia, questi databaseisti, che casini che
fanno!
Non dirlo a me, io l'ammazzerebbe!!!
> Namor
MAssimiliano


title: Funzione Format <-- suo utilizzo

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:cdm1r5$dgu$1...@news.newsland.it...
> PS. Ma quando facciamo la crociera di ICAA?
PPS. quando volete!!!!!
un week end di settembre?
skipper dixit...


title: Access 2000 multiutenet

author: Denis Carraro

text:
Salve, vorrei fare un DB in Access 2000 in modalitą multiutente (al max cmq
saranno 3-5 utenti).
dove posso trovare info in merito ???


title: Access 2000 multiutenet

author: Silvio Berruti

text:
"Denis Carraro" <
i...@tu.com
> ha scritto nel messaggio
news:9q43ki$d00$1...@fe2.cs.interbusiness.it...

Sull'help di Access, premendo il tasto F1 e cercando "condivisione di dati
tra applicazioni"
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: allarmi

text:
è possibile impostare degli allarmi in un applicazione access, che a
determinate ore (tutti i giorni) facciano apparire sullo schermo un
messaggio d'avvertimento? in che modo lo posso fare?


title: allarmi

author: Alessandro Baraldi

text:
"emt_ticino" <
emt_t...@hotmail.com
> wrote in message
news:1130283923.6...@g49g2000cwa.googlegroups.com
> è possibile impostare degli allarmi in un applicazione access, che a
> determinate ore (tutti i giorni) facciano apparire sullo schermo un
> messaggio d'avvertimento? in che modo lo posso fare?
Se hai aperto il file di Access 24h al dì è facile, ma
io lo farei con un file VBS messo nelle operazioni pianificate.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: allarmi

author: Pablitomf (Maurizio Facciuti)

text:
[CUT]
> che a determinate ore (tutti i giorni) facciano apparire sullo schermo un
> messaggio d'avvertimento? in che modo lo posso fare?
un bel file VBS (Tuo_File.vbs) nelle operazioni pianificate e il gioco è
fatto.
nel fine gli inserisci :
Msgbox "Tuo messaggio"
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97 e 2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: allarmi

text: il file è aperto 24 ore su 24, cosa suggerisci?


title: [Access 2010] salvare liste di record selezionati

author: Ammammata

text:
in attesa di capire la storia della data di creazione di un file, devo
dedicarmi ad altro

ho una tabella TMP generata al volo dal database principale, visualizzata
in un subform/subreport, dove posso cambiare il campo quantità e il flag di
stampa sì/no per poi avviare il report di controllo

l'utente mi chiede di poter salvare la "selezione" (flag e quantità) in
modo da poterla richiamare alla bisogna

ho quindi predisposto altre due tabelle:
ListH con ID autonumber e descrizione
ListR con ID (vedi ListH), InternalCode (che identifica le righe della
tabella TMP di partenza), Qty
le ho collegate in Relationship, uno a molti

(nota: sto valutando se sia invece il caso di fare UNA SOLA tabella, con
ID+InternalCode come chiave... forse è più semplice da gestire)

Ora l'idea è di predisporre un pulsante Save che crea una nuova lista in
automatico (ListH), chiede una descrizione e inserisce in ListR tutti i
record di TMP con Flag=true e la relativa quantità

A fianco di Save metterei una ListBox con i record esistenti di listH e
tramite doppioclick caricherei i relativi ListR:
- pulizia di tutti i Flag della tabella TMP
- lettura dei record di ListR con attivazione su TMP del Flag e
aggiornamento della quantità

Ora le domande :)

- esiste un form standard che mi permetta di inserire un valore e abbia i
pulsanti OK + Cancel ? (detto valore sarà la descrizione da salvare in
ListH)
- è possibile attivare una sorta di click destro sulle voci della ListBox
per inserire il comando "Delete" ? (quando voglio cancellarne una
esistente)

grazie e buon appetito (vista l'ora)

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


text:
....
> Ora le domande :)
>
> - esiste un form standard che mi permetta di inserire un valore e abbia i
> pulsanti OK + Cancel ? (detto valore sarà la descrizione da salvare in
> ListH)

Non ho ben chiaro cosa intendi per "form standard" che faccia quello che dici... non mi risulta ci siano form se non quelle che crei tu...

> - è possibile attivare una sorta di click destro sulle voci della ListBox
> per inserire il comando "Delete" ? (quando voglio cancellarne una
> esistente)

Hai 2 opzioni semplici...
1) crei un Menù Popup e gestisci l'Item di selezione per il DELETE
2) Gestisci il RightClick su MouseUp

Private Sub TuaListBox_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case Button
        Case acRightButton
            ' Tuo codice di DELETE
        Case acLeftButton
        Case else
    End Select
End Sub

> grazie e buon appetito (vista l'ora)
>
> --
> /-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
> -=- -=- -=- -=- -=- -=- -=- -=- - -=-
> ........... [ al lavoro ] ...........

Non sono certo di aver capito bene... vedi tu.

@Alex


text:
Il giorno Thu 22 Jul 2021 03:43:21p, *@Alex* ha inviato su
it.comp.appl.access il messaggio
news:857e38df-0199-4b10...@googlegroups.com
. Vediamo
cosa ha scritto:

>> - esiste un form standard che mi permetta di inserire un valore e
>> abbia i pulsanti OK + Cancel ? (detto valore sarà la descrizione da
>> salvare in ListH)
>
> Non ho ben chiaro cosa intendi per "form standard" che faccia quello
> che dici... non mi risulta ci siano form se non quelle che crei tu...
>

infatti... ho inserito un controllo  TextBox dove scrivere il nome e poi lo
gestisco da codice

>> - è possibile attivare una sorta di click destro sulle voci della
>> ListBox per inserire il comando "Delete" ? (quando voglio cancellarne
>> una esistente)
>
> Hai 2 opzioni semplici...
> 1) crei un Menù Popup e gestisci l'Item di selezione per il DELETE
> 2) Gestisci il RightClick su MouseUp
>

mi piace il menu popup, vado a cercare come si fa



title: riferimento a sottomaschera in clausola if

text:
ho una maschera che contiene una sottomaschera.
sulla maschera principale sull'evento "dopo aggiornamento" di una combo vorrei mettere una clausola if facendo riferimento al valore di un controllo della sottomaschera:
se scrivo
if(campo_sottomaschera >0) then
docmd.openform "form1"
else
docmd.openform "form1"
end if

non riesco a scrivere la sintassi per riferirmi al campo della sottomaschera
ho provato [sottomaschera].[Form]![VERS] ma non va ([VERS] è il controllo della sottomaschera, numerico)
mi aiutate?
grazie


text:
vald...@yahoo.it
 wrote:
> ho una maschera che contiene una sottomaschera.
> sulla maschera principale sull'evento "dopo aggiornamento" di una
> combo vorrei mettere una clausola if facendo riferimento al valore di
> un controllo della sottomaschera:
> ...
> ho provato [sottomaschera].[Form]![VERS] ma non va ([VERS] � il
> controllo della sottomaschera, numerico)

Vedi
http://www.donkarl.com/it?FAQ4.2

Se non riesci, riporta l'errore e futti i nomi e incolla il codice reale.

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:

Grazie Karl, così funziona.
ora però ho un'altro problemino che sono sicuro tu puoi risolvere.
la sottomaschera è basata su una query che in alcuni casi può restituire nessun record,e quindi il mio controllo VERS come lo intercetto? perchè non un null ma non esiste proprio. come faccio nella clausola if a verificare se VERS esiste?
grazie


text:
vald...@yahoo.it
 wrote:
> ...
> la sottomaschera � basata su una query che in alcuni casi pu�
> restituire nessun record,e quindi il mio controllo VERS come lo
> intercetto? perch� non un null ma non esiste proprio. come faccio
> nella clausola if a verificare se VERS esiste?

Se ti capisco bene devi fare il controllo separatamente, p.e.

If Me!Sottomaschera.Form.CurrentRecord > 0 Then
'ci sono record o la possiblit� di aggiungere e puoi controllare il valore
    If Me!Sottomaschera.Form!CampoOControllo > 0 Then



text:

Perfetto! con il controllo del CurrentRecord è sufficiente.
lo imposto così, se ci sono record apri maschera1 altrimenti maschera2.
Grazie Karl!!


title: Report in Pdf

author: TomBello

text:
Ciao a tutti.
come faccio a trasformare un report in Pdf.
Mi hanno detto di cercare in google ma come faccio.
C'era una ricerca per newsgroup ma non mi ricordo + come si fa.
ciao e grazie


title: Report in Pdf

text:
"TomBello" <
tom...@tin.it
> ha scritto nel messaggio
news:NB7Vb.20801$Mt6.6...@twister2.libero.it...

leggi qui:
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&threadm=b03itq%24s43%241%4
0fata.cs.interbusiness.it
&rnum=1&prev=/groups%3Fhl%3Dit%26lr%3D%26ie%3DISO-8
859-1%26q%3Dpdf%26btnG%3DCerca%2Bcon%2BGoogle%26meta%3Dgroup%
253Dit.comp.app
l.access
Link tutto di un fiato...
Ciao.
--
Sergio MAZZA


title: Report in Pdf

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:3_cVb.203841$VW.83...@news3.tin.it...

Scusami ma il link non funziona.
Come faccio, ho visto su google ma non riesco a risolvere il problema.
ciao e grazie


title: Report in Pdf

text:
"TomBello" <
tom...@tin.it
> ha scritto nel messaggio
news:pusVb.37$2j2....@twister2.libero.it...
>
> Scusami ma il link non funziona.
> Come faccio, ho visto su google ma non riesco a risolvere il problema.
> ciao e grazie
Se inserisci la parola PDF trovi anche il link indicato; comunque prova con
questo link:
http://www.pdf995.com/
Se non ricordo male ti crea una stampante chiamata PDF995 printer...
Ciao.
--
Sergio MAZZA


title: Report in Pdf

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:9VtVb.276632$_P.95...@news4.tin.it...

grazie , sei stato molto gentile anche se non capisco una Mazza. Scusa per
battuta ciao.


title: Report in Pdf

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:9VtVb.276632$_P.95...@news4.tin.it...

Ciao e scusa nuovamente.
Sono riuscito a fare tutto, ma ogni volta che mi crea un file mi apre
internet explore. come faccio a non farlo aprire e salvare il file
automaticamente in una cartella senza che mi chieda dove? ciao e grazie
ancora.
>


title: Report in Pdf

text:
"TomBello" <
tom...@tin.it
> ha scritto nel messaggio
news:CHzVb.1082$2j2....@twister2.libero.it...
>
> Ciao e scusa nuovamente.
> Sono riuscito a fare tutto, ma ogni volta che mi crea un file mi apre
> internet explore. come faccio a non farlo aprire e salvare il file
> automaticamente in una cartella senza che mi chieda dove? ciao e grazie
> ancora.
Non lo so, non lo utilizzo.
Mi dispiace...
Ciao.
P.S. In confidenza, non ci capisco 'na mazza neanch'io...
--
Sergio MAZZA


title: Report in Pdf

author: Gabriele Bertolucci

text:
> Scusami ma il link non funziona.
> Come faccio, ho visto su google ma non riesco a risolvere il problema.
Ho appena controllato ed il link funziona correttamente.
--
Gabriele Bertolucci
PBsoft
www.pbsoft.it


title: Report in Pdf

text:
> grazie , sei stato molto gentile anche se non capisco una Mazza. Scusa per
> battuta ciao.
Se vuoi zero problemi ti consiglio Win2PDF.
In italiano, semplice, efficace, buona compressione.
www.win2pdf.it



title: Report in Pdf

text:
> Non lo so, non lo utilizzo.
> Mi dispiace...
>
> P.S. In confidenza, non ci capisco 'na mazza neanch'io...
Se decidi di utilizzare Win2PDF posso darti una mano io, anche se credo
proprio che non ne avresti bisogno :-)
Qui in azienda lo utilizziamo tutti.



title: Report in Pdf

text:
"Gabriele Bertolucci" <CANCEL...@ELIMINApbsoft.TOGLIit> ha scritto nel
messaggio news:o3mWb.218866$VW.89...@news3.tin.it...

Grazie Gabriele, come hai capito era solo per proseguire il cazzeggio; ma se
dovesse servirmi una mano ti tengo presente. Per ora mi tengo alla lontana
da pdf, flash et simili...
Ciao.
--
Sergio MAZZA


title: relazioni fra tabelle molti tutorial ne sconsigliano l'utilizzo

author: mario rossi

text: mi è stato detto che molti tutorial sconsigliano l'utilizzo delle relazioni previste in access in creazione tabelle, mi chiedo il motivo, voi cosa ne pensate? e se non vengono usate come elimino a cascata i record relazionati delle sottotabelle di un certo record


author: Bruno Campanini

text:
mario rossi formulated on Thursday :

Stupidaggini!
Acces, SQL Server, Oracle, MySql, IBM DB2 sono RDBMS
(l'R iniziale sta per relational).

Giusto per fartene un'idea:
https://www.jamesserra.com/archive/2015/08/relational-databases-vs-non-relational-databases/

Bruno


title: Access '97 to Access 2003.

author: Lino Fornaro

text:
Chiedo una cosa che avrete sicuramente hanno fatto tanti prima di me.
Ho comprato Microsoft office 2003 ma usando soprattutto Access '97 e avendo
già provato a passare al '2000 con molti problemi chiedo se può essere la
stessa cosa anche per '2003.
I problemi che ho avuto passando al '2000 e che alcune machere e query non
venivano trasformate e per cui il mio programma non funzionava e sono stato
costretto ad annullare tutto.
Qualcuno mi può aiutare o darmi qualche consiglio.


title: Access '97 to Access 2003.

author: ALESSANDRO Baraldi

text:
"Lino Fornaro" <
mcl...@libero.it
> ha scritto nel messaggio
news:cR9Ld.7574$lB4.2...@twister1.libero.it...

Quanto dici è un pò strano.
Il passaggio da A97 alle versioni successive è FUNZIONANTE e funziona.
Basta leggere le precauzioni da mettere in atto, nel caso la selezione
dei riferimenti alle librerie DAO invece che quelle di DEFAULT delle
versioni
>=2000 che sono ADO.
Fatto questo il programma deve andare.
Ciò premesso se devi passare da A97 ad A2003 devi fare la stessa
cosa, quindi incontrerai gli stessi problemi.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Access '97 to Access 2003.

author: Sergio

text:
"Lino Fornaro" <
mcl...@libero.it
> ha scritto nel messaggio
news:cR9Ld.7574$lB4.2...@twister1.libero.it...
> Chiedo una cosa che avrete sicuramente hanno fatto tanti prima di me.
> Ho comprato Microsoft office 2003 ma usando soprattutto Access '97 e
> avendo
> già provato a passare al '2000 con molti problemi chiedo se può essere la
> stessa cosa anche per '2003.
Certamente...
> I problemi che ho avuto passando al '2000 e che alcune machere e query non
> venivano trasformate e per cui il mio programma non funzionava e sono
> stato
> costretto ad annullare tutto.
> Qualcuno mi può aiutare o darmi qualche consiglio.
Purtroppo tra A97 ed i successivi c'è un confine, voluto da microsoft, che
una volta varcato...
non rende più possibile il ritorno...


title: Access '97 to Access 2003.

text:
"Sergio" <
serpic_...@email.it
> ha scritto nel messaggio
news:36524mF...@individual.net...

Strana questa cosa dato che nel Menù la stessa MS rende disponibile
il salvataggio alla versione A97.....!!!
Il confine esiste solo se lo sviluppatore non lo sà gestire.
Saluti



title: selezione di un record secondo parametri

author: tonidrummer

text:
Ciao a tutti. Come posso fare per ricercare un dato record di una
tabella in una maschera mediante il parametro di una data? Mi spiego
meglio. Ho
usato "DoCmd.FindRecord [CasellaCombinataCliente]" e mi trova il
cliente, ma io voglio che si posizioni sul record di QUEL CLIENTE la cui
data è X.
So che si devono inserire altre istruzioni, ma non ho trovato da nessuna
parte le spiegazioni eccetto che quelle in inglese nell'informazione
parametri, ma non le so applicare. Toni.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Alberto S.

text:
"tonidrummer" <
tonia...@tin.it
> ha scritto nel messaggio
news:2bf921ad9a1f121a667...@mygate.mailgate.org...
> Ciao a tutti. Come posso fare per ricercare un dato record di una
> tabella in una maschera mediante il parametro di una data? Mi spiego
> meglio. Ho
> usato "DoCmd.FindRecord [CasellaCombinataCliente]" e mi trova il
> cliente, ma io voglio che si posizioni sul record di QUEL CLIENTE la cui
> data č X.
> So che si devono inserire altre istruzioni, ma non ho trovato da nessuna
> parte le spiegazioni eccetto che quelle in inglese nell'informazione
> parametri, ma non le so applicare. Toni.
Ipotizziamo...
1) Nella tuo maschera c'č una casella di testo (txtDta) in cui c'č la data
da utilizzare come parametro di ricerca ed un'altra casella di testo
(txtId) - anche nascosta - in cui c'č il codice del cliente.
2) Nell'origine dati della maschera (tabella o query) c'č un campo data
(dtmData) e un campo codice (IdCliente)
dovrai
a fronte dell'evento che giudichi piů opportuno inserire queste istruzioni
    Me.RecordsetClone.FindFirst "[dtmData] = #" _
        & Format$(Me.txtData, "m-d-yy") & _
        "# And [IdCliente] = " & Me.txtId
    Me.Bookmark = Me.RecordsetClone.Bookmark
Prima di uscire dall'editor di visual basic accertati di aver impostato il
riferimento al DAO e che questo si trovi prima dell'eventuale riferimento
all'ADO.
Ciao
--
Alberto


text:
> 1) Nella tuo maschera c'è una casella di testo (txtDta) in cui c'è la data
> da utilizzare come parametro di ricerca ed un'altra casella di testo
> (txtId) - anche nascosta - in cui c'è il codice del cliente.
> 2) Nell'origine dati della maschera (tabella o query) c'è un campo data
> (dtmData) e un campo codice (IdCliente)
>
> dovrai
> a fronte dell'evento che giudichi più opportuno inserire queste istruzioni
>
>     Me.RecordsetClone.FindFirst "[dtmData] = #" _
>         & Format$(Me.txtData, "m-d-yy") & _
>         "# And [IdCliente] = " & Me.txtId
>     Me.Bookmark = Me.RecordsetClone.Bookmark
>
> Prima di uscire dall'editor di visual basic accertati di aver impostato il
> riferimento al DAO e che questo si trovi prima dell'eventuale riferimento
> all'ADO.
Non sono riuscito ad applicare le tue istruzioni. Ho una maschera con i
campi [IDCliente], [DataIn], [DataFi]. Vorrei selezionare un record da
una tabella che contiene i dati [CL] e [SCAD]. I campi DataIn e DataFi
sono i limiti di date utili per essere accettate. E' possibile, secondo
te, immettere all'evento su click il tuo codice? Tutti gli spazi, gli "a
capo" e il trattino basso, servono?
Come sostituisco il between di date della maschera?
Devo prima cercare il cliente e poi l'intervallo date.
E in ultimo, dove mi accerto di aver impostato il riferimento al DAO?
Ciao. Grazie. Toni.



text:
[CUT]
> Non sono riuscito ad applicare le tue istruzioni. Ho una maschera con i
> campi [IDCliente], [DataIn], [DataFi]. Vorrei selezionare un record da
> una tabella che contiene i dati [CL] e [SCAD]. I campi DataIn e DataFi
> sono i limiti di date utili per essere accettate. E' possibile, secondo
> te, immettere all'evento su click il tuo codice? Tutti gli spazi, gli "a
> capo" e il trattino basso, servono?
> Come sostituisco il between di date della maschera?
> Devo prima cercare il cliente e poi l'intervallo date.
> E in ultimo, dove mi accerto di aver impostato il riferimento al DAO?
> Ciao. Grazie. Toni.
Allora prova con questo codice (a fronte dell'evento su click di un pulsante
di comando )
Private Sub TuoPulsanteDiComando_Click()
    Me.RecordsetClone.FindFirst "[CL] = " _
        & Me.IDCliente & "And [SCAD] Between #" _
        & Format$(Me.DataIn, "m-d-yy") & "# And #" & _
        Format$(Me.DataFin, "m-d-yy") & "#"
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Gli 'a capo' e i trattini servono per una migliore leggibilità del codice:
potresti teoricamente fare due sole righe... così invece puoi addirittura
fare un copia/incolla del mio codice (sempre che non abbia fatto degli
errori).
Il DAO lo imposti dall'editor di visual basic (Strumenti -> Riferimenti). Se
tra i riferimenti è presente anche l'ADO (Microsoft ActiveX Data Objects)
usando le frecce 'priorità' fai in modo che DAO sia precedente ad ADO.
Fammi sapere se sei riuscito.
Ciao,
--
Alberto


text:
> Gli 'a capo' e i trattini servono per una migliore leggibilità del codice:
> potresti teoricamente fare due sole righe... così invece puoi addirittura
> fare un copia/incolla del mio codice (sempre che non abbia fatto degli
> errori).
>
> Il DAO lo imposti dall'editor di visual basic (Strumenti -> Riferimenti). Se
> tra i riferimenti è presente anche l'ADO (Microsoft ActiveX Data Objects)
> usando le frecce 'priorità' fai in modo che DAO sia precedente ad ADO.
>
> Fammi sapere se sei riuscito.
>
> Ciao,
> --
> Alberto
Ho trasformato le tue istruzioni per il mio caso. Mi da errore per
operatore mancante.
Ho fatto eseguire l'istruzione after update della
CasellaCombinataCliente.
Me.RecordsetClone.FindFirst "[CL] = " _
        & Me.CasellaCombinataCliente & "And [SCAD] Between #" _
        & Format$(Me.DataIn, "m-d-yy") & "# And #" & _
        Format$(Me.DataFi, "m-d-yy") & "#"
    Me.Bookmark = Me.RecordsetClone.Bookmark
Mi spieghi tutti quei simboli? Intuisco che sono per specificare il
formato data. Non basta solo il between come faccio in una query con
sql?
Ciao.Toni.



text:
[CUT]
> Ho trasformato le tue istruzioni per il mio caso. Mi da errore per
> operatore mancante.
> Ho fatto eseguire l'istruzione after update della
> CasellaCombinataCliente.
>
> Me.RecordsetClone.FindFirst "[CL] = " _
>         & Me.CasellaCombinataCliente & "And [SCAD] Between #" _
>         & Format$(Me.DataIn, "m-d-yy") & "# And #" & _
>         Format$(Me.DataFi, "m-d-yy") & "#"
>     Me.Bookmark = Me.RecordsetClone.Bookmark
> Mi spieghi tutti quei simboli? Intuisco che sono per specificare il
> formato data. Non basta solo il between come faccio in una query con
> sql?
> Ciao.Toni.
>
L'errore dovrebbe essere causato dalla mancanza di uno dei tre parametri. Tu
prova - prima di tutte le altre istruzioni - a testare il contenuto dei
controlli da cui prelevi i valori
Per esempio:
    MsgBox Me.CasellaCombinataCliente
    MsgBox Me.DataIn
    MsgBox Me.DataFi
così vedi quali sono i parametri che vengono effettivamente passati a
FinfFirst. (è anche possibile che la casella combinata non 'ritorni' il
codice cliente ma qualcos'altro)
Altre due cose, che non dovrebbero però aver connessione con l'errore:
1) Io ho previsto che CL sia numerico. Se non lo fosse la riga n° 2 andrebbe
modificata cosi:
    & Chr$(34) & Me.CasellaCombinataCliente & Chr$(34) & "And [SCAD] Between
#" _
2) Chiaramente se nell'arco di tempo da te determinato il cliente è presente
più di una volta non potrai avere il controllo su quale dei record ti verrà
trovato.
Per 'simboli' credo tu voglia dire i vari 'Format$'. VBA gestisce le date
nel formato 'inglese' (mese-giorno-anno): tramite il Format$ tu gliele passi
come vuole lui così eviti spiacevoli situazioni (tipo 12 gennaio 2002
interpretato come 1° dicembre 2002).
Ciao
--
Alberto


title: Errore inserimento runtime

author: trinkity

text:
Ho questo codice
[code]
Set con = CurrentDb
sql = "SELECT max(IdInterno) as maxInterno From IntestatarioInterno
WHERE Lettera = '" + valoreOPT + "'"
Set rs = con.OpenRecordset(sql)
If (rs!maxInterno > 0) Then
    'esiste già un valore nel db prendo il valore e lo aggiorno
    Dim max As Integer
    max = rs!maxInterno
    con.Close
    Set con = CurrentDb
    sql = "SELECT Numero FROM IntestatarioInterno WHERE IdInterno=" &
max & ""
    Set rs = con.OpenRecordset(sql)
    'Inserisco i valori
    Set con2 = CurrentDb
    sql = "INSERT INTO IntestatarioInterno VALUES('','" + valoreOPT +
"','" & rs!Numero + 1 & "','1')"
    Set rs2 = con2.OpenRecordset(sql)
    MsgBox (sql)
    con.Close
    con2.Close
Else
'Inserisco il valore nel database a partire dal valore dichiarato in
num
    con.Close
    Set con = CurrentDb
    sql = "INSERT INTO IntestatarioInterno VALUES('','" + valoreOPT +
"','" & num & "','1')"
    Set rs = con.OpenRecordset(sql)
    'MsgBox (sql)
    con.Close
End If
[/code]
Ho il problema che non mi esegue la query con la insert... cosa
sbaglio?
Credo sia un problema di sintassi... potete aiutarmi?
Concettualmente:
Controllo se nel db esiste un IntestatarioInterno con una certa
lettera definita dall'utente.
Se esiste prendo l'ultimo valore (il più grande) e inserisco una nuova
tupla dove il campo numero viene incrementato di uno
Se non esiste un Intestatario  interno lo aggiungo semplicemente


title: Errore inserimento runtime

author: IvanDaBologna

text:
"trinkity" <
trinki...@gmail.com
> ha scritto nel messaggio
news:4f62b0a3-d3a4-4212...@w34g2000hsg.googlegroups.com...
Ho questo codice
[code]
Set con = CurrentDb
sql = "SELECT max(IdInterno) as maxInterno From IntestatarioInterno
WHERE Lettera = '" + valoreOPT + "'"
Set rs = con.OpenRecordset(sql)
If (rs!maxInterno > 0) Then
    'esiste giā un valore nel db prendo il valore e lo aggiorno


    Set rs2 = con2.OpenRecordset(sql)

[/code]


Se esiste prendo l'ultimo valore (il pių grande) e inserisco una nuova
tupla dove il campo numero viene incrementato di uno
Se non esiste un Intestatario  interno lo aggiungo semplicemente
------------------------------------------------------------------------------------------------
hai provato ad inserire un punto di interruzione sul
    Set rs = con.OpenRecordset(sql)
??
ci arriva fino a lė?
Trovi sempre un (rs!maxInterno > 0) ??? sembrerebbe di sė vista la query.
Hai dei codici di errore ?
IvanDaBologna


title: Maschere collegate e aggiornamenti

author: Lorenzo Bolognini

text:
Ciao a tutti,
ho un problema con due maschere:
la prima (Padre) mostra tutte le spese telefoniche per ogni telefono e ha
rst Snapshot
NumTel
Importo
...
Premendo il tasto modifica su questa maschera si apre una seconda maschera
(Figlio) con rst Dynaset che mi consente di modificare i dati. Confermando
le modifiche su questa maschera torno alla maschera precedente ma non trovo
i dati aggiornati pur con tutti i me.requery, refresh, repaint e recalc (la
maschera ha anche campi calcolati) del mondo nell'evento Open della tabella
Padre! Tuttavia andando ad aprire la tabella su cui poggiano le due maschere
l'aggiornamento viene effettuato.
Come faccio ad aggiornare la tabella Padre con i dati giusti? Nell'evento
conferma ho già messo uno spostamento di cursore ma non ha alcun effetto.
docmd.gotorecord,,acfirst
Ciao e grazie,
Lorenzo
--------------------------------
Inviato via
http://usenet.libero.it


title: Maschere collegate e aggiornamenti

author: Superpippo

text:

scusa ma credo che tutti gli eventi me.requery, refresh, repaint e
recalc etc devi metterli sull'evento close della mask figlio xchè quella
padre resta aperta (o no?)


title: Maschere collegate e aggiornamenti

text:
"Superpippo" <
skiz...@libero.it
> ha scritto nel messaggio
news:3E26B3CE...@libero.it...
> scusa ma credo che tutti gli eventi me.requery, refresh, repaint e
> recalc etc devi metterli sull'evento close della mask figlio xchè
quella
> padre resta aperta (o no?)
Ciao Superpippo,
ho risolto il problema creandomi a "mano" le due maschere (mentre
prima lo facevo fare allo wizard)... credo che Access mi avesse messo
delle proprietà particolari sulla form che mi davano dei problemi...
ora funziona come dovrebbe ma l'evento me.requery l'ho messo cmq
all'apertura della form padre ;-)
Grazie cmq per l'aiuto,
Lorenzo


title: Aiuto

author: Raffaele Trombini

text:
Devo aprire una maschera con un recordset limitato
id_ultimo_record č un long
Quando arrivo alla riga seguente...
DoCmd.OpenForm "msc_insert_odl", acNormal, , ("id_richiesta >" &
id_ultimo_rec).....il debiger mi dice l'azione openForm č stata annullata!
Quindi?
Grazie per l'aiuto.
Ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Aiuto

text:
"Raffaele Trombini" <
r.tro...@unica-spa.it
> ha scritto nel messaggio
news:egnlcr$mdr$1...@news.newsland.it...
> Devo aprire una maschera con un recordset limitato
> id_ultimo_record è un long
> Quando arrivo alla riga seguente...
> DoCmd.OpenForm "msc_insert_odl", acNormal, , ("id_richiesta >" &
> id_ultimo_rec).....il debiger mi dice l'azione openForm è stata annullata!
> Quindi?
Quindi????? E ce lo chiedi pure?
E' il settimo messaggio che invii in totale, per cui avrai letto i
cazziatoni volati in giro.... lo hai capito che "AIUTO" o cavolate simili,
in un subject non devono esistere?!?!?!?!
Quindi... ritenta, sarai più fortunato.
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media."


title: Aiuto

text:
Pablitomf (Maurizio Facciuti) ha scritto:
> "Raffaele Trombini" <
r.tro...@unica-spa.it
> ha scritto nel messaggio
> news:egnlcr$mdr$1...@news.newsland.it...
> > Devo aprire una maschera con un recordset limitato
> > id_ultimo_record è un long
> > Quando arrivo alla riga seguente...
> > DoCmd.OpenForm "msc_insert_odl", acNormal, , ("id_richiesta >" &
> > id_ultimo_rec).....il debiger mi dice l'azione openForm è stata annullata!
> > Quindi?
> Quindi????? E ce lo chiedi pure?
> E' il settimo messaggio che invii in totale, per cui avrai letto i
> cazziatoni volati in giro.... lo hai capito che "AIUTO" o cavolate simili,
> in un subject non devono esistere?!?!?!?!
> Quindi... ritenta, sarai più fortunato.
Non credevo ci fosse un numero massimo di messaggi da inviare!
E scusate se nell'oggetto non sono stato chiaro e ho usato termini non
consentiti dalla comunity. Forse a questo punto è meglio arrangiarsi e
quando diventerò un'esperto programmatore di access mi
ripresenterò....anche se a quel punto non avrò più bisogno!!
Saluti a tutti!!!!



title: Aiuto

text:
>> Quindi????? E ce lo chiedi pure?
>
>> E' il settimo messaggio che invii in totale, per cui avrai letto i
>> cazziatoni volati in giro.... lo hai capito che "AIUTO" o cavolate
>> simili,
>> in un subject non devono esistere?!?!?!?!
>> Quindi... ritenta, sarai più fortunato.
>
>
> Non credevo ci fosse un numero massimo di messaggi da inviare!
Non mi riferivo al "quanto" in senso di "troppo", ma al "dopo tutti questi
post che hai mandato, ancora non hai capito che... ?"
> E scusate se nell'oggetto non sono stato chiaro e ho usato termini non
> consentiti dalla comunity. Forse a questo punto è meglio arrangiarsi e
> quando diventerò un'esperto programmatore di access mi
> ripresenterò....anche se a quel punto non avrò più bisogno!!
Me lo auguro per te, ma non contarci troppo... non si arriva mai a saperne
tutto.
Io come tanti alri, esperto lo sono, ma se vedi nei post precedenti, tante
sono le mie richieste... per cui...
Basta avere l'umiltà di leggere le regole che servono al corretto
svolgimento dell'NG, ed adeguarsi.
Tutto quì!
Un "AIUTO" non è un problema... un "aprire una maschera con un recordset
limitato", lo è... immagina se tutti scrivessero "AIUTO", o "HELP", o "Per
favore c'è una cosa che non so fare"... come capiresti dal subject qual'è il
problema reale dello scrivente? ma soprattutto, che utilità avrebbe un
subject del genere in una eventuale ricerca sul Web? io credo che sul Web tu
cercheresti "recordset limitato", non "AIUTO", per cui, tira le somme...
> Saluti a tutti!!!!
Ciao e buono studio... ;-)


title: Aiuto

text:
Pablitomf (Maurizio Facciuti) ha scritto:
> >> Quindi????? E ce lo chiedi pure?





> > Saluti a tutti!!!!

Lungi da me fare della polemica!!
Allora con molta umiltà cercherò di risolvere il problema da solo senza
usare incontrollatamente il newgroup.....e scriverò solo dopo aver capito
che sarebbe impossibile da solo arrivare a capo della soluzione.
Credo che questo sia un buon compromesso!
Scusate ancora!
A presto...



title: Aiuto

author: Alessandro Cara

text:
Raffaele Trombini wrote:
> Pablitomf (Maurizio Facciuti) ha scritto:
>
>
>>"Raffaele Trombini" <
r.tro...@unica-spa.it
> ha scritto nel messaggio
[cut]
>>Quindi????? E ce lo chiedi pure?
>
>
>>E' il settimo messaggio che invii in totale, per cui avrai letto i
>>cazziatoni volati in giro.... lo hai capito che "AIUTO" o cavolate simili,
>>in un subject non devono esistere?!?!?!?!
>>Quindi... ritenta, sarai più fortunato.
>
>
>
> Non credevo ci fosse un numero massimo di messaggi da inviare!
Non c'e' un numero massimo di messaggi da inviare.
E' il numero di copie dello stesso messaggio che non serve.
Il NG accetta una copia.
Dalla seconda copia in poi cominciano a volare i "cazziatoni"
Riposta lo stesso messaggio come "Azione openform annullata"
(Che e' un "oggetto" significativo) e come per magia otterrai risposta e
azzeramento dei cazziatoni
--
ac


title: Aiuto

author: Alessandro Baraldi

text:
Raffaele Trombini ha scritto:
[CUT]
> Lungi da me fare della polemica!!
> Allora con molta umiltà cercherò di risolvere il problema da solo senza
> usare incontrollatamente il newgroup.....e scriverò solo dopo aver capito
> che sarebbe impossibile da solo arrivare a capo della soluzione.
> Credo che questo sia un buon compromesso!
> Scusate ancora!
> A presto...
Ti propongo una nuova alternativa che forse non hai preso in
considerazione....
"Prova ad effettuare una ricerca per Oggetto nel NG".
Se quelli che scrivono hanno evitato Oggetti come il tuo ti assicuro
che trovi nel 90%
dei casi che l'argomento è stato trattato... come anche in questo
caso...
Fai questo tentativo e vedi quanti Post escono.
Google consente di risalire a messaggi vecchi di 10 anni(per dire un
numero)
..... credo sia abbastanza...
@Alex


title: Condizioni arresto macro

author: Benedetto Wiquel

text:
Ciao a tutti,
Ho creato un macro che a sua volta deve eseguire un'altra macro, e nelle
condizioni di arresto vorrei dire:
il record contenuto in Forms!maschera!record1  è diverso da Forms!maschera
record2. come posso scriverlo?
grazie.
Ciao.


title: Condizioni arresto macro

author: Sergio MAZZA

text:

Prova con:
Forms!maschera!record1  <> Forms!maschera record2
Se record1 e record2 sono due controlli di due maschere entrambe aperte...
Ciao.
--
Sergio MAZZA


title: ridimensionare form in base alla risoluzione schermo e relativa sottomaschera

author: bfs

text:
Salve a tutti
ho una form con relativa subform tabellare che vorrei adattare sempre alla
massima risoluzione dello schermo utilizzato.
Questo perchč da clienti che lavorno con 800x600 la maschera occupa tutto lo
schermo mentre da altri che lavorano con risoluzioni mostruose la maschera č
un francobollo e non riesco a sfruttare l'altezza per dell'area dello
schermo per mostrare molti piů record.
Ho risolto (quasi) con questo codice nell'apertura:
Dim rctParent As RECT
hWndParent = GetParent(hWnd)
Call GetClientRect(hWndParent, rctParent)
Call MoveWindow(Me.hWnd, 0, rctParent.Top, rctParent.Right,
rctParent.Bottom - rctParent.Top, 1)
Me.Corpo.Height = fPixelsToTwips(rctParent.Bottom, 1) -
Me.IntestazioneMaschera.Height - Me.PičDiPaginaMaschera.Height
Me.sottom.Height = Me.Corpo.Height - 400   '400 č l'altezza della barra di
scorrimento orrizontale...anche qui ho qualche dubbio cmq funziona
Me.sottom.Width = Me.Width
Me.sottom.Top = 0
Me.sottom.Left = 0
ora la maschera occupa tutto lo schermo...la sottomaschera (sottom) occupa
tutto il corpo in altezza (quindi vedo molte righe) ma non in
larghezza...praticamente non mi considera
Me.sottom.Width = Me.Width
sbaglio qualcosa?
Grazie BFS


text:
On 23 Apr, 08:40, "bfs" <
b...@tin.it
> wrote:
> Salve a tutti
> ho una form con relativa subform tabellare che vorrei adattare sempre alla
> massima risoluzione dello schermo utilizzato.
> Questo perchè da clienti che lavorno con 800x600 la maschera occupa tutto lo
> schermo mentre da altri che lavorano con risoluzioni mostruose la maschera è
> un francobollo e non riesco a sfruttare l'altezza per dell'area dello
> schermo per mostrare molti più record.
>
> Ho risolto (quasi) con questo codice nell'apertura:
>
> Dim rctParent As RECT
> hWndParent = GetParent(hWnd)
> Call GetClientRect(hWndParent, rctParent)
> Call MoveWindow(Me.hWnd, 0, rctParent.Top, rctParent.Right,
> rctParent.Bottom - rctParent.Top, 1)
> Me.Corpo.Height = fPixelsToTwips(rctParent.Bottom, 1) -
> Me.IntestazioneMaschera.Height - Me.PièDiPaginaMaschera.Height
> Me.sottom.Height = Me.Corpo.Height - 400   '400 è l'altezza della barra di
> scorrimento orrizontale...anche qui ho qualche dubbio cmq funziona
> Me.sottom.Width = Me.Width
> Me.sottom.Top = 0
> Me.sottom.Left = 0
>
> ora la maschera occupa tutto lo schermo...la sottomaschera (sottom) occupa
> tutto il corpo in altezza (quindi vedo molte righe) ma non in
> larghezza...praticamente non mi considera
>
> Me.sottom.Width = Me.Width
>
> sbaglio qualcosa?
>
> Grazie BFS
C'è un articolo sul sito di donkarl


text:
<
cosi...@gmail.com
> ha scritto nel messaggio
news:0943a6ed-de72-44a8...@z5g2000yqn.googlegroups.com...
On 23 Apr, 08:40, "bfs" <
b...@tin.it
> wrote:
> Salve a tutti
> ho una form con relativa subform tabellare che vorrei adattare sempre alla
> massima risoluzione dello schermo utilizzato.
> Questo perchč da clienti che lavorno con 800x600 la maschera occupa tutto
> lo
> schermo mentre da altri che lavorano con risoluzioni mostruose la maschera
> č
> un francobollo e non riesco a sfruttare l'altezza per dell'area dello
> schermo per mostrare molti piů record.
>
> Ho risolto (quasi) con questo codice nell'apertura:
>
> Dim rctParent As RECT
> hWndParent = GetParent(hWnd)
> Call GetClientRect(hWndParent, rctParent)
> Call MoveWindow(Me.hWnd, 0, rctParent.Top, rctParent.Right,
> rctParent.Bottom - rctParent.Top, 1)
> Me.Corpo.Height = fPixelsToTwips(rctParent.Bottom, 1) -
> Me.IntestazioneMaschera.Height - Me.PičDiPaginaMaschera.Height
> Me.sottom.Height = Me.Corpo.Height - 400 '400 č l'altezza della barra di
> scorrimento orrizontale...anche qui ho qualche dubbio cmq funziona
> Me.sottom.Width = Me.Width
> Me.sottom.Top = 0
> Me.sottom.Left = 0
>
> ora la maschera occupa tutto lo schermo...la sottomaschera (sottom) occupa
> tutto il corpo in altezza (quindi vedo molte righe) ma non in
> larghezza...praticamente non mi considera
>
> Me.sottom.Width = Me.Width
>
> sbaglio qualcosa?
>
> Grazie BFS
C'č un articolo sul sito di donkarl
bhe fare una form per ogni risoluzione non mi sembra proprio una buona idea.
e neppure voglio aggiungere addin esterni.
mi basterebbe solo capire come mai non funziona quella riga..il resto mi va
alla perfezione su tutte le risoluzioni
ciao e grazie
BFS


title: problemi date

author: Max

text:
Salve a tutti
Ho creato un'applicazione Access 2000 e l'ho convertita in 97
alcune query nella versione 97 non funzionavano , ho provato a modificarle
un po e ora vanno.
1 pero continua a non funzionare: in particolare non mi fa la funzione
between and in un campo contenente date.
Perchè il database convertito è in sola lettura?
Quali sono i riferimenti alle librerie che ha Access 2000 e non ha Access
97?
Grazie anticipatamente


title: i calcoli di una maschera non vengono inseriti in tabella

author: Giorgia

text:
Ciao a tutti,
ho creato la tbl A e per rendere l'inserimento dei record più allettante
graficamente, ho creato una maschera A.
In questa maschera però ci sono dei campi a cui ho dato come origine dei
dati, delle formule seppur semplici, che mi velocizzano per es l'inserimento
delle fatture (si completano le somme IVA, IMPONIBILI o TOT FATTURE).
Il problema è che questi campi, nella tabella compaiono con valore 0.00? e
quindi, avendo la necessità di creare una query per questi dati ho dei
problemi.
Forse è sbagliata proprio la concezione di creare la tabella e poi la form?
Dovevo creare una maschera di inserimento dati e quindi la tabella avrebbe
"appreso" correttamente tutti i dati compresi quelli delle formule?
Grazie per chi avrà anche solo letto
--
Giorgia


author: Pablitomf

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:47bc6cbd$0$10628$4faf...@reader2.news.tin.it...

Io ho letto. Prego :-D


text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:fpi09g$503$1...@tdi.cu.mi.it...

Scherzi a parte... se ti interessano le fatture, guarda questo mio piccolo
demo :
http://www.accessgroup.it/HomeArgomenti.asp?ID=126&Oggetto2=DB%20Fatturazione
--
---
Ciao
Pablitomf (Maurizio Facciuti)
Web Master
www.accessgroup.it


text:
"Pablitomf" <
pabl...@hotmail.it
> ha scritto nel messaggio
news:fpi0bv$52m$1...@tdi.cu.mi.it...

eh eh grazie per aver letto e ancor di più per aver risposto!!
ho dei problemi ad aprire il tuo dataase di es per fatture, mi dice che è di
sola lettura.....
Giorgia


text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:47bd3f46$0$17949$4faf...@reader1.news.tin.it...

Almeno questo l'ho risolto!avevo dei problemi ad estrarre i file.
Molto molto ben fatto cavolo!!chissà se arriverò mai ad avere una simile
padronanza di Access.
Ho trovato esattamente la query che mi serve per il riepilogo dell'iva
mensile ma non riesco a capire come devo inserire i parametri mese e
anno.....
Giorgia


text:

Di solito i campi calcolati non si mettono in tabella, prorpio perchè
calcolati e quindi inutile occupare spazio fisico nella tabella...
Se poi li vuoi in una query puoi sempre ricalcolarli con una formula
nella query.
Se prorpio li vuoi in tabella, non puoi calcolarli come origine dati,
dato che l'origine dati ti serve per associare il controllo al campo
della tabella, per cui puoi mettere la formula nel valore predefinito.
F.


title: Intercettare messaggio allarme ?

text:
Voglio eseguire una query di creazione tabella, ma mi succede che quando
questa tabella esiste già mi appare il messaggio "La tabella "miatabella"
verrà elimintata prima dell'esecuzione della query, ....
Ovviamente mi sta bene che la elimini, ma vorrei lo facesse in modo
"silenzioso" .
Ho provato ad inserire del codice prima di fargli eseguire la query (codice
che rimuove la tabella già esistente), ma quando questa tabella non esiste
succede un caos !
Come faccio a dirgli :
Se tabella "XX" esiste then Cancellala e procedi ?
Grazie
Ciao by Ciao by Max
max...@quios.com

max...@libero.it
 Visit my web page at
http://run.to/Galway


title: Intercettare messaggio allarme ?

text:
"Max" <
max...@libero.it
> ha scritto nel messaggio
news:95c6d6$6nt$1...@lacerta.tiscalinet.it...

Prima di eseguire la query imposta il SetWarnings a False.
Es.
'--------------
DoCmd.SetWarnings False
DoCmd.OpenQuery "blabla"
DoCmd.SetWarnings True
'--------------
Ciao.


title: Intercettare messaggio allarme ?

author: Giovanni Perdicaro

text:
It was Thu, 1 Feb 2001 18:34:26 +0100 when Max said:
>Voglio eseguire una query di creazione tabella, ma mi succede che quando
>questa tabella esiste già mi appare il messaggio "La tabella "miatabella"
>verrà elimintata prima dell'esecuzione della query, ....
>Ovviamente mi sta bene che la elimini, ma vorrei lo facesse in modo
>"silenzioso" .
Prova andando in Strumenti\Opzioni
Nel tab Modifica/Trova disabilita il check in Conferma - Eliminazione
documenti
--
Giovanni "Gyo" Perdicaro
E-Mail:
gperd...@sicilyonline.it


title: Intercettare messaggio allarme ?

author: Nicola Ardito

text:
Max ha scritto nel messaggio <95c6d6$6nt$
1...@lacerta.tiscalinet.it
>...

Alla tua domanda ha già risposto Sergio però se dovesse servirti
In ACC97
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordSet("select count(*) from msysobjects where
name = 'tabella1' and type =1")
If rst(0) > 0 Then
MsgBox "esiste"
Else
MsgBox "Non esiste"
End If
Attenzione al type  che vale 1 per una tabella locale, 6 per una collegata
da un altro mdb....
Un'altra posssibilità è quella di gestire l'errore
On error goto err_NomeFunzione
....
exit function
err_nomefunzione:
if err = numeroerrore resume esecuzionequery
end function
Ciao Nicola
email: metti inwind al posto  di NOSPAM


title: eventi su controlli

author: Gianni

text:
-casella di testo: se gestisco le proprietà 'valido se' e 'msg d'errore'
tramite la finestra proprietà E tramite codice con l'evento lostfocus(),
quale dei 2 sistemi ha la prevalenza?
-sempre casella di testo: se il valore immesso è 0 (valore predefinito) lo
stato attivo deve rimanere sul controllo. dopo varie prove, l'unica maniera
di gestirlo efficacemente è stata quella di agganciare (com'è il termine
esatto?) l'evento lostfocus(), dare il msg d'errore, spostare lo stato
attivo su un'altro controllo e poi riportarlo sul controllo corrente.
La cosa funziona, ma ho la sensazione che dovrebbe esserci un sistema
migliore...
qui sotto il codice:
Private Sub Peso_lordo_LostFocus()
If Me.Peso_lordo = 0 Or IsNull(Me.Peso_lordo) Then
    MsgBox "Il peso deve essere maggiore di zero.", vbOKOnly
    Me.rif_scatola.SetFocus
    Me.Peso_lordo.SetFocus
    Exit Sub
End If
End Sub
ancora casella di testo: se sulla casella gestita dal codice sopra ho lo
stato attivo, come posso intercettare un evento (il click su di un
pulsante)? ho provato con
    Esci.OnClick = "[esci_maschera_click()]"
esci =nome pulsante
esci_maschera_click() = sub di evento sul pulsante
ma ovviamente non funge
gianni


title: eventi su controlli

author: Sib dal portatile

text:
"Gianni" <
g...@unavoltaerolibero.it
> ha scritto nel messaggio
news:9n8m3m$6jp$2...@nreada.inwind.it...
> -casella di testo: se gestisco le proprietà 'valido se' e 'msg d'errore'
> tramite la finestra proprietà E tramite codice con l'evento lostfocus(),
> quale dei 2 sistemi ha la prevalenza?
Prima viene verificato il valore ed eventualmente presentato il messaggio di
errore, se il valore e' valido allora esci dal controllo e si verifica
l'evento lost focus.
> -sempre casella di testo: se il valore immesso è 0 (valore predefinito) lo
> stato attivo deve rimanere sul controllo. dopo varie prove, l'unica
maniera
> di gestirlo efficacemente è stata quella di agganciare (com'è il termine
> esatto?) l'evento lostfocus(), dare il msg d'errore, spostare lo stato
> attivo su un'altro controllo e poi riportarlo sul controllo corrente.
> La cosa funziona, ma ho la sensazione che dovrebbe esserci un sistema
> migliore...
> qui sotto il codice:
> Private Sub Peso_lordo_LostFocus()
> If Me.Peso_lordo = 0 Or IsNull(Me.Peso_lordo) Then
>     MsgBox "Il peso deve essere maggiore di zero.", vbOKOnly
>     Me.rif_scatola.SetFocus
>     Me.Peso_lordo.SetFocus
>     Exit Sub
> End If
> End Sub
Ma non lo gestivi con il "valido se"?
Comunque puoi usare l'evento Exit che puo' essere annullato impostando a
true il valore di Cancel. Non e' altrettanto efficiente quanto il valido se.
> ancora casella di testo: se sulla casella gestita dal codice sopra ho lo
> stato attivo, come posso intercettare un evento (il click su di un
> pulsante)? ho provato con
>     Esci.OnClick = "[esci_maschera_click()]"
> esci =nome pulsante
> esci_maschera_click() = sub di evento sul pulsante
>
> ma ovviamente non funge
Piuttosto ovvio.
Non sei tu a intercettare l'evento, ma il sistema operativo e se il
controllo precedente non perde lo stato attivo, l'evento non si verifica.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Formato valuta in un TextBox in Visual Basic

author: Davide (sib)

text:
Ciao a tutti, come v�?
Sto riversando alcune mie applicazioni da Access a VisualBasic 2008 e, come
sempre accade, � nelle cose cretine che sorgono i maggiori problemi,
Il vero quesito � dopo, ma tanto per chiacchierare:
Ho creato una maschera collegata ai dati con pulsanti di spostamento e tutto
il resto, apparentemente tutto funziona e se modifico un record spostandomi
e ritornandoci sopra nella maschera lo vedo effettivamente modificato, ma se
ricarico la maschera il record torna com'era prima, in pratica le modifiche
vengono fatte sulla tabella temporanea che la maschera crea automaticamente
ma non vengono trasmesse al database.
Allora ho creato nuovamente la maschera ma stavolta con la procedura
guidata, la maschera risulta identica alla prima ma stavolta funziona
perfettamente e i dati vengono effettivamente modificati anche nel database
collegato.
Ho controllato riga di codice per riga di codice, anche nel codice interno
che genera la maschera, ho controllato propriet� per propriet� tutti gli
oggetti e non ho trovato alcuna differenza, ma non mi arrendo!
--
Vero questito:
in questa maschera ho un controllo che contiene un importo, nel database
questo importo � un float, come si formatta in valuta all'interno del
controllo? in access � talmente facile che non mi spiego come mai in VB2008
sia cos� difficile.
Ariciao
Davide
--
http://www.gestionedati.com
"...perch� non esistono saggi per nascita."
(Ptahhotep, 2640 ac)


text:
Ciao Davide...
Purtroppo solo per i saluti... non ho ancora aperto Net... anche se
sono 2 anni che vorrei farlo....!!!
@Alex


text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:641fe212-9596-4a4e...@o36g2000vbi.googlegroups.com...

Ciao Alex,
come ti capisco.
Anche io ho rimandato anni perch� ogni volta che ci provavo capivo perch�
avevo scelto Access.
Ora per� pare che MS non intenda pi� fornire strumenti developer e a questo
punto voglio provarci!
Ciao



author: Karl Donaubauer

text:
Davide (sib) wrote:
> @Alex ha scritto:
>>
>> Purtroppo solo per i saluti... non ho ancora aperto Net... anche se
>> sono 2 anni che vorrei farlo....!!!
> ...
> come ti capisco.
> Anche io ho rimandato anni perch� ogni volta che ci provavo capivo
> perch� avevo scelto Access.
Ciao Davide,
s�, lo stesso vale per me.
Poche mesi fa persino ho organizzato una conferenza fatto per misura
per 200 Accessisti in Germania che si interessano per .NET, con
presentazioni di conversioni, vari techniche di .NET ecc.
(forse si capisce almeno i buzzwords:
www.donkarl.com/NEK/NEK1.htm
)
Credo che per la maggior parte dei partecipanti era un po' deludente
vedere come sono complicate le cose nella pratica, lento il lavoro ecc.
Certo molto dipende dalle circostanze del proprio lavoro.
Per me solo
ASP.NET
 finalmente sembra interessante dopo tanti anni,
ma non in concorrenza di Access ma altre techniche per il web.
> Ora per� pare che MS non intenda pi� fornire strumenti developer
>  e a questo punto voglio provarci!
La nuova versione di Access � abbastanza interessante in vari aspetti,
ma si deve ancora aspettare un po' per le prime informazioni ufficiali
dalla MS.
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


author: Geppo

text:

prova a postare su:
it.comp.lang.visual-basic
o meglio:
microsoft.public.it.dotnet.vb
> Ariciao
> Davide
--
Ciao
Geppo


author: Davide

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio

Ciao Karl,
piacere di rileggerti.
Io ci sto provando con VB, vediamo se cavo il ragno dal buco,
Ciao
Davide
(PS: Il mio vecchio invito � sempre valido.)



title: query di accodamento

author: Akery

text:
buongiorno,

ho la seguente tabella:

CF, data_in, data_out

vorrei creare una query di accodamento che accodi il record solo se la
data out è maggiore della data_out contenuta in tabella e l'accodamento
deve avvenire una sola volta per data
come impostare il criterio?

grazie per l'aiuto

--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus


title: query di accodamento

author: Alex

text:
Non sono certo di aver capito...

INSERT INTO TDest (fld1, DataOut,...fldn)
SELECT fld1, DataOut,...fldn FROM TOrig
WHERE TDest.DataOut<TOrig.DataOut

Se ho capito...
--
@Alex

----Android NewsGroup Reader----
https://piaohong.s3-us-west-2.amazonaws.com/usenet/index.html


title: query di accodamento

author: BFS

text:
Il 02/02/2021 16:01, Akery ha scritto:
> buongiorno,
>
> ho la seguente tabella:
>
> CF, data_in, data_out
>
> vorrei creare una query di accodamento che accodi il record solo se la
> data out è maggiore della data_out contenuta in tabella e l'accodamento
> deve avvenire una sola volta per data
> come impostare il criterio?
>
> grazie per l'aiuto
>

cosa intendi esattamente con
"una sola volta per data"

BFS


title: query di accodamento

author: Bruno Campanini

text:
It happens that BFS formulated :

> cosa intendi esattamente con
> "una sola volta per data"
>
> BFS

Credo intenda quanto hai già concepito.
Una cosa che con una sola query è impossibile fare.
Occorrerebbe avere un campo nella tabella da definire TRUE
al primo accodamento e, con quel TRUE, relativamente a
quella data evitarne altri.

Bruno


title: query di accodamento

text:
Il 02/02/2021 17:25, Alex ha scritto:
> Non sono certo di aver capito...
>
> INSERT INTO TDest (fld1, DataOut,...fldn)
> SELECT fld1, DataOut,...fldn FROM TOrig
> WHERE TDest.DataOut<TOrig.DataOut
>
> Se ho capito...
>
Sì, è quello che ho scritto anche io ma i record sono accodati più volte :-(



title: query di accodamento

text:

ci provo!



title: query di accodamento

text:
Sě, č quello che ho scritto anche io ma i record sono accodati piů
 volte :-(

Come ti ho premesso probabilmente non ho compreso a fondo il
 tema... e se non lo spieghi bene come ha indicato anche BSF
 facciamo poco...



title: query di accodamento

text:
Il 03/02/2021 12:23, Alex ha scritto:
> Sì, è quello che ho scritto anche io ma i record sono accodati più
>   volte :-(
>
> Come ti ho premesso probabilmente non ho compreso a fondo il
>   tema... e se non lo spieghi bene come ha indicato anche BSF
>   facciamo poco...
>
l'accodamento si deve avere ogni volta che c'è un cambio di data, ma
voglio che si accodi il record una sola volta, con la query data il
record si accoda tutte le volte che viene richiamata la query.

avevo pensato di cancellare la sorgente una volta acquisita ma proviene
da un file excel.

esempio pratico, nella tabella da alimentare ho questo record

tizio, 1/1/20, 31/12/20

nella tabella sorgente ho questa riga

tizio, 1/1/21, 31/12/21

la query verifica che 31/12/21 > 31/12/20

e accoda il record creando

tizio, 1/1/20, 31/12/20
tizio, 1/1/21, 31/12/21

il mio problema è che se richiamo la query accade

tizio, 1/1/20, 31/12/20
tizio, 1/1/21, 31/12/21
tizio, 1/1/21, 31/12/21

questa situazione è indesiderata, il record non deve accodarsi

spero di essere stato chiaro

Grazie



title: query di accodamento

text:

INSERT INTO destinazione ( cf, datain, dataout )
SELECT cf, datain, dataout
FROM sorgente
WHERE sorgente.dataout not in (select dataout from destinazione where
sorgente.cf
=
destinazione.cf
  );

da un primo controllo mi pare funzioni

BFS


title: query di accodamento

text:
 INSERT INTO destinazione ( cf, datain, dataout )SELECT cf,
 datain, dataoutFROM sorgenteWHERE sorgente.dataout not in (select
 dataout from destinazione where
sorgente.cf
=
destinazione.cf

 )

;da un primo controllo mi pare funzioniBFS

Credo, sempre abbia colto, manchi il criterio di
 DataOutNuova>DataOutPresente per il resto anche secondo me è
 corretta.
