author: Mancini

text:
> se valorizzo il campo "origine controllo" e ci metto es. "=now()", si posiziona sulla da odierna  ma non mi permette di cambiarla
>

Tu usi "origine controllo" ......
usa invece "valore predefinito"

.


title: il controllo calendario (controllo activeX)

text:
Il giorno lunedì 5 ottobre 2015 08:04:28 UTC+2, Mancini ha scritto:

> Tu usi "origine controllo" ......
> usa invece "valore predefinito"

premesso che uso A97 con mscal.ocx versione 8:

non trovo una proprieta' "valore predefinito" (default value).

trovo solo una proprieta' "value", se ci metto un valore esplicito il calentario si punta su questo valore, ma rimane statico, ho dei problemi a gestirlo da codice.

ho provato ad assegnare valori alle proprieta' day, month e year, non da' errore ma non li utilizza.

secondo l'help inlinea il calendario semplicemente supporta il medodo "Today" che lo punta alla data odierna senza altre complicazioni. Allora io scrivo:

mioCalendario.Today
miocalendario.Refresh

non da' errore, mi capitalizza Today e Refresh segno che li capisce, ma quando apro la maschera c'è sempre la data hardcodata nella proprietà "Value".

ciao


author: Giacobino da Tradate

text:
Il 06/10/2015 17.27,
anacleto...@gmail.com
 ha scritto:

> solo una proprieta' "value", se ci metto un valore esplicito il
> calentario si punta su questo valore, ma rimane statico, ho dei
> problemi a gestirlo da codice.

lascia vuota la proprieta' "value" e lascia a si' la proprieta'
"valueIsNull"

nella maschera, in apertura, inizializza il controllo calendario cosi'

Private Sub Form_Open(Cancel As Integer)
     MioCalendario.Object.Value = Date()

End Sub

--
Per un giacobinismo in salsa padana


text:

Ciao Anacleto,
fai così, ma mi raccomando, non fermarti solo al copia e incolla :-)

Maschera Calendario:

Private NewData As Date

Private Sub CtlActiveX1_Click()
  NewData = Me!CtlActiveX1.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

Maschera dove lanci il calendario (ad esempio) su doppio clik:

Private Sub MiaData_DblClick(Cancel As Integer)
    Me.MiaData = Null
    DoCmd.OpenForm "calendario", , , , , , Me.MiaData.SelText
    If IsNull(Me.MiaData) Then
    Forms!calendario!CtlActiveX1.Value = Now
    Else
    Forms!calendario!CtlActiveX1.Value = Me.MiaData
    End If
End Sub

Private Sub MiaData_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.MiaData.SelStart = 0
    Me.MiaData.SelLength = Len(Me.MiaData.Text)
End Sub

Ciao Vladimiro


text:
Il giorno martedì 6 ottobre 2015 22:38:31 UTC+2,
vlad...@libero.it
 ha scritto:

> > come si fa a dirgli di presentare da default la data odierna?

> fai così, ma mi raccomando, non fermarti solo al copia e incolla :-)
>

ho una piccola pausa e adesso lo provo, per intanto ti ringrazio!


text:
Il giorno martedì 6 ottobre 2015 22:38:31 UTC+2,
vlad...@libero.it
 ha scritto:

> fai così, ma mi raccomando, non fermarti solo al copia e incolla :-)

Riuscito! un po' barocco ma ha funzionato e ho imparato qualcosa :-)

grazie e ciao!


text:
>
> Riuscito! un po' barocco ma ha funzionato e ho imparato qualcosa :-)
>
Ciao Anacleto,
non credo ci sia nulla di barocco in quanto:
1)Le due opzioni riguardanti l'apertura del calendario servono per determinare se la casella di testo in cui si va ad inserire la data, abbia o meno una data già inserita; in questo caso il calendario parte dalla stessa data, altrimenti, dalla data odierna.

2)Il codice sullo spostamento del mouse serve per l'inserimento manuale della data, senza far ricorso al calendario.
Siccome nella "casella di testo/Maschera di input" sono stati inseriti dei numeri per agevolare l'inserimento manuale della data, il suddetto codice fa sì che il cursore si trovi sempre all'inizio della riga evitando così di incorrere facilmente in errore.

Grazie comunque per il feedback.
Vladimiro


text:
Il giorno lunedì 12 ottobre 2015 22:46:05 UTC+2,
vlad...@libero.it
 ha scritto:

> > Riuscito! un po' barocco ma ha funzionato

> non credo ci sia nulla di barocco in quanto

non fraintendere, non era una critica ma semplicemente il tuo codice "fa più cose" di quelle mi aspettavo io.

In particolare in origine non usavo il calendario come "popup" a partire da una casella di testo, anche  se adesso avendo il tuo codice, mi sono trovato comodo ad applicarlo ad alcune applicazioni in cui inserivo la data a mano.

In origine io avevo una maschera di estrazione semplicissima con tre controlli: calendario "dadata", calendario "adata", pulsante di estrazione.

La data mostrata dai due calendari in apertura maschera erano quella del giorno in cui avevo scritto la maschera, e non la data del giorno.

per ovviare ho dovuto collegare la maschera a una tabella di appoggio contenente 1 record di due campi (da, a), aggiornare la tabella da codice (update...) e collegare i due controlli calendario ai due record. In questo modo in apertura partono con la data  odierna (l'estrazione dati che mi serve è relativa a dati del giorno, o del mese in corso).

> il suddetto codice fa sì che il cursore si trovi sempre
> all'inizio della riga evitando così di incorrere facilmente > in errore.

Ho preso nota di questa ed altre finezze di codifica :-)

Ciao


title: VBA: controllo prima di un update...

author: ringo

text:
Salve a tutti,
ho fatto un ciclo che prendendo una stringa where
va ad aggiornare una codifica utilizzando un campo
chiamato "settore"
il comando che fa l'updata è il seguente:
UPDATE polcli SET polcli.settore = " & i & " WHERE " & stringa & ";"
il tutto funziona solo che ora vorrei implementare un controllo
che mi metta in condizione di sapere se ci sono degli accavallamenti
nella codifica.
Esempio:
Allora prima del ciclo il campo "settore" di tutto l'archivio = null
Mettiamo il caso che il primo ciclo di update mi aggiorni determinati
record con il codice "001".
Supponiamo che il secondo ciclo di update oltre ad aggiornarmi
dei record con il "002" vada a sovrascrivere qualche records che ha
già "001" ecco io vorrei avere un controllo su questi accavallamenti.
Qualche dritta?
grazie!
ringo


title: PreviousControl

author: Stefano LD

text:
Piccolo problema... ciao a tutti !!!
Quando uso la funzione previouscontrol su un pulsante mi succede un errore
che dice che l'oggetto selezionato è stato chiuso!.
Ho capito che si riferisce all'ultimo controllo appunto che risulta essere
stata una maschera che avevo chiuso.
Esiste un modo per rilevare prima di fare la funzione se appunto è stato
chiuso l'oggetto... o qualcos'altro per evitare questo errore automatico?
grazie


title: PreviousControl

author: Sib dall'ufficio

text:
"Stefano LD" <
lodu...@yahoo.it
> ha scritto nel messaggio
> Quando uso la funzione previouscontrol su un pulsante mi succede un errore
> che dice che l'oggetto selezionato è stato chiuso!.
> Ho capito che si riferisce all'ultimo controllo appunto che risulta essere
> stata una maschera che avevo chiuso.
> Esiste un modo per rilevare prima di fare la funzione se appunto è stato
> chiuso l'oggetto... o qualcos'altro per evitare questo errore automatico?
Devi gestire l'errore.
Dai un'occhiata al codice che access genera con le autocomposizioni.
Sib


title: selezioni multiple record

author: Giovo

text:
Ciao
č possibile dopo aver selezionato + record in una maschera (qui ho risolto
usando un esempio di Baraldi che ringrazio!) aggiungere i record selezionati
a una tabella?
Esempio
tabella Utenti (utente1 utente2 utente3)
seleziono Utente1 utente3
aggiungo in tabella utenti_iscritti
idutente1
idutente2
Grazie


title: selezioni multiple record

author: Simone Calligaris

text:
"Giovo"

Forse ti riferisci a questo esempio di Savoldi?
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=257
Nell'esempio si mostra come accedere ai records selezionati, quindi non vedo
che problemi tu possa avere...
Saluti.


title: selezioni multiple record

text:
Grazie ma evidentemente le tue conoscenze sono incredibilmente + delle mie
Se uno chiede come fare una cosa sarà xchè non SA COME FARLA.
Quindi grazie per avermi fatto sapere che tu sai come fare.
Continuo di mio a non saperlo.
Ciao
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:4741562d$0$37197$4faf...@reader3.news.tin.it...
>
> "Giovo"
>
>> è possibile dopo aver selezionato + record in una maschera (qui ho



title: selezioni multiple record

text:
"Giovo" <
> Grazie ma evidentemente le tue conoscenze sono incredibilmente + delle mie
> Se uno chiede come fare una cosa sarà xchè non SA COME FARLA.
> Quindi grazie per avermi fatto sapere che tu sai come fare.
> Continuo di mio a non saperlo.
E' inutile che tu risponda polemicamente: in quell'esempio si mostra come
accedere ai records selezionati e stamparli.
Tu devi memorizzarli in una tabella, ma la logica è uguale.
Saluti.


title: selezioni multiple record

text:
Ok capo
ma se nonso come farlo e quesata è la domanda
o mi spighi come farlo o xchè diavolo ripondi?
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:474296b4$0$10621$4faf...@reader2.news.tin.it...



title: form di Access XP + vista con join + SQL Express + aggiunta record

author: Gabriele Bertolucci

text:
[inviato su microsoft.public.it.sql]
[inviato su microsoft.public.it.office.access]
[inviato su it.comp.appl.access]
Prima di tutto mi scuso per il cross post, ma l'argomento trattato è in bilico
tra tutti gli argomenti trattati nei vari newsgruop dove il messaggio è stato
inviato.
==================================================
Access XP.
ADP.
Form basata su una vista di SQL Express (poiché è una vista, non ha parametri).
La vista contiene due INNER JOIN.
Provando ad aggiungere un record dalla form si ottiene il seguente errore:
"Valori dei parametri di input non validi. Controllare i valodi di stato
per ulteriori dettagli."
Ho pensato che il problema fosse proprio la presenza delle JOIN (cioè SQL
non sa quale tabella deve ricevere il nuovo record), quindi ho modificato
la sorgente dati della form, sostituendo il nome della vista con un'istruzione
SELECT (SELECT * FROM tabella ORDER BY campo).
In questo modo sono riuscito ad aggiungere i record da quella form.
Cosa sto sbagliando?
Non devo utilizzare una vista come sorgente dati della form?
Devo realizzare una stored procedure?
Devo modificare la vista in qualche modo?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
Mi sono accorto solo adesso che, baso la form direttamente sul codice SQL
contenuto nella vista, piuttosto che sulla vista, allora riesco tranquillamente
ad aggiungere un nuovo record.
Spero proprio che qualcuno possa aiutarmi a capire.



author: giorgio rancati

text:
"Gabriele Bertolucci" <in...@REMOVEpbsoft.it> ha scritto nel messaggio
news:875ea35518f9d8...@news.virgilio.it...
> Mi sono accorto solo adesso che, baso la form direttamente sul codice SQL
> contenuto nella vista, piuttosto che sulla vista, allora riesco
tranquillamente
> ad aggiungere un nuovo record.
>
> Spero proprio che qualcuno possa aiutarmi a capire.
Ciao Gabriele,
prova a guardare qui
----
http://www.google.it/groups?threadm=%23FkooR6...@TK2MSFTNGP09.phx.gbl
----
questo comportamento l'avevo già preannunciato a Filippo
Ciao
--
Giorgio Rancati
[Office Access MVP]


text:
> prova a guardare qui
> ----
>
http://www.google.it/groups?threadm=%23FkooR6...@TK2MSFTNGP09.phx
> .gbl
> ----
Grazie Giorgio.
> questo comportamento l'avevo già preannunciato a Filippo
Pardon. Pur cercando e ricercando non sono riuscito a trovare post relativi
a questo problema, anche se, devo essere onesto, non ho letto interamente
i thread dei risultati di Google ma solo l'anteprima che viene ritornata.



title: problema ODBC !!!!

author: Gianlu

text:
Il problema e' il seguente:
devo accedere a un database creato con Access (normalissimo file mdb) via
ODBC;
ho provato a creare il DSN di sistema e utente, in entrambi i casi di aprire
il database via ODBC non ne vuole sapere!!!!!
come posso fare?
ciao e grazie
Gianlu
n.b. la configurazione ODBC e' corretta poiche' in Excel riesco ad accedere
ai dati


title: info access

author: News

text:
salve a tutti,
come si può utilizzare un programma fatto in ACCESS senza che l'utente abbia
acquistato la lincenza e il programma Microsoft Access.
Esistono solo degli eseguibili....??
Grazie,..


title: info access

author: AntoGal

text:
News <
fact...@tin.it
> wrote in message 873t4u$1nc$1...@nslave1.tin.it...

Il compilatore per Access non esiste. Esiste ODE (Office developer
edition), che permette di creare un set di dischi di installazione, ma NON
converte assolutamente il file MDB/MDE in EXE.
Per maggiori informazioni cerca sul Sito Comune il "faqqone".
http://members.xoom.it/it_db_access
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


title: info access

author: Lbo dall'ufficio

text:
>come si può utilizzare un programma fatto in ACCESS senza che l'utente abbia
>acquistato la lincenza e il programma Microsoft Access.
sito comune, faqqone.
-----------------------------------
ATTENZIONE: il ng it.comp.database.access cambia nome e diventa it.comp.appl.access
linkatelo!
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


title: mdb danneggiato

author: Roberto

text:
ciao a tutti, ho un mdb che da 6 mb è diventato misteriosamente di 4kb
ho qualche speranza di recuperarlo in qualche modo ?
grazie mille ciao a tutti


title: mdb danneggiato

author: Franco

text:
Il 15 Set 2010, 09:51, Roberto <
vrob...@tiscali.it
> ha scritto:
> ciao a tutti, ho un mdb che da 6 mb 蠤iventato misteriosamente di 4kb
> ho qualche speranza di recuperarlo in qualche modo ?
> grazie mille ciao a tutti
>
Prova a vedere questo sito:
http://www.donkarl.com/it/
guarda la FAQ 1.27
Saluti
Franco
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Come fare pulizia con Netscape ?

author: Sergio de Pretis

text:
Nella mia gestione messaggi ho un totale di 3182 messaggi di cui 542 non
letti. Vorrei fare pulizia di quelli più' vecchi.
Per la posta normale è sufficiente evidenziarli e poi cancellarli, ma
per il NG questo non funziona.
Qualcuno sa come fare ?
Grazie fin d'ora
--------------------------------------------------------------------
Sergio de Pretis                     E-mail
depr...@csgen.it


title: accodamento tabelle

author: marco

text:
Ho il seguente problema:
ho una tabella composta da 10 campi e un'altra composta da 1 campo
riepilogativo
tabella 1 :campo1 campo2 campo3 ecc..... in tabella1
tabella 2:campoRiepilog
devo accodare i valori dei 10 campi dalla tabella1 al campo riepilogativo di
tabella2
possibilmente co n un sistema diverso dall'esecuzione di 10 query.
ho provato con una query di accodamento ma ho un errore di duplicazione
campo.
Grazie per la consulenza.


title: accodamento tabelle

text:
marco <
yuppi...@inwind.it
> wrote in message
RxBW8.15372$7N3.3...@twister2.libero.it...

E' una chiave?... se non ti serve toglila e hai risolto.
--
Maurizio75


title: accodamento tabelle

text:
Maurizio75 <
e...@gevi.it
> wrote in message
D5CW8.13568$K_4.3...@twister1.libero.it...

ok ora provo e ti faccio sapere intanto grazie!!


title: accodamento tabelle

text:
marco <
yuppi...@inwind.it
> wrote in message
g7SW8.18733$7N3.4...@twister2.libero.it...

niente da fare.. forse mi sono spiegato male, riprovo a farti capire il
problema:
nella tabella1 che contiene i 10 campi, e nella tabella2 che contiene un
solo campo ho provveduto a rimuovere
la chiave come mi hai suggerito tu, ma il problema rimane
Infatti quando vado ad eseguire la query, mi da l'errore del nome duplicato.
Devo riuscire a far accodare i dati testo contenuti in tutti i campi della
tabella1 nel singolo campo della tabella2
Se la query va  in esecuzione con un solo campo ok
Se inserisco 2 o più campi che puntano ad un campo unico nella tabella 2,
quando la query va  in esecuzione mi da errore.
Spero di essere stato più chiaro.
Ciao


title: accodamento tabelle

text:
marco <
yuppi...@inwind.it
> wrote in message
AAUW8.19257$7N3.4...@twister2.libero.it...

Facciamo una bella cosa... mandami un esempio in un mdb e vedo cosa posso
fare per te.
--
Maurizio75


title: accodamento tabelle

text:
Te l'ho risolto ma il tuo account non mi risponde
--
Maurizio75
Maurizio75 <
e...@gevi.it
> wrote in message
gZWW8.19929$7N3.4...@twister2.libero.it...



title: accodamento tabelle

text:
Niente da fare...
--
Maurizio75


title: accodamento tabelle

text:
Maurizio75 <
e...@gevi.it
> wrote in message
AgWY8.46960$7N3.1...@twister2.libero.it...
> Niente da fare...
> --
> Maurizio75
>
>
Ciao, è molto strano, ricevo e-mail tuti i giorni e non ci sono stati mai
problemi....non so cosa dirti, prova
a dirmi come hai fatto che provo a rifare la procedura io, vediamo se ci
riesco.


title: Sottomaschera visibile o nascosta

author: Filippo

text:
Buongiorno a tutti, avrei un questito da porre in quanto da solo non riesco
a risolverlo.
Ho 2 tabelle collegate cliente e sedi, allo stesso modo la tabella
principale contiene l'anagrafica e la sede principale la sottomaschera
contiene le sedi aggiuntive.
Sarebbe possibile far comparire la sottomaschera delle sedi aggiuntive SOLO
se vi sono presenti? Lasciando cosě "pulita" la maschera principale se non
vi sono sedi aggiuntive.
Pensavo ad un comando tipo if (campo sede sottomaschera = 0 then
sottomaschera.visible = false
Non so se ho detto una fesseria č quello che mi č venuto in mente. Mi
attengo a chi ne sa di piů.
Grazie mille, Filippo.


title: Sottomaschera visibile o nascosta

author: Karl Donaubauer

text:
Filippo wrote:
> Buongiorno a tutti, avrei un questito da porre in quanto da solo non
> riesco a risolverlo.
> Ho 2 tabelle collegate cliente e sedi, allo stesso modo la tabella
> principale contiene l'anagrafica e la sede principale la sottomaschera
> contiene le sedi aggiuntive.
> Sarebbe possibile far comparire la sottomaschera delle sedi aggiuntive
> SOLO se vi sono presenti? Lasciando così "pulita" la maschera principale
> se non vi sono sedi aggiuntive.
> Pensavo ad un comando tipo if (campo sede sottomaschera = 0 then
> sottomaschera.visible = false
> Non so se ho detto una fesseria è quello che mi è venuto in mente. Mi
> attengo a chi ne sa di più.
Nel codice dell'evento "Su Corrente" della maschera principale:
Me!TuaSottomaschera.Visible = _
    Me!TuaSottomaschera.Form.RecordsetClone.RecordCount > 0
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Sottomaschera visibile o nascosta

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6csob0F...@mid.individual.net...
> Filippo wrote:
>> Buongiorno a tutti, avrei un questito da porre in quanto da solo non
>> riesco a risolverlo.
>> Ho 2 tabelle collegate cliente e sedi, allo stesso modo la tabella
>> principale contiene l'anagrafica e la sede principale la sottomaschera
>> contiene le sedi aggiuntive.
>> Sarebbe possibile far comparire la sottomaschera delle sedi aggiuntive
>> SOLO se vi sono presenti? Lasciando cosě "pulita" la maschera principale
>> se non vi sono sedi aggiuntive.
>> Pensavo ad un comando tipo if (campo sede sottomaschera = 0 then
>> sottomaschera.visible = false
>> Non so se ho detto una fesseria č quello che mi č venuto in mente. Mi
>> attengo a chi ne sa di piů.
>
> Nel codice dell'evento "Su Corrente" della maschera principale:
>
> Me!TuaSottomaschera.Visible = _
>    Me!TuaSottomaschera.Form.RecordsetClone.RecordCount > 0
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grazie per la risposta, purtroppo non mi prende la sintassi, la sto
inserendo in "Private Sub Form_Current()" sostituendo "tuasottomaschera" con
il nome esatto della sottomaschera ma mi riporta il tutto in rosso e lo
interpreta come errore? dove sbaglio?
Grazie ancora.


title: Sottomaschera visibile o nascosta

text:
Filippo wrote:
> Karl Donaubauer ha scritto:
>>> ...
>>> Pensavo ad un comando tipo if (campo sede sottomaschera = 0 then
>>> sottomaschera.visible = false
>> ...
>> Nel codice dell'evento "Su Corrente" della maschera principale:
>>
>> Me!TuaSottomaschera.Visible = _
>>    Me!TuaSottomaschera.Form.RecordsetClone.RecordCount > 0
>> ...
> Grazie per la risposta, purtroppo non mi prende la sintassi, la sto
> inserendo in "Private Sub Form_Current()" sostituendo
> "tuasottomaschera" con il nome esatto della sottomaschera ma mi
> riporta il tutto in rosso e lo interpreta come errore? dove sbaglio?
Non ricevi un messaggio di errore?
Se hai un errore nel codice devi sempre fare copia/incolla del codice
rilevante qui nel tuo messaggio. Altrimenti si puo solo indovinare.
--
cu



title: Sottomaschera visibile o nascosta

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6d1ncr...@mid.individual.net...

Mi esce un popup con scritto: Errore di compilazione: Errore di sintassi.
io ho incollato questo dentro l'evento che mi hai indicato:
Private Sub Form_Current()
Me!Form_Altre sedi= _
    Me!Form_Altre sedi.Form.RecordsetClone.RecordCount > 0
End Sub
ho provato sia con che senza il prefisso "form" prima del nome della
sottomaschera (Altre sedi).
Grazie ancora.


title: Sottomaschera visibile o nascosta

text:
On 3 Lug, 00:15, "Filippo" <
filippo...@libero.it
> wrote:
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggionews:6d1ncr...@mid.individual.net...

> Grazie ancora.- Nascondi testo citato
>
> - Mostra testo citato
Non so nenache di cosa state parlando, ma cribbio un po' di
attenzione!!
Karl scrisse:
Me!Form_Altre sedi.VISIBLE=....
F.


title: Sottomaschera visibile o nascosta

text:
<
al...@libero.it
> ha scritto nel messaggio
news:96e8bcc9-737a-490e...@m73g2000hsh.googlegroups.com...


F.
Skusa F. nn ho kapito. Ho sbagliato in qualcosa?
Grazie.


title: Sottomaschera visibile o nascosta

text:
Filippo wrote:
> "Karl Donaubauer ha scritto:
>>>>> ...
>>>>> Pensavo ad un comando tipo if (campo sede sottomaschera = 0 then
>>>>> sottomaschera.visible = false
>>>> ...
>>>> Nel codice dell'evento "Su Corrente" della maschera principale:
>>>>
>>>> Me!TuaSottomaschera.Visible = _
>>>>    Me!TuaSottomaschera.Form.RecordsetClone.RecordCount > 0
>> ..
> Mi esce un popup con scritto: Errore di compilazione: Errore di sintassi.
>
> io ho incollato questo dentro l'evento che mi hai indicato:
>
> Private Sub Form_Current()
> Me!Form_Altre sedi= _
>    Me!Form_Altre sedi.Form.RecordsetClone.RecordCount > 0
> End Sub
>
> ho provato sia con che senza il prefisso "form" prima del nome della
> sottomaschera (Altre sedi).
È consigliabile di evitare spazi nei nomi dei oggetti. Altrimenti
devi sempre usare parentesi quadri. Vedi anche:
www.donkarl.com/it?FAQ1.5
Non è chiaro cosa si trova nella proprietà "Nome" del tuo controllo
sottomaschera nella maschera principale. Se questo nome è
"Altre sedi" devi usare:
Me![Altre sedi].Visible = _
    Me![Altre sedi].Form.RecordsetClone.RecordCount > 0
--
HTH



title: Sottomaschera visibile o nascosta

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6d3atj...@mid.individual.net...
> Filippo wrote:
>> "Karl Donaubauer ha scritto:
>>>>>> ...
>>>>>> Pensavo ad un comando tipo if (campo sede sottomaschera = 0 then
>>>>>> sottomaschera.visible = false
>>>>> ...
>>>>> Nel codice dell'evento "Su Corrente" della maschera principale:
>>>>>
>>>>> Me!TuaSottomaschera.Visible = _
>>>>>    Me!TuaSottomaschera.Form.RecordsetClone.RecordCount > 0
>>> ..
>> Mi esce un popup con scritto: Errore di compilazione: Errore di sintassi.
>>
>> io ho incollato questo dentro l'evento che mi hai indicato:
>>
>> Private Sub Form_Current()
>> Me!Form_Altre sedi= _
>>    Me!Form_Altre sedi.Form.RecordsetClone.RecordCount > 0
>> End Sub
>>
>> ho provato sia con che senza il prefisso "form" prima del nome della
>> sottomaschera (Altre sedi).
>
> Č consigliabile di evitare spazi nei nomi dei oggetti. Altrimenti
> devi sempre usare parentesi quadri. Vedi anche:
>
www.donkarl.com/it?FAQ1.5
>
> Non č chiaro cosa si trova nella proprietą "Nome" del tuo controllo
> sottomaschera nella maschera principale. Se questo nome č
> "Altre sedi" devi usare:
>
> Me![Altre sedi].Visible = _
>    Me![Altre sedi].Form.RecordsetClone.RecordCount > 0
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grazie Mille Karl.
Filippo.


title: Conversione dei moduli da A97 a A2003

author: Cristian

text:
Ciao a tutti,
premesso che sono un principiante, ho creato un programmino in access97,
ho provato a convertirlo in access2003
il db funziona bene, ritengo per� che i moduli compilati non siano stati
convertiti.
Faccio un esempio:
modulo che uso per impostare temporaneamente una stampante diversa da quella
predefinita:
PDFFILEINI (modulo):
Option Compare Database
Option Explicit
'Read INI settings
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
   "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpDefault As String, _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
'Write settings
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
   "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
   ByVal lpKeyName As Any, ByVal lpString As Any, _
   ByVal lpFileName As String) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Function ReadINIfile(sSection As String, sEntry As String, sFilename As
String) As String
Dim x As Long
Dim sDefault As String
Dim sRetBuf As String, iLenBuf As Integer
Dim sValue As String
'Six arguments
'Explanation of arguments:
'sSection: ini file section (always between brackets)
'sEntry : word on left side of "=" sign
'sDefault$: value returned if function is unsuccessful
'sRetBuf$ : the value you're looking for will be copied to this buffer
string
'iLenBuf% : Length in characters of the buffer string
'sFileName: Path to the ini file
sDefault$ = ""
sRetBuf$ = String$(256, 0)   '256 null characters
iLenBuf% = Len(sRetBuf$)
x = GetPrivateProfileString(sSection, sEntry, _
           sDefault$, sRetBuf$, iLenBuf%, sFilename)
ReadINIfile = Left$(sRetBuf$, x)
End Function
PDFMODULOCREA (modulo)
Option Compare Database
Public Function creapdf(percorsopdf As String, NomeFile As String,
nomereport As String, Optional email As String)
'On Error GoTo Esci
'recupero la stampante predefinita
Dim tmpPrinter As String
tmpPrinter = GetDefaultPrinter1
'imposto come stampante predefinita la stampante pdfcreator
Dim stamp As String
stamp = DLookup("[stampante pdf]", "SetupParametri", "[ID] = 1")
SetDefaultPrinter1 (stamp)
    'Dim ValRit As Long
   ' Dim NomeFile As String
    Dim percorsoINI As String
    'Dim percorsopdf As String
'questo percorso � da impostare manualmente in base a dove si ha installato
il file pdfcreator.ini
    percorsoINI = DLookup("[percorso ini]", "SetupParametri", "[ID] = 1")
''''settare il percorso dove si trova il file pdfcreator
    'PercorsoPDF = "c:\" ''''' settare il percorso dove si vuole salvare il
file
    'NomeFile = "provailfilepdf" ''''settare il nome del file che si vuole
assegnare
    Dim tmppercorsopdf As String
    Dim tmpuseautosave As String
    Dim tmpnomefile As String
    Dim tmpformatooutput As String
Dim formatooutput As String
formatooutput = DLookup("[formato output]", "SetupParametri", "[ID] = 1")
''''settare il percorso dove si trova il file pdfcreator
MsgBox formatooutput
    'recupero le SetupParametri del file ini originarie
    tmppercorsopdf = ReadINIfile("Options", "AutosaveDirectory",
percorsoINI) 'legge dal file
    tmpuseautosave = ReadINIfile("Options", "useAutosave", percorsoINI)
'legge dal file
    tmpnomefile = ReadINIfile("Options", "AutosaveFilename", percorsoINI)
'legge dal file
    tmpformatooutput = ReadINIfile("Options", "AutosaveFormat", percorsoINI)
'legge dal file
    'setto le SetupParametri del file ini come servono per creare il
documento
    x = WritePrivateProfileString("Options", "AutosaveDirectory",
percorsopdf, percorsoINI) 'scrive nel file
    x = WritePrivateProfileString("Options", "AutosaveFilename", NomeFile,
percorsoINI) 'scrive nel file
    x = WritePrivateProfileString("Options", "useautosave", "1",
percorsoINI) 'scrive nel file
    x = WritePrivateProfileString("Options", "AutosaveFormat",
formatooutput, percorsoINI) 'scrive nel file
   'stampo il report
    DoCmd.OpenReport nomereport, acViewNormal ''''settareilnomedelreport
    'ReSetDefaultPrinter1
    Sleep (2000)
    'Ripristino i valori predefiniti
    x = WritePrivateProfileString("Options", "AutosaveDirectory",
tmppercorsopdf, percorsoINI) 'scrive nel file
    x = WritePrivateProfileString("Options", "AutosaveFilename",
tmpnomefile, percorsoINI) 'scrive nel file
    x = WritePrivateProfileString("Options", "useautosave", tmpuseautosave,
percorsoINI) 'scrive nel file
    x = WritePrivateProfileString("Options", "useautosave",
tmpformatooutput, percorsoINI) 'scrive nel file
'ripristino la stampante predefinita
SetDefaultPrinter1 (tmpPrinter)
    Exit Function
'Esci:
'MsgBox Error
End Function
PDFPRINTERS (modulo)
Option Compare Database
Option Explicit
'funzione di Carlo Costarella, Lorenzo Coronati
Declare Function GetProfileSection& Lib "kernel32" Alias
"GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As
String, ByVal nSize As Long)
Declare Function GetProfileString& Lib "kernel32" Alias "GetProfileStringA"
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As
String, ByVal lpReturnedString As String, ByVal nSize As Long)
Declare Function WriteProfileString& Lib "kernel32" Alias
"WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As
String, ByVal lpszString As String)
Public DefaultPrinter1 As String
Public Function SostCar(s As String, c1 As String, c2 As String) As String
'sostituisce un carattere con un altro in una stringa (solo prima
occorrenza)
Dim pos As Integer
pos = InStr(1, s, c1)
If pos > 0 Then Mid(s, pos) = c2
SostCar = s
End Function
Public Sub SetDefaultPrinter1(s As String)
'imposta la stampante passata come argomento a predefinita
On Error GoTo Esci
Dim x As Long
If IsNull(s) Or s = "" Then Exit Sub
x = WriteProfileString("windows", "device", vbNullString)
DoEvents
x = WriteProfileString("windows", "device", s)
DoEvents
Esci:
End Sub
Public Sub ResetDefaultPrinter1()
'reimposta a predefinita la stampante memorizzata nella var globale
SetDefaultPrinter1 (DefaultPrinter1)
End Sub
Public Function GetDefaultPrinter1() As String
'ritorna il nome della stampante predefinita
Dim x As Integer
Dim buffer As String
buffer = Space$(255)
x = GetProfileString("windows", "device", "?", buffer, 255)
GetDefaultPrinter1 = Left$(buffer, x)
End Function
nella routine della maschera la richiamo:
            Call creapdf("c:\", "pipponew", "BOLLA")
non funziona stampa con la stampante predefinita.
altro modulo che non funziona:
Option Explicit
'Descrizione PROPRIETA' della CLASSE
'
'Propriet� da IMPOSTARE (LET)
'
'     .Continuos_Bar             =Modo grafico di Visualizzazione
'                                 True    =Continuo
'                                 False   =Tratteggiato (DEFAULT)
'     .Min                       =Valore MINIMO da cui parte
'                                 DEFAULT=0
'     .Max                       =Valore MASSIMO a cui arriva
'                                 DEFAULT=100
'     .Colora                    =Colore della Barra di PROGRESSIONE
'     .BackColor                 =Colore di SFONDO della Barra di
PROGRESSIONE
'     .ManualPosition            =Imposta/Ripristina AutoProgress o
ManualProgress
'                                 Default = False
'                                 Con il Passagio delle COORDINATE viene
'                                 settato=TRUE, per tornare in AUTOPROGRESS
'                                 va ripristinato
'     .Speed_AutoPB              =Setta la VELOCITA' della Barra di
PROGRESSIONE
'                                 SOLO IN AUTOPROGRESS
'
'Propriet� RESTITUITE (GET)
'     .Hwnd_ProgressBar          =Restituisce il VALORE(Long) dell'HWND
della BARRA
'     .ValuePercentage           =Valore Percentuale
'     .ValueAbsolute             =Valore Assoluto Relativo
'
'Metodi della Classe
'
'     .AutomaticProgress         =Genera un Ciclo di Scansione(SIMULAZIONE)
'                                 Pu� essere con Posizione Manuale o
Automatica
'                                 PosizionePredefinita=DEFAULT=Fondo Form
'     .Value                     =Aggiorna il VALORE Relativo della Barra di
PROGRESSIONE
'                                  N.B.� dipendente da .Max e .Min
'                                  VALORE da passare (LONG)
'     .Resize                    =Ricalcola le dimensioni della Form nel
caso
'                                 del Posizionamento Automatico su Fondo
Form
'                                 Da applicare all'EVENTO ON_RESIZE di FORM
'     .ProgressInStatus          =Attribuisce la PROGRESS alla STATUS_BAR
'                                 VALORI DA PASSARE:
'                                 Hwnd(Long) della STATUS_BAR
'                                 Numero di Sezione(Byte) della STATUS
'     .SetManualPosition         =Imposta la posizione della Barra di
PROGRESSIONE
'                                 VALORI DA PASSARE in TWIPS(Standard di
ACCESS):
'                                 LEFT(Long) TOP(Long) Height(Long)
Width(Long)
'=========================================================================
'Variabile per il calcolo del rapporto Twips/Pixel
Private Type POINTAPI
    x As Long
    Y As Long
End Type
'Variabile per la POSIZIONE dell'Oggetto
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'Variabile per le misure dimensionali dell'Oggetto
Private Type Coords
    Left As Long
    Top As Long
    Width As Long
    Height As Long
    State As Long
End Type
Private Const cTwipsPerInch = 1440          'Costante 1 Inch = 1440 Twips
Private mptCurrentScreen As POINTAPI        '
Private mptTwipsPerPixel As POINTAPI        '
Private Const SM_CXFULLSCREEN = 16
Private Const SM_CYFULLSCREEN = 17
Private Const LOGPIXELSX = 88               '  Logical pixels/inch in X
Private Const LOGPIXELSY = 90               '  Logical pixels/inch in Y
Private mFCOORDS As Coords
'Costanti di dimensione BORDI Finestre
Private Const cBorderWidthX = 2
Private Const cBorderWidthY = 2
'--------------------------------------------------------------------------
'API per la gestione del calcolo DIMENSIONALE
Private Declare Function GetDC _
 Lib "user32" _
 (ByVal hwnd As Long) As Long
Private Declare Function GetSystemMetrics _
 Lib "user32" _
 (ByVal nIndex As Long) As Long
Private Declare Function GetDeviceCaps _
 Lib "gdi32" _
 (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function GetParent _
 Lib "user32" _
 (ByVal hwnd As Long) As Long
Private Declare Function GetWindowRect _
   Lib "User32.dll" _
   (ByVal hwnd As Long, lpRect As RECT) As Long
'===========================================================================
=========
'COSTANTI PERSONALIZZATE
Private m_hProgBar As Long                  'HWnd della PROGRESS
Private m_ParentHwnd As Long                'HWnd eventuale della Status
Private m_Continuos As Boolean              'Modalit� di visualizzazione
                                            'True   =   CONTINUA
                                            'False  =   TRATTI
Private m_ManualSetting As Boolean          'Abilita il posizionamento
Manuale
Private m_Speed As Integer                  'Velocit� di scorrimento
Private m_PB_Color As Long                  'Colore della PROGRESS
Private m_PB_BackColor As Long              'Sfondo della PROGRESS
Private mF As Form                          'Form di destinazione
Private m_Min As Long                       'Valore MINIMO
Private m_Max As Long                       'Valore MASSIMO
Private m_Percentage As Integer             'Valore Percentuale
Private m_Absolute   As Long                'Valore Assoluto relativo
Private m_IsCreate As Boolean               'Flag di PB esistente in Manuale
Private m_Width As Long                     'LARGHEZZA
Private m_Height As Long                    'ALTEZZA
Private m_Left As Long                      'SINISTRA
Private m_Top As Long                       'ALTO
Private Const PBGrey = 12632256             'Costante colore=Grigio
Private Const PBBlu = 8388608               'Costante colore=Blu
Private Const PBSpeed = 1                   'Costante Velocit�
'===========================================================================
=========
'Costanti di PROGRESS BAR CONTROL
Private Const PROGRESS_CLASS = "msctls_progress32"
Private Const WM_USER = &H400
Private Const PBM_SETRANGE = (WM_USER + 1)
Private Const PBM_SETPOS = (WM_USER + 2)
Private Const PBM_DELTAPOS = (WM_USER + 3)
Private Const PBM_SETSTEP = (WM_USER + 4)
Private Const PBM_STEPIT = (WM_USER + 5)
Private Const PBM_SETRANGE32 = (WM_USER + 6)
Private Const PBM_GETRANGE = (WM_USER + 7)
Private Const PBM_GETPOS = (WM_USER + 8)
Private Const PBM_IterNum = 100
Private Const PBM_Max = 100
Private Const PBM_Min = 0
'set progressbar backcolor in IE3 or later
Private Const PBM_SETBKCOLOR  As Long = (&H2000& + 1)
'set progressbar barcolor in IE4 or later
Private Const PBM_SETBARCOLOR As Long = (WM_USER + 9)
'Costanti di STATUS BAR CONTROL
Private Const SB_GETPARTS As Long = WM_USER + 6
Private Const SB_GETRECT = (WM_USER + 10)
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA"
_
                          (ByVal dwExStyle As Long, ByVal lpClassName As
String, _
                           ByVal lpWindowName As String, ByVal dwStyle As
Long, _
                           ByVal x As Long, ByVal Y As Long, _
                           ByVal nWidth As Long, ByVal nHeight As Long, _
                           ByVal hWndParent As Long, ByVal hMenu As Long, _
                           ByVal hInstance As Long, lpParam As Any) As Long
' Styles
Private Const PBS_SMOOTH = &H1
Private Const WS_VISIBLE = &H10000000
Private Const WS_CHILD = &H40000000
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As
Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                          (ByVal hwnd As Long, ByVal wMsg As Long, _
                          wParam As Any, lParam As Any) As Long
'===========================================================================
=============
Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MoveWindow Lib "user32" _
                              (ByVal hwnd As Long, _
                              ByVal x As Long, ByVal Y As Long, _
                              ByVal nWidth As Long, ByVal nHeight As Long, _
                              ByVal bRepaint As Long) As Long
'===========================================================================
=============
'API per verificare la presenza della DLL ComCtl32.Dll
' Ensures that the common control dynamic-link library (DLL) is loaded.
Private Declare Sub InitCommonControls Lib "ComCtl32.dll" ()
' IE3 & later
' Returns TRUE (non-zero) if successful, or FALSE otherwise.
Private Declare Function InitCommonControlsEx Lib "ComCtl32.dll" _
                            (lpInitCtrls As tagINITCOMMONCONTROLSEX) As
Boolean
Private Type tagINITCOMMONCONTROLSEX   ' icc
    dwSize As Long                              ' // size of this structure
    dwICC As Long                               ' // flags indicating which
classes to be initialized
End Type
' Set of bit flags that indicate which common control classes will be
' loaded from the DLL. This value can be a combination of the following:
Private Const ICC_LISTVIEW_CLASSES = &H1        ' // listview, header
Private Const ICC_TREEVIEW_CLASSES = &H2        ' // treeview, tooltips
Private Const ICC_BAR_CLASSES = &H4             ' // toolbar, statusbar,
trackbar, tooltips
Private Const ICC_TAB_CLASSES = &H8             ' // tab, tooltips
Private Const ICC_UPDOWN_CLASS = &H10           ' // updown
Private Const ICC_PROGRESS_CLASS = &H20         ' // progress
Private Const ICC_HOTKEY_CLASS = &H40           ' // hotkey
Private Const ICC_ANIMATE_CLASS = &H80          ' // animate
Private Const ICC_WIN95_CLASSES = &HFF          ' // loads everything above
Private Const ICC_DATE_CLASSES = &H100          ' // month picker, date
picker, time picker, updown
Private Const ICC_USEREX_CLASSES = &H200        ' // comboex
Private Const ICC_COOL_CLASSES = &H400          ' // rebar (coolbar) control
'API per mettere in SLEEP aggiunge un Delay in Millisecondi
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Class_Initialize()
  IsNewComctl32
End Sub
Private Sub Class_Terminate()
   If IsWindow(m_hProgBar) Then DestroyWindow m_hProgBar
End Sub
Property Set Form(f As Form)
   Set mF = f
   m_ParentHwnd = mF.hwnd
   m_Continuos = False
   m_ManualSetting = False
   m_IsCreate = False
   m_Speed = PBSpeed
   m_PB_Color = PBBlu
   m_PB_BackColor = PBGrey
   m_Max = PBM_IterNum
   m_Min = 0
   SpaceCalculate
End Property
'===========================================================================
===
'Propriet� in Scrittura (Input di CLASSE)
Property Let Continuos_Bar(Value As Boolean)
   m_Continuos = Value
End Property
Property Let Speed_AutoPB(Value As Integer)
   If Value < 1 Or Value > 20 Then
      m_Speed = PBSpeed
   Else
      m_Speed = Value
   End If
End Property
Property Let Min(Value As Long)
    m_Min = Value
End Property
Property Let Max(Value As Long)
    m_Max = Value
End Property
Property Let Color(Value As Long)
    m_PB_Color = Value
End Property
Property Let BackColor(Value As Long)
    m_PB_BackColor = Value
End Property
Property Let ManualPosition(Value As Boolean)
   m_ManualSetting = Value
End Property
'===========================================================================
===
'Propriet� in Lettura (Output di CLASSE)
Property Get Hwnd_ProgressBar() As Long
   Hwnd_ProgressBar = m_hProgBar
End Property
Property Get ValuePercentage() As Integer
   ValuePercentage = m_Percentage
End Property
Property Get ValueAbsolute() As Long
   ValueAbsolute = m_Absolute
End Property
'Propriet� FACOLTATIVE
'per attivarle togliere l'APICE
'Property Get Form_Width_Pxl() As Long
'   Form_Width_Pxl = mFCOORDS.Width
'End Property
'Property Get Form_Height_Pxl() As Long
'   Form_Height_Pxl = mFCOORDS.Height
'End Property
'Property Get Form_Left_Pxl() As Long
'   Form_Left_Pxl = mFCOORDS.Left
'End Property
'Property Get Form_Top_Pxl() As Long
'   Form_Top_Pxl = mFCOORDS.Top
'End Property
'Property Get X_TwipsToPixel() As Integer
'    X_TwipsToPixel = mptTwipsPerPixel.x
'End Property
'Property Get Y_TwipsToPixel() As Integer
'    Y_TwipsToPixel = mptTwipsPerPixel.y
'End Property
'Property Get X_Resolution() As Long
'    X_Resolution = mptCurrentScreen.x
'End Property
'Property Get Y_Resolution() As Long
'    Y_Resolution = mptCurrentScreen.y
'End Property
Public Sub AutomaticProgress()
  Static bRunning As Boolean
  Dim dwIncrement As Long
  Dim dwItins As Long
  Dim dwIdx As Long
  On Error GoTo Out
  If bRunning Then bRunning = False: Exit Sub
  m_Max = PBM_Max: m_Min = PBM_Min
  bRunning = CreateProgressBar
  ' Set the value of the highlight increment. We''ll set it to 100
  ' itins here for the example even though it's the default value.
  dwIncrement = m_Max / PBM_IterNum
  SendMessage m_hProgBar, PBM_SETSTEP, ByVal dwIncrement, 0
  For dwIdx = PBM_Min To PBM_Max
    If Not bRunning Then Exit For
    'Delay
    Sleep m_Speed
    SendMessage m_hProgBar, PBM_SETPOS, ByVal dwIdx, 0
  Next
Out:
  If IsWindow(m_hProgBar) Then DestroyWindow m_hProgBar
  bRunning = False
End Sub
Public Sub Value(pbValue As Long)
  Dim Position As Long
  On Error GoTo Out
  Position = GetPos(pbValue)
  If m_IsCreate And Position < PBM_Max Then
      'Il Delay sotto pu� essere rimosso
      '=================================
      'Sleep m_Speed * 2
      '=================================
      SendMessage m_hProgBar, PBM_SETPOS, ByVal Position, 0
      RetValue pbValue
  ElseIf m_IsCreate And Position >= PBM_Max Then
      RetValue m_Max
      DestroyWindow m_hProgBar
      m_hProgBar = 0
      m_IsCreate = False
  ElseIf Not m_IsCreate Then
      m_IsCreate = CreateProgressBar
  End If
Exit_here:
   Exit Sub
Out:
  If IsWindow(m_hProgBar) Then DestroyWindow m_hProgBar
  m_IsCreate = False
End Sub
Public Sub Resize()
  ' If we have a progress bar, adjust it's width & height w/ the form
  If IsWindow(m_hProgBar) Then
      If Not m_ManualSetting Then SpaceCalculate
      MoveWindow m_hProgBar, m_Left, m_Top, m_Width, m_Height, True
    ' Display the progress bar's current size
  End If
End Sub
Public Function ProgressInStatus(StatusHwnd As Long, StatusPanel_Num As
Byte) As Boolean
    'Passando l'Hwnd della STATUS e il N� di PANNEL
    'restituisce le COORDINATE per il calcolo
    'dimensionale del PANEL in cui inserire la PB
    Dim PnlCoords As Coords
    Dim rct As RECT
    If StatusHwnd = 0 Then
      ProgressInStatus = False
      Exit Function
    End If
    If StatusPanel_Num + 1 > GetParts(StatusHwnd) Then
        ProgressInStatus = False
        Exit Function
    Else
        SendMessage StatusHwnd, SB_GETRECT, ByVal StatusPanel_Num, rct
        PnlCoords = RctToCoords(rct)
        With PnlCoords
          m_Width = .Width - cBorderWidthX
          m_Height = .Height - cBorderWidthY
          m_Top = (mF.InsideHeight / mptTwipsPerPixel.Y) - .Height +
cBorderWidthY / 2
          m_Left = .Left + cBorderWidthX / 2
        End With
        ProgressInStatus = True
        m_ManualSetting = True
    End If
End Function
Public Sub SetManualPosition(Left As Long, Top As Long, Height As Long,
Width As Long)
   m_Width = Width / mptTwipsPerPixel.x
   m_Height = Height / mptTwipsPerPixel.Y
   m_Top = Top / mptTwipsPerPixel.Y
   m_Left = Left / mptTwipsPerPixel.x
   m_ManualSetting = True
End Sub
'=======================================================================
'Funzioni e Sub Private
'=======================================================================
Private Sub GetPxNum()
    On Error GoTo HandleErrors
    Dim lngDC As Long
    Dim ptCurrentDPI As POINTAPI
    Const HWND_DESKTOP = 0
    lngDC = GetDC(HWND_DESKTOP)
    If lngDC <> 0 Then
        ' Find the number of pixels in both directions
        ' on the screen, (640x480, 800x600, 1024x768,
        ' 1280x1024?). This also takes into account
        ' the size of the task bar, where ever it is.
        mptCurrentScreen.x = _
         GetSystemMetrics(SM_CXFULLSCREEN)
        mptCurrentScreen.Y = _
         GetSystemMetrics(SM_CYFULLSCREEN)
        ' Get the pixels/inch ratio, as well.
        ptCurrentDPI.x = GetDeviceCaps(lngDC, LOGPIXELSX)
        ptCurrentDPI.Y = GetDeviceCaps(lngDC, LOGPIXELSY)
        mptTwipsPerPixel.x = _
         cTwipsPerInch / ptCurrentDPI.x
        mptTwipsPerPixel.Y = _
         cTwipsPerInch / ptCurrentDPI.Y
    End If
ExitHere:
    Exit Sub
HandleErrors:
    MsgBox err.Number & "  " & err.description
    Resume ExitHere
End Sub
Private Sub GetCoords(cToFill As Coords)
    On Error GoTo HandleErrors
    Dim hWndParent As Long
    Dim rctParent As RECT
    Dim rct As RECT
    hWndParent = GetParent(mF.hwnd)
    Call GetWindowRect(mF.hwnd, rct)
    Call GetWindowRect(mF.hwnd, rctParent)
    With rct
       .Left = .Left - rctParent.Left - cBorderWidthX
       .Top = .Top - rctParent.Top - cBorderWidthY
       .Right = .Right - rctParent.Left - cBorderWidthX
       .Bottom = .Bottom - rctParent.Top - cBorderWidthY
    End With
    cToFill = RctToCoords(rct)
ExitHere:
    Exit Sub
HandleErrors:
    MsgBox err.Number & " " & err.description
    Resume ExitHere
End Sub
Private Function RctToCoords(rct As RECT) As Coords
    ' Convert from a RECT struct to a COORDS struct.
    ' This seems to come up often.
    Dim C As Coords
    With C
        .Left = rct.Left
        .Top = rct.Top
        .Width = rct.Right - rct.Left
        .Height = rct.Bottom - rct.Top
    End With
    RctToCoords = C
End Function
Private Sub SpaceCalculate()
   'Recupera le COORDINATE di posizionamento
   'Standard Fondo FORM
   GetPxNum
   m_Width = mF.InsideWidth / mptTwipsPerPixel.x - 1
   m_Height = 15
   m_Left = 1
   m_Top = mF.InsideHeight / mptTwipsPerPixel.Y - m_Height
End Sub
Private Function GetParts(StatusHwnd As Long) As Integer
   'Recupera il numero di Sezioni o Panel in cui �
   'divisa la STATUS_BAR
  GetParts = SendMessage(StatusHwnd, SB_GETPARTS, 0, ByVal 0)
End Function
Private Sub SetProgressBarColour(ByVal clrref As Long)
   'Imposta il Colore della Progress BAR
   Call SendMessage(m_hProgBar, PBM_SETBARCOLOR, 0&, ByVal clrref)
End Sub
Private Sub SetProgressBackColour(ByVal clrref As Long)
   'Imposta il Colore di SFONDO della Progress BAR
   Call SendMessage(m_hProgBar, PBM_SETBKCOLOR, 0&, ByVal clrref)
End Sub
Private Function IsNewComctl32() As Boolean
' Rtns True if the current working version of Comctl32.dll
' supports the new IE3 sytles & msgs. Rtns False if old version.
' Also ensures that the Comctl32.dll library is loaded for use.
' This hack is much easier than checking the file version...
' VB4 (& VB5 ?) resolves API function names only
' when they're called, not when it compiles code!
  Dim icc As tagINITCOMMONCONTROLSEX
  On Error GoTo OldVersion
  icc.dwSize = Len(icc)
  icc.dwICC = ICC_PROGRESS_CLASS
  ' VB will generate error 453 "Specified DLL function not found"
  ' here if the new version isn't installed.
  IsNewComctl32 = InitCommonControlsEx(icc)
  Exit Function
OldVersion:
  InitCommonControls
End Function
Private Function CreateProgressBar() As Boolean
      'Genera il Riferimento della Progress BAR
      'impostando il RANGE e i colori di DEFAULT
      Dim dwRange As Long
      m_hProgBar = CreateWindowEx(0, PROGRESS_CLASS, _
                                 vbNullString, _
                                 WS_CHILD Or WS_VISIBLE Or IIf(m_Continuos,
PBS_SMOOTH, 0), _
                                 0, 0, 0, 0, mF.hwnd, 0, 0, _
                                 ByVal 0)
      If m_hProgBar = 0 Then
         CreateProgressBar = False
         Exit Function
      End If
      Resize
      SetProgressBarColour m_PB_Color
      SetProgressBackColour m_PB_BackColor
      dwRange = PBM_Min Or PBM_Max * &H10000
      ' Set the range of the progess bar.
      ' (Minimum range = low word, Maximum range = high word).
      SendMessage m_hProgBar, PBM_SETRANGE, 0, ByVal dwRange
      CreateProgressBar = True
End Function
Private Function GetPos(Value As Long) As Long
   'Converte il valore Assoluto Relativo passato
   'in valore PERCENTUALE, in quanto la Progress BAR
   'per semplicit� ha un campo 0...100
   GetPos = Int(100 * Value / (m_Max - m_Min))
End Function
Private Sub RetValue(Value As Long)
   'Restituisce il valore PERCENTUALE
   'e Assoluto Relativo
   m_Percentage = 100 * Value / (m_Max - m_Min)
   m_Absolute = Value
End Sub
Qualcuno mi puo' aiutare?
Grazie
Ciao
Chita


title: Conversione dei moduli da A97 a A2003

author: Marco Pizzamiglio

text:
Cristian ha scritto:
> Ciao a tutti,
> premesso che sono un principiante, ho creato un programmino in access97,
> ho provato a convertirlo in access2003
> il db funziona bene, ritengo per� che i moduli compilati non siano stati
> convertiti.
[cut]
> Qualcuno mi puo' aiutare?
> Grazie
> Ciao
> Chita
Apri un modulo qualsiasi, vai su Strumenti->Riferimenti e guarda se tra le
librerie selezionate ce n'� qualcuna con scritto MANCA:
Se si togli la spunta e cercane una col nome simile, probabilmente
troverai una versione pi� recente.
Poi vai su Debug->Compila e vedi se esce qualche errore.
Ciao.
-Marco-
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Conversione dei moduli da A97 a A2003

text:
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:h6tnv4$h9h$1...@news.newsland.it...
> Cristian ha scritto:
>
> > Ciao a tutti,
> > premesso che sono un principiante, ho creato un programmino in access97,
> > ho provato a convertirlo in access2003
> > il db funziona bene, ritengo per� che i moduli compilati non siano stati
> > convertiti.
> [cut]
> > Qualcuno mi puo' aiutare?
> > Grazie
> > Ciao
> > Chita
>
>
> Apri un modulo qualsiasi, vai su Strumenti->Riferimenti e guarda se tra le
sul pc dove � installato solo A97 la libreria � : Microsoft Access 8.0
Object Library e Microsoft DAO 3.6 Object Library
sul pc dove � installato sia A97 che A203 la libreria � : Microsoft Access
11.0 Object Library e Microsoft DAO 3.6 Object Library
> librerie selezionate ce n'� qualcuna con scritto MANCA:
NESSUN OGGETTO MANCANTE
Che fare?????
Grazie
Ciao
Chita



title: Conversione dei moduli da A97 a A2003

text:
Cristian ha scritto:
> > > Ciao a tutti,
> > > premesso che sono un principiante, ho creato un programmino in access97,
> > > ho provato a convertirlo in access2003
> > > il db funziona bene, ritengo per� che i moduli compilati non siano stati
> > > convertiti.
> > [cut]
> > > Qualcuno mi puo' aiutare?
> > > Grazie
> > > Ciao
> > > Chita
> >
> >
> > Apri un modulo qualsiasi, vai su Strumenti->Riferimenti e guarda se tra le
> sul pc dove � installato solo A97 la libreria � : Microsoft Access 8.0
> Object Library e Microsoft DAO 3.6 Object Library
> sul pc dove � installato sia A97 che A203 la libreria � : Microsoft Access
> 11.0 Object Library e Microsoft DAO 3.6 Object Library
> > librerie selezionate ce n'� qualcuna con scritto MANCA:
> NESSUN OGGETTO MANCANTE
> Che fare?????
> Grazie
> Ciao
> Chita
Il db funziona bene.
Allora perch� ritieni che i moduli compilati non siano stati convertiti?
Cosa intendi per modulo compilato? E cosa intendi per modulo convertito?
Manca qualche modulo dopo la conversione ad A2003 o ci sono tutti?
Non funziona pi� qualche sub o function?



title: Conversione dei moduli da A97 a A2003

text:
> > sul pc dove � installato solo A97 la libreria � : Microsoft Access 8.0
> > Object Library e Microsoft DAO 3.6 Object Library
> > sul pc dove � installato sia A97 che A203 la libreria � : Microsoft
Access
> > 11.0 Object Library e Microsoft DAO 3.6 Object Library
>
> > > librerie selezionate ce n'� qualcuna con scritto MANCA:
>
> > NESSUN OGGETTO MANCANTE
> > Che fare?????
>
> > Grazie
> > Ciao
> > Chita
>
>
> Il db funziona bene.
Si!
a parte quando voglio cambiare la stampante predefinita in pdfcreator








End Function





SetDefaultPrinter1 (stamp)



MsgBox formatooutput



'ripristino la stampante predefinita
SetDefaultPrinter1 (tmpPrinter)










> Allora perch� ritieni che i moduli compilati non siano stati convertiti?
In realt� � una mia supposizione (probabilmente sbagliata), in quanto
lanciando la stampa di un file in pdf (vedi moduli precedentemente inviati)
il sistema non cambia la stampante predefinita in pdfcreator, ma mantiene
quella predefinita, da qui la mia ipotesi che alcuni comandi fossero
cambiati
> Cosa intendi per modulo compilato? E cosa intendi per modulo convertito?
> Manca qualche modulo dopo la conversione ad A2003 o ci sono tutti?
Ci sono tutti
> Non funziona pi� qualche sub o function?
Modificando il collegamento di una tabella su un'altro db ho questo errore
Errore non prevedibole 3029
Operazione non valida
il modulo che mi da errore � il seguente:
Option Explicit







Private mFCOORDS As Coords







'===========================================================================
=========
'COSTANTI PERSONALIZZATE







'===========================================================================
=============











































    End If
ExitHere:
    Exit Sub




ExitHere:
    Exit Sub










OldVersion:
  InitCommonControls
End Function



Sto cercando una soluzione per poter iniziare a lavorare in A03 come
lavoravo prima con A97!
Spero di riuscire!!!
> Ciao.
> -Marco-


title: Conversione dei moduli da A97 a A2003

text:
Cristian ha scritto:
> > Il db funziona bene.
> Si!
> a parte quando voglio cambiare la stampante predefinita in pdfcreator
> modulo che uso per impostare temporaneamente una stampante diversa da quella
> predefinita:
Ma tutto questo a cosa ti serve? A stampare un report su pdf? Hai provato
a vedere se ci sono sistemi alternativi pi� semplici?
Prova
http://www.lebans.com/reporttopdf.htm



title: Conversione dei moduli da A97 a A2003

text:
Hai ragione!
Ora ci provo!
Grazie mille
"Marco Pizzamiglio" <
marco.pi...@gmail.com
> ha scritto nel messaggio
news:h6u980$cfo$1...@news.newsland.it...



title: Conversione dei moduli da A97 a A2003

text:
Ho provato ma voglio continuare a lavorare con pdfcreator.
Il problema precedente  sta nel cambiare la stampante predefinita.
Ho utilizzato l'esempio presente sul sito comune "Gestire la stampante
predefinita [Update]" e con access 97 ha
sempre funzionato.
Ora ho utilizzato il programma con access 2003 e il programma non funziona,
mi continua a mantenere
come default la stampante settata in precedenza, non creandomi ovviamente il
pdf, ma stampando il report.
Sai indicarmi un altro sistema per
cambiare la stampante di default? Utilizzando pdfcreator??
L'applicativo gira con Windows Xp          Access 2003.
"Cristian" <
came...@tin.it
> ha scritto nel messaggio
news:4a92ac81$0$6161$4faf...@reader5.news.tin.it...



title: Conversione dei moduli da A97 a A2003

text:
Cristian ha scritto:
> Ho provato ma voglio continuare a lavorare con pdfcreator.
> Il problema precedente  sta nel cambiare la stampante predefinita.
> Ho utilizzato l'esempio presente sul sito comune "Gestire la stampante
> predefinita [Update]" e con access 97 ha
> sempre funzionato.
> Ora ho utilizzato il programma con access 2003 e il programma non funziona,
> mi continua a mantenere
> come default la stampante settata in precedenza, non creandomi ovviamente il
> pdf, ma stampando il report.
> Sai indicarmi un altro sistema per
> cambiare la stampante di default? Utilizzando pdfcreator??
> L'applicativo gira con Windows Xp          Access 2003.
Scrivi DOPO al testo a cui rispondi, non prima, grazie, vedi
http://www.sitocomune.com/
 link ICAA.
Non so perch� non funziona il codice se prima col 97 andava bene, non ho
tempo per provarlo adesso.
Manda un altro post con oggetto "Cambiare da VBA la stampante predefinita"
che questo � fuorviante, o prova una ricerca sui vecchi post, � un tema
che sicuramente sar� gi� stato trattato pi� volte.



title: Conversione dei moduli da A97 a A2003

text:
Cristian wrote:
> ...
> Sai indicarmi un altro sistema per
> cambiare la stampante di default? Utilizzando pdfcreator??
> L'applicativo gira con Windows Xp          Access 2003.
> ...
Con A03 ï¿œ molto piï¿œ semplice e breve:
 Cambiare la stampante o le impostazioni stampante/pagina

www.donkarl.com/it?FAQ5.1
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Conversione dei moduli da A97 a A2003

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:7fhi4lF...@mid.individual.net...
> Cristian wrote:
> > ...
> > Sai indicarmi un altro sistema per
> > cambiare la stampante di default? Utilizzando pdfcreator??
> > L'applicativo gira con Windows Xp          Access 2003.
> > ...
>
> Con A03 � molto pi� semplice e breve:
>
>  Cambiare la stampante o le impostazioni stampante/pagina
>
www.donkarl.com/it?FAQ5.1
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
>
Grazie per i consigli! Ho risolto!!!
Ho cancellato tutti i moduli citati in precedenza utilizzando il
suggerimento di Karl, in particolare:
'*********** INIZIO CODICE ************
'salva la stampante originale predefinita in una variabile
Dim strPrinterOld As String
strPrinterOld = Application.Printer.DeviceName
'cambia la stampante predefinita di Access
Application.Printer = Application.Printers("NomeDiAltraStampante")
'alla fine resettare alla stampante predefinita originale
Application.Printer = Application.Printers(strPrinterOld)
'************ FINE CODICE *************
Ancora grazie mille!!!!!


title: Formattazione condizionale in Access

author: Tonio Tanzi

text:
Lo so che la risposta č quasi sicuramente "no", ma io ci provo lo
stesso, hai visto mai!
Ho una maschera continua che visualizza i record di una tabella, tali
record, perň, hanno una struttura gerarchica: alcuni sono voci di
dettaglio, altri voci di riepilogo ottenuti sommando alcune voci di
dettaglio.
Il problema č: posso far formattare in modo diverso le righe della
maschera associate ai vari tipi di record, cioč posso far apparire per
es. con sfondo grigio i record di riepilogo e con sfondo bianco quelli
di dettaglio?
Un MILIONE ..... di ringraziamenti a chi trova la soluzione ;o)
Tonio


title: Formattazione condizionale in Access

author: Emyr

text:
On Wed, 27 Feb 2002 07:01:23 +0100, Tonio Tanzi <
vi....@inwind.it
>
wrote:

prova a vedere se usi il 2000 la formattazione condizionale con dei
campi creati per l'occasione....
devi fare un pň di prove
Saluti.
Emanuele.


title: Formattazione condizionale in Access

author: Roberto da casa

text:
"Tonio Tanzi" <
vi....@inwind.it
> ha scritto nel messaggio
news:3C7C7633...@inwind.it...

Se non puoi usare la formattazione condizionale (ad esempio usi A97), fai un
salto sul Sito Comune (link qui sotto) e ci troverai piů di una FAQ che ti
prospetta la soluzione al tuo problema.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Formattazione condizionale in Access

text:
Emyr ha scritto:
>
> prova a vedere se usi il 2000 la formattazione condizionale con dei
> campi creati per l'occasione....
> devi fare un pò di prove
> Saluti.
> Emanuele.
In questo momento la cosa mi servirebbe in A97, comunque, se ho ben
capito, tale funzionalità è possibile in A2000....Molto ma molto bene
:o))
Appena ho un po' di tempo da dedicarci, vado a spulciarmi l'help di
A2000 e cerco di capirci qualcosa.
Grazie di tutto
Tonio


title: Formattazione condizionale in Access

text:
Roberto da casa ha scritto:
>
> Se non puoi usare la formattazione condizionale (ad esempio usi A97), fai un
> salto sul Sito Comune (link qui sotto) e ci troverai più di una FAQ che ti
> prospetta la soluzione al tuo problema.
>
> --
> Roberto
Ci vado subito, grazie e in bocca al lupo per i tuoi problemi di "cuore"
;o)
Tonio


title: Formattazione condizionale in Access

text:
"Tonio Tanzi" <
vi....@inwind.it
> ha scritto nel messaggio
news:3C7D31BB...@inwind.it...
> Roberto da casa ha scritto:
> >
[CUT]
>
> ..... in bocca al lupo per i tuoi problemi di "cuore"
> ;o)
Grazie!!
>
> Tonio



title: elenco valori non associato

author: luigi onofrio

text:
stavo osservando il db Forms_Agenda_Lite di Alessandro Baraldi e mi sorge
una domanda spontanea:
come posso cambiare i campi delle colonne degli elenchi valori non
associate?
es. nell'elenco valori non associato "ist0 oppure ist1 ecc." del DB
citato, nella maschera visualizza il campo ora e il campo oggetto,
come faccio a cambiare il campo visualizzato oggetto nel campo cellulare o
altro?
grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: elenco valori non associato

author: Alessandro Cara

text:
luigi onofrio wrote:
> stavo osservando il db Forms_Agenda_Lite di Alessandro Baraldi e mi sorge
> una domanda spontanea:
> come posso cambiare i campi delle colonne degli elenchi valori non
> associate?
> es. nell'elenco valori non associato "ist0 oppure ist1 ecc." del DB
> citato, nella maschera visualizza il campo ora e il campo oggetto,
> come faccio a cambiare il campo visualizzato oggetto nel campo cellulare o
> altro?
> grazie
>
Non ho ben compreso cosa vuoi cambiare.
La list box o il form che appare al click?
o la testata della list box?
Le testate sono due labels(orario, oggetto) e' sufficiente cambiare le
etichette
La list box ha un eleco valori in quattro colonne
dataora;ora;-;questo lo riempie immagino dinamicamente all'inizio e'
vuoto;.....e poi ricomincia.
Da qualche parte questi valori li imposta dinamicamente sulla rowsource.
Normale.
La form successiva credo sia una normale form, piu' o meno "dialog"
Io consiglierei di spezzare in due il Sabato cosi' entra anche la
Domenica (alla moda OutLook e magari il codice si semplifica)
Ho solo aperto il codice e non so dove lo faccia  ma da qualche parte
deve fare delle if per scartare la Domenica.
--
ac


title: elenco valori non associato

text:
Alessandro Cara ha scritto:
> luigi onofrio wrote:
> > stavo osservando il db Forms_Agenda_Lite di Alessandro Baraldi e mi sorge
> > una domanda spontanea:
> > come posso cambiare i campi delle colonne degli elenchi valori non
> > associate?
> > es. nell'elenco valori non associato "ist0 oppure ist1 ecc." del DB
> > citato, nella maschera visualizza il campo ora e il campo oggetto,
> > come faccio a cambiare il campo visualizzato oggetto nel campo cellulare o
> > altro?
> > grazie
> >
> Non ho ben compreso cosa vuoi cambiare.
> La list box o il form che appare al click?
> o la testata della list box?
> Le testate sono due labels(orario, oggetto) e' sufficiente cambiare le
> etichette
> La list box ha un eleco valori in quattro colonne
proprio questa
> dataora;ora;-;questo lo riempie immagino dinamicamente all'inizio e'
> vuoto;.....e poi ricomincia.
esatto io vorrei  cambiare i campi delle 4 colonne con altre della tabella
ma non trovo dove farlo.
> Da qualche parte questi valori li imposta dinamicamente sulla rowsource.
> Normale.
> La form successiva credo sia una normale form, piu' o meno "dialog"
> Io consiglierei di spezzare in due il Sabato cosi' entra anche la
> Domenica (alla moda OutLook e magari il codice si semplifica)
> Ho solo aperto il codice e non so dove lo faccia  ma da qualche parte
> deve fare delle if per scartare la Domenica.
> --
> ac



title: elenco valori non associato

author: Alessandro Baraldi

text:
Non è che io abbia capito molto...!
In ogni caso se vedi la ListBox ha come RowSourceType "Elenco valori".
Ora il Metodo AddItem inserisce come chiaro un Item che corrisponde
ad una Row.
Se la ListBox è formattata a numero 2 Colonne il metodo AddItem
consente
di passare una Stringa formattata che usa come separatore di Colonna il
 punto
e virgola ;
Nel codice del mio Demo è abbastanza chiaro...!
Alla fine si tratta solo di passare una Stringa, la Combo/List non
essendo Associata
non interpreta quello che gli viene passato come un Campo in quanto il
RowSourcType
è impostato ad Elenco Valori....!
ES:
Me!NomeListBox.AddItem "COLONNA1RIGA1;COLONNA1RIGA2"
Me!NomeListBox.AddItem "COLONNA1RIGA2;COLONNA2RIGA2"
Spero di essere stato chiaro e di aver centrato il problema.
@Alex


title: elenco valori non associato

text:
luigi onofrio wrote:
> Alessandro Cara ha scritto:
>
>
>>luigi onofrio wrote:
>>
>>>stavo osservando il db Forms_Agenda_Lite di Alessandro Baraldi e mi sorge
>>>una domanda spontanea:
>>>come posso cambiare i campi delle colonne degli elenchi valori non
>>>associate?
>>>es. nell'elenco valori non associato "ist0 oppure ist1 ecc." del DB
>>>citato, nella maschera visualizza il campo ora e il campo oggetto,
>>>come faccio a cambiare il campo visualizzato oggetto nel campo cellulare o
>>>altro?
>>>grazie
>>>
>>
>>Non ho ben compreso cosa vuoi cambiare.
>>La list box o il form che appare al click?
>>o la testata della list box?
>>Le testate sono due labels(orario, oggetto) e' sufficiente cambiare le
>>etichette
>
>
>>La list box ha un eleco valori in quattro colonne
>
> proprio questa
si e' mosso l'autore. Mi ritiro in buon ordine ;<)
--
ac


title: elenco valori non associato

text:
Alessandro Baraldi ha scritto:
> Non č che io abbia capito molto...!
> In ogni caso se vedi la ListBox ha come RowSourceType "Elenco valori".
> Ora il Metodo AddItem inserisce come chiaro un Item che corrisponde
> ad una Row.
> Se la ListBox č formattata a numero 2 Colonne il metodo AddItem
> consente
> di passare una Stringa formattata che usa come separatore di Colonna il
>  punto
> e virgola ;
> Nel codice del mio Demo č abbastanza chiaro...!
> Alla fine si tratta solo di passare una Stringa, la Combo/List non
> essendo Associata
> non interpreta quello che gli viene passato come un Campo in quanto il
> RowSourcType
> č impostato ad Elenco Valori....!
> ES:
> Me!NomeListBox.AddItem "COLONNA1RIGA1;COLONNA1RIGA2"
> Me!NomeListBox.AddItem "COLONNA1RIGA2;COLONNA2RIGA2"
> Spero di essere stato chiaro e di aver centrato il problema.
> @Alex
no, quello che io vorrei sapere č dove č indicato che nella casella non
associata "Ist0,..ist5" si devono vedere le colonne ora e oggetto. Se io
voglio far comparire ora e mail oppure ora e note dove devo andare a
cambiare l'indicazione dei campi  che io voglio vedere in questi
riquadri?(ho capito che i dati si immettono dalla maschera dettagli
appuntamento).
spero di avermi spiegato.
luigi



title: stampa unione partendo da access

author: Antonio

text:
salve, vorrei una informazione; ho creato una stampa unione partendo da
una tabella di access; tra i campi della tabella ci sono anche delle
date. Queste date sia nella tabella, sia  nella maschera di access sono
visualizzate con lo stile gg/mm/aaaa, però usando la stampa unione,
queste vengono importate nello stile mm/gg/aaaa e non so come poterlo
modificare.
mi potete dare qualche indicazione in proposito?
grazie
Antonio


title: stampa unione partendo da access

author: MA

text:

Creati una query col campo calcolato tuadataNw:format(Tuadata, "gg/mm/aaaa")
e usa quella come campo unione
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Numero progressivo

author: Moebius

text:
ho inserito il seguente codice :
Private Sub Comando8_Click()
Dim i As Long
Set rs = CurrentDb.OpenRecordset("Repertorio")
  For i = Da_numero To A_numero
  rs.AddNew
  rs![proposta numero] = i
  rs![codice ricevente] = Me.ricevente
  rs![codice cedente] = Me.cedente
  rs.Update
Next i
rs.Close
Set rs = Northing
End Sub
Tutto funziona bene se inserisco nelle caselle "da numero- a numero " un
numero tipo 15487 siccome la numerazione che devo usare è alfanumerica
(M015487) il codice sopra non funziona, ho provato a cambiare in Dim i As
string ma comunque non funzona.
Mi date un suggerimento ?
Grrrrazie tanto.


title: Numero progressivo

author: Silvio Berruti

text:
"Moebius" <
moe...@mail.omnitel.it
> ha scritto nel messaggio
news:93hckg$r0i$1...@nread1.inwind.it...

Se nei controlli Da_numero e A_numero inserisci comunque solo i valori
numerici:
Private Sub Comando8_Click()
Dim i As Long
Set rs = CurrentDb.OpenRecordset("Repertorio")
For i = Me.Da_numero To Me.A_numero
  rs.AddNew
  rs![proposta numero] = "M0" & i
  rs![codice ricevente] = Me.ricevente
  rs![codice cedente] = Me.cedente
  rs.Update
Next i
rs.Close
Set rs = Northing
End Sub
Se invece inserisci i valori alfanumerici:
Private Sub Comando8_Click()
Dim i As Long
Set rs = CurrentDb.OpenRecordset("Repertorio")
For i = mid(Me.Da_numero, 3) To mid(Me.A_numero, 3)
  rs.AddNew
  rs![proposta numero] = "M0" & i



title: Zoom sui report grafici

author: Elsis

text:
Ho la necessità di aprire i report contenenti grafico con uno zoom impostato
al 70 % in modo da non doverlo settare ogni volta che apro gli stessi.
Esiste una procedura automatica per fare questo?.
Ho letto qualcosa sulla guida da impostare sulle proprietà dell'oggetto o
mediante visual basic ma a causa delle poche informazioni disponibili non
sono riuscito.
Grazie a tutti.


title: Zoom sui report grafici

text:
Elsis ha scritto:
> Ho la necessità di aprire i report contenenti grafico con uno zoom
> impostato al 70 % in modo da non doverlo settare ogni volta che apro
> gli stessi.
>
> Esiste una procedura automatica per fare questo?.
> ...
È possibile con una proprietà non documentata:
DoCmd.OpenReport "MioGrandeReport", acViewPreview
Reports!MioGrandeReport.ZoomControl = 70
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Zoom sui report grafici

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:c16407$1fa283$1...@ID-46617.news.uni-berlin.de...

Grazie infinite


title: Zoom sui report grafici

author: Sergio MAZZA

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:c16407$1fa283$1...@ID-46617.news.uni-berlin.de...
>
> È possibile con una proprietà non documentata:
>
> DoCmd.OpenReport "MioGrandeReport", acViewPreview
> Reports!MioGrandeReport.ZoomControl = 70
>
> --
> HTH
> Karl
> *********
> Access-FAQ (tedesco):
http://www.donkarl.com
Scusa Karl; ma esiste nella versione '97 o io non la vedo (Visualizzatore
oggetti)?
Ciao.
--
Sergio MAZZA


title: Zoom sui report grafici

text:
Sergio MAZZA ha scritto:
> "Karl Donaubauer ha scritto:
>> È possibile con una proprietà non documentata:
>>
>> DoCmd.OpenReport "MioGrandeReport", acViewPreview
>> Reports!MioGrandeReport.ZoomControl = 70
>
> Scusa Karl; ma esiste nella versione '97
Sì.
> o io non la vedo (Visualizzatore oggetti)?
Con un click destra nel visualizzatore viene un menu con
una voce per "Mostrare elementi nascosti" o simile.
Non so come la voce si chiama esatamente in italiano.
Ma dopo vedi ZoomControl e molte cose di più.
--
cu



title: Zoom sui report grafici

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:c1de8m$1fs8se$1...@ID-46617.news.uni-berlin.de...

Accidenti! Grazie...
Ciao.
--
Sergio MAZZA


title: Maschera/Sottomaschera ed aggornamento dati

author: Ronny

text:
Ciao a tutti,
ho una maschera/sottomaschera con campi variabili sia da testata che da
dettaglio.
Nella form ho un pulsante chiusura dove controlla l'evento Me.dirty e chiede
se si vuole uscire senza salvare.
Ho notato che se vario un dato di testata e poi uno di dettaglio ed esco,
l'evento dirty č False , perchč si riferisce in questo caso alla
sottomaschera ? Se si, come faccio a far controllare comunque il dato della
testata anche se modifico un record della sottomaschera ?
grazie a tutti
Ronny
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Carlo Costarella

text:
"Ronny" <
mav...@maiiiil.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...
>
>
> Ciao a tutti,
> ho una maschera/sottomaschera con campi variabili sia da testata che da
> dettaglio.
> Nella form ho un pulsante chiusura dove controlla l'evento Me.dirty e
> chiede
> se si vuole uscire senza salvare.
> Ho notato che se vario un dato di testata e poi uno di dettaglio ed esco,
> l'evento dirty č False , perchč si riferisce in questo caso alla
> sottomaschera ? Se si, come faccio a far controllare comunque il dato
> della
> testata anche se modifico un record della sottomaschera ?
> grazie a tutti
> Ronny
>
La vedo dura perchč dopo aver effettuato modifiche nella sottomaschera e
spostato il focus alla M. principale, il record della sottm. č salvato.
Apportare modifiche qui ti costerebbe troppo lavoro.
Se invece la sottomaschera č legata con un indice alla maschera principale e
tu vuoi eliminare tutto il record e quindi anche i dettagli (solo se
integrita referenziale e elimina record correlati) allora si puň optare per
altre soluzioni.
Quale č la tua situazione?
Ciao, Carlo


title: Maschera gestione appuntamenti

text:
Buongiorno a tutti.
Devo creare una maschera per l'inserimento di appuntamenti che abbia una doppia funzione, quella appunto dell'inserimento e quella della visualizzazione degli appuntamenti già fissati.
Avevo pensato ad una maschera continua dove, in intestazione maschera, mettere i campi per l'inserimento e nel corpo poter visualizzare i record già memorizzati.
In intestazione maschera metterei quindi due pulsanti, "salva record" e "vai a nuovo".
Il problema che mi si pone è questo: vorrei che fino al momento in cui "salva record" non è premuto, l'inserimento del nuovo record non mi apparisse nel corpo (che ci fosse cioè un aggiornamento con l'apparizione del nuovo record in cima agli altri) ed inoltre che il campo vuoto * per l'inserimento del nuovo record nel corpo non fosse visualizzato.
Spero che qualcuno voglia chiarirmi le idee su come impostare la cosa.
Grazie mille in anticipo.


title: Maschera gestione appuntamenti

text:

Sto provando e riprovando ma non ne vengo a capo. Sul clic del "Salva Record" ho impostato a true un campo creato apposta nella tabella origine dati e faccio partire una query che vada ad accodarmi quel record in un'altra tabella. Nel corpo della maschera continua ho inserito dei controlli non associati che con una DLookUp dovrebbero andare a recuperarmi i record della tabella creata con il campo settato a true. Ciò che ottengo è solo la ripetizione del primo record.
Non credo che la soluzione sia così difficile e mi sa che mi sto complicando la vita, ma proprio non so come dovrei fare.


title: Maschera gestione appuntamenti

text: si, ti complici la vita...access, se lavori con campiassociati, crea il record appena digita qualcosa, e lo salva. tu devi creare campi nn associati, riempirli, premere 'aggiungi' ed eseguire una INSERT sql. poi un requery ed il record apparirà nella maschera continua. niente dlookup.


title: Maschera gestione appuntamenti

text:
Il giorno domenica 26 gennaio 2014 22:20:00 UTC+1, Fair87 ha scritto:
> si, ti complici la vita...access, se lavori con campiassociati, crea il record appena digita qualcosa, e lo salva. tu devi creare campi nn associati, riempirli, premere 'aggiungi' ed eseguire una INSERT sql. poi un requery ed il record apparirà nella maschera continua. niente dlookup.

Intanto mille grazie per la tua gentile risposta sulla quale mi sto basando per cercare di andare avanti.
Ho dissociato i controlli dove inserisco i dati (in intestazione maschera) ed ho creato una query di accodamento dove nei campi ho messo ad es:
Cognome: Forms!Inserimento!Cognome
Questa query mi va ad alimentare una tabella che è origine dati della maschera e dei controlli nel corpo della maschera.
Il tasto Salva mi fa partire la query e dopo un requery riesco a visualizzare il nuovo record che si accoda.
Spero fin qui di aver ben interpretato quanto mi hai detto.
Mi rimane solo (per ora almeno) il problema dell'ultima riga vuota in coda ai records già inseriti. Dici che sia possibile evitare di visualizzarla? Credo che dovrei usare AllowEdits ma non so bene come e dove utilizzarlo.
Ancora grazie.


title: Maschera gestione appuntamenti

text:

Non allow edits (consenti modifiche), ma Data Entry (immissione dati). impostalo su No


title: VBA per ACCESS

author: mauro

text:
Ciao,
recentemente ho installato access 2003 ed in tutti i db
già creati con access 2000 sono state convertiti i
richiami agli oggetti: ad esempi [forms].[m1].[testo1]
viene converito come [maschere].[m1].[testo1]. Il problema
è nella parte VBA per la quale non esiste possibilità di
conversione.
Qualcuno può aiutarmi a risolvere il problema?
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: VBA per ACCESS

text:
"mauro" <
m.gr...@libero.it
> ha scritto nel messaggio
news:c150gv$sp5$1...@news.newsland.it...
> Ciao,
> recentemente ho installato access 2003 ed in tutti i db
> già creati con access 2000 sono state convertiti i
> richiami agli oggetti: ad esempi [forms].[m1].[testo1]
> viene converito come [maschere].[m1].[testo1]. Il problema
> è nella parte VBA per la quale non esiste possibilità di
> conversione.
> Qualcuno può aiutarmi a risolvere il problema?
>
>
> --
Cioè vuoi dire che con la versione 2003 si ripresenta ancora la strunzata
della localizzazione dei termini in VBA?
Non ci posso credere...
Ciao.
--
Sergio MAZZA


title: VBA per ACCESS

text:
Sergio MAZZA ha scritto:


> Ciao.
> --
> Sergio MAZZA
Esattamente! HAi qualche dritta?



title: VBA per ACCESS

text:
"mauro" <
m.gr...@libero.it
> ha scritto nel messaggio
news:c1c9bn$ak7$1...@news.newsland.it...
> Esattamente! HAi qualche dritta?
>
> --
No perché utilizzo acc'97... E continuerò ad utilizzarlo...
Ciao.
--
Sergio MAZZA


title: VBA per ACCESS

author: TheMax

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c1cj86$nq2$1...@canarie.caspur.it...

La M$ purtroppo ci ricasca sempre, un mio cliente ha provato a passare al
2003, ed abbiamo deciso un brusco ritorno al 2000 che per quanto meno
"bellino" e con qualche funzionalità in meno ha trovato una sua "pace".
Penso che passerò al 2003 dopo la prima o seconda SP.
Ciao,
Massimo
--
web:
www.piubelli.net
Vuoi il mio indirizzo? Togli _cut_ per rispondermi


title: Database esterno

author: GIORGIO

text:
Salve a tutti
Ho un quesito un po' strano
ho un db access sul server Nt
E' possibile da un client con un comando eseguire il db sul server NT (non
sulla postazione locale)
(Voglio lanciarlo sul server NT perche ha delle tabelle collegate via ODBC e
non voglio installare ODBC su tutti i client)
Non riesco a farmi venire in mente niente
Grazie
Giorgio


title: Database esterno

text:
Giovanni Albertone <
giovanni_...@hotmail.com
> wrote in message
6ueaqs48ujms2jk7u...@4ax.com...
> On Thu, 24 Aug 2000 14:57:10 GMT, "GIORGIO" <
giemme...@tin.it
>
> wrote:
>
> >E' possibile da un client con un comando eseguire il db sul server NT
(non
> >sulla postazione locale)
> >(Voglio lanciarlo sul server NT perche ha delle tabelle collegate via
ODBC e
> >non voglio installare ODBC su tutti i client)
> >Non riesco a farmi venire in mente niente
>
> No.
> Scusa, ammesso che tu riesca ad eseguirlo sul server (questo si puo'
> fare in qualche modo), poi come lo vorresti controllare dalla
> workstation?
>
> --
> Ciao,
> Giovanni
>
> La predizione e' dificile, soprattutto quella del futuro. N. Bohr
Vorrei eseguirlo sul server perche e' un db che mi importa dei codici e
aggiorna dei codici clienti (parte con la macro autoexec e poi si chiuse)
Mi piacerebbe eseguirlo sul server perche' ho delle tabelle allegate in odbc
(formato omnis --df1) e non voglio installare i file odbc per omnis su tutti
i client.
Spero tu mi possa aiutare.
Grazie
Giorgio


title: Database esterno

author: guxdav

text:
GIORGIO <
giemme...@tin.it
> wrote in message
9fbp5.128085$dF5.2...@news.infostrada.it...

Puoi far eseguire l'aggiornamento da un solo Client (o da tutti quelli a cui
hai installato i driver) con ODBC invece che da qualsiasi postazione.
Suddividi il tuo DB nella classica impostazione BackEnd (tabelle
condivise) - FrontEnd (applicativo).
All'interno del BackEnd crea la Tabella "CodiciClienti" nella quale importi
i dati ; collega via ODBC la tabella da cui importi i dati , poi crea tutte
le query di accodamento o di aggiornamento che vuoi.
Ad intervalli prestabiliti lanci le query da un'unica postazione così
garantisci l'aggiornamento di "CodiciClienti".
In tutti gli applicativi locali FrontEnd collega la Tabella "CodiciClienti".
A questo punto diventa una comunissima tabella collegata di Access per cui
non serve installare i driver ODBC a tutti.
Questo metodo funziona bene solo se l'utente che deve aggiornare le tabelle
lo fa regolarmente (ogni quanto farlo lo devi stabilire in relazione
all'importanza dei nuovi dati aggiunti)
Ciao, Davide


title: Diagramma Gantt

author: Francesco

text:
Buon giorno!
come si puņ realizzare una form con un diagramma tipo Gantt, ove le righe
sono le Attivitą e in ascissa rappresentare dei segmenti da DataInizio1 a
DataFine1 ecc.?
Ho trovato un esempio nel Sito comune, ma dą un report con asse dei tempi
diverso per ogni riga, quindi non dą una visione utile a fare dei confronti.
Vi ringrazio,
Francesco


title: Diagramma Gantt

author: Roberto da casa

text:
"Francesco" <
paolo.mene...@tin.it
> ha scritto nel messaggio
news:cMeWd.620280$b5.28...@news3.tin.it...
> Buon giorno!
> come si può realizzare una form con un diagramma tipo Gantt, ove le righe
> sono le Attività e in ascissa rappresentare dei segmenti da DataInizio1 a
> DataFine1 ecc.?
> Ho trovato un esempio nel Sito comune, ma dà un report con asse dei tempi
> diverso per ogni riga, quindi non dà una visione utile a fare dei
confronti.
> Vi ringrazio,
> Francesco
Prova a modificarlo lasciando fissa la dimensione dell'asse dei tempi, i cui
limiti puoi fissare tu a priori o in base a dei parametri sempre scelti da
te e che siano validi per tutti i record attività.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Diagramma Gantt

author: vtt

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:_NgWd.62538$lB4.1...@twister1.libero.it...

Io ho risolto il problema utilizzando un grafico a pile dove la parte
precedente all'inizio dell'attività e' di colore trasparente.
E' una cosa che risale a due anni fa e non mi ricordo molto bene, ma da
codice riuscivo a controllare molto bene la presentazione del Gannt potendo
anche tratteggiare la percentuale di attività completata. Se non riesci a
risolvere il problema, e hai un po' di pazienza, prova a contattarmi
direttamente che magari disseppellisco un po' di codice: non visito il ng
con regolartità.


title: Dubbi sulla casella di riepilogo (ListBox)

author: Roberto Eugeni

text:
Dovrei alimentare un ListBox con + tabelle ma non riesco a combinarle in
join, quindi vorrei poter gestire manualmente il caricamento del ListBox. Sò
che esiste la possibilità di scegliere una funzione da associare al
RowSourceType, ma dal help non sono riuscito a capire come si fa.
Il mio obiettivo è quello di visualizzare n. colonne di cui le prime
provenienti da una tabella, ed una colonna non associata sulla quale
attivare o disattivare un certo valore alla pressione di un Bottone.
Ho provato la seguente routine ma mi dà errore, sembra che non si possa
modificare una valore di una colonna...
Private Sub Comando122_Click()
    If Elenco120.ListIndex >= 0 Then
        If Elenco120.Column(4) = "X" Then
            Elenco120.Column(4) = ""
        Else
            Elenco120.Column(4) = "X"
        End If
    End If
End Sub
Chi saprebbe aiutarmi?


text:
"Roberto Eugeni" <
roberto...@assistinformatica.com
> ha scritto nel
messaggio news:98663616...@stige.cline.it...

Con le caselle di riepilogo non puoi modificare i valori visualizzati;
almeno a me risulta così...
Ciao.


author: Aries

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9b0upd$14e$1...@suite03.caspur.it...
>
>
> Con le caselle di riepilogo non puoi modificare i valori visualizzati;
> almeno a me risulta cosě...
>
Infatti, perň con un po' di codice potrebbe modificare la sorgente dati su
cui si basa la casella.
--
Aries
icq: 56640169
e-mail:
Marv...@iol.it


text:
"Aries" <
Marv...@iol.it
> ha scritto nel messaggio
news:QTmB6.1448$s93....@news.infostrada.it...
>
>
> Infatti, però con un po' di codice potrebbe modificare la sorgente dati su
> cui si basa la casella.
>
>
> --
> Aries
Rimane il fatto che non può modificare i valori visualizzati...
Ciao.


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9b659h$h9d$1...@suite03.caspur.it...
>
>
> Rimane il fatto che non può modificare i valori visualizzati...
>
Probabilmente non ho capito bene io, ma personalmente ho appena fatto
diverse maschere in cui modificavo la sorgente dati oppure il criterio con
cui i dati venivano mostrati agendo sulla stessa e poi facendo un requery...
ma ripeto che forse sono io a non aver capito bene cosa intendi.



text:
"Aries" <
Marv...@iol.it
> ha scritto nel messaggio
news:htSC6.36233$s93.1...@news.infostrada.it...

Ti riporto il paragrafo scritto da "Roberto Eugeni" che ritengo sia quello
che dovrebbe chiarificare l'equivoco:
> Il mio obiettivo è quello di visualizzare n. colonne di cui le prime
> provenienti da una tabella, ed una colonna non associata sulla quale
> attivare o disattivare un certo valore alla pressione di un Bottone.
E' proprio sull'ultima parte che (se vogliamo) nasce l'equivoco, dove dice:
"...ed una colonna non associata sulla quale attivare o disattivare un certo
valore alla pressione di un Bottone.". E' quel "disattivare o attivare alla
pressione di un certo bottone" che mi fa pensare che voglia modificare i
valori presenti nella casella di riepilogo; ho detto modificare i valori
presenti non la sorgente dati della casella di riepilogo. Ed è per questo
che non gli ho suggerito la modifica del RowSource...
Ciao.


title: Database Access gestione licenze

author: twiggo

text:
Buongiorno a tutti,
vi chiedo se fosse possibile, per una gestione univoca delle licenze,
se ï¿œ possibile sviluppare un'applicazione in ACCESS che mi consenta di
relazionare tre tabelle e di gestire una quarta tabella ottenendo da
quest'ultima informazioni di sintesi mediante tre query.
Le tre tabelle potrebbero avere le seguenti strutture :
TABELLA Prodotti
Prodotto - Nï¿œ Licenze a disposizione - Data
TABELLA Utenti
Utente
TABELLA PC
Label (Nome macchina  - un codice)
La tabella relazionata alle 3 precedenti potrebbe avere la struttura
seguente:
Prodotto - Utente - Label
Su questa tabella servirebbe lo sviluppo di 3 query per ottenere :
1.Numero d'installazioni per prodotto
2.Prodotti installati per utente
3.Prodotti installati per label.
La dismissione di una label, cosï¿œ come la cancellazione di untente deve
rimuovere i record correlati rimettendo a disposizione le licenze giï¿œ
utilizzato.
Spero di essere stato chiaro.
Qualcuno mi puï¿œ dare una mano? Per qualsiasi info sono qua.
Grazie
twiggo


title: Ricollegare tabelle da codice

text:
Salve a tutti.
Ho la necessità, ogni volta che consegno (o inoltro) un aggiornamento della
procedura (A.97), di "ricollegare" le tabelle dell'applicativo con il db del
server.
Esiste una procedura automatica, magari a mezzo codice, senza il mio
intervento?
Grazie 1000 a tutti
Marco


title: Ricollegare tabelle da codice

author: Cinzia

text:
"Marco_280167" <
mros...@gol.grosseto.it
> ha scritto nel messaggio
news:44d83b2d$0$30241$4faf...@reader1.news.tin.it...

Ciao Marco,
su
www.sitocomune.com
  sez. Tables trovi numerosi esempi  (1.29, 1.28, 1.16,
1.13 e 1.12)
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
--------------------------------------->


title: Ricollegare tabelle da codice

author: Roberto dal portatile

text:
"Marco_280167" <
mros...@gol.grosseto.it
> ha scritto nel messaggio
news:44d83b2d$0$30241$4faf...@reader1.news.tin.it...

Vai sul Sito Comune (link qui sotto); nella Sezione Tables ci roverai più di
mezza dozzina di FAQ che trattano quell'argomento.
>
> Grazie 1000 a tutti
Prego
> Marco
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Ricollegare tabelle da codice

text:
"Roberto dal portatile" <
r.ma...@libero.it
> ha scritto nel messaggio
news:diXBg.65932$_J1.7...@twister2.libero.it...

>Grazie 1000, scusate la superficialità, non avevo neanche provato a
>guardarci prima!


title: E adesso?

author: peppe

text:
" Non si dispone delle autorizzazioni necessarie per utilizzare l'oggetto.
(seguito dall'indirizzo del file)
Per disporre delle autorizzazioni necessarie rivolgersi all'amministratore
del sistema o all'autore. "
Questo è il diagnostico che mi risponde aprendo un file mdb, che presumo
sia stato passwordato o protetto.
Gentilmente un aiuto a capire cosa cavolo ha combinato il mio collega?
Perchè tra l'altro non ricorda nemmeno cosa ha clik-digitato.
Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: E adesso?

author: Antonio Biso

text:
"peppe" <
desap...@libero.it
> ha scritto nel messaggio
news:b1nve6$qgm$1...@news.newsland.it...
Adesso potremmo cominciare a scrivere un subject più significativo!!!
Antonio


title: E adesso?

text:
Caro Antonio hai ragione ma questa č quello che posso dirti.
Perciň non ti arrr...  se mi puoi aiutare bene altrimenti ringrazio lo
stesso a te, e a tutti del news.
Ciao Peppe
Antonio Biso wrote:
> "peppe" <
desap...@libero.it
> ha scritto nel messaggio
> news:b1nve6$qgm$1...@news.newsland.it...
> Adesso potremmo cominciare a scrivere un subject piů significativo!!!
> Antonio



title: E adesso?

text:
"peppe" <
desap...@libero.it
> ha scritto nel messaggio
news:b1o2ei$3kj$1...@news.newsland.it...
> Caro Antonio hai ragione ma questa è quello che posso dirti.
Non è vero: potevi scrivere "Problema di autorizzazioni mancanti
all'apertura del mdb"
> Perciò non ti arrr...  se mi puoi aiutare bene altrimenti ringrazio lo
> stesso a te, e a tutti del news.
Uno magari lo fa se tu ti attieni alle norme del NG, tra cui anche quella di
scrivere DOPO il quoting non prima.
Proprio oggi Roberto ha postato un post Istruzioni per l'uso...
Antonio


title: Verifica Proprietà PARENT di una maschera

text:
Ho necessità di verificare all'apertura di una maschera, se questa è stata
richiamata come sottomaschera da un'altrra o no. Nella routine Form.Open,
dunque, verifico lo stato della proprietà Form.Parent, ma se la mascherà non
è "figlia" di nessun'altra questa proprietà non viene valorizzata a NULL o
cose del genere per cui si possa trattare con l'istruzione IsNull (o
simili), bensì non viene affatto valorizzata, percui richiamarla in
qualsiasi maniera genera un errore. A parte usare un OnError GoTo filtrando
l'errore in questione, come posso fare?
Grazie!!!!
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Karl Donaubauer

text:
P@olo wrote:
> Ho necessità di verificare all'apertura di una maschera, se questa è
> stata richiamata come sottomaschera da un'altrra o no. Nella routine
> Form.Open, dunque, verifico lo stato della proprietà Form.Parent, ma
> se la mascherà non è "figlia" di nessun'altra questa proprietà non
> viene valorizzata a NULL o cose del genere per cui si possa trattare
> con l'istruzione IsNull (o simili), bensì non viene affatto
> valorizzata, percui richiamarla in qualsiasi maniera genera un
> errore. A parte usare un OnError GoTo filtrando l'errore in
> questione, come posso fare?
Se la tua versione segreta di Access è >=A00:
If CurrentProject.AllForms(Me.Name).IsLoaded Then
    'sono grande e indipendente
Else
    'sono uscito con un parente
End If
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
> Se la tua versione segreta di Access è >=A00:
>
> If CurrentProject.AllForms(Me.Name).IsLoaded Then
> 'sono grande e indipendente
> Else
> 'sono uscito con un parente
> End If
Funziona a meraviglia, però mi rimane oscuro (perdona l'ignoranza...) perchè
l'oggetto risulti "caricato" se è indipendente, e no se figlio di altri. MI
spiego meglio: secondo quanto mi pare di capire dalla guida, un oggetto
viene sempre prima caricato e poi visualizzato. Sia che sia figlia, che no,
la maschera dovrà essere caricata e la l'evento Form.Open si dovrà
verificare cronologicamente dopo (o prima, non so) rispetto all'evento
Form.Load. E allora dove sta la differenza?



author: MA

text:
Karl Donaubauer wrote:
>     'sono grande e indipendente
>     'sono uscito con un parente
ROTFL
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
P@olo wrote:
>> Se la tua versione segreta di Access è >=A00:
>>
>> If CurrentProject.AllForms(Me.Name).IsLoaded Then
>> 'sono grande e indipendente
>> Else
>> 'sono uscito con un parente
>> End If
>
> Funziona a meraviglia, però mi rimane oscuro (perdona l'ignoranza...)
> perchè l'oggetto risulti "caricato" se è indipendente, e no se figlio
> di altri. MI spiego meglio: secondo quanto mi pare di capire dalla
> guida, un oggetto viene sempre prima caricato e poi visualizzato. Sia
> che sia figlia, che no, la maschera dovrà essere caricata e la
> l'evento Form.Open si dovrà verificare cronologicamente dopo (o
> prima, non so) rispetto all'evento Form.Load. E allora dove sta la
> differenza?
Il SourceObject di una sottomaschera non conta come maschera
aperta nei insiemi.
Era più evidente quando abbiamo avuto solo l'insieme Forms di
Access nella quale si trovano sempre e solo le maschere caricate.
Nell'insieme AllForms invece si trovano tutte le maschere, caricate
o no. Ma per la proprietà IsLoaded vale la stessa cosa come scritto
per il vecchio insieme Forms.
--
cu



text:
Karl Donaubauer wrote:
> ... nei insiemi...
> ...nella quale ...
MA "insieme" è maschile o femminile?
Non è semplice per un povero straniero.


text:
Adesso è chiaro!!!
> > ... nei insiemi...
No, "negli insiemi"
> > ...nella quale ...
questo è giusto, se riferito ad un oggetto femminile singolare.
> MA "insieme" è maschile o femminile?
Maschile...
> Non è semplice per un povero straniero.
Immagino! L'italiano è una lingua ignota anche per molti italiani....
Grazie ancora!



author: Alessandro Baraldi

text:
Intendi MAssimiliano....?
Non saprei...!
"Insieme" invece è maschile di sicuro..!
@Alex


text:
Alessandro Baraldi wrote:
> Intendi MAssimiliano....?
> Non saprei...!
Non si sa MAi.
> "Insieme" invece è maschile di sicuro..!
Ok, grazie a tutti e due.
Credo che dobbiamo aspettare solo ca. 10 anni e queste
cose saranno già entrate nel mio sangue. Poi ancora solo
20 anni per il congiuntivo, il condizionale e il passato remoto.



text:
Alessandro Baraldi wrote:
> Intendi MAssimiliano....?
> Non saprei...!
ROTFL
>
> "Insieme" invece è maschile di sicuro..!
Perchè tu consideri solo questo tipo di coppie???
;-)
>
> @Alex



text:
No sono aperto a molte sfumature di individualità ....!
;-)
@Alex


title: Report dinamici collegati a query parametriche

author: Giuseppe Trimboli

text:
In un report ho delle intestazioni di colonne, definite come caselle di
testo, chiamate MESE1, MESE2, MESE3 …
Volevo sapere se è possibile assegnare a questi campi del report valori
come Ott, Nov, Dic provenienti da una query (a campi incrociati)
definita nell’origine del report o se esiste qualche alternativa per
farlo, magari non associando il report alla query ed operando in maniera
diversa.
Grazie a tutti
Beppe
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG