title: Problemi con doppia casella combinata (A2000/W2000) - continua

author: Sergio Della Giora

text:
Ieri Antonio mi ha suggerito :
> me.secondacasellacombinata.rowsource="select .... where criterio=" &
> me.primacasella.value & " ORDER BY ... "
>
> Al posto di ... il nome del campo da ordinare.
>
> Antonio.
ieri sera ho provato e ho capito dove sbagliavo : non mettevo lo spazio tra
la " e ORDER BY.
Grazie cmq per il tuo aiuto, senza il quale non ci sarei arrivato!
Ciao
Sergio Della Giora


author: Antonio Biso

text:
"Sergio Della Giora" <
sergio_d...@infinito.it
> ha scritto nel
messaggio news:at4l9i$107m15$1...@ID-84518.news.dfncis.de...
> Ieri Antonio mi ha suggerito :
Perchè non hai continuato il thread (magari modificando il titolo) invece di
crearne uno nuovo?
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:AslJ9.81$TC5....@twister1.libero.it...

C'hai anche ragione...
sorry è stata una distrazione...  :-)
Sergio Della Giora


title: popolare textbox con data calendario activex

author: Sandro

text:
Ciao ng,
come descritto nel subjact ho il problema di non riuscire a popolare una
casella di testo dal controllo activex del calendario.
Ho visto un vecchio post di Roberto da cui ho estrattyo questo che però non
mi va :
Private Sub CtlActiveX23_Updated(Code As Integer)
    Me!datafattura= Me!CtlActiveX23.Value
    Me!datafattura.SetFocus
    Me!CtlActiveX23.Visible = False
End Sub
mi dite cosa sbaglio ?
Grazie Ciao Sandro


author: SunRex

text:
"Sandro" <
sape...@tiscali.it
> ha scritto nel messaggio
news:cob11f$4j4$1...@lacerta.tiscalinet.it...

Sul sito comune c'è un esempio al riguardo.
SunRex


text:
"SunRex" <
sunrexs...@hotmail.com
> ha scritto nel messaggio
news:hyeqd.416725$35.18...@news4.tin.it...

Mi era proprio sfuggito, grazie ho visto e copiato !!
Sandro
>
>


title: confronto di due stringhe

author: Alberto Luzi

text:
Salve!
Vorrei prendere  questa parte: NC
all'interno di questa stringa
2364_Pippo_NC_Q-325_Pluto_93.pdf

Grazie


title: confronto di due stringhe

author: BFS

text:

se devi estrapolare quello che c'è tra il secondo e il terzo underscore

Dim nomeFile As String
Dim spezza() As String

nomeFile = "2364_Pippo_NC_Q-325_Pluto_93.pdf"
spezza = Split(nomeFile, "_")
MsgBox spezza(2)

BFS


title: confronto di due stringhe

text:

grazie


title: confronto di due stringhe

author: RobertoA

text:

Riccomanderei di spiegare meglio quanto desiderato
Per massimizzare la platea di quelli che leggono e devono pure 'capire'
quel che stai chiedendo
In questo caso la richiesta corretta era:
"..vorressi estrapolare quel che c'è tra il secondo e il terzo underscore.."


title: confronto di due stringhe

author: Bruno Campanini

text:
Alberto Luzi wrote on 14-07-21 :

Qusalunque sia la posizione di "NC" in [Text2]:

===============================
Private Sub Command4_Click()
Dim Part As String, n As Integer

n = InStr(1, [Text2], "NC")
    Part = Mid([Text2], n, 2)
MsgBox Part & "     " & n & "-" & n + 1

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

Bruno


title: confronto di due stringhe

text:

mmm

o ho capito male io o hai capito male tu
suppongo che NC non sia un valore fisso..e quindi la tua soluzione non
funzionerebbe

BFS


title: confronto di due stringhe

text:

grazie a tutti
ma la prima soluzione sembra funzionare


title: confronto di due stringhe

text:

NC non è un valore fisso


title: confronto di due stringhe

text:

Come al solito dici a rate la metà delle cose che servono:
- NC non è un valore fisso
- NC deve trovarsi fra il secondo e il terzo underscore
diversamente nessuna funzione proposta funziona.

Bruno


title: confronto di due stringhe

author: Ammammata

text:
Il giorno Wed 14 Jul 2021 02:49:08p, *Bruno Campanini* ha inviato su
it.comp.appl.access il messaggio news:scmmg3$k3h$
1...@solani.org
. Vediamo cosa
ha scritto:

> Come al solito dici a rate la metà delle cose che servono

gutta cavat lapidem: àbbimo (*) fiducia che le prossime richieste saranno
scritte meglio

(*) neologismo, sta per "che noi si abbia"

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


title: confronto di due stringhe

text:
Il giorno Wed 14 Jul 2021 04:59:57p, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAD67ACEEA8D01am...@127.0.0.1
. Vediamo cosa ha
scritto:

> sta per "che noi si abbia"

sembra un congiuntivo esortativo di lontana memoria di latinorum (cit.
Peppone di Guareschi)



title: confronto di due stringhe

text:

vero,
scusa Bruno


title: Query parametrica

author: Lucio

text:
Salve a tutto il NG,
ho un piccolo problema:
vorrei sapere come far visualizzare ad una query ( i campi sono:
[IdCliente], [DataIntervento], [TipoIntervento]) solo gli ultimi 4 record.
Grazie.
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Query parametrica

author: MA

text:
Lucio wrote:
> Salve a tutto il NG,
> ho un piccolo problema:
> vorrei sapere come far visualizzare ad una query ( i campi sono:
> [IdCliente], [DataIntervento], [TipoIntervento]) solo gli ultimi 4
> record. Grazie.
> Lucio
select top 4 [IdCliente], [DataIntervento], [TipoIntervento] from tutabella
order by DAtaIntervento desc
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Query parametrica

text:
MA ha scritto:
> Lucio wrote:
> > Salve a tutto il NG,
> > ho un piccolo problema:
> > vorrei sapere come far visualizzare ad una query ( i campi sono:
> > [IdCliente], [DataIntervento], [TipoIntervento]) solo gli ultimi 4
> > record. Grazie.
> > Lucio
> select top 4 [IdCliente], [DataIntervento], [TipoIntervento] from tutabella
> order by DAtaIntervento desc
Ci ho provato,
in pratica l'output della query e un sottoreport collegato al report
principale con l'anagrafica, il problema sollevato è questo: prima
ordinavo i dati degli ultimi tre mesi e me li stampava tutti, ora che ho
inserito quanto sopra mi stampa solo un record!
Desumo che quanxlosa non stia funzionando, ma cosa?



title: Query parametrica

author: Roberto dalla campagna

text:
"Lucio" <nap...@NOSPAMtin.it> ha scritto nel messaggio
news:dilnuo$g7b$1...@news.newsland.it...
> MA ha scritto:
>
> > Lucio wrote:
> > > Salve a tutto il NG,
> > > ho un piccolo problema:
> > > vorrei sapere come far visualizzare ad una query ( i campi sono:
> > > [IdCliente], [DataIntervento], [TipoIntervento]) solo gli ultimi 4
> > > record. Grazie.
> > > Lucio
>
> > select top 4 [IdCliente], [DataIntervento], [TipoIntervento] from
tutabella
> > order by DAtaIntervento desc
>
> Ci ho provato,
> in pratica l'output della query e un sottoreport collegato al report
> principale con l'anagrafica, il problema sollevato č questo: prima
> ordinavo i dati degli ultimi tre mesi e me li stampava tutti, ora che ho
> inserito quanto sopra mi stampa solo un record!
> Desumo che quanxlosa non stia funzionando, ma cosa?
> Grazie.
> Lucio
Manca l'ordinamento per IdCliente; prova cosě:
SELECT TOP 4 IdCliente, DataIntervento, TipoIntervento
FROM NomeTabella
ORDER BY IdCliente,  DataIntervento DESC;
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Query parametrica

text:

Hai ragione.
probabilmente in quei 4 uno aveva quell'idcliente e legandolo alla
sottomaschera vedeva solo quello.



title: catturare il nome dell' oggetto attualmente aperto

text:
Salve a tutti, vorrei fare in modo che chi utilizza il mio database ovunque
si trovi, con qualsiasi oggetto aperto report form ecc.. premendo CTRL + 1
mi invii una email in automatico e quello sono riuscito a farlo con la macro
autokeys.
perň vorrei poter catturare il nome dell'oggetto aperto per sapere dove si
trovava il cliente al momento in cui ha riscontrato un errore.
Sapete aiutarmi?
Grazie.


author: Mak

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b0u05k$1fp$1...@lacerta.tiscalinet.it...

Hai giŕ provato con
screen.activeform.name
 /
screen.activereport.name
.
Ti restituisce il nome dell' oggetto form o report attivo nel momento.
Saluti
Mak


author: Giorgio prx

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b0u05k$1fp$1...@lacerta.tiscalinet.it...

Ciao Simba
Cerca nell'help in linea
application.CurrentObjectName
application.CurrentObjectType
Penso possa servirti.
Ciao Giorgio.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b0u05k$1fp$1...@lacerta.tiscalinet.it...

Prova con CodeContextObject sull'Help trovi alcuni esempi.
@Alex.


title: Come realizzare controllo efficace accessi?

text:
Vorrei realizzare un sistema per il controllo degli accessi nel gestionale
Vorrei poter associare ad ogni utente, dei permessi, tipo il
read/write/execute dei file system
Un elenco di oggetti, letti in automatico dagli oggetti presenti nel
database, tabelle, form, report, query
Poi una tabella 'Autorizzazioni' dove per ogni utente esisteranno alcune
righe con il riferimento all'oggetto desiderato ed alle autorizzazioni su
quest'oggetto
Ad esempio l'utente Ciccio potra' entrare in lettura sulla form 'Articoli'
ed in modifica sulla form 'Anagrafiche'
Il problema e', una volta assegnate le autorizzazione ai vari utenti, per le
varie form, report, ecc, come fare a livello di form, report, limitarne le
funzionalita'?
Ovviamente vorrei evitare di includere un 'blocchetto' di codice, dedicato
alla limitazione dei permessi, sempre uguale su tutte le form ed i report e
le query
Insomma, Utenti, Oggetti, Autorizzazioni e poi ?
Ciao e grazie
RobertoA


text:

Questo è solo un esempio molto BANALE... però ti da modo di espanderlo
se puà esserti utile:
http://forum.masterdrive.it/attachments/vba-tutorials-and-how-to-37/852d1267532198-login-sicurezza-form-login_permission.zip
@Alex


text:
> Vorrei realizzare un sistema per il controllo degli accessi nel gestionale
> Vorrei poter associare ad ogni utente, dei permessi, tipo il
> read/write/execute dei file system
> Un elenco di oggetti, letti in automatico dagli oggetti presenti nel
> database, tabelle, form, report, query
> Poi una tabella 'Autorizzazioni' dove per ogni utente esisteranno alcune
> righe con il riferimento all'oggetto desiderato ed alle autorizzazioni su
> quest'oggetto
> Ad esempio l'utente Ciccio potra' entrare in lettura sulla form 'Articoli'
> ed in modifica sulla form 'Anagrafiche'
> Il problema e', una volta assegnate le autorizzazione ai vari utenti, per
> le
> varie form, report, ecc, come fare a livello di form, report, limitarne le
> funzionalita'?
> Ovviamente vorrei evitare di includere un 'blocchetto' di codice, dedicato
> alla limitazione dei permessi, sempre uguale su tutte le form ed i report
> e
> le query
> Insomma, Utenti, Oggetti, Autorizzazioni e poi ?
> Ciao e grazie
> RobertoA
Questo č solo un esempio molto BANALE... perņ ti da modo di espanderlo
se puo' esserti utile:
http://forum.masterdrive.it/attachments/vba-tutorials-and-how-to-37/852d1267532198-login-sicurezza-form-login_permission.zip
---------------------------
Grazie mille
RobertoA


title: FOTO in access???

author: luigi

text:
una cosa che non ho capito bene!
avendo un archivio di foto.bmp in una directory, volendole richiamare in una
tabella di access, magari abbinandole a  campi specifici e quindi vederle,
Access cosa fa? le va a prendere nella directory mano mano che vengono
richiamate o se le incorpora nel suo file? e poi č possibile modificarle,
estrapolarle o utilizzarle per altri scopi con altri programmi?


title: FOTO in access???

author: Roberto da casa

text:
"luigi" <
onof...@tin.it
> ha scritto nel messaggio
news:etih6.13464$ep3.3...@twister1.tin.it...

Fai un giretto sul Sito Comune (link qui sotto); ci sono due FAQ che
trattano dell'ottimizzazione di un archivio immagini con Access.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: msgbox che si chiude terminata elaborazione

text:
Ciao a tutti,

ho una form che esegue determinate operazioni per caricare tabelle
temporanee e altro ancora, quando l'utente decide di eseguirle tramite
pulsante Avvia.
Vorrei visualizzare un box che gli indica l'operazione in corso con
possibilità di annullarla ma che, al termine dell'operazione relativa, si
chiuda da solo per poter poi viasualizzare il successivo.
Riassumendo, una serie di box che mi dicono operazione 1 in corso....
operaione 2 in corso... etc.

Come posso fare?

grazie in anticipo
Nicoletta

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Marco Pizzamiglio

text:
Nicoletta2 ha scritto:

> Ciao a tutti,

> ho una form che esegue determinate operazioni per caricare tabelle
> temporanee e altro ancora, quando l'utente decide di eseguirle tramite
> pulsante Avvia.
> Vorrei visualizzare un box che gli indica l'operazione in corso con
> possibilità di annullarla ma che, al termine dell'operazione relativa, si
> chiuda da solo per poter poi viasualizzare il successivo.
> Riassumendo, una serie di box che mi dicono operazione 1 in corso....
> operaione 2 in corso... etc.
> Come posso fare?
> grazie in anticipo
> Nicoletta

Metti (o fai comparire) sulla maschera un'etichetta o una textbox bloccata
e non abilitata in cui vai a scrivere via codice quello che ti pare.
Metti un pulsante ANNULLA che l'utente può premere quando gli pare.
Però affinché l'utente possa premere sull'ANNULLA mentre Access è
impegnato in altre operazione devi inserire nel codice ogni tanto un
DoEvents, il dove dipende dalle operazioni che fai, ma solitamente si
mette nei cicli.
Ciao.
-Marco-



title: contatore in query con id non progressivo

author: pfmarro

text:
ho una tabella [Produzione] con ID contatore
devo filtrare i dati in base al alcuni criteri (AnnoProduzione, TipoMateriale, Colore)
il risultato vorrei avere una query con un numero progressivo

SELECT (Select Count(*) From _tmp As A Where _tmp.Id < _tmp.Id)+1 AS Progr, *
FROM (SELECT *
WHERE (((Tipo)=1) AND ((Colore)=1) AND ((TipoImballo)=2) AND ((BigBag.BigBagData) Between #1/1/2020# And #12/31/2020#))
ORDER BY ProdData, ProdOra
) AS _tmp;

avete dei suggerimenti?

GRAZIE


text:
Il giorno Wed 22 Jul 2020 04:41:04p, *pfmarro* ha inviato su
it.comp.appl.access il messaggio
news:db964b09-ebba-4c2e...@googlegroups.com
. Vediamo
cosa ha scritto:

> SELECT (Select Count(*) From _tmp As A Where _tmp.Id < _tmp.Id)+1 AS
> Progr, * FROM (SELECT *
> WHERE (((Tipo)=1) AND ((Colore)=1) AND ((TipoImballo)=2) AND
> ((BigBag.BigBagData) Between #1/1/2020# And #12/31/2020#)) ORDER BY
> ProdData, ProdOra ) AS _tmp;
>

a mio avviso nella seconda riga manca un FROM <tabella> dopo SELECT *

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


title: Problema grafico con visible=False o True

author: Raffaele Alberoni

text:
Buongiorno a tutti.
Il problema di oggi è legato ad un effetto che non mi piace nella
visualizzazione di controlli formato Immagine.
Vedo di spiegare nel dettaglio il mio problema:
-Per dare una veste grafica migliore al mio programma ho impostato a
trasparente un pulsante di comando.
-Ho creato due controlli Immagine che hanno due Gif incorporate che
rappresentano un pulsante evidenziato e uno meno evidenziato.
-Sull'evento MouseMove del comando rendo visibile=true uno dei due
controlli immagine e l'altro visible=false.
-Sull'evento MouseMove del Corpo inverto le proprietà di visibilità dei
due controlli di cui sopra.
Ecco il problema che mi si presenta è che fra lo "scambio" di visibilità
dei due controlli, appare un'area grigia della stessa dimensione dei
contolli, che oltre ad essere brutta, rende vano lo "sforzo" grafico.
Da cosa può dipendere??
Saluti.
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c1v37j$pe4$1...@news.newsland.it...
> Buongiorno a tutti.
> Il problema di oggi è legato ad un effetto che non mi piace nella
> visualizzazione di controlli formato Immagine.
> Vedo di spiegare nel dettaglio il mio problema:
> -Per dare una veste grafica migliore al mio programma ho impostato a
> trasparente un pulsante di comando.
> -Ho creato due controlli Immagine che hanno due Gif incorporate che
> rappresentano un pulsante evidenziato e uno meno evidenziato.
> -Sull'evento MouseMove del comando rendo visibile=true uno dei due
> controlli immagine e l'altro visible=false.
> -Sull'evento MouseMove del Corpo inverto le proprietà di visibilità dei
> due controlli di cui sopra.
> Ecco il problema che mi si presenta è che fra lo "scambio" di visibilità
> dei due controlli, appare un'area grigia della stessa dimensione dei
> contolli, che oltre ad essere brutta, rende vano lo "sforzo" grafico.
> Da cosa può dipendere??
> Saluti.
>
>
> --
> Raffaele Alberoni
>
Per risolvere il tuo problema vai sul Sito Comune (link qui sotto) e nella
Sezione Forms leggi la FAQ di Alessandro Baraldi intitolata "Esempio di come
realizzare pulsanti ad effetto tipo OutLook"; naturalmente dai un'occhiata
al database di esempio allegato a quella FAQ.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Roberto da casa ha scritto:


Grazie Roberto per il suggerimento, avevo già visto tempo fa questa cosa e
avevo preso qualche spunto.
Per maggiore certezza ho rifatto la mia procedura seguendo interamente la
logica di Alessandro Baraldi.
Il problema è che questo "sfarfallio" di quadretti grigi rimane.
L'unica differenza è che le mie sono Gif, quelle di Baraldi sono BMP.
Che sia questo il problema??
Adesso provo a convertire le immagini.
Premesso che lo sfondo della maschera è un'altra GIF (colorata di blu).
Premesso anche che l'esempio di Baraldi funziona egregiamente senza
sfarfallii..
Saluti



text:
Raffaele Alberoni ha scritto:




Niente da fare continua lo sfarfallio.
A questo punto mi chiedo se dipende dalle capacità grafiche del computer.
Il che sarebbe un problema, dovendo installare questa applicazione in una
catena di negozi in Franchising... e quindi chissà quali configurazioni
avranno nei loro PC!!!!



text:
Raffaele Alberoni ha scritto:
> Raffaele Alberoni ha scritto:





... Mi sto rispondendo da solo man mano che faccio delle prove. (spero
che questo possa aiutare altri che si trovino nello stesso problema)
Allora la cosa che ho scoperto adesso è che questo sfarfallio ce l'ho solo
nella maschera nella quale ho impostato per "nascondere" ACCESS.
Seguendo gli esempi del Sito Comune, leggendo un post di Karl, ho
impostato la mia maschera in modo che non sia visualizzabile ACCESS, ma
questo da questi problemi, tant'è vero che rimettendo la funzionalità
normale, non ho più gli effetti di sfarfallio !!!!!
Qualcuno ha suggerimenti in proposito???
Saluti.



text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c1vkgp$5e2$1...@news.newsland.it...

Proteggiti dall'eventuale sfarfallio del video tramite l'uso del metodo Echo
(vedi help).



text:



Forse è peggio!!!!
Adesso mi permetto di postarti il codice.... Se ti va di darci un
occhiata!!! Per vedere dove può essere il problema
Option Compare Database
Option Explicit
Dim ArrayPulsanti(0 To 7) As String
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long
Const SW_HIDE = 0
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'ARRAY
Sub CreaArray()
    ArrayPulsanti(0) = "Uscita"
    ArrayPulsanti(1) = "Icona"
    ArrayPulsanti(2) = "Clienti"
    ArrayPulsanti(3) = "Help"
    ArrayPulsanti(4) = "Offerta"
    ArrayPulsanti(5) = "Conto"
    ArrayPulsanti(6) = "Statis"
    ArrayPulsanti(7) = "StatisGraf"
End Sub
Sub CancellaEffetti()
    Application.Echo False
    Dim X As Integer
    For X = 0 To UBound(ArrayPulsanti)
        Me(ArrayPulsanti(X) & "1").SpecialEffect = 0
        Me(ArrayPulsanti(X) & "1").FontBold = False
        Me(ArrayPulsanti(X) & "2").Visible = True
        Me(ArrayPulsanti(X) & "3").Visible = False
    Next
    Application.Echo True
End Sub
Function EffectMe(strControl As String)
    CancellaEffetti
    Application.Echo False
    Me(strControl & "1").SpecialEffect = 0
    Me(strControl & "1").FontBold = True
    Me(strControl & "2").Visible = False
    Me(strControl & "3").Visible = True
    Application.Echo True
End Function
'FORM
Private Sub Form_Open(Cancel As Integer)
    hWindow = Application.hWndAccessApp
    nCmdShow = SW_HIDE
    nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
End Sub
Private Sub Form_Load()
    DoCmd.Restore
    Me.InsideHeight = 10490
    Me.InsideWidth = 15032
    ..
    ..
    CreaArray
End Sub
Private Sub Corpo_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
    CancellaEffetti
End Sub
Saluti.



text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c1vo6k$g44$1...@news.newsland.it...

Mi dispiace ma non sono in grado di dirti quale parte del codice VBA di cui
sopra sia la causa del tuo sfarfallio.



text:



Grazie comunque Roberto per l'interessamento.
Io penso che sia qualcosa legato alle API di Windows, infatti questo
problema ce l'ho solamente quando rendo invisibile la maschera di ACCESS,
in modalità normale non ho nessun problema!!!!



text:
> > Mi dispiace ma non sono in grado di dirti quale parte del codice VBA di cui
> > sopra sia la causa del tuo sfarfallio.
> Grazie comunque Roberto per l'interessamento.
> Io penso che sia qualcosa legato alle API di Windows, infatti questo
> problema ce l'ho solamente quando rendo invisibile la maschera di ACCESS,
> in modalità normale non ho nessun problema!!!!
> Saluti.
Vorrei avere un consiglio se possibile:
Avendo più chiaro il problema e quindi anche il soggetto del post è
diverso, contravvengo alle regole del NG, se invio un nuovo messaggio con
specificato meglio il problema?



text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c21rj6$64j$1...@news.newsland.it...
>
> > > Mi dispiace ma non sono in grado di dirti quale parte del codice VBA
di cui
> > > sopra sia la causa del tuo sfarfallio.
>
>
> > Grazie comunque Roberto per l'interessamento.
> > Io penso che sia qualcosa legato alle API di Windows, infatti questo
> > problema ce l'ho solamente quando rendo invisibile la maschera di
ACCESS,
> > in modalità normale non ho nessun problema!!!!
> > Saluti.
>
> Vorrei avere un consiglio se possibile:
> Avendo più chiaro il problema e quindi anche il soggetto del post è
> diverso, contravvengo alle regole del NG, se invio un nuovo messaggio con
> specificato meglio il problema?
> Saluti.
>
>
>
>
>
> --
> Raffaele Alberoni
Penso che se cambi il subject e specifichi che stai ponendo in modo diverso
un problema già posto ma non risolto, nessuno dovrebbe spararti addosso. ;-)



title: Programma per etichettatura connesso con AS400

text:
Ciao a tutto l'NG.
Scusate se Vi rompo ma ho la necessità di capire perchè succede questo:
ho realizzato una applicazione per etichettatura a livello industriale che
importa una pesante anagrafica da AS400 in locale, per snellire questa
procedura ho implementato una funzione che importa parzialmente l'anagrafica
a seconda dell'utente che accede al programma ( non tutti gli utenti
stampano etichette di tutti i prodotti , quindi ignoro nell'importazione
tutti i record che non servono ).
Su click del comando di importazione eseguo la call a un modulo che con una
condizione if.....else a seconda della presenza di un flag in anagrafica
esegue a sua volta una call o un'altra.
Public Sub ConfermaAggiornAS400()
On Error GoTo Err_ConfermaAggiornAS400
If DLookup("AbilitazioneImportazioneFabbrica", "TabSicurezza", "Utente =
[UtenteOk]") = True Then
    Call AggiornamentoDaAs400AltoProfilo
    Else
    Call ImportazioneDaAs400Parziale
    End If
Err_ConfermaAggiornAS400:
    MsgBox Error$
    Exit Sub
End Sub
Se non sono abilitato quindi eseguo ImportazioneDaAs400Parziale
Public Sub ImportazioneDaAs400Parziale()
Dim TitoloC, MessaggioC, FinestraDialogoC, RispostaC
    Const MBC_YESNO = 4, MBC_ICONSTOP = 48, MBC_DEFBUTTON2 = 256
    Const IDYESC = 6, IDNOC = 7
    TitoloC = "Conferma aggiornamento dati da AS/400"
    MessaggioC = "Confermi l'aggiornamento dell'Anagrafica Prodotti da
AS/400 ? (Attenzione : prima di confermare occorre far scollegare tutti gli
utenti che utulizzano il programma di Stampa Etichette !)"
    FinestraDialogoC = MBC_YESNO + MBC_ICONSTOP + MBC_DEFBUTTON2
    RispostaC = MsgBox(MessaggioC, FinestraDialogoC, TitoloC)
    If RispostaC = IDYESC Then
        DoCmd.OpenQuery "SvuotaTabAnaArticoliLingua"
        DoCmd.OpenQuery "EstrazioneDatiDaAnpa200f_NO_FAB"
        MsgBox "Aggiornamento dati da AS/400 completato !", vbInformation
    Else: Exit Sub
        End If
End Sub
Ora la domanda, tutto funziona regolarmente tranne che per il fatto che al
termine dell'importazione dopo il MsgBox di conferma dell'avvenuta
importazione mi compaiono sul video 2 o 3 finestre che sembrano quelle
classiche di errore con niente scritto dentro e che non posso fare altro che
chiudere per continuare nell'applicazione.
Come diavolo le evito?
Ho sbagiato qualche cosa nelle routine?
Vi ringrazio tutti anticipatamente..........


author: Marco

text:
"Oracle73" <
silvio....@libero.it
> ha scritto nel messaggio
news:QpNwa.4001$lK4....@twister1.libero.it...

Anch'io normalmente uso file AS/400 per le applicazioni access ma non ti
conviente usare il collegamento ODBC per gestire le tabelle AS/400?
Eviti il caricamento dei dati e non uccidi la tua rete con un carico di
lavoro esagerato
Per le routine mi sembrano scritte bene
Marco


text:
Il collegamento lo offettuo in ODBC per importare in locale i dati, non lo
faccio on line in quanto il tracciato record è impressionante, ho dovuto
costruire diverse viste logiche in quanto Access non era in grado di
leggerlo tutto di botto, cronometro alla mano comunque impiego 25 - 30
secondi al massimo per importare i dati in locale e lo si fa una volta al
giorno.
Adesso comunque sto implementando una gestione a Release Record, ossia in un
campo su AS numero progressivamenteo ogni modifica fatta a un  record,
all'atto del collegamento ad AS importo ovviamente solo i record che hanno
RELEASE superiore a quella che ho su Access.
Ti ringrazio per il consiglio ma non sai proprio dirmi cosa sono quelle
finestre che mi compaiono?
Sembra che esca dalla routine con un errore o nella maniera errata......
Se hai idee......
Grazie.



author: Lorenzo Bolognini

text:
"Oracle73" <
silvio....@libero.it
> ha scritto nel messaggio
news:LUNwa.4360$Ny5....@twister2.libero.it...
> Il collegamento lo offettuo in ODBC per importare in locale i dati,
non lo
Non usare ODBC, usa OLEDB con ADO se hai A2k... mai provato a usare
ADO con A97... funziona?
> Ti ringrazio per il consiglio ma non sai proprio dirmi cosa sono
quelle
> finestre che mi compaiono?
Non ne ho idea ma il buon senso mi direbbe di testarle con l'ultima
release stabile di Access patchata che hai a disposizione.
Lorenzo


author: Paolo opg

text:
"Oracle73" <
silvio....@libero.it
> wrote in
news:QpNwa.4001$
lK4....@twister1.libero.it
:
> Ciao a tutto l'NG.
>
> Scusate se Vi rompo ma ho la necessità di capire perchè succede
> questo:
>
> ho realizzato una applicazione per etichettatura a livello industriale
> che importa una pesante anagrafica da AS400 in locale, per snellire
> questa procedura ho implementato una funzione che importa parzialmente
> l'anagrafica a seconda dell'utente che accede al programma ( non tutti
> gli utenti stampano etichette di tutti i prodotti , quindi ignoro
> nell'importazione tutti i record che non servono ).
>
> Su click del comando di importazione eseguo la call a un modulo che
> con una condizione if.....else a seconda della presenza di un flag in
> anagrafica esegue a sua volta una call o un'altra.
>
> Public Sub ConfermaAggiornAS400()
> On Error GoTo Err_ConfermaAggiornAS400
> If DLookup("AbilitazioneImportazioneFabbrica", "TabSicurezza", "Utente
> = [UtenteOk]") = True Then
>     Call AggiornamentoDaAs400AltoProfilo
>     Else
>     Call ImportazioneDaAs400Parziale
>     End If
--> l'errore sta qui
> Err_ConfermaAggiornAS400:
>     MsgBox Error$
>     Exit Sub
> End Sub
>
manca l'uscita dalla routine prima della gestione dell'errore.
se non hai errori, la tua routine esegue l'if-else e poi non esce, ma
passa ad eseguire la routine Err_ConfermaAggiornAS400, dato che non hai
messo l'uscita dalla routine.
--
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------


text:
> manca l'uscita dalla routine prima della gestione dell'errore.
> se non hai errori, la tua routine esegue l'if-else e poi non esce, ma
> passa ad eseguire la routine Err_ConfermaAggiornAS400, dato che non hai
> messo l'uscita dalla routine.
Ti ringrazio sinceramente, ho risolto il problema.
Come sempre quando si fanno degli errori cosě stupidi, si passa un sacco di
tempo a battere la testa contro le stesse cose senza vedere quello che č
evidente.
Ti ringrazio ancora.
SILVIO



title: Tastiera su monitor touch screen

author: Claudio Reale

text:
Salve a tutti
Ben trovati,
è da molto che non scrivo sul newsgroup, ma sicuramente vi leggo sempre.
L'esigenza che mi si presenta è quella di poter creare una tastiera su
monitor e poterla utilizzare con touch screen
Ho già creato una maschera con tutti i pulsati, un primo tentativo è quello
di creare una casella non associata e ad ogni pressione di una lettera
Me.display = Me.display & "a"
il back space l'ho inpostato con OldValue
Forse esiste una strada più semplice spero possiate aiutarmi.
Il problema è, se seguo questra strada intrapresa, come restituire il testo
creato sulla casella display all'ultima casella attiva destinataria del
testo scritto.
Spero di essere stato chiaro, e nella speranza di ricevere vostri preziosi
consigli rinnovo il mio bentrovati
a presto
CLaudio


title: Tastiera su monitor touch screen

author: ALESSANDRO Baraldi

text:
"Claudio Reale" <
reale....@virgilio.it
> ha scritto nel messaggio
news:IdnXd.1026545$35.38...@news4.tin.it...

Non sò con precisione come funzioni il touch screen, ma ipotizzo che
esegua l'evento dietro il controllo...!
Perchè invece delle caselle non associate no metti dei CommandButton.
Il touch screen dovrebbe generare l'evento Click, e dovrebbe essere
estremamente
più semplice con una Funzione sola fare tutto.
Quello che devi verificare è come il touch screen manifesta il suo modo di
funzionare
nei confronti dei controlli che visualizzi.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Tastiera su monitor touch screen

text:
> Non sò con precisione come funzioni il touch screen, ma ipotizzo che
> esegua l'evento dietro il controllo...!
> Perchè invece delle caselle non associate no metti dei CommandButton.
> Il touch screen dovrebbe generare l'evento Click, e dovrebbe essere
> estremamente
> più semplice con una Funzione sola fare tutto.
Potresti indirizzarmi su come impostare questa funzione
> Quello che devi verificare è come il touch screen manifesta il suo modo di
> funzionare
Ma io non mi preoccupo come funziona il touch screen allo stato.
infatti le prove le faccio con un monitor normale e i pulsanti li attivo con
il mouse, in modo che vi sia una funzionalità universale
non univocamente legata al touch screen o a quel tipo di monitor, non so se
ho reso l'ideao
> nei confronti dei controlli che visualizzi.
>
> Ciao
> --
> @Alex (Alessandro Baraldi)
Ciao
Claudio


title: Tastiera su monitor touch screen

text:
"Claudio Reale" <
reale....@virgilio.it
> ha scritto nel messaggio
news:8ToXd.1027062$35.38...@news4.tin.it...

Su evento Click invece di richiamare la procedura Evento metti così:
=Scrivi()
quindi nel codice:
Private Function Scrivi()
    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto &
Screen.Activecontrol.Name
End Function
Ovviamente il Nome del CommandButton deve essere quello del Carattere,
alternativa
è quella di sfruttare la proprietà TAG del controllo ed inserire li la
lettera da prelevare, in
quel caso la funzione sarebbe:
Private Function Scrivi()
    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto & Screen.Activecontrol.TAG
End Function
Ciao
--
@Alex (Alessandro Baraldi)



title: Tastiera su monitor touch screen

author: Rick - Pipino

text:
"Claudio Reale" ha scritto
>
>> Non sò con precisione come funzioni il touch screen, ma ipotizzo che
>> esegua l'evento dietro il controllo...!
>> Perchè invece delle caselle non associate no metti dei CommandButton.
>> Il touch screen dovrebbe generare l'evento Click, e dovrebbe essere
>> estremamente
>> più semplice con una Funzione sola fare tutto.
>
> Potresti indirizzarmi su come impostare questa funzione
>
>
>
>> Quello che devi verificare è come il touch screen manifesta il suo modo
>> di funzionare
> Ma io non mi preoccupo come funziona il touch screen allo stato.
> infatti le prove le faccio con un monitor normale e i pulsanti li attivo
> con il mouse, in modo che vi sia una funzionalità universale
> non univocamente legata al touch screen o a quel tipo di monitor, non so
> se ho reso l'ideao
Credo tu faccia bene a lavorare come se si trattasse di un mouse.
Feci delle cose con un touch screen parecchi anni fa (quando i touch screen
in commercio facevano pietà) e una volta installate le driver questo si
comportava esattamente come un mouse.
Peraltro a suo tempo il touch screen era talmente inaffidabile che
ripiegammo su una trackball (ossia un mouse rovesciato), ed il software
rimase lo stesso.
Rick


title: Tastiera su monitor touch screen

text:
> Credo tu faccia bene a lavorare come se si trattasse di un mouse.
> Feci delle cose con un touch screen parecchi anni fa (quando i touch
> screen in commercio facevano pietą) e una volta installate le driver
> questo si comportava esattamente come un mouse.
> Peraltro a suo tempo il touch screen era talmente inaffidabile che
> ripiegammo su una trackball (ossia un mouse rovesciato), ed il software
> rimase lo stesso.
> Rick
Speriamo che ci riesca a prescindere ;-)
Ciao
CLaudio


title: Tastiera su monitor touch screen

text:
> Su evento Click invece di richiamare la procedura Evento metti così:
>
> =Scrivi()
>
> quindi nel codice:
>
> Private Function Scrivi()
>    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto &
Screen.Activecontrol.Name
> End Function
Questa funziona va benissimo, il mio unico problema è però il trasferimento
dei dati scritti nella casella che mi interessa.
Mi spiego meglio
La tastiera ha valore universale, cioè usabile su più maschere e su più
caselle di testo.
Aperta una maschera, selezionata la casella di testo io dovrei iniziare a
scrivere su quella casella,
pensavo di inserire in una variabile il valore dell'ultima casella
selezionata (quella appunto su cui devo scrivere) e dopo aver scritto sulla
Casella di testo DISPLAY, trasferire su quella con il tasto invio
coplicato?? fattibile?? altre soluzioni??
grazie
Claudio


title: Tastiera su monitor touch screen

text:
"Claudio Reale" <
reale....@virgilio.it
> ha scritto nel messaggio
news:B%GXd.637458$b5.29...@news3.tin.it...
>> Su evento Click invece di richiamare la procedura Evento metti cosě:
>>
>> =Scrivi()
>>
>> quindi nel codice:
>>
>> Private Function Scrivi()
>>    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto &
>>
Screen.Activecontrol.Name
>> End Function
>
> Questa funziona va benissimo, il mio unico problema č perň il
> trasferimento dei dati scritti nella casella che mi interessa.
> Mi spiego meglio
> La tastiera ha valore universale, cioč usabile su piů maschere e su piů
> caselle di testo.
> Aperta una maschera, selezionata la casella di testo io dovrei iniziare a
> scrivere su quella casella,
> pensavo di inserire in una variabile il valore dell'ultima casella
> selezionata (quella appunto su cui devo scrivere) e dopo aver scritto
> sulla Casella di testo DISPLAY, trasferire su quella con il tasto invio
> coplicato?? fattibile?? altre soluzioni??
> grazie
>
> Claudio
>
Non puoi usare
Screen.activecontrol.name
 perchč nel momento in cui "scrivi" lui ti porta il
focus sulla lettera
L'unica (che mi viene in mente) č mettere dei Tag nei controlli dove scrivi
e su enter
di questi controlli scrivi una variabile pubblica che ti identifica il nome
del controllo
MAssimiliano


title: Tastiera su monitor touch screen

text:
"Claudio Reale" <
reale....@virgilio.it
> ha scritto nel messaggio
news:B%GXd.637458$b5.29...@news3.tin.it...
> > Su evento Click invece di richiamare la procedura Evento metti cosě:
> >
> > =Scrivi()
> >
> > quindi nel codice:
> >
> > Private Function Scrivi()
> >    me.txtCalsellaDiTesto=me.txtCalsellaDiTesto &
Screen.Activecontrol.Name
> > End Function
>
> Questa funziona va benissimo, il mio unico problema č perň il
trasferimento
> dei dati scritti nella casella che mi interessa.
> Mi spiego meglio
> La tastiera ha valore universale, cioč usabile su piů maschere e su piů
> caselle di testo.
> Aperta una maschera, selezionata la casella di testo io dovrei iniziare a
> scrivere su quella casella,
> pensavo di inserire in una variabile il valore dell'ultima casella
> selezionata (quella appunto su cui devo scrivere) e dopo aver scritto
sulla
> Casella di testo DISPLAY, trasferire su quella con il tasto invio
> coplicato?? fattibile?? altre soluzioni??
> grazie
>
> Claudio
Gestisci l'Evento su Attivato della TextBox e chiama una funzione in un
Modulo:
'------------- METTI TUTTO IN UN MODULO -------------------------
Public actCtl    as Access.Control
Public Function SetActiveControl()
    actCtl=Screen.ActiveControl
End Function
Public Function Scrivi()
    actCtl=actCtl &
Screen.Activecontrol.Name



title: Tastiera su monitor touch screen

text:
> Gestisci l'Evento su Attivato della TextBox e chiama una funzione in un
> Modulo:
>
> '------------- METTI TUTTO IN UN MODULO -------------------------
>
> Public actCtl    as Access.Control
>
> Public Function SetActiveControl()
>    actCtl=Screen.ActiveControl
> End Function
>
> Public Function Scrivi()
>    actCtl=actCtl &
Screen.Activecontrol.Name
> End Function
Mi da variabile oggetto non impostata
non capisco perchè
eppure mi sempra sia impostata
CLaudio



title: Tastiera su monitor touch screen

text:
"> '------------- METTI TUTTO IN UN MODULO -------------------------
>
> Public actCtl    as Access.Control
>
> Public Function SetActiveControl()
>    actCtl=Screen.ActiveControl
> End Function
>
> Public Function Scrivi()
>    actCtl=actCtl &
Screen.Activecontrol.Name
> End Function
EVVAIIII
grazie Alex ho risolto sembra che funzioni
ti faccio sapere adesso faccio alcune prove
ciao
Claudio



title: Access e Windows CE

text:
Qualcuno mi sa dire se è possibile far girare un applicativo access
su un palmare con S.O. Windows CE e se si se ci sono delle limitazioni?
Grazie Bobbit


title: Access e Windows CE

author: Basjlico

text:
in Wed, 03 May 2000 12:44:14 GMT , Mr. "bobbit_barton"
<
bobbit...@wappi.com
> wrote:
>Qualcuno mi sa dire se č possibile far girare un applicativo access
>su un palmare con S.O. Windows CE e se si se ci sono delle limitazioni?
>
>Grazie Bobbit
>
Non che sia un grnade esperto, ma non credo proprio si possa fare. Per
scrivere programmi per CE ci vuole un apposito kit della MS che si
aggiunge agli applicativi visual studio. Il modo piů semplice č
riscrivere il programma con VB6 che con i db non č niente male.
Ciao


title: Access e Windows CE

author: Enrico Zimuel

text:
On Wed, 03 May 2000 12:44:14 GMT, "bobbit_barton"
<
bobbit...@wappi.com
> wrote:
>Qualcuno mi sa dire se è possibile far girare un applicativo access
>su un palmare con S.O. Windows CE e se si se ci sono delle limitazioni?
Non è possibile far girare applicazioni Access in Windows CE, il
Microsoft Jet è troppo pesante per i sistemi palmari, l'unica cosa che
puoi fare e convertire le tabelle in un formato "particolare" per
Windows CE (con il software Windows Async della Microsoft) e rifare un
front-end in Visual Basic o Visual C++ (con gli SDK per Windows CE).
Per maggiori info:
http://www.microsoft.com/windows/embedded/ce/default.asp
Saluti da
Enrico Zimuel


title: Access e Windows CE

author: Paolo Holzl

text:
>Qualcuno mi sa dire se è possibile far girare un applicativo access
>su un palmare con S.O. Windows CE e se si se ci sono delle limitazioni?
Non si puo'.
Si puo' invece trasferire il database su un CBT e gestirlo con un
piccolo Access che ti consente di editare le tabelle e fare delle
minime query.
Il linguaggio e' tutt'altro anche perche' la programmazione CE ha una
logica assolutamente diversa da quella sotto PC.
----------------------------------------------------------
Paolo Hölzl
Gruppo Tekup Software developer (Bologna)
----------------------------------------------------------
ATTENTION!, antispam
For reply, substitute xxx with gruppotekup


title: Calcoli tra date

author: Gianden

text:
Buona sera
Avrei bisogno di un aiuto per risolvere questo mio problema con un db, cioč
calcolare una data dopo 150 giorni lavorativi dalla prima data
es:
prima data +150gg lavorativi(eliminare sabato e domenica) = ??
E' possibile secondo voi?
---
Saluti
Non sopprimere un idea, trasformala!
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.796 / Virus Database: 540 - Release Date: 13/11/2004


title: Calcoli tra date

author: Carlo Costarella

text:
"Gianden" <
g_de...@tin.it
> ha scritto nel messaggio
news:wg8nd.187988$b5.93...@news3.tin.it...
> Buona sera
> Avrei bisogno di un aiuto per risolvere questo mio problema con un db,
> cioè calcolare una data dopo 150 giorni lavorativi dalla prima data
> es:
> prima data +150gg lavorativi(eliminare sabato e domenica) = ??
> E' possibile secondo voi?
>
>
> ---
> Saluti
>
> Non sopprimere un idea, trasformala!
Ciao Gianden
certo che è possibile.
La funzione chiave è DatePart che, tra l'altro, può dirti il giorno della
settimana. Nel tuo caso se nelle impostazioni dell'intervallo usi "w"
otterrai il giorno. Un semplice If...Then...Else ti permetterà di
incrementare il tuo contatore o meno fino al numero di 150.
In pratica in un ciclo di For data la prima data incrementi di un giorno e
passi questa nuova data alla funzione DatePart, se questa restituisce un "w"
diverso da sabato o domenica incrementi di uno un contatore. Il tutto fino a
raggiungere 150. Reggiunto tale valore ti sarà sufficiente leggere la data
ottenuta: quella sarà la data finale esattamente dopo 150 giorni lavorativi.
Ciao, Carlo


title: Calcoli tra date

text:

Grazie della celere risposta Carlo ma mi potresti fare un piccolo esempio di
codice grazie
Gianni
---
Saluti
Non sopprimere un idea, trasformala!
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.798 / Virus Database: 542 - Release Date: 18/11/2004


title: Calcoli tra date

text:
"Gianden" <
g_de...@tin.it
> ha scritto nel messaggio
news:WMjnd.360662$35.16...@news4.tin.it...

cut
Ci fate sempre lavorare...
eccoti un esempio:
Function Data150(Unadata As Date) As Date
Dim MiaData As Date
MiaData = Format(Unadata, "dd/mm/yyyy")
Dim i As Integer, gg As Integer
gg = 0
For i = 1 To 300
    MiaData = MiaData + 1
        If DatePart("w", MiaData, vbMonday) < 6 Then
        gg = gg + 1
        Else
        gg = gg
        End If
        If gg = 150 Then
        Data150 = MiaData
        'Debug.Print MiaData
        Exit For
        End If
Next i
End Function
Inserendo:
Data150(#01/01/2004#)
ottieni 29/07/2004
Ciao, Carlo


title: Calcoli tra date

text:

> Grazie sei gentilissimo
Gianni
>
---
Saluti
Non sopprimere un idea, trasformala!
Checked by AVG anti-virus system (
http://www.grisoft.com
).



title: problemi con EXISTS in sottoquery (era SQL e Query)

author: cio

text:
Ciao, scusate se riposto ma č proprio urgente... e mi sono incartato...
ho questo SQL dove voglio creare una tabella che una volta confrontati i
campi codice fiscale mi restituisca i valori non corrispondenti:
SELECT *
FROM POSTEL
WHERE POSTEL.CODFISC
NOT IN
(SELECT POSTEL.*
FROM CF17000 INNER JOIN POSTEL ON CF17000.COD_FISCALE = POSTEL.CODFISC;);
mi dice perň che  "E' stata scritta una sottoquey che puň restituire piů
campi senza utilizzare la parola chiave riservata EXISTS nella proposizione
FROM della quey principale. Modificare l'istruzione SELECT della sottoquey
per richiedere soltanto un campo."
Come mi devo comportare? Non so come si utilizza l'EXISTS e non vorrei
creare pasticci...
Excelsior,
Stefano


author: Giorgio Prx

text:
"cio" <
pi...@hotmail.com
> ha scritto nel messaggio
news:bdgvs6$bgc$1...@lacerta.tiscalinet.it...

Ciao Stefano
Hai fatto un mix di due query differenti che portano allo stesso risultato
Prima query che utilizza NOT IN
--------------------------------
 SELECT *
 FROM POSTEL
 WHERE POSTEL.CODFISC
 NOT IN
 (SELECT COD_FISCALE
  FROM CF17000 ;);
--------------------------------
La seconda che utilizza la JOIN
-------------------------------
 SELECT *
 FROM POSTEL  LEFT JOIN CF17000
 ON CF17000.COD_FISCALE = POSTEL.CODFISC
 WHERE CF17000.COD_FISCALE IS NULL
------------------------------
Ciao Giorgio.


author: Roberto da casa

text:
"cio" <
pi...@hotmail.com
> ha scritto nel messaggio
news:bdgvs6$bgc$1...@lacerta.tiscalinet.it...

Prova cosě:
SELECT *
FROM POSTEL
WHERE POSTEL.CODFISC
NOT IN
(SELECT POSTEL.CODFISC
FROM CF17000 INNER JOIN POSTEL ON CF17000.COD_FISCALE = POSTEL.CODFISC;);
> Excelsior,
> Stefano
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:FKTKa.124516$Ny5.3...@twister2.libero.it...

Attenzione!! questa query non restituisce nessun record.
Ciao Giorgio


text:
"Giorgio Prx" <
giorgio...@tiscali.it
> ha scritto nel messaggio
news:bdh1ce$c5j$1...@lacerta.tiscalinet.it...

Hai ragione. :-(



text:
"Giorgio Prx" <
giorgio...@tiscali.it
> ha scritto nel messaggio
news:bdh172$c3b$1...@lacerta.tiscalinet.it...
>
> "cio" <
pi...@hotmail.com
> ha scritto nel messaggio
> news:bdgvs6$bgc$1...@lacerta.tiscalinet.it...
> > Ciao, scusate se riposto ma è proprio urgente... e mi sono incartato...
Per completezza
Terza Query con EXIST
------------------------
 SELECT *
 FROM POSTEL
 WHERE NOT EXIST
(SELECT *
 FROM CF17000
 WHERE CF17000.COD_FISCALE = POSTEL.CODFISC;);
Ciao Giorgio.


title: consiglio per gestire Rf pagate e non pagate

author: Giorgia

text:
Buongiorno a tutti,
qualcuno saprebbe consigliarmi come poter gestire questa situazione?
- registro una ricevuta fiscale non pagata che segue un numero di protocollo
in data odierna;
- domani, quando ricevo l'incasso, dovrò emettere la rf pagata per la
suddetta rf non pagata (stesso importo, stessi conti di costo), che segue lo
stesso contatore del protocollo.
Pensavo di aggiungere una casella combinata nella form di inserimento [NUOVA
RF] in cui si scelga se inserire la rf "pagata" o "impagata":
- nel primo caso, si potranno inserire tutti i dati, gli importi, i conti di
costo e la data di scadenza andandola a inserire nello scadenzario.
- nel secondo caso dovrebbero copiarsi automaticamente tutti i dati già
inseriti e inserire solo la data e la modalità di pagamento, andando poi ad
aggiornare lo scadenzario.
Com'è possibile richiamare i dati come ho spiegato sopra specificando che la
form [NUOVA RF] è formata dalla tabella "RF"  in cui ci sono i dati
dell'intestazione della rf e la tabella "DETTAGLI RF" in cui ci sono i dati
dei conti di costo?
Grazie
Giorgia


author: Antonio Biso

text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:iqqucu$3hq$1...@speranza.aioe.org...

ma la rf è una, non ci sono due rf, pagata e non pagata
semplicemente in un caso non ci sono i dettagli e gli importi nell'altro si
se inserisci subito i dati è pagata, se non li inserisci la recuperi
selezionandola tra le non pagate e ricominci aggiungendo i dati di costo
Antonio


text:
"Antonio Biso" <
ab...@libero.it
> ha scritto nel messaggio
news:iqt3lk$85t$2...@speranza.aioe.org...

Eh no caro Antonio, fosse così l'avrei gestita come per le semplici fatture
d'acquisto che da impagate diventano pagate al momento del pagamento.
Per la nostra gestione, trattasi di carrozzeria, abbiamo necessità di
emettere una rf non pagata da mandare alle assicurazioni per quantificare il
danno. Nel momento in cui il danno viene concordato e  pagato, emettiamo la
rf pagata ma che avrà un nuovo numero di protocollo e nella descrizione la
dicitura "riferimento ns rf n.XXX".
Giorgia


text:
"Giorgia" <
tabat...@yahoo.it
> ha scritto nel messaggio
news:iqtcjo$sc7$1...@speranza.aioe.org...
>
>> ma la rf è una, non ci sono due rf, pagata e non pagata
>> semplicemente in un caso non ci sono i dettagli e gli importi nell'altro
>> si
>>
>> se inserisci subito i dati è pagata, se non li inserisci la recuperi
>> selezionandola tra le non pagate e ricominci aggiungendo i dati di costo
>>
>> Antonio
> Eh no caro Antonio, fosse così l'avrei gestita come per le semplici
> fatture d'acquisto che da impagate diventano pagate al momento del
> pagamento.
> Per la nostra gestione, trattasi di carrozzeria, abbiamo necessità di
> emettere una rf non pagata da mandare alle assicurazioni per quantificare
> il danno. Nel momento in cui il danno viene concordato e  pagato,
> emettiamo la rf pagata ma che avrà un nuovo numero di protocollo e nella
> descrizione la dicitura "riferimento ns rf n.XXX".
>
> Giorgia
mah, non sono un contabile ma qualche lavoretto per i contabili l'ho fatto
trovo strano che ci sia qualcosa di fiscale che giri non pagato
una volta c'erano i preventivi, e il saldo a fattura emessa
cmq, non vedo dove sia il problema
basta mettere un campo che leghi l'ID della rf non pagata con la tabella
delle rf pagate dove ci sono solo i costi e il resto dell'intestazione lo
peschi nella tabella delle rf non pagate
Antonio


title: Creare Campo numeratore

author: Noce

text:
Ciao al ng!
E' possibile creare un campo numeratore che non sia di tipo contatore, ma
numerico?
Ne avrei bisogno per numerare in automatico ed in ordine crescente (da 1 a
XXX) l'inserimento di  nuovi record, e di avere la possibilità di
modificarlo quando voglio (esempio a fine anno riazzerarlo)
Si può fare?come?
Ciao e Grazie


title: Creare Campo numeratore

author: Alex

text:
"Noce" <
no...@iol.it
> wrote in message
news:rrYU7.349429$sq5.16...@news.infostrada.it...

Si devi definire il Campo Numerico(Intero Lungo), ma poi per la progressione
automatica devi inserire una Funzione nel Valore predefinito del Controllo
Legato al Campo all'interno della MASCHERA.
Ti ho confuso bene....???
In valore predefinito devi mettere:
=Dmax("[NomeTuoCampo]","NomeTabella")+1
In questo modo ad ogni NEW_RECORD il numero si incrementa di 1.
@Alex
--
Posted from  [62.98.10.230]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Creare Campo numeratore

text:
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:4b896e9317cae6f5e9...@mygate.mailgate.org...
> In valore predefinito devi mettere:
> =Dmax("[NomeTuoCampo]","NomeTabella")+1
>
> In questo modo ad ogni NEW_RECORD il numero si incrementa di 1.
Mettendo l'espressione da te suggerita in valore predefinito del campo
(nella maschera) ricevo un errore del tipo"Errore di sintassi
nell'espressione...operatore mancante....)"
Per portarti un esempio la tabella su cui vorrei aggiungere il numeratore si
chiama "1_Ordini di Reso" ed il campo numeratore "NumeroOrdineReso"
Come la devo impostare? L'espressione la devo impostare nella tabella o
nella maschera?
Ciao e Grazie


title: Creare Campo numeratore

text:
"Noce" <
no...@iol.it
> wrote in message
news:Ar2V7.351111$sq5.17...@news.infostrada.it...
> Mettendo l'espressione da te suggerita in valore predefinito del campo
> (nella maschera) ricevo un errore del tipo"Errore di sintassi
> nell'espressione...operatore mancante....)"
>
> Per portarti un esempio la tabella su cui vorrei aggiungere il numeratore si
> chiama "1_Ordini di Reso" ed il campo numeratore "NumeroOrdineReso"
> Come la devo impostare? L'espressione la devo impostare nella tabella o
> nella maschera?
> Ciao e Grazie
Hai ragione, c'è un errore di sintassi, ho scritto a MEMORIA, ma il tuo tasto
F1 dovrebbe funzionare bene, se premi e digiti DMAX scopri il Baco:
Serve il ";" invece della ","
=Dmax("[NumeroOrdineReso]";"1_Ordini di Reso")+1
@Alex
--
Posted from  [62.98.28.225]



title: Creare Campo numeratore

text:
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:bec13aad08467a3f4d...@mygate.mailgate.org...
> Hai ragione, c'è un errore di sintassi, ho scritto a MEMORIA, ma il tuo
tasto
> F1 dovrebbe funzionare bene, se premi e digiti DMAX scopri il Baco:
> Serve il ";" invece della ","
>
> =Dmax("[NumeroOrdineReso]";"1_Ordini di Reso")+1
Grazie mi sei stato molto di aiuto!
TI chiederei cortesemente un'altra info...che espressione devo mettere in
una maschera per far si che crei un nuovo record nel momento in cui la apro?
Ciao e Grazie ancora!


title: Creare Campo numeratore

text:
"Noce" <
no...@iol.it
> wrote in message
news:f4aV7.353009$sq5.17...@news.infostrada.it...

> TI chiederei cortesemente un'altra info...che espressione devo mettere in
> una maschera per far si che crei un nuovo record nel momento in cui la apro?
>
> Ciao e Grazie ancora!
Hai 2 metodi:
1)Quando la chiami in apertura:
DoCmd.OpenForm "NomeForm", acNormal, , , acFormAdd
2)Su Evento OPEN inserisci una riga di Comando:
DoCmd.GoToRecord , , , acNewRec
@Alex
--
Posted from  [62.98.108.89]



title: Esercizio di stile di SQL su query, sottoquery e criteri

author: Michele Salcone

text:
Buonasera,
vi propono un "esercizio di stile di SQL".
Ho una query con una sola tabella da cui visualizzo il campo raggruppato ID e poi calcolo i campi espressione Importo1, Importo2, Importo3 e Importo4 con delle sottoquery, del tipo "Importo1: (Select .....)".
Anche inserendo dei criteri sotto i campi Importo1 2 3 e 4, la query funziona correttamente.
Avendo la necessità di calcolare la somma algebrica degli importi, ho inserito il campo Totale: nz([Importo1])+nz([Importo2])-nz([Importo3])-nz([Importo4]); la query funziona ancora egregiamente.

Nel momento in cui indico un criterio sotto il campo Totale (ad es. <>0), eseguendo la query, Access mi chiede di "immettere un valore parametro" per ogni campo importo (quindi 4 richieste).
Ho riscritto il campo Totale così -> Totale: nz((Select...))+nz((Select...))-nz((Select...))-nz((Select...)) ma il testo è troppo lungo.
Facendo un tentativo con meno caratteri, tipo Totale: nz((Select...))+nz((Select...)) e inserendo il criterio <>0, la prima query funziona.

Ho risolto creando un'altra query che riporta tutti i campi della prima query con il solo criterio <>0 sotto il campo Totale ed ottengo ciò che mi aspetto!
Ma se volessi evitare la seconda query (ecco qui l'esercizio di stile)?
Come si può evitare la creazione della seconda query?

Grazie


author: Davide La Mantia

text:

C'è un limite al numero di caratteri utilizzabili in una query, l'uso di una seconda query è la scelta più adeguata, talvolta la migliore anche quando tutto potrebbe entrare in un'unica query.

Ciao


title: Aggiornamenti Access 2010

author: Davide P

text: Ciao, scrivo questo post x sapere se ad altri come a me è capitato il seguente problema... Lavoro con Access 2010 e distriubuisco nella rete aziendale dei file accde che contengono una macro autoexec che richiama una funzione. Alcuni mesi fa ho aggiornato alla SP1 di office ed a parte il computer su cui lavoro tutti i file accde distribuiti in locale sugli altri pc hanno smesso di funzionare dandomi come errore che non riuscivano a caricare la funzione richiamata. Tramite il tool microsoft ho tolto SP1 e tutto magicamente è ricominciato a funzionare. L'altro giorno esegue gli aggiornamenti windows (tra cui office) evito di scaricare l'SP1 ma scarico un aggiornamento che non mi fa funzionare gli accde sulle macchine locali. Stamattina ho perso 2 ore a disinstallare da installazioi/applicazioni i vari aggiornamenti fino a che tutto è ricominciato a funzionare... Ma a qlc di vuoi sono capitati gli stessi problemi o sbaglio qlc io????


title: Aggiornamenti Access 2010

text:
"Davide P" <
davide...@gmail.com
> ha scritto nel messaggio
news:9118186.190.1325163260523.JavaMail.geo-discussion-forums@vbmi7...

Se si tratta di Access 64 vedi se aiuta questo:
http://support.microsoft.com/kb/2581301/it

o questo:
http://support.microsoft.com/kb/2533794/it

Ciao, Carlo


title: Aggiornamenti Access 2010

text: No si tratta di Access 2010 Professional PLUS a 32bit


title: Aggiornamenti Access 2010

author: Karl Donaubauer

text:

Direi che la tua situazione non è rara.
A me non è successo perché a causa dei molti (e presto) rapporti
e discussioni di problemi con l'SP1 non l'ho mai installato.

Nel frattempo sul Knowledgebase della MS ci sono tanti "Hotfix"
e alcuni "Cumulative Update" per curare molti bug del SP1, p.e.

June 2011
http://support.microsoft.com/kb/2553023/

August 2011
http://support.microsoft.com/kb/2588842/

October 2011
http://support.microsoft.com/kb/2618119/

December 2011
http://support.microsoft.com/kb/2639884

Però almeno fino a oggi mi sembra una dramma senza fine.

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


title: Aggiornamenti Access 2010

author: Stefano C

text:
Ciao, anche a me è successo, Access 2010 versione a 32 bit.

Semplicemente, installa *ovunque* il SP1, in particolare sulla macchina
dove compili il .accde. A questo punto funzionerà a anche sui restanti
clients.

In altre parole: se compili con Access+SP1, funzionerà solo su clients
con Access+SP1; se compili con solo Access, funzionerà anche con i SP1.

Spero di esserti stato utile!



title: riempimento automatico campo tabella

author: maurizio

text:
Ciao a tuuti in un campo (formato testo) di una tabella vorrei fare in
modo che se il valore contenuto ha un numero di caratteri inferiore a 5
il resto dei caratteri mancanti devono essere riempiti da degli "0" con
che comando posso fare questo?


title: riempimento automatico campo tabella

author: ciroteo

text:
"maurizio" <
vos...@email.it
> ha scritto nel messaggio
news:FQpIe.33305$2U1.1...@news3.tin.it...

Su una form puoi mettere sull'evento dopo aggiornamento del campo un
istruzione che valuti la lunghezza della stringa (len)
e con un ciclo if then else ti gestisci  tramite format l'assegnazione
corretta del valore del campo.
Guida in linea: len e format
per problemi ricontattaci


title: riempimento automatico campo tabella

text:
ciroteo ha scritto:

Ma non esiste la possibilità di poter fare ciò che dici con una query di
aggiornamento?
Se si come la dovrei impostare?
Ciao


title: Conferma query di comando

author: Sandrobi

text:
E' possibile, via codice, disabilitare l'impostazione Strumenti > Opzioni >
Modifica/Trova > Conferma query di comando ?
Mi servirebbe, perché con il Toolkit97 sembra che questa opzione sia sempre
abilitata e fa la segnalazione ogni volta che viene eseguita una query.
Saluti e Buon Anno.
Sandro


title: Conferma query di comando

text:
Sandrobi ha scritto:

Application.SetOption "Confirm Action Queries", False
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Conferma query di comando

text:
"Sandrobi" <
sandb...@libero.it
> ha scritto nel messaggio
news:lySIb.223548$e6.87...@twister2.libero.it...

E' sufficiente che quando esegui la query da codice scrivi cosě:
DoCmd.SetWarnings False
DoCmd.OpenQuery "TuaQuery"
DoCmd.SetWarnings True
In tal modo tutti i messaggi di esecuzione della query vengono disabilitati.
Lo stesso puoi fare se esegui la query da una macro:
Imposta Avvisi = NO
Apri Query = "TuaQuery"
Imposta Avvisi = Sě
Ciao, Carlo


title: Lunghezza campo tabella collegata a file di testo

author: AP

text:
Ho collegato una tabella a un file di testo, la dimensione della riga e' 30
e non capisco come farla piu' lunga.
grazie
--
Boris: I cattivi, per inciso, sono gli uni e gli altri.


title: Importa Txt in tabella non disponibilie !!

text:
Proprio cosģ , non capisco il motivo , quando cerco di caricare dei dati
in formato testo in una tabella non mi rende disponibile tra i vari tipi
di file quelli *.txt .
Bene , andiamo in Aggiungi/Rimuovi di Off97 e spuntiamo la relativa voce
sotto Accesso Dati ma .. perbacco.. mi dice -Installata- e la copre nel
famigerato grigetto ...
A questo punto che si fą ?
Inutile dire che ho disinstallato e installato Office , ma Accesso ai
dati sempre in grigetto e con la dicitura "Installata" e ovviamente
Acc97 non mi rende disponibile questo tipo di Dati ... Eppure nella
fonte dati ODBC da pannello di controllo il driver c'č e lo vedo , č
come se Acc non riuscisse ad agganciarlo ...
Potete aiutarmi ? sto impazzendo, su altri Pc funziona e su altri no e
non capisco come mai , non ci sono differenze ...
Influisce l'installazione dei 2 SP ?
Grazie __
(Se mi rispondete in mail ancora meglio , non sono frequentatore
abituale del gruppo.)
__piE'


title: verificare la presenza o meno di record in subform

text:
ciao a tutti

per verificare la prenza o meno di record utilizzo questo codice:

Dim nRecord As Integer

nRecord = Me!miaSubForm.Form.RecordsetClone.RecordCount
If nRecord <> 0 Then

ma in realtà non devo contarli
com è meglio fare?

Grazie


author: Simone Calligaris

text:
<
francodel...@gmail.com
> ha scritto nel messaggio
news:a901afad-f013-488d...@googlegroups.com...

Io faccio come te.

Saluti.


text:

grazie Simone


author: Alessandro Cara

text:

testare .BOF and EOF?
--
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)

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


text:

ciao Alessandro
ho provato con
Dim Rs As DAO.Recordset
Set Rs = Me!miaSubForm.Form.Recordset

If Not Rs.BOF And Not Rs.EOF Then
ecc.
Set Rs = Nothing

ma non mi funziona!!!


text:

cosi' va......

Dim Rs As DAO.Recordset
Set Rs = Me!miaSubForm.Form.Recordset
Rs.MoveFirst



text:

funziona solo al primo clik
al secondo mi da l'errore:
"nessun record corrente"


title: codice barra strumenti

author: Mirko Marcozzi

text:
scusate ma sono alle prime armi e ho un problema che magari sembrerą banale
ma aiutatemi  VI PREGO
DOVE POSSO TROVARE IL CODICE CHE FA FUNZIONARE I VARI PULSANTI DELLA BARRA
DEGLI STRUMENTI DI ACCESS '97? SU SITO COMUNE NON LO TROVO!!!!
(COPIA, INCOLLA, TROVA ED ALTRI)
GRAZIE IN ANTICIPO


title: codice barra strumenti

author: Roberto da casa

text:
"Mirko Marcozzi" <
mirkom...@libero.it
> ha scritto nel messaggio
news:tLFm9.40020$Eu.9...@twister1.libero.it...
> scusate ma sono alle prime armi e ho un problema che magari sembrerà
banale
> ma aiutatemi  VI PREGO
> DOVE POSSO TROVARE IL CODICE CHE FA FUNZIONARE I VARI PULSANTI DELLA BARRA
> DEGLI STRUMENTI DI ACCESS '97? SU SITO COMUNE NON LO TROVO!!!!
> (COPIA, INCOLLA, TROVA ED ALTRI)
> GRAZIE IN ANTICIPO
Se ho capito cosa ti serve, prova a cercare sull'help il Metodo RunCommand
dell'oggetto DoCmd; se preferisci usare le macro prova a cercare l'azione
EseguiComando (comunque un'occhiata dagliela lo stesso ci trovi delle cose
che ti aiutano a capire il metodo RunCommand).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: formattazione esportazione in excel

author: ]SiLVieTTa[

text:
persiste il mio problema sulla formattazione dopo l'esportazione in excel.
innanzitutto mi sembra possibile far partire l'esportazione da maschera o da
report (cambia solo la formattazione).
tra le 2 formattazioni diverse, forse la "migliore" è quella che parte dalla
maschera.
tale maschera contiene un'intestazione, con varie caselle di testo.
nel corpo contiene tutto l'elenco dei record.
vorrei che venisse esportato nello stesso modo.
non pretendo l'esatto posizionamento delle caselle di testo, ma quanto meno la
separazione dell'intestazione dall'elenco dei record:
intestazione sopra
elenco record sotto.
invece.......
esporta nel seguente modo:
prima riga:
intestazioni con sfondo in neretto, costituite dai nomi di TUTTE le caselle di
testo
dalla 2^ riga in poi:
l'elenco di tutti i record.
tutti i campi dell'intestazione vengono ripetuti per ogni record!!!!
le prime colonne di ogni riga sono costituite dall'intestazione.
è possibile separare le cose?
grazie
Ciao
Silvia.
 --
www.silvietta.it
...everyone's invited!
Non Esiste Una Razza Bianca, Benche' Se Ne Parli Tanto: Ogni Uomo Bianco E' Solamente Un Uomo Scolorito


title: formattazione esportazione in excel

author: TheMax

text:
"]SiLVieTTa[" <
silviaTOGLIQ...@studiomarketing.it
> ha scritto nel
messaggio news:hbs8409bli63fl848...@4ax.com...

"Ola" come va?
Dunque, venendo al tuo problema, io l'avevo risolto con qualche riga di Vba
che generava direttamente il file di excel, a quel punto lo puoi formattare
come vuoi tu, spazi, righe colonne ecc...
E' abbastanza semplice da fare, se ti interessa cerco l'esempio  e lo posto,
poi lo sistemi tu come ti pare e piace.
Ciaoooo
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: formattazione esportazione in excel

author: WinJB

text:
"TheMax" <
elpiub...@yahoo.it
> ha scritto nel messaggio
news:c243e3$jkm$1...@atlantis.cu.mi.it...

SIIIII, a me interesserebbe moltissimo :)
potresti postare il tuo esempio?
Grazie 1000


title: formattazione esportazione in excel

text:
"WinJB" <
wi...@libero.it
> ha scritto nel messaggio
news:WNA1c.46856$Kc3.1...@twister2.libero.it...

> SIIIII, a me interesserebbe moltissimo :)
> potresti postare il tuo esempio?
> Grazie 1000
>
>
Questa è la procedura che ho creato io, ho messo anche alcune righe di
commento, sostanzialmente basta modificare l'istruzione SQL
Ciao,
Massimo
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim MioExcel As Object
Set MioExcel = CreateObject("Excel.Application")
Dim i As Integer
Dim riga As Integer
MioExcel.Workbooks.Add
MioExcel.Visible = True
Set Db = CurrentDb
' varia l'istruzione sql o crea una query e il tutto funziona correttamente
Set Rs = Db.OpenRecordset("Select Str_Cognome as Cognome, Str_Nome as Nome,
Str_indirizzo as Indirizzo, Str_Cap as Cap, Str_Localita as Localita,
Str_Comune as Comune ,Str_Provincia as Provincia, Str_Telefono as Telefono,
Corso, Str_Cod_Fisc As [Codice Fiscale], Str_Classe As Classe, Str_Sezione
as Sezione, Str_ramo as Settore, Str_badge as Badge From QryExportAllievo",
dbOpenSnapshot, dbSeeChanges)
i = 0
riga = 1
'-----------------------
'Scivo i valori nelle colonne
'-----------------------
For i = 0 To Rs.Fields.Count - 1
    MioExcel.ActiveCell.Value = Rs.Fields(i).Name
    MioExcel.ActiveCell.Offset(0, 1).Select
Next i
riga = 2
MioExcel.Range("A" & riga).Select
'-----------------------
'Carico i dati
'-----------------------
While Not Rs.EOF
   For i = 0 To Rs.Fields.Count - 1
        MioExcel.ActiveCell.Value = Rs.Fields(i)
        MioExcel.ActiveCell.Offset(0, 1).Select
    Next i
    riga = riga + 1
    MioExcel.Range("A" & riga).Select
    Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing
Db.Close
Set Db = Nothing



title: formattazione esportazione in excel

text:
Thread ricco mi ci ficco: Il Wed, 3 Mar 2004 09:02:12 +0100, "TheMax"
<
elpiub...@yahoo.it
> dopo averci riflettuto a lungo, ha scritto:
>Dunque, venendo al tuo problema, io l'avevo risolto con qualche riga di Vba
>che generava direttamente il file di excel, a quel punto lo puoi formattare
>come vuoi tu, spazi, righe colonne ecc...
>
>E' abbastanza semplice da fare, se ti interessa cerco l'esempio  e lo posto,
>poi lo sistemi tu come ti pare e piace.
ti adoro!!!
non immagini quanto mi hai aiutato!!
la procedura automatica purtroppo mi creava problemi di formattazione
discretamente antipatici!
ora perň sono alle prese con piccoli lavori di formattazione:
ho messo il grassetto
modificate le dimensioni del carattere
ha adattato le colonne al contenuto...
ora vorrei:
- disegnare i bordi
- colorare lo sfondo delle celle
- UNIRE LE CELLE!
- evitare che metta il triangolino d'errore lě dove vede numeri formattati come
testo!!



title: formattazione esportazione in excel

text:
"]SiLVieTTa[" <
silviaTOGLIQ...@studiomarketing.it
> ha scritto nel
messaggio news:5oje40lo0g298crhs...@4ax.com...
[CUT]
>
> ti adoro!!!
Ecco, ora lo hai reso pubblico e mo come faccio^__^
> non immagini quanto mi hai aiutato!!
> la procedura automatica purtroppo mi creava problemi di formattazione
> discretamente antipatici!
Come sempre, meglio arrangiarsi
>
> ora però sono alle prese con piccoli lavori di formattazione:
> ho messo il grassetto
> modificate le dimensioni del carattere
> ha adattato le colonne al contenuto...
>
> ora vorrei:
> - disegnare i bordi
> - colorare lo sfondo delle celle
> - UNIRE LE CELLE!
> - evitare che metta il triangolino d'errore lì dove vede numeri formattati
come
> testo!!
Va beh, i miracoli li ha fatti già qualcuno e fu crocefisso... ma vedo che
si può fare...
>
> Ciao
>
> Silvia.
Ciao,



title: formattazione esportazione in excel

text:
>Va beh, i miracoli li ha fatti già qualcuno e fu crocefisso... ma vedo che
>si può fare...
cioè, in realtà credo che esista una lista con tutti i comandi vba per impostare
i comandi di excel...
tipo:
MioExcel.ActiveCell.Font.Bold = True
il problema è..
dov'è questa lista??
io non la trovo, nel codice non mi vengono dati suggerimenti... ho guardato sia
sulla guida di vba, sia su quella di excel, sia nei post vecchi di questo ng sia
in quelli dell'altro ng (quello ms)... anche su 2 libri, ma ancora niente...



title: formattazione esportazione in excel

text:
ho trovato la soluzione:
sostituire:
Dim MioExcel As Object
con:
Dim MioExcel As Excel.Application



title: query che soddisfi l'uno o l'altro criterio

author: giannirusso

text:
Buongiorno, vi chiedo un aiuto riguardo una query nella quale vorrei
visualizzare tutti i campi che soddisfino uno qualsiasi di due criteri
che ho impostato nella sezione "criterio" (o l'uno o l'altro).
Non ho abbastanza familiarità con il codice vba quindi, se possibile,
vorrei poter fare tutto da visualizzazione struttura.
Grazie
Gianni


text:
Ho risolto, perchè alla fine il codice da modificare era abbastanza
intuitivo: ho aggiunto un OR nel codice vba nella condizione che mi
interessava legare all'altra e funziona.

scusate
Gianni


title: report senza interruzione pagina

author: Dada

text:
qualcuno sà se esiste la possibilità di stampare report senza interruzione
di pagina ?
vi ringrazio anticipatamente


title: report senza interruzione pagina

author: Vittò

text:
"Dada" <
bi...@freemail.it
> ha scritto nel messaggio
news:8s56vg$1mp$1...@nread2.inwind.it...
> qualcuno sà se esiste la possibilità di stampare report senza interruzione
> di pagina ?
>
> vi ringrazio anticipatamente
>
>
Intendi senza il riporto dell'intestazione Campo o Report?
Se si, devi lavorare con la struttura del report ed eventualmente usare solo
l'intestazione del report per la prima eventuale pagina, e poi far in modo
che nell'intestazione e piè di pagina non vi sia contenuto nulla (puoi anche
togliere tutto lo spazio trascinando la barra in alto del relativo
intestazione o piè su cui stai lavorando)
Ciao Vittò


title: M'I`5 Persecut ion ' 22, 544 + 837  = 23, 381

text:
MI5 Persecution Update: Friday. 7 April, 2000
22,544. + 837 = 23,381
Last weekend. I delivered another 837 faxes to politicians and the media on
the. subject of the security service conspiracy which has destroyed my
life. This brings the total in the last three years to at. least
23,381.. These totals do not include partially delivered faxes.
Some of the recipients of these faxes must. know that what I say is
true; and I hope to motivate those. people to acknowledge the reality of
the harassment which has followed me for ten years. It. takes much time to
transmit these articles, but as OCG MD Simpson-Wells said. to me in 1992,
you have to be a good communicator if you. are to succeeed.
Harassment in. February 2000
Following a quiet period of almost five months,. the persecution resumed
with a. vengeance in late January/February 2000. At this time I was at home
in Clapham, London and. was a relatively easy target for the
persecutors. They have. my house bugged, for audio and I believe video in
some rooms as well; so they can find out easily where I will be going on. a
particular day, and place people. in that location to mouth words of abuse
at me. (I know the last sentence sounds like classic. paranoia, but it
happens to be true, and some of the people reading this know it. to be
true.)
On Friday 11 February 2000 I. went shopping in Croydon, to buy a watch at
H.. Samuels jewellers in the Whitgift Centre. While I was there two youths
came into the shop, one of. them quietly uttered an obscenity at me, and
they immediately walked out. They. showed no interest in the shop.
That Sunday I met with. a friend in Clapham, who started needling me about
"do you know anything about the CIA and FBI?".. Rather unsubtle, and
worrying considering Ive known this guy. for 20 years. From the words and
demeanour of this "friend" and others in February, I saw that. the
persecutors have again been. trying to separate from me what remains of my
social. life.
Incidents in my Road. in February
MI5 very rarely place people in my. home road to harass me, but such was
their persecutory fervour in February. that they did so on three separate
occasions.. On the first such occasion, I was met my two youths who,
grinning, said a deeply offensive sexual. obscenity at me - at which I
coughed at them,. so they called me a "wanker". This incident is safely
recorded on minidisc-walkman, but because of. the offensive nature of their
abuse the recording will. not be made public.
Another incident. very early in the morning of Sunday 20/Feb/2000 occurred
outside my home, following an. evening in Croydon with some
schoolfriends. Again there were two youths - for some reason. the
persecutors. always travel in twos or threes, very rarely is there just one
of them - perhaps they need a group to bolster their. courage, perhaps just
one of them wouldnt have the guts to say something. unpleasant. One of the
youths. said quietly, and bitterly, "shitty, very shitty".
Anyway,. in March there were no further incidents near my house in in my
road, and our. neighbours are very well disposed towards us, so let us hope
that the current. quiet continues.
13524
--
Posted via NewsDemon.com - Premium Uncensored Newsgroup Service
      ------->>>>>>
http://www.NewsDem


title: Requery su forms

author: Cogo R.

text:
Data una maschera che mostra i record di una tabella, dopo una Requery il
puntatore si riposiziona sul primo record ,mentre vorrei riposizionare il
puntatore su un determinato campo con un valore (memorizzato in precedenza).
Qualcuno mi può suggerire l'istruzione opportuna?
Grazie
Cogo R


title: Requery su forms

author: Sergio MAZZA

text:
"Cogo R." <
rob...@tin.it
> ha scritto nel messaggio news:Ud7ye.30636$h5.14...@news3.tin.it...

Ti ha già risposto Karl...
Ciao.
--
Sergio MAZZA


title: Requery su forms

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dab28l$2ht$1...@domitilla.aioe.org...

Ti ringrazio , ma nella visualizzazione normale non trovo nessun Karl,
mentre dopo una ricerca  ho trovato tuttte le risposte di Karl Donaubauer.
Non capisco perchè nel la visualizzazione normale non risultino.
Questo era il motivo che mi ha spinto a rifare la domanda.
Saluti
Cogo R.


title: Re: Controllo con Focus attivo

author: TANNHAUSER

text:
Mariolino ha scritto:
> Come posso recuperare il nome del controllo che ha il focus attivo in una
> maschera quando questa ri-assume lo stato attivo?
> Mi spiego meglio.
> Una maschera contiene più controlli casella di testo, dove memorizzare delle
> date; da ognuno di questi controlli, con l'evento doppio click, apro
> un'altra maschera.
> In questa seconda maschera, tramite un oggetto calendario, produco un valore
> (una data) che dev'essere assegnato al controllo corrente della prima
> maschera.
> Assegno ad una variabile pubblica il valore del controllo calendario.
> Tale valore viene però assegnato, oltre al controllo corrente, anche agli
> altri nel momento in cui assumono lo stato attivo
> Grazie
Io,
sempre attraverso aiuti del sitocomune, di questo NG e di altre ricerche
con Google ho implementato nel mio DB una procedura che dovrebbe
rispondere al tuo quesito:
1. ho creato una maschera con il controllo calendario all'interno ed il
seguente codice:
Option Compare Database
Option Explicit
Private NewData As Date
Private Sub CtlActiveX0_Click()
  NewData = Me!CtlActiveX0.Value
  DoCmd.Close acForm, Me.NAME
 End Sub
Private Sub Form_Close()
  SendKeys IIf(NewData > 0, NewData, Nz(Me.OpenArgs, ""))
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 27 Then 'ESC = chiudi
    KeyCode = 0
    DoCmd.Close acForm, Me.NAME
  End If
End Sub
Dove: CtlActiveX0= nome del controllo calendario
Quest maschera è richiamabile da qualsiasi controllo nel DB che richieda
la scelta di una data;
2. ho associato all'evento Click del controllo dal quale richiamo la
maschera calendario (solitamente un pulsanet) il seguente codice:
    Me.DatadaInserire.SetFocus
    Me!DatadaInserire.SelStart = 0
    Me!DatadaInserire.SelLength = Len(Me!DatadaInserire.Text)
    DoCmd.OpenForm "Calendario", , , , , , Me!DatadaInserire.SelText
    Forms!Calendario!CtlActiveX0.Value = Me!DatadaInserire
In questo modo nella casella di testo (in questo caso avente nome
DatadaInserire) viene riportata la data selezionata nel controllo
calendario.
Io richiamo la maschera avente il controllo calendario da più pulsanti e
mi alimenta solo ed esclusivamente il controllo associato.
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Re: Controllo con Focus attivo

author: Mariolino


title: Re: Controllo con Focus attivo

author: MA

text:
"Mariolino" <
tanmar...@tin.it
> ha scritto nel messaggio
news:con825$583$1...@carabinieri.cs.interbusiness.it...

Me.activecontrol.name
o nel caso previouscontrol
MAssimiliano


title: voglio citare per danni la microsoft

text:
non è possibile che tutto ad un tratto un database su cui sto lavorando
diventa danneggiato e quindi inaccessibile e io debba perdere tutto il mio
lavoro anche se di poche ore, ore buttate per colpa di Microsoft.
Io quando commetto degli errori nei miei programmi li correggo a mie
spese!!!
e voi mi direte ma Microsft è Microsft? e che vor di? che loro possono
sbagliare?
Và a finire che passo a linux.


title: voglio citare per danni la microsoft

author: Raffaele Alberoni

text:
Simba883 ha scritto:




No a Linux no..... sei sicuro di andare a stare meglio?????
Prova ad alzarti dalla sedia...
avvicinati alla finestra ....
guarda fuori.... (spero che ci sia il sole)
un bel respiro....
.. pensa a.....
e di nuovo tuffati nel lavoro....
....
Buon lavoro....
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: voglio citare per danni la microsoft

text:
> No a Linux no..... sei sicuro di andare a stare meglio?????
> Prova ad alzarti dalla sedia...
Mi sono alzato!
> avvicinati alla finestra ....
Mi sono avvicinato!
> guarda fuori.... (spero che ci sia il sole)
C'è un sole estivo!
> un bel respiro....
Respirato!
> .. pensa a.....
La f...a?
> e di nuovo tuffati nel lavoro....
Non ci penso nemmeno vado a farmi una bella corsa cosi scarico i bollenti
spiriti che dov rei scaricare su qualcun'altro a causa delle orette di
lavoro perso visto che faccio i backup giornalieri.
> ....
> Buon lavoro....
>
Grazie.



title: voglio citare per danni la microsoft

text:
Simba883 ha scritto:

> Mi sono alzato!


> > un bel respiro....
> Respirato!


> > ....
> > Buon lavoro....
> >
> Grazie.

La f..a è il rimedio migliore,
però anch'io utilizzo la corsa per sfogo!!!
Ciao!!!



title: voglio citare per danni la microsoft

author: MC(BG)

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6j1n1$3i4$1...@news.newsland.it...

> Perchè no?!!!
Visto che non ricevo mai risposte al mio post ... mi sa che ne cerco una ...
correndo!!!!!


title: voglio citare per danni la microsoft

text:
> Visto che non ricevo mai risposte al mio post ... mi sa che ne cerco una
...
> correndo!!!!!
>
direi allora visto che oggi è un giorno estivo di chiudere l'NG e di andare
tutti a correre dobbiamo far calare la panza altrimenti quest'estate niente
mare ;)


title: voglio citare per danni la microsoft

text:
MC(BG) ha scritto:


Caro Mc(bg)...
non mi prendere per un presuntuoso, ma in questo Ng vigono delle regole
che aiutano tutti a rispondere e dare consigli;
una di queste è quella di continuare nello stesso post il problema e non
spezzarlo in vari post altrimenti diventa faticoso tenere il filo
un'altra è quella di usare soggetti significativi...
Ciao e buon lavoro!



title: voglio citare per danni la microsoft

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6j3i9$o0j$1...@news.newsland.it...

Io non do del presuntuoso a nessuno non preoccuparti, se ho fatto credere
così mi scuso non era mia intenzione!
Sono solo stressato per il mio problema al quale non riesco a dare soluzione
e per quanto mi sforzi devo ammettere che è al di sopra delle mie capacità,
per ora comunque grazie x il consiglio, ne terrò conto per i prossimi post!


title: voglio citare per danni la microsoft

text:
>
> Io non do del presuntuoso a nessuno non preoccuparti, se ho fatto credere
> così mi scuso non era mia intenzione!
> Sono solo stressato per il mio problema al quale non riesco a dare
soluzione
> e per quanto mi sforzi devo ammettere che è al di sopra delle mie
capacità,
> per ora comunque grazie x il consiglio, ne terrò conto per i prossimi
post!
>
io ho letto il tuo problema postato  ma non ci ho capito una Mazza!
Lo puoi esporre in un altro modo? se ci capisco forse posso aiutarti ciao.
ogni riferimento a cose o persone realmente esistite è puramente casuale


title: voglio citare per danni la microsoft

text:
MC(BG) wrote:
[cut]
> Visto che non ricevo mai risposte al mio post ... mi sa che ne cerco una ...
> correndo!!!!!
non ricevi risposte perche' il subject non e' corretto
--
a.cara


title: voglio citare per danni la microsoft

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:c6j71q$cc0it$1...@ID-163946.news.uni-berlin.de...

Me ne sono reso conto!
Ho fatto ultimo\definitivo post intestato a Simba833 in qnto mi ha fatto
esplicita richiesta.
Ho stampato il foglio di regolamento di questo NG, vedrň di studiarmelo
bene, cosě per il prossimo problema sarň piů preparato!
Grazie comunque per avermi fatto notare il difetto della mia richiesta.
MC


title: voglio citare per danni la microsoft

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6j1n1$3i4$1...@news.newsland.it...

A propositi di f..ca! La sapete la differenza tra la f..ca e i soldatini?
Ciao.
--
Sergio MAZZA


title: voglio citare per danni la microsoft

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:c6j65g$4es$1...@lacerta.tiscalinet.it...
>
>
> io ho letto il tuo problema postato  ma non ci ho capito una Mazza!
> Lo puoi esporre in un altro modo? se ci capisco forse posso aiutarti ciao.
>
> ogni riferimento a cose o persone realmente esistite è puramente casuale
Verooo? Mah! Sarà...
Ciao.
--
Sergio MAZZA


title: voglio citare per danni la microsoft

text:
Sergio MAZZA ha scritto:


> Ciao.
Se dico: non la so la differenza... mi dici che faccio un po di
confusione????



title: voglio citare per danni la microsoft

text:
> > ogni riferimento a cose o persone realmente esistite è puramente casuale
>
> Verooo? Mah! Sarà...
>
> Ciao.
>
> --
> Sergio MAZZA
>
LoOOOL


title: voglio citare per danni la microsoft

author: S. Savoldi

text:
"Simba883"
> non è possibile che tutto ad un tratto un database su cui sto lavorando
> diventa danneggiato e quindi inaccessibile e io debba perdere tutto il mio
> lavoro anche se di poche ore, ore buttate per colpa di Microsoft.
http://members.iinet.net.au/~allenbrowne/ser-25.html
La sezione:  "Preventing corruption during development" ti potrà essere
d'aiuto.
Su col morale  :-)


title: voglio citare per danni la microsoft

author: ALESSANDRO Baraldi

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:HJajc.147857$rM4.5...@news4.tin.it...

Ti sei sentito tirato in ballo vero....????
Hai la coda di paglia....!!!
@Alex.


title: voglio citare per danni la microsoft

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6jhsf$rf9$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
[CUT]
>
> > A propositi di f..ca! La sapete la differenza tra la f..ca e i
soldatini?
>
> > Ciao.
>
> Se dico: non la so la differenza... mi dici che faccio un po di
> confusione????
> Raffaele Alberoni
Ammettilo che non la sai....!!!
La battuta era:
Credo che allora dovresti continuare a giocare con i SOLDATINI....!!
;-)
@Alex.


title: voglio citare per danni la microsoft

text:
ALESSANDRO Baraldi ha scritto:


> ;-)
> @Alex.
... Tardi per l'avvertimento.... Ho tre Figli !!!!!!!!!!!
Ciao.



title: voglio citare per danni la microsoft

text:
> La sezione:  "Preventing corruption during development" ti potrą essere
> d'aiuto.
>
> Su col morale  :-)
>
>
io conosco un certo accessrecovery ma costa parecchi dollari ma pare faccia
magie, software di questo tipo dovrebbe fornirli la microsoft stessa in modo
gratuito inclusi nei cd di installazione
http://www.officerecovery.com


title: voglio citare per danni la microsoft

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c6jubh$p8$1...@lacerta.tiscalinet.it...

Già...
Ciao.
--
Sergio MAZZA


title: identificare controllo tramite stringa

author: Panathos

text:
Buongiorno a tutti/e,
sto scrivendo una funzione che deve cambiare il backcolor ad alcuni
controllo su una maschera.
Ora, ho due "set" di controlli, col nome simile:
gg0 gg1 gg2 gg3 gg4 ...
dd0 dd1 dd2 dd3 dd4 ...
i controlli dd0, dd1, etc. hanno tag= "cal"
quindi ciclo sui controlli con quel tag e "pesco" i vari dd0, dd1,
etc.:
For Each ctrl in me.controls
  IF ctrl.tag = "cal" then
    ctrl.BackColor = RGB(255,255,204)
    ....
Lì sotto vorrei impostare il backcolor anche del relativo controllo
"gg0", tramite questo:
    altroctrl = "gg" & right(
ctrl.name
,1)
Il problema è che se faccio
    me.altroctrl.BackColor = RGB(255,255,204)
ovviamente Access mi risponde "puppa", perché un controllo con quel
nome non esiste nella maschera.
C'è modo di "dereferenziare" la variabile altroctrl per usarla con
l'oggetto "me"?
Aprire un altro ciclo sull'insieme controls e matchare il controllo
corrispondente a altroctrl mi sembra un po' assurdo...
grazie,
Panathos


title: identificare controllo tramite stringa

author: Karl Donaubauer

text:
Panathos wrote:
> ...
> Ora, ho due "set" di controlli, col nome simile:
>
> gg0 gg1 gg2 gg3 gg4 ...
>
> dd0 dd1 dd2 dd3 dd4 ...
>
> i controlli dd0, dd1, etc. hanno tag= "cal"
>
> quindi ciclo sui controlli con quel tag e "pesco" i vari dd0, dd1,
> etc.:
>
> For Each ctrl in me.controls
>   IF ctrl.tag = "cal" then
>     ctrl.BackColor = RGB(255,255,204)
>     ....
>
> Lì sotto vorrei impostare il backcolor anche del relativo controllo
> "gg0", tramite questo:
>
>     altroctrl = "gg" & right(
ctrl.name
,1)
>
> Il problema è che se faccio
>     me.altroctrl.BackColor = RGB(255,255,204)
>
> ovviamente Access mi risponde "puppa", perché un controllo con quel
> nome non esiste nella maschera.
> C'è modo di "dereferenziare" la variabile altroctrl per usarla con
> l'oggetto "me"?
> ...
www.donkarl.com/it
 FAQ
6.1 Variabili invece dei nomi degli oggetti
6.5 Ciclare attraverso i controlli
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: identificare controllo tramite stringa

text:
Karl Donaubauer ha scritto:
> > C'è modo di "dereferenziare" la variabile altroctrl per usarla con
> > l'oggetto "me"?
> > ...
>
>
www.donkarl.com/it
 FAQ
> 6.1 Variabili invece dei nomi degli oggetti
Grazie infinite, e complimenti per il sito. Ci sono un sacco di chicche
interessanti :-)
ciao,
Panathos


title: Funzione StrConv su stringa cirillica

author: Leo

text:
Ciao a tutti,
ho un piccolo problema: dal soggetto potete capire che ho a che fare con
stringhe con caratteri cirillici (essendo in Kazakhstan per lavoro); ora
dato che per motivi operativi devo obbligatoriamente trasformare tutte le
stringhe attualmente tutte in maiuscolo, in solo la prima maiuscolo, ho
pensato di usare la fuinzione strconv(miastringa,3). Quando applico questa
funzione ad una stringa "cirtillica" mi restituisce tutti ?????????. Faccio
presente che ho aggiornato il set di caratteri dal pannello di controllo e
che la stringa originale, tutta maiuscola, è visibile chiaramente nel
report. E' un problema della funzione StrConv o qualche altro suggerimento
per risolvere il problema ?? Grazie in anticipo per il vostro solito e
prezioso aiuto.

--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Funzione StrConv su stringa cirillica

author: sv

text:
Leo ha scritto:

Vedi se può esserti d'aiuto questo articolo:
http://support.microsoft.com/kb/237363/EN-US/
--
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: Funzione StrConv su stringa cirillica

author: giorgio rancati

text:
"Leo" <
ch...@tiscali.it
> ha scritto nel messaggio
news:212Z154Z220Z169Y...@usenet.libero.it...

Ciao Leo,
nel tuo caso bisogna indicare anche l'identificativo delle impostazioni
internazionali, che per il Kazakhstan è 1087.
Quindi
----
StrConv(MiaStringa,3,1087)
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: Funzione StrConv su stringa cirillica

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:44619269$0$29109$5fc...@news.tiscali.it...
> "Leo" <
ch...@tiscali.it
> ha scritto nel messaggio
> news:212Z154Z220Z169Y...@usenet.libero.it...
[CUT]
> Faccio presente che ho aggiornato il set di caratteri dal pannello di
controllo e
> > che la stringa originale, tutta maiuscola, è visibile chiaramente nel
> > report.
aspetta... se nel pannello di controllo hai messo come lingua predefinita il
*Kazaco* non c'è bisgno di indicare l' LCID nella funzione StrConv.
Dove vedi la file di punti interrogativi ?



title: Funzione StrConv su stringa cirillica

text:
							Il 10 Mag 2006, 09:41, "giorgio rancati"
<
giorgio_No_Sp...@tiscali.it
> ha scritto:

Comunque grazie ad entrambi.
Risolto con LCID 1087.
Leo



title: Arrotonda per difetto

author: Valentino Padovan

text:
In una Query non riesco a formulare la richieta di arrotondare per difetto o
per ecesso , mi dice funzione non valida nell'help di acces mi dice che
manca il file "Msowcf.Dll" ho fatto una ricerca sulla funzione trova e
questo file è caricato
Chiedo un Vosto aiuto         GrazzieValentino


title: Arrotonda per difetto

author: Roberto dal portatile

text:
"Valentino Padovan" <
vsgpa...@virgilio.it
> ha scritto nel messaggio
news:urHO7.241$0T3....@news2.tin.it...

Dovresti dirci come "formuli la richiesta di arrotondare".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Invio report con nome file specifico

author: Nnd

text:
Ci riprovo...
in un db access 2000:
    DoCmd.OpenReport "MioReport", acViewDesign
    Reports("MioReport").Caption = Nome
    DoCmd.Close acReport, "MioReport", acSaveYes
    DoCmd.SendObject acReport, "MioReport", acFormatRTF
la riga "Reports("MioReport").Caption = Nome" mi permette di modificare la
caption al report che genero. Il problema che ho è quello di fare in modo
che il file rtf esportato abbia il nome uguale al campo "Cognome" del report
appena generato e non un nome statico come "Nome". Ho guardato tutti i post
precedenti ma non c'è niente di attinente e comunque, facendo delle prove,
ottengo sempre degli errori.
Grazie
Anto


title: Invio report con nome file specifico

author: Carlo Costarella

text:
"Nnd" <
nndl...@libero.it
> ha scritto nel messaggio
news:BE3914E7.143%nndl...@libero.it...

Ciao Anto
ti consiglio vivamente di non ripetere il messaggio (aprire un secondo
tread) ma di attendere pazientemente una risposta. In questo caso però devo
dire che sei giustificato perchè il primo messaggio non era con un oggetto
valido.
La risposta la trovi nel messaggio precedente a cui ho appena risposto.
Appena puoi dai un'occhiata al post che Roberto da Casa periodicamente
invia:
"Come ci si dovrebbe comportare in un newsgroup, ovvero 'Istruzioni per
l'uso'"
Ciao, Carlo


title: Chiave Esterna

text:
ciao a tutti
vorrei sapere a che cosa serve effettivamente mettere una Chiave Esterna (FK). Io ho un db (A2003) con 2 tabelle: tblIscritti con IDIscritto (contatore e PK) e tblDonazioni con IDDonazione (numerico) senza PK. Ad ogni iscritto appartengono + donazioni nel tempo, per cui c'è una relazione uno a molti tra i due ID con applicata l'integrità referenziale. Tutto funziona bene, inserisco i dati con una maschera Iscritti e una sottomaschera donazioni in foglio dati.
Perchè, come ho letto sul manuale di Viescas, è importante mettere una FK (in questo caso IDIscritto nella tblDonazioni)? cosa mi migliorerebbe? E poi, quale campo dovrebbe avere la PK, IDDonazione o IDIscritto? (o nessuno?)

grazie
Luciano


title: Chiave Esterna

author: Bruno Campanini

text:
amoa...@gmail.com
 has brought this to us :
> ciao a tutti
> vorrei sapere a che cosa serve effettivamente mettere una Chiave Esterna
> (FK). Io ho un db (A2003) con 2 tabelle: tblIscritti con IDIscritto
> (contatore e PK) e tblDonazioni con IDDonazione (numerico) senza PK. Ad ogni
> iscritto appartengono + donazioni nel tempo, per cui c'ï¿œ una relazione uno a
> molti tra i due ID con applicata l'integritï¿œ referenziale. Tutto funziona
> bene, inserisco i dati con una maschera Iscritti e una sottomaschera
> donazioni in foglio dati.  Perchï¿œ, come ho letto sul manuale di Viescas, ï¿œ
> importante mettere una FK (in questo caso IDIscritto nella tblDonazioni)?
> cosa mi migliorerebbe? E poi, quale campo dovrebbe avere la PK, IDDonazione o
> IDIscritto? (o nessuno?)

Che cosa sarebbe un FK? mai sentita nominare!

Metti una PK (PrimaryKey) sul PrimaryField della PrimaryTable e
definisci la relazione  1-00 col RelatedField della RelatedTable.

Il campo RelatedField potrï¿œ essere indicizzato con la modalitï¿œ
duplicati consentiti SOLO SE con riferimento ad esso, indipendentemente
dalla MainTable, devi effettuare delle ricerche.
Se non devi effettuare ricerce su detto RelatedField non mettere alcun
indice: ogni indice inserito appesantisce la procedura con riflessi
negativi sulla velocitï¿œ di esecuzione.

Se metti - sul RelatedField - una chiave primaria o un indice che
non consenta duplicati... addio relazione 1-00!
Ottieni, nella migliore delle ipotesi, una relazione 00-00 che non
serve a niente.
Infatti fra due campi omologhi di tablelle non relazionate hai giï¿œ
una relazione 00-00.

Bruno


title: Chiave Esterna

text:
amoa...@gmail.com
 wrote:
> vorrei sapere a che cosa serve effettivamente mettere una Chiave
> Esterna (FK). Io ho un db (A2003) con 2 tabelle: tblIscritti con
> IDIscritto (contatore e PK) e tblDonazioni con IDDonazione (numerico)
> senza PK. Ad ogni iscritto appartengono + donazioni nel tempo, per
> cui c'� una relazione uno a molti tra i due ID con applicata
> l'integrit� referenziale. Tutto funziona bene, inserisco i dati con
> una maschera Iscritti e una sottomaschera donazioni in foglio dati.
> Perch�, come ho letto sul manuale di Viescas, � importante mettere
> una FK (in questo caso IDIscritto nella tblDonazioni)? cosa mi
> migliorerebbe? E poi, quale campo dovrebbe avere la PK,
> IDDonazione o IDIscritto? (o nessuno?)

FK vuol dire un campo che nella seconda tabella contiene
dati della prima tabella per collegare le due tabelle.
Vuol dire che hai gi� messo un FK: il campo IDDonazione.

Del resto nel momento quando hai creato la relazione, Access
automaticamente ha aggiunto un index sul campo del FK, cio�
IDDonazione per migliorare la prestazione.

Per� ci sono due errori nella tua costellazione:
1. La tabella tblDonazioni non ha un PK.
2. Con "Id..." hai usato la denominazione classica per il
campo univoco e PK come FK. Il modo giusto sarebbe:

Nella tabella tblDonazioni c'� un campo IDDonazione
del tipo contatore impostato come PK della tabella.

Sempre nella tabella tblDonazioni c'� un campo
IDIscritto (o FKIDIscritto) del tipo numerico (Long).
Su questo campo � impostato la relazione con tblIscritti.

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


title: Chiave Esterna

text:
Ciao Bruno,

Bruno Campanini wrote:
> ...
> Che cosa sarebbe un FK? mai sentita nominare!
>

FK = Foreign Key = Chiave Esterna

http://it.wikipedia.org/wiki/Chiave_esterna




title: Chiave Esterna

author: Pablitomf

text:
> grazie
> Luciano

la chiave esterna altro non e' che un campo sulla tabella secondaria (che
non sia il suo PK che ci vuole cmq), che faccia da relazione al campo PK
della tabella primaria...

--
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.

TheSpaceCowboy :
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12


title: Chiave Esterna

text:
on 18-01-13, Karl Donaubauer supposed :
> Ciao Bruno,
>
> Bruno Campanini wrote:
>> ...
>> Che cosa sarebbe un FK? mai sentita nominare!
>>
>
> FK = Foreign Key = Chiave Esterna
>
>
http://it.wikipedia.org/wiki/Chiave_esterna

Sï¿œ il significato letterale l'avevo capito, ma perchï¿œ
Key (chiave), caso mai ï¿œ un Index (indice).

Vuoi chiamare Key un Index esterno?
Ok, e quando Index non ï¿œ come lo chiami?
Io l'ho sempre chiamato RelatedField o ForeignRelatedField.

Bruno