title: recordset non funziona...

author: tiziano

text:
ciao,
il mio problema è che a fine codice si blocca dicendo che c'è un do senza
loop??
ho una tabella principale "registro" e una tabella "Tabella_riempito_da"
le due sono collegate nella mia maschera attraverso il campo id_Località e
US
quello che vorrei è che se lancio la procedura il sistema mi possa inserire
i valori nella tabella "Registro" automaticamente pescandoli dalla
"Tabella_riempito_da"

Function riempito_da()
'genera valore in campo memo riempie
 Dim a1 As DAO.Recordset
 Dim a2 As DAO.Recordset
 Dim db As Database
 Dim id_localitàRegistro As String
 Dim RegistroUS As String
 Dim RegistroRiempitoDa As String

 Dim id_localitàRiempitoDa As String
 Dim RiempitoDaUS As String
 Dim RiempitoDa_RiempitoDa As String

 Dim str As String

 Dim pos
 Dim dove As Integer

  Set db = CurrentDb
  Set a1 = db.OpenRecordset("registro", dbOpenDynaset)
  Set a2 = db.OpenRecordset("Tabella_riempito_da", dbOpenDynaset)

  a1.MoveFirst
  Do Until a1.EOF

  id_localitàRegistro = a1("id_località")
  RegistroUS = a1("us")
  RegistroRiempitoDa = a1("riempito_da")

  id_localitàRiempitoDa = a2("id_località")
  RiempitoDaUS = a2("us")
  RiempitoDa_RiempitoDa = a2("riempito da")

    pos = a1.Bookmark
    a1.MoveNext
    If a1.EOF Then
    Exit Do
    Do Until a1.EOF
        If id_localitàRiempitoDa = id_localitàRegistro And RiempitoDaUS = RegistroUS
Then
        str = [RiempitoDa_RiempitoDa] & ", " & str
        RegistroRiempitoDa = str
        End If
        a1.MoveNext
    Loop
    a1.Bookmark = pos
    a1.MoveNext
  Loop
  a1.Close
  a2.Close

End Function
in realtà sono riuscito a far funzionare il tutto dalla maschera sul record
corrente
 ' Dim cs8 As DAO.Recordset
 ' Dim db8 As Database
 ' Dim appoggio8 As String
 ' Set db8 = CurrentDb
 ' Set cs8 = db8.OpenRecordset("Query_riempie", dbOpenDynaset)
   ' cs8.MoveFirst
   ' Do Until cs8.EOF
    ' If cs8("us") = Me.US And cs8("ID_Località") = Me.ID_Località Then
    ' appoggio8 = cs8![riempie] & ", " & appoggio8
     ' End If
    ' cs8.MoveNext
    'Loop
   'If appoggio8 = "" Then
   'Forms![ma_schedatura]![riempie] = "*"
   'ElseIf appoggio8 <> "" Then
    ' Forms![ma_schedatura]![riempie] = Left(appoggio8, Len(appoggio8) - 2)
    'End If
ma vorrei gestirlo non dal record corrente...
grazie....
Tiz
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: recordset non funziona...

author: Alessandro Cara

text:

>     If a1.EOF Then               <------------------------------
>     Exit Do
>     Do Until a1.EOF
>         If id_localitàRiempitoDa = id_localitàRegistro And RiempitoDaUS = RegistroUS
> Then
>         str = [RiempitoDa_RiempitoDa] & ", " & str
>         RegistroRiempitoDa = str
>         End If
>         a1.MoveNext
>     Loop
>     a1.Bookmark = pos
>     a1.MoveNext
>   Loop
>   a1.Close
>   a2.Close
>
>
> End Function
>
>
> ma vorrei gestirlo non dal record corrente...
>
a occhio mi sembra che ti manca un endif.
Ahhhh... se usassi una migliore indentazione!
--
a.cara


title: recordset non funziona...

author: tizianocanonici

text:

           End If <---------------------------
> > Loop
> > a1.Close
> > a2.Close
> >
> >
> > End Function
> >
>
> >
> > ma vorrei gestirlo non dal record corrente...
> >
> a occhio mi sembra che ti manca un endif.
> Ahhhh... se usassi una migliore indentazione!
> --
Ciao non funziona ancora...mannaggia!
 ciao l'indentazione è il nome delle variabili che ho inserito?
così da imparare un pò di terminologia...non fa mai male!
Ciao



title: recordset non funziona...

author: Il Gatto

text:
"tiziano" <
tiziano...@libero.it
> ha scritto nel messaggio
news:130Z251Z87Z242Y...@usenet.libero.it...
> Do Until a1.EOF
> [...cut...]
>    If a1.EOF Then
>    Exit Do
> [...cut...]
>Loop
Non ho letto tutto il codice, ma ad occhio e croce questo dovrebbe essere
Do Until ...
    ...
    If a1.EOF Then Exit Do
    ...
Loop
se invece l'accapo è voluto dovebbe essere
Do ...
    ...
    If a1.EOF Then
        Exit Do
        .... ' Altro
    End If
    ...
Loop
e quindi manca un End If. Inoltre in questo secondo caso se a1 è a EOF
l'Exit Do fa passare il programma direttamente a oltre Loop, quindi tutto
ciò che lo segue (Altro) non verrà mai eseguito.
IG


title: recordset non funziona...

text:
[cut]
> Ciao non funziona ancora...mannaggia!
>  ciao l'indentazione è il nome delle variabili che ho inserito?
> così da imparare un pò di terminologia...non fa mai male!
Il Gatto (????) ti ha spiegato la questione dell'endif non so se la hai
messa al posto giusto
L'indentazione (mettere un dente?) e' un modo "ordinato" di scrivere.
Riuso il tuo codice con una "indentazione" corretta
a1.MoveFirst
Do Until a1.EOF
     id_localitàRegistro = a1("id_località")
     RegistroUS = a1("us")
     RegistroRiempitoDa = a1("riempito_da")
     id_localitàRiempitoDa = a2("id_località")
     RiempitoDaUS = a2("us")
     RiempitoDa_RiempitoDa = a2("riempito da")
     pos = a1.Bookmark
     a1.MoveNext
     If a1.EOF Then <------------------------------
	Exit Do
         Do Until a1.EOF
	    If id_localitàRiempitoDa = id_localitàRegistro _
               And RiempitoDaUS = RegistroUS Then
	        str = [RiempitoDa_RiempitoDa] & ", " & str
		RegistroRiempitoDa = str
	    End If
  	    a1.MoveNext
         Loop
	a1.Bookmark = pos
	a1.MoveNext
     End If <---------------------------
Loop
a1.Close
a2.Close
come vedi le istruzioni che sono all'interno di cicli o if sono spostate
verso destra.
Da questa scrittura si evince "subito", mi sembra te lo abbia detto il
Gatto (gran chiacchierone), che hai una exit do che non ti fara' "mai"
fare la "do" piu' interna. Si nota inoltre, sempre che nella
sistemazione sia tutto ok, che hai una movenext su a1 che avviene "dopo"
la eof per non parlare del bookmark sull'eof. Inoltre quella if messa
cosi' non mi  pare serva a granche' poiche' se a1 e' gia' ad eof le
istruzioni all'interno del secondo "do until a1.eof" non verranno cmq
eseguite.
Al fondo mi sembra che hai complicato, oserei dire inutilmente, il
codice. Il loop piu' interno forse non ti serve.
Mi viene il dubbio che l'"a1" del do interno sia invece un "a2"
--
a.cara


title: recordset non funziona...

text:
[cut]
P.S. : Chiedo scusa. Credo di aver "accodato" il mio post nel punto
sbagliato.
--
a.cara


title: recordset non funziona...

text:

ciao, grazie per le spiegazioni, il rapporto uno a molti è tra la tabella
"registro" e la tabella "Tabella_riempito_da" ad un record di registro
possono esserci molti in Tabella_riempito_da.
mi hai detto che ho complicato il codice, dove sbaglio?o meglio come
dovrebbe essere compilato correttamente?
Ti/vi ringrazio per le delucidazioni...



title: recordset non funziona...

text:
[cut]
>>Mi viene il dubbio che l'"a1" del do interno sia invece un "a2"
>>--
>>a.cara
>>
>
> ciao, grazie per le spiegazioni, il rapporto uno a molti è tra la tabella
> "registro" e la tabella "Tabella_riempito_da" ad un record di registro
> possono esserci molti in Tabella_riempito_da.
> mi hai detto che ho complicato il codice, dove sbaglio?o meglio come
> dovrebbe essere compilato correttamente?
> Ti/vi ringrazio per le delucidazioni...
> Ciao
Sul codice, se e' quello che ho "indentato" (male per la verita')  c'e'
qualcosa che non va perche' usi sempre il recordset a1.
Perdonami ma non ho capito cosa vuoi fare.
Il codice da te postato mi sembra faccia questo:
-mette in tre variabili i relativi valori provenienti dal 1' record di a2
-mette in tre variabili i relativi valori provenienti dall'ultimo record
di a1
invece quello che vorresti fare dovrebbe essere:
- concatena e metti in un campo memo di tabella 1 a parita' di
"localita'" e "registro" il campo "riempitoda" di tabella 2
se e' questo, il codice da te postato fa ben altro.
.....
v1=a2.c1 & a2.c2
do until a1.eof
	 str =""
	 do while not a2.eof and a1!c1 & a1!c2 <= v1
	  	str = str & a2!c3 & ";"
		v1 = a2!c1 & a2!c2
		a2.movenext
		if a2.eof then exit do
	 loop
	 if v1 = a1!c1 & a1!c2 then
	 	a1.edit
	 	a1!c3 = str
	 	a1.update
	 endif
	 if a2.eof then exit do
	 if a1!c1 & a1!c2 < v1 then a1.movenext
loop
.....
fine
il codice e' "incasinato" per tener conto dei "buchi", se non ci sono i
predetti e' molto piu' semplice (ottenibile, tramite query,  con un a1
contenente solo gli id presenti in a2)
--
a.cara


title: recordset non funziona...

text:


ciao che io non capisca nulla è scontato, lo so...cerco di capire ma non è
semplicissimo.
Dunque io desidererei che a parità di:
a1 = db.OpenRecordset("Tabella_riempito_da", dbOpenDynaset)
e
a2 = db.OpenRecordset("registro", dbOpenDynaset)
per i campi rispettivamente:
di a1:
a1("id_località")
a1("us")
e di a2:
a2("id_località")
a2("us")
il valore di a1("riempito da") per quanti record soddisfino la condizione di
uguaglianza
venga inserito in a2("riempito_da").
Spero di esser chiaro non lo sono mai e sono spesso cazziato per questo
motivo, è giusto!
Ciao e grazie per il tempo che ci dedichi.



title: recordset non funziona...

text:
ciao,
scusa se rompo ancora ma non comprendo i c1 c2 c3 v1 etc...
ciao :-(



title: recordset non funziona...

text:
tiziano wrote:
> ciao,
> scusa se rompo ancora ma non comprendo i c1 c2 c3 v1 etc...
> ciao :-(
> Tiz
come immaginavo.Quello che  ho scritto e' esattamente quello che vuoi.
c1 c2 c3 sono i nomi di campo fittizi, sostituiscili con i tuoi nomi.
dal tuo codice mi sembrava che testavi l'uguaglianza di 2 campi
i.e: id_localitąRiempitoDa = id_localitąRegistro And RiempitoDaUS =
registroUS Then
per questo facevo v1 <= a1.c1 & a1.c2
se il test riguarda un campo solo e', ovviamente
v1<= a1.c1
uhmmm.....la questione dei "buchi" ti e' chiara?
--
a.cara


title: recordset non funziona...

text:
                    Il 20 Gen 2005, 18:34, Alessandro Cara <
alexqu...@blunet.it
> ha scritto:
> tiziano wrote:
> > ciao,
> > scusa se rompo ancora ma non comprendo i c1 c2 c3 v1 etc...
> > ciao :-(
> > Tiz
> come immaginavo.Quello che ho scritto e' esattamente quello che vuoi.
> c1 c2 c3 sono i nomi di campo fittizi, sostituiscili con i tuoi nomi.
> dal tuo codice mi sembrava che testavi l'uguaglianza di 2 campi
> i.e: id_localitàRiempitoDa = id_localitàRegistro And RiempitoDaUS =
> registroUS Then
> per questo facevo v1 <= a1.c1 & a1.c2
> se il test riguarda un campo solo e', ovviamente
> v1<= a1.c1
>
> uhmmm.....la questione dei "buchi" ti e' chiara?
> --
> a.cara
Ciao,
mi spiace non aver potuto replicare ieri, ora proverò a modificare i dati
sperando di riuscire a far funzionare qualcosa,non appena ne vengo fuori te
ne darò notizia.
Grazie.



title: recordset non funziona...

text:
non so come fare...
Function riempito_da()
 'genera valore in campo memo riempie
 Dim a1 As DAO.Recordset
 Dim a2 As DAO.Recordset
 Dim db As Database

 Dim id_localitàRegistro As String
 Dim RegistroUS As String
 Dim RegistroRiempitoDa As String
 Dim id_localitàRiempitoDa As String
 Dim RiempitoDaUS As String
 Dim RiempitoDa_RiempitoDa As String
 Dim str As String
Dim v1 As String
 Dim pos
 Dim dove As Integer
 Set db = CurrentDb
 Set a1 = db.OpenRecordset("registro", dbOpenDynaset)
 Set a2 = db.OpenRecordset("Tabella_riempito_da", dbOpenDynaset)

a1.MoveFirst
Do Until a1.EOF
If a1.EOF Then Exit Do
 id_localitàRegistro = a1("id_località")
 RegistroUS = a1("us")
 RegistroRiempitoDa = a1("riempito_da")

 id_localitàRiempitoDa = a2("id_località")
 RiempitoDaUS = a2("us")
 RiempitoDa_RiempitoDa = a2("riempito da")
 pos = a1.Bookmark
    v1 = a2!id_localitàRiempitoDa & a2!RiempitoDaUS
    Do Until a1.EOF
    str = ""
        Do While Not a2.EOF And a1!id_localitàRegistro & a1!RegistroUS <= v1
            str = str & a2!RiempitoDa_RiempitoDa & ";"
            v1 = a2!id_localitàRiempitoDa & a2!RiempitoDaUS
            a2.MoveNext
            If a2.EOF Then Exit Do
        Loop
    If v1 = a1!id_localitàRegistro & a1!RegistroUS Then
        a1.Edit
        a1!RegistroRiempitoDa = str
        a1.Update
    End If
    If a2.EOF Then Exit Do
    If a1!id_localitàRegistro & a1!RegistroUS < v1 Then a1.MoveNext
    Loop
Loop
 a1.Close
 a2.Close
End Function
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: recordset non funziona...

text:
non funziona si blocca...
non so più che fare...
ciao Tiz
 Function riempito_da()
 'genera valore in campo memo riempie
 Dim a1 As DAO.Recordset
 Dim a2 As DAO.Recordset
 Dim db As Database

 Dim id_localitàRegistro As String
 Dim RegistroUS As String
 Dim RegistroRiempitoDa As String
 Dim id_localitàRiempitoDa As String
 Dim RiempitoDaUS As String
 Dim RiempitoDa_RiempitoDa As String
 Dim str As String
Dim v1 As String
 Dim pos
 Dim dove As Integer
 Set db = CurrentDb
 Set a1 = db.OpenRecordset("registro", dbOpenDynaset)
 Set a2 = db.OpenRecordset("Tabella_riempito_da", dbOpenDynaset)

a1.MoveFirst
Do Until a1.EOF
If a1.EOF Then Exit Do
 id_localitàRegistro = a1("id_località")
 RegistroUS = a1("us")
 RegistroRiempitoDa = a1("riempito_da")

 id_localitàRiempitoDa = a2("ID_Località")
 RiempitoDaUS = a2("us")
 RiempitoDa_RiempitoDa = a2("riempito da")
<------------------------------------------------------- non riconosce
"id_localitàRiempitoDa "
    v1 = a2!id_localitàRiempitoDa & a2!RiempitoDaUS
    Do Until a1.EOF
    str = ""
        Do While Not a2.EOF And a1!id_localitàRegistro & a1!RegistroUS <= v1
            str = str & a2!RiempitoDa_RiempitoDa & ";"
            v1 = a2!id_localitàRiempitoDa & a2!RiempitoDaUS
            a2.MoveNext
            If a2.EOF Then Exit Do
        Loop
    If v1 = a1!id_localitàRegistro & a1!RegistroUS Then
        a1.Edit
        a1!RegistroRiempitoDa = str
        a1.Update
    End If
    If a2.EOF Then Exit Do
    If a1!id_localitàRegistro & a1!RegistroUS < v1 Then a1.MoveNext
    Loop
Loop
 a1.Close
 a2.Close
End Function
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Ottimo Libro??

author: Filippo Campolmi

text:
Salve,
siccome ho l'intenzione di acquistare un libro su Access,
vorrei chiedere qual'è il migliore e il più completo testo
che possa siegare sia ad usare e programmare Access e Visual Basic.
Siccome ho visto che ci sono svariati volumi su questi, vorrei
qualche parere su chi magari ne a già usati.
Grazie.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Ottimo Libro??

author: Carlo Costarella

text:
"Filippo Campolmi" <
pip...@sitoverde.com
> ha scritto nel messaggio
news:8b8d59841c35048a107...@mygate.mailgate.org...
> Salve,
> siccome ho l'intenzione di acquistare un libro su Access,
> vorrei chiedere qual'è il migliore e il più completo testo
> che possa siegare sia ad usare e programmare Access e Visual Basic.
> Siccome ho visto che ci sono svariati volumi su questi, vorrei
> qualche parere su chi magari ne a già usati.
> Grazie.
>
>
 Non dici nulla sulla versione di Access.
Presumo sia l'ultima. Allora:
Programmare Microsoft Access 2002 (guida dello sviluppatore) di Rick Dobson
Mondadori Informatica.
Ciao,Carlo


title: Ottimo Libro??

author: SpiderMax

text:
"Filippo Campolmi" <
pip...@sitoverde.com
> ha scritto nel messaggio
news:8b8d59841c35048a107...@mygate.mailgate.org...
> Salve,
> siccome ho l'intenzione di acquistare un libro su Access,
> vorrei chiedere qual'è il migliore e il più completo testo
> che possa siegare sia ad usare e programmare Access e Visual Basic.
> Siccome ho visto che ci sono svariati volumi su questi, vorrei
> qualche parere su chi magari ne a già usati.
> Grazie.
Oltre a quello, ottimo (e molto ampio -oltre che tecnico-) di Rick Dobson
della Mondadori Informatica "Programmare Microsoft Access 2002" (77, 47
euri), io ho "Access 2000 - Guida Completa" di Paul Cassel e Pamela Palmer
della Apogeo (45,45 euri) e "Costruire Applicazioni con Access - Per le
versioni 97 e 2000" di Mike Davis, sempre della Apogeo (45,45 euri pure
questo).
Sono tutti e tre degli ottimi libri. Considera che io (da neofita) considero
il primo molto tecnico, ma completo e gli altri estremamente validi anche se
più di facile, prima, comprensione.
Non dimenticare che tutti e tre contengono cd con esempi dei vari capitoli,
DB di prova, versioni offline di siti su Access e tutto il resto (a parte
quello della Mondadori che contiene anche la versione beta 2 di
VisualStudio.net -4 cd)
PS: Ma quanto costa farsi una cultura...
Saluti
(¯`·.¸SpiderMax¸.·´¯)


title: Ottimo Libro??

author: Lorenzo Bolognini

text:
"Filippo Campolmi" <
pip...@sitoverde.com
> ha scritto nel messaggio
news:8b8d59841c35048a107...@mygate.mailgate.org...
> Salve,
> siccome ho l'intenzione di acquistare un libro su Access,
> vorrei chiedere qual'è il migliore e il più completo testo
> che possa siegare sia ad usare e programmare Access e Visual Basic.
> Siccome ho visto che ci sono svariati volumi su questi, vorrei
> qualche parere su chi magari ne a già usati.
> Grazie.
Dei tanti libri che ho tra le mani (e li ho praticamente tutti!!
compresi i vari Access Developer Handbook & C. della Sybex) il più
utile che ho trovato è
questo
http://www.apogeonline.com/libri/02053/scheda
Ciao,
Lo


title: VBA: sintassi select..

author: sdamy

text:
Ciao a tutti
dovrei estrarre tutti i campi di tipo string che abbiamo i primi caratteri
uguali al valore della casella combinata e i finali *
ecco la stringa sql... dove sbaglio?
strsql = "select udm.unitmerc from udm where udm.unitmerc like (""&
forms!scheda_work_portafoglio!select_udm & " *")"


title: VBA: sintassi select..

author: Riccardo

text:
sdamy <
sd...@tiscalinet.it
> wrote in message
SkqM6.1156$8P3....@news1.tin.it...

dovrebbe essere così:
strsql = "select udm.unitmerc from udm where (((udm.unitmerc) like """ &
forms!scheda_work_portafoglio!select_udm  & "*""))"
non hai risolto in quel modo allora?
ciao Riccardo


title: VBA: sintassi select..

text:
Riccardo <
ricc...@free.panservice.it
> wrote in message
9dtb9b$2fq$1...@news.panservice.it...
>
> sdamy <
sd...@tiscalinet.it
> wrote in message
> SkqM6.1156$8P3....@news1.tin.it...
> > Ciao a tutti
> >
> > dovrei estrarre tutti i campi di tipo string che abbiamo i primi
caratteri
> > uguali al valore della casella combinata e i finali *
> >
> > ecco la stringa sql... dove sbaglio?
> >
> > strsql = "select udm.unitmerc from udm where udm.unitmerc like (""&
> > forms!scheda_work_portafoglio!select_udm & " *")"
> >
> >
>
> dovrebbe essere cosě:
> strsql = "select udm.unitmerc from udm where (((udm.unitmerc) like """ &
> forms!scheda_work_portafoglio!select_udm  & "*""))"
>
> non hai risolto in quel modo allora?
>
> ciao Riccardo
>
>
Ciao Riccardo!!
si si ho risolto la cosa, anche la sinstassi della stringa sql.
Funzia benissimo ora devo solo fare degli adattamenti
GRAZIE
sdamy


title: Access in rete.

author: Rosario

text:
Cari amici del newsgroup in questo momento ho in testa una confusione tale,
dovuta sicuramente alla mia ancora scarsa conoscenza di Access.
Ho realizzato per l'ufficio un'applicazione  che dovrà servire per gestire
un archivio di disegni in formato Autocad e Tiff. Il mio problema è quello
che l'applicazione dovrà essere resa disponibile in una rete geografica già
esistente. Io avevo pensato di condividere una cartella sull'intera rete
nella quale inserire il file mdb o mde.
E' questa la maniera migliore di procedere? O esistono soluzioni più
professionali.
Considerate anche che io vorrei rendere disponibili i file dei disegni sulla
rete solo in lettura, impedendone sia la modifica che la copia in locale.
Sarei molto grato a chi potrebbe darmi qualche indicazione.
Grazie, Rosario.


title: Access in rete.

text:
Rosario <
rosario...@libero.it
> wrote in message
K4L07.2537$D03....@news.infostrada.it...
> Cari amici del newsgroup in questo momento ho in testa una confusione
tale,
> dovuta sicuramente alla mia ancora scarsa conoscenza di Access.
> Ho realizzato per l'ufficio un'applicazione  che dovrà servire per gestire
> un archivio di disegni in formato Autocad e Tiff. Il mio problema è quello
> che l'applicazione dovrà essere resa disponibile in una rete geografica
già
> esistente. Io avevo pensato di condividere una cartella sull'intera rete
> nella quale inserire il file mdb o mde.
SI PER CONDIVIDERE I DATI OCCORRE LA CONDIVISIONE
DI UNA CARTELLA
> E' questa la maniera migliore di procedere? O esistono soluzioni più
> professionali.
> Considerate anche che io vorrei rendere disponibili i file dei disegni
sulla
> rete solo in lettura, impedendone sia la modifica che la copia in locale.
ISERISCILI UN UN SERVER NT O 2000 E DAI
LE PERMISSION AI FILE/CARTELLE



title: Stampante specifica

author: Cocchieri

text:
Buongiorno a tutti.
E' possibile settare via codice (Access XP) la stampante specifica di un
report e il successivo ripristino alla stampante predefinita.
Vorrei anche poter settare le dimensioni del foglio da stampare (esempio
A4 - A3)
Tutto ciň dovrebbe funzionare su un Mde.
Grazie a tutti per una risposta
Cocchieri


title: Stampante specifica

author: Sib

text:
"Cocchieri" <
a.coc...@tiscalinet.it
> ha scritto nel messaggio
> E' possibile settare via codice (Access XP) la stampante specifica di un
> report e il successivo ripristino alla stampante predefinita.
> Vorrei anche poter settare le dimensioni del foglio da stampare (esempio
> A4 - A3)
> Tutto ciň dovrebbe funzionare su un Mde.
E' possibilissimo, hai due strade, una facile e una difficile.
Quella facile prevede che tu imposti la stampante e il formato specifico da
usare e lo salvi insieme al report (basta fare imposta pagina con il report
in modalita' struttura e poi salvare).
Quella difficile prevede che tu, sa codice, imposti stampante e formato,
soluzione piu' elastica ma certamente piu' complessa. Credo ci siano degli
esempi sul sito comune.
Sib


title: Creare una tabella da due distinte

author: Xamagi

text:
Ho una tabella, che chiamo Numerica, in cui ci sono 5 campi che
contengono valori da 1 a 100 (c1,c2...c5) e ci sono 10 records. Ho
un'altra tabella, che chiamo Dati, in cui ci sono 100 records, numerati
da 1 a 100. Vorrei creare una terza tabella in cui dovrei avere 50
records, composta da due campi (numero e dato), con la sequenza dei
valori della tabella Dati ordinata secondo la sequenza di Numerica.
Es. se Numerica nel primo record contiene (12 56 36 81 5) la tabella
risultante dovrà avere (12 casa  56 cane 36 gatto 81 tavolo 5 porta) in
5 records successivi.
Anche se la cosa vi sembrerà molto banale vi prego di darmi delle
indicazioni per realizzare questa nuova tabella, grazie


title: Creare una tabella da due distinte

author: Mario Puglisi

text:
Xamagi <
mgiglioz...@abruzzoincoming.com
> wrote in message
HR%3a.254901$AA2.9...@news2.tin.it...

Supponiamo che la prima volta tu compili la Tabella3 manualmente.
Supponiamo cioè che tu abbia :
NUMERO    DATI
12                Telefono
56                Casa
36                E.T.
......
 Con quale criterio questa tabella cambierà il proprio ordine?
Vuoi Per esempio che "telefono" non sia più corrispondente al 12?
che "casa" non sia più corrispondente al 56?
Ho capito il criterio di automazione che vuoi raggiungere
ma non ho capito la dinamica di Tabella 3.
Spiegati meglio!
(Anche se a questo punto non so se mi sono spiegato io)


title: Creare una tabella da due distinte

author: Xanmagi

text:
"Mario Puglisi" <
mariop...@libero.it
> ha scritto nel messaggio
news:kZ14a.126465$YG2.3...@twister1.libero.it...
>
> Supponiamo che la prima volta tu compili la Tabella3 manualmente.
> Supponiamo cioè che tu abbia :
> NUMERO    DATI
> 12                Telefono
> 56                Casa
> 36                E.T.
> ......
>  Con quale criterio questa tabella cambierà il proprio ordine?
> Vuoi Per esempio che "telefono" non sia più corrispondente al 12?
> che "casa" non sia più corrispondente al 56?
> Ho capito il criterio di automazione che vuoi raggiungere
> ma non ho capito la dinamica di Tabella 3.
>
> Spiegati meglio!
> (Anche se a questo punto non so se mi sono spiegato io)
>
La tabella3 deve essere la lista della sequenza degli oggetti della tabella
Dati ordinata secondo Numerica con tutte le ripetizioni del caso. Se ho che
il record 5 della tabella Dati contiene Casa, e il numero 5 mi compare nel
campo C3 del record 3 e nel campo c4 del record 8 della tabella Numerica, la
tabella3 dovrà essere come sotto
N.record        Numero      Dato
1                         xx             Xxxxx
2
...
14                       5              Casa
...
...
40                        5              Casa
Spero di essermi spiegato meglio e ti ringrazio per l'aiuto che mi vorrai
dare
Xamagi


title: Formato CSV

author: Roberto da Parma

text:
Ciao a tutti,
chiedevo:
utilizzando il comando OutputTo sono disponibili solo una limitata serie di
formati.
E' possibile (magari con un plug-in) aggiungere un nuovo formato di
esportazione??
Grassssie
Roberto


title: Formato CSV

text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio
news:45155c8a$0$35073$4faf...@reader4.news.tin.it...

Mmmm non è la stessa cosa...ma ho "pezzato" con il metodo
docmd.TransfertText
Roberto


title: Formato CSV

author: Sergio MAZZA

text:
"Roberto da Parma" <
aris...@libero.it
> ha scritto nel messaggio news:45156377$0$35078$4faf...@reader4.news.tin.it...
>
> Mmmm non è la stessa cosa...ma ho "pezzato" con il metodo docmd.TransfertText
>
> Roberto
Beh! Se si tratta solo di esportazione in formato testo, te lo inventi tu con (es.) l'istruzione Open/Write/Close...
Ciao.
--
Sergio MAZZA


title: Formato CSV

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ef5f6l$5um$1...@area.cu.mi.it...

Valida soluzione alternativa...ho risolto comunque con .TransfertText...
Grassie
Roberto


title: OT: Salvare messaggi newsgroup

author: Antonio in the city

text:
Scusate l'OT ma usando outlook express come gestore del newsgroup sono
arrivato a scaricare più di 3.000 messaggi ed ora all'apertura rallenta
sempre più! C'è un modo per creare una sorta di archivio di tutti i messaggi
ed evitare che tanto sapere venga buttato nel cestino ?
Ho provato a spostarli in una cartella qualsiasi ma viene persa
l'organizzazione in domande e risposte.
Ho provato a masterizzare il file DBX che si trova sotto windows ma poi come
fare per riaprirlo ?
Antonio


title: OT: Salvare messaggi newsgroup

author: Lindbergh

text:
"Antonio in the city" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9flje0$smf$1...@pegasus.tiscalinet.it...

Don't worry....sto preparando un Cadeau per gli amici del Ng che serve
proprio a questo..
...alla fine si ha una sorta di bibbia di Access/Vba
Penso a breve di farlo avere a tutti.
Ciao
Eddie


title: OT: Salvare messaggi newsgroup

author: Silvio Berruti

text:
"Lindbergh" <
lind...@libero.it
> ha scritto nel messaggio
news:KMtT6.1208$Ft6....@news.infostrada.it...

Bravo Eddie,
l'aspetto trepidante... sai... sono a quota 38.000
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: OT: Salvare messaggi newsgroup

text:
"Silvio Berruti" <
s...@libero.it
> ha scritto nel messaggio
news:1WtT6.1306$Ft6....@news.infostrada.it...

38.000...uhmmm...vediamo.Ne ho gia' archiviati 20.000..sotto ce ne sono
altri 23.600...forse ci siamo.
Devo dire che ho cominciato a lavorarci con i post recuperati dal Febbraio
2000...credo.
Comunque viene troppo carino  :-)
Ciao



title: OT: Salvare messaggi newsgroup

author: Luciano (DOC)

text:
Silvio Berruti ha scritto nel messaggio
<1WtT6.1306$
Ft6....@news.infostrada.it
>...
>Bravo Eddie,
>l'aspetto trepidante... sai... sono a quota 38.000
Hai roba antecendente il 2000? Manda al SC!:-)
A breve (spero!) metteremo on line il 2001.
Saluti.
Luciano
DOC)


title: OT: Salvare messaggi newsgroup

author: Federico Luciani

text:
"Luciano (DOC)" wrote:
> Silvio Berruti ha scritto nel messaggio
> >Bravo Eddie,
> >l'aspetto trepidante... sai... sono a quota 38.000
>
> Hai roba antecendente il 2000? Manda al SC!:-)
> A breve (spero!) metteremo on line il 2001.
> Saluti.
> Luciano
a Lucia',
lo sai che ho parte del 98 e tutto il 99 ;-)
--
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


title: OT: Salvare messaggi newsgroup

text:
"Federico Luciani" <
fluc...@paperino.sitocomune.com
> wrote in message
news:3B1F5160...@paperino.sitocomune.com...
> a Lucia',
> lo sai che ho parte del 98 e tutto il 99 ;-)
Prima o dopo Cristo?:-))
Saluti.
Luciano
(DOC)


title: OT: Salvare messaggi newsgroup

text:

naturalmente prima ;-))



title: OT: Salvare messaggi newsgroup

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:ZrvT6.27871$Uo3.9...@news6.giganews.com...
>
> Silvio Berruti ha scritto nel messaggio
> <1WtT6.1306$
Ft6....@news.infostrada.it
>...
>
> >Bravo Eddie,
> >l'aspetto trepidante... sai... sono a quota 38.000
>
>
> Hai roba antecendente il 2000? Manda al SC!:-)
No Luciano, gli attuali 38.691 messaggi sono dal 21-3-2000 in poi.
Ammazza quanto scrivete!!!  :-)



title: OT: Salvare messaggi newsgroup

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:ZrvT6.27871$Uo3.9...@news6.giganews.com...

Purtoppo no, ho cominciato da poco e sono riuscito a recuperare dal Febbraio
2000
Ciau
Eddie
> Luciano
> DOC)
>
>


title: OT: Salvare messaggi newsgroup

author: Antonio in the country

text:
> Purtoppo no, ho cominciato da poco e sono riuscito a recuperare dal
Febbraio
> 2000
> Ciau
> Eddie
Vabbč ho capito che i miei 3.000 non sono niente in confronto ai vostri
........ sigh ..... aspetterň il Cadeau !
Ciao
Antonio


title: OT: Salvare messaggi newsgroup

text:
"Antonio in the country" <
pi...@usa.net
> wrote in message
news:9foqrb$qc$1...@pegasus.tiscalinet.it...
> Vabbč ho capito che i miei 3.000 non sono niente in confronto ai vostri
> ........ sigh ..... aspetterň il Cadeau !
Perche', il sito comune che t'ha fatto?:-)
Saluti.
Luciano
(DOC)


title: OT: Salvare messaggi newsgroup

author: Sergio MAZZA (Ufficio Stampa)

text:
"Antonio in the city" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9flje0$smf$1...@pegasus.tiscalinet.it...
> Scusate l'OT ma usando outlook express come gestore del newsgroup sono
> arrivato a scaricare più di 3.000 messaggi ed ora all'apertura rallenta
> sempre più!
-------------- omissis --------------
Hai provato a comprimere le cartelle? (File - cartella - comprimi tutte le
cartelle)
>
> Antonio
Ciao.


title: OT: Salvare messaggi newsgroup

text:
> Perche', il sito comune che t'ha fatto?:-)
> Saluti.
>
> Luciano
> (DOC)
>
Non mi fraintendere Luciano il sito comune è spettacolare, ma era per una
mia maggiore comodità di consultazione e visualizzazione soprattutto quando
non sono collegato ad internet !!
> Hai provato a comprimere le cartelle? (File - cartella - comprimi tutte le
> cartelle)
>
Sì avevo visto quel comando ma non sapevo a cosa si riferisse esattamente !
Ok ci proverò !
Antonio


title: get input e VBA

author: rob

text:
Devo leggere dei dati da un file txt, si possono
usare open, get, input di Visual Basic?
Il visualizzatore oggetti non me li mostra, significa
che non posso usarli?
Scusate il post forse banale...
Grazie
Rob


title: get input e VBA

author: LaLo

text:
"rob" <
robes...@libero.it
> ha scritto nel messaggio
news:3A5CFA8A...@libero.it...

Certo che li puoi usare. Se perņ intendi importare un file di testo in una
tabella, ti consiglio di utilizzare l'importazione di Access. (File ->
Carica dati esterni -> Importa)
Ciao
LaLo


title: Query particolare

author: AlexB

text:
ciao a tutti,
ho una tabellla con la seguente struttura:

ID_CLIENTE   SETTIMANA   COMMENTO

ho bisogno di generare una query in cui selezionando una settimana e un cliente mi restituisce qualcosa del genere:

IDCLIENTE COMMENTWKSELEZIONATa   COMMENTOWK-1  COMMENTOWK-2

in pratica mi prende i commenti della week attuale e, solo se ci sono, quelli fino a 2 week precedenti (può essere non presente il commentoWK-1 o CommentoWK-2).
Ho provato a fare una query con un join sulla stessa tabella ma il risultato è che se non sono presenti commenti nella week precedente la query è vuota (anche cambiando tipo di join).
grazie


title: Query particolare

author: Mancini

text:
Assomiglia a una query a CampiIncrociati,
ma facci capire bene....

ogni settimana
   - hai sempre 2 commenti
   - puoi avere al massimo 2 commenti
   - puoi avere da zero a n commenti

per conseguenza quando selezioni la settimana e il cliento puoi:
   - hai sempre 2 campi
   - hai al massimo 2 campi
   - puoi avere da zero a n campi
   - puoi avere da zero a n campi ma ne evidenzi solo 2

- I nomi dei campi sono sempre fissi ?


title: Query particolare

text:
ciao
come detto la tabella ha la seguente struttura, vi faccio anche un esempio:
ID_CLIENTE   SETTIMANA   COMMENTO
222            201345     CIAO
222            201343     helloooo

In questo caso mi deve visualizzare:

ID_CLIENTE   COMMENTO WEEK 45     COMMENTO WEEK-1   COMMENTO week-2
222            CIAO                                      helloooo

la colonna week-1 essendo vuota può anche non comparire

spero sia stato chiaro


title: Query particolare

text:
> spero sia stato chiaro

Non molto,  se mi permetti provo a ripetere quello che ho capito
( Usando dei nomi campi stilizzati )

IdCli ------ Setti --------- Comme
222 -------- 201343 -------- c22243
222 -------- 201345 -------- c22245
222 -------- 201340 -------- c22240
222 -------- 201346 -------- c22246
224 -------- 201345 -------- c22445
224 -------- 201342 -------- c22442
dove
il cliente ammette duplicati
Per ogni cliente puoi avere Max 1 Commento alla settimana  ( dammi conferma )

Poi dopo avere selezionato "IdCli"=222 e "Setti"=201345
vuoi arrivare a questo risultato
IdCli ------- ComSet45 ------- Com1 ------ Com2
222 --------- c22245 --------- c22243 ---- c22240

in effetti ( come da titilo ) si tratta di una query perticolare
---- ( non ti chiedo il senso .... )
il nome del secondo campo viene prelevato dal filtro
poi altri 2 ( soli ??? ) campi di commento con nomi generici

Dacci certezza di quanto sopra che poi vediamo cosa esce dal
nostro povero e vecchio cervellino


title: Query particolare

text:
ciao
per 1 cliente puoi avere 1 commento/settimana (chiave primaria IDCLI-WEEK)
per il resto hai centrato perfettamente.L'intestazione colonna della query finale non è importante (possiamo imporre noi i nomi o come vuoi) cmq la struttura che hai riportato è qualla di cui ho bisogno..
non mi chiedere a cosa serve.. forse non l'ho capito neanche io...me l'hanno chiesta
grazie mille


title: Query particolare

text:
Confesso che non sono sicuro,  e devo scappare.

ma cosi in minuta direi che se hai una tabella:
di nome "Tabe"
con i campi
IdCli -- Numerico
Setti -- Testo
Comme -- Testo

con questa query sei quasi arrivato

SELECT Q1.IdCli, Q1.Setti, IIf([Contx]=0,[Comme]) AS Co0, IIf([Contx]=1,(Comme]) AS Co1, IIf([Contx]=2,[Comme]) AS Co2
FROM (SELECT T1.IdCli, T1.Setti, T1.Comme, IIf([T1].[Setti]=[NSettimana],0,((SELECT Count(T2.Setti) FROM (SELECT T0.IdCli, T0.Setti FROM Tabe AS T0 WHERE T0.Setti<>[NSettimana]) AS T2 WHERE ((T2.IdCli=[NCliente]) AND (T2.Setti<T1.Setti)))+1)) AS Contx
FROM Tabe AS T1
WHERE (((T1.IdCli)=[NCliente]))
) AS Q1;

Dovrai aggiustarti qualche parentesi,  mi aspettano.....


title: Query particolare

text:
infatti,   avevo troppa fretta e non funziona.

posto le 3 query elementari che compongono la soluzione ( speriamo )
in modo che puoi capirla e personalizzarla.

Tieni presente che è molto migliorabile e che se hai molti record penso che sia un po pesante

Potresti anche usare VBA ......

Data la tabella descritta sopra

fai una prima query di nome "Q1"
SELECT
T1.IdCli,
T1.Setti,
T1.Comme,
IIf([T1].[Setti]=[NSettimana],1,(
   (SELECT Count(T2.Setti) FROM
      (
	  SELECT T0.IdCli, T0.Setti FROM Tabe AS T0 WHERE T0.Setti<>[NSettimana]
	  ) AS T2
	  WHERE ((T2.IdCli=[NCliente]) AND (T2.Setti<T1.Setti))
	)+2
)) AS Contx
FROM
Tabe AS T1
WHERE (((T1.IdCli)=[NCliente]))
;

poi fai una seconda query di nome "Q2"
SELECT
Q1.IdCli,
[NSettimana] AS Settim,
IIf([Q1].[Contx]=1,[Q1].[Comme]) AS Com1,
IIf([Q1].[Contx]=2,[Q1].[Comme]) AS Com2,
IIf([Q1].[Contx]=3,[Q1].[Comme]) AS Com3
FROM
Q1
;

Poi fai una terza query chiamala come vuoi te
SELECT
Q2.IdCli,
Q2.Settim,
Max(Q2.Com1) AS Comm1,
Max(Q2.Com2) AS Comm2,
Max(Q2.Com3) AS Comm3
FROM
Q2
GROUP BY Q2.IdCli,
Q2.Settim
;

Se invece la preferisci ( ma lo sconsiglio ) in una unica query
tutta accorpata allora duventa:
SELECT
Q2.IdCli,
Q2.Settim,
Max(Q2.Com1) AS Comm1,
Max(Q2.Com2) AS Comm2,
Max(Q2.Com3) AS Comm3
FROM
(
SELECT
Q1.IdCli,
[NSettimana] AS Settim,
IIf([Q1].[Contx]=1,[Q1].[Comme]) AS Com1,
IIf([Q1].[Contx]=2,[Q1].[Comme]) AS Com2,
IIf([Q1].[Contx]=3,[Q1].[Comme]) AS Com3
FROM
(
SELECT
T1.IdCli,
T1.Setti,
T1.Comme,
IIf([T1].[Setti]=[NSettimana],1,(
   (SELECT Count(T2.Setti) FROM
      (
	  SELECT T0.IdCli, T0.Setti FROM Tabe AS T0 WHERE T0.Setti<>[NSettimana]
	  ) AS T2
	  WHERE ((T2.IdCli=[NCliente]) AND (T2.Setti<T1.Setti))
	)+2
)) AS Contx
FROM
Tabe AS T1
WHERE (((T1.IdCli)=[NCliente]))
) AS Q1
) AS Q2
GROUP BY Q2.IdCli,
Q2.Settim
;


title: Query particolare

author: Bruno Campanini

text:
Mancini submitted this idea :
>> spero sia stato chiaro
>
> Non molto,  se mi permetti provo a ripetere quello che ho capito
> ( Usando dei nomi campi stilizzati )
>
> IdCli ------ Setti --------- Comme
> 222 -------- 201343 -------- c22243
> 222 -------- 201345 -------- c22245
> 222 -------- 201340 -------- c22240
> 222 -------- 201346 -------- c22246
> 224 -------- 201345 -------- c22445
> 224 -------- 201342 -------- c22442
> dove
> il cliente ammette duplicati
> Per ogni cliente puoi avere Max 1 Commento alla settimana  ( dammi conferma )
>
>
>
> Poi dopo avere selezionato "IdCli"=222 e "Setti"=201345
> vuoi arrivare a questo risultato
> IdCli ------- ComSet45 ------- Com1 ------ Com2
> 222 --------- c22245 --------- c22243 ---- c22240
Scusa se m'intrometto, ma l'OP non aveva detto:
"i commenti della week attuale e, solo se ci sono,
quelli fino a 2 week precedenti"
???

Se così fosse nell'esempio su esposto esiste solo il
primo commento precedente (Com1) e non anche il secondo
precedente (Com2).

Potrei anche aver preso fiaschi per fischi (che è sempre
la cosa migliore!)...

Bruno


title: Query particolare

text:
Bruno Campanini formulated on Thursday :

>> Poi dopo avere selezionato "IdCli"=222 e "Setti"=201345
>> vuoi arrivare a questo risultato
>> IdCli ------- ComSet45 ------- Com1 ------ Com2
>> 222 --------- c22245 --------- c22243 ---- c22240
> Scusa se m'intrometto, ma l'OP non aveva detto:
> "i commenti della week attuale e, solo se ci sono,
> quelli fino a 2 week precedenti"
> ???
>
> Se così fosse nell'esempio su esposto esiste solo il
> primo commento precedente (Com1) e non anche il secondo
> precedente (Com2).
>
> Potrei anche aver preso fiaschi per fischi (che è sempre
> la cosa migliore!)...

Arrrrgh!
Vedo adesso che le settimane non sono ordinate... come non detto.

Bruno


title: Query particolare

text:
> Scusa se m'intrometto, ma l'OP non aveva detto:
> "i commenti della week attuale e, solo se ci sono,
> quelli fino a 2 week precedenti"

No non ti intrometti

In effetti mi rendo conto di avere fatto un errore,
mi era sfuggito quella dei "2 week precedenti"
e io gli ho selezionato:
- La settimana attuale
- La prima in assoluto ( ad esclusione della attuale )
- La seconda in assoluto ( sempre ad esclusione della attuale )

Resterei in attesa di AlexB per eventuali altre osservazioni

Comunque una cosa simile la farei molto piu volentieri con VBA


title: Query particolare

text:
Mancini explained :

Eccola qua:

==============================================
Public Sub ParticularSearch()
Dim SQL As String, RS As Recordset, IdCli As Long, Setti As String
Dim S(0 To 2) As String, i As Long, SS As String

'----   Definizioni   ------
IdCli = 222
Setti = "201345"
'---------------------------

SQL = "SELECT Tabe.IdCli, Tabe.Setti, Tabe.Comme "
SQL = SQL & "FROM Tabe ORDER BY Tabe.IdCli, Tabe.Setti;"
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

For i = 0 To 2
    S(i) = "--   ---   ------   ------"
Next

Do Until RS("IdCli") = IdCli And RS("Setti") = Setti
    RS.MoveNext
Loop

S(0) = " 0   " & RS("IdCli") & "   " & RS("Setti") & "   " &
RS("Comme")
For i = 1 To 2
    RS.MovePrevious
    If Not RS.BOF Then
        S(i) = "-" & i & "   " & RS("IdCli") & "   " & RS("Setti") & "
 " & RS("Comme")
    End If
Next

For i = 2 To 0 Step -1
    SS = SS & S(i) & vbCrLf
    'Debug.Print S(i)
Next
MsgBox SS

End Sub
================================================

Bruno


title: Query particolare

text:
 > Eccola qua:
si bella ...

una alternativa senza query potrebbe essere:

(NB: Non sto dicendo che una è meglio dell'altra,
ma per nostra comune "cultura" e "diletto" troviamo strade diverse )

Public Sub Mancio2()

' Definizione del cliente
Dim CCC As Integer
CCC = 222

' Definizione della settimana  ( 1° settimana )
Dim SS1 As String
SS1 = "201345"

'  la prima settimana precedente ( ( 2° settimana)
Dim SS2 As String
SS2 = Nz((DMax("Tabe.Setti", "Tabe", "Tabe.IdCli=" & CCC & " And Tabe.Setti<'" & SS1 & "'")), "")

'  la seconda settimana precedente ( ( 3° settimana)
Dim SS3 As String
SS3 = Nz((DMax("Tabe.Setti", "Tabe", "Tabe.IdCli=" & CCC & " And Tabe.Setti<'" & SS2 & "'")), "")

Dim RRR As String
RRR = ""

RRR = RRR & Left(("Cliente" & String(30, " ")), 30)
RRR = RRR & Left(("Sett1/" & SS1 & String(30, " ")), 30)
RRR = RRR & Left(("Sett2" & String(30, " ")), 30)
RRR = RRR & Left(("Sett3" & String(30, " ")), 30)
RRR = RRR & vbNewLine
RRR = RRR & Left((CCC & String(30, " ")), 30)
RRR = RRR & Left((DLookup("Tabe.Comme", "Tabe", "Tabe.IdCli=" & CCC & " And Tabe.Setti='" & SS1 & "'") & String(30, " ")), 30)
RRR = RRR & Left((DLookup("Tabe.Comme", "Tabe", "Tabe.IdCli=" & CCC & " And Tabe.Setti='" & SS2 & "'") & String(30, " ")), 30)
RRR = RRR & Left((DLookup("Tabe.Comme", "Tabe", "Tabe.IdCli=" & CCC & " And Tabe.Setti='" & SS3 & "'") & String(30, " ")), 30)

MsgBox RRR

End Sub


title: Query particolare

text:
Mancini formulated the question :
>> Eccola qua:
> si bella ...
>
> una alternativa senza query potrebbe essere:
>
> (NB: Non sto dicendo che una ï¿œ meglio dell'altra,
> ma per nostra comune "cultura" e "diletto" troviamo strade diverse )
Sono d'accordo, e sono d'accordo che si stabilisca inoltre una critica
costruttiva.

E per cominciare con la critica - vorrai scusarmi! - ho subito da
esporre che le Domain Function, nel codice VBA, proprio non le
sopporto.

De gustibus...

Bruno


title: Query particolare

text:
Beh!!  anche a me non è che mi siano simpatiche le funzioni di dominio

ma talvolta sono comode e immediate.

Su questo argomento apro una domanda specifica altrimenti usciamo
dalla domanda base di AlexB


title: Query particolare

text:
ciao
vi ringrazio per le tante risposte e alternative. farò qualche prova e vi faccio sapere. la soluzione con il Vba mi sembra più immediata, ma preferivo una query perchè andrò a filtrare tanti clienti contemporaneamente. cmq vi farò sapere


title: Stesso Utente diverse maschere

author: rino

text:
saluti a tutti,
se possibile un aiuto.
ho una tabella anagrafica con incarichi
ecc.la
 maschera corrispondente alla
tabella č troppo piena di campi da compilare, ho pensato di dividere la
stessa maschera: la prima solo anagrafica, la seconda incarichi la terza
ecc.ecc.
quello che vorrei č:
aprendo la prima maschera (anagrafica), quando apro le altre in secuenza vi
ritrovo lo stesso nome. č possibile?
ho strutturato male il database?
come posso fare?
grazie
rino


title: Stesso Utente diverse maschere

author: Franco

text:
Il 01 Feb 2008, 11:17, "rino" <
gsif...@tin.it
> ha scritto:
>
>
> saluti a tutti,
> se possibile un aiuto.
> ho una tabella anagrafica con incarichi
ecc.la
 maschera corrispondente
alla
> tabella è troppo piena di campi da compilare, ho pensato di dividere la
> stessa maschera: la prima solo anagrafica, la seconda incarichi la terza
> ecc.ecc.
>
> quello che vorrei è:
> aprendo la prima maschera (anagrafica), quando apro le altre in secuenza
vi
> ritrovo lo stesso nome. è possibile?
> ho strutturato male il database?
>
> come posso fare?
> grazie
>
> rino
>
Perchè anzichè dividere la maschera non usi invece il controllo a schede, e
questo poi lo suddividi per argomenti (una scheda per argomento)? Così ogni
inserimento che farai nelle varie schede apparterranno sicuramente allo
stesso record.
Saluti
Franco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Stesso Utente diverse maschere

text:
"Franco" <
franc...@inwind.it
> ha scritto nel messaggio
news:81Z121Z147Z45Y1...@usenet.libero.it...

grazie x la risposta
è possibile farmi capire meglio non comprendo a volo quello che dici non
sono molto pratico. Cosa dovrei fare?
grazie
rino


title: Stesso Utente diverse maschere

text:
Prova ad adattare questo codice al tuo: io da una casella combinata dopo
aggiornamento apro 3 maschere che fanno riferimento alla stessa persona
Private Sub TrovaAllievo_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID] = " & Str(Nz(Me![TrovaAllievo], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "03_Dati_Pagamenti"
    stLinkCriteria = "[ID]=" & Me![ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    stDocName = "02_Dati_Giselle"
    stLinkCriteria = "[ID]=" & Me![ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    stDocName = "01_Dati_Anagrafici"
    stLinkCriteria = "[ID]=" & Me![ID]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


title: Stesso Utente diverse maschere

text:
"Andrea_1234" <
villan...@hotmail.it
> ha scritto nel messaggio
news:47a340d4$0$37200$4faf...@reader3.news.tin.it...

ci provo
grazie
rino


title: Stesso Utente diverse maschere

text:

Nella maschera devi inserire un controllo di tipo "Struttura a schede", per
intenderci come quello che vedi in "Strumenti/Opzioni" di Access.
La struttura a schede ti permette di inserire svariate schede, che puoi
etichettare ognuna con un suo nome (questo intendevo per argomento), e
dentro ad ognuna puoi inserire i vari campi della tabella (o query) di
origine. Le informazioni che inserirai nei vari campi delle varie schede
apparterranno comunque ad un unico record. Sembra difficile a dirsi ma non
lo è. Cerca nella casella degli strumenti la "Struttura a schede" e prova.
Ti consiglio di creare prima la maschera (con procedura guidata) di tipo "A
colonne", in seguito aggiungi il controllo "Struttura a schede" e quindi,
selezionando la scheda interessata, operi con il "Taglia/Incolla" dei campi
già presenti nella maschera.



title: Stesso Utente diverse maschere

text:
>> è possibile farmi capire meglio non comprendo a volo quello che dici non
>> sono molto pratico. Cosa dovrei fare?
>> grazie
>> rino
>>
>
> Nella maschera devi inserire un controllo di tipo "Struttura a schede",
> per
> intenderci come quello che vedi in "Strumenti/Opzioni" di Access.
> La struttura a schede ti permette di inserire svariate schede, che puoi
> etichettare ognuna con un suo nome (questo intendevo per argomento), e
> dentro ad ognuna puoi inserire i vari campi della tabella (o query) di
> origine. Le informazioni che inserirai nei vari campi delle varie schede
> apparterranno comunque ad un unico record. Sembra difficile a dirsi ma non
> lo è. Cerca nella casella degli strumenti la "Struttura a schede" e prova.
> Ti consiglio di creare prima la maschera (con procedura guidata) di tipo
> "A
> colonne", in seguito aggiungi il controllo "Struttura a schede" e quindi,
> selezionando la scheda interessata, operi con il "Taglia/Incolla" dei
> campi
> già presenti nella maschera.
> Saluti
> Franco
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
tutto ok grazie
rino


title: errore imprevisto (40230) nella creazione pacchetto runtime

text:
qualcuno sa di che errore si tratta?
Grazie.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:clo66c$nvg$1...@lacerta.tiscalinet.it...
> qualcuno sa di che errore si tratta?
>
> Grazie.
tra l'altro poi mi dice anche errore nel carimento della dll offWH qualcuno
sa di cosa si tratta?


author: stefano (kabisa)

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:clo66c$nvg$1...@lacerta.tiscalinet.it...
> qualcuno sa di che errore si tratta?
>
> Grazie.
>
Che versione del runtime usi?
Io uso 97 2k Xp su questi potrei aiutarti
Stefano Kabisa


text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:k_4gd.95539$b5.46...@news3.tin.it...

XP


title: Tabelle su un file mdb e maschere su di un'altro ???

author: RobertoA

text:
Per avere una migliore manutenibilita' di un'applicazione che sto
realizzando, vorrei predisporla in tanti piccoli file piuttosto che in un
unico file mdb
Visto che in un file mdb e' possibile impostare come riferimento un altro
file mdb/mde, che contenga variabili globali, procedure e funzioni, pensavo
che la stessa cosa si potesse fare anche per le tabelle, ma mi sembra che
non sia cosi
Vorrei inserire la definizione delle tabelle, tabelle collegate a un db
Postgresql, in un unico file
Poi, da un secondo file, contenente le maschere ad esempio della gestione
vendite, fare riferimento al primo per avere le tabelle
E' possibile ???
Ciao e grazie
RobertoA


author: Roberto dal portatile

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4636...@newsgate.x-privat.org...

Si č possibile, anzi č l'organizzazione standard raccomandata per Access
quella di suddividere un datababase in due, una (detta BE) che contiene solo
le tabelle e la seconda (detta FE) che contiene tutti gli altri oggetti del
database (query, maschere, report, macro e moduli) e in piů il collegamento
alle tabelle contenute fisicamente nel BE.
Se parti da un unico database, tale suddivisione la ottieni con Strumenti =>
Aggiunte => Divisione database .
> Ciao e grazie
Prego
> RobertoA
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
>> Per avere una migliore manutenibilita' di un'applicazione che sto
>> realizzando, vorrei predisporla in tanti piccoli file piuttosto che in un
>> unico file mdb
>> Visto che in un file mdb e' possibile impostare come riferimento un altro
>> file mdb/mde, che contenga variabili globali, procedure e funzioni,
>> pensavo che la stessa cosa si potesse fare anche per le tabelle, ma mi
>> sembra che non sia cosi
>> Vorrei inserire la definizione delle tabelle, tabelle collegate a un db
>> Postgresql, in un unico file
>> Poi, da un secondo file, contenente le maschere ad esempio della gestione
>> vendite, fare riferimento al primo per avere le tabelle
>> E' possibile ???
>
> Si č possibile, anzi č l'organizzazione standard raccomandata per Access
> quella di suddividere un datababase in due, una (detta BE) che contiene
> solo le tabelle e la seconda (detta FE) che contiene tutti gli altri
> oggetti del database (query, maschere, report, macro e moduli) e in piů il
> collegamento alle tabelle contenute fisicamente nel BE.
> Se parti da un unico database, tale suddivisione la ottieni con Strumenti
> => Aggiunte => Divisione database .
Grassie grassie
Per la migliore realizzazione di applicazioni di una certa 'mole' c'e'
qualche altro sistema/documentazione che puo' essermi utile ???
Ciao
RobertoA


text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:46361600$1...@newsgate.x-privat.org...

Non saprei indicarti una docmentazione che parli genericamente di
"ottimizzazione" di un database.
> Ciao



text:
>> Per avere una migliore manutenibilita' di un'applicazione che sto
>> realizzando, vorrei predisporla in tanti piccoli file piuttosto che in un
>> unico file mdb
>> Visto che in un file mdb e' possibile impostare come riferimento un altro
>> file mdb/mde, che contenga variabili globali, procedure e funzioni,
>> pensavo che la stessa cosa si potesse fare anche per le tabelle, ma mi
>> sembra che non sia cosi
>> Vorrei inserire la definizione delle tabelle, tabelle collegate a un db
>> Postgresql, in un unico file
>> Poi, da un secondo file, contenente le maschere ad esempio della gestione
>> vendite, fare riferimento al primo per avere le tabelle
>> E' possibile ???
>
> Si č possibile, anzi č l'organizzazione standard raccomandata per Access
> quella di suddividere un datababase in due, una (detta BE) che contiene
> solo le tabelle e la seconda (detta FE) che contiene tutti gli altri
> oggetti del database (query, maschere, report, macro e moduli) e in piů il
> collegamento alle tabelle contenute fisicamente nel BE.
> Se parti da un unico database, tale suddivisione la ottieni con Strumenti
> => Aggiunte => Divisione database .
Allora, ho provato e forse non ci siamo capiti
Io ho gia' il mio bel file mdb che fa riferimento a delle tabelle collegate
Quello che volevo fare e' creare il file mdb A che contanga solo i
riferimenti alle tabelle
Poi, il file mdb B che contenga le maschere
Poi il file mdb C che contenga solo i moduli
Sul file B posso indicare su Strumenti/Riferimenti un file dal quale
'pescare' i moduli comuni
Vorrei fare lo steso per le tabelle, cioe' vorrei poter inserire nel file B
un riferimento ad un altro file mdb che contenga solo la definizione delle
tabelle (in questo caso tabelle collegate ad una fonte dati odbc)
Se po' ffa ??
Ciao
RobertoA


author: Panathos

text:
RobertoA ha scritto:
> Quello che volevo fare e' creare il file mdb A che contanga solo i
> riferimenti alle tabelle
> Poi, il file mdb B che contenga le maschere
> Poi il file mdb C che contenga solo i moduli
> Sul file B posso indicare su Strumenti/Riferimenti un file dal quale
> 'pescare' i moduli comuni
> Vorrei fare lo steso per le tabelle, cioe' vorrei poter inserire nel file B
> un riferimento ad un altro file mdb che contenga solo la definizione delle
> tabelle (in questo caso tabelle collegate ad una fonte dati odbc)
Temo di no, le tabelle devono essere collegate all'mdb che hai aperto,
se vuoi vederle nel QBE (e quindi renderle visibili alle query).
Quello che vuoi fare tu sarebbe possibile solo se poi usi solo vba per
gestire tutto: tabelle,  query e quindi anche le origini dati per le
maschere ed i report. E poi ho comunque dei dubbi.
Un compromesso potrebbe essere costituito da una funzione contenuta in
B che, all'apertura dell'applicazione B, per prima cosa apre A, cicla
l'insieme tabledefs di A, e si collega tutte le tabelle non di sistema
che vi trova.
Poi cicla l'insieme querydefs (sempre di A), ed importa le query.
Quando l'mdb B viene chiuso, gli insiemi tabledefs e querydefs di B
vengono ripuliti.
ciao,
Panathos


text:

E si , potrebbe andare bene lo stesso
Se tutti gli mdb facessero questo, avrei risolto il problema di 'manutenere'
un solo file mdb per le tabelle
Ma posso linkare le tabelle da codice VBA ?
Ciao e grazie
RobertoA


author: Sergio MAZZA

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio news:4636d6e9$1...@newsgate.x-privat.org...
>
> E si , potrebbe andare bene lo stesso
> Se tutti gli mdb facessero questo, avrei risolto il problema di 'manutenere' un solo file mdb per le tabelle
> Ma posso linkare le tabelle da codice VBA ?
> Ciao e grazie
> RobertoA
www.sitocomune.com
 Sezione Tables
1.34 Rimuovere tutte le tabelle collegate da un database
1.29  [UPD]  Riallegare tabelle ODBC
1.28  [UPD]  Riallegare tabelle Access (4)
1.20 Riallegare tabelle utilizzando la libreria ADOX
1.16 Riallegare tabelle (3) ( Funziona anche se il Backend e' protetto da password)
1.13 Riallegare tabelle (2)
1.12 Riallegare tabelle (1)
1.10 Effettuare in maniera del tutto automatica l'aggiornamento delle tabelle allegate ad un FE.
Chissà!
Ciao.
--
Sergio MAZZA


text:
>> E si , potrebbe andare bene lo stesso
>> Se tutti gli mdb facessero questo, avrei risolto il problema di
>> 'manutenere' un solo file mdb per le tabelle
>> Ma posso linkare le tabelle da codice VBA ?
>> Ciao e grazie
>> RobertoA
>
>
www.sitocomune.com
 Sezione Tables
> 1.34 Rimuovere tutte le tabelle collegate da un database
> 1.29  [UPD]  Riallegare tabelle ODBC
> 1.28  [UPD]  Riallegare tabelle Access (4)
> 1.20 Riallegare tabelle utilizzando la libreria ADOX
> 1.16 Riallegare tabelle (3) ( Funziona anche se il Backend e' protetto da
> password)
> 1.13 Riallegare tabelle (2)
> 1.12 Riallegare tabelle (1)
> 1.10 Effettuare in maniera del tutto automatica l'aggiornamento delle
> tabelle allegate ad un FE.
Denkio very grazie
Ciao
RobertoA


text:
On 1 Mag, 08:10, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> E si , potrebbe andare bene lo stesso
> Se tutti gli mdb facessero questo, avrei risolto il problema di 'manutenere'
> un solo file mdb per le tabelle
Non capisco ma mi adeguo :-D
> Ma posso linkare le tabelle da codice VBA ?
E certo che lo puoi fare, così come puoi anche importare i vari
oggetti da un mdb all'altro.
Però continuo a non capire: se fai questa domanda mi pare chiaro che
non sei avvezzo a fare queste cose col codice, e non capisco quali
vantaggi ci siano a tenere un mdb contenente solo maschere, privo di
tabelle (anche collegate) e query, per poi popolarlo e svuotarlo ad
ogni esecuzione.
Voglio dire: quando sviluppi devi comunque avere le tabelle collegate
nell'mdb con le maschere, e pure le query devono stare lì. Quindi che
senso ha, prima di distribuirlo, togliere tutto e alimentare un mdb
separato?
ciao,
Panathos


text:
> E si , potrebbe andare bene lo stesso
> Se tutti gli mdb facessero questo, avrei risolto il problema di
> 'manutenere'
> un solo file mdb per le tabelle
Non capisco ma mi adeguo :-D
> Ma posso linkare le tabelle da codice VBA ?
E certo che lo puoi fare, cosģ come puoi anche importare i vari
oggetti da un mdb all'altro.
Perņ continuo a non capire: se fai questa domanda mi pare chiaro che
non sei avvezzo a fare queste cose col codice, e non capisco quali
vantaggi ci siano a tenere un mdb contenente solo maschere, privo di
tabelle (anche collegate) e query, per poi popolarlo e svuotarlo ad
ogni esecuzione.
Voglio dire: quando sviluppi devi comunque avere le tabelle collegate
nell'mdb con le maschere, e pure le query devono stare lģ. Quindi che
senso ha, prima di distribuirlo, togliere tutto e alimentare un mdb
separato?
============================
L'obiettivo e' quello di mantenere su di un solo mdb tutte le tabelle, che
in fase di sviluppo, ed anche durante la vita dell'applicativo, possono
anche cambiare
Supponi che costruisca un file VENDITE.MDB ed un altro CONTABILITA.MDB,
contenenti solamente le maschere le query e le stampe che competono loro
Se queste facessero riferimento ad un file TABELLE.MDB contenente la
definizione delle tabelle, sarebbe di molto diminuito il lavoro di
manutenzione necessario ogni volta che ad una tabella vengono eseguiti
cambiamenti nella struttura
Se oltre a Vendite e Contabilita ci fossero Ordini, Acquisti, Crm,
Produzione, ecc... la cosa diventa ancora piu' evidente
Insomma, in sostanza vorrei 'frazionare' l'intera applicazione in modulini
che, per le parti comuni (come le funzioni/procedure/variabili globali e la
definizione delle tabelle appunto) vadano a 'leggere' dai file singoli come
TABELLE.MDB e FUNZIONI.MDB
Se devo aggiungere una funzione usata da tutti i programmi come
CHECK_CODICE_FISCALE devo aggiungerla solo su FUNZIONI.MDB mica su tutti i
file che la usano
Stessa cosa vorrei fare per la definizione tabelle
Ciao e grazie
RobertoA


title: query a campi incrociati incompleta

author: Frigster

text:
Ho una tabella "Prenotazioni" del tipo:
IdAppartamento            Inizio            Fine            Affitto
            1                      03/04/04    20/06/04        100
            1                      22/07/04    05/08/04        150
            2                      12/02/04    06/03/04        100
            2                      07/02/04    07/03/04        125
            2                      12/04/04    25/04/04        230
            3                      23/07/04    30/08/04        250
            3                      15/09/04    22/09/04        130
che mi elenca tutte le date in cui, determinati appartamenti, sono stati
affittati e l'affitto totale riscosso.
Io, a fine anno, voglio un prospetto per vedere quanto ho incassato ogni
mese (facendo riferimento alla sola data di inizio, ovvero, per esempio, nel
primo record io considero i 100 euro come incasso di aprile anche se la data
di fine arriva addirittura a giugno) e ho provato con la seguente query:
TRANSFORM Sum(Prenotazioni.Affitto) AS SommaDiAffitto
SELECT Prenotazioni.IDappartamento
FROM Prenotazioni
GROUP BY Prenotazioni.IDappartamento
ORDER BY (DatePart("m",[inizio]))
PIVOT (DatePart("m",[inizio]));
la quale mi restituisce, però, solo i valori dei mesi che sono
effettivamente presenti nella tabella; ovvero il risultato sarà:
IdAppartamento            2                    4                        7
9        (Unici mesi presenti nei vari "inizio")
        1                                                100
150
        2                          225                230
        3
250                        130
Io avrei bisogno, però, che mi restituisse una tabella con tutti i mesi (da
1 a 12) anche se, per alcuni, non vi è alcun valore.
Questo perché voglio costruire una maschera sulla query e ho la necessità
che mi "disegni" tutti i campi dei mesi a prescindere
da quanti hanno effettivamente prenotazioni.
Se io disegnassi una maschera sulla query attuale, avrei solo i campi per
febbraio, aprile, luglio e settembre. Ma se capiterà una prenotazione in
agosto, la query aggiungerà un campo "8" ma la maschera no.
Spero di essere stato chiaro.
Sapete aiutarmi?
Grazie.
Frigster.


title: query a campi incrociati incompleta

author: giorgio rancati

text:
"Frigster" <frigster$$$$$@
libero.it
> ha scritto nel messaggio
news:1c6Mc.7853$1V3.1...@twister2.libero.it...

Ciao,
dalla maschera di composizione query premi il tasto destro del mouse quindi
proprietà, in corrispondenza di *Intestazione colonne* inserisci
-----------------
1;2;3;4;5;6;7;8;9;10;11;12
-----------------
Questo è l' SQL che verrà generato.
--------------------
TRANSFORM Sum(Prenotazioni.Affitto) AS SommaDiAffitto
SELECT Prenotazioni.idappartamento
FROM Prenotazioni
GROUP BY Prenotazioni.idappartamento
ORDER BY (DatePart("m",[inizio]))
PIVOT (DatePart("m",[inizio])) In (1,2,3,4,5,6,7,8,9,10,11,12);
---------------------
Ciao Giorgio


title: query a campi incrociati incompleta

text:
> Ciao,
> dalla maschera di composizione query premi il tasto destro del mouse
quindi
> proprietà, in corrispondenza di *Intestazione colonne* inserisci
> -----------------
> 1;2;3;4;5;6;7;8;9;10;11;12
> -----------------
>
> Questo è l' SQL che verrà generato.
> --------------------
> TRANSFORM Sum(Prenotazioni.Affitto) AS SommaDiAffitto
> SELECT Prenotazioni.idappartamento
> FROM Prenotazioni
> GROUP BY Prenotazioni.idappartamento
> ORDER BY (DatePart("m",[inizio]))
> PIVOT (DatePart("m",[inizio])) In (1,2,3,4,5,6,7,8,9,10,11,12);
> ---------------------
>
> Ciao Giorgio
Ma quante ne sai??
Frigster.


title: inviare E-mail da access

author: Pincopallino

text:
Avrei bisogno di esportare una query in un formato particolare (testo con
tabulazione) ed inviarlo via E-mail ed ho riscontrato il seguente problema:
se esporto la tabella utilizzando
            DoCmd.TransferText acExport, "mioformato", "tabelladaesportare",
"c:\miodocumento.txt", True, ""
posso specificare con "mioformato" le caratteristiche del file da generare,
mentre per inviare la tabella via e-mail devo utilizzare
            DoCmd.SendObject acQuery, "querydainviare", "MS-DOSText(*.txt)",
"
indi...@indirizzo.it
", "", "", "oggetto", "testo", False, ""
ma in questo modo non ho la possibilità di stabilire il formato di
esportazione.
Qualcuno sa come posso inviare via e-mail una tabella stabilendo delle
specifiche ??
Grazie !!!


title: visualizzare solo l'anno in campo data

author: TheFusa

text:
salve a tutto il ng!
ho una tabella con un campo "anno"  che ha come tipo di dati "data/ora".
Nel valore predefinito ho messo Date() in modo da compilarlo automaticamente
con la data odierna.
Il problema è che vorrei che mi visualizzasse solo l'anno.
quindi invece di 09/10/2004 solo 2004.
Come posso fare?
Grazie mille


title: visualizzare solo l'anno in campo data

text:
"TheFusa" <
the...@libero.it
> wrote in message
news:fR3jd.1295$2n2....@tornado.fastwebnet.it...

Scrivi yyyy ovvero aaaa nella proprietà
Format del campo
Ciao
Bruno


title: visualizzare solo l'anno in campo data

text:
"Bruno Campanini" <
bruno.XXX...@tin.it
> ha scritto nel messaggio
news:4B5jd.276207$35.12...@news4.tin.it...

ok,
però il valore è sempre la data compoleta 09/10/2004 anche se me lo
visualizza solo 2004.
Io ho bisogno che il valore sia SOLO 2004
come faccio?!!?


title: visualizzare solo l'anno in campo data

author: Karl Donaubauer

text:
TheFusa wrote:
> "Bruno Campanini ha scritto:
>>> ho una tabella con un campo "anno"  che ha come tipo di dati
>>> "data/ora". Nel valore predefinito ho messo Date() in modo da
>>> compilarlo automaticamente con la data odierna.
>>> Il problema è che vorrei che mi visualizzasse solo l'anno.
>>> quindi invece di 09/10/2004 solo 2004.
>>> Come posso fare?
>>> Grazie mille
>>
>> Scrivi yyyy ovvero aaaa nella proprietà
>> Format del campo
>...
> però il valore è sempre la data compoleta 09/10/2004 anche se me lo
> visualizza solo 2004.
> Io ho bisogno che il valore sia SOLO 2004
> come faccio?!!?
Non prendi il tipo data/ora ma p.e. un tipo numerico come Integer.
Come valore predefinito usi: Year(Date())
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: visualizzare solo l'anno in campo data

author: Roberto dalla campagna

text:
TheFusa <
the...@libero.it
> wrote in message
fR3jd.1295$2n2....@tornado.fastwebnet.it...

Se il tuo campo di tipo Data/ora si chiama anno, usa la funzione Year (vedi
help):
SoloAnno = Year([anno])
oppure la funzione Format (vedi help):
SoloAnno = Format([anno] , "yyyy")
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: cancellazione tabelle consecutive

author: FanciF

text:
Ho tabelle con nome '....1' e '....2' tra varie tabelle, tipo:
TabA, TabB,    TabC, TabC1, TabC2,    Tab D,    TabE, TabE1, TabE2,    TabF,
TabG, ecc.

Desidererei eliminare quelle che terminano con "1" e "2". Uso il codice:
Dim Dbas As Database
Dim Tbf As TableDef
Set Dbas = CurrentDb()

For Each Tbf In Dbas.TableDefs
     If Right(Tbf.Name, 1)) = "1" Or Right(Tbf.Name, 1) = "2" Then
              Dbas.TableDefs.Delete Tbf.Name
     End If
Next

La domanda:
Perchè mi elimina solo quelle che terminano con "1" ?
(Se, se rilancio il codice, mi elimina quelle con finale "2")
Grazie per l'eventuale risposta.
FanciF


title: cancellazione tabelle consecutive

text:
Salve,

Fancif ha scritto:

Devi usare un ciclo "Top-Down", cioè invece del For Each:

Dim i As Long

For i = Dbas.TableDefs.Count -1 To 0 Step -1
...

Altrimenti l'insieme si aggiorna mentre elimini e non trovi mai tutti.

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


title: cancellazione tabelle consecutive

author: AntFast

text:
Fancif ha scritto:
> Ho tabelle con nome '....1' e '....2' tra varie tabelle, tipo:
> TabA, TabB,    TabC, TabC1, TabC2,    Tab D,    TabE, TabE1, TabE2,
> TabF, TabG, ecc.
>
> Desidererei eliminare quelle che terminano con "1" e "2". Uso il codice:
> Dim Dbas As Database
> Dim Tbf As TableDef
> Set Dbas = CurrentDb()
>
> For Each Tbf In Dbas.TableDefs
>      If Right(Tbf.Name, 1)) = "1" Or Right(Tbf.Name, 1) = "2" Then
>               Dbas.TableDefs.Delete Tbf.Name
>      End If
> Next
>
> La domanda:
> Perchè mi elimina solo quelle che terminano con "1" ?
> (Se, se rilancio il codice, mi elimina quelle con finale "2")

..cut Karl
Devi usare un ciclo "Top-Down", cioè invece del For Each:

Dim i As Long
For i = Dbas.TableDefs.Count -1 To 0 Step -1
...

Scusa Karl, così facendo ho il numero delle tabelle (da scorrere a
ritroso..). Come faccio poi a risalire al nome, per poterlo controllare e
quindi eliminare?
(Non c'è
Dbas.Tabledefs.Name
 .... :-(     )
FanciF


title: cancellazione tabelle consecutive

text:
....
>
> Scusa Karl, così facendo ho il numero delle tabelle (da scorrere a
> ritroso..). Come faccio poi a risalire al nome, per poterlo controllare e
> quindi eliminare?
> (Non c'è
Dbas.Tabledefs.Name
 .... :-(     )
> FanciF

Dbas.Tabledefs(i).Name....?????

@Alex


title: cancellazione tabelle consecutive

author: AntFat

text:
@Alex <
ik2...@libero.it
> ha scritto:

> .....

Grazie @Alex
Hai ragione, sono senza parole...
Chiedo umilmente scusa.


title: cancellazione tabelle consecutive

author: Bruno Campanini

text:
FanciF wrote :

        Dbas.TableDefs.Refresh
    End If
 Next

Bruno


title: cancellazione tabelle consecutive

text:
....
>
> For Each Tbf In Dbas.TableDefs
>     If Right(Tbf.Name, 1)) = 1 Or Right(Tbf.Name, 1) = 2 Then
>         Dbas.TableDefs.Delete Tbf.Name
>         Dbas.TableDefs.Refresh
>     End If
>  Next
>
> Bruno

Mmmmm sai bruno che secondo me sarebbe meglio evitare la reinizializzazione della collection...
E' vero che in linea Teorica(anche pratica) funziona, ma è un peccato e decisamente un'azione non utile...!
Svuotando la Collection fal fondo... non serve il Refresh.

@Alex


title: cancellazione tabelle consecutive

text:
@Alex laid this down on his screen :

Guarda che sul mio PC funziona tutto alla prima
anche senza refresh, quindi dev'esser solo questione
di velocità.
Vorrei che l'OP sostituisse il mio Refresh con
un Do.Events e ci dicesse cosa succede.

Quanto alla modalità che sostieni... una procedura è
migliore di un'altra se di questa è più veloce e più
bug-free.
Il resto mi sembra solo filosofia.
Rispettabilissima filosofia!
No, non è vero: io non rispetto affatto la filosofia.
Rispetto le opinioni degli amici.

Bruno


title: cancellazione tabelle consecutive

author: Simone Calligaris

text:
"Karl Donaubauer"

>> La domanda:
>> Perchè mi elimina solo quelle che terminano con "1" ?
>> (Se, se rilancio il codice, mi elimina quelle con finale "2")

> Devi usare un ciclo "Top-Down", cioè invece del For Each:
>
> Dim i As Long
>
> For i = Dbas.TableDefs.Count -1 To 0 Step -1
> ...
>
> Altrimenti l'insieme si aggiorna mentre elimini e non trovi mai tutti.

Questa cosa (su cui molti di noi a suo tempo sbatterono la testa)
meriterebbe un piccolo spazio su
www.donkarl.com/it

Saluti.


title: Far comparire solo i dati di un intervallo

author: Giovanni Gio

text:
Salve a tuttti,
sono un principiante alle prime armi con Access, e sto sviluppando un
piccolo programma gestionale, adesso sto cercando di eseguire un filtro
su query di unione per far visualizare l'elenco delle date comprese in
un certo intervallo definendo solo quella di partenza, ho provato con:
[forms]![miaazienda]![data bolla]
ma cosi ottengo solo una lista con la data che io definisco, ho
riprovato con:
between [forms]![miaazienda]![data bolla] AND
DateAdd("d",15,[forms]![miaazienda]![data bolla])
ma ottengo un errore (per essere precisi mi viene notificato l'errore
sulla virgola, per cui l'ho sostituita con il ";" cosi non ho errori in
fase di compilazione ma in fase di utilizzo).
Dove sto sbagliando?? e cosi si deve scrivere il codice per ottenere
quello che mi interessa?
Un grazie anticipato a tutti per l'aiuto che mi darete.
Ciao
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Roberto da casa

text:
"Giovanni Gio" <
bjou...@yahoo.it
> ha scritto nel messaggio
news:516af810530437631f0...@mygate.mailgate.org...

Prova con
Between [Forms]![miaazienda]![data bolla] And
DateAdd("g";15;[forms]![miaazienda]![data bolla])
ed imposta il formato del controllo [Forms]![miaazienda]![data bolla] a Data
in cifre.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Grazie proverň subito
Ciao
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:WCEl8.40217$%g7.12...@twister2.libero.it...



title: Data creazione files

author: Claudio Raffaelli

text:
Salve a tutti, il mio problema è estrapolare la data di creazione di un file.
Utilizzando il metodo Filedatetime Access restituisce solo la data dell'ultima modifica.
Conoscete un'API che faccia al caso mio?
Vi ringrazio per l'attenzione
Ciao, Claudio


title: Data creazione files

author: Paolo

text:
Forse ho la soluzione al tuo problema, prova con questo esempio:
Dim FileObj, Dato1, Dato2
  Set FileObj = CreateObject"Scripting.FileSystemObject")
  Set Dato1 = FileObj.GetFile("c:\windows\leggimi.txt")
  Dato2 = UCase("c:\windows\leggimi.txt") & vbCrLf
  Dato2 = Dato2 & "Data di creazione: " & Dato1.DateCreated & vbCrLf
  Dato2 = Dato2 & "Ultimo accesso: " & Dato1.DateLastAccessed & vbCrLf
  Dato2 = Dato2 & "Ultima modifica: " & Dato1.DateLastModified & vbCrLf
  Dato2 = Dato2 & "Dimenzione: " & Dato1.Size & vbCrLf
Debug.Print Dato2
Io lo uso regolarmente e funziona alla grande.
Ciao Paolo
"Claudio Raffaelli" <
Clau...@tiscalinet.it
> ha scritto nel messaggio
news:8o66mh$7cr$1...@fe2.cs.interbusiness.it...



title: Data creazione files

text:
Paolo ha scritto nel messaggio <8o6cm8$qv5$
1...@pegasus.tiscalinet.it
>...
>Forse ho la soluzione al tuo problema, prova con questo esempio:
>
>Dim FileObj, Dato1, Dato2
>
>  Set FileObj = CreateObject"Scripting.FileSystemObject")
>  Set Dato1 = FileObj.GetFile("c:\windows\leggimi.txt")
>  Dato2 = UCase("c:\windows\leggimi.txt") & vbCrLf
>  Dato2 = Dato2 & "Data di creazione: " & Dato1.DateCreated & vbCrLf
>  Dato2 = Dato2 & "Ultimo accesso: " & Dato1.DateLastAccessed & vbCrLf
>  Dato2 = Dato2 & "Ultima modifica: " & Dato1.DateLastModified & vbCrLf
>  Dato2 = Dato2 & "Dimenzione: " & Dato1.Size & vbCrLf
>
>Debug.Print Dato2
>
>Io lo uso regolarmente e funziona alla grande.
>
MOLTE  MOLTE grazie Paolo, a buon rendere!!!
Claudio


title: problema su excel (funzione cerca su vettore)

author: Paolo Pastelli

text:
Ho una tabella (foglio1 di cartella1)con due colonne, codice e
denominazione, e una tabella gestionale (foglio2 di cartella1) con
records complessi, fra cui un campo codice: devo sostituire al codice la
denominazione.
Sono costretto a rimanere in ambiente excel.
Le due colonne (codice, nei due fogli) hanno tipo uguale, e foglio1 č
stato sortato per codice.
La colonna codice contiene valori di tre caratteri, alcuni dei quali
sono solo numerici, pur essendo stati tutti formattati come testo.
Il problema č che la funzione "CERCA" mi restituisce "#N/D" sui records
in cui il codice č composto da 3 cifre, pur avendo ricontrollato e
riformattato il campo a tipo testo: qualcuno mi sa dare indicazioni?
Grazie
papaste86
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Mouse\Nascondere il cursore.....

author: Lindbergh

text:
Ciao a tutti...
non riesco a ricordarmi come si fa...
Quando si passa con il mouse su una casella di testo il puntatore si
trasforma da freccina in cursore.
Siccome io utilizzo in alcuni controlli il richiamo ad un modulo che mi fa
apparire la manina..dovrei non far apparire il cursore.
Ho guardato sull'help ma non trovo nulla...eppure mi sembra di ricordare che
ci fosse del codice che permetteva di
nasconderlo(il cursore)
Qualcuno si ricorda come si fa??
Ciao e grazie
Eddie


title: errore togliendo riferimento a dll

author: mario rossi

text:
volevo togliere una dll che non uso più nel mio progetto ma se la deseleziono dai riferimenti in ambiente vba ricevo su debug il messaggio

"tipo definito dall'utente non definitio"

ma non mi manda in nessun punto del codice in cui viene usata la dll infatti ho anche cercato nel codice se c'era ancora da qualche parte ma nulla.

quale sarà il problema?

grazie.


title: errore togliendo riferimento a dll

text:
Dopo aver verificato di non avere delle dichiarazioni relative al componente COM, valuta di re-importare il progetto in un NUOVO progetto e ricompatta e ricompila...

@Alex


title: Una variabile pubblica da una maschera alla successiva

author: fab

text:
Stranamente nonostante definisca pubblica una variabile  in una maschera
iniziale es.:
public Miavar  as variant
 nelle successive maschere dell'Applcazionee Access non riconosce tale
Miavar
Dove  sbaglio ?
Grazie per l'attenzione. Ciao a Tutti
Fabrizio


author: Alessandro Cara

text:
fab ha scritto:

mettila in un modulo
--
a.cara


text:
Alessandro Cara <
al...@blunet.it
> wrote in message
3D936A9E...@blunet.it...

Grazie Alessandro. Vediamo: creo per la prima volta un modulo (esterno alla
maschera) chiamato  miavar1 con
Options explicit
Public miavar As Variant
Function assegna()
miavar = "Oggi"
End Function
e ho richiamato assegna dal bottone che apre la seconda maschera (ok la
apre),
ma quando cerco di definire una casella di testo e ci metto come origine
miavar  (o assegna ? o miavar1) mi da errore.
Grazie per... la pazienza !
Ciao Fabrizio
> a.cara


text:
fab ha scritto:
>
[cut]
>
> e ho richiamato assegna dal bottone che apre la seconda maschera (ok la
> apre),
> ma quando cerco di definire una casella di testo e ci metto come origine
> miavar  (o assegna ? o miavar1) mi da errore.
> Grazie per... la pazienza !
> Ciao Fabrizio
> > a.cara
prova a mettere public davanti a Function assegna() e richiama assegna()
per l'assegnazione, dopo miavar dovrebbe (ahh il condizionale) contenere
"Oggi"
--
a.cara


text:
Alessandro Cara <
al...@blunet.it
> wrote in message
3D937788...@blunet.it...

Si !!
Ho messo nell'evento Load assegna , poi testo20.set focus e testo20=miavar
Complimenti Alessandro !


text:
fab ha scritto:

de nada, de nada, non farmi arrossire
(non fidarti mai delle mie risposte dopo le 21:00 c'e' in giro
mr. hyde)
--
a.cara


title: inserimento ora controllo

author: pfm

text:
salve
ho una casella di testo dove attendo che l'utente inserisca l'ora

vorrei che l'utente inserisse dei dati sensati:

ho definito

come proprietà

Inputmask: "00:00;0;_"
Format: Ora breve

come posso migliorare impadendo all'utente di inserire es. 25:79

e non venga solo segnalato errore nel lostfocus?


title: inserimento ora controllo

text:

Chiarisci cosa intendi... perchè qualsiasi controllo cade nella verifica formato..., a meno di non controllare il KEYPRESS...

?IsDate("25:00")
Falso
?IsDate("23:59")
Vero

Se invece vuoi controllare mentre si digita... allora la cosa cambia... e devi scrivere 4 righe di codice analizzando il KEYPRESS in relazione alla posizione del KEY... che rilevi con Len(Controllo.Text) nell'evento KeyPress... ma non è così semplicissimo... ma nemmeno terribile.

Una cosa simile buttata giù molto velocemente, consente di inserire solo il formato hh:mm ma controlla anche il Numero digitato...

Option Compare Database
Option Explicit

Public Function CkDgtNumber(KeyAscii As Integer, _
                        nMin As Integer, _
                        nMax As Integer) As Integer
    '=========================================
    'Verifica che venga inserito un NUMERO
    'dove nmax =Numero Limite
    'Da inserire nell'EVENTO KEY_PRESS
    '48-57
    '=========================================
    CkDgtNumber = 30
    If KeyAscii >= 48 + nMin And _
        KeyAscii <= 48 + nMax Then CkDgtNumber = KeyAscii
    Select Case KeyAscii
        Case 44, 45
            CkDgtNumber = KeyAscii
        Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
            CkDgtNumber = KeyAscii
        Case vbKeyEscape, vbKeyDelete, vbKeyNumlock
            CkDgtNumber = KeyAscii
    End Select
End Function

Private Sub Testo0_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
            KeyAscii = KeyAscii
        Case vbKeyEscape, vbKeyDelete, vbKeyNumlock
            KeyAscii = KeyAscii
        Case Else
            Select Case Len(Me.Testo0.Text)
                Case 0
                    KeyAscii = CkDgtNumber(KeyAscii, 1, 2)
                Case 1
                    If Right(Me.Testo0.Text, 1) = "1" Then
                        KeyAscii = CkDgtNumber(KeyAscii, 0, 9)
                    Else
                        KeyAscii = CkDgtNumber(KeyAscii, 0, 3)
                    End If
                Case 2
                    If KeyAscii <> 58 Then KeyAscii = 30
                Case 3
                    KeyAscii = CkDgtNumber(KeyAscii, 0, 5)
                Case 4
                    KeyAscii = CkDgtNumber(KeyAscii, 0, 9)
            End Select
    End Select
End Sub

@Alex


title: inserimento ora controllo

text:
Scritta un po meglio, con qualche correzione:

' ------------------------------------------
' Nella FORM
' ------------------------------------------
Option Compare Database
Option Explicit

Private Sub NomeTextbox_KeyPress(keyAscii As Integer)
    keyAscii = CheckTime(Me.NomeTextbox, keyAscii)
End Sub

' ------------------------------------------
' In un modulo BAS
' ------------------------------------------
Option Compare Database
Option Explicit

Public Function CkDgtNumber(keyAscii As Integer, _
                        nMin As Integer, _
                        nMax As Integer) As Integer
    '=========================================
    'Verifica che venga inserito un NUMERO
    'dove nmax =Numero Limite
    'Da inserire nell'EVENTO KEY_PRESS
    '48-57
    '=========================================
    CkDgtNumber = 30
    If keyAscii >= 48 + nMin And _
        keyAscii <= 48 + nMax Then CkDgtNumber = keyAscii
    Select Case keyAscii
        Case 44, 45
            CkDgtNumber = keyAscii
        Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
            CkDgtNumber = keyAscii
        Case vbKeyEscape, vbKeyDelete, vbKeyNumlock
            CkDgtNumber = keyAscii
    End Select
End Function

Public Function CheckTime(ctl As Access.Control, keyAscii As Integer) As Integer
    Select Case keyAscii
        Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
            CheckTime = keyAscii
        Case vbKeyEscape, vbKeyNumlock
            CheckTime = keyAscii
        Case Else
            Select Case Len(ctl.Text)
                Case 0
                    CheckTime = CkDgtNumber(keyAscii, 0, 2)
                Case 1
                    If Val(Right(ctl.Text, 1)) < 1 Then
                        CheckTime = CkDgtNumber(keyAscii, 0, 9)
                    Else
                        CheckTime = CkDgtNumber(keyAscii, 0, 3)
                    End If
                Case 2
                    CheckTime = keyAscii
                    If keyAscii <> 58 Then CheckTime = 30
                Case 3
                    CheckTime = CkDgtNumber(keyAscii, 0, 5)
                Case 4
                    CheckTime = CkDgtNumber(keyAscii, 0, 9)
            End Select
    End Select

End Function

@Alex


title: Aiutoooo!

author: Stefano LD

text:
2 Problemi da 1.000.000 di grazie.
1) Ho una maschera senza collegamenti a database con una sottomaschera
invece collegata ad una query... Vorrei con un pulsante messo nella parte
alta della Maschera poter spostare il record della sottomaschera al campo
successivo..... funzione gotorecord....ma non funzionza!!!
2) Ho sempre questa maschera senza dati e la sua Sottomaschera con la
query... vorrei sempre con un pulsante messo sulla maschera cambiare la
visualizzazione della sottomaschera in maschera singola e fogliodati e
viceversa... sembra che lo accetti solo in modalità struttura !!!!!!
Grazie
Stefano Programmatore Delphi convertito ad access ma ci sta ripensando!!


title: Aiutoooo!

author: Roberto dal portatile

text:
"Stefano LD" <
lodu...@yahoo.it
> ha scritto nel messaggio
news:oOwg7.671$423....@news.infostrada.it...
> 2 Problemi da 1.000.000 di grazie.
>
> 1) Ho una maschera senza collegamenti a database con una sottomaschera
> invece collegata ad una query... Vorrei con un pulsante messo nella parte
> alta della Maschera poter spostare il record della sottomaschera al campo
> successivo..... funzione gotorecord....ma non funzionza!!!
>
Se il controllo sottomaschera contenuto nella maschera principale si chiama
Sottomaschera, a fronte dell'evento "Su clic" del tuo primo pulsante di
comando genera il seguente codice VBA:
Me!Sottomaschera.SetFocus
DoCmd.GoToRecord
> 2) Ho sempre questa maschera senza dati e la sua Sottomaschera con la
> query... vorrei sempre con un pulsante messo sulla maschera cambiare la
> visualizzazione della sottomaschera in maschera singola e fogliodati e
> viceversa... sembra che lo accetti solo in modalità struttura !!!!!!
Se la maschera principale si chiama Maschera1.
Se la tua sottomaschera si chiama Sottomaschera.
A fronte dell'evento "Su clic" del tuo secondo pulsante di comando genera il
seguente codice VBA:
DoCmd.OpenForm "Sottomaschera", acDesign
If Forms!Sottomaschera.DefaultView = 0 Then
    Forms!Sottomaschera.DefaultView = 2
Else
    Forms!Sottomaschera.DefaultView = 0
End If
DoCmd.Close acForm, "Sottomaschera"
DoCmd.Close acForm, "Maschera1"
DoCmd.OpenForm ("Maschera1")
>
> Grazie
> Stefano Programmatore Delphi convertito ad access ma ci sta ripensando!!
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Aiutoooo!

author: oliones

text:
Stefano LD <
lodu...@yahoo.it
> wrote in message
oOwg7.671$423....@news.infostrada.it...

puoi elencare i preggi e i difetti di Delphi rispetto ad Access
ciao


title: Aiutoooo!

text:
oliones <
oli...@tiscalinet.it
> wrote in message
9luass$fds$1...@pegasus.tiscalinet.it...

Probabilmente il mio impulso è dettato dalla rabbia della mia poca
conoscenza di access... comunque trovo access un pò complicato pesche molte
volte per trovare una soluzione si possono scegliere diverse vie...cosa che
dovrebbe essere positiva ma per un neofita crea confusione : macro, codice
VB, Wizart..ecc.. aggiungendo poi il fatto che a seconda di quello che si
usa ci sono sintassi anche differenti (mi pare).
Tutto qui..Delphi è veloce, stabile, lineare.. ma lo sappiamo... è
Borland... e Microsoft ancora oggi detta legge.
Ciao>
>
ti ho chiesto pregi e difetti perchè prossimamente dovrò lavorare con Delphi
(non volevo essere polemico), una delle cose positive di Access è
sicuramente la velocità (semplicità e aiuto da parte del prg Wizart, macro,
maschere e sottomaschere)  con cui poter fare la maggior parte delle cose,
cosa mi aspetta in Delphi ?
il linea di massima la cosa migliore e scrivere del codice vba (non la più
semplice), tieni presente che le macro (e i Wizart) sono un grandissimo
aiuto, quando non riesci a fare una cosa prova a farla con le macro,
trasformale in vba, studia e varia il codice.
ciao


title: [OT] Saludos amigos!

author: Luciano (DOC)

text:
Domani a quest'ora sono in fase di atterraggio sul volo Parigi-Pechino.
A risentirci tra un paio di settimane!
Sayonala! (ops, mi sa che questo lo dicono in Giappone....:-)
Luciano
PS Vi porto in regalo il COMPILATOLE...:-)


title: [OT] Saludos amigos!

author: Antonio Biso

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
9rpt6m$uqdtm$1...@ID-86073.news.dfncis.de...

Un altro che si va a fare il turismo sessuale nel lontano oriente...
Eh eh eh
Antonio


title: [OT] Saludos amigos!

author: Sergio MAZZA

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9rpt6m$uqdtm$1...@ID-86073.news.dfncis.de...

Grrrr! Che invidia!!!!
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


title: Aprire un report a tutto schermo

text:
qualcuno sa come aprire un report in anteprima massimizzatoa tutto schermo?
grazie.


title: Aprire un report a tutto schermo

author: CarloCos

text:
"Tosto73" <
tos...@libero.it
> ha scritto nel messaggio
news:IZ4r7.23818$Lp6.8...@news.infostrada.it...
> qualcuno sa come aprire un report in anteprima massimizzatoa tutto
schermo?
> grazie.
>
>
Guardati docmd.Maximize e docmd.Restore o almeno Maximize e Restore.
Ciao, Carlo


title: x karl Donaubauer - help me!

author: Noperditempograzie

text:
Ciao, mi rivolgo a te attraverso il newsgroup perchè la mia domanda potrebbe
interesare anche altri.
Premetto che sono assolutamente inesperto, mi spiace, mi sto dando da fare
ma non sempre riesco a saltarci fuori.
Il mio problema è indirizzare un report direttamente al fax del server che
chiaramente viene visto come una stampante.
Stampo un report (Report fax preventivi standard) direttamente sulla
stampante predefinita. Il report viene selezionato dal controllo [Entrata
n°] presente nella Form [Preventivi], su evento click di un bottone nella
stessa Form[Preventivi] viene stampato. Il codice che uso è il seguente
Private Sub Stampa_preventivo_standard_Click()
On Error GoTo Err_Stampa_preventivo_standard_Click
    Dim stDocName As String
    stDocName = "Report fax preventivi standard"
    DoCmd.OpenReport stDocName, , , "[Entrata n°]=" & Me.Entrata_n°
Exit_Stampa_preventivo_standard_Click:
    Exit Sub
Err_Stampa_preventivo_standard_Click:
    MsgBox Err.Description
    Resume Exit_Stampa_preventivo_standard_Click
End Sub
Fin qui tutto ok, funziona perfettamente. Il problema mi nasce quando voglio
indirizzare il report al fax.
Ho letto la tua faq 5.1, con A00 devo utilizzare le proprietà PrtMip e
PrtDevMode. Ti chiedevo come dovevo modificare il codice che ti ho scritto,
come devo scrivere le nuove stringhe e dove le devo inserire per far si che
la stampa venga iviata al fax.
So che ti chiedo molto, ma sono veramente all'inizio e a volte la testa mi
fuma.
spero che tu mi possa aiutare, in ogni caso ti ringrazio anticipatamente.
C.


title: x karl Donaubauer - help me!

author: sv

text:
Noperditempograzie ha scritto:


>     Dim stDocName As String

> Exit_Stampa_preventivo_standard_Click:
>     Exit Sub

> End Sub

Vedi:
http://support.microsoft.com/kb/208840/it
e poi
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/acproPrtDevMode.asp
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: x karl Donaubauer - help me!

author: Morgan

text:
"sv" <
sal...@nosp.accessgroup.it
> ha scritto nel messaggio
news:drknue$on$1...@news.newsland.it...

Scusate raga ma il post di Roberto sul fatto che il ng non è un help desk
non è servito a niente?
Morgan


title: x karl Donaubauer - help me!

author: yronium

text:
> Ciao, mi rivolgo a te attraverso il newsgroup perchè la mia domanda
potrebbe
> interesare anche altri.
[...CUT...]
> spero che tu mi possa aiutare, in ogni caso ti ringrazio anticipatamente.
> C.
Caro C., come fanno gli altri a sapere che la tua domanda potrebbe
interesare (sic!) anche a loro, se non metti un titolo che descriva almeno
l'ambito del tuo problema?
Se hai davvero letto la FAQ di Karl, avrai senza dubbio notato l'indirizzo
e-mail per contattarlo direttamente. Scrivere un messaggio personale in una
bacheca pubblica è un segno di discutibilissima educazione, e infatti in
questo (come in molti altri) newsgroup è molto poco tollerata.
Non ho letto - come avranno fatto molti - il corpo del tuo post, e se Karl
avrà la bontà di risponderti sarà soltanto grazie alla sua cortesia, e non
mi stupirebbe se lo facesse davvero, visto che è un signore. Anche in quel
caso però non devi sentirti come uno che si è comportato correttamente:
questo newsgroup è uno strumento potente, e come tutti gli strumenti va
utilizzato nel modo corretto. Il manuale di istruzioni viene pubblicato ogni
decina di giorni con il titolo "[MANIFESTO]", e sembrerebbe che tu non
l'abbia mai letto. Contiene le regolette che gli utenti di questo newsgroup
sono tenuti a rispettare.
Il link dell'ultima pubblicazione è questo:
http://arianna.libero.it/usenet/cgi-bin/ViewArticle.epl?MESSAGE_ID=%3CHELP%2Eit%2Ecomp%2Eappl%2Eaccess%2E13155%40id%2Enews%2Enic%2Eit%3E&TABLES=RECENT_MSG&t=1138648553&QTERMS=[MANIFESTO]&CATEG_PARAM=Computer%20e%20Internet&SOTTOCATEG_PARAM=Software&GRUPPO=it%2Ecomp%2Eappl%2Eaccess
Quindi ti consiglio di leggerlo tutto, e poi postare ancora. Eviterai così
di urtare la suscettibilità degli altri frequentatori.
Ciao e buon lavoro.
PS: io sono quello buono.
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: x karl Donaubauer - help me!

text:
"yronium" <
y...@yy.it
> ha scritto nel messaggio
news:151Z37Z68Z202Y1...@usenet.libero.it...

Ciao,
è una questione di rispetto verso gli altri, avete perfettamente ragione,
chiedo scusa a tutti.
C.


title: x karl Donaubauer - help me!

text:
[CUT]
>>> So che ti chiedo molto, ma sono veramente all'inizio e a volte la testa
>>> mi
>>> fuma.
>>> spero che tu mi possa aiutare, in ogni caso ti ringrazio
>>> anticipatamente.
>>> C.
>>
>> Vedi:
>>
http://support.microsoft.com/kb/208840/it
>>
>> e poi
>>
>>
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/acproPrtDevMode.asp
>>
>> --
>> rgrds
>> SC
>>
>> --
>>
>> questo articolo e` stato inviato via web dal servizio gratuito
>>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>>
> Scusate raga ma il post di Roberto sul fatto che il ng non è un help desk
> non è servito a niente?
>
> Morgan
Ciao Morgan,
chiedo scusa anche a te se ho ferito il tuo spirito di utente di Newsgroup.
Non sono un programmatore esperto come immagino tu sia,  sono solo uno che è
all'inizio, con tutta l'inesperienza del caso e le relative domande poste in
un modo errato.
Scusami ancora se ti ho arrecato qualche disturbo.
C.


title: Delete su dati non corrispondenti

author: Sandrobi

text:
In una tabella uno-a-molti faccio una query di selezione per i dati non
corripondenti. Se provo a convertirla in query di eliminazione mi dice che
non è possibile. Quale sintassi usare per eliminare i record non
corrispondenti?
--
Ciao, Sandrobi


title: Delete su dati non corrispondenti

text:
Sandrobi ha scritto:

Lo fai dal QBE? xchè se la tabella ha dei join Access non sa da quale tabella eliminare.....dovresti utilizzare una procedura intermedia (tipo boolean CANCELLA si/no, lo riempi e poi cancelli SOLO dalla tabella in questione) o andare da codice.....
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Delete su dati non corrispondenti

author: VT @ home

text:
Sandrobi ha scritto:

Se intendi eliminare dalla tabella "lato uno" i record che non hanno
corrispondenti nella tabella "lato molti":
DELETE FROM TabellaUno WHERE ChiavePrimaria NOT IN(SELECT ChiaveEsterna
FROM TabellaMolti)
Se invece intendi eliminare dalla tabella "lato molti" i record che non
hanno corrispondenti nella tabella "lato uno":
DELETE FROM TabellaMolti WHERE ChiaveEsterna NOT IN(SELECT
ChiavePrimaria FROM TabellaUno)
--
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


title: Delete su dati non corrispondenti

text:
"VT @ home" <
v...@home.it
> ha scritto nel messaggio
news:48f999ab$0$14481$5fc...@news.tiscali.it...
> Sandrobi ha scritto:
>> In una tabella uno-a-molti faccio una query di selezione per i dati non
>> corripondenti. Se provo a convertirla in query di eliminazione mi dice
>> che non è possibile. Quale sintassi usare per eliminare i record non
>> corrispondenti?
>>
>
> Se intendi eliminare dalla tabella "lato uno" i record che non hanno
> corrispondenti nella tabella "lato molti":
>
> DELETE FROM TabellaUno WHERE ChiavePrimaria NOT IN(SELECT ChiaveEsterna
> FROM TabellaMolti)
>
> Se invece intendi eliminare dalla tabella "lato molti" i record che non
> hanno corrispondenti nella tabella "lato uno":
>
> DELETE FROM TabellaMolti WHERE ChiaveEsterna NOT IN(SELECT ChiavePrimaria
> FROM TabellaUno)
>
Si, perfetto, grazie.
Inoltre, se i campi sono due (es. anno e numero) basta mettere Anno & Numero
come chiave.
--
Ciao, Sandrobi


title: copiare Tabella da BE a BE

text:
Buonasera atutti.
Non riesco a copiare una tabella da un sorgente_Be ad un altro
destinazione_be, chiaramente dal database Sorgente.mdb (FE). Copia sempre
il collegamento. Uso docmd.copyobject......ma non va.
Un suggerimento sulla sintassi o qualcos'altro?
Grazie
Giampiero.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: copiare Tabella da BE a BE

author: Bruno Campanini

text:
"GP1000" <
GP1...@tiscali.it
> wrote in message
news:e012gp$37c$1...@news.newsland.it...
> Buonasera atutti.
> Non riesco a copiare una tabella da un sorgente_Be ad un altro
> destinazione_be, chiaramente dal database Sorgente.mdb (FE). Copia sempre
> il collegamento. Uso docmd.copyobject......ma non va.
> Un suggerimento sulla sintassi o qualcos'altro?
> Grazie
> Giampiero.
Non è possibile da FE copiare oggetti da BE1 a BE2.
È possibile invece importare in FE oggetti da BE1 indi
gli stessi oggetti esportarli da FE a BE2.
Se sono singole tabelle con un paio di DoCmd.TransferDatabase...
si esegue il tutto; se vi sono relazioni occorre qualche altra riga di
codice.
Bruno


title: copiare Tabella da BE a BE

author: Karl Donaubauer

text:
GP1000 wrote:
> Non riesco a copiare una tabella da un sorgente_Be ad un altro
> destinazione_be, chiaramente dal database Sorgente.mdb (FE). Copia
> sempre il collegamento. Uso docmd.copyobject......ma non va.
> Un suggerimento sulla sintassi o qualcos'altro?
Puoi usare Automazione. Vedi il secondo codice nella
www.donkarl.com/it
 FAQ 1.21.
Per il tuo scopo devi sostituire la riga
appAcc.DoCmd.DeleteObject ...
con
appAcc.DoCmd.CopyObject...
o
appAcc.DoCmd.TransferDatabase...
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: copiare Tabella da BE a BE

text:
Grazie Karl....molto gentile
Giampiero
Karl Donaubauer ha scritto:



--
questo articolo e` stato inviato via web dal servizio gratuito



title: copiare Tabella da BE a BE

text:
Bruno Campanini ha scritto:



> Bruno



title: casella di testo che contenga dati di un campo di un'altra tabella

author: SiNi

text:
Salve a tutti.
Ho un casella di testo non associata in una tabella (che chiamerò
"Tabella_A")
In questa Tabella_A ci sono i seguenti campi: CodPRODOTTO, DESCRIZIONE,
CodFORNITORE e infine CASELLA_DI_TESTO.
Vorrei fare in modo che CASELLA_DI_TESTO mi contenesse il valore del campo
CODICE di una Tabella_B, il valore da ricercare si trova nel campo
CodFORNITORE della Tabella_A.
Qualcuno sa aiutarmi?
Grazie sin d'ora.
S.
--- news://
freenews.netfront.net/
 - complaints:
ne...@netfront.net
 ---