text:
On Tue, 10 Jun 2003 14:20:51 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>> Succede una cosa strana... a volte funziona e a volte no... ?!?!? Come
>> è possibile?
>> In particolare se faccio il debug funziona, altrimenti no :?
>Prova ad usare la proprietà dei pulsanti Visible invece che Enabled.
>Se non ti funziona neppure così non saprei cosa consigliarti.
Non funziona uguale, nel senso che se lo uso in UNA sola maschera
funziona, altrimenti, se lo uso sia nella maschera che nella
sottomaschera, tutti e due i pulsanti di entrambe le maschere vengono
disabilitati. C'è un 'conflitto' tra i nomi dei pulsanti? Eppure si
chiamano diversamente, nelle due maschere. Altro? Non so... :(
Grazie mille e
Axè!


title: Come non far visualizzare il record vuoto in una maschera

author: Roberto da casa

text:
"Marinheiro" <
car...@illinois.gov
> ha scritto nel messaggio
news:precevk0tc8v4td1q...@4ax.com...

Se posti il codice VBA che usi e ci specifichi a fronte di quale evento lo
generi, forse è possibile cercar di capire l'arcano.



author: Marinheiro

text:
On Wed, 11 Jun 2003 08:59:55 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>> Non funziona uguale, nel senso che se lo uso in UNA sola maschera
>> funziona, altrimenti, se lo uso sia nella maschera che nella
>> sottomaschera, tutti e due i pulsanti di entrambe le maschere vengono
>> disabilitati. C'è un 'conflitto' tra i nomi dei pulsanti? Eppure si
>> chiamano diversamente, nelle due maschere. Altro? Non so... :(
>Se posti il codice VBA che usi e ci specifichi a fronte di quale evento lo
>generi, forse è possibile cercar di capire l'arcano.
Questo è il codice nella maschera principale
  If Me.CurrentRecord = 1 Then
   Btn_Paz_Back.Enabled = False
     Else
      Btn_Paz_Back.Enabled = True
  End If ''
 If Me.CurrentRecord = Recordset.RecordCount Then
   Btn_Paz_Avanti.Enabled = False
   Else
   Btn_Paz_Avanti.Enabled = True
   End If
  E questo è quello nella sottomaschera:
  If Me.CurrentRecord = 1 Then
   Btn_Int_Back.Enabled = False
     Else
      Btn_Int_Back.Enabled = True
  End If ''
 If Me.CurrentRecord = Recordset.RecordCount Then
   Btn_Int_Avanti.Enabled = False
   Else
   Btn_Int_Avanti.Enabled = True
   End If

Come vedi differiscono solo nei nomi dei bottoni, ma forse è quel Me.
che 'confonde le idee' a access?
Grazie e
Axè!


text:
"Marinheiro" <
car...@illinois.gov
> ha scritto nel messaggio
news:1sfgevg6dphrhci0j...@4ax.com...

Scusami ma non mi è chiaro dove hai inserito i pulsanti Btn_Int_Back  e
Btn_Int_Avanti; inoltre non ho capito che visualizzazione ha la
sottomaschera; infine non ho capito a fronte di quale evento generi i codici
VBA che dici essere relativi alla sottomaschera.
>
> Grazie e
>
> Axè!



text:
On Thu, 12 Jun 2003 09:23:56 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>Scusami ma non mi č chiaro dove hai inserito i pulsanti Btn_Int_Back  e
>Btn_Int_Avanti;
sono nella sottomaschera (intervento).
> inoltre non ho capito che visualizzazione ha la
>sottomaschera;
E' visualizzata contemporaneamente alla mschera principale (paziente)
in un riquadro.
>infine non ho capito a fronte di quale evento generi i codici
>VBA che dici essere relativi alla sottomaschera.
All'evento Current della sottomaschera..
Grazie e..
Axč!


text:
"Marinheiro" <
car...@illinois.gov
> ha scritto nel messaggio
news:7vjgevs7n1dkcdc8j...@4ax.com...
> On Thu, 12 Jun 2003 09:23:56 GMT, "Roberto da casa"
> <
r.ma...@libero.it
> wrote:
>
> >Scusami ma non mi è chiaro dove hai inserito i pulsanti Btn_Int_Back  e
> >Btn_Int_Avanti;
>
> sono nella sottomaschera (intervento).
Nel corpo, nell'intestazione o nel piè di pagina della sottomaschera?
>
> > inoltre non ho capito che visualizzazione ha la
> >sottomaschera;
>
> E' visualizzata contemporaneamente alla mschera principale (paziente)
> in un riquadro.
Beh questo è normale, visto che è una sottomaschera; ma la sottomaschera ha
una visualizzazione a Maschera semplice o a Maschere Continue?
>
> >infine non ho capito a fronte di quale evento generi i codici
> >VBA che dici essere relativi alla sottomaschera.
>
> All'evento Current della sottomaschera..
>
> Grazie e..



title: MultiUtenza

author: ALB

text:
Secondo l'esperienza di questo NG, Qual'è il nr giusto di utenti collegato
ad un mdb collocato su di un Server e la dimensione massima del Back End per
poter lavorare discretamente. Grazie a coloro che interverrano


title: MultiUtenza

author: Alessandro Baraldi

text:
"ALB" <
dona...@yhaoo.it
> wrote in message
news:9AS7e.66562$
zZ1.1...@twister1.libero.it
> Secondo l'esperienza di questo NG, Qual'è il nr giusto di utenti collegato
> ad un mdb collocato su di un Server e la dimensione massima del Back End per
> poter lavorare discretamente. Grazie a coloro che interverrano
Questa domanda è troppo generica.
Diciamo che usando una configurazione CLIENT-SERVER che
con Jet sarebbe meglio definire FE-BE in multiClient il
limite è fortemente alterato dalla modalità di sviluppo del
FE.
In particolare dalla struttura delle Tabelle(Normalizzate)
nonchè dal buon uso dell'indicizzazione dei campi
per non parlare della modalità di costruzione dell'interfaccia utente.
E' ovvio che se proponi maschere che mostrano un sacco di
dati con + di una SubForm queste rallenteranno in merito al
numero di dati da dover esporre.
La tecnica di esporre il minimo indispensabile e gestire
Maschere di dettaglio all'occorrenza è un buon metodo
per limitare sprechi ed ottimizzare le prestazioni.
In sostanza se hai sviluppato un buon BE ed un Buon FE
dovresti lavorare bene fino ad una decina di utenti senza
particolari problemi.
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: MultiUtenza

text:
Grazie Alessandro;
Specifico meglio la domanda giustamente definita generica: l'applicazione è
di tipo File-Server, ovvero un file di dati BE (Access 97) posto su di una
cartella del server e il FE posto sui pc dei client. oggi come oggi ho circa
15 utenti fissi collegati (lo vedo tramite LDB view) con punte di 20 qualche
volta 22.
L'applicazione (FE) si basa essenzialmente su di una maschera iniziale che,
purtoppo, mi deve caricare la tabella master contenente circa 3500 record
(ogni record contiene 80 campi), da tale tabella master, viene scelto quale
rk selezionare e successivamente si potranno poi aprire altre maschere
(relazione dati 1 a molti).
Le dimensioni del BE si aggirano intorno ai 14 mega mentre il FE intorno ai
3 mega. Ogni notte parte un file batch che cancella il file BE.LDb e poco
dopo un altro file batch compatta il BE.Mdb
In effetti ogni tanto capita che venga visualizzato il seguente messaggio:
"\\nomecartellaserver\BachEnd.mdb" danneggiato tentare di ripristinare.
Il tutto si risolve facendo chiudere gli utenti e rispondendo si alla
suddetta domanda.
IL sito della Microsoft parla di problemi hardware di rete oppure di una
chiusura anomala da parte di qualche utente; inoltre lo stesso sito parla di
un numero massimo di uteni possibili in rete 255, ma si sa che ciò non può
essere.
Grazie ancora
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:ed78f7402c9514bde3...@mygate.mailgate.org...



title: MultiUtenza

text:
"ALB" <
dona...@yhaoo.it
> wrote in message
news:wu18e.67220$
zZ1.1...@twister1.libero.it
> Grazie Alessandro;
[CUT]
> IL sito della Microsoft parla di problemi hardware di rete oppure di una
> chiusura anomala da parte di qualche utente; inoltre lo stesso sito parla di
> un numero massimo di uteni possibili in rete 255, ma si sa che ciò non può
> essere.
> Grazie ancora
Rispondi cortesemente dopo il Post precedente e non prima.
Diciamo che 255 è il limite fisico, ma JET ha un limite
strutturale ben più basso, tuttavia io fino ad una 15° di
utenti riuscivo a lavorare con una perdita di prestazioni
sopportabile.
Per come hai descritto la cosa io ti consiglio di passare
ad un sistema differente come BE.
Per il numero di Utenti di cui necessiti penso sia una
buona cosa appoggiarsi a SQL_SERVER, ovviamente dovrai
modificare un pò la struttura per ottimizzare l'uso di un
vero RDBMS ServerSide, ma se non passi ad ADP non è poi
così critico.



title: Grafica in Access

author: Al

text:
Salve,
ho ncessità di redigere un programma in Access XP che deve fare massiccio
uso di grafica 2D e/o 3D.
Cioè in una maschera dovrei rappresentare un figura piana (meglio se 3D)
qualsiasi e poterla ruotare, spostare, ecc.
Ho provato ad utilizzare le linee modificandone le propietà, ma è
un'impresa! Rimane un uso poco intuitivo!
Purtroppo ho bisogno di interazione e non posso usare la grafica sui report.
Qualcuno sa se vi sono ocx/dll che potrebbero fare al caso?
Grazie a quanti vorranno rispondermi.
Alvas


title: Grafica in Access

author: Carlo Costarella

text:
"Al" <
al...@tiscali.it
> ha scritto nel messaggio
news:42d510ae$0$327$5fc...@news.tiscali.it...

Non dimenticare che Access serve per realizzare database relazionali e
questo lo fà in modo stupendo.
Se vuoi dotare qualche maschera anche di funzioni grafiche tutto dipende da
cosa vuoi fare.
Un buo sito, quasi tutto gratis, è
www.lebans.com
Potrai trovare moltissime funzioni grafiche. Esistono anche diversi ocx in
rete che ti permettono di visualizzare immagini, filmati e molto altro.
Ciao, Carlo


title: Trasformazione ordine in fattura

author: stefra

text:
Buongiorno al NG

Dopo i vs preziosi consigli su come risolvere il problema della duplicazione di un  ordine sono da voi per un altro consiglio.

Non voglio il "modo come fare" piuttosto il consiglio su come partire...

Il punto è questo:
Access 2003

Un programma con cui facciamo preventivazione. La preventivazione avviene attraverso la scelta di oltre 7000 modelli, individuati attraverso una serie di filtri.
Alla fine della selezione ottengo un record al cui interno ho l'anagrafica del cliente (attraverso i loro Id che inserisco in una tabella a parte), il modello, l'importo iva esclusa e tutto iò che serve per una preventivazione.

Poi ho un altro applicativo Access con cui posso tranquillamente fare le fatture per questi ordini. Sono due applicativi completamente diversi ma che, per ovvi motivi, hanno campi molto simili.

Ora, visto il successo di Invoicex, l'amministrazione sta spingendo sull'acquisto del programma perchè "trasforma l'ordine in fattura" non capendo che ora hanno come una camicia su misura, mentre dopo avranno la camicia comprata alla Coop (con tutto il rispetto...)

Il punto è questo: non so come iniziare!
Mi serve un'idea. Ho provato a crearmi una tabella con tutti i campi che mi occorrono e fare query di accodamento ecc ecc... ma la testa è confusa :-)

Il record che mi crea la riga d'ordine è fatta da una query, sono riuscito a farmi la fattura singola... modificando la stampa del contratto, ma come mi creo un archivio delle fatture, dove si possono richiamare duplicare e modificare?

Come vedete non metto nomi di tabelle e altre cose, mi piace poi lavorarci da solo (piuttosto... uso solo le macro :-( )

Sono stato prolisso, lo so, ma almeno vi ho dato qualche informazione per potermi aiutare?

Grazie a tutti
Stefano


title: Trasformazione ordine in fattura

author: BFS

text:
Il 07/12/2016 15:36, stefra ha scritto:
> Buongiorno al NG
>

> Grazie a tutti
> Stefano
>

Per gestire le fatture devi farti un archivio fatture composto da almeno
3 tabelle

testatafatture
righefatture
scadenzefattura

testatafatture con i classici:
idfattura
datafattura
sezionalefattura
idcliente
idpagamento
etc etc

righe fattura con :
idriga
idfattura
codice
deiscrizione
quantità
um
prezzo
sconto
etc etc

scadenzefattura con
idscadenza
idfattura
datascadenza
importo
etc etc

la compilazione in automatico di queste tre tabelle a partire dai un
ordine è una banalità se si hanno almeno le basi del vba
farlo con macro e query di accodamento la vedo veramente dura.

ciao
BFS


title: Trasformazione ordine in fattura

text:
Il giorno venerdì 9 dicembre 2016 17:04:40 UTC+1, BFS ha scritto:
> Il 07/12/2016 15:36, stefra ha scritto:
> > Buongiorno al NG
> >
>
> > Grazie a tutti
> > Stefano
> >
>
>
> Per gestire le fatture devi farti un archivio fatture composto da almeno
> 3 tabelle
>
.....
>
> la compilazione in automatico di queste tre tabelle a partire dai un
> ordine è una banalità se si hanno almeno le basi del vba
> farlo con macro e query di accodamento la vedo veramente dura.
>
>
> ciao
> BFS

Grazie!
E' un punto di partenza almeno. Ero completamento cotto.

Con le macro sono riuscito a fare cose oscene... :-)

Grazie di nuovo.

Stefano


title: x Roberto (se ha abbastanza pazienza)

author: Otis

text:
Anche se vedo che sei piuttosto richiesto, torno a tediardi con la
condizione WHERE della casella di riepilogo.
Ho fatto come mi hai suggerito però mi viene un "ERRORE DI RUN-TIME '5':
"Chiamata di routine o argomento non validi". Debug mi evidenzia:
strWhere="[IDCliente] IN ("&Left$(strWhere,Len(strWhere)-1")"
Approfitto della tua pazienza per chiederti una cosa: se non ho capito male
LEN toglie l' ultima virgola dalla clausola IN. Cosa succederebbe
lasciandola?
Ancora grazie
Luca


title: x Roberto (se ha abbastanza pazienza)

text:
"Otis" <
l.o...@libero.it
> ha scritto nel messaggio
news:oEb%5.127964$hk4.4...@news.infostrada.it...
> Anche se vedo che sei piuttosto richiesto, torno a tediardi con la
> condizione WHERE della casella di riepilogo.
> Ho fatto come mi hai suggerito perň mi viene un "ERRORE DI RUN-TIME '5':
> "Chiamata di routine o argomento non validi". Debug mi evidenzia:
> strWhere="[IDCliente] IN ("&Left$(strWhere,Len(strWhere)-1")"
> Approfitto della tua pazienza per chiederti una cosa: se non ho capito
male
> LEN toglie l' ultima virgola dalla clausola IN. Cosa succederebbe
> lasciandola?
> Ancora grazie
> Luca
>
Scusami ma ho commesso un errore di battitura proprio nel scrivere quella
riga; la routine giusta č:
Dim strWhere As String, varItem As Variant
If Me!Clienti.ItemsSelected.Count = 0 Then Exit Sub
For Each varItem In Me!Clienti.ItemsSelected
strWhere = strWhere & Me!Clienti.Column(0, varItem) & ","
Next varItem
strWhere = "[IDCliente] IN (" & Left$(strWhere, Len(strWhere) - 1) & ")"
DoCmd.OpenReport ReportName:="ReportClienti", WhereCondition:=strWhere
DoCmd.Close acForm, Me.Name
Come vedi mi sono dimenticato una & .
Comunque č la funzione Left$ che toglie l'ultima virgola e non la funzione
Len.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: aggiornamento query

author: peppino

text:
Salve a tutti.
Ho un problemino. In una maschera con origine tabella "aziende", ho
una sottomaschera "clienti fatture" in cui ho una casella combinata
associata al campo IDBanca della tabella "fatture" a cui chiedo di
eseguire una query che mi faccia scegliere la banca dalla tabella
"banche" in cui il campo IDAzienda di detta tabella sia uguale al
campo IDAzienda della maschera principale. Tutto bene, funziona, ma il
problema è che se mi sposto tra i record della maschera principale,
per vedere o inserire le fatture delle altre aziende, la query della
casella combinata va rieseguita altrimenti restituisce l'elenco delle
banche relative alla prima azienda. Ho creato un pulsante che mi
aggiorna la maschera e fa aggiornare la query, ma vorrei che
l'aggiornamento avvennisse in automatico al cambio di record della
maschera principale. Per completezza, ho creato una combo non
associata, da cui scelgo l'azienda su cui operare.Grazie in anticipo.


title: aggiornamento query

text:
> Ho creato un pulsante che mi
> aggiorna la maschera e fa aggiornare la query, ma vorrei che
> l'aggiornamento avvennisse in automatico al cambio di record della
> maschera principale. Per completezza, ho creato una combo non
> associata, da cui scelgo l'azienda su cui operare.Grazie in anticipo.
Devi inserire il codice per l'aggiornamento della query sull'evento
della form corrispondente al cambiamento del record corrente


title: aggiornamento query

text:
g.cal...@yahoo.it
 ha scritto:

L'ho inserito sulla casella combinata da cui scelgo la ditta (record)
e non succede nulla. Mi puoi spiegare meglio dove inserirlo. Grazie.


title: aggiornamento query

author: Antonio Biso

text:
"peppino" <
gcard...@tin.it
> ha scritto nel messaggio
news:1171560756.5...@j27g2000cwj.googlegroups.com...

Su evento on current della form fai la requery della combo dopo aver messo
il valore a null
Antonio


title: Dopo caicamento eventi tastiera non intercettati all'apertura form oggetto AxAcroPDFLib.AxAcroPDF

author: OneEDP

text:
Buon giorno,
una form contiene un controllo AxAcroPDFLib.AxAcroPDF
Eseguo normalmente Load ed altri metodi.
Ogni volta che viene aperta la form con caricamento contestuale di un PDF accade:
- SEMPRE che gli eventi KeyPress e KeyUp non vengono MAI intercettati nonostatne KeyPreview impostata a True. Se poi eseguo cambio di finestre manualmente e ritorno alla form, tutto fuziona. Ho provato anche ad inviare SENDKEY ALT+TAB due volte, ma nulla!!
- Il file PDF a volte viene visualizzato a volte no, in generale al prima apertura della form, mentre le volte successive viene visualizzato sempre.
Grazie a tutti.
Daniele


author: Potone

text:
Ciao,
gli eventi di testiera non vengono intercettati probabilmente perché il focus è assegnato all'oggetto activeX,
per risolvere sposta il focus su un altro oggetto del form. Se non esistono altri controlli sul form potresti creare una textbox con dimensioni 0 su cui sposterai il focus dopo l'apertura.
Ciao
Mat.


text:

Fatto anche questo tentativo, sia su un altro controllo, sia sulla form. Si tenga presente che la proprietà della form Anteprima Tasti è impostata a "Sì" (il che ignora i focus dei vari controlli ed intercetta prima gli eventi tastiera)
Thanks


text:
È possibile che il controllo non sia perfettamente compatibile con access.
Vuoi provare comunque a postare il codice che usi all'apertura del form e che non funziona?
Mat.


text:

Il codice è semplicissimo. Dopo l'evento Su caricamento imposto il controllo PDF con MyCtlPDF.Load = "percorso", e MyCtlPDF.src = "percorso".
Nulla di più.
Forse potrei eseguire questa istruzione MyCtlPDF.Load = "percorso" dopo un Timer di 5000 ms e poi impostare TimerInterval = 0?
Non so


text:
Il giorno venerdì 18 agosto 2017 18:44:53 UTC+2, Potone ha scritto:

Da non credere! Ho inserito un banalissimo DoEvents prima di eseguire MyPDF.Load...
E su un PC funziona...
Devo testarlo su altri con CPU meno performanti.
Mha!!


text:
Ciao,
con Doevents cosa si è risolto? Il problema della visualizzazione del pdf o la questione della tastiera?
Mat.


text:

Niente! Non si risolve. L'anteprima tasti non funziona sempre. Il DoEvents libera un po' le risorse.
Come faccio a dire all'utente clicca più volte sui pulsanti e vedrai che funziona! Ogni volta che apre il PDF.
Speriamo di trovare una soluzione.
Grazie!
Daniele


title: inviare 2 report con una sola mail

author: asinobigio

text:
Salve a tutti, sono nuovo del NG e dovrei subito porvi un quesito (ho
provato a cercare nei messaggi  dell' NG ma non ho trovato risposta):
Vorrei iviare, tramite pulsante di comando posto su una maschera 2
report nello stesso messaggio, mentre io per ora sono riuscitosolo a
far inviare due messaggi consecutivi, ognuno contenente un report.
Potete aiutarmi?
Grazie in anticipo ed auguri a tutti!
Asinobigio


title: inviare 2 report con una sola mail

text:
"asinobigio" <
asino...@inwind.it
> ha scritto nel messaggio
news:r4tkq11h49fl2q1a1...@4ax.com...
> Salve a tutti, sono nuovo del NG e dovrei subito porvi un quesito (ho
> provato a cercare nei messaggi  dell' NG ma non ho trovato risposta):
>
> Vorrei iviare, tramite pulsante di comando posto su una maschera 2
> report nello stesso messaggio, mentre io per ora sono riuscitosolo a
> far inviare due messaggi consecutivi, ognuno contenente un report.
> Potete aiutarmi?
Non so come tu oggi invii un report via e-mail, ma normalment non si usa il
metodo SendObject in quanto così il report perde la sua formattazione e
qualsiasi oggetto grafico in esso contenuto.
Una delle possibilità per risolvere il tuo problema potrebbe essere quella
di produrre con i tuo due report altrettanti file PDF ( a tale scopo vai sul
Sito Comune (link qui sotto) e nella Sezione Reports leggi la FAQ di Walter
Negrinelli intitolata "4.21 Esportare un report in un file PDF"), quindi
inviali con un'unica e-mail: nella Sezione General del Sito Comune trovi una
mezza dozzina di FAQ che ti indicano come fare.
>
> Grazie in anticipo
Prego
> ed auguri a tutti!
Buon Natale a te
>
> Asinobigio
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: funzioni in modulo o nella form?!

author: Tashunka

text:
Ciao a tutti,
una domanda forse un po' "idiota" più di forma che di contenuto: se utilizzo
una funzione in una form è meglio dichiararla pubblica e salvarla in un
modulo oppure privata all'interno della form?
Penso che la userò solo all'interno di quella form ... quindi potrebbe
essere privata.
Sono i dubbi di forma di un non-programmatore ;o)
Gracias
Tk


title: funzioni in modulo o nella form?!

author: Roberto dalla campagna

text:
"Tashunka" <
tashu...@hotmail.it
> ha scritto nel messaggio
news:fc95mi$6i7$1...@nnrp.ngi.it...

Se quel codice VBA viene usato solo in quella maschera mi sembra sacrosanto
che sia contenuto nel modulo di classe di quella maschera e non in un modula
standard.
>
> Gracias
Prego.
> Tk
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: funzioni in modulo o nella form?!

author: ALESSANDRO Baraldi

text:
"Tashunka" <
tashu...@hotmail.it
> ha scritto nel messaggio
news:fc95mi$6i7$1...@nnrp.ngi.it...

Ci sono 3 variabili in quello che hai detto...!
Una Funzione normalmente viene dichiarata Public se deve poter essere
richiamata
da più parti del Progetto, in pratica se può servire da diversi punti...!
Le cose perso sono differenti, una cosa è dichiararla Public in un modulo,
in questo caso è sempre
accessibile, Sub/Function dichiarate public rappresentano Metodi
dell'applicativo.
Se invece la dichiari Public in una Form, significa che quel Metodo, che ora
è un Metodo di Form, deve poter
essere richiamato dall'esterno della Form con la Form Aperta...!!
Quindi se lo usi solo dall'interno della Form e non ha senso generalizzare
in una Function/Sub Public direi che
è giusto dichiararlo Private interno alla Form stessa.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: funzioni in modulo o nella form?!

text:
<< CUT >> Sono i dubbi di forma di un non-programmatore ;o)
>>
>> Gracias
>> Tk
>
<< CUT >>
> --
> @Alex (Alessandro Baraldi)
> ---------------------------------------------------------------------------
>
http://www.sitocomune.com/
>
http://www.alessandrobaraldi.it
> ---------------------------------------------------------------------------
>
Grazie ad entrambi ...
adesso mi č piů chiaro.
Tk


title: funzioni in modulo o nella form?!

author: MA

text:

Aggiungo il mio contributo.
Io le maschere le lascio sempre scarne di codice.
Tendo a creare delle sub o delle funzioni quanto più "riusabili" possibili (con l'utilizzo degli argomenti) e le metto in moduli generali, e poi se ho codice di quella maschera lo metto in modulo dedicato a quella maschera.
Il vantaggio è la legibilità del modulo, secondo me
Nel senso che io ho un modulo con
Private sub Form_load()
subSettaLaForm("Grande", "Dialogo")
fctSayHello
End sub
usando nomi espliciti me ne rimane un'idea di cosa quella sub o
quella function fa e se voglio vederla tasto dx, definizione e vado a vedermela
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007


title: Salvare modifiche a una sottomaschera.

author: Riccardo Baldinotti

text:
In A2007 ho una sottomaschera che ha delle etichette colorate. A
seguito di alcune operazioni i colori vengono modificati.
Quando riapro la maschera principale, vorrei che la sottomaschera
riportasse le variazioni apportate, ma non so come fare. Sul pulsante
corrispondente della maschera ho messo, dopo la chiusura, una chiamata
a una routine che letteralmente la rifà, ma sembra che non sia
eseguita.
Se invece eseguo questa routine manualmente, a maschera chiusa, tutto
funziona.
Sicuramente è una sciocchezza, ma ho bisogno di qualcuno che mi
spieghi dove sto scioccando.Grazie.
Riccardo Baldinotti


title: Salvare modifiche a una sottomaschera.

text:

il colore delle etichette varia in base ai dati presenti in quel momento
nella sottomaschera, o vengono letti da una tabella del tipo:
nome-etichetta|codice colore
dove memorizzi gli ultimi colori impostati ?
ciao
BFS


title: Salvare modifiche a una sottomaschera.

text:

La seconda che hai detto...
Volevo evitare di riscrivere preventivamente la sottomaschera ogni
volta che devo aprirla.
Grazie.
Riccardo Baldinotti


title: Salvare modifiche a una sottomaschera.

text:

il codice che imposta il forecolor alle etichette lo hai sulla maschera
principale o sulla sottomaschera? su che evento?
BFS


title: Salvare modifiche a una sottomaschera.

text:

Il colore delel etichette può cambiare per la pressione di un pulsante
posto di fianco a ciascuna di esse. Sono delle 'sezioni' di cui
l'utente può modificare l'ordine.
Il pulsante si trova nella sottomaschera, mentre la funzione è in un
modulo esterno, chiamata così =Funzione() nell'evento SuClick.
Se, dopo avere modificato i colori, visualizzo la struttura della
maschera e quindi chiudo, Access chiede se voglio salvare la
sottomaschera e, se rispondo di sì, quando la riapro la sottomaschera
è aggiornata. Se invece chiudo la maschera da codice, con DoCmd.Close
"maschera", acSaveYes, la sottomaschera non viene salvata.
Grazie.
Riccardo Baldinotti


title: Salvare modifiche a una sottomaschera.

text:

Non ho capito questa storia di dover passare in modalità struttura..cmq
io farei così:
tabella1 con campi idetichetta e colore
quest'ultimo con il valore numerico del colore della etichetta
sul caricamento della maschera credo metterei qualcosa del genere per le
varie etichette:
Me.Etichetta0.ForeColor = DLookup("colore", "tabella1","idetichetta=0")
Me.Etichetta1.ForeColor = DLookup("colore", "tabella1","idetichetta=1")
Me.Etichetta2.ForeColor = DLookup("colore", "tabella1","idetichetta=2")
se sono tante farei un ciclo del recordset per impostare i colori...
e sull'evento chiusura della maschera avrai del codice che va a salvare
nella tabella dei colori, il valore numerico del colore della etichetta
al momento della chiusura.
docmd.runsql "delete * from tabella1"
docmd.runsql "insert into tabella1 (idetichetta, colore) values '" &
me.etichetta0 & "'," & cdbl(me.etichetta0.forecolor)
docmd.runsql "insert into tabella1 (idetichetta, colore) values '" &
me.etichetta1 & "'," & cdbl(me.etichetta1.forecolor)
docmd.runsql "insert into tabella1 (idetichetta, colore) values '" &
me.etichetta2 & "'," & cdbl(me.etichetta2.forecolor)
BFS


title: Salvare modifiche a una sottomaschera.

text:

In effetti è così che produco la maschera. Il mio problema è che, non
sapendo a priori se il numero di etichette varierà, non posso
limitarmi a dare un colroe alle etichette, ma devo letteralmente
crearle, tante quante saranno un domani.
Però potrei adottare un compromesso: uso il metodo come lo descrivi, e
nel caso in cui l'utente aggiungesse una sezione, solo allora
attiverei la funzione che aggiunge un'etichetta.
Vado a provare. Grazie ancora.
Riccardo Baldinotti


title: aiuto per query con "scelta di parametro"

author: giogio

text:
chiedo scusa per il subject un po' impreciso ma non so bene come si chiami
quello che voglio fare e per questo non riesco a trovarlo sul sito
prendiamo una tabella contenente l'anagrafica dei clienti
io voglio fare una query che una volta lanciata chieda all'utente di
immettere ad esempio il codice del cliente ed ecco che prontamente viene
restituita tutta l'anagrafica relativa a quel cliente
faccio cosě:
SELECT Clienti.*
FROM Clienti
WHERE ((Clienti.CODICE_CLIENTE)=[Inserisci il codice cliente])
ORDER BY Clienti.RAGIONE_SOCIALE;
la domanda č:
come faccio a fare in modo che nella finestra che mi esce per inserire il
codice ci sia una casella combinata (mi pare che si chiami cosě) che mi fa
selezionare un codice cliente fra quelli esistenti?
grazie


text:
> SELECT Clienti.*
> FROM Clienti
> WHERE ((Clienti.CODICE_CLIENTE)=[Inserisci il codice cliente])
> ORDER BY Clienti.RAGIONE_SOCIALE;
ORDER BY non serve a niente! :)
ooppss


author: Roberto da casa

text:
"giogio" <gio...@giogio.giogio> ha scritto nel messaggio
news:b612po$2kg$1...@fata.cs.interbusiness.it...

Creeati una maschera non associata chiamata Maschera1 che contenga una
casella combinata non associata chiamata MiaCombo; MiaCombo deve avere due
colonne di cui visibile solo la seconda; MiaCombo deve avere 1 come Colonna
associata; Mia combo deve avere come origine riga il seguente codice SQL:
SELECT Clienti.CODICE_CLIENTE, Clienti.RAGIONE_SOCIALE
FROM Clienti
ORDER BY Clienti.RAGIONE_SOCIALE;
Modifica la tua query nel modo seguente:
SELECT Clienti.*
FROM Clienti
WHERE ((Clienti.CODICE_CLIENTE)=[Forms]![Maschera1]![MiaCombo]);
Ora apri Maschera1, seleziona il cliente sulla xasella combinata, esegui la
tua query; naturalmente, durante l'esecuzione della query, Maschera1 deve
risultare aperta.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [?] : Dove si trovano le immagini(icone) per i pulsanti

author: MatteoC.

text:
Salve a tutti,
Volevo sapere dove posso trovare sul disco le immagini(icone) che si possono
applicare ai pulsanti durante la lro creazione?
Posso utilizzarle anche per altri programmi?
ciao
MatteoC.
--------------------------------
Inviato via
http://usenet.libero.it


text:
"MatteoC." <kiesi#nospam#@
libero.it
> ha scritto nel messaggio
news:213Z26Z161Z136Y...@usenet.libero.it...
> Salve a tutti,
>
> Volevo sapere dove posso trovare sul disco le immagini(icone) che si
possono
> applicare ai pulsanti durante la lro creazione?
>
> Posso utilizzarle anche per altri programmi?
Il classico è sicuramente moricons.dll ma non c'è un granchè...
Antonio


author: Alessandro Cara

text:

stanno dentro msaccess.exe


title: Table GUID

author: Opera

text:
Questi sono i GUID per maschere, report e macro:
FORM   {c49c842e-9dcb-11d1-9f0a-00c04fc2c2e0}
REPORT {c49c8430-9dcb-11d1-9f0a-00c04fc2c2e0}
MACRO  {c49c842f-9dcb-11d1-9f0a-00c04fc2c2e0}
Esistono GUID anche per Tabelle e Query? Se no, perché? Se sě, dove li
trovo?
Il problema č relativo al seguente codice:
    Dim catDb As New ADOX.Catalog, varObjName, lngObjectType As
ADOX.ObjectTypeEnum
    Dim varObjectID, strGroup As String, lngOldRights As Long
    Dim lngAddRights As Long, lngNewRights As Long, lngInherit As Long
    strGroup = "Admins"
    varObjName = "TABLE_X"
    lngObjectType = adPermObjTable
    varObjectID =   ""   '<--------------------------GUID?
    With catDb
    'apre il catalogo degli oggetti usando la connessione corrente
        .ActiveConnection = CurrentProject.Connection
    'restituisce il set di permessi corrente per il gruppo
        lngOldRights = .Groups(strGroup).GetPermissions(varObjName, _
        lngObjectType, varObjectID)
    'aggiunge nuovi permessi a quelli esistenti nella bitmask
        lngNewRights = lngOldRights Or lngAddRights
    'assegna i permessi specifici
        .Groups(strGroup).SetPermissions varObjName, lngObjectType,
adAccessSet, _
            lngNewRights, lngInherit, varObjectID
    End With
Grazie per qualsiasi aiuto.


title: Table GUID

author: giorgio rancati

text:
"Opera" <
kronos...@virgilio.it
> ha scritto nel messaggio
news:43b94724$0$1074$4faf...@reader4.news.tin.it...
Ciao Opera,
> Questi sono i GUID per maschere, report e macro:
>
> FORM   {c49c842e-9dcb-11d1-9f0a-00c04fc2c2e0}
> REPORT {c49c8430-9dcb-11d1-9f0a-00c04fc2c2e0}
> MACRO  {c49c842f-9dcb-11d1-9f0a-00c04fc2c2e0}
>
> Esistono GUID anche per Tabelle e Query? Se no, perché?
no,  come puoi vedere da questo articolo
----
Setting Permissions
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odeopg/html/deovrsettingpermissions.asp
----
il parametro ObjectTypeID va passoto solo per le Maschere, i Report e le
Macro.
> Se sě, dove li trovo?
>
> Il problema č relativo al seguente codice:
[CUT]
>         lngOldRights = .Groups(strGroup).GetPermissions(varObjName, _
>         lngObjectType, varObjectID)
>     'aggiunge nuovi permessi a quelli esistenti nella bitmask
>         lngNewRights = lngOldRights Or lngAddRights
>     'assegna i permessi specifici
>         .Groups(strGroup).SetPermissions varObjName, lngObjectType,
> adAccessSet, _
>             lngNewRights, lngInherit, varObjectID
>     End With
>
> Grazie per qualsiasi aiuto.
togli il parametro varObjectID da GetPermissions e SetPermissions .
Per maggiori info
----
GetPermissions and SetPermissions Methods Example (VB)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscgrantingpermissionsexample.asp
GetPermissions Method
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admthgetpermissions.asp
SetPermissions Method
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admthgetpermissions.asp
ObjectTypeEnum
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/adcstobjecttypeenum.asp
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: Err.Number 94 - Utilizzo non valido di Null

author: Marco

text:
Salve a tutti. L'esecuzione di questa routine si interrompe a causa di
un errore (Err.Number 94).
La causa potrebbe essere nella dichiarazione delle variabili, ma non
riesco a capire come correggere.
Dim X As String
Dim Y As String
Dim b As String
Dim z As Long
Dim f As Long
Dim inizio As Date
Dim oggi As Date
Dim origine As Date
Dim codice As String
Dim primo As String
Dim secondo As String
Dim terzo As String
Dim alfa As Long
Dim beta As Long
oggi = Date
inizio = "20/11/1848"
origine = "02/12/1916"
z = DateDiff("d", inizio, oggi)
terzo = Hex(z)
Y = Left(terzo, 4)
codice = Left(CODICENOME, 5)
alfa = codice
primo = Hex(alfa)
b = Left(primo, 4)
f = DateDiff("d", origine, oggi)
beta = f + alfa
secondo = Hex(beta)
X = Left(secondo, 4)
primario = X
secondario = Y
terziario = b


author: Carlo Costarella

text:
"Marco" <
marc...@tiscali.it
> ha scritto nel messaggio
news:207b6573-97d5-40db...@p7g2000yqa.googlegroups.com...

----------------------------------------------------------------------------------------
CODICENOME potrebbe essere vuoto quindi dovresti cambiare il codice in:
codice = nz(Left(CODICENOME, 5),"")
meglio:
codice = nz(trim(Left(CODICENOME, 5)),"")
> alfa = codice
----------------------------------------------------------------------------------------
Qui alfa assume un valore stringa mentre è dichiarato come come long
cut
Il codice errore 94 dovrebbe essere un uso non valido di null.
Ciao, Carlo


text:
On 15 Ago, 09:54, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Marco" <
marco...@tiscali.it
> ha scritto nel messaggionews:207b6573-97d5-40db...@p7g2000yqa.googlegroups.com...

> ----------------------------------------------------------------------------------------
> CODICENOME potrebbe essere vuoto quindi dovresti cambiare il codice in:
> codice = nz(Left(CODICENOME, 5),"")
> meglio:
> codice = nz(trim(Left(CODICENOME, 5)),"")
>
> > alfa = codice
>
> ----------------------------------------------------------------------------------------
> Qui alfa assume un valore stringa mentre è dichiarato come come long
>
> cut
> Il codice errore 94 dovrebbe essere un uso non valido di null.
>
> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
Grazie Carlo, hai fatto centro anche stavolta!!!


title: Casella trova nome tipo guida di windows

text:
Ho una Maschera continua con origine in query1
Nella maschera visualizzo vari campi tra cui un campo cognome.
Devo inserire una casella di testo, dove man mano che digito
le lettere, contemporaneamente, i record della maschera, si posizionano
sul cognome con le prime lettere uguali a quelle al momento digitate.
es digito a
fa vedere Abissi, Acetone, Archimede
continuo nella digitazione
ar
fa vedere archimede etc….
tipo casella trova della guida di windows
Sulle FAQ (grazie a un precedente suggerimento) ho trovato un esempio,
inerente però una listbox;
come devo variare il codice, se al posto della listbox, ho i record di
una maschera continua?
Codice dalla FAQ però inerente una listbox:
Private Sub MyTextbox_Change()
   Dim CaratteriDigitati As String
   CaratteriDigitati = Nz(Me!MyTextbox.Text, "")
   Me!MyListbox.RowSource = "SELECT nomeCampo FROM nomeTabella " & _
      "WHERE nomeCampo LIKE '" & CaratteriDigitati & "*'"
End Sub
-----------------------------
Riporto anche l'intera FAQ:
Dalla FAQ:
E' possibile filtrare una listbox mentre digito un testo (filtro)
al'interno di un controllo testo?
Autore: Lorenzo Coronati & Ema
Filtrare il contenuto di una listbox in base al contenuto di una textbox
e' cosa abbastanza semplice,
a patto di usare l'evento AfterUpdate.
Meno immediato ma molto piu' user-friendly e' poter vedere l'effetto del
filtro dinamicamente
durante la digitazione nella textbox.
In una form inserite una text box chiamata MyTextBox e un list box
chiamata MyListBox,
copiate la seguente routine nell'evento Su Modifica (Change) della text
box.
Private Sub MyTextbox_Change()
   Dim CaratteriDigitati As String
   CaratteriDigitati = Nz(Me!MyTextbox.Text, "")
   Me!MyListbox.RowSource = "SELECT nomeCampo FROM nomeTabella " & _
      "WHERE nomeCampo LIKE '" & CaratteriDigitati & "*'"
End Sub
Attenzione, sostituite nomeTabella e nomeCampo con il nome della tabella
e di un
suo campo sul quale volete effettuare la ricerca.
A questo punto iniziate a scrivere il testo da cercare nella textbox e
godetevi l'effetto
---------------------
Ciao


author: Lorenzo Coronati

text:
Scrisse rr12rr <
NOSPAM...@usa.net
>:
>Sulle FAQ (grazie a un precedente suggerimento) ho trovato un esempio,
>inerente perņ una listbox;
>come devo variare il codice, se al posto della listbox, ho i record di
>una maschera continua?
>
>Codice dalla FAQ perņ inerente una listbox:
>Private Sub MyTextbox_Change()
>   Dim CaratteriDigitati As String
>   CaratteriDigitati = Nz(Me!MyTextbox.Text, "")
>   Me!MyListbox.RowSource = "SELECT nomeCampo FROM nomeTabella " & _
>      "WHERE nomeCampo LIKE '" & CaratteriDigitati & "*'"
>End Sub
Probabilmente basta fare:
me.filter = "nomeCampo LIKE '" & CaratteriDigitati & "*'"
me.filteron=true
Prova un po'...
--
Lorenzo Coronati
--
<<P.S. Mi scuso con il NG per la polemica, ma proprio
non digerisco questo atteggiamento da professorini di
provincia, che alternano risposte saccenti date con
sufficienza a prese in giro da terza elementare.>>
(Giovanni D'Orazio, 1/11/2000)
--


text:
grazie per il suggerimento,
solo che non devo filtrare i record, ma devo posizionarmi
sul primo record corrispondente ai caratteri digitati
con il codice:
1) filtro le parole in base ai caratteri digitati,
cioè, non mi posiziona il record in base ai caratteri digitati  ma filtra
tutti i record;
quindi, se poi con la barra, voglio scorrere i record precedenti o
successivi
non lo posso più fare;
2)inoltre quando digito i caratteri il secondo carattere che digito viene
riportato sempre
come primo cioà digito a ed ho a, se continuo con b dovrei avere ab, invece
ho ba ecc.
Ipotizzo che serva un puntatore al record in base ai caratteri che man mano
digito dentro la casella di testo
ho provato con:
Me.RecordsetClone.FindFirst "[ccc]='" & CaratteriDigitati & "*'"
Me.Bookmark = Me.RecordsetClone.Bookmark
ma non succede nulla.
provo anche a ripostare con
Posizionarsi su un record di una maschera continua
ciao


text:
Scrisse rr12rr <rr1...@NOSPAMusa.net>:
>Me.RecordsetClone.FindFirst "[ccc]='" & CaratteriDigitati & "*'"
Usa like al posto di =



text:
Thank you
Funziona
Solo che:
1) Se nella maschera continua visualizzo es. 10 record (sono in ordine
alfabetico) e al
7° posto inizia il cognome con la lettera B: se nella casella di testo
digito la
lettera B il selettore (triangolino) si sposta su tale record che però
rimane fermo nella sua posizione
a video; mi interessava  avere anche uno scorrimento dello stesso
(record) verso l’alto fino alla prima
posizione. In modo da individuare subito il record in selezione e quelli
sottostanti (i record sopra non
è infatti necessario continuare a vederli).
2) Inoltre, nella casella di testo, se digito A e di seguito B, non
scrive AB, ma prima A e poi B;
quindi, per scrivere AB, devo riposizionare, ogni volta, il cursore I di
inserimento testo (con il mouse) alla destra
       del carattere appena digitato.


text:
Scrisse rr12rr <
NOSPAM...@usa.net
>:
>1) Se nella maschera continua visualizzo es. 10 record (sono in ordine
>alfabetico) e al
>7° posto inizia il cognome con la lettera B: se nella casella di testo
>digito la
>lettera B il selettore (triangolino) si sposta su tale record che però
>rimane fermo nella sua posizione
>a video; mi interessava  avere anche uno scorrimento dello stesso
>(record) verso l’alto fino alla prima
>posizione. In modo da individuare subito il record in selezione e quelli
>sottostanti (i record sopra non
>è infatti necessario continuare a vederli).
Non ho idea se e come si possa fare.
>2) Inoltre, nella casella di testo, se digito A e di seguito B, non
>scrive AB, ma prima A e poi B;
>quindi, per scrivere AB, devo riposizionare, ogni volta, il cursore I di
>inserimento testo (con il mouse) alla destra
>       del carattere appena digitato.
Posta il codice.



title: Come 'vedere' i controlli sulla form durante il form_load

author: RobertoA

text:
Come fare per visualizzare la form, durante l'esecuzione del codice
nell'evento form_load della form stessa ?
Un po' il   me.show  del visual basic per capirci
Ciao e grazie
RobertoA


author: Gabriele Bertolucci

text:
> Come fare per visualizzare la form, durante l'esecuzione del codice
> nell'evento form_load della form stessa ?
> Un po' il   me.show  del visual basic per capirci
Non è possibile.
D'altronde, ti trovi nell'evento che si verifica proprio quando inizia il
caricamento della form; la form stessa non è ancora instanziata, quindi non
puoi vederla.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


text:
>> Come fare per visualizzare la form, durante l'esecuzione del codice
>> nell'evento form_load della form stessa ?
>> Un po' il   me.show  del visual basic per capirci
>
> Non è possibile.
>
> D'altronde, ti trovi nell'evento che si verifica proprio quando inizia il
> caricamento della form; la form stessa non è ancora instanziata, quindi
> non
> puoi vederla.
E col  visual basic come la mettiamo ?
Come fa a mostrarti la form a meta' via del form_load ?
Ciao
RobertoA


text:
>> D'altronde, ti trovi nell'evento che si verifica proprio quando inizia il
>> caricamento della form; la form stessa non è ancora instanziata, quindi
>> non puoi vederla.
> E col  visual basic come la mettiamo ?
In che senso?
Io stavo proprio facendo riferimento all'evento Form_Load.
> Come fa a mostrarti la form a meta' via del form_load ?
Ribadisco quanto detto nel mio precedente post: finché una form non è stata
instanziata non è possibile visualizzarla.



text:

Usa un trucchetto... DISASSOCIA la FORM.. ed associala su TIMER
Su Load imposti :
Me.TimerInterval=1000 ' per esempio poi ottimizzalo
Su Evento Timer:
Private Sub Form_Timer()
  .... esegui il tutto
  me.RecordSource="...."
  Me.TimerInterval=0
End Sub
In questo modo si apre praticamente subito poi si caricano i dati eseguendo
il Requery al momento
dell'associazione del RecordSource.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


text:
>> Come fare per visualizzare la form, durante l'esecuzione del codice
>> nell'evento form_load della form stessa ?
>> Un po' il   me.show  del visual basic per capirci
>> Ciao e grazie
>> RobertoA
>
> Usa un trucchetto... DISASSOCIA la FORM.. ed associala su TIMER
>
> Su Load imposti :
> Me.TimerInterval=1000 ' per esempio poi ottimizzalo
>
> Su Evento Timer:
>
> Private Sub Form_Timer()
>  .... esegui il tutto
>  me.RecordSource="...."
>  Me.TimerInterval=0
> End Sub
>
> In questo modo si apre praticamente subito poi si caricano i dati
> eseguendo
> il Requery al momento
> dell'associazione del RecordSource.
> --
Si, andrebbe bene, ma non nel mio caso, non ho dati di archivio da
visualizzare ma semplici messaggi
Ho un'unica schermata e su questa volevo visualizzare dei messaggi sulla
progressione operazioni
Essendo quattro righe in croce pensavo di usare il form_load e quindi fare
tutto la dentro
Ma sembra che non zi pozza
Ciao e grazie
RobertoA


author: Pablitomf

text:
CUT
>> In questo modo si apre praticamente subito poi si caricano i dati
>> eseguendo
>> il Requery al momento
>> dell'associazione del RecordSource.
>> --
>
> Si, andrebbe bene, ma non nel mio caso, non ho dati di archivio da
> visualizzare ma semplici messaggi
Ascolta il suggerimento di Ale... va bene


text:
>>> In questo modo si apre praticamente subito poi si caricano i dati
>>> eseguendo
>>> il Requery al momento
>>> dell'associazione del RecordSource.
>> Si, andrebbe bene, ma non nel mio caso, non ho dati di archivio da
>> visualizzare ma semplici messaggi
> Ascolta il suggerimento di Ale... va bene
Veramete non volevo risolvere il problema contingente
Usando un altro evento, avevo gia' visto che funzionava come volevo
Desideravo capire se, dentro il form_load si poteva fare quella cosa, tutto
qua
Mi sembra di capire che non si possa fare
Grazie a tutti i sugerimenti
Ciao
RobertoA


title: Utilizzo di espressioni con le date

author: solaria

text:
Lavoro su un database dove inserisco in un campo la data dell'ultima visita
medica, in un altro campo la periodicità di queste visite ( es. annuale,
triennale ecc.). Mi farebbe comodo che un terzo campo, in base alla
perioditicità inserita, mi desse automaticamente la data della prossima
visita.
Grazie Andrea


title: Utilizzo di espressioni con le date

author: Sandro

text:
"solaria" <
MAKK...@libero.it
> ha scritto nel messaggio
news:GSDXe.9490$9l.2...@twister1.libero.it...

Ciao Andrea,
se hai una tabella che contiene la periodicità con un campo che ne
identifica i giorni e il controllo che utilizzi per stabilire la periodicità
è una combobox, non sarà difficile sommare con dateadd i giorni contenuti in
questa tabella al controllo contenente la data ultima visita con column.
altro problema è calcolare una data non festiva ... sul SC c'è una funzione
 6.138 Sommare giorni lavorativi ad una data (---> vedi se ti può aiutare)
Esempio  di T_periodicità
id_periodicità         counter,pk
periodicità                decrizione
giorni                        numerico
id_periodicità        periodicità        giorni
1                            annuale            365
2                            mensile                30
3                            settimanale         7
4                            semestrale        182
....
Spero di essere stato chiaro.
Ciao, Sandro.


title: Funzione mese in cifre -> mese in lettere

author: Gisco

text:
Salve.
C'è in access la funzione descritta in oggetto?
Ciao
Gisco


author: Micio

text:
Gisco ha scritto nel messaggio ...

no, ma basta farsela in VBA... è semplice!
function iMese2sMese(Mese as int) as String
    Select case Mese
        case 1
            return "Gennaio"
        case 2
            return "Febbraio"
        case ...
    end case
end function


author: Luciano

text:
Micio <...@...> ha scritto nel messaggio <86s12u$ncs$
1...@nslave2.tin.it
>...
>>C'è in access la funzione descritta in oggetto?
>no, ma basta farsela in VBA... è semplice!
Ancora piu' semplice e' dare un'occhiata all'help di Format!:-))
Access lo fa gia' da se'!
Miadata = format (date(),"dd mmmm aaaa")...tanto per dirne una...
Saluti.
Luciano


text:
>Ancora piu' semplice e' dare un'occhiata all'help di Format!:-))
>Access lo fa gia' da se'!
>Miadata = format (date(),"dd mmmm aaaa")...tanto per dirne una...
>Saluti.
ma lui non usa una data, a quanto ho capito...
lui ha dei numeri che vuole convertire in nome del mese...
1 --> Gennaio
2 --> Febbraio... ecc...
Altrimenti dovrebbe creare una data fittizia con il mese che
gli serve e convertire... non ha molto senso
(sempre se ho capito quello che voleva sapere...)
Micio


text:
Micio <...@...> ha scritto nel messaggio <86sk1n$ofo$
1...@nslave2.tin.it
>...
>
>ma lui non usa una data, a quanto ho capito...
>lui ha dei numeri che vuole convertire in nome del mese...
>1 --> Gennaio
>2 --> Febbraio... ecc...
Dunque....ho giocherellato un po' con format ed ho scoperto che:
format (1,"dddd") restituisce (NON RITORNA!!!) domenica, se metto 2 lunedi'
e cosi' via (gli americani iniziano a contare dalla domenica).
Se provo con i mesi invece:
Format (1,"mmmm") mi restituisce dicembre, 2 mi da gennaio.... ma lo stesso
fa fino a 32. Dopodiche' attacca con febbraio fino a 60, poi con marzo fino
a 91, aprile fino a 121....and so on!
Insomma, la cosa potrebbe andare a capire con quale criterio gestisce i
numeri.
Cosi', sempre per giocare ho provato anche
Format (1,"yyyy") che da 1899. Poi abbiamo 1900 fino 366...
Qualcun'altro ci ha provato?
Saluti.
Luciano


author: AntoGal

text:
Luciano <
mc5...@mclink.it
> wrote in message 86t3su$3tn$1...@news.mclink.it...
> Dunque....ho giocherellato un po' con format ed ho scoperto che:
>
> format (1,"dddd") restituisce (NON RITORNA!!!)
[snip]
mah, io preferisco ritorna (dal C/C++ return), non sarà italiano, ma neanche
"downlodare" lo è (letto sul sito Microsoft) :-)
Questo perchè Access cerca di interpretare "1" come data. Dai un'occhiata
sull'help "Tipo di dati Date".
"Le variabili di tipo Date sono memorizzate come numeri IEEE di 64 bit (8
byte) che rappresentano date comprese nell'intervallo fra l'1 gennaio 100 e
il 31 dicembre 9999 e orari compresi fra le 0.00.00 e le 23.59.59. È
possibile assegnare alle variabili Date qualsiasi....." ecc.
--
Ciao, AntoGal
*************************************************
Home Page (area programmatori di VolFtp)
http://volftp.mondadori.com/italiani/galletta/
per scaricare un gioco di DAMA ITALIANA
*************************************************


text:
Micio <...@...> ha scritto nel messaggio <86s12u$ncs$
1...@nslave2.tin.it
>...
>
>Gisco ha scritto nel messaggio ...
>>Salve.
>>C'è in access la funzione descritta in oggetto?
>>
>>Ciao
>>Gisco
>
>
>no, ma basta farsela in VBA... è semplice!
Ciao ragazzi grazie a tutti, mi è di conforto sapere che non c'è in access,
invece che c'è, e che mi è sfuggita.
Come sono andati gli esami Micio?.
Ciao Gisco


text:
>Come sono andati gli esami Micio?.
>
>Ciao Gisco
devo ancora farli... le prove scritte sono
lunedě, mercoledě, giovedě e venerdě... e una
settimana dopo ho 2 orali... sob!
anzi... mieowwwwwwwwwwww
Micio


text:
AntoGal ha scritto nel messaggio <86uv1r$hbk$
2...@pegasus.tiscalinet.it
>...
>> format (1,"dddd") restituisce (NON RITORNA!!!)
>[snip]
>mah, io preferisco ritorna (dal C/C++ return), non sarà italiano, ma
neanche
>"downlodare" lo è (letto sul sito Microsoft) :-)
Beh, il livello di conoscenza dell'italiano che hanno alla Microsoft lo si
evence facilmente lanciando anche una sola volta il correttore grammaticale
di Word!:-)
>Questo perchè Access cerca di interpretare "1" come data. Dai un'occhiata
>sull'help "Tipo di dati Date".
>"Le variabili di tipo Date sono memorizzate come numeri IEEE di 64 bit (8
>byte) che rappresentano date comprese nell'intervallo fra l'1 gennaio 100 e
>il 31 dicembre 9999 e orari compresi fra le 0.00.00 e le 23.59.59. È
>possibile assegnare alle variabili Date qualsiasi....." ecc.
E' quello che supponevo. Non ho capito pero' come gestisco la faccenda
relativamente al problema sollevato da....boh, mica me ricordo chi era!:-)
Saluti.
Luciano


title: sotto-sotto maschere e caselle combinate

author: Kokko

text:
Buongiorno a tutti,
ho da poco imparato a muovermi in access, ma ci sono alcune cose che
vorrei fare nel mio database e che purtroppo non sono riuscito ad
eseguire.
L'argomento del Db sono i FUMETTI. Un albo è un fumetto nel senso
fisico del termine, mentre un episodio è una delle storie contenuta in
un albo. Gli autori sono autori dell'episodio, non dell'albo.
Spero mi possiate aiutare:
1) Ho dunque 3 entità collegate a catena da 2 relazioni molti a molti:
ALBO<---->EPISODIO<---->AUTORE
Nella maschera principale (Albo) visualizzo (e inserisco) tutti gli
episodi contenuti nell'albo selezionato attraverso una sottomaschera
in modalità Foglio Dati, ma vorrei creare una sotto-sottomaschera per
visualizzare tutti gli autori di ogni episodio.
2) Ho una casella combinata da cui seleziono l'episodio da cui è
tratta la copertina dell'albo in questione. Ora come ora se apro la
tendina visualizzo tutti gli episodi di tutti gli albi, ma mi
piacerebbe poter vedere/inserire solo quelli che compongono l'albo
selezionato.
Spero di essere stato abbastanza chiaro.
Grazie e ciao
Giovanni


author: Sergio MAZZA

text:

Nella query di origine controllo (della casella combinata) inserisci il
criterio che ti permette di selezionare i dati:
es.
Albo = Forms!nomeForm!nomeCasellaCombinata
Ciao.
--
Sergio MAZZA


title: FAQ

author: Ugo Nanni

text:
Sareste cosě gentili da dirmi dove trovo le FAQ del presente NG?
Grazie
Ugo


title: FAQ

text:
"Ugo Nanni" <
ugo....@tiscalinet.it
> ha scritto nel messaggio
news:8e982j$icd$1...@pegasus.tiscalinet.it...
> Sareste cosě gentili da dirmi dove trovo le FAQ del presente NG?
>
> Grazie
>
> Ugo
>
>
Quě:
http://members.xoom.it/_XOOM/it_db_access/
Ciao.


title: FAQ

author: Ugo

text:
Mi potete fare avere le Faq del newsgroup?????
Grazie!!!
Ugo


title: FAQ

author: lbo dal portatile

text:
>Mi potete fare avere le Faq del newsgroup?????
se vai sul sito qui sotto puoi anche scaricartene una versione
zippata.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: arrotonda a 6

author: Zappus

text:
ho il problema seguente.
in un campo di una query devo inserire una funzione che arrotondi in base 6
un numero contenuto in un altro campo.....
cerco di spiegarmi.
quantità= 58 (funzione)=>60
quantità= 62(funzione)=>60
saluti
Luca


title: arrotonda a 6

author: Maurizio Borrelli

text:
> "Zappus" news:QoYs9.60132$%
M1.15...@twister2.libero.it
:

    E se quantita' = 1 ? => 10 ? => 60 ?
    E se quantita' = 123 ? => 120 ? => 130 ? => 160 ? => 660 ?
    Questo:
        Format$([quantità]/10, "0\0")
potrebbe bastare?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------


title: arrotonda a 6

author: Alessandro Cara

text:
Zappus ha scritto:

non ho capito   (forse la base e 60 e non 6)
123 quanto deve dare
119 quanto deve dare
241 quanto deve dare
211 quanto deve dare
210 quanto deve dare
209 quanto deve dare
--
a.cara


title: arrotonda a 6

text:
Maurizio Borrelli ha scritto:
>
> > "Zappus" news:QoYs9.60132$%
M1.15...@twister2.libero.it
:
> > ho il problema seguente.
> > in un campo di una query devo inserire una funzione che arrotondi in base
> 6
> > un numero contenuto in un altro campo.....
> > cerco di spiegarmi.
> > quantità= 58 (funzione)=>60
> > quantità= 62(funzione)=>60
>
>     E se quantita' = 1 ? => 10 ? => 60 ?
>
>     E se quantita' = 123 ? => 120 ? => 130 ? => 160 ? => 660 ?
>
>     Questo:
>
>         Format$([quantità]/10, "0\0")
>
affinita' elettive? Quando ci sposiamo?
--
a.cara


title: arrotonda a 6

text:
> "Alessandro Cara"
news:3DB456B8...@blunet.it
:
> > Maurizio Borrelli:
[...]
> affinita' elettive? Quando ci sposiamo?
    Senti Cara, non so come dirtelo... Non potremmo continuare cosi?...



title: arrotonda a 6

text:
Alessandro Cara <
al...@blunet.it
> wrote in message
3DB45600...@blunet.it...
> non ho capito   (forse la base e 60 e non 6)
> 123 quanto deve dare
deve dare 120
> 119 quanto deve dare
deve dare 120
> 241 quanto deve dare
240
> 211 quanto deve dare
deve dare 210
> 210 quanto deve dare
deve dare 210
> 209 quanto deve dare
deve dare 210
> --
> a.cara


title: arrotonda a 6

author: Fabio Chiaro

text:
"Zappus" <
luca...@libero.it
> ha scritto nel messaggio
news:QoYs9.60132$%M1.15...@twister2.libero.it...

La butto così (ma è ancora presto, devo ancora svegliarmi bene)
Dim divint as integer,resto as integer
resto= quantità mod 6
divint= quantità - resto
if resto <=3 then
    risultato = divint * 6
else
    risultato = divint * 6 + 1
end if
Può andare o devo rileggermi il post fra un paio d'ore?
Ciao, FABIO


title: arrotonda a 6

author: Antonio Biso

text:
"Maurizio Borrelli" <
maurizio...@freepass.it
> ha scritto nel messaggio
news:ap1l9p$qj768$1...@ID-52090.news.dfncis.de...
> > "Alessandro Cara"
news:3DB456B8...@blunet.it
:
> > > Maurizio Borrelli:
> [...]
> > affinita' elettive? Quando ci sposiamo?
>
>     Senti Cara, non so come dirtelo... Non potremmo continuare cosi?...
Il solito acido che se lo tira...
Antonio


title: arrotonda a 6

author: Giorgio prx

text:
"Zappus" <
luca...@libero.it
> ha scritto nel messaggio
news:QoYs9.60132$%M1.15...@twister2.libero.it...

Per arrotondare a in base  6 o a qualsiasi altra cifra
fix(Numero/base+.5)*base
Ciao Giorgio.


title: arrotonda a 6

text:
Zappus ha scritto:

allora e' la soluzione di Maurizio
--
a.cara


title: arrotonda a 6

text:
> "Alessandro Cara"
news:3DB51040...@blunet.it
:
> > Zappus:
> > > Alessandro Cara
3DB45600...@blunet.it
:
> allora e' la soluzione di Maurizio
    Sembrerebbe... Ma c'e' quel 6 o 60 che fa pensare chissa' che...
    Avesse risposto al mio post, almeno! Cosi' vedevamo come voleva
"arrotondare" (arrotolare?) il valore 1.



title: raggruppamento

author: fx

text:
innanzitutto volevo ringrziare tutti per l'aiuto di questi
giorni!!! passando al mio nuovo problema... ho una tabella che
contiene un codice, una data ed un valore (una riga per ogni
codice)... vorrei ottenere una query che mi indichi per ogni
data il valore assunto da ogni codice... insomma, qualcosa di
questo genere:
DATA     CODICE1    CODICE2     CODICE3
27/1       100        150          200
è possibile??
ciao e grazie!
--
Inviato da Virgilio
http://newsgroup.virgilio.it
Filtra gli antipatici, segnala le risposte, segue i thread, e tutto da web


title: raggruppamento

author: Alex NSB

text:
fx wrote:
> innanzitutto volevo ringrziare tutti per l'aiuto di questi
> giorni!!! passando al mio nuovo problema... ho una tabella che
> contiene un codice, una data ed un valore (una riga per ogni
> codice)... vorrei ottenere una query che mi indichi per ogni
> data il valore assunto da ogni codice... insomma, qualcosa di
> questo genere:
>
> DATA     CODICE1    CODICE2     CODICE3
> 27/1       100        150          200
Forse qualcosa tipo:
SELECT T.data, T1.valore AS Codice1, T2.valore AS Codice2,
T3.valore AS Codice3 FROM miaTabella T, miaTabella T1,
miaTabella T2, miaTabella T3 WHERE
T1.data=T.data AND T1.codice='CODICE1' AND
T2.data=T.data AND T2.codice='CODICE2' AND
T3.data=T.data AND T3.codice='CODICE3' GROUP BY T.data;
HTH.
Alessandro


title: NON TORNA

author: Fabinonet

text:
Sto utilizzando access da un po' di tempo e non riesco a capire questa cosa
: Esempio
Nella mia tabella ci sono 700 record e vengono visualizzati sia quando apro
la tabella stessa sia la sua maschera collegata.
La cosa strana e che se filtro il file in visualizzazione maschera con tutti
criteri nulli sempre mi visualizza un recor in meno  ( in questo esempio 699
record )
Sempre + strano e che se faccio lo stesso filtraggio con la query correlata
ovviamente e giustamente me li fa vedere tutti.
In pratica non capisco xchč il software mi faccia vedere un recor in meno
nella maschera : E UN BUG ! ?


title: NON TORNA

author: Emyr

text:
On Tue, 26 Feb 2002 21:37:41 +0100, "Fabinonet"
<
fab...@cia.grosseto.it
> wrote:
>Sto utilizzando access da un po' di tempo e non riesco a capire questa cosa
>: Esempio
>Nella mia tabella ci sono 700 record e vengono visualizzati sia quando apro
>la tabella stessa sia la sua maschera collegata.
>La cosa strana e che se filtro il file in visualizzazione maschera con tutti
>criteri nulli sempre mi visualizza un recor in meno  ( in questo esempio 699
>record )
>Sempre + strano e che se faccio lo stesso filtraggio con la query correlata
>ovviamente e giustamente me li fa vedere tutti.
>In pratica non capisco xchè il software mi faccia vedere un recor in meno
>nella maschera : E UN BUG ! ?
>
forse su un campo invece di avere null hai "" od uno spazio
Saluti.
Emanuele.


title: Re: immagini

author: Cinzia

text:
"ezio" <
in...@icoanet.it
> ha scritto nel messaggio
news:82Z53Z162Z21Y1...@usenet.libero.it...
>
>          Salve,
> importo le immagini in una maschera avendo impostato Su Corrente questa
> funzione:
>
> Dim strImagePath As String
>    Dim strMDBPath As String
>    Dim intSlashLoc As String
>
>    On Error Resume Next
>    'Obtain the full path of the current database or Access Project
>    strMDBPath = CurrentProject.FullName
>
>    'Find the location of the last backslash
>    intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
>
>    'Trim off the database name, leaving the path
>    'and append the name of the image file
>    strImagePath = Left(strMDBPath, intSlashLoc) & _
>    Me.Collocazione1
>
>    'Set ImageFrame to the path of the image file
>    Me.ImageFrame.Picture = strImagePath
>
> dove nella casella di testo Collocazione1 l'origine controllo č
> =[collocazione] & ".jpg"
>
>  In pratica vorrei che (visto che il nome dell'immagine č sempre
> [collocazione].jpg) inserire nella funzione al posto di Collocazione1 il
> riferimento al campo Collocazione aggiungendo l'estensione ".jpg".
> Tutto questo per eliminare la casella di testo Collocazione1 dalla
maschera.
>
> Grazie
> Ezio Pizziconi
>
Ciao Ezio
cambia questa istruzione:
 strImagePath = Left(strMDBPath, intSlashLoc) &   Me.Collocazione1
con
 strImagePath = Left(strMDBPath, intSlashLoc) & =[collocazione] & ".jpg"
saluti
Cinzia


title: Re: immagini

author: Ezio

text:
                    Il 13 Ott 2004, 16:04, "Cinzia" <
cinziapagani_...@tiscali.it
> ha
scritto:
> > > > Salve,
> > > > importo le immagini in una maschera avendo impostato Su Corrente
> questa
> > > > funzione:
> > > >
> > > > Dim strImagePath As String
> > > > Dim strMDBPath As String
> > > > Dim intSlashLoc As String
> > > >
> > > > On Error Resume Next
> > > > 'Obtain the full path of the current database or Access Project
> > > > strMDBPath = CurrentProject.FullName
> > > >
> > > > 'Find the location of the last backslash
> > > > intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
> > > >
> > > > 'Trim off the database name, leaving the path
> > > > 'and append the name of the image file
> > > > strImagePath = Left(strMDBPath, intSlashLoc) & _
> > > > Me.Collocazione1
> > > >
> > > > 'Set ImageFrame to the path of the image file
> > > > Me.ImageFrame.Picture = strImagePath
> > > >
> > > > dove nella casella di testo Collocazione1 l'origine controllo è
> > > > =[collocazione] & ".jpg"
> > > >
> > > > In pratica vorrei che (visto che il nome dell'immagine è sempre
> > > > [collocazione].jpg) inserire nella funzione al posto di
Collocazione1
> il
> > > > riferimento al campo Collocazione aggiungendo l'estensione ".jpg".
> > > > Tutto questo per eliminare la casella di testo Collocazione1 dalla
> > > maschera.
> > > >
> > > > Grazie
> > > > Ezio Pizziconi
> > > >
> > > Ciao Ezio
> > > cambia questa istruzione:
> > > strImagePath = Left(strMDBPath, intSlashLoc) & Me.Collocazione1
> > > con
> > >
> > > strImagePath = Left(strMDBPath, intSlashLoc) & =[collocazione] &
".jpg"
> > >
> > > saluti
> > > Cinzia
> > >
> > ciao Cinzia
> > la variazione da te suggerita mi dà errore di compilazione.
> > Funziona invece perfettamente :
> > strImagePath = Left(strMDBPath, intSlashLoc) & Me.[collocazione] &
".jpg"
> >
> > Grazie comunque
> >
> > Ezio
> >
> Si il copia e incolla mi ha fatto incollare un = di troppo, vedo che
> comunque hai risolto.
> Saluti
> Cinzia
>
          Un'ultimo problema.
quando non esiste una immagine corrispondente al campo [collocazione] nella
casella immagine mi rimane la jpg precedente. Come posso avere in questo
caso una immagine bianca?
Saluti
Ezio
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Re: immagini

text:
[cut]
> > > > > importo le immagini in una maschera avendo impostato Su Corrente
> > questa
> > > > > funzione:
> > > > >
> > > > > Dim strImagePath As String
> > > > > Dim strMDBPath As String
> > > > > Dim intSlashLoc As String
> > > > >
> > > > > On Error Resume Next
> > > > > 'Obtain the full path of the current database or Access Project
> > > > > strMDBPath = CurrentProject.FullName
> > > > >
> > > > > 'Find the location of the last backslash
> > > > > intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
> > > > >
> > > > > 'Trim off the database name, leaving the path
> > > > > 'and append the name of the image file
> > > > > strImagePath = Left(strMDBPath, intSlashLoc) & _
> > > > > Me.Collocazione1
> > > > >
> > > > > 'Set ImageFrame to the path of the image file
> > > > > Me.ImageFrame.Picture = strImagePath
> > > > >
> > > > > dove nella casella di testo Collocazione1 l'origine controllo č
> > > > > =[collocazione] & ".jpg"
> > > > >
> > > > > In pratica vorrei che (visto che il nome dell'immagine č sempre
> > > > > [collocazione].jpg) inserire nella funzione al posto di
> Collocazione1
> > il
> > > > > riferimento al campo Collocazione aggiungendo l'estensione ".jpg".
> > > > > Tutto questo per eliminare la casella di testo Collocazione1 dalla
> > > > maschera.
> > > > >
> > > strImagePath = Left(strMDBPath, intSlashLoc) & Me.[collocazione] &
> ".jpg"
> > >
>           Un'ultimo problema.
> quando non esiste una immagine corrispondente al campo [collocazione]
nella
> casella immagine mi rimane la jpg precedente. Come posso avere in questo
> caso una immagine bianca?
>
> Saluti
> Ezio
>
Ciao Ezio,
prima dell'assegnamento alla Picture di strImagePath controlla che il file
esista altrimenti assegnagli vbNull (prova! non so se funziona)
if len(Dir(strImagePath)) > 0 then
    Me.ImageFrame.Picture = strImagePath
else
    me.ImageFrame.Picture = vbNull
    'Alternativamente puoi assegnargli il percorso di una immagine di
default
end if
saluti
Cinzia


title: Re: immagini

text:
[cut]
> >
>           Succede una cosa strana!!
>
> Tutto sembra funzionare normalmente ma non funziona più alla riapertura
del
> db.
>
> Affinchè mi ridia l'immagine nulla devo fargli ricaricare l'immagine
bianca
> di default (che peraltro non usa perchè finchè il bd è aperto quando non
c'è
> immagine corrispondente al campo [collocazione] mi restituisce una
immagine
> trasparente).
> Quindi alla riapertura del bd la funzione non mi restituisce più il campo
> nullo.
>
> Ti riscrivo la funzione attuale:
>
> Dim strImagePath As String
>    Dim strMDBPath As String
>    Dim intSlashLoc As String
>
>    On Error Resume Next
>    'Obtain the full path of the current database or Access Project
>    strMDBPath = CurrentProject.FullName
>
>    'Find the location of the last backslash
>    intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
>
>    If Len(Dir(strImagePath)) > 0 Then
>     Me.ImageFrame.Picture = strImagePath
> Else
>     Me.ImageFrame.Picture = vbNull
>     End If
>
>    'Trim off the database name, leaving the path
>    'and append the name of the image file
>    strImagePath = Left(strMDBPath, intSlashLoc) & Me.[Codice rivenditore]
&
> ".jpg"
>
>    'Set ImageFrame to the path of the image file
>    Me.ImageFrame.Picture = strImagePath
>
Temo di non aver compreso il problema,
finchè scorri la maschera aperta avanti e indietro ti si caricano
normalmente le immagini se ci sono o l'immagine vuota quando non c'è il
file.
Se però chiudi e riapri la maschera non ho capito cosa succede... prova a
rispiegarmelo.
Ho notato una cosa sbagliata nel codice  te lo riscrivo corretto:
 Dim strImagePath As String
    Dim strMDBPath As String
   Dim intSlashLoc As String
   On Error Resume Next
   'Obtain the full path of the current database or Access Project
    strMDBPath = CurrentProject.FullName
    'Find the location of the last backslash
    intSlashLoc = InStrRev(strMDBPath, "\", Len(strMDBPath))
    'Trim off the database name, leaving the path
   'and append the name of the image file
   strImagePath = Left(strMDBPath, intSlashLoc) & Me.[Codice rivenditore] &
".jpg"
  'Questo è il posto corretto dove mettere l'istruzione seguente....
  If Len(Dir(strImagePath)) > 0 Then
            Me.ImageFrame.Picture = strImagePath
    Else
            Me.ImageFrame.Picture = vbNull
     End If
Saluti
Cinzia


title: Re: immagini

author: ezio

text:
                    Il 13 Ott 2004, 20:46, "Cinzia" <
cinziapagani_...@tiscali.it
> ha
scritto:

          Capisco che sia una cosa strana e cerco di essere più chiaro.
L'istruzione funziona solo se la inserisco nella posizione che ho usato io
(non funziona più se la sposto dove mi suggerisci tu), e se vado a caricare
nelle proprietà della casella ImageFrame una immagine qualsiasi. In questo
caso scorrendo i record, la funzione mi restituisce una immagine nulla
(trasparente) nel caso non ci sia una immagine corrispondente al campo
[codice rivenditore]. Tutto questo anche chiudendo e riaprendo la maschera.
Non funziona più quando chiudo e riapro il db. L'unico modo per farla
rifunzionare è andare a fargli ricaricare una immagine qualsiasi (è
sufficiente anche solo cercare di farlo) nel campo immagine delle proprietà
di ImageFrame.
Bo!!



title: Re: immagini

text:
                    Il 13 Ott 2004, 18:54, "Cinzia" <
cinziapagani_...@tiscali.it
> ha
scritto:

          Grazie mille funziona
ciao, Ezio



title: Help! Problemi con query contenente IF

text:
Non riesco a creare una query che contenga un IF.
Esempio:
Tabella:
CITTA [Char]
Campi
Nome [Char]
Descrizione [Memo] (Contiene una o più righe di teso)
Non riesco a creare una quey che mi restituisca solo la prima riga contenuta
in Descrizione!!!!!!!!!!!
SELECT Nome, Mid(Descrizione, 1, Instr(Descrizione, Chr(13)) AS Descr FROM
CITTA
Funzion solo se descrizione contiene 2 o + righe di testo.
Nel caso ci sia una sola riga di testo chr non termina con Chr(13) viene
resituita una stringa vuota.
Soluzione utilizzare un IF:
If  Instr(Descrizione, Chr(13)) = 0 then
    Descrizione as Descr
Else
    Mid(Descrizione, 1, Instr(Descrizione, Chr(13)) AS Descr
End if
Come faccio a mettere questo in una quey????
Aiuto!!!!
Grazie 1000
xandre72


title: Help! Problemi con query contenente IF

author: Luciano (DOC)

text:
"xandre72" <xandr...@SPAMhotmail.com> ha scritto nel messaggio
news:4uMC8.43541$zW3.5...@news1.tin.it...
> Non riesco a creare una query che contenga un IF.
Devi usare IIF non IF. Guarda sull'help.
Saluti.
Luciano


title: Help! Problemi con query contenente IF

author: Carlo Costarella

text:
"xandre72" <xandr...@SPAMhotmail.com> ha scritto nel messaggio
news:4uMC8.43541$zW3.5...@news1.tin.it...

Il tuo quesito non mi è chiaro.
Se usi una quesry del tipo:
SELECT tblOrdini.IDOrdine, tblOrdini.Descrizione
FROM tblOrdini
WHERE (((tblOrdini.Descrizione) Like "*" & "TuaParolaDaRicercare" & "*"));
funziona benissimo con o senza ritorni a capo.
Se invece vuoi usare l'IF puoi crearti una funzione che restituisce quello
che cerchi e usi l'IF in questa funzione. Altra possibilità è usare l'IIF
nella query che accetta una Condizione Vera,Cosa fare se vera e Cosa Fare se
Falsa:   IIF([MioControllo] = "pippo"; "QuelloCheVoglio";IlContrario")
Ciao, Carlo


title: usare access come antifurto

author: luigi onofrio

text:
ho la sensazione che si possa fare, ma non so come.
qualcuno ne sa niente? magari anche su notizie riguardanti l'interfaccia
che colleghi il PC a sensori esterni.
luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: usare access come antifurto

author: MA

text:
luigi onofrio wrote:
C'ho provato anche io, ma si sono fregati lo stesso il motorino.
Domani lo provo come casco e faccio un crash test!!! Poi vi faccio sapere
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: usare access come antifurto

author: Michele S

text:
>
> C'ho provato anche io, ma si sono fregati lo stesso il motorino.
> Domani lo provo come casco e faccio un crash test!!! Poi vi faccio sapere
>
Evidentemente hai configurato male la catena!
;-)


title: [form] id numerico in una combo

author: massimo

text:
Questa dovrebbe essere piuttosto fattibile e mi pare pure una strafaq, ma
su google.groups ottengo troppi falsi positivi.
Ho una tipica combo con due colonne di cui una associata corrispondente a
un id. Vorrei che l'utente, oltre a poter selezionare una voce tra quelle
presenti in elenco, potesse anche inserire direttamente l'ID numerico senza
generare l'errore non in elenco.
Su una ipotetica combo di nome Elenco avevo provato cosė...
Private Sub Elenco_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_Elenco_NotInList
If IsNumeric(NewData) Then Me!Elenco = NewData
Exit_Elenco_NotInList:
    Exit Sub
Err_Elenco_NotInList:
    Resume Exit_facoltā_NotInList
End Sub


title: [form] id numerico in una combo

author: Roberto da casa

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns93675CC...@130.251.200.249...
> Questa dovrebbe essere piuttosto fattibile e mi pare pure una strafaq, ma
> su google.groups ottengo troppi falsi positivi.
>
> Ho una tipica combo con due colonne di cui una associata corrispondente a
> un id. Vorrei che l'utente, oltre a poter selezionare una voce tra quelle
> presenti in elenco, potesse anche inserire direttamente l'ID numerico
senza
> generare l'errore non in elenco.
>
> Su una ipotetica combo di nome Elenco avevo provato così...
> Private Sub Elenco_NotInList(NewData As String, Response As Integer)
> On Error GoTo Err_Elenco_NotInList
> If IsNumeric(NewData) Then Me!Elenco = NewData
> Exit_Elenco_NotInList:
>     Exit Sub
> Err_Elenco_NotInList:
>     Resume Exit_facoltà_NotInList
> End Sub
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ
intitolata "Si può aggiungere un record alla tabella che è origine riga di
una casella combinata senza usare una maschera?"; penso faccia al caso tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: [form] id numerico in una combo

author: Sergio MAZZA

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns93675CC...@130.251.200.249...
> Questa dovrebbe essere piuttosto fattibile e mi pare pure una strafaq, ma
> su google.groups ottengo troppi falsi positivi.
>
> Ho una tipica combo con due colonne di cui una associata corrispondente a
> un id. Vorrei che l'utente, oltre a poter selezionare una voce tra quelle
> presenti in elenco, potesse anche inserire direttamente l'ID numerico
senza
> generare l'errore non in elenco.
>
> Su una ipotetica combo di nome Elenco avevo provato così...
> Private Sub Elenco_NotInList(NewData As String, Response As Integer)
> On Error GoTo Err_Elenco_NotInList
> If IsNumeric(NewData) Then Me!Elenco = NewData
> Exit_Elenco_NotInList:
>     Exit Sub
> Err_Elenco_NotInList:
>     Resume Exit_facoltà_NotInList
> End Sub
Prova a modificare questo esempio:
'-----------
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK
Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
    Me!Elenco.RowSource = Me!Elenco.RowSource & ";" & NewData
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano
le modifiche.
    Response = acDataErrContinue
    Me!Elenco.Undo
End If
considera che i valori sono separati dal punto e virgola, comunque nell'help
alla voce "Evento NonInElenco" trovi altre informazioni...
Ciao.
--
Sergio MAZZA


title: [form] id numerico in una combo

text:
On 24 apr 2003, massimo <n...@send.invalid> wrote in
news:Xns93675CC...@130.251.200.249

> Ho una tipica combo con due colonne di cui una associata
> corrispondente a un id. Vorrei che l'utente, oltre a poter
> selezionare una voce tra quelle presenti in elenco, potesse
> anche inserire direttamente l'ID numerico senza generare
> l'errore non in elenco.

ehm, rileggendomi mi sono accorto di aver generato un equivoco. La
mia intenzione non è quella di inserire un record non in elenco
nell'origine dati della combo, ma quella di permettere all'utente di
scrivere a suo gradimento "10" piuttosto che "playmaker". Se l'utente
scrive "10", anche con la soluzione da me prospettata, continua a
uscire l'errore non in elenco. Se l'utente è in grado di ricordarsi
l'id (e questo succede soprattutto per le voci usate più di
frequente) può velocizzare il caricamento dell'informazione senza
ricorrere al dropdown della casella combinata e senza cercare lettere
sulla tastiera.
In ogni caso, darò un'occhiata all'esempio suggeritomi da
BobbyatHome :-)
> Su una ipotetica combo di nome Elenco avevo provato così...
> Private Sub Elenco_NotInList(NewData As String, Response As
> Integer) On Error GoTo Err_Elenco_NotInList
> If IsNumeric(NewData) Then Me!Elenco = NewData
> Exit_Elenco_NotInList:
>     Exit Sub
> Err_Elenco_NotInList:
>     Resume Exit_facoltà_NotInList
> End Sub


title: Usare i valori di una list box per filtrare la stampa di report

author: boomerang

text:
Salve a tutti, seguo da tempo il newsgroup e sono un appassionato di
Access anche se autodidatta, e devo dire che la vostra disponibilità è
sempre magnifica, siete un punto di riferimento per tutti.
Vengo al problema:
Ho ritrovato un applicativo chiamato FORMS_LISTBOX_MOVEITEMS che
creava una maschera con due listbox (lst1 e lst2), la prima l'alimento
con un elenco a 3 campi di una tabelle (IDATLETA,Cognome,Nome). gli
atleti scelti passano alla seconda listbox lst2 dove ci sono sempre 3
colonne di cui l'associata è la prima (IDATLETA).
come posso fare per filtrare i report basati su di una query che
contiene IDATLETA?
se nel campo criteri della query scrivo  =[forms]![MOVELIST]![lst2]
non mi seleziona niente e se specifico la colonna .Column(1) mi dice
che la funzione non è valida.
come posso fare a stampare solo i report dei cognomi contenuti nella
listbox 2?
incollo parte del codice di seguito:
Private Sub Form_Load()
   Dim rs As DAO.Recordset
   Set rs = CurrentDb.OpenRecordset("SELECT * FROM Test", dbReadOnly)
   Do Until rs.EOF
      Me.lst1.AddItem rs!IDATLETA &";"& rs!Cognome & ";" & rs!Nome
      rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
End Sub
Private Sub cmdMoveAllFrom_Click()
    Call MoveAllFromTo(Me.lst2, Me.lst1)
End Sub
Private Sub cmdMoveAllTo_Click()
    Call MoveAllFromTo(Me.lst1, Me.lst2)
End Sub
Private Sub cmdMoveTo_Click()
    Call MoveOneFromTo(Me.lst1, Me.lst2)
End Sub
Private Sub cmdMoveFrom_Click()
    Call MoveOneFromTo(Me.lst2, Me.lst1)
End Sub
Private Sub cmdUp_Click()
    Call MoveItem(Me.lst1, up)
End Sub
ecc  eccc


author: mansportivo

text:
boomerang ha scritto:
> Salve a tutti, seguo da tempo il newsgroup e sono un appassionato di
> Access anche se autodidatta, e devo dire che la vostra disponibilit� �
> sempre magnifica, siete un punto di riferimento per tutti.
> Vengo al problema:
> Ho ritrovato un applicativo chiamato FORMS_LISTBOX_MOVEITEMS che
> creava una maschera con due listbox (lst1 e lst2), la prima l'alimento
> con un elenco a 3 campi di una tabelle (IDATLETA,Cognome,Nome). gli
> atleti scelti passano alla seconda listbox lst2 dove ci sono sempre 3
> colonne di cui l'associata � la prima (IDATLETA).
> come posso fare per filtrare i report basati su di una query che
> contiene IDATLETA?
> se nel campo criteri della query scrivo  =[forms]![MOVELIST]![lst2]
> non mi seleziona niente e se specifico la colonna .Column(1) mi dice
> che la funzione non � valida.

> Private Sub cmdMoveAllFrom_Click()
>     Call MoveAllFromTo(Me.lst2, Me.lst1)
> End Sub
> Private Sub cmdMoveAllTo_Click()
>     Call MoveAllFromTo(Me.lst1, Me.lst2)
> End Sub
> Private Sub cmdMoveTo_Click()
>     Call MoveOneFromTo(Me.lst1, Me.lst2)
> End Sub
> Private Sub cmdMoveFrom_Click()
>     Call MoveOneFromTo(Me.lst2, Me.lst1)
> End Sub
> Private Sub cmdUp_Click()
>     Call MoveItem(Me.lst1, up)
> End Sub
> ecc  eccc
se non ricordo male avevo risolto cos�:
ho inserito un campo ulteriore che aggiornavo con
[forms]![MOVELIST]![lst2].column(1) dopo aggiornamento e poi usavo il
nuovo campo come criterio nella query
prova a fare cos�, dovrebbe funzionare
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Karl Donaubauer

text:
boomerang wrote:
>...
> Ho ritrovato un applicativo chiamato FORMS_LISTBOX_MOVEITEMS che
> creava una maschera con due listbox (lst1 e lst2), la prima
> l'alimento con un elenco a 3 campi di una tabelle
> (IDATLETA,Cognome,Nome). gli atleti scelti passano alla seconda
> listbox lst2 dove ci sono sempre 3 colonne di cui l'associata � la
> prima (IDATLETA).
> come posso fare per filtrare i report basati su di una query che
> contiene IDATLETA?
> se nel campo criteri della query scrivo  =[forms]![MOVELIST]![lst2]
> non mi seleziona niente e se specifico la colonna .Column(1) mi dice
> che la funzione non � valida.
> come posso fare a stampare solo i report dei cognomi contenuti nella
> listbox 2?
> ...
Se ti capisco bene una via � di ciclare le righe della casella di
riepilogo lst2, abbinare i valori in una stringa e poi riscrivere
l'SQL della query che usi per il report. Esempio:
Dim strIN As String
Dim i As Long
For i = 0 To Me!lst2.ListCount - 1
    strIN = strIN & Me!lst2.Column(0, i) & ","
Next i
If strIN <> "" Then
    strIN = Left(strIN, Len(strIN) - 1)
    CurrentDb.QueryDefs("TuaQuery").SQL = _
        "SELECT * FROM Tabella " & _
        " WHERE IDATLETA IN(" & strIN & ");"
End If
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 18 Set, 09:02, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Se ti capisco bene una via è di ciclare le righe della casella di
> riepilogo lst2, abbinare i valori in una stringa e poi riscrivere
> l'SQL della query che usi per il report. Esempio:
>
> Dim strIN As String
> Dim i As Long
>
> For i = 0 To Me!lst2.ListCount - 1
>     strIN = strIN & Me!lst2.Column(0, i) & ","
> Next i
>
> If strIN <> "" Then
>
>     strIN = Left(strIN, Len(strIN) - 1)
>
>     CurrentDb.QueryDefs("TuaQuery").SQL = _
>         "SELECT * FROM Tabella " & _
>         " WHERE IDATLETA IN(" & strIN & ");"
>
> End If
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grazie Karl, ora provo a vedere se va,
in effetti una volta selezionati tutti gli atleti interessati
passandoli alla casella di riepilogo lst2
dovrei farel'SQL della query che uso per creare i report nella quale
devo filtrare tra tutti gli atleti solo quelli presenti nella lst2
per poi stampare un singolo report per ogni atleta.
Questo codice lo metto sulla maschera e provo.
Grazie ancora Gigi


text:
OK l'ho provato proprio ora e funziona!!!!!!!!!
Grazie ancora a Karl e a tutti voi "Guru" del newsgroup
per la vostra competenza e disponibilità.
Gigi


title: volendo scrivere codice per accedere ai dati ...

author: Giuseppe

text:
... e poiché sto cominciando a farlo partendo da ZERO, cosa mi consigliate
DAO o ADO?
--
----------------
saluti
Giuseppe


author: ALESSANDRO Baraldi

text:
"Giuseppe" <
gcondoLev...@libero.it
> ha scritto nel messaggio
news:8GUkb.53585$e6.19...@twister2.libero.it...
> ... e poiché sto cominciando a farlo partendo da ZERO, cosa mi consigliate
> DAO o ADO?
>
> saluti
> Giuseppe
>
Cosa usi....?
Access solamente....?
Se non usi Server SQL spassionatamente DAO
per JET(Motore di Access) è imbattibile.
Se invece ti orienti verso Server SQL meglio
ADO se usi ADP, se invece usi sempre Access
libero con connessione ODBC sempre DAO.
La mia ultima affermazione è passibile di parolacce
ma di fatto è solo opinione personale.
@Alex.


text:
> Cosa usi....?
per adesso solo access, ma in futuro, quando riesco a capire come funziona,
vorrei passare a MSDE e quindi SQL Server
> Access solamente....?
> Se non usi Server SQL spassionatamente DAO
> per JET(Motore di Access) è imbattibile.
> Se invece ti orienti verso Server SQL meglio
> ADO se usi ADP, se invece usi sempre Access
> libero con connessione ODBC sempre DAO.
> La mia ultima affermazione è passibile di parolacce
> ma di fatto è solo opinione personale.
Grazie Alex sono proprio le opiniono personali che vado cercando. Quelle che
nascono dal cuore...
>
> @Alex.
>
>


text:
> Se non usi Server SQL spassionatamente DAO per JET(Motore di Access) è
imbattibile.
> Se invece ti orienti verso Server SQL meglio ADO se usi ADP,
> se invece usi sempre Access libero con connessione ODBC sempre DAO.
ancora devo capire le differenze tra queste varie modalità operative. hai
qualche link utile che mi dia qualche dritta?


text:
"Giuseppe" <
gcondoLev...@libero.it
> ha scritto nel messaggio
news:RXUkb.53643$e6.19...@twister2.libero.it...

In generale se cerchi applicazioni su Access trovi solo l'utilizzo di DAO,
come sul sitocomune
www.sitocomune.com
Se invece vai su siti di VisualBasic come il Sitocomune di VB cercalo su
google.... trovi esempi e spiegazioni sulle differense e test di rapidità.
P.S. MySQL lascialo perdere, vai diretto a MSDE se vuoi imparare...!
@Alex.


text: grazie per le dritte, Alex


title: query: errore sintassi proposizione FROM

text:
Un saluto a tutti
La query scritta sotto funziona perfettamente in Access 2003 ma se provo con
A97 mi segnala: errore di sintassi nella proposizione FROM.
Non sono in grado di capire dove sta l'errore e se si può correggere.
Ringrazio in anticipo chiunque vorrà aiutarmi
Gabriele

SELECT Tabella1.Campo1, Tabella1.DataCarico, Tabella1.IDUbicaz,
Tabella1.Reparto
FROM Tabella1 INNER JOIN (SELECT Campo1, Max(DataCarico) AS MaxDiDataCarico,
LAST(IDUbicaz) AS LastDiIDUbicaz
FROM (SELECT TOP 100 PERCENT Campo1, DataCarico, IDUbicaz
FROM Tabella1
ORDER BY Campo1, DataCarico, IDUbicaz) AS Tx
GROUP BY Campo1). AS Ty ON Tabella1.IDUbicaz = Ty.LastDiIDUbicaz;


text:
Salve,

Garom100 ha scritto:
> La query scritta sotto funziona perfettamente in Access 2003 ma se provo con
> A97 mi segnala: errore di sintassi nella proposizione FROM.
> ...
> SELECT Tabella1.Campo1, Tabella1.DataCarico, Tabella1.IDUbicaz,
> Tabella1.Reparto
> FROM Tabella1 INNER JOIN (SELECT Campo1, Max(DataCarico) AS MaxDiDataCarico,
> LAST(IDUbicaz) AS LastDiIDUbicaz
> FROM (SELECT TOP 100 PERCENT Campo1, DataCarico, IDUbicaz
> FROM Tabella1
> ORDER BY Campo1, DataCarico, IDUbicaz) AS Tx
> GROUP BY Campo1). AS Ty ON Tabella1.IDUbicaz = Ty.LastDiIDUbicaz;
>

In A97 prova di cingere la sottoquery con parentesi quadre invece di tonde:

FROM Tabella1 INNER JOIN [QuiTuttaLaSottoQuery]. AS Ty

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

Access Lobby:
http://www.AccessDevelopers.org


text:

Grazie Karl per l'interessamento e la risposta.
Ho provato ma purtroppo in A97 mi da lo stesso errore.
E' un peccato perché mi avrebbe risolto molti problemi.
Un saluto, Gabriele


title: Macro che non funziona da Codice VBA

author: Fabio

text:
Buonasera a tutti!
Il mio problema è questo: ho creato una macro la quale fà una serie di
operazioni. Ora se io eseguo questa macro dal menu : Strumenti/Macro/Esegui
Macro + nome della macro.....tutto funziona alla perfezione.
Vorrei però che un utente lanciasse la macro alla pressione di un tasto
della mia maschera.....ma quando tento di lanciarla all'evento click del
bottone oppure in corrispondenza del codice "Application.RunCommand
(acCmdRunMacro)" che viene eseguito quando faccio clic sul bottone si genera
un errore che dice "errore riservato".
Cosa può succedere???? Dove sbaglio???

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


title: Macro che non funziona da Codice VBA

text:
Fabio wrote:
> Buonasera a tutti!
> Il mio problema è questo: ho creato una macro la quale fà una serie di
> operazioni. Ora se io eseguo questa macro dal menu :
> Strumenti/Macro/Esegui Macro + nome della macro.....tutto funziona
> alla perfezione.
> Vorrei però che un utente lanciasse la macro alla pressione di un
> tasto della mia maschera.....ma quando tento di lanciarla all'evento
> click del bottone oppure in corrispondenza del codice
> "Application.RunCommand (acCmdRunMacro)" che viene eseguito quando
> faccio clic sul bottone si genera un errore che dice "errore
> riservato".
> Cosa può succedere???? Dove sbaglio???
>
Docmd.runmacro "Tuamacro"
>
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Info:
www.donkarl.com/it


title: Macro che non funziona da Codice VBA

text:
                    Il 09 Giu 2005, 15:35, "MA" <
mas...@massimilianoamendola.it
> ha scritto:
> Docmd.runmacro "Tuamacro"
Avevo già provato ma anche così la macro s'interrompe e mi dà errore
riservato.
La macro funziona solo se la faccio partire all'evento click del pulsante di
un'altra maschera che mi viene da supporre non è in qualche modo coinvolta
dall'azione della macro e non mi dà problemi!



title: Macro che non funziona da Codice VBA

text:
Fabio wrote:
>                     Il 09 Giu 2005, 15:35, "MA"
> <
mas...@massimilianoamendola.it
> ha scritto:
>> Docmd.runmacro "Tuamacro"
>
> Avevo già provato ma anche così la macro s'interrompe e mi dà errore
> riservato.
> La macro funziona solo se la faccio partire all'evento click del
> pulsante di
> un'altra maschera che mi viene da supporre non è in qualche modo
> coinvolta
> dall'azione della macro e non mi dà problemi!
Beh a questo punto bisogna capire cosa fa la tua macro.



title: due database da unire

author: Stefano Zen

text:
salve a tutti
il mio problema e':
ho 2 database identici, ma con dati di clienti diversi, ovviamente
devo farne uno solo.
ho provato col copia/incolla ma niente
ho seguito anche la procedure di importazione, ma mi crea una tabella e la
chiama " nometabella1".
io invece ho bisogno di copiare tutti irecord di una tabella nell'altra.
ripeto ancora che le due tabelle , come campi, sono identiche.
grazie 1000
stefano


title: due database da unire

author: Roberto-Angelo azzurro

text:
"Stefano Zen" <
stefa...@tin.it
> ha scritto nel messaggio
news:0sZt8.16267$vF6.5...@news2.tin.it...

Non puoi fare "taglia e incolla", bensi fare delle query di accodamento.
Ciao.


title: problemi con progetto

author: Marco

text:
Ciao a tutti, ho il seguente problema: ho sempre lavorato con A97 (BE+FE) e
ho deciso di convertire i miei lavori in A2002 (XP) in modalità progetto con
SQL SERVER per renderli più performanti. Una volta terminato il lavoro, le
tabelle (su SQL) le vedo come se fossero locali e non collegate (e fin qui
mi sta bene); il problema è che sono abituato a lavorare con tbl temporanee
sul FE per caricare, ad esempio, i dati del corpo di un ordine prima della
conferma definitiva che aggiorna il db. sSolo che se creo una nuova tabella,
questo me la crea sul SQL e non in locale alla sessione! Come posso fare per
ritornare ad una situazione simile a quella precedente (FE con tbl in locale
e SQL SERVER sul server)? Qualcuno utilizza il mio metodo (tbl locali) per
memorizzare i dati prima dell'aggiornamento o, in alternativa, quale altro
metodo usate?
Grazie a chi mi risponderà!!!
Ciao
Marco


title: problemi con progetto

author: Sib

text:
"Marco" <
marb...@libero.it
> ha scritto nel messaggio

Personalmente sono contrario all'uso di tabelle temporanee, soprattutto per
quel che riguarda la conferma dati, tanto se poi i dati non vanno bene si
possono cancellare.
Comunque puoi creare delle tabelle permanenti da usare solo per i dati
temporanei, delle tabelle di transito insomma.
Sib


title: problemi con progetto

text:
> Comunque puoi creare delle tabelle permanenti da usare solo per i dati
> temporanei, delle tabelle di transito insomma.
Questo č vero se sono in monoutenza ma in multiutenza gestire chi ha
inserito cosa diventa piů complicato (soprattutto perchč la tbl tmp la uso
solo per la parte molti di una relazione, quindi di fatto senza chiave
esterna). L'uso delle tbl temporanee sul FE diverse dal DB "ufficiale" sul
BE agevola molto il lavoro di inserimento e minimizza i locking (che si
riducono solo al momento dell'esecuzione del codice di accodamento).
Altrimenti, un metodo efficiente per gestire inserimenti 1-m quale puň
essere? Strutture in memoria? E come faccio a mostrare a chi sta inserendo
cosa ha inserito fino a quel momento?
Ciao
Marco


title: problemi con progetto

author: warp

text:
"Marco"
> > Comunque puoi creare delle tabelle permanenti da usare solo per i dati
> > temporanei, delle tabelle di transito insomma.
> Questo è vero se sono in monoutenza ma in multiutenza gestire chi ha
> inserito cosa diventa più complicato (soprattutto perchè la tbl tmp la uso
> solo per la parte molti di una relazione, quindi di fatto senza chiave
> esterna). L'uso delle tbl temporanee sul FE diverse dal DB "ufficiale" sul
> BE agevola molto il lavoro di inserimento e minimizza i locking
Dipende anche da come hai creato gli indici sulle tabelle: più ce ne sono (a
partire da quelli multicampo Rushmore) maggiori sono i Lock in multiutenza.
 (che si
> riducono solo al momento dell'esecuzione del codice di accodamento).
Anch'io non vado pazzo per questa soluzione, però molto usata quindi
pienamente legittima ;-)
> Altrimenti, un metodo efficiente per gestire inserimenti 1-m quale può
> essere? Strutture in memoria? E come faccio a mostrare a chi sta inserendo
> cosa ha inserito fino a quel momento?
Boh, qui non ti seguo...
Ciao: warp


title: problemi con progetto

text:
"Marco" <
marb...@libero.it
> ha scritto nel messaggio
> > Comunque puoi creare delle tabelle permanenti da usare solo per i dati
> > temporanei, delle tabelle di transito insomma.
>
> Questo è vero se sono in monoutenza ma in multiutenza gestire chi ha
> inserito cosa diventa più complicato (soprattutto perchè la tbl tmp la uso
> solo per la parte molti di una relazione, quindi di fatto senza chiave
> esterna). L'uso delle tbl temporanee sul FE diverse dal DB "ufficiale" sul
> BE agevola molto il lavoro di inserimento e minimizza i locking (che si
> riducono solo al momento dell'esecuzione del codice di accodamento).
Se conosci ADO, in Access XP puoi creare un recordset locale salvandolo come
file su disco e poi  usarlo per aggiornare una tabella remota.
Il comando e' qualcosa del tipo
rst.save "Nome", adPersistXML
Ma sono certo di stare facendo qualche errore di sintassi.
Sib


title: problemi con progetto

text:
> Se conosci ADO, in Access XP puoi creare un recordset locale salvandolo
come
> file su disco e poi  usarlo per aggiornare una tabella remota.
> Il comando e' qualcosa del tipo
> rst.save "Nome", adPersistXML
> Ma sono certo di stare facendo qualche errore di sintassi.
ti ringrazio, proverň questa soluzione anche se cosě di pelle non mi
entusiasma. Ti chiedo una cosa: quando scrivi una applicazione da usare in
multiutenza, come gestisci gli inserimenti (o le modifiche) in una relazione
1-m? Voglio dire, se io entro in modifica direttamente sulle tabelle
(diciamo attraverso una maschera con sottomaschera) e mentre lavoro vado a
prendere il caffč, in bagno ecc. blocco il lavoro di chiunque altro su quel
record (o sulla pagina). Lo stesso vale, anche se in misura minore, per
quanto riguarda l'inserimento, senza contare tutta una serie di controlli
piů sofisticati che posso fare su caselle "unbound" rispetto a quelli che
posso fare se inserisco direttamente in tbl. Mi piacerebbe capire come
gestite la multiutenza senza tbl tmp senza contemporaneamente  bloccare il
lavoro di tutti gli utenti -1.
Ciao
Marco


title: problemi con progetto

text:
"Marco" <
marb...@libero.it
> ha scritto nel messaggio
CUT
> Ti chiedo una cosa: quando scrivi una applicazione da usare in
> multiutenza, come gestisci gli inserimenti (o le modifiche) in una
relazione
> 1-m? Voglio dire, se io entro in modifica direttamente sulle tabelle
> (diciamo attraverso una maschera con sottomaschera) e mentre lavoro vado a
> prendere il caffè, in bagno ecc. blocco il lavoro di chiunque altro su
quel
> record (o sulla pagina). Lo stesso vale, anche se in misura minore, per
> quanto riguarda l'inserimento, senza contare tutta una serie di controlli
> più sofisticati che posso fare su caselle "unbound" rispetto a quelli che
> posso fare se inserisco direttamente in tbl. Mi piacerebbe capire come
> gestite la multiutenza senza tbl tmp senza contemporaneamente  bloccare il
> lavoro di tutti gli utenti -1.
In questo hai perfettamente ragione.
Questo problema, tuttavia, puo' essere superato solo sfruttando pesantemente
la programmazione (DAO o ADO che sia, ma soprattutto ADO) in quanto, dato
che lavori direttamente sulla base dati, in qualche modo Access li deve pur
gestire sti dati.
Teniamo presente comunque che questo non e' tanto un problema di Access
quanto della gestione dei database in generale.
Solo con maschere slegate che compiono l'aggiornamento in batch puoi
migliorare la cosa, ma ti faccio notare che comunque non puoi superare il
problema in se. anche se gestisci la cosa cosi' come l'ho descritta, nel
momento in cui un utente va a salvare va a sovrascrivere le eventuali
modifiche di un utente che abbia salvato poco prima. In tal caso c'e' da
chiedersi se non sia il caso di mantenere bloccato il record fino alla fine
delle modifiche addestrando gli utenti a non lasciare in pausa un record
andandosi a prendere un caffe'. Ovviamente a meno che gli utenti non siano
decine e decine.
Sib


title: Controllo Valore di un campo della Form

text:
Premetto che sono alle primissime armi con Access.
Ho realizzato due maschere una per inserire i Movimenti Banca ed una per
inserire i Movimenti Cassa.
Su Movimenti Banca vorrei inserire un controllo che impedisca di inserire un
importo maggiore del saldo di cassa.
Ho realizzato la query sulla tabella dei Movimenti cassa ma non riesco a
portarla dentro alla maschera dei Movimenti di Banca.
Qualcuno mi puņ aiutare?
Grazie.

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