title: Distribuzione applicativo

author: RobertoA

text:

Bene, desidero seguire il tuo consiglio ed evitare Access
Ovviamente do' per scontato che alla fine dovra' essere un sistema
client/server, stampe programmabili anche dall'utente, db accessibile anche
da applicazioni esterne via odbc, backup dati automatico ed 'a caldo',
eventuale replica verso siti remoti, semplice ampliamento del sistema di
base con ulteriori tabelle/query/schermate/stampe, vasta comunita'  di
supporto per veloce soluzione dei problemi banali, ecc
Cosa posso usare per fare un 'gestione magazzino' ?
Ciao
RobertoA


title: Distribuzione applicativo

author: Pablitomf

text:
"Giovanni" <
artig...@deejaymail.it
> ha scritto nel messaggio
news:bDXqj.22466$Xg7....@tornado.fastwebnet.it...
> Salve a tutti,
>
> Vi propongo un quesito:
> Secondo Voi qual'č il miglior modo per distribuire a piů negozi un
> applicativo creato in Access (ad esempio Gestione Magazzino").
> Caratteristiche essenziali:
> Funzionamento dell'applicativo anche su pc su cui non č installato access
Access Runtime...
> Evitare di far creare copie del prodotto
uno dei metodi e ripeto "uno" č legare l'uso dell'applicativo al seriale
dell'HD (da codice VBA)
> Evitare di far accedere l'utente alle tabelle o altro.
Da interno o esterno?
INTERNO:
Il runtime basta...ma solo per user entry level
con odbc cmq volendo si puň...
ESTERNO:
puoi usare password di Back Office...



title: sitassi per il percorso

author: Armando

text:
salve a tutti
vorrei aggiornare da evento dopo aggiornamento di una combo nella maschera1
controllo in sottomaschera di Maschera2
Grazie


title: sitassi per il percorso

author: Karl Donaubauer

text:
Armando wrote:
> vorrei aggiornare da evento dopo aggiornamento di una combo nella
> maschera1
> controllo in sottomaschera di Maschera2
Forms!Maschera2.Form!Sottomaschera
Vedi anche:
 Riferimento ad una sottomaschera/sottoreport

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


title: sitassi per il percorso

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:9cju0t...@mid.individual.net...
> Armando wrote:
>> vorrei aggiornare da evento dopo aggiornamento di una combo nella
>> maschera1
>> controllo in sottomaschera di Maschera2
>
> Forms!Maschera2.Form!Sottomaschera
>
> Vedi anche:
>
> Riferimento ad una sottomaschera/sottoreport
>
http://www.donkarl.com/it?FAQ4.2
grazie Karl
ho trovato questo che mi funziona
    Forms!Maschera2!Sottomaschera2.Form!Controllo.Requery


title: sitassi per il percorso

text:
Armando wrote:
> ...
> ho trovato questo che mi funziona
>
>    Forms!Maschera2!Sottomaschera2.Form!Controllo.Requery
Molto meglio cos�.
� ora che arriva la temporale annunciata. ;-)



title: sitassi per il percorso

text:
Karl Donaubauer wrote:
> ...la temporale annunciata.
riprovo:
_il_ temporale...  si sto annunciando con un forte vento


title: sitassi per il percorso

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:9ck0qu...@mid.individual.net...

Forse volevi dire
che il forte vento precede l'arrivo del temporale.


title: sitassi per il percorso

author: Alessandro Cara

text:

Karl sara' austriaco ma in quanto a poesia non scherza"
"il_ temporale...  si *sta* annunciando con un forte vento"
--
ac (x=y-1)


title: sitassi per il percorso

text:
Alessandro Cara wrote:
>> Karl Donaubauer wrote:
>>> ...
>>> _il_ temporale...  si sto annunciando con un forte vento
>> ...
> "il_ temporale...  si *sta* annunciando con un forte vento"
*§$%&*
Quindi l'obiettivo per i prossimi 20 anni resta di emettere
2 frasi consecutive senza sbaglio.
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: DAO: BeginTrans/CommitTrans/RollBack

author: fidirico

text:
Un saluto a tutto il ng. In una mia applicazione apro un recordset DAO,
avvio la fase di modifica con BeginTrans e infine decido, rispondendo ad una
MsgBox di richiesta conferma, se salvare le modifiche con CommitTrans oppure
annullarle con RollBack. Fin qui tutto bene; l'utente ha però anche la
possibilità di non apportare alcuna aggiunta o modifica: mi piacerebbe in
tal caso poter chiudere la maschera senza alcuna richiesta di conferma.
Quindi vi chiedo se è possibile stabilire se un recordset non ha subito
modifiche dal momento della sua apertura, nel qual caso si potrebbe lanciare
automaticamente il CommitTrans senza passare attraverso la MsgBox. Mi scuso
se la mia richiesta è banale, ma sono davvero alle primissime armi con
questi strumenti. Uso Access XP e le librerie DAO 3.6 . Grazie per
l'attenzione.
Ciao
Galliano


title: DAO: BeginTrans/CommitTrans/RollBack


title: DAO: BeginTrans/CommitTrans/RollBack

text:
Mi scuso per l'involontario doppio invio.
Galliano


title: DAO: BeginTrans/CommitTrans/RollBack

author: yronium

text:
Il 19 Mar 2003, 20:30, "fidirico" <
galtor...@libero.it
> ha scritto:
> Mi scuso per l'involontario doppio invio.
>
> Galliano
>
>
Esiste la proprietą OldValue (v. help online). Confronta i valori dei campi
con la proprietą OldValue, se il valore č uguale => Exit Sub, altrimenti
MsgBox.
Spero ti sia d'aiuto.
--------------------------------
Inviato via
http://usenet.libero.it


title: DAO: BeginTrans/CommitTrans/RollBack

author: Alex

text:
"fidirico" <
galtor...@libero.it
> wrote in message
news:Ww3ea.29373$
Lr4.9...@twister2.libero.it

Credo ti convenga attivare un Flag sul Change delle TxtBox, nel caso
siano legate ai campi del RS, visto che in qualche modo sei tu
a controllarne gli effetti.....!
In ogni caso forse potrebbe tornarti utile la Proprietà RecordStatus
di Recordset, nell'Help c'è un Esempio che si avvicina alle tue
esigenze.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: DAO: BeginTrans/CommitTrans/RollBack

text:
> Credo ti convenga attivare un Flag sul Change delle TxtBox, nel caso
> siano legate ai campi del RS, visto che in qualche modo sei tu
> a controllarne gli effetti.....!
> In ogni caso forse potrebbe tornarti utile la Proprietą RecordStatus
> di Recordset, nell'Help c'č un Esempio che si avvicina alle tue
> esigenze.
Grazie mille ad entrambi per i vostri consigli che cercherņ di mettere a
frutto; per Alex: RecordStatus si applica purtroppo solo alle connessioni
ODBC, mentre io lavoro con jet. Ciao e buon lavoro.
Galliano


title: relazioni multiple tra tabelle

text:
Salve ragazzi, ho un problema credo semplice (x voi)
allora ho tre trabelle:
Prodotti
      idprodotto
      nome
      scelta (valore vero-falso)
Mag1
      idmag1
      idprodotto
      campo1
Mag2
      idmag2
      idprodotto
      campo2
adesso le tabelle sono collegate 1 a molti tramite il capo idprodotto!
voglio realizzare una maschera che in base al valore di scelta mi
visualizzi la sotto maschera con MAG1 o MAG2
come posso fare?
grazie 1000 mario


title: relazioni multiple tra tabelle

author: Sergio MAZZA

text:
"mavi82" <
mav...@gmail.com
> ha scritto nel messaggio
news:1185805697.0...@q75g2000hsh.googlegroups.com...

Cambi l'origine dati della sottomaschera utilizzando la proprietą
SourceObject (vedi help VBA)...
Ciao.
--
Sergio MAZZA


title: gestione lettere e fax

author: fast

text:
Salve a tutti, vorrei un aiuto su come organizzare la gestione di lettere e
fax nel mio pc l'archio funziona bene, il mio problema è la stampa:. Vorrei
formattare la pagina della lettera o del fax, access purtroppo, da come lo
conosco io non mi aiuta, e vorrei evitare dei collegamenti con word. Come
posso fare?
Vi ringrazio dell'aiuto.


title: gestione lettere e fax

author: Roberto da casa

text:
"fast" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:uTS8c.10747$jY1....@tornado.fastwebnet.it...

I fax sono quelli ricevuti o quelli spediti?
Come e dove sono memorizzati?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: gestione lettere e fax

text:
Le lettere e i fax sono creati tramite access e poi spediti, ma come sai il
testo, almeno credo non si può formattare e io vorrei dargli una certa
formattazione tipo allineamento a destra e a sinistra ecc...
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:IhT8c.90531$Kc3.2...@twister2.libero.it...



title: gestione lettere e fax

author: MA

text:
"fast" <
g.fr...@fastwebnet.it
> ha scritto nel
messaggio
news:EqT8c.10807$jY1....@tornado.fastwebnet.it...
> Le lettere e i fax sono creati tramite access e
poi spediti, ma come sai il
> testo, almeno credo non si può formattare e io
vorrei dargli una certa
> formattazione tipo allineamento a destra e a
sinistra ecc...
Spedisci e formatta dopo il quoting.
E poi chi te l'ha detto che non si può?
MAssimiliano


title: gestione lettere e fax

text:
"fast" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:EqT8c.10807$jY1....@tornado.fastwebnet.it...
> Le lettere e i fax sono creati tramite access e poi spediti, ma come sai
il
> testo, almeno credo non si può formattare e io vorrei dargli una certa
> formattazione tipo allineamento a destra e a sinistra ecc...
[CUT]
Quando rispondi scrivi DOPO e non prima del testo dei messaggi precedenti.
Si, ma come e dove sono memorizzati?



title: gestione lettere e fax

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:hkU8c.94017$FJ6.3...@twister1.libero.it...

> Scusa; come dicevo, le lettere e i fax sono creati tramite access e poi



title: gestione lettere e fax

text:
"fast" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
news:ixW8c.11145$jY1....@tornado.fastwebnet.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:hkU8c.94017$FJ6.3...@twister1.libero.it...
> >
> > "fast" <
g.fr...@fastwebnet.it
> ha scritto nel messaggio
> > news:EqT8c.10807$jY1....@tornado.fastwebnet.it...
> > > Le lettere e i fax sono creati tramite access e poi spediti, ma come
sai
> > il
> > > testo, almeno credo non si può formattare e io vorrei dargli una certa
> > > formattazione tipo allineamento a destra e a sinistra ecc...
> >
> > [CUT]
> >
> > Quando rispondi scrivi DOPO e non prima del testo dei messaggi
precedenti.
> >
> > Si, ma come e dove sono memorizzati?
> >
> > --
> > Roberto
> >
> > Scusa; come dicevo, le lettere e i fax sono creati tramite access e poi
> spediti, ma come sai il
> testo, almeno credo non si può formattare e io vorrei dargli una certa
> formattazione tipo allineamento a destra e a sinistra ecc...
Non hai risposto alla mia domanda.
se comunque sono memorizzati in un campo di tipo testo o in un campo di tipo
memo di una tabella, puoi vederli formattati visualizzandoli con un
controllo ActiveX Microsoft RichText.
In alternativa vai a questo link:
http://www.lebans.com/richtext.htm



title: Colori di ACCESS (2)

author: raffaele

text:
Scusate se ripropongo la mia domanda (so già che qualcuno mi infamerà...):
Si possono cambiare i colori delle BARRE DI SCORRIMENTO, delle freccettine
delle CASELLE COMBINATE dei SELETTORE DEI RECORD e così via tramite codice
???
Qualcuno mi ha suggerito di usare le API ...mi vorrebbe qualche dettaglio
più preciso.
Grazie ancora per gli eventuali suggerimenti.
Raffaele Alberoni


title: Colori di ACCESS (2)

author: Harry Evans

text:
> Scusate se ripropongo la mia domanda (so già che qualcuno mi infamerà...):
> Si possono cambiare i colori delle BARRE DI SCORRIMENTO, delle freccettine
> delle CASELLE COMBINATE dei SELETTORE DEI RECORD e così via tramite codice
> ???
> Qualcuno mi ha suggerito di usare le API ...mi vorrebbe qualche dettaglio
> più preciso.
Certo, da Pannello di controllo / Schermo / Aspetto, l'UTENTE (!!!!!) può
impostare le cose come più gli piace. E GUAI ai programmatori che me li
cambiano!!!!!!


title: Colori di ACCESS (2)

author: Emyr

text:
On Thu, 14 Mar 2002 22:35:46 GMT, "Harry Evans" <
harry...@tin.it
>
wrote:

e quindi come colori devi usare questa tabella di riferimento
Elemento dello schermo
sul mio programma uso per
Valore
Barra di scorrimento					-
2147483648
Desktop							-
2147483647

Barra del titolo della finestra attiva			-
2147483646
Barra del titolo della finestra inattiva		-
2147483645
Barra dei menu						-
2147483644
Finestra						-
2147483643
sfondo campi immissione
Cornice della finestra					-
2147483642
Testo del menu						-
2147483641
Testo della finestra					-
2147483640
testo titoli - testo campi
Testo della barra del titolo				-
2147483639
Bordo della finestra attiva				-
2147483638
colore bordo campi - colore bordo titoli
Bordo della finestra inattiva				-
2147483637
Sfondo dell'applicazione				-
2147483636
sfondo programma - sfondo titoli
Evidenziazione						-
2147483635

Testo evidenziato					-
2147483634
Superficie 3D						-
2147483633
Ombreggiatura 3D					-
2147483632
Testi inattivo						-
2147483631
Testo del pulsante					-
2147483630
testo pulsanti
Testo della barra del titolo della finestra inattiva	-
2147483629
Evidenziazione 3D					-
2147483628
Ombreggiatura scura 3D					-
2147483627
Luminosità 3D						-
2147483626
Testo della Descrizione comando				-
2147483625
Sfondo della Descrizione comando
Saluti.
Emanuele.


author: impie

text:
Ho un messaggio di errore per la quale non riesco a trovare una
soluzione:
"tipo non corrispondente nell'espressione"
Questo mi appare quando cerco di aprire una maschera che fino a stamane
funzionava benissimo... e non mi ricordo di aver fatto modifiche
Cosa posso/devo fare ?
Grazie in anticipo per i vostri suggerimenti e l'aiuto


text:
"impie" <
imr...@hotmail.com
> ha scritto nel messaggio
news:1145991636.1...@t31g2000cwb.googlegroups.com...
> Ho un messaggio di errore per la quale non riesco a trovare una
> soluzione:
> "tipo non corrispondente nell'espressione"
> Questo mi appare quando cerco di aprire una maschera che fino a stamane
> funzionava benissimo... e non mi ricordo di aver fatto modifiche
> Cosa posso/devo fare ?
Normalmente quando si verifica questo errore, pigiando il pulsante di
comando Debug posto all'interno della finestra popup con cui viene
evidenziato l'errore, viene evidenziato la riga di codice VBA responsabile
di tele errore.
>
> Grazie in anticipo per i vostri suggerimenti e l'aiuto
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Copia di tabelle, indici, relazioni, dati da un db esistente ad uno nuovo

author: Mirko Caporali

text:
Ciao a tutti,
Ho realizzato un routine che copia tabelle, indici, dati, relazioni da
un database (un BE) esistente ad uno nuovo di zecca (creato con la
stessa routine).
A prima vista, sembrerebbe funzionare tutto alla perfezione (tutte le
tabelle, indici, dati, relazioni vengono copiati) ed il neonato
database non sembrerebbe affatto corrotto. Ma, quando ci vado a
lavorare con il Frontend, ecco che arrivano dei problemi.
Ad esempio, in talune maschere, il cursore talvolta si blocca in un
campo e non passa a quello successivo. Lo stano poi è che il problema
non si verifica sempre.
Che dite, perchè questo "strano" comportamento?


text:
Mi sono accordo adesso che in una tabella dove la chiave primaria è un
campo contatore ad incremento, quando vado ad inserire un nuovo record,
questo propone un numero già esistente.
Lostrano è che formalmente il campo risulta definito correttamente, ed
altri campi contatori presenti in altre tabelle funzionano normalmente


title: blocco invio email

author: giorgio

text:
sto tentando di usare una macro per inviare da una maschera di access una
mail, uso  l'azione "inviaoggetto" che ho già usato su altri db e funziona.
ora su un pc non riesco ad inviare la mail. access mi dice "operazione non
riuscita" impossibile inviare il messaggio.
se non ricordo male da qualche parte bisogna configurare outlook 2003 e
dirgli di consentire l'invio della posta da altri programmi, ma non mi
ricordo più dove si imposta questa cosa, mi aiutate?
grazie


title: blocco invio email

author: miciomao

text:
Forse ti riferisci a questo ma non mi sembra la stessa cosa
http://support.microsoft.com/kb/263084/it
Ciao
Alex


title: blocco invio email

author: OneEDP

text:
"giorgio" <
va...@vale.it
> ha scritto nel messaggio
news:49a6af76$1...@extreme.x-privat.org...

Express ClickYes fa al caso tuo
Daniele


title: Conversione Ore > 24  in Secondi

author: Announced

text:
Ho trovato questa bella funzioncina che converte le ore in secondi .
Non mi funziona però su ore maggiori di 24, mi restituisce 0. Non
riesco a trovare una soluzione, potreste aiutarmi?
Public Function ConvInSec(Ore) As Long
    ConvInSec = (Hour(Ore) * 60 * 60) + (Minute(Ore) * 60)
End Function
Grazie
Paolo


title: Conversione Ore > 24  in Secondi

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio news:1181953151.8...@m36g2000hse.googlegroups.com...


Grazie
Paolo
[risposta]
www.sitocomune.com
Sezione General
6.130 Visualizzare un campo o variabile di tipo Data/ora con valore maggiore di 24 ore nel formato HHH:mm
Sezione Modules
5.11 Calcolare le ore totali di un certo periodo partendo dal semplice totale dei secondi.
Ciao.
--
Sergio MAZZA


title: Conversione Ore > 24  in Secondi

author: Carlo Costarella

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1181953151.8...@m36g2000hse.googlegroups.com...


Grazie
Paolo
Hour si aspetta un valore data/time così come minute..
A te non serve tutto ciò visto che gli passi un intero...almeno così mi
sembra visto che vuoi convertire solo le ore in secondi.
Questo dovrebbe bastare:
Public Function ConvInSec(Ore) As Long
'per esempio ConvInSec(1234)
    ConvInSec = (Ore * 60) * 60
End Function
Ciao, Carlo


title: Conversione Ore > 24  in Secondi

text:
On 16 Giu, 08:54, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> "Announced" <
paoloscarpu...@alice.it
> ha scritto nel messaggionews:1181953151.8...@m36g2000hse.googlegroups.com...

Non gli passo un intero Carlo, gli passo TotaleOre in formato ore:min
e con la funzione da me indicata in Secondi esce:
TotaleOre          Secondi
16.30                59400     Ok
21.00                75600     Ok
54.00                       0     KO
Non riesco a fargli ricalcolare i secondi per ore sopra le 24... Avevo
anche già guardato gli esempi del SC, consigliati da Sergio, ma non
riesco ad agganciarli a quello che mi serve. Forse mi sfugge
qualcosa...!
Grazie
Paolo


title: Conversione Ore > 24  in Secondi

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1181994248.3...@k79g2000hse.googlegroups.com...




Grazie
Paolo
----------------------------
Prendi la parte intera (54) e usa le modifiche che ti ho suggerito...
Ciao, Carlo


title: Conversione Ore > 24  in Secondi

author: giorgio rancati

text:
"Announced" <
paolosc...@alice.it
> ha scritto nel messaggio
news:1181994248.3...@k79g2000hse.googlegroups.com...




quindi  gli passi una stringa
Fai così
----
Public Function ConvInSec(Ore As String) As Long
    Dim Dt As Date
    Dt = DateAdd("h", Val(Left(Ore, 2)), 0)
    Dt = DateAdd("n", Val(Right(Ore, 2)), Dt)
    ConvInSec = DateDiff("s", 0, Dt)
End Function
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: Conversione Ore > 24  in Secondi

text:
On 16 Giu, 17:41, "giorgio rancati"
<
giorgio_NO_SPALMER_ranc...@tiscali.it
> wrote:
> "Announced" <
paoloscarpu...@alice.it
> ha scritto nel messaggionews:1181994248.3...@k79g2000hse.googlegroups.com...

Perfetto Giorgio...
Grazie davvero a tutti...!
Paolo


title: Spaziare testi e cifre in un report...

author: Ammammata

text:
...ma anche a video se necessario.
Sto compilando i bollettini postali (PVR, Svizzera) dove l'importo e la
descrizione vanno incasellati negli spazi a loro assegnati.
Utilizzo il font suggerito (OCR-B), corpo 12.
Partendo da due campi che contengono AFFITTO e 123456.78
devo ottenere in stampa:
A F F I T T O
e
1 2 3 4 5 6 . 7 8 (possibilmente senza il punto decimale)
Sto litigando con i formati, tipo "# # # # . # #" e "@ @ @ @ @ @ @ @" ma i
risultati sono deludenti...
Suggerimenti?
grazie e ciao
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\


title: Spaziare testi e cifre in un report...

text:
"Ammammata" <
amma...@tiscalinet.it
> ha scritto nel messaggio
news:Xns99DA90B10C735am...@194.177.97.96...

Per ora mi viene in mente un ciclo per tutta la lunghezza della stringa:
'---
Dim a As Integer, strTmp As String
For a = 1 To Len("Affitto")
    strTmp = strTmp & Mid("Affitto", a, 1) & " "
Next
Debug.Print Trim(strTmp)
'---
Ciao.
--
Sergio MAZZA


title: Spaziare testi e cifre in un report...

text:
"Ammammata" <
amma...@tiscalinet.it
> ha scritto nel messaggio
news:Xns99DA90B10C735am...@194.177.97.96...

Si potrebbe usare il carattere Courier (non il Courier New) o il Courier
monospaced o qualsiasi altro carattere monospazio.
Io preferisco farmi tante piccole caselle di testo quanti sono i caratteri e
li dispongo secondo le mie necessità.
Per ognuno assegno da codice la lettera corrispondente, lasciano,
ovviamente, invisibile il controllo da cui prelevo la stringa.
Per usare il tuo esempio:
Me.CT1 = Mid("TuoTesto",1,1)
Me.CT2 = Mid("TuoTesto",2,1)
Me.CT3 = Mid("TuoTesto",3,1)
....
Per il punto usi la stessa tecnica "saltando nel mid la lettera (punto)...
Me.CT6 = Mid("TuoTesto",6,1)
Me.CT7 = Mid("TuoTesto",8,1)
...alla posizione 7 c'era il punto.
Un po' di lavoro in più ma il risultato è sempre perfetto.
Ciao, Carlo


title: Spaziare testi e cifre in un report...

text:
Ammammata <
amma...@tiscalinet.it
> wrote in
news:Xns99DA90B10C735am...@194.177.97.96
:
> A F F I T T O
> e
> 1 2 3 4 5 6 . 7 8 (possibilmente senza il punto decimale)
>
> Sto litigando con i formati, tipo "# # # # . # #" e "@ @ @ @ @ @ @
> @" ma i
>
per il numero ho risolto con il formato # # # # # # 0 , 0 0 (cosě,
senza virgolette)
per il testo ho memorizzato i tre 'valori' con gli spazi inclusi e per
il momento ho tappato il buco :P
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
http://boinc.mundayweb.com/one/stats.php?userID=2762


title: crea relazione con cascade via SQL o VBA

author: Riccardo

text:
Ciao a tutti
ho la necessità di creare con una query o via routine VBA (l'importante
è che il tutto sia automatizzato) una relazione tra due tabelle con
opzione on delete cascade.
Il codice:
ALTER TABLE Tbl_2 ADD CONSTRAINT Relation1 FOREIGN KEY ([cliente])
REFERENCES Tbl_1 ([ID]) [ON DELETE CASCADE]
funziona con la creazione della join tra tabelle ma l'ON DELETE CASCADE
non viene creato.
uso Access 2003
grazie a tutti
--


author: Karl Donaubauer

text:

Non scrivi dove o come prova di eseguirlo.
ON DELETE CASCADE
(senza parentesi quadre) funziona solo con OLEDB/ADO.
Vuol dire che puoi p.e. eseguirlo nel codice con:
CurrentProject.Connection.Execute "ALTER TABLE..."
Un esempio con DAO trovi qui:
http://groups.google.com/group/it.comp.appl.access/msg/da0eb132750ba2a5
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: dubbio su treeview

text:
H provato ad usare il database treeview su sitocomune, ma non accetta
rami con lo stesso nome. A quanto ho capito è un problema nella
costruzione della struttura .  Come si può risolvere.
Lo avevo già modificato e utilizzato per il mio progetto e poi mi sono
reso conto del prob, quindi ci sono rimasto male...
Ciao


title: dubbio su treeview

author: Alessandro Cara

text:

i "rami" hanno un nome(titolo) ed una chiave. La chiave di per se
deve essere univoca, il titolo puo' essere duplicato.
La duplicazione, cmq, ha senso solo se sta su livelli differenti.
Io ho titoli duplicati e quando l'ho costruito mi era sembrata logica
questa struttura, anzi ho subito cercato di capire dov'era la chiave
e come gestirla.
Purtroppo il mio treeview non deriva da quello del sitocomune e
quindi al momento non saprei cosa dirti per modificarlo.
--
a.cara
Togli qualcosa dall'email


title: c'e' un modo...

text:
... per calcolare il totale dei campi si/no cliccati in un singolo
record? (servirebbe per calcolare le presenze di uno studente, ad
esempio)
Grazie e cordiali saluti
Arturo


title: c'e' un modo...

author: Mad® Milox

text:
"Ut00123" <
Ut0...@itoff.it
> ha scritto nel messaggio
news:3aadf913...@news.dsi.unimi.it...

io ho notato questo...
Ogni campo si/no ha valore numerico 0 = vero e -1 =falso
quindi dovrebbe bastare
totale = campo1+campo2+campo3 ....
se il valore deve essere positivo mi pare che il comando per il valore
assoluto sia "abs"
e quindi totale=abs(campo1+campo2+campo3 .... )


title: c'e' un modo...

author: Antonio Biso

text:
Ut00123 <
Ut0...@itoff.it
> wrote in message
3aadf913...@news.dsi.unimi.it...
> ... per calcolare il totale dei campi si/no cliccati in un singolo
> record? (servirebbe per calcolare le presenze di uno studente, ad
> esempio)
Cioč ogni record ha n campi di tipo sě/no?
Fai un ciclo sull'insieme fields del recordset associato e conti quanti
stanno a sě
Antonio


title: c'e' un modo...

text:
On Tue, 13 Mar 2001 19:08:04 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

Grazie infinite a tutti per i suggerimenti. Provero' a fare cosi'.
Purtroppo non conosco il sistema migliore per farlo, ma vedro' di
arrivarci...
Arturo


title: Trovare valore Max

author: Giuliano

text:
Salve,
ho una query che trova il valore massimo di un campo tra tutti i record, del
tipo:
SELECT MAX([nome_tabella].[nome_campo]) AS Espr1 FROM [nome_tabella];
Il problema è che ora ho aggiunto un'altra tabella che contiene un campo
analogo al primo (ha anche lo stesso nome), e ora la ricerca del valore
massimo deve essere fatta considerando i record di tutte e due le tabelle.
Avete qualche dritta da darmi?
Grazie.
Saluti,
Giuliano


title: Trovare valore Max

author: Silver

text:
Giuliano ha scritto:
> Avete qualche dritta da darmi?
puoi creare una query unione e poi sulla base di quella trovi il valore
massimo.
1° query
SELECT nome_campo as id FROM tbl1
UNION SELECT nome_campo as id FROM tbl2;
2° query
select max(id) from query1
oppure da vba
-------------------------------------------
varmax1=dmax("nome_campo","tb1")
varmax2=dmax("nome_campo","tb2")
if varmax1>varmax2 then
maxval=varmax1
else
maxval=varmax2
end if


title: Trovare valore Max

text:
"Silver" <cra...@TOGLIMIhotmail.com> ha scritto nel messaggio
news:01I7i.1316$BU3...@tornado.fastwebnet.it...

Grazie Silver,
sei stato molto esauriente!
Ciao


title: Progetto ADP (DK)

text:
Salve a tutti.
Ho un problema con un progetto di Access 2000: sulla mia macchina
funziona tutto correttamente.
Se provo ad installare l'applicativo su un client che ha Office2000,
mi genera il seguente errore:
"Errore di run-time 2757: errore durante l'accesso ad una proprietà o
ad un metodo dell'oggetto OLE"
Ho provato ad aggiornare i service pack di office (sp3) e tutti gli
aggiornamento di Windows2000, ma niente da fare.
La cosa strana è che sul mio pc va... questo adp è collegato ad un db
su SqlServer e tutti gli utenti hanno permessi di lettura/scrittura...
Alcuni report invece funzionano e altri no...
Suggerimenti?
Grazie in anticipo.
Luigi.


title: Progetto ADP (DK)

text:
"Igio80" <
igi...@inwind.it
> ha scritto nel messaggio
news:2a3eb988.05012...@posting.google.com...

In linea di massima devi controllare che in quei report non ci siano dei
controlli ocx o altri oggetti OLE.
In alternativa apri un modulo e dal menù strumenti scegli riferimenti:
controlla se il riferimento OLE Automation è spuntato; se lo è togli la
spunta. Compila il db e provalo sul client.
Allo stesso modo controlla se tutti i riferimenti (librerie o ocx) sono
anche presenti nel computer client.
Ciao, Carlo
igio80 ha poi così risposto (in privato...):
"Nel frattempo ho scoperto che sul mio pc ho la MS access Object Library
11.0 mentre sul client è la 9.0... come posso aggiornarla? Copiando
brutalmente il mio file MSACC.OLB sul client?
Grazie."
No, non così.
La strada più corretta prevede di creare un runtime del tuo applicativo e
poi lo distribuisci. In alternativa il client può installare OfficePro o
Access 2003.
Altra possibilità, se hai Access 2000, è quella di convertire il file 2003
prima in 2002 e poi in 2000; quindi apri Access 2000 e crei il tuo mde.
Ciao, Carlo


title: problemino

author: Angelo

text:
Premesso che funziona tutto quanto, ma dopo il clic su bottone che lancia
una maschera che mi fa elenco record con possibilita' di scelta per
visualizzazione...mi appade un messaggio " IMPOSTAZIONE NON VALIDA PER
QUESTA PROPRIETA'"
grazie.


title: problemino

text:

--------------------------------
Inviato via
http://usenet.libero.it


title: [parecchio lungo] query a campi incrociati con complicazioni varie

text:
mi servirebbe una query a campi incrociati che mi divida i dati per mese,
però dovrebbe partire da una data impostata nei parametri e tornare
indietro di 12 mesi, in pratica un anno

la query non deve (oggi) essere alla base di ulteriori elaborazioni: il
risultato va mostrato a video e l'utente è libero di guardarsela come pure
di esportarla in excel o altro, per smandrupparsela come vuole

la data di riferimento è al momento il 31.10.2019

ho una anagrafica con la giacenza a tal data
ho una tabella con i movimenti di carico e scarico

ho usato il wizard di Access 2010 che mi ha generato una tabella divisa per
mese

TRANSFORM Sum(StockMovements.[QtyMov]) AS SumOfQtyMov
SELECT StockMovements.[MATCHCODE]
FROM StockMovements
GROUP BY StockMovements.[MATCHCODE]
PIVOT Format([Date],"mmm") In
("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

ora i *ritocchi* (che devo provare, sto ancora ragionando "su carta")

devo aggiungere un filtro WHERE per limitare le transazioni ed elaborare
solo quelle che mi servono, una cosa tipo

WHERE
[Date] >= DateAdd("m";-11;[Forms]![Parameters]![EndDate])
and
[Date] <= DateAdd("m";0;[Forms]![Parameters]![EndDate])

(nota: la formula è quella che uso nel Report, devo trovare se esiste
l'equivalente per una query)

in questo modo i totali dei mesi non mi cumulano anni successivi o
precedenti

fatto il filtro sulle date, altra considerazione

posso conservare la struttura "per mese" dei risultati e poi ordinare le
colonne finali in base a [EndDate], scrivendo la query qui sopra con un po'
di codice VBA, e modificando opportunamente la riga

("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

p.e. in

("Nov","Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct");

in questo modo Nov e Dec del 2018 starebbero all'inizio e visivamente siamo
a posto

ancora:

devo anche dividere le somme in entrate e uscite, sommando opportunamente i
valori positivi e negativi

devo quindi fare due query, dove metto un ulteriore filtro sulla quantità
movimentata

nella prima

WHERE StockMovements.[QtyMov] > 0

e nell'altra

WHERE StockMovements.[QtyMov] < 0

(l'alternativa, calcolare due campi per mese, non è permessa: accetta un
solo campo VALUE)

a questo punto una terza query  mi dovrebbe unire le due precedenti
pescando i dati In e Out di ogni mese

ma non è finita  :/

partendo dalla quantità di giacenza alla data messa nei parametri
(31.10.2019) devo calcolare a ritroso le esistenze alla fine di ogni mese

(c'è una alternativa * a questo, ne parlo in fondo)

quindi una serie di formule che vanno via via allungandosi per avere i dati
di fine settembre:

esistenza fine ottobre - carichi ottobre - scarichi ottobre [uso il meno in
quanto sono valori negativi]

di fine agosto:

esistenza fine ottobre - carichi ottobre - scarichi ottobre - carichi
settembre - scarichi settembre

di fine luglio:

esistenza fine ottobre - carichi ottobre - scarichi ottobre - carichi
settembre - scarichi settembre - carichi agosto - scarichi agosto

quando arrivo all'esistenza di dodici mesi prima ho una formula lunga un
miglio, tipo questa che ho provato in un esperimento (che funziona, nulla
da eccepire):

IIf(Nz([Items].[Quantity])=Null,0,Nz([Items].[Quantity]))
-Nz([Mov-0-In],0)-Nz([Mov-0-Out],0)
-Nz([Mov-1-In],0)-Nz([Mov-1-Out],0)
-Nz([Mov-2-In],0)-Nz([Mov-2-Out],0)
-Nz([Mov-3-In],0)-Nz([Mov-3-Out],0)
-Nz([Mov-4-In],0)-Nz([Mov-4-Out],0)
-Nz([Mov-5-In],0)-Nz([Mov-5-Out],0)
-Nz([Mov-6-In],0)-Nz([Mov-6-Out],0)
-Nz([Mov-7-In],0)-Nz([Mov-7-Out],0)
-Nz([Mov-8-In],0)-Nz([Mov-8-Out],0)
-Nz([Mov-9-In],0)-Nz([Mov-9-Out],0)
-Nz([Mov-10-In],0)-Nz([Mov-10-Out],0)
-Nz([Mov-11-In],0)-Nz([Mov-11-Out],0)
 AS [Qty-12]

tutto questo che ho scritto fin qui non sarebbe un problema, basta che
funzioni (e in effetti sta funzionando, ma ci sono arrivato con alchimie
che voi umani...)

alla fine avrei una tabella tipo questa (versione semplificata):

Prodotto  Aug2019  In  Out   Sep2019  In  Out  Oct2019
Mele        50     10   -5     55     30  -20    65
Pere         0     60  -25     35      0  -20    15
Banane      67      0  -41     26     55  -60    21

sto però pensando che magari approccio il problema in modo errato :)
oppure ci sono comandi alternativi che non conosco per ottenere le stesse
informazioni  :?

come altro fare?

grazie in anticipo per un vostro parere

alternativa *

posso creare una tabella collegata a quella dei prodotti, con chiave
prodotto+anno+mese, e memorizzare le esistenze che *ricevo ogni mese*
nell'opportuno record, in questo modo nella query finale andrei a prenderle
senza doverle calcolare
questo secondo metodo mi permetterebbe in futuro (me ne hanno accennato) di
verificare che da un mese all'altro non ci siano variazioni non riportate
nei movimenti (p.e. parto da 50 a fine settembre, ho 15 di carico e 9 di
scarico in ottobre, l'esistenza al 31.10 è 48: qualquadra non cosa)

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
>>>>>
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........


text:
Il giorno Wed 20 Nov 2019 11:55:59a, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAB0D79677657Eam...@148.251.67.112
. Vediamo cosa ha
scritto:

>
> come altro fare?
>
>

ho automatizzato al query con un paio di cicli for next

adesso mi prepara la stringa SQL con i nomi dei mesi (campi) variabili in
base alla data limite di elaborazione :)

non č servito farne due per distinguere i carichi dagli scarichi :)

ora di tratta di aprire a video la tabella generata da questa query... :(

come faccio?
intendo dire: se la devo usare in una elaborazione me la cavo con del
codice tipo

Dim dbs  As DAO.Database
Dim MYSQL As DAO.Recordset
Set dbs = CurrentDb
Set MYSQL = dbs.OpenRecordset(strSQL)

ma come faccio per una semplice visualizzazione dei dati?

grazie



text:
Se non ho capiuto male...:

Docmd.OpenQuery "NomeQuery"

@Alex


text:
Il giorno Fri 22 Nov 2019 01:13:03p, *@Alex* ha inviato su
it.comp.appl.access il messaggio news:f5d233ea-bec9-464c-8b10-
f1d0fe...@googlegroups.com
. Vediamo cosa ha scritto:

> Se non ho capiuto male...:
>
> Docmd.OpenQuery "NomeQuery"
>
>

eh, ma io la query la ho solo (per il momento) costruita col codice
dovrei salvarla (sovrascrivendo la vecchia) oppure eseguirla mandando
l'output a video

questa (sembra funzionare...)

Private Sub BuildQuery()

Dim strSQL As String

Dim i, j As Integer

strSQL = strSQL & "SELECT " & vbCrLf
strSQL = strSQL & "qUnionMatchcode.Manufacturer, " & vbCrLf
strSQL = strSQL & "qUnionMatchcode.Name, " & vbCrLf
strSQL = strSQL & "qUnionMatchcode.MatchCode, " & vbCrLf
strSQL = strSQL & "Items.ItemCode, " & vbCrLf
strSQL = strSQL & "Items.Description, " & vbCrLf

For i = 1 To 11

    strSQL = strSQL &
"IIf(Nz([Items].[Quantity])=Null,0,Nz([Items].[Quantity])) " & vbCrLf

    For j = 1 To 13 - i

        strSQL = strSQL & "-Nz([Mov-" + Format(j - 1) + "-In],0)-Nz([Mov-"
+ Format(j - 1) + "-Out],0) " & vbCrLf

    Next j

    strSQL = strSQL & " AS [Qty-" + Format(DateAdd("m", -(12 - i),
[Forms]![Parameters]![EndDate]), "mmm") + "-" + Format(DateAdd("m", -(12 -
i), [Forms]![Parameters]![EndDate]), "yyyy") + "], " & vbCrLf
    strSQL = strSQL & " " & vbCrLf

    strSQL = strSQL & "qMovementsPerMonth.[Mov-" + Format(12 - i) + "-In]
AS " + "[In-" + Format(DateAdd("m", -(12 - i),
[Forms]![Parameters]![EndDate]), "mmm") + "], " & vbCrLf
    strSQL = strSQL & "qMovementsPerMonth.[Mov-" + Format(12 - i) + "-Out]
AS " + "[Out-" + Format(DateAdd("m", -(12 - i),
[Forms]![Parameters]![EndDate]), "mmm") + "], " & vbCrLf

Next i

strSQL = strSQL &
"IIf(Nz([Items].[Quantity])=Null,0,Nz([Items].[Quantity])) " & vbCrLf
strSQL = strSQL & " AS [Qty-" + Format(DateAdd("m", 0,
[Forms]![Parameters]![EndDate]), "mmm") + "-" + Format(DateAdd("m", 0,
[Forms]![Parameters]![EndDate]), "yyyy") + "], " & vbCrLf
strSQL = strSQL & " " & vbCrLf

strSQL = strSQL & "Items.Price, " & vbCrLf
strSQL = strSQL & "[Price]*[Qty-0] AS [Value], " & vbCrLf
strSQL = strSQL & "Items.Total " & vbCrLf
strSQL = strSQL & " " & vbCrLf

strSQL = strSQL & "FROM qUnionMatchcode " & vbCrLf

strSQL = strSQL & "LEFT JOIN (Items " & vbCrLf
strSQL = strSQL & "LEFT JOIN qMovementsPerMonth ON Items.MatchCode =
qMovementsPerMonth.MATCHCODE) ON (qUnionMatchcode.MATCHCODE =
Items.MATCHCODE) " & vbCrLf
strSQL = strSQL & "AND (qUnionMatchcode.NAME = Items.NAME) " & vbCrLf
strSQL = strSQL & "AND (qUnionMatchcode.Manufacturer = Items.Manufacturer)
" & vbCrLf
strSQL = strSQL & " " & vbCrLf

strSQL = strSQL & "ORDER BY Items.Manufacturer, Items.Description; " &
vbCrLf

'DoCmd.RunSQL (strSQL)
Stop

End Sub



text:
Il giorno Fri 22 Nov 2019 02:10:38p, *Ammammata* ha inviato su
it.comp.appl.access il messaggio
news:XnsAB0F903D289DDam...@148.251.67.112
. Vediamo cosa ha
scritto:

> eh, ma io la query la ho solo (per il momento) costruita col codice
> dovrei salvarla (sovrascrivendo la vecchia) oppure eseguirla mandando
> l'output a video
>

strSQL = strSQL & "INTO Status " & vbCrLf

...
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

e poi apro la tabella Status a tutto schermo

adesso c'è giusto da trovare eventuali errori di calcolo ma il grosso è
fatto :)



text:
Dbengine(0)(0).Querydefs("nomequery").SQL="Select..."

@Alex


author: Greg

text:
Il 22/11/19 14:10:38 Ammammata ha scritto:

MI sembra abbastanza complessa, che tempi di esecuzione richiede?

--
Greg


text:
Il giorno ven 22 nov 2019 09:01:22p, *Greg* ha inviato su
it.comp.appl.access il messaggio news:qr9eqn$3kt$
1...@solani.org
. Vediamo cosa
ha scritto:

>
> MI sembra abbastanza complessa, che tempi di esecuzione richiede?
>
>

dici bene, *sembra* complessa, ma alla fine i dati da elaborare oggi sono
relativamente pochi (i singoli movimenti, circa 5000 da inizio febbraio,
vengono preventivamente cumulati mensilmente per prodotto e si riducono a
circa 500) per cui se la cava in meno di mezzo secondo

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [  da casa  ] ...........


title: Casella combinata da + campi

author: Tribal

text:
Salve a tutti...
qualcuno saprebbe come posso impostare che l'elenco di una casella combinata
sia l'insieme + più campi ?
(Sarò stato chiaro?) :P
Vediamo....se io creo una casella combinata selezionando come origine due o
+ campi il risultato ottenuto alla selezione è una serie di record disposti
in orizzontale:
_________________
|  campo1  |  campo2  |
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Io invece vorrei ottenere il risultato inverso cioè i dati inseriti nei
campi ...disposti a tendina:
_________
|  campo1  |
¯¯¯¯¯¯¯¯
| campo2  |
¯¯¯¯¯¯¯
Grazie mille ragazzi....


title: Casella combinata da + campi

author: Sergio MAZZA

text:
"Tribal" <
asda...@iol.it
> ha scritto nel messaggio
news:qQsxb.112328$hV.40...@news2.tin.it...

Dovresti creare una tabella di appoggio dove accodi i dati di campo2 a
campo1, in alternativa se non sono tanti i record puoi, con VBA, dare come
origine alla casella combinata una stringa composta dai valori campo1;
campo2; campo1; campo2 etc. etc.
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

author: Triballo

text:
Salve a tutti...
ho postato il 28 un articolo dove esponevo il problema a incolonnare in una
casella combinata i record provenienti da + campi....Sergio Mazza mi aveva
risposto che č possibile nel caso in cui dando come origine una stringa
composta dai valori dei campi...ma io non ci sono riuscito...qualcuno ha in
mente un altra alternativa.. ? o mi potrebbe postare un codice vb ?
Grazie nuovamente...
CiAuZzzZz


title: Casella combinata da + campi

text:
"Triballo" <
dasf...@iol.it
> ha scritto nel messaggio
news:rikzb.3617$5o6....@tornado.fastwebnet.it...
> Salve a tutti...
> ho postato il 28 un articolo dove esponevo il problema a incolonnare in
una
> casella combinata i record provenienti da + campi....Sergio Mazza mi aveva
> risposto che è possibile nel caso in cui dando come origine una stringa
> composta dai valori dei campi...ma io non ci sono riuscito...qualcuno ha
in
> mente un altra alternativa.. ? o mi potrebbe postare un codice vb ?
>
> Grazie nuovamente...
> CiAuZzzZz
>
Ehi! Pst! Pst! Sono (Siamo) qui eh!
Non ci sei riuscito (il perchè non l'hai detto) o vuoi un'alternativa?
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bqknlr$qpc$1...@canarie.caspur.it...

Ciao Sergio....in verità ho provato realizzando delle query ma niente....in
VB non ho proprio idea di come si possa fare....se hai da suggerirmi un
alternativa magari postandomi un esempio di codice vedo un pò se riesco ad
arrangiare una soluzione...
Grazie di tutto....


title: Casella combinata da + campi

text:
"Tribal" <
asda...@iol.it
> ha scritto nel messaggio
news:pYlzb.43041$AX1.1...@news1.tin.it...
>
> Ciao Sergio....in verità ho provato realizzando delle query ma
niente....in
> VB non ho proprio idea di come si possa fare....se hai da suggerirmi un
> alternativa magari postandomi un esempio di codice vedo un pò se riesco ad
> arrangiare una soluzione...
>
> Grazie di tutto....
>
Questo è un esempio; sempre se ho capito cosa ti serviva:
'-----------
Dim rst As Recordset, stringaCMB As String, passo As Integer
Set rst = CurrentDb.OpenRecordset("Tabella4")
stringaCMB = ""
passo = 0
Do While Not rst.EOF
    stringaCMB = stringaCMB & ";" & rst("campo1") & ";" & rst("campo2")
    rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Me!CasellaCombinata1.RowSource = Mid(stringaCMB, 2)
'-----------
Imposta la proprietà della casella combinata "Tipo origine riga" a "Elenco
valori"...
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
> Questo è un esempio; sempre se ho capito cosa ti serviva:
> '-----------
> Dim rst As Recordset, stringaCMB As String, passo As Integer
> Set rst = CurrentDb.OpenRecordset("Tabella4")
> stringaCMB = ""
> passo = 0
>
> Do While Not rst.EOF
>     stringaCMB = stringaCMB & ";" & rst("campo1") & ";" & rst("campo2")
>     rst.MoveNext
> Loop
>
> rst.Close
> Set rst = Nothing
>
> Me!CasellaCombinata1.RowSource = Mid(stringaCMB, 2)
>
> '-----------
> Imposta la proprietà della casella combinata "Tipo origine riga" a "Elenco
> valori"...
>
> Ciao.
>
> --
> Sergio MAZZA
Ciao Sergio....allora...ho provato a impostare al codice VB alla maschera
dove si trova la casella combinata ma niente....non riesce a pescare i dati
dai campi indicati, premetto che mi stò affacciando da poco al mondo dei
database....e cerco di fare il possibile....ma ahimè alle volte mi riesce
male...ho provato anche a fare in questo modo:
Private Sub Form_Open(Cancel As Integer)
Dim rst As Recordset, stringaCMB As String, passo As Integer
Set rst = CurrentDb.OpenRecordset("prova")
stringaCMB = ""
passo = 0
Do While Not rst.EOF
    stringaCMB = stringaCMB & ";" & rst("campo1") & ";" & rst("campo2")
    rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Me!CasellaCombinata1.RowSource = Mid(stringaCMB, 2)
End Sub
ma alla fine mi genera un errore di debug "tipo non corrispondente"
evidenziandomi: Set rst = CurrentDb.OpenRecordset("prova")
Aiuuttooo tra un pò sbatto la testa contro il muro...


title: Casella combinata da + campi

text:
"Triballo" <
dasf...@iol.it
> ha scritto nel messaggio
news:nnEzb.5729$5o6....@tornado.fastwebnet.it...
>
> Ciao Sergio....allora...ho provato a impostare al codice VB alla maschera
> dove si trova la casella combinata ma niente....non riesce a pescare i
dati
> dai campi indicati, premetto che mi stò affacciando da poco al mondo dei
> database....e cerco di fare il possibile....ma ahimè alle volte mi riesce
> male...ho provato anche a fare in questo modo:
>
> Private Sub Form_Open(Cancel As Integer)
>
> Dim rst As Recordset, stringaCMB As String, passo As Integer
> Set rst = CurrentDb.OpenRecordset("prova")
> stringaCMB = ""
> passo = 0
>
> Do While Not rst.EOF
>     stringaCMB = stringaCMB & ";" & rst("campo1") & ";" & rst("campo2")
>     rst.MoveNext
> Loop
>
> rst.Close
> Set rst = Nothing
>
> Me!CasellaCombinata1.RowSource = Mid(stringaCMB, 2)
>
> End Sub
>
> ma alla fine mi genera un errore di debug "tipo non corrispondente"
> evidenziandomi: Set rst = CurrentDb.OpenRecordset("prova")
>
> Aiuuttooo tra un pò sbatto la testa contro il muro...
Se hai access200x devi inserire i riferimenti alla libreria DAO prima della
ADO (strumenti - riferimenti)...
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
>
> Se hai access200x devi inserire i riferimenti alla libreria DAO prima
della
> ADO (strumenti - riferimenti)...
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
Ciao Sergio ho provato a cambiare i riferimenti della libreria ma
niente...mi da sempre il solito errore...praticamente non è cambiato
nulla...
CiAuZzZz


title: Casella combinata da + campi

text:
"Triballo" <
don...@il.me
> ha scritto nel messaggio
news:pcJzb.6387$5o6....@tornado.fastwebnet.it...
> Ciao Sergio ho provato a cambiare i riferimenti della libreria ma
> niente...mi da sempre il solito errore...praticamente non č cambiato
> nulla...
>
> CiAuZzZz
>
Sicuro che la libreria DAO si posizionata nell'elenco prima di quella ADO?
Prova cosě:
Dim rst As DAO.Recordset
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
>
> Sicuro che la libreria DAO si posizionata nell'elenco prima di quella ADO?
> Prova cosě:
> Dim rst As DAO.Recordset
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
Oki Sergio adesso siiiiii :) ....ti vorrei  chiedere solo un'altra cosa se
non č di troppo. Volendo applicare un criterio di ricerca del tipo:
incolonnami nella casella combinata tutti i record del "campo1" e "campo2"
ma che sono relativi ad un determinato valore presente nel "campo3" ?
Posso usare il comando where ?


title: Casella combinata da + campi

text:
"Triballo" <
don...@il.me
> ha scritto nel messaggio
news:4KJzb.6450$5o6...@tornado.fastwebnet.it...
> Oki Sergio adesso siiiiii :) ....ti vorrei  chiedere solo un'altra cosa se
> non è di troppo. Volendo applicare un criterio di ricerca del tipo:
> incolonnami nella casella combinata tutti i record del "campo1" e "campo2"
> ma che sono relativi ad un determinato valore presente nel "campo3" ?
> Posso usare il comando where ?
>
Devi, non hai scelta; invece di usare una tabella, il recordset lo crei con
una query:
es.
'---> se numerico
Set rst = CurrentDb.OpenRecordset("Select campo1, campo2 From tabella4 Where
campo3=" & me!campo3)
'---> se testo
Set rst = CurrentDb.OpenRecordset("Select campo1, campo2 From tabella4 Where
campo3=" & chr(34) & me!campo3 & chr(34))
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
> Devi, non hai scelta; invece di usare una tabella, il recordset lo crei
con
> una query:
> es.
> '---> se numerico
> Set rst = CurrentDb.OpenRecordset("Select campo1, campo2 From tabella4
Where
> campo3=" & me!campo3)
>
> '---> se testo
> Set rst = CurrentDb.OpenRecordset("Select campo1, campo2 From tabella4
Where
> campo3=" & chr(34) & me!campo3 & chr(34))
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
Ciao Sergio...grazie a te sono riuscito finalmente a risolvere questo
problema che mi dannava... GgRGgrR :) per ultimare il tutto volevo chiederti
solo una cosa...
Innanzitutto ti posto il codice usato:
Private Sub Form_Current()
    Dim rst As DAO.Recordset, stringaCMB As String, passo As Integer
    Set rst = CurrentDb.OpenRecordset("Select Tipo_posto1, Tipo_posto2,
Tipo_posto3, Tipo_posto4, Tipo_posto5, Tipo_posto6 From [Immissione dati
luogo] Where Nome_Luogo =" & Chr(34) & [Forms]![Intestazione]![Luogo] &
Chr(34))
    stringaCMB = ""
    passo = 0
    Do While Not rst.EOF
    stringaCMB = stringaCMB & ";" & rst("Tipo_posto1") & ";" &
rst("Tipo_posto2") & ";" & rst("Tipo_posto3") & ";" & rst("Tipo_posto4") &
";" & rst("Tipo_posto5") & ";" & rst("Tipo_posto6")
    rst.MoveNext
    Loop
    rst.Close
    Set rst = Nothing
    Me!CasellaCombinata1.RowSource = Mid(stringaCMB, 2)
End Sub
Allora....come mai quando dalla maschera "Intestazione" seleziono il luogo,
nella sottomaschera non mi aggiorna in automatico le voci della casella
combinata? E poi in ultimo vorrei che le i campi vuoti non comparissero
nella casella combinata....posso usare il comando if null ?
Grazie mille di tutto in partenza...


title: Casella combinata da + campi

text:
"Triballo" <
don...@il.me
> ha scritto nel messaggio
news:ruZzb.7904$5o6....@tornado.fastwebnet.it...

Errata Corrige: il primo problema in effetti l'ho risolto creando una macro
che riesegue la query in questione....però rimane il fatto che vorrei non
comparissero nella casella combinata i campi vuoti....
CiAuzzZzz


title: Casella combinata da + campi

text:
"Triballo" <
don...@il.me
> ha scritto nel messaggio
news:oEZzb.7931$5o6....@tornado.fastwebnet.it...
>
> Errata Corrige: il primo problema in effetti l'ho risolto creando una
macro
> che riesegue la query in questione....però rimane il fatto che vorrei non
> comparissero nella casella combinata i campi vuoti....
>
> CiAuzzZzz
>
Inserisci il test nella stringa:
stringaCMB = stringaCMB & IIF(IsNull(rst("Tipo_posto1"));Null;";" &
rst("Tipo_posto1")) & IIF(IsNull(rst("Tipo_posto2"));Null;";" &
rst("Tipo_posto2")) etc. etc.
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
> Inserisci il test nella stringa:
> stringaCMB = stringaCMB & IIF(IsNull(rst("Tipo_posto1"));Null;";" &
> rst("Tipo_posto1")) & IIF(IsNull(rst("Tipo_posto2"));Null;";" &
> rst("Tipo_posto2")) etc. etc.
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
Hmmmm.... :(    Sergio ho provato ma mi da un errore di compilazione di
sintassi....
    Do While Not rst.EOF
    stringaCMB = stringaCMB & IIF(IsNull(rst("Tipo_posto1"));Null;";" &
rst("Tipo_posto1")) & IIF(IsNull(rst("Tipo_posto2"));Null;";" &
rst("Tipo_posto2")) & IIF(IsNull(rst("Tipo_posto3"));Null;";" &
rst("Tipo_posto3")) & IIF(IsNull(rst("Tipo_posto4"));Null;";" &
rst("Tipo_posto4")) & IIF(IsNull(rst("Tipo_posto5"));Null;";" &
rst("Tipo_posto5")) & IIF(IsNull(rst("Tipo_posto6"));Null;";" &
rst("Tipo_posto6"))
    rst.MoveNext
    Loop
Dove ho sbagliato ?!?!?


title: Casella combinata da + campi

text:
"Triballo" <
don...@il.me
> ha scritto nel messaggio
news:dU_zb.8086$5o6....@tornado.fastwebnet.it...
> Hmmmm.... :(    Sergio ho provato ma mi da un errore di compilazione di
> sintassi....
>
>     Do While Not rst.EOF
>     stringaCMB = stringaCMB & IIF(IsNull(rst("Tipo_posto1"));Null;";" &
> rst("Tipo_posto1")) & IIF(IsNull(rst("Tipo_posto2"));Null;";" &
> rst("Tipo_posto2")) & IIF(IsNull(rst("Tipo_posto3"));Null;";" &
> rst("Tipo_posto3")) & IIF(IsNull(rst("Tipo_posto4"));Null;";" &
> rst("Tipo_posto4")) & IIF(IsNull(rst("Tipo_posto5"));Null;";" &
> rst("Tipo_posto5")) & IIF(IsNull(rst("Tipo_posto6"));Null;";" &
> rst("Tipo_posto6"))
>     rst.MoveNext
>     Loop
>
> Dove ho sbagliato ?!?!?
>
Dopo la & non c'č accapo eh. E' tutta una riga...
Ciao.
--
Sergio MAZZA


title: Casella combinata da + campi

text:
>
> Dopo la & non c'č accapo eh. E' tutta una riga...
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
>
Infatti l'ho scritto tutto di seguito.....ma continua a darmi errore di
sintassi.... :(


title: Casella combinata da + campi

text:
"Triballo" <
don...@il.me
> ha scritto nel messaggio
news:_N0Ab.8372$5o6....@tornado.fastwebnet.it...
>
> Infatti l'ho scritto tutto di seguito.....ma continua a darmi errore di
> sintassi.... :(
CACCHIO!! Che scemo!
Sostituisci i punti e virgola con le virgole come separatori dell'IIF:
es.
stringaCMB = stringaCMB & IIF(IsNull(rst("Tipo_posto1")),Null,";" &
rst("Tipo_posto1")) & IIF(IsNull(rst("Tipo_posto2")),Null,";" &



title: Casella combinata da + campi

text:
> CACCHIO!! Che scemo!
> Sostituisci i punti e virgola con le virgole come separatori dell'IIF:
> es.
> stringaCMB = stringaCMB & IIF(IsNull(rst("Tipo_posto1")),Null,";" &
> rst("Tipo_posto1")) & IIF(IsNull(rst("Tipo_posto2")),Null,";" &
> rst("Tipo_posto2")) etc. etc.
>
> Ciao.
>
> --
> Sergio MAZZA
>
Hehhehehehehe ..... dai don't worry....cmq adesso funziona alla
grande....GRAZIE mille Sergio...
spero che questo post di 300 metri sia di aiuto anche ad altre persone
CiAuZzZz


title: sopstare il cursore dal record vuoto

author: Luigi

text:
ciao a tutti

ho maschera con sottomaschera.
Nella maschera ho un pulsante per aprire un report,
ma se il cursore si trova nell'ultimo record vuoto
della sottomaschera il report non si apre.

Come faccio a spostare il cursore
se questo si trova sull'ultimorecord vuoto
della sottomaschera
p.e. sul primo record della stessa o altro
purch� non vuoto?
Grazie


title: sopstare il cursore dal record vuoto

text:
"Luigi" <
Lui...@nospambero.it
> ha scritto nel messaggio
news:514ec46d$0$37124$4faf...@reader1.news.tin.it...

ho provato in questi due modi, ma nulla

Me![Dettagli].Setfocus
DoCmd.GoToRecord acDataForm, "Dettagli", acFirst

Me![Dettagli].SetFocus
Me![Dettagli].Form.RecordsetClone.MoveFirst
Me![Dettagli].Form.Bookmark = Me![Dettagli].Form.RecordsetClone.Bookmark


title: sopstare il cursore dal record vuoto

text:

Non si apre perchè non può, ovviamente.....il record non esiste....cosa devi fare di preciso? Aprire il report sul record corrente immagino. Bene, allora alla pressione del tasto controlli se il record corrente è valido. Se no, non apri.


title: sopstare il cursore dal record vuoto

text:
"Fair87" <
roby...@gmail.com
> ha scritto nel messaggio
news:f61cac20-75bd-4bcb...@googlegroups.com...
Il giorno domenica 24 marzo 2013 20:32:03 UTC+1, Luigi ha scritto:
> "Luigi" <
Lui...@nospambero.it
> ha scritto nel messaggio
>
> news:514ec46d$0$37124$4faf...@reader1.news.tin.it...
>
> > ciao a tutti
>
> >
>
> > ho maschera con sottomaschera.
>
> > Nella maschera ho un pulsante per aprire un report,
>
> > ma se il cursore si trova nell'ultimo record vuoto
>
> > della sottomaschera il report non si apre.
>
> >
>
> > Come faccio a spostare il cursore
>
> > se questo si trova sull'ultimorecord vuoto
>
> > della sottomaschera
>
> > p.e. sul primo record della stessa o altro
>
> > purch? non vuoto?
>
> > Grazie
>
> ho provato in questi due modi, ma nulla
>
>
>
> Me![Dettagli].Setfocus
>
> DoCmd.GoToRecord acDataForm, "Dettagli", acFirst
>
>
>
> Me![Dettagli].SetFocus
>
> Me![Dettagli].Form.RecordsetClone.MoveFirst
>
> Me![Dettagli].Form.Bookmark = Me![Dettagli].Form.RecordsetClone.Bookmark

Non si apre perch� non pu�, ovviamente.....il record non esiste....cosa devi
fare di preciso? Aprire il report sul record corrente immagino. Bene, allora
alla pressione del tasto controlli se il record corrente � valido. Se no,
non apri.

Ciao Fair87

in effetti � proprio questo l'errore.
grazie


title: duplicare record

author: Akery

text:
buongiorno,
su una maschera ho inserito un pulsante duplica record, e in effetti duplica
tutti i campi in una nuova maschera, purtroppo la sottomaschera non viene
duplicata. Come si può procedere affinchè venga duplicata sia maschera che
sottomaschera?
Grazie
Akery

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


title: duplicare record

text:
In una relazione 1-M, chiaramente devi prima avere un Record lato 1 e poi puoi inserire il/i Record/s lato Molti...

Non esiste una Macro che faccia tutto... devi scrivere in VBA del codice che consenta di Duplicare il Record lato 1
1) Memorizzi la PK del Record da copiare lato 1 come OLDPK
2) Duplichi il Record lato 1
3) Recuperi la NEWPK del record lato 1(farà da FK del Record lato M)
4) Estrai il Record lato M usando come FK=OLDPK, così ricavi i dati da duplicare e li scrivi nella Tabella lato M in addnew, usando la NEWPK come FK...

Fatto...

@Alex


title: duplicare record

text:
il principio l'ho capito ma per me è complicato, conosco il VBA in modo
molto elementare, ci sarebbe qualcosa di più semplice da fare?
Akery

"@Alex"  ha scritto nel messaggio
news:f2b62f76-7e7c-4879...@googlegroups.com...




title: duplicare record

text:
Il giorno martedì 21 luglio 2015 20:19:54 UTC+2, Akery ha scritto:
> il principio l'ho capito ma per me è complicato, conosco il VBA in modo
> molto elementare, ci sarebbe qualcosa di più semplice da fare?
> Akery

Si, eccome... farlo fare a chi lo sa fare...!

@Alex


title: duplicare record

text:
volevo intendere se c'era la possibilità di evitare l'uso di VBA, magari
utilizzando solo le macro dove sono un po più pratico.

"@Alex"  ha scritto nel messaggio
news:bef16495-b735-475a...@googlegroups.com...




title: duplicare record

text:
I passaggi che ti ho esposto ti sono chiari...?

Abbiamo 2 opzioni:
NO non sono chiari, parliamone ancora.
SI sono chiari, allora non conosci le MACRO.

Non si può fare quello che ti ho esposto con MACRO, oltretutto andrebbe rinchiuso in una TRANSAZIONE ad essere tecnici.

@Alex


title: duplicare record

text:

ciao
condivido la soluzione che ho trovato e che sto testando, per ora pare funzionare bene e ne approfitto per chiedere ad Alex di segnalarmi eventuali errori.
Nel mio caso si tratta di una maschera preventivi con sottomashera da duplicare in una maschera commissioni con sottomaschera.

procedo così:
sul pulsante duplica inserisco il seguente codice:

[CODE]
Private Sub CmdCrea_Click()
If MsgBox("Vuoi duplicare i dati per creare una Commissione?", vbInformation + vbYesNo, "CONFERMA DUPLICAZIONE DATI") = vbYes Then

Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim Tabella1 As DAO.Recordset

'Apro le tabelle origine dati delle maschere
Set DBCorrente = CurrentDb
Set Tabella = DBCorrente.OpenRecordset("Preventivo", dbOpenDynaset)
Set Tabella1 = DBCorrente.OpenRecordset("Commissione")

'Cerco il dato della maschera principale
Tabella.FindFirst "IDpreventivo = " & Me!IDpreventivo

'Se non lo trovo non non duplica il dato
If Tabella.NoMatch = False Then
         Tabella1.AddNew
         Tabella1.Fields("IDcommissione") = Tabella1.Fields("IDcommissione")
         Tabella1.Fields("IDclienti") = Tabella.Fields("IDclienti")
         Tabella1.Fields("Categoria") = Tabella.Fields("Categoria")
         Tabella1.Fields("Modello1") = Tabella.Fields("Modello1")
         Tabella1.Fields("Testo1") = Tabella.Fields("Testo1")
         Tabella1.Update
End If

'Chiusura tabelle
Tabella.Close
Tabella1.Close
DBCorrente.Close

'Apro la query che crea una tabella in cui copia le righe della sottomaschera
DoCmd.SetWarnings False
DoCmd.OpenQuery "QueryCopiaPerCommissione"
DoCmd.SetWarnings True

'apro la maschera
DoCmd.OpenForm "COMMISSIONE", acNormal

'apro la query che incolla le righe nella maschera di destinazione
DoCmd.SetWarnings False
DoCmd.OpenQuery "QueryIncollaPerCommissione"
DoCmd.SetWarnings True

Form_COMMISSIONE.Recalc

'chiudo la maschera con il comando duplica i dati
DoCmd.Close acForm, "PREVENTIVO"
End If
End Sub
[\CODE]

le Query sono le seguenti:
QueryCopiaPerCommissione
[CODE]
SELECT PreventivoRighe.IDpreventivo, PreventivoRighe.Articolo, PreventivoRighe.Prezzo, PreventivoRighe.Quantità INTO CopiaPerCommissione
FROM PreventivoRighe
WHERE (((PreventivoRighe.IDpreventivo)=[Maschere]![PREVENTIVO]![IDpreventivo]))
ORDER BY PreventivoRighe.IDpreventivo;

[\CODE]

QueryIncollaPerCommissione
[CODE]
INSERT INTO CommissioneRighe ( IDcommissione, Articolo, Prezzo, Quantità )
SELECT Commissione.IDcommissione, CopiaPerCommissione.Articolo, CopiaPerCommissione.Prezzo, CopiaPerCommissione.Quantità
FROM Commissione, CopiaPerCommissione
WHERE (((Commissione.IDcommissione)=[Maschere]![COMMISSIONE]![IDcommissione]))
ORDER BY Commissione.IDcommissione;
[\CODE]


title: Finestra selezione FILE

author: Ricky

text:
Qualcuno sa' dirmi come si fa' a richiamare la maschera di apri file.
Attendo fiducioso.
Alla prossima
Ricky


title: Finestra selezione FILE

author: Luciano

text:
Ricky ha scritto nel messaggio <8g3in8$j7k$
1...@serv1.iunet.it
>...
>Qualcuno sa' dirmi come si fa' a richiamare la maschera di apri file.
>Attendo fiducioso.
Con una API che trovi sul sito comune.
Saluti.
Luciano


title: Necessario oggetto (errore 424). Aggiornare una sottomaschera indipendente (non sincronizzata).

author: Bruno - S95

text:
Access 2003 / 2010

Di nuovo ciao a tutti

Ho una form principale maschera singola con anche un controllo immagine,
questa form � sincronizzata con altra sottomaschera foglio dati che mostra i
vari record relazionati, infine c'� una terza sottomaschera non
sincronizzata che contiene un altro controllo immagine  che mostra la foto
relativa al record selezionato della sottomaschera foglio dati. L'immagine
relativa al record selezionato della form foglio datistra lviene mostrata in
automatico solo per il primo record, infatti se seleziono un altro record la
maschera/controllo non sincronizzata non si aggiorna automaticamente. Ho
risolto temporaneamente selezionando il record di interesse nella maschera
foglio dati e poi andando sul campo della form non sincronizzata,ove �
presente il percorso della foto, e con doppio clic aggiorno il percorso e di
conseguenza l'immagine. Cos� � poco pratico e pertanto ho cercato di
aggiornare in automatico inserendo il codice seguente su record corrente
della form foglio dati, in modo che selezionando il record aggiorni anche la
form non sincronizzata, ma da errore " necessario oggetto Errore di Run-Time
424". Sono andato nell'help ma non ci ho capito un fico secco. Non ho idea
su come utilizzare il Set dell'oggetto di cui parla. Ho cercato anche in
rete ma non ci ho capito nulla comunque.
ahooo, non sar� mica negato?

Come posso fare questo set dell'oggetto mancante?
Esite un trucco per sincronizzare una form foglio dati con altra form
separata che contiene oltre al campo per poterle sincronizzare anche il
controllo immagine? Ricordando che la form foglio dati � la sottomaschera
sincronizzata con la form con visusualizzazione record singolo.

Mille grazie, Bruno

Maschere![frm_Inventario]![Sfrm_InvSic_Figli_Foto].Scheda![Percorso1].SetFocus
Me.Refresh

Maschere![frm_Inventario]![Sfrm_InvSic_Figli_Foto].Scheda![Percorso1].Refresh

Maschere![frm_Inventario]![Sfrm_InvSic_Figli_Foto].Scheda![Percorso1].Recalc

Maschere![frm_Inventario]![Sfrm_InvSic_Figli_Foto].Scheda![Percorso1].Repaint

--------------------------

Necessario oggetto (errore 424)
Vedere anche     Informazioni aggiuntive

I riferimenti a propriet� e metodi richiedono spesso un qualificatore di
oggetto esplicito. Cause e soluzioni dell'errore:

  a.. � stato fatto riferimento ad una propriet� o metodo specificando un
qualificatore di oggetto non valido.
  Specificare il qualificatore di oggetto se non � stato specificato. Il
qualificatore di oggetto pu� essere omesso quando, ad esempio, si fa
riferimento ad una propriet� di un form all'interno del modulo del form
stesso, ma deve essere specificato in modo esplicito quando si fa
riferimento alla propriet� da un modulo standard.

  b.. Il qualificatore di oggetto specificato non � riconosciuto come
oggetto.
  Controllare l'ortografia del qualificatore e assicurarsi che l'oggetto sia
riconosciuto nella parte del programma in cui vi � stato fatto riferimento.
Nel caso di oggetti Collection, controllare che la sintassi e l'ortografia
dei componenti del metodo Add siano corrette.

  c.. � stato specificato un qualificatore di oggetto valido, ma alcune
parti della chiamata includono un errore.
  � possibile che l'errore sia causato da un percorso non corretto indicato
come argomento per il comando File Apri di una applicazione host.
Controllare gli argomenti.

  d.. Non � stata utilizzata l'istruzione Set per l'assegnazione di un
riferimento di oggetto.
  Se si assegna il valore restituito da una chiamata CreateObject ad una
variabile Variant, l'omissione dell'istruzione Set non comporta
necessariamente un errore. Nell'esempio di codice seguente, viene creata
un'istanza implicita di Microsoft Excel e la corrispondente propriet�
predefinita, ovvero la stringa "Microsoft Excel" viene restituita e
assegnata alla variabile Variant RetVal. L'errore viene generato da un
tentativo successivo di utilizzare RetVal come riferimento di oggetto:

Dim RetVal                        ' Variant implicita.
' La propriet� predefinita viene assegnata a
' Type 8 Variant RetVal.
RetVal = CreateObject("Excel.Application")
RetVal.Visible = True            ' Si verifica l'errore.
Utilizzare l'istruzione Set per l'assegnazione di un riferimento di oggetto.

  e.. In casi rari, questo errore viene generato in presenza di un oggetto
valido quando si cerca di eseguire un'operazione non valida sull'oggetto. �
possibile, ad esempio, che questo errore venga visualizzato se si cerca di
assegnare un valore a una propriet� di sola lettura.
  Controllare la documentazione dell'oggetto e verificare che l'operazione
che si sta cercando di eseguire sia valida.

  f.. ------------------------------------


title: Realizzare un report a tabella

author: Pål

text:
Salve a tutti, volevo un consiglio su come realizzare il seguente report.
Ho un database in cui inserisco dei film che partecipano a festival.
Tra i campi di una tabella ho i seguenti: lunghezza del film, la sala di
proiezione e la data di proiezione.
Vorrei che in un report mi apparisse una tabella in cui ogni riga è una
delle date del festival a cui sono iscritti i film e le colonne sono i
diversi giorni.
All'incrocio di righe e colonne vorrei trovare la durata dei film di quel
giorno (cioè la somma dei tempi di tutti i film che sono stati proiettati
per esempio nella sala A il 15 Giugno)
LA mia difficoltà è data dal fatto che per ogni festival il numero dei
giorni e i nomi delle sale sono differenti e quindi la tabella è molto
"dinamica".
Qualche idea su come realizzare ciò? Come posso creare una query a cui
appoggiarmi e soprattutto come posso far diventare la query un report a
tabella?
Spero di essermi spiegato abbastanza chiaramente!.
Paolo


title: Realizzare un report a tabella

author: Roberto dal portatile

text:
"Pål" <
t...@io.no
> ha scritto nel messaggio
news:1Oqvg.46003$zy5.9...@twister1.libero.it...

Ti ho risposto nell'altro NG.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Errore runtime 3070

author: Giulio Severini

text:
In relazione al seguente codice
Dim RS as dao.recordset
Set RS=Me.recordsetclone
RS.Findfirst "[Cognome]='"& me.txtNome &"'"
If RS.nomatch then
msgbox "non trovato"
else
Me.bookmark=rs.bookmark
endif
immesso nell'evento Enter del controllo txtNome, ottengo il seguente
errore di runtime:
Errore runtime '3070'
Il modulo di Gestione di Database Microsoft Jet non riconosce 'Falso' come
nome di campo o espressione valida.
La riga incriminata è rs.Findfirst "[Nome]"="&me.txtNome&"
Due considerazioni:
1. il codice che mi è stato gentilmente passato aveva alla riga
incriminata ='"&me.cogn&"" ma le due virgolette VB me le considera errore.
2. txtNome è un campo in una maschera principale che, in base al nome
digitato, deve farmi apparire i dati della persona nei controlli contenuti
in una sottomaschera a sua volta contenuta in un controllo a schede.
In sintesi:
MascheraPrincipale ---->txtNome
|
Controllo a schede
|
sottomaschera1----->txtSubNome
Se io immetto il nome 'Antonio' in txtNome e premo invio, deve apparirmi
Anotnio in txtSubNome e in tutti gli altri controlli della sottomaschera
devono apparirmi i suoi dati: Cognome, Data di nascita ecc..eccc......
Vi chiedo veramente scusa se posto per ogni cosa me questa notte sono
stato sveglio fino all'una per questo db, ed inoltre sto finendo
un'antologia di racconti e sto anche
studiando....AIUTOOOOOOOOOOOOOOOOOOOOOOO!
Un abbraccio!!!!!
--
FIRMA BAU BAU MICIO MICIO - Un tale disse a un tale 'Tu sei tale e quale a
un tale'. Il tale chiese al tale 'Tale e quale a quale tale?'. Non sapendo
a quale tale fosse tale e quale il tale, il tale se ne andò. Convinto che
quel tale a qualche tale fosse proprio tale e quale.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Errore runtime 3070

author: Bruno Campanini

text:
"Giulio Severini" <
giulio....@ministero.difesa.it
> wrote in message
news:d5qra9$iml$1...@news.newsland.it...
> In relazione al seguente codice
>
> Dim RS as dao.recordset
> Set RS=Me.recordsetclone
> RS.Findfirst "[Cognome]='"& me.txtNome &"'"
> If RS.nomatch then
> msgbox "non trovato"
> else
> Me.bookmark=rs.bookmark
> endif
>
> immesso nell'evento Enter del controllo txtNome, ottengo il seguente
> errore di runtime:
>
> Errore runtime '3070'
Metti il codice in AfterUpdate di [txtNome].
Che senso ha metterlo in OnEnter?
Tutte le volte che lo selezioni per scrivervi
qualcosa ti dà errore.
Bruno


title: Errore runtime 3070

author: Roccia Max De Poli

text:
Giulio, hai fatto caso che nella riga
rs.Findfirst "[Nome]"="&me.txtNome&"
ci dovrebbero essere degli apicetti ( ' )? Al posto di questi
cancelletti
rs.findfirst "[Nome]=#" & me.txtNome & "#"
Altrimenti non qualifichi come testo la stringa da cercare e succede un
casino...
Inotlre, come ti spiego nell'altro post, e come dice l'amico Bruno,
questa roba nell'evento Enter non serve a uno zuffolo.
cia'
Max


title: Errore runtime 3070

author: MA

text:

Uguale Apice Doppioapice Ecommerciale Tuotext Ecommerciale DoppioApice Apice
DoppioApice
--
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: Tempo trascorso tra due orari lavorativi

author: eliop

text:
Ciao a tutti.
Devo calcolare il tempo (giorni - ore - minuti)
trascorso tra due date lavorative,
tenendo conto che sabato e domenica
e le feste non si lavora, e che l'orario parte dalle
9 alle 12 e dalle 13 alle 18.
es.:
data1: venerdi ore 17,30
data 2: lunedi ore 9,30
tempo trascorso: 1 ora
Sul sito comune c'e' un'interessante routine
di Paolo Bizzaro che pero' conta solo
i giorni.
Qualcuno ha gia' affrontato il tema ?
Grazie.
Ciao. ElioP.


author: CarloCos

text:
"eliop" <
el...@logical.it
> ha scritto nel messaggio
news:3af4f261...@news.libero.it...

Leggiti la Funzione DateDiff č un buon punto di partenza.
Ciao, Carlo


title: Salvare PDF da report in modo consecutivo - Nome file come filtro query

author: MC

text:
Buongiorno a tutti!
Tramite il seguente codice (grazie ad un vecchio post di namor), posso
stampare il mio report di 600 pagine suddiviso per 98 agenti si carta e
in modo automatico gestisce la numerazione della pagine report 1 di x
...
... Se imposto come stampante predefinita ADOBE PDF, il sistema mi
chiede di nominare il file ...
io vorrei che le 98 stampe si salvassero recuperando come nome file il
valore del campo "CODICE" usato come filtro nella seguente formula.
Cosa fare e come?
Grazie a tutti per eventuali risposte e buon proseguimento,
'Codice utilizzato per stampare n report filtrati da campo "codice":
Private Sub Comando24_Click()
On Error GoTo Err_Comando24_Click
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT codice FROM
[2_Concessionario_DettaglioEvasioni] GROUP BY [codice] ORDER BY
codice;")
If rst.RecordCount > 0 Then
With rst
.MoveFirst
While Not .EOF
DoCmd.OpenReport "Dett_Evasioni_Concessionario", acViewNormal, ,
"codice=""" & !CODICE & """"
.MoveNext
Wend
End With
End If
rst.Close: Set rst = Nothing
Exit_Comando24_Click:
    Exit Sub
Err_Comando24_Click:
    MsgBox Err.Description
    Resume Exit_Comando24_Click
End Sub


author: Gaspare

text:
[CUT]
Ciao,
se ho ben capito puoi crearti un'array di stinghe dove raccogliere il
codice...qualcosa del genere insomma
Dim rst As DAO.Recordset
----
Dim contatore As Integer
Dim nomereport(98) As String
contatore = 0
----
Set rst = CurrentDb.OpenRecordset("SELECT codice FROM
[2_Concessionario_DettaglioEvasioni] GROUP BY [codice] ORDER BY
codice;")
If rst.RecordCount > 0 Then
With rst
.MoveFirst
While Not .EOF
DoCmd.OpenReport "Dett_Evasioni_Concessionario", acViewNormal, ,
"codice=""" & !CODICE & """"
---
nomereport(contatore) = CODICE & ".pdf"
.MoveNext
contatore=contatore + 1
---
Wend
End With
End If
rst.Close: Set rst = Nothing
--------
in questo modo ti rimangono in memoria tutti i codici...occhio a non andare
al di là del 98esimo ;-)
Altre idee non me ne vengono :-(
Buona serata :-)


text:
"Gaspare" <
em...@provider.it
> ha scritto nel messaggio
news:SmOrh.188$tW3...@nntpserver.swip.net...

come al solito una l'ho sparata ( sto migliornado cmq ;-) il CODICE va
convertito in stringa quindi
nomereport(contatore) = CStr(CODICE) & ".pdf"
...che vuoi...la terza età avanza ;-)


text:
[cut]
grazie Gaspare .... ni ... mi dava errore sul nome file quindi l'ho
corretta così:
Private Sub CMD_CREA_PDF_Click()
Dim rst As DAO.Recordset
Dim CONTATORE As Integer
Dim nomereport(94) As String
Dim nomevecchio, nomenuovo, nomefile As String
CONTATORE = 0
Set rst = CurrentDb.OpenRecordset("SELECT codice FROM
[2_Concessionario_DettaglioEvasioni] GROUP BY [codice] ORDER BY
codice;")
If rst.RecordCount > 0 Then
With rst
.MoveFirst
While Not .EOF
DoCmd.OpenReport "Dett_Evasioni_Concessionario", acViewNormal, ,
"codice=""" & !CODICE & """"
nomefile = !CODICE + ".pdf"
nomevecchio = "C:\Documents and
Settings\OEPOP1\Documenti\Dett_Evasioni_Concessionario.pdf"
nomenuovo = "C:\Documents and Settings\OEPOP1\Documenti\" & nomefile
Name nomevecchio As nomenuovo
.MoveNext
CONTATORE = CONTATORE + 1
Wend
End With
End If
rst.Close: Set rst = Nothing
End Sub
problema ... dopo la stampa su pdf mi si apre il file e blocca l'azione
successiva ... posso impedire l'apertura del pdf dopo la creazione?
Grazie per il prezioso aiuto!


text:
[cut]
risolto dalle preferenze di stampa del pdf!


title: Codice di verifica di maschera aperta

text:
Ho Inserito in un modulo la seguente function:
Public Function Aperta(ByVal strNomeMaschera As String) As Boolean
' Restituisce True se la maschera è già stata caricata.
    Const conVisualizzazioneStruttura = 0
    Const conStatoOggettoChiuso = 0
    Aperta = False
    If SysCmd(acSysCmdGetObjectState, acForm, strNomeMaschera) <>
conStatoOggettoChiuso Then
        If Forms(strNomeMaschera).CurrentView <> conVisualizzazioneStruttura
Then
            Aperta = True
        End If
    End If
End Function
Poi in una sottomaschera questo codice:
Private Sub Form_Current()
If Aperta("SM_2_LOCATION_CDC") Then
Forms!SM_2_LOCAZION_CDC.Filter = "COD_LOC= " & "'" &
Forms!ms_fabbricati!S_MS_Locazione![COD_LOC] & "'"
End If
End Sub
Ora la domanda è questa: Perchè la maschera popup SM_2_LOCATION_CDC non si
aggiorna.
Premetto che se mi accerto di aver aperto la maschera "SM_2_LOCATION_CDC" e
scrivo semplicemente nella private sub:
Forms!SM_2_LOCAZION_CDC.Filter = "COD_LOC= " & "'" &
Forms!ms_fabbricati!S_MS_Locazione![COD_LOC] & "'"
tutto funziona perfettamente. Presumo pertanto che l'errore sia nella
funzione "Aperta" ma non riesco a capire dove é l'errore.
Marco


title: Codice di verifica di maschera aperta

text:
"maga58" <
mag...@libero.it
> ha scritto nel messaggio
news:8Nbc8.17377$eD3.6...@twister1.libero.it...

Scusate il disturbo ma l'errore era nella vista....
In questa stringa c'è un errore di scrittura:
no
If Aperta("SM_2_LOCATION_CDC") Then
ma
If Aperta("SM_2_LOCAZION_CDC") Then
Ciao a tutti
Marco


title: Riferimento Form Parent

author: RinoŽ

text:
Utilizzando una funzione prelevata dal Sito Comune
per abilitare o disabilitare controlli di una Form
come poter utilizzare tale funzione per abilitare o disabilitare
controlli di una Sub Form da una Form Principale?
Grazie
Rino Ferrari
Posto il modulo utilizzato:
Public Function ControlSource(Bl As Boolean)
'Routine che ASSOCIA/DISASSOCIA i controlli nella Form.Parent
'Che hanno la proprietą TAG settata
  On Error Resume Next
   Dim ctl As Control
   Select Case Bl
      Case Associa
         For Each ctl In Form.Controls
            If Len(ctl.Tag) > 0 Then
               Select Case ctl.ControlType
                  Case acTextBox, acComboBox, acListBox
                     ctl.BackColor = -
2147483633
 'Colore Grigio
               End Select
               ctl.Enabled = False
               ctl.Locked = True
            End If
         Next
      Case Disassocia
         For Each ctl In Form.Controls
            If Len(ctl.Tag) > 0 Then
               Select Case ctl.ControlType
                  Case acTextBox, acComboBox, acListBox
                     ctl.BackColor = 13434879 'Colore Giallo
               End Select
               ctl.Enabled = True
               ctl.Locked = False
            End If
         Next
   End Select
End Function


title: Riferimento Form Parent

author: Sergio MAZZA

text:
"Rino®" <
rinof...@virgilio.it
> ha scritto nel messaggio
news:T7h_d.667179$b5.30...@news3.tin.it...
> Utilizzando una funzione prelevata dal Sito Comune
> per abilitare o disabilitare controlli di una Form
> come poter utilizzare tale funzione per abilitare o disabilitare
> controlli di una Sub Form da una Form Principale?
>
> Grazie
> Rino Ferrari
>
>
> Posto il modulo utilizzato:
>
>
> Public Function ControlSource(Bl As Boolean)
> 'Routine che ASSOCIA/DISASSOCIA i controlli nella Form.Parent
> 'Che hanno la proprietà TAG settata

(a braccio)
For Each ctl In Me!nomeSubForm.Form.Controls
Ciao.
--
Sergio MAZZA


title: Riferimento Form Parent

text:
>
>
> (a braccio)
> For Each ctl In Me!nomeSubForm.Form.Controls
>
> Ciao.
>
> --
> Sergio MAZZA
Thank you many
Rino Ferrari


title: VBA: come si dice "tutti" nel codice?

author: sdamy

text:
Ciao a tutti,
volevo sapere quale sintassi devo usare, in una istrizione SQL nel codice,
per dire tutti...
select .....  where otclie = stringa
stringa puo' assumere diversi valori... però vorrei anche che potesse
assumere lo stato "TUTTI"
GRAZIE


title: VBA: come si dice "tutti" nel codice?

author: Silvio Berruti

text:
"sdamy" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:TPzA6.11149$r67.2...@news2.tin.it...

Guarda sul Sito Comune, se ricordo bene c'è qualcosa di molto simile.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: VBA: come si dice "tutti" nel codice?

author: Luciano (DOC)

text:
"sdamy" <
sd...@tiscalinet.it
> wrote in message
news:TPzA6.11149$r67.2...@news2.tin.it...
> volevo sapere quale sintassi devo usare, in una istrizione SQL nel codice,
> per dire tutti...
>
> select .....  where otclie = stringa
"....where otclie =  '*'"
Saluti.
Luciano
(DOC)


title: VBA: come si dice "tutti" nel codice?

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
r3BA6.139998$lj4.4...@news6.giganews.com...

Grazie 1000 X il suggerimento...
CIAO CIAO
DAMIANO


title: VBA: come si dice "tutti" nel codice?

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
r3BA6.139998$lj4.4...@news6.giganews.com...
>

 Scusami ma ste stringhe SQL mi stanno facendo impazzire....
dovrei testare il valore di un controllo posto in una maschera (tipo_cli)
... può anche assumere il valore "*" ed in tal caso la striga SQL dovrebbe
estrarmi tutti i record...
cosa sbaglio in questa sintassi?
where otclie like Me!tipo_cli
 GRAZIE
DAMIANO


title: VBA: come si dice "tutti" nel codice?

text:
sdamy ha scritto nel messaggio ...
> Scusami ma ste stringhe SQL mi stanno facendo impazzire....
>dovrei testare il valore di un controllo posto in una maschera (tipo_cli)
>... può anche assumere il valore "*" ed in tal caso la striga SQL dovrebbe
>estrarmi tutti i record...
>
>cosa sbaglio in questa sintassi?
>
>where otclie like Me!tipo_cli
Scusa, ma all'SQL chi glie lo dice che cos'e' Me?
Devi passargli tutta la pappardella della maschera: Forms!nomeform!tipo_cli.
Se non sei sicuro della sintassi, fallo col query builder poi copi e incolli
dove vuoi.
Saluti.
Luciano
(DOC)


title: VBA: come si dice "tutti" nel codice?

author: Sib dal portatile

text:
"sdamy" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:TPzA6.11149$r67.2...@news2.tin.it...

Invece di = usa like
"otclie like stringa"
Quando stringa="*" te li prende tutti.
Sul sito comune trovi esempi interessanti in questo senso.
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: VBA: come si dice "tutti" nel codice?

text:
Sib dal portatile <
sibN...@iol.it
> wrote in message
jLMA6.5146$xC3.1...@news.infostrada.it...
> "sdamy" <
sd...@tiscalinet.it
> ha scritto nel messaggio
> news:TPzA6.11149$r67.2...@news2.tin.it...
> > Ciao a tutti,
> >
> > volevo sapere quale sintassi devo usare, in una istrizione SQL nel
codice,
> > per dire tutti...
> >
> > select .....  where otclie = stringa
> >
> > stringa puo' assumere diversi valori... perň vorrei anche che potesse
> > assumere lo stato "TUTTI"
>
> Invece di = usa like
> "otclie like stringa"
> Quando stringa="*" te li prende tutti.
> Sul sito comune trovi esempi interessanti in questo senso.
>
> Sib
>
> --
> ----------------------------------------------------
> la mia home:
>
http://digilander.iol.it/syb
> ----------------------------------------------------
> il sito comune di it.comp.database.access:
>
http://www.sitocomune.com
> ----------------------------------------------------
> 4000 anni fa', il saggio egizio Ptahhotep scrisse:
> "... perche' non esistono saggi per nascita."
> ------------------------------------------------------
> Saturiamo ECHELON:
> bomba saddam attentato medio oriente
>
>
>
GRAZIE!!!
DAMIANO


title: VBA: come si dice "tutti" nel codice?

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
9avr6o$f0v$2...@news.mclink.it...

GRAZIE
DAMIANO


title: gestionale in  multiutenza

text:
Ciao a tutti. Ho un consiglio da chiedervi prima di mettere le mani approfonditamente su un db già in uso......
Da monoutente deve diventare multiutente (3 max 4 accessi, di cui 2 fortemente concorrenti)
Io ho provato in questa maniera:
Access 2003 e win XP
Imposto strumenti-opzioni-avanzate con 'blocco record predefinito=record modificati' e 'apri database utilizzando blocco a livello di record'
2 casi:modifica contemporanea (stesso record) ed inserimento contemporaneo (stesso Id).

Caso1: modifica.
Sottocaso 1= form associata (basata su query SQL). Apro con lock pessimistico e lascio fare al motore del db. Sembra ok...
Sottocaso 2= form non associata (i dati sono presi dalla form precedente che è in sola visualizzazione). l'UPDATE viene fatto in un sol colpo alla pressione di un bottone. Ho utilizzato le clausole dbFailOnError+dbSeeChanges e gestisco l'errore (3218) che riportano in caso di modifica contemporanea. Devo aggiungere il controllo anche del 3260/3187/3046/3186/3139. Sembra ok.....
Caso2: inserimento
Calcolo il Max id con un recordset e poi TENTO l'inserimento. Se errore chiave duplicata (errore 3022) lo intercetto annullo tutto.

In teoria, lascio fare a jet tutto il lavoro....gestisco solo quello che mi rimanda indietro......
Consigli? Nomacci? Errori? Sono aperto ad ogni commento.....
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: gestionale in  multiutenza

author: RobertoA

text:

Cientopecciento al caso due
Dal mio punto di vista bloccare il db e' sbagliato, molto meglio 'leggerne'
le reazioni ed agire di conseguenza
Ciao
RobertoA


title: gestionale in  multiutenza

text:
RobertoA ha scritto:

Grazie per il parere. Una sola precisazione: il caso2 riguarda gli inserimenti. Il caso1 la modifica dello stesso record. Tu come la gestiresti se non con i lock da Access? Se non imposto i lock non riesco a generare errori runtime......



title: gestionale in  multiutenza

text:
>>> Caso1: modifica.
>>> Sottocaso 1= form associata (basata su query SQL). Apro con lock
>>> pessimistico e lascio fare al motore del db. Sembra ok...
>>> Sottocaso 2= form non associata (i dati sono presi dalla form precedente
>>> che č in sola visualizzazione). l'UPDATE viene fatto in un sol colpo
>>> alla
>>> pressione di un bottone. Ho utilizzato le clausole
>>> dbFailOnError+dbSeeChanges e gestisco l'errore (3218) che riportano in
>>> caso di modifica contemporanea. Devo aggiungere il controllo anche del
>>> 3260/3187/3046/3186/3139. Sembra ok.....
>>>
>>> Caso2: inserimento
>>> Calcolo il Max id con un recordset e poi TENTO l'inserimento. Se errore
>>> chiave duplicata (errore 3022) lo intercetto annullo tutto.
>>>
>>> In teoria, lascio fare a jet tutto il lavoro....gestisco solo quello che
>>> mi rimanda indietro......
>>> Consigli? Nomacci? Errori? Sono aperto ad ogni commento.....
>>
>>Cientopecciento al caso due
>>Dal mio punto di vista bloccare il db e' sbagliato, molto meglio
>>'leggerne'
>>le reazioni ed agire di conseguenza
>>Ciao
>>RobertoA
>>
>>
> Grazie per il parere. Una sola precisazione: il caso2 riguarda gli
> inserimenti. Il caso1 la modifica dello stesso record. Tu come la
> gestiresti se non con i lock da Access? Se non imposto i lock non riesco a
> generare errori runtime......
Come non ottieni nessun errore ?
L'errore dovresti ottenerlo se tenti di violare gli indici o i vincoli
imposti sul db, comunque, indipendentemente dal tipo di apertura del db
Oppure se stai up-datando un record gia' modificato da altri, o se tenti di
eliminare un record che gia' altri hanno eliminato
Non capisco cosa intendi dire con ".. Se non imposto i lock non riesco a
generare errori runtime.."
Ad ogni modo, il fatto che tu debba usare un archivio in concorrenza con
altre postazioni dovrebbe gia' importi di abbandonare i file mdb per un
sistema piu' veloce e soprattutto affidabile, tipo Sql Server o qualsiasi
altro db server
Io ti consiglio Firebird o Postgresql, sono eccezionali come funzionalita' e
pure aggratisse, tanto per dirne una puoi eseguire il backup completo del db
durante la normale attivita', senza stoppare gli utenti dal loro lavoro,
oppure puoi impostare dei triger per loggarti le modifiche al db per vedere
chi ha fatto che cosa e da che postazione, senza una riga di codice
sull'applicativo
Ciao
RobertoA


title: gestionale in  multiutenza

text:
RobertoA ha scritto:

In effetti ho l'upgrade a SQL Server in corso.....da mesi oramai.....volevo solo cercare di capire bene come agisce jet 'sotto' con le concorrenze....c'č letteratura in merito a db con svariati accessi contemporanei. Per ora l'applicativo funziona a dovere e nn da noie, ma, + per me che per altro, mi andava l'idea di renderlo + 'professionale', sviscerando quelle parti che magari possono dare problemi in futuro xchč mal sviluppate (da me chiaramente.... :-( ). Va da se che file sharing e client-server sono 2 cose diverse.....
Intanto grazie



title: A capo automatico.

author: Symi

text:
Ciao a tutto il newsgroup,
vorrei sapere se è possibile fare in modo che in una "casella di testo" il
testo vada a capo automaticamente dopo un determinato numero di caratteri in
modo da formare un elenco.
Grazie in anticipo.


title: A capo automatico.

author: Emyr

text:


consenti tabulazionen automatica=si nelle proprietà della casella
Saluti.
Emanuele.


title: A capo automatico.

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:trosiu4eg46vqc6t8...@4ax.com...

Ti ringrazio Emanuele,
mi ero, però, scordato di scrivere che la casella di testo in questione era
in un report dove non c'è la proprietà tabulazione automatica.
Da codice non è possibile impostare questa proprietà anche nei report?
Grazie


title: A capo automatico.

text:


allora devi usare una funzione che ti ritorni il campo con le
interruzioni di riga ed i ritorni a capo
Saluti.
Emanuele.


title: Avvio database

author: Franco Pio

text:
Quando avvio il mio database vorrei che invece di avere la barra dei menu
standard File Modifica Visualizza e... ci fosse la mia personalizzata come
posso fare? e per crearla? da dove inizio?


title: Avvio database

author: Dominijanni Giuseppe

text:
Franco Pio wrote:

(uno stralcio)
- Menù Visualizza > Barra degli strumenti > Personalizza > Nuova (Assegna un
nome significativo)
- (apparirà una barra vuota)
- Tasto Proprietà > proprietà Tipo seleziona : Barra menù (verifica le
selezioni possibili presenti nella maschera) > pulsanti Chiudi
- dalla maschera Personalizza > casella Menù > seleziona Nuovo menù > nella
casella Comandi clic su Nuovo menù e trascinalo sulla Barra dei menù vuota >
Tasto destro su Nuovo menu e digita un nome significativo al Menù
- Maschera Personalizza > Categorie (File) > Comandi: Aggiuntivo > Seleziona e
trascinalo nella barra sotto il nome Menù > tasto destro del mouse > nella
proprietà Azione puoi inserire una Macro o una Function.
Nel caso vuoi utilizzare i comandi di Access da seleziona Categorie e da
Comandi trascina il comando nella Barra
giuseppe


title: Inserimento Record

author: Alberto

text:
E' possibile inserire un record tra 2 già inseriti.
Ho una maschera continua contenente dei record. Si possono inserirne
altri tra quelli già presenti ?


title: Inserimento Record

author: Roberto da casa

text:
"Alberto" <
baby...@gmail.com
> ha scritto nel messaggio
news:1138311333.8...@f14g2000cwb.googlegroups.com...
>E' possibile inserire un record tra 2 già inseriti.
>Ho una maschera continua contenente dei record. Si possono inserirne
>altri tra quelli già presenti ?
Sicuramente puoi ordinare i record visualizzati in una maschera in base a
uno o più campi contenuti nei record; insomma fisicamente l'ultimo record
inserito in una tabella verrà memorizzato in coda agli altri, ma al momento
di visualizzare i record in una maschera puoi stabilire che essi compaiano
in un ordine che sia diverso da quello in cui sono stati inseriti nella
tabella.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Inserimento Record

text:
Roberto da casa ha scritto:

In pratica : la maschera BOLLE contiene una sottomaschere con l'elenco
degli articoli da inserire. Supponendo che abbia dimenticato di
inserire un articolo all'inizio (e devo per forza metterlo all'inizio)
come posso fare ?


title: Inserimento Record

text:
"Alberto" <
baby...@gmail.com
> ha scritto nel messaggio
news:1138742983....@z14g2000cwz.googlegroups.com...
>Roberto da casa ha scritto:
>
>> "Alberto" <
baby...@gmail.com
> ha scritto nel messaggio
<> news:1138311333.8...@f14g2000cwb.googlegroups.com...
>> >E' possibile inserire un record tra 2 già inseriti.
>> >Ho una maschera continua contenente dei record. Si possono inserirne
>> >altri tra quelli già presenti ?
>>
>> Sicuramente puoi ordinare i record visualizzati in una maschera in base a
>> uno o più campi contenuti nei record; insomma fisicamente l'ultimo record
>> inserito in una tabella verrà memorizzato in coda agli altri, ma al
momento
>> di visualizzare i record in una maschera puoi stabilire che essi
compaiano
>> in un ordine che sia diverso da quello in cui sono stati inseriti nella
>> tabella.
>>
>> --
>> Roberto
>
>In pratica : la maschera BOLLE contiene una sottomaschere con l'elenco
>degli articoli da inserire. Supponendo che abbia dimenticato di
>inserire un articolo all'inizio (e devo per forza metterlo all'inizio)
>come posso fare ?
Cerchiamo di chiarire alcuni concetti:
1) Fisicamente un nuovo record verrà sempre inserito in coda a quelli già
esistenti.
2) Se non stabilisci tu diversamente in una maschera o sottomaschera
continua i record verranno visualizzati ordinati per la chiave primaria
della tabella origine riga della maschera: se detta chiave primaria è un
campo di tipo Contatore i record risulteranno pertanto nello stesso ordine
in cui sono stati inseriti nella tabella.
3) Puoi decidere di ordinare a tuo piacimento l'ordinamento dei record
visualizzati memorizzando nella proprietà OrderBy (vedi help) della maschera
i nomi dei campi sui quali vuoi effettuare l'ordinamento
4) Puoi crearti una query basata sulla tua tabella, ordinare la query per i
campi che ritieni opportuno, usare questa query ordinata per visualizzare i
record nella tua maschera/sottomaschera continua.
A questo punto spero che tu sia in grado di darti una risposta da solo.



title: Casella di riepilogo con icona per record

author: Pablitomf (Maurizio Facciuti)

text:
Se non erro qualcosa in rete inerente a questo quesito mi č passato
sottomano, ma onestamente non ricordo dove, come e quando, per cui mi
affido ai cari amici dell'NG, e chiedo:
In una listBox, č possibile aggiungere alle varie righe (che siano valori,
o record di tabelle) un icona al margine Sx prima del testo? e se si,
come...
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Alessandro Baraldi

text:
Pablitomf (Maurizio Facciuti) ha scritto:
> Se non erro qualcosa in rete inerente a questo quesito mi è passato
> sottomano, ma onestamente non ricordo dove, come e quando, per cui mi
> affido ai cari amici dell'NG, e chiedo:
>
> In una listBox, è possibile aggiungere alle varie righe (che siano valori,
> o record di tabelle) un icona al margine Sx prima del testo? e se si,
> come...
>
> --
> Ciao
> Pablitomf (Maurizio Facciuti)
> Access : Ver.97 - 2K
Alla ListBox nativa di Access non è possibile, l'esempio al quale ti
riferisci credo
sia quello di Lebans che implementa la ListBox di VB in Access.
Usa una ListView....!!!
@Alex


text:
Alessandro Baraldi ha scritto:



> Usa una ListView....!!!
forse... ora la cerco e vedo che se pò fà! ;)
> @Alex
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno



text:
Pablitomf (Maurizio Facciuti) ha scritto:
> Se non erro qualcosa in rete inerente a questo quesito mi è passato
> sottomano, ma onestamente non ricordo dove, come e quando, per cui mi
> affido ai cari amici dell'NG, e chiedo:
>
> In una listBox, è possibile aggiungere alle varie righe (che siano valori,
> o record di tabelle) un icona al margine Sx prima del testo? e se si,
> come...
>
> --
> Ciao
> Pablitomf (Maurizio Facciuti)
> Access : Ver.97 - 2K
Altra idea che prima o poi pubblico è qulla di usare una SubForm(ben
formattata, ma sò che non hai problemi), con un campo OLE....!
In questo caso il campo mostrerà l'immagine associata ed eviti il
problema che nelle
viste in modalità Continua non si possano differenziare le Icone...!!!
Se l'immagine è a bassa risoluzione non ha un grosso impatto
dimensionale, ma sicuramente un bell'impatto grafico...!!!!
Ti dò uno spunto per trovare un pezzo già fatto....???
Ma sì..
Nel mio sito il Demo di Silvio Savoldi sulle Form Master/Detail usano
proprio questa
tecnica...!!!!
@Alex


title: Dimensioni Immagine TIFF

author: Giorgio Benedetti

text:
Mi serve ottenere le dimensioni in pixel di un'immagine TIFF da VBA. Mi
suggerite qualche cosa?
Grazie.


title: Dimensioni Immagine TIFF

text:
"Giorgio Benedetti" <
giorgio.ben...@libero.it
> ha scritto nel
messaggio news:6IvF6.6302$PE.6...@news.infostrada.it...
> Mi serve ottenere le dimensioni in pixel di un'immagine TIFF da VBA. Mi
> suggerite qualche cosa?
> Grazie.
>
Ti posso dire come potresti fare con i controlli activex della Wang
(Imaging):
posto che il nome del controllo activex Wang Image Edit Control sia
"CtlActiveXImmagine"
Es.
'----------------
MsgBox "Altezza: " & CtlActiveXImmagine.ImageHeight & vbcrlf & "Larghezza: "
& CtlActiveXImmagine.ImageWidth & vbcrlf & "Tipo immagine: " &
Choose(CtlActiveXImmagine.FileType, "TIFF", "", "BMP", "PCX", "DCX", "JPG",
"XIF")
'----------------
Ciao.


title: Pulsante lunedì

author: Ablasorix

text:
Buongiorno, ho bisogno di creare un pulsante che inserisca
direttamente la data del prossimo lunedì.
Per semplificare a voi ed a me pubblico una routine che guà uso per
inserire una data.
Private Sub Comando54_Click()
Me![Prossimo richiamo] = dateadd("d", 30, Date)
End Sub
Come la modifico?
Ringrazio sin da ora e porgo i miei migliori saluti.
Davide


title: Pulsante lunedì

author: Giovanni

text:
>"Ablasorix" <
abla...@gmail.com
> ha scritto nel messaggio
>news:bf4da0f8-41fa-417f...@21g2000vbk.googlegroups.com...
>Buongiorno, ho bisogno di creare un pulsante che inserisca
>Per semplificare a voi ed a me pubblico una routine che gu� uso per
>inserire una data.
>Private Sub Comando54_Click()
>Me![Prossimo richiamo] = dateadd("d", 30, Date)
>End Sub
>Come la modifico?
>Ringrazio sin da ora e porgo i miei migliori saluti.
>Davide
Pravo cos�, sembra funzionare:
Private Sub Comando2_Click()
Dim Giorno As String
Dim Data As Date
Dim Check As String
Check = False
Giorno = Format(Date, "dddd")
Data = Date + 1
Do Until Check = True
    If Format(Data, "dddd") = "luned�" Then
        Me.Text1 = Data
        Check = True
    Else
        Data = Data + 1
        Giorno = Format(Data, "dddd")
    End If
Loop
End Sub


title: Pulsante lunedì

text: Grazie mille :D funziona :D


title: Pulsante lunedì

text:

Usa la funzione WeekDay per sapere il giorno odierno...
Ti verrà restituito un valore 1÷7
Di default hai questo:
1 Domenica
2 Lunedì
3 Martedì
4 Mercoledì
5 Giovedì
6 Venerdì
7 Sabato
Se il tuo numero < 2, significa che il gg è domenica, ed il 1° Lunedì
è
DateAdd("d",1,Now())
Se WeekDay = 2 è lunedì quindi aggiungi 7gg
Se WeekDay >2 aggiungi 7-WeekDay
Credo che questo sia il metodo più veloce...
@Alex


title: Pulsante lunedì

author: Karl Donaubauer

text:
Ablasorix wrote:
> Buongiorno, ho bisogno di creare un pulsante che inserisca
> direttamente la data del prossimo luned�.
> Per semplificare a voi ed a me pubblico una routine che gu� uso per
> inserire una data.
>
> Private Sub Comando54_Click()
> Me![Prossimo richiamo] = dateadd("d", 30, Date)
> End Sub
>
> Come la modifico?
Me![Prossimo richiamo] = Date+8-Weekday(Date+1,3)
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Pulsante lunedì

text:
On 15 Mag, 12:17, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Ablasorix wrote:
> > Buongiorno, ho bisogno di creare un pulsante che inserisca
> > direttamente la data del prossimo lunedì.
> > Per semplificare a voi ed a me pubblico una routine che guà uso per
> > inserire una data.
>
> > Private Sub Comando54_Click()
> > Me![Prossimo richiamo] = dateadd("d", 30, Date)
> > End Sub
>
> > Come la modifico?
>
> Me![Prossimo richiamo] = Date+8-Weekday(Date+1,3)
>
> --
> HTH
> Karl
Che bello quando si usa la testa....
Ottimo....
@Alex


title: Pulsante lunedì

author: MA

text:

In che senso?
tutta sta formula la devi digitare col naso??
non capisco
>
> Ottimo....
>
> @Alex
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access