author: Sib dal portatile

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio CUT
> Ti riporto quanto č scritto in calce alla funzione:
> ATTENZIONE: se viene compattato il DB, per un "bug" di Access97, le
tabelle
> nascoste con questo secondo metodo, verranno ELIMINATE. Quindi,
assicurarsi
> di impostare l'attributo a False prima di ogni compattazione (che si
suppone
> venga effettuata da un'opportuna voce di menů), e poi reimpostarla a True.
A questo proposito, hai verificato che questo non accada anche su A2000 e/o
XP?
Perche' su Access XP la compattazione viene fatta automaticamente ogni volta
che si chiude il db.
Sib


title: Visibile o non Visibile.... anzi....sparita

author: Ily

text:
Silvio Berruti <
sber...@libero.it
> wrote in message
imGn7.38024$ul3.1...@news.infostrada.it...
>
> "Ily" <
IlaR...@libero.it
> ha scritto nel messaggio
> news:9nn4tv$70n$1...@fe1.cs.interbusiness.it...
> Ti riporto quanto č scritto in calce alla funzione:
> ATTENZIONE: se viene compattato il DB, per un "bug" di Access97, le
tabelle
> nascoste con questo secondo metodo, verranno ELIMINATE. Quindi,
assicurarsi
> di impostare l'attributo a False prima di ogni compattazione (che si
suppone
> venga effettuata da un'opportuna voce di menů), e poi reimpostarla a True.
>
> --
>
> Silvio
****************************************************************************
**
Ciao Silvio..
avevo letto la postilla nella funzione ,ma :
-io uso anche A2000;
-non faccio nessuna compattazione ;
-le tabelle non vengono eliminate, ma diventano come tabelle di sistema:
cioč visibili solo se si flagga su "mostra tabelle di sistema"
Spero di essermi riuscita a spiegare...
grazie per l'interessamento.
Ilaria


author: Silvio Berruti

text:
"Sib dal portatile" <
sibN...@iol.it
> ha scritto nel messaggio
news:9nnjpa$csd$1...@serv1.iunet.it...
> "Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio CUT
> > Ti riporto quanto č scritto in calce alla funzione:
> > ATTENZIONE: se viene compattato il DB, per un "bug" di Access97, le
> tabelle
> > nascoste con questo secondo metodo, verranno ELIMINATE. Quindi,
> assicurarsi
> > di impostare l'attributo a False prima di ogni compattazione (che si
> suppone
> > venga effettuata da un'opportuna voce di menů), e poi reimpostarla a
True.
>
> A questo proposito, hai verificato che questo non accada anche su A2000
e/o
> XP?
No, lavoro su A97 normalmente; solo un cliente mi obbliga a sviluppargli un
programma con A2000 e non mi era ancora venuta l'idea di provare.
> Perche' su Access XP la compattazione viene fatta automaticamente ogni
volta
> che si chiude il db.
Se lo imposti, anche A2000 lo fa.



title: scrivere su un file ascii

author: ciroteo

text:
Ho la necessità di generare un file ascii delimitato e fin qui andrebbe bene
l'esportazione in txt.
Purtroppo I dati da scrivere sul file provengono da due query che non hanno
la stessa struttura
per cui non posso nemmeno optare per una query di unione. Sto cercando il
modo di scrivere su un file
ciclando i record della prima query, poi riaprendo il file ci vorrei
scrivere i dati provenienti dalla seconda query.
Nella guida ho trovato la seguente sub di esempio. L'effetto ottenuto è solo
quello di vedere un msgbox con scritto salve e non viene nè creato il file
ne tantomeno viene scritto dentro alcunchè.
Qualcuno ha qualche suggerimento?
Questo è un copia incolla dall'esempio della guida:
Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            'Crea un file
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Salve"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub
io l'ho modificato cosi:
    fs.CreateTextFile "c:test1.txt"            'Crea un file
    Set f = fs.GetFile("c:test1.txt")


title: scrivere su un file ascii

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d1trra$ldu$1...@hulme.interac.it...

chiedo venia ... era molto più semplice:
Private Sub Comando4_Click()
Dim miaquery As DAO.Recordset
Set miaquery = CurrentDb.OpenRecordset("matt")
Dim miavariabile
Open "c:\prova.txt" For Output As #1    ' Apre il file perl'output.
While Not miaquery.EOF
     miavariabile = miaquery![cognome] & ";" & miaquery![nome]
Write #1, "prova", 234
Write #1, miavariabile
Write #1,    ' Scrive una riga vuota.
miaquery.MoveNext
Wend
Close #1
End Sub
La difficoltà adesso è capire come gestire i campi a larghezza fissa ...


title: scrivere su un file ascii

author: namor

text:
ciroteo ha scritto:



Fissi la larghezza già nella query usando campi calcolati, o al volo al
momento dell'esportazione.
Per i numeri:
format([numero],"00000000,00")
Per i testi (numchar è la larghezza fissa desiderata)
[testo] & space$(numchar-len([testo]))
Ciao.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: scrivere su un file ascii

author: Sergio MAZZA

text:
"ciroteo" <
ciroteo_c...@libero.it
> ha scritto nel messaggio
news:d1tucf$lh2$1...@hulme.interac.it...
> chiedo venia ... era molto più semplice:
>
> Private Sub Comando4_Click()
> Dim miaquery As DAO.Recordset
> Set miaquery = CurrentDb.OpenRecordset("matt")
> Dim miavariabile
> Open "c:\prova.txt" For Output As #1    ' Apre il file perl'output.
> While Not miaquery.EOF
>     miavariabile = miaquery![cognome] & ";" & miaquery![nome]
> Write #1, "prova", 234
> Write #1, miavariabile
> Write #1,    ' Scrive una riga vuota.
> miaquery.MoveNext
> Wend
> Close #1
> End Sub
>
> La difficoltà adesso è capire come gestire i campi a larghezza fissa ...
Cosa intendi per "larghezza fissa"?
Ciao.
--
Sergio MAZZA


title: scrivere su un file ascii

text:
"namor" <
do...@spam.me
> ha scritto nel messaggio
news:d1u6mg$o34$1...@news.newsland.it...

Grazie namor credo di aver capito.
Setto la dimensione dei campi nella query, poi ciclo record per record
nell'ordine che mi servono e li metto nel file.
Ottimo!


title: scrivere su un file ascii

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:d1u748$kls$1...@canarie.caspur.it...

Ciao Sergio, intendo dire che per es: il tracciato prevede nome,10
caratteri, cognome 12 caratteri, ecc....
I campi non sono separati da , o ; ma hanno una dimensione massima
predefinita.


title: Copertina su report report,possibile?

author: Pino

text:
Vorrei eseguire a scelta (Si/No) la stampa di un report Copertina prima di
tutte le pagine del report. E' possibile farlo? Devo creare un'altro report
copertina?
Grazie.


title: Copertina su report report,possibile?

author: RoDAgo

text:
"Pino" ha scritto nel messaggio ...

Puoi inserire la copertina nell'intestazione di pagina e con una MsgBox
chiedere all'utente se stamparla o meno.
In base alla risposta dell'utente nell'evento apertura rendi visibile o meno
i controlli che compongono la copertina o l'intera Intestazione
Cià
RoDAgo


title: Copertina su report report,possibile?

author: Roberto da casa

text:
"Pino" <
pi...@serenacom.net
> ha scritto nel messaggio
news:b47345$s3v$1...@lacerta.tiscalinet.it...

A fronte dell'evento "Su formattazione" dell'intestazione report genera il
seguente codice VBA:
Cancel = True
Naturalmente condizionerai l'esecuzione di tale riga di codice a seconda che
tu voglia o meno l'intestazione di report.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Copertina su report report,possibile?

text: Grazie mille ci proverň ed eventualmente riposto.


title: Copertina su report report,possibile?

author: moskolowosky

text:
Al caricamento del report effettua una richeista con una msgbox. Se vuoi
stampare la copertina (che devi inserire nell'intestazione del report)
imposta a visible l'intestazione report, altrimenti lasciala invisibile.
Ciao
"Pino" <
pi...@serenacom.net
> ha scritto nel messaggio
news:b47345$s3v$1...@lacerta.tiscalinet.it...



title: Copertina su report report,possibile?

text:
Devo aprire una maschera con msbox ove scegliere con pulsanti Si/No?
Il comando per l'intestazione report,com'č? Grazie.


title: Query su campo ora

author: Ivan

text:
Salve a tutti
in una tabella collegata (postgres) ho alcuni campi in cui è inserito un
orario e di defalut l'orario è il seguente: 0.00.00.
Devo fare una query con cui trovare tutti i record in cui il campo è stato
cambiato (diverso da 0.00.00). Ho provato a cercare >0, <> 0. <> #0.00.00#
ma continua a darmi errore di ODBC. Il campo nel database è un timestamp.
Cosa devo scrivere nella query?
Grazie 1000


title: Query su campo ora

author: Karl Donaubauer

text:
Ivan wrote:
> in una tabella collegata (postgres) ho alcuni campi in cui � inserito
> un orario e di defalut l'orario � il seguente: 0.00.00.
>
> Devo fare una query con cui trovare tutti i record in cui il campo �
> stato cambiato (diverso da 0.00.00). Ho provato a cercare >0, <> 0.
> <> #0.00.00# ma continua a darmi errore di ODBC. Il campo nel
> database � un timestamp.
> Cosa devo scrivere nella query?
Qual'� il numero e messaggio esatto dell'errore?
In vis. struttura della tabella collegata, quale tipo di dati
Access ti mostra per il campo?
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Eseguire uno script

author: io

text:
Salve a tutti
Ho la necessità di far eseguire da codice un file script (.vbs) ed
attenderne la fine dell'esecuzione.
Cosa devo fare ?
Grazie


title: Eseguire uno script

author: MA

text:

www.sitocomune.com
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Eseguire uno script

text:
> > Salve a tutti
> >
> > Ho la necessità di far eseguire da codice un file script (.vbs) ed
> > attenderne la fine dell'esecuzione.
> >
> > Cosa devo fare ?
> >
> > Grazie
>
www.sitocomune.com
Sul sitocomune c'è l'esempio per eseguire un .EXE (o comunque un
eseguibile).
Io devo eseguire un file .VBS
Se vado nelle proprietà del file vedo che windows lo associa a
un'applicazione e quindi basta un doppio clic e lo esegue, ma da codice
come faccio ad eseguire un file non .EXE?
Spero di essermi spiegato.
Grazie


title: Eseguire uno script

author: Alessandro Baraldi

text:
"io" <
7934i...@mynewsgate.net
> wrote in message
news:200510191...@mynewsgate.net

Sub MyShell(ByVal Percorso As String, _
            ByVal windowstyle As Integer, _
            ByVal Attendi As Boolean)
   Dim wshell As Object
   Set wshell = CreateObject("WScript.shell")
   wshell.Run Percorso, windowstyle, Attendi
   Set wshell = Nothing
End Sub

Per l'utilizzo
MyShell "C:\Documenti\Documento1.Doc",1,0
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: casella combinata

author: Madstella

text:
Ciao a tutti, premesso che di access ci capisco poco, anzi pochissimo,
desidero sottoporvi una questione che non riesco a risolvere sebbene
esista l'esempio concreto in Northwind (maschera "ORDINI").
Ho creato semplicemente 2 tabelle (fornitori e clienti)
In una maschera che ho creato vorrei ci fosse una casella combinata che
riporta l'elenco a cascata di una delle due tabelle (e fino a qua ci
sono arrivata) e di seguito vorrei creare (esattamente come in
NORTHWIND) altre caselle (di testo?combinata?boh...) che riportano
l'indirizzo, il cap la città etc riferiti alla selezione della
precedente casella combinata.
Se avete capito cosa intendo, siete grandiosi.
Perdonate la confusione...
un grazie infinito
Stella


title: casella combinata

author: Sandro

text:
"Madstella" <
mads...@cheapnet.it
> ha scritto nel messaggio
news:1129737851....@g14g2000cwa.googlegroups.com...

un grazie infinito
Stella
Ciao Stella,
prova a controllare la proprietà column, nell'help.
Ad esempio dopo aggiornametno della tua combo ci metti :Me.tuaTextBox =
Me.tuaCombo.Column(2)
Ti ricordo che la numerazione delle colonne parte da zero.
Un' altra soluzione è quella di utlizzare una query : guarda la subForm
della form Ordini sempre in northWind
Un saluto. Sandro


title: casella combinata

text:
Sandro ha scritto:

domani ci proverò e ti farò sapere visto che sei stato gentilissimo
ciao
Stella


title: query di aggiornamento che non aggiorna tutti i records

author: giancarlo

text:
Salve a tutti.
In A97 ho una sottomaschera che visualizza i record di una tab. Volevo fare
in modo di aggiornare tutto con un'unica operazione il campo Sě/No presente
nei records. Dai vs. suggerimenti ho creato una query di aggiornamento che
porta a Sě tutti i campi.
Ho notato 2 cose:
- quando sono posizionato su un record e faccio click sul pulsante che
esegue la query si aggiorna il campo di tutti i records, tranne quello dove
sono posizionato. Come posso risolvere il problema?
- una volta eseguita la q. di aggiornamento, per visulizzare tutti i segni
di spunta devo far click su un altro campo qualsiasi resente nella maschera.
E' possibile fare in modo che appena eseguito l'agigornamento, si vedano
tutti i segni di spunta?
Grazie a tutti in anticipo.
Giancarlo


author: Antonio Biso

text:
"giancarlo" <
thi...@tin.it
> ha scritto nel messaggio
news:c1mvkd$ldl$1...@fata.cs.interbusiness.it...
> Salve a tutti.
> In A97 ho una sottomaschera che visualizza i record di una tab. Volevo
fare
> in modo di aggiornare tutto con un'unica operazione il campo Sě/No
presente
> nei records. Dai vs. suggerimenti ho creato una query di aggiornamento che
> porta a Sě tutti i campi.
> Ho notato 2 cose:
> - quando sono posizionato su un record e faccio click sul pulsante che
> esegue la query si aggiorna il campo di tutti i records, tranne quello
dove
> sono posizionato. Come posso risolvere il problema?
Questa cosa succede se tu sei posizionato sul record e l'hai anche editato.
Questo provoca un blocco su quel record e non ti viene aggiornato.
Per ovviare forza il salvataggio dei record e quindi lanci la query
> - una volta eseguita la q. di aggiornamento, per visulizzare tutti i segni
> di spunta devo far click su un altro campo qualsiasi resente nella
maschera.
> E' possibile fare in modo che appena eseguito l'agigornamento, si vedano
> tutti i segni di spunta?
Dopo il lancio della query fai una requery della sottomaschera
Antonio


title: stampare un Report

author: Tatiana

text:
Salve,
mi serve aiuto...
č possibile stampare il report di solo un record selezionato?
Come impostare il bottone ?
grazie.
Tatiana.
tat...@isiline.it


title: acOutputReport

author: Mik Mark

text:
Ciao a tutti,
    io ho un report formato da altri 4 sottoreport.
Io voglio trasferire in excel alcuni dati e questi mi devono "entrare" nelle
celle prestabilite.
Per esempio voglio estrarre non tutti i dati, ma filtrarli a secondo di
quello che sceglie l'utente, il report funziona alla perfezione, ma se
estraggo i dati in excel mi visualizza in modo disordinato tutti i valori.
Poi vorrei preformattare il foglio di lavoro e fare in modo che alcuni dati
"Nome-Cognome", Aula, Materia etc mi vengano inseriti nelle celle che io
voglio.
Tutto ciň č possibile?


title: Data di Inzio e Fine Mese ("Update" FAQ 6.4 Sitocomune)

author: Nick

text:
Prendendo come spunto quanto scritto nella FAQ 6.4 (sezione General) del
Sitocomune ho elaborato questa versione per determinare (avendo una data
iniziale) quale sia il primo e l'ultimo mese di una data.
[codice]
Dim DataInizio As Date, DataFine As Date, DataIn as Date
DataIn = Inputbox ("Inserisci una data",date())
DataInizio = Format("01/" & month(DataIn)& "/" & year(dataIn))
MsgBox "Primo del mese " & DataInizio
DataFine = DateAdd("d", -1, DateAdd("m", 1, DataInizio))
MsgBox DataFine
[/codice]
Spero possa essere d'aiuto a qualcuno, più che altro il discorso di
ricavare la data di fine attraverso la funzione DateAdd.
Spesso alcuni newbie (io per primo) non conoscono l'esistenza di
apposite funzioni per i calcoli tra date.
Non ho trovato altri post che ne parlavano in queti termini, chiedo
scusa se non li ho visti ;)
Ciao
Nick


text:

Metodi diversi trovi qui:
www.donkarl.com/it
 2.8   Primo/Ultimo giorno del mese
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


text:
Karl Donaubauer ha detto: in data 14/04/2005 11.39:
> Nick wrote:
>
>> Prendendo come spunto quanto scritto nella FAQ 6.4 (sezione General) del
>> Sitocomune ho elaborato questa versione per determinare (avendo una data
>> iniziale) quale sia il primo e l'ultimo mese di una data.
>>
>> [codice]
>> Dim DataInizio As Date, DataFine As Date, DataIn as Date
>>
>> DataIn = Inputbox ("Inserisci una data",date())
>> DataInizio = Format("01/" & month(DataIn)& "/" & year(dataIn))
>> MsgBox "Primo del mese " & DataInizio
>> DataFine = DateAdd("d", -1, DateAdd("m", 1, DataInizio))
>> MsgBox DataFine
>>
>> [/codice]
>>
>> Spero possa essere d'aiuto a qualcuno, più che altro il discorso di
>> ricavare la data di fine attraverso la funzione DateAdd.
>> Spesso alcuni newbie (io per primo) non conoscono l'esistenza di
>> apposite funzioni per i calcoli tra date.
>>
>> Non ho trovato altri post che ne parlavano in queti termini, chiedo
>> scusa se non li ho visti ;)
>
>
> Metodi diversi trovi qui:
>
www.donkarl.com/it
 2.8   Primo/Ultimo giorno del mese
>
Optimus (si scrive così? :D);)
Ciao
Nick


title: Calderone di domande...

author: MajorTom

text:
Ciao a tutti...
Posto una serie di dubbi che mi assillano riguardo Access 2000...
1 - Sto creando l'applicazione su 2 file, uno per le tabelle e uno
per 		    tutto il resto che incorpora le tabelle...
     Se io redistribuisco solo il file delle maschere, query, ecc per
un 	    aggiornamento, le eventuali relazioni aggiunte al progetto
vengono 		    perse? Vengono cioè immagazzinate nel file con le
tabelle o 		    in quello con le maschere?
2 - Il programma dovrebbe funzionare in modalità monoutente con
accesso 	    da più postazioni collegate in rete.
     Il problema con access è che quando un utente carica da una macchina
     remota il file delle maschere di access, questo cerca le tabelle
     collegate a partire dall'HD dell'utente, e non da quello remoto,
     obbligandomi a distribuire sempre 2 versioni del file delle
maschere, 1 che collega le tabelle  dall'hd locale e una da quello
     remoto. C'è qualche soluzione al problema o sto sbagliando qualcosa?
3 - Se si volesse trasformare il tutto in per la multiutenza, sapreste
     consigliarmi qualche sito dove leggere qualcosa a riguardo?
Ciao ancora a tutti e scusate per il disturbo...


title: Calderone di domande...

author: Neo

text:
"MajorTom" <
Major...@libero.it
> ha scritto nel messaggio
news:FUowb.142624$e6.51...@twister2.libero.it...
> Ciao a tutti...
> Posto una serie di dubbi che mi assillano riguardo Access 2000...
>
> 1 - Sto creando l'applicazione su 2 file, uno per le tabelle e uno
> per     tutto il resto che incorpora le tabelle...
>      Se io redistribuisco solo il file delle maschere, query, ecc per
> un     aggiornamento, le eventuali relazioni aggiunte al progetto
> vengono     perse? Vengono cioè immagazzinate nel file con le
> tabelle o     in quello con le maschere?
>
le relazioni vengono registrate nel db in cui tu le crei se le crei in quello delle tabelle restani
li, altrimenti vanno nel db con le maschere.
> 2 - Il programma dovrebbe funzionare in modalità monoutente con
> accesso     da più postazioni collegate in rete.
>      Il problema con access è che quando un utente carica da una macchina
>      remota il file delle maschere di access, questo cerca le tabelle
>      collegate a partire dall'HD dell'utente, e non da quello remoto,
>      obbligandomi a distribuire sempre 2 versioni del file delle
> maschere, 1 che collega le tabelle  dall'hd locale e una da quello
>      remoto. C'è qualche soluzione al problema o sto sbagliando qualcosa?
>
per il collegamento che funzione usi?
se usi la docmd.transferdatabase ......
perdi le relazioni del db maschere, però è + gestibile nei collegamenti (puoi dargli il percorso
diretto al file senza fare ricerche)
> 3 - Se si volesse trasformare il tutto in per la multiutenza, sapreste
>      consigliarmi qualche sito dove leggere qualcosa a riguardo?
>
basta installare su ogni client il programma con le maschere e il gioco è fatto (poi speta a te
verificare i permessi, ecc)



title: Calderone di domande...

text:
"Neo" <senz...@chiedetesul.NG> ha scritto nel messaggio
news:dLpwb.142784$e6.51...@twister2.libero.it...
>
Oh, me fai rompe il silenzio stampa, però porca miseria!!!!
Questa era un post con subject insulso e varie domande invece di tanti post
quante sono le domande!!!
Allora rispondiamo e diamo queste brutte abitudini agli utenti!!!!
Rientro in silenzio stampa!!!!
Antonio


title: Calderone di domande...

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:CZpwb.142828$e6.51...@twister2.libero.it...

hai ragione.
mi rintano e chiedo scusa al NG...
la prossima volta leggerò prima il subject di rispondere...
:-(


title: Query di inserimento con campo chiave collegato a contatore (SSE2008)

author: mcdany

text:
Ciao a tutti,
scusatemi per l'oggetto ma non sono riuscito ad esprimermi meglio.
Ci provo adesso...
Una maschera che in Access 2007 con back end locale permetteva
inserimenti, ora, con il back end in SSE2008, non funziona più.
Ho una tabella Articoli con campo chiave primaria Ar_Id definito come
Contatore (IDENTITY)
Ho una tabella SchedaProdotto con campo chiave primaria SP_IdArticolo
definito come Intero e che funge anche da chiave esterna sulla tabella
Articoli, nel campo SP_IdArticolo.
In sostanza i vari articoli (materie prime, semilavorati, prodotti
finiti, altro...) hanno collegate diverse schede di dettaglio per
gestire differenti informazioni.
In Access 2007 per inserire tutte le informazioni di un prodotto
(comprensive di informazioni della tabella Articoli, più le
informazioni della tabella SchedaProdotto) avevo creato una query che
restituiva tutti i campi delle due tabelle, impostando un join fra i
campi Ar_Id e SP_IdArticolo.
Il nuovo inserimento creava 2 record (1 per tabella) collegando
correttamente i campi Ar_Id e SP_IdArticolo.
Ora con SSE2008 mi dice che per eseguire la scrittura devo specificare
il campo SP_IdArticolo, ed io non posso in quanto il campo Ar_Id è di
tipo contatore, e non mi viene valorizzato prima della scrittura del
nuovo record.
Devo per forza eseguire 2 scritture differenti in cascata (prima creo
l'articolo e quindi la scheda) o... c'è qualcos'altro che mi sfugge?
Grazie per l'attenzione,
--
Daniele M. aka mcdany


title: Simboli

author: Andrea

text:
Qualcuno sa dove posso trovare dei simboli di lavaggio in formato .BMP o
.JPG
Grazie mille
Andrea


title: Simboli

author: RoDAgo

text:
"Andrea"  ha scritto nel messaggio ...
> Qualcuno sa dove posso trovare dei simboli di lavaggio in formato .BMP o
> .JPG
Scusa la franchezza, ma cosa vuoi dire??
> Grazie mille
>
> Andrea
--
RoDAgo


title: Simboli

author: Silvio Berruti

text:
"Andrea" <
a.val...@effecinformatica.it
> ha scritto nel messaggio
news:FLqk6.8683$qx.2...@news.infostrada.it...
> Qualcuno sa dove posso trovare dei simboli di lavaggio in formato .BMP o
> .JPG
Prova a collegarti con siti di aziende produttrici di prodotti di pulizia e
salvarti le immagini che ti servono (se ci sono...)
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: come rendere invisibile un controllo

author: Carlo

text:
Salve N.G.
se tramite il controllo della prorietą dell'oggetto su visibile metto "No"
posso tramite vba poterlo rivedere ad una determinnata condizione.
Grazie
 e buona serata a tutto il N.G.
--
Carlo
:-)
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo č protetta con SPAMfighter
1257 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!


title: come rendere invisibile un controllo

author: ALESSANDRO Baraldi

text:
"Carlo" <
carlog...@tiscali.it
> ha scritto nel messaggio
news:45c23347$0$7740$5fc...@news.tiscali.it...
> Salve N.G.
> se tramite il controllo della prorietą dell'oggetto su visibile metto "No"
> posso tramite vba poterlo rivedere ad una determinnata condizione.
> Grazie
>  e buona serata a tutto il N.G.
>
> --
> Carlo
> :-)
If Condizione=True Then Me!NomeControllo.Visible=True
oppure
Me!nomeControllo.Visible=(Condizione=True)
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: come rendere invisibile un controllo

author: Karl Donaubauer

text:
ALESSANDRO Baraldi wrote:
> "Carlo ha scritto:
>> se tramite il controllo della prorietà dell'oggetto su visibile metto
>> "No" posso tramite vba poterlo rivedere ad una determinnata condizione.
>
> If Condizione=True Then Me!NomeControllo.Visible=True
>
> oppure
>
> Me!nomeControllo.Visible=(Condizione=True)
oppure
Me!nomeControllo.Visible=(Condizione)
--
;-)
Karl
*********
Access FAQ:
www.donkarl.com/it


title: come rendere invisibile un controllo

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:eptd53$41i$1...@aioe.org...

>@alex grazie, semplicemente perfetto il suggerimento



title: come rendere invisibile un controllo

author: cidi

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:52fbhoF...@mid.individual.net...
> ALESSANDRO Baraldi wrote:
>> "Carlo ha scritto:
>>> se tramite il controllo della prorietą dell'oggetto su visibile metto
>>> "No" posso tramite vba poterlo rivedere ad una determinnata condizione.
>>
>> If Condizione=True Then Me!NomeControllo.Visible=True
>>
>> oppure
>>
>> Me!nomeControllo.Visible=(Condizione=True)
>
> oppure
>
> Me!nomeControllo.Visible=(Condizione)
>
> --
> ;-)
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Ciao Karl
volevo segnalarti che il link del tuo sito non funziona da diversi giorni.
Daniele


title: come rendere invisibile un controllo

author: sv

text:
cidi ha scritto:
> "Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
> news:52fbhoF...@mid.individual.net...
> > ALESSANDRO Baraldi wrote:
> >> "Carlo ha scritto:
> >>> se tramite il controllo della prorietà dell'oggetto su visibile metto
> >>> "No" posso tramite vba poterlo rivedere ad una determinnata condizione.
> >>
> >> If Condizione=True Then Me!NomeControllo.Visible=True
> >>
> >> oppure
> >>
> >> Me!nomeControllo.Visible=(Condizione=True)
> >
> > oppure
> >
> > Me!nomeControllo.Visible=(Condizione)
> >
> > --
> > ;-)
> > Karl
> > *********
> > Access FAQ:
www.donkarl.com/it
> Ciao Karl
> volevo segnalarti che il link del tuo sito non funziona da diversi giorni.
> Daniele
Vacci da qui:
http://www.accessdev.de/it/
La pagina cerca comunque non funziona è in revisione..
--
sv
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: scelta dinamica campi in query

author: ciroteo

text:
Vorrei creare, a partire da una maschera una query dinamica, consentendo
all'utente di scegliere quale (o quali) campo includere nei parametri per la
ricerca.
Da una Maschera non associata in cui ho creato una casella combinata la cui
origine č elenco campi scelgo il campo.
Il criterio di questo campo dovrebbe essere null o ="" Vorrei quindi trovare
tutti i records in cui il campo selezionato sia vuoto.
Come potrei fare x far si che al click del pulsante mi venga eseguita una
query che abbia come criterio tale campo?


title: scelta dinamica campi in query

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:c6j11r$a37$1...@hulme.interac.it...
> Vorrei creare, a partire da una maschera una query dinamica, consentendo
> all'utente di scegliere quale (o quali) campo includere nei parametri per
la
> ricerca.
> Da una Maschera non associata in cui ho creato una casella combinata la
cui
> origine è elenco campi scelgo il campo.
> Il criterio di questo campo dovrebbe essere null o ="" Vorrei quindi
trovare
> tutti i records in cui il campo selezionato sia vuoto.
> Come potrei fare x far si che al click del pulsante mi venga eseguita una
> query che abbia come criterio tale campo?
>
scusate posto il codice ...
Dim criterio As String
criterio = Me.CasellaCombinata0
 DoCmd.OpenForm "Sottomaschera documenti", acNormal, "", criterio = (No),
acEdit, acNormal
 DoCmd.Maximize
 DoCmd.GoToControl "nominativo"


title: Impostazioni internazionali

author: Romi

text:
Ho la necessità di testare da codice che tipo di valuta (impostazioni
internazionali) è impostata sul PC per eventualmente cambiarla da codice
qualora non sia Impostata su Italiano.
Sono riuscito a trovare questo comando da inserire nella procedura che però
mi apre soltanto le impostazioni internazionali.
rundll32 shell32,Control_RunDLL intl.cpl
Grazie per le risposte
Romi


title: Impostazioni internazionali

text:

Dev mostra come leggere le impostazioni:
http://www.mvps.org/access/api/api0017.htm
Terry mostra come cambiarle con la sua funzione LocaleInfoSet:
http://groups.google.com/groups?&selm=%23o1XjCgvBHA.2308%40tkmsftngp04
Con il mio nome a google trovi anche qualche esempi pratici come
si usa queste funzioni per estrarre e cambiare impostazioni particolari.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)


title: Allineameto / formattazione codice VBA

author: scaronic

text:
Gli anni avanzano  e la memoria se ne va....

mi ricordo  che con una semplice  combinazione di tasti , all'interno  di una routine  di codice VBA  il testo si allineava  automaticamente .

Mi spiego con un esempio :

TESTO NON ALLINEATO  :

Private mlngLines As LongPrivate
Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then
mlngLines = mlngLines + 1
End If
If mlngLines > 11 Then
Cancel = True
End Sub

TESTO ALLINEATO
Private mlngLines As LongPrivate
Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
   If FormatCount = 1 Then
        mlngLines = mlngLines + 1
    End If
   If mlngLines > 11 Then Cancel = True
End Sub

grazie mille


title: Allineameto / formattazione codice VBA

author: Bruno Campanini

text:
scaronic laid this down on his screen :

Io uso Access da quando è nato e ho sempre allineato manualmente
il codice come Dio comanda.
E non ho mai saputo esistessero automatismi di allineamento.

Comunque sono molto lieto di apprendere novità... meglio tardi che mai.
Speriamo che qualcuno ce le comunichi.

Bruno


title: Allineameto / formattazione codice VBA

text:
Non so che VBA tu avessi usato, ma senza TOOLS esterni non esiste l'Auto indentazione del codice...
Selezionando le righe e premendo TAB(per aggiungere) o SHIFT-TAB(per rimuovere) applichi l'indentazione indicata nelle proprietà o opzioni del VBA, solitamente 4 Spazi ad ogni premuta(poi ognuno usa quella che il proprio DIO gli comanda).

@Alex


title: Allineameto / formattazione codice VBA

text:

Uso  access 2000 o 2003  ,    tu hai usato il termine corretto < Autoindentazione>   , è probabile  che abbia  utilizzato qualche Tools ,  sono in pensione  e da  tre anni non sviluppo più progetti  in MSAccess ,  ora  un pò per  aggiornare richieste di vecchi clienti , un pò per passione ( leggi ammazzare il tempo)  mi sono rimesso  ad  aggiornare i miei programmi .

Se  riscopro  il tools  , informerò  il gruppo


title: Allineameto / formattazione codice VBA

text:

Ho trovato il tools
http://www.oaltd.co.uk/Indenter/Default.htm
,
Purtroppo è fermo  ad access 2000-2003


title: Allineameto / formattazione codice VBA

text:
Salve,

eb scaronic:
> ...
> Uso  access 2000 o 2003  ,    tu hai usato il termine corretto < Autoindentazione>   , è probabile  che abbia  utilizzato qualche Tools ,  sono in pensione  e da  tre anni non sviluppo più progetti  in MSAccess ,  ora  un pò per  aggiornare richieste di vecchi clienti , un pò per passione ( leggi ammazzare il tempo)  mi sono rimesso  ad  aggiornare i miei programmi .
>
> Se  riscopro  il tools  , informerò  il gruppo

Forse intendi il più conosciuto Smart Indenter:
http://www.oaltd.co.uk/Indenter/Default.htm

Se ci sono problemi con una versione nuova di Access:
https://www.experts-exchange.com/articles/26599/Installing-Smart-Indenter-in-Office-2013-2016.html

--
Ciao
Karl
*********
http://AccessDevCon.com

Access FAQ:
https://www.donkarl.com/it


title: RecordCount errato

author: Giuseppe Cardascia

text:
Salve a tutti.
Creo un recordset che mi restituisce due record (copio il codice nella finestra immediata e verifico con una query il risultato).
In Vba però la proprietà rs.RecordCount mi restituisce sempre 1.
Può dipendere dal fatto che l'origine del recordset è una query e non una o più tabelle?
Se sì come posso ovviare?
Ricreare l'origine query nel recordset non è possibile.
A patto che si possano  avere 1, 2 o 3  record nel recordset in base al valore di 3 campi dello stesso record della tabella origine.
Grazie.
Giuseppe


title: RecordCount errato

text:
Al primo utilizzo devi aggiornare il Bookmark prima... quindi
Rs.MoveLast
Rs.MoveFirst

MsgBox Es.Recordcount

@Alex


title: RecordCount errato

text:

Grazie Alex per la risposta, ma in questo caso il recordset l'ho aperto non per eseguire un ciclo ma per sapere di quanti record è composto il recordset.
Questo perchè se il record è uno, riempio i controlli con i dati dell'unico record presente nel recordset, altrimenti l'operatore deve eseguire un filtro sui record esplosi e successivamente riempire i controlli in base al record filtrato.
Nel frattempo ho adottato la seguente soluzione e sembra funzionare:
Dim lngPresenze As Long
Dim lngAssenze As Long
Dim lngRicoveri As Long
Dim lngConteggio As Long
    lngPresenze = RicercaDato("SELECT TotalePresenze AS DATO FROM tblAssistiti INNER JOIN (tblDegenze INNER JOIN tblDegenzeMensili ON tblDegenze.IDDegenza = tblDegenzeMensili.IDDegenza) ON tblAssistiti.IDAssistito = tblDegenze.IDAssistito WHERE IdAnagrafica = " & lngIdAnagrafica & " AND Anno = " & Form_mFattura.txtAnno & " AND IDMese = " & Me.cmbIdMese)
    lngAssenze = RicercaDato("SELECT TotaleAssenze AS DATO FROM tblAssistiti INNER JOIN (tblDegenze INNER JOIN tblDegenzeMensili ON tblDegenze.IDDegenza = tblDegenzeMensili.IDDegenza) ON tblAssistiti.IDAssistito = tblDegenze.IDAssistito WHERE IdAnagrafica = " & lngIdAnagrafica & " AND Anno = " & Form_mFattura.txtAnno & " AND IDMese = " & Me.cmbIdMese)
    lngRicoveri = RicercaDato("SELECT TotaleRicoveri AS DATO FROM tblAssistiti INNER JOIN (tblDegenze INNER JOIN tblDegenzeMensili ON tblDegenze.IDDegenza = tblDegenzeMensili.IDDegenza) ON tblAssistiti.IDAssistito = tblDegenze.IDAssistito WHERE IdAnagrafica = " & lngIdAnagrafica & " AND Anno = " & Form_mFattura.txtAnno & " AND IDMese = " & Me.cmbIdMese)
    lngConteggio = IIf(lngPresenze = 0, 0, 1) + IIf(lngAssenze = 0, 0, 1) + IIf(lngRicoveri = 0, 0, 1)
    If lngConteggio = 1 Then
Dim rsPresenze As DAO.Recordset
        Set rsPresenze = CurrentDb.OpenRecordset("SELECT IdTipo, TotaleDegenza, IdAnagrafica, Anno, IDMese FROM qryDegenzeMensili WHERE IdAnagrafica = " & lngIdAnagrafica & " AND Anno = " & Form_mFattura.txtAnno & " AND IDMese = " & Me.cmbIdMese)
 ecc.....

Giuseppe


title: RecordCount errato

author: Ammammata

text:
Il giorno Fri 17 Jun 2022 12:17:10a, *Giuseppe Cardascia* ha inviato su
it.comp.appl.access il messaggio
news:32a2bc16-d6b9-4494...@googlegroups.com
. Vediamo
cosa ha scritto:

> Creo un recordset che mi restituisce due record (copio il codice nella
> finestra immediata e verifico con una query il risultato). In Vba però
> la proprietà rs.RecordCount mi restituisce sempre 1.
>

prova questo, opportunamente adattato

TotR = rs.RecordsetClone.RecordCount

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


title: RecordCount errato

text:

Grazie.
Provo.
Giuseppe


title: RecordCount errato

author: Simone Calligaris

text:
> > Al primo utilizzo devi aggiornare il Bookmark prima... quindi

> > Rs.MoveLast
> > Rs.MoveFirst
> > MsgBox Es.Recordcount

> > @Alex

> Grazie Alex per la risposta, ma in questo caso il recordset l'ho aperto non per eseguire un ciclo ma per sapere di quanti record è composto il recordset.

E infatti la sua risposta risolve il tuo problema.
Il .MoveLast/.MoveFirst sarà pure un giro seccante, ma è l'unico modo per avere il giusto .RecordCount di un recordset in tutti gli scenari.

Saluti


title: RecordCount errato

text:

Grazie a tutti.
Alex è stato sufficiente aver inserito quelle due righe subito dopo la creazione del recordset.
Giuseppe


title: RecordCount errato

text:
> Grazie a tutti.
> Alex è stato sufficiente aver inserito quelle due righe subito dopo la creazione del recordset.
> Giuseppe

Già... ;-)

Ora tuttavia quello che fai è migliorabile... in quanto se avessi detto ti serviva SOLO il numero dei records... ti avrei detto di creare una query di conteggio estremamente più veloce e non richiede quel giochetto... oppure usa DCOUNT sulla PK con condizione ed è ancora più conveniente.

SELECT COUNT(*) FROM T1 WHERE (TUA CONDIZIONE)
Se apri il recordset Readonly in Snapshot il Fields(0) contiene i records.

Oppure DCOUNT("tuaPK",tuaTabella,tuaCondizione)

Decisamente quello che fai sarebbe da evitare.

@Alex


title: RecordCount errato

text:

Grazie.
No no, come detto nella prima risposta al tuo suggerimento, oltre che sapere quanti record esplode il recordset, alcuni dati di quei record li utilizzo per riempire automaticamente i controlli della maschera per un nuovo record.
Effettivamente se l'obiettivo fosse solo quello di conoscere il numero di record, sarebbe stata sufficiente l'opzione
> Oppure DCOUNT("tuaPK",tuaTabella,tuaCondizione)

Grazie e buon weekend.
Giuseppe


title: Moduli... accesso esclusivo database

author: sPAriTO

text:
Uso questo modulo di Giorgio Rancati  per concedere l'accesso ad un solo
utente alla volta:
Function IsMultisession() As Boolean
 'Questa Routine � stata sviluppata da GIORGIO RANCATI
 '
    Dim NomeLdb As String
    Dim i As Integer
    NomeLdb =
Application.CurrentDb.Name
    Mid(NomeLdb, Len(NomeLdb) - 2, 3) = "Ldb"
    'Apro l'LDB e controllo che non sia maggiore di 64 byte
    'Ogni 64 byte � un accesso al Db
    Open NomeLdb For Binary Access Read Write As #1
    If LOF(1) > 64 Then i = -1
    Close #1
    If i Then
        MsgBox "Ad uno ad uno"
     Application.Quit
    'Non serve ritornare nessun parametro perch�
    'l'applicazione viene interrotta brutalmente
   End If
 IsMultisession = False
 End Function
Ci sarebbe la possibilit� di conoscere anche l'utente che ha aperto il
database?
Grazie


title: Moduli... accesso esclusivo database

text:
sPAriTO wrote:
> Uso questo modulo di Giorgio Rancati  per concedere l'accesso ad un
> solo utente alla volta:
> ...
>    'Apro l'LDB e controllo che non sia maggiore di 64 byte
> ... Ci sarebbe la possibilitï¿œ di conoscere anche l'utente che ha aperto
> il database?
Forse ti aiuta questa discussione:
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/2e599baf97398def/b7e93fcd2d6349b5
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Moduli... accesso esclusivo database

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:7are25F...@mid.individual.net...
> Forse ti aiuta questa discussione:
>
>
http://groups.google.com/group/it.comp.appl.access/browse_frm/thread/2e599baf97398def/b7e93fcd2d6349b5
purtroppo non c'ho capito molto, non ho capito se si pu� fare e se si come
saresti cos� gentile da inserire sul modulo che ho postato un integrazione
che mi ritorni l'utente che ha aperto il database?
oppure spiegami l'alternativa per poter raggiungere lo scopo.
A me interezza una roba del genere, "NON PUOI ENTRARE PERCHE' C'E' TIZIO"


title: Moduli... accesso esclusivo database

author: Roberto da Parma

text:
"sPAriTO" <
spa...@spa.it
> ha scritto nel messaggio
news:h2a51v$gu7$1...@news.motzarella.org...

C'� un p� di "pappa pronta" su
accessgroup.it
 per quanto riguarda la lettura
del file .ldb
E (non cos� difficile) in parte � spiegato qualcosa nel thread che ti ha
indicato Karl...
In sostanza creati una tabella UtentiConnessi all'apertura vai a
leggere/scrivere il CurrentUser()
Se � gi� presente una riga...rimandi il messaggio che chiedevi...altrimenti
apri e scrivi
Ciao
Roberto da Parma


title: Messaggi di errore.

author: Maurizio

text:
E' possibile intercettare e personalizzare il messaggio che access
visualizza nel momento in cui, per esempio, una data viene inserita non
rispettando la maschera di input definita?
Possibile che bisogna accettare quel maledetto 99/99/00?
Grazie.


title: Messaggi di errore.

author: Lorenzo Coronati

text:
Scrisse "Maurizio" <
mauri...@mail2.crown-net.com
>:

Ma tu vuoi cambiare il mex oppure proprio non vuoi la maschera di
input?
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--


title: Ciclo ForEach su TransferSpreadsheet

author: Repko

text:
Salve,
questa è la stessa sub postata in data 08/10/04 nel post "Importazione
foglio excel" modificata con l'aiuto di Cinzia.
Con questa posso importare il foglio excel che desidero solo cambiando il
valore di Nspe (da 1 a 30), ma se volessi impostare un ciclo each per
importare tutti i fogli insieme cosa devo cambiare? ho provato ad impostare
la funzione ma non so cosa dichiarare e come richiamare gli oggetti
worksheet e wrksheets.
Private Sub Importa()
    Dim Nspe As Integer
    Dim Vspe As Variant
    Nspe = 1
    Vspe = DLookup("specialistica", "tblelencospe", "idspe=" & Nspe)
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, Vspe, _
    "c:\documenti\masterportale\master_07regionale.xls", True, Vspe & "!"
End Sub


title: Ciclo ForEach su TransferSpreadsheet

author: Cinzia

text:
"Repko" <x@x.x> ha scritto nel messaggio
news:MET9d.100098$35.48...@news4.tin.it...
> Salve,
> questa č la stessa sub postata in data 08/10/04 nel post "Importazione

Ciao Repko,
tu vuoi fare un ciclo che importi tutti i fogli contemporaneamente ognuno in
una tabella diversa?
Se č cosě  basta fare questa modifica:
Private Sub Importa()
    Dim Nspe As Integer
    Dim Vspe As string
    For  Nspe = 1 to 30
              Vspe = DLookup("specialistica", "tblelencospe", "idspe=" &
Nspe)
             DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8,
Vspe, _ "c:\documenti\masterportale\master_07regionale.xls", True, Vspe &
"!"
   next
 End Sub
Saluti
Cinzia


title: Ciclo ForEach su TransferSpreadsheet

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:ck9b6o$kl5$1...@lacerta.tiscalinet.it...

^_^ grazie 1000 Cinzia!


title: Aggiornare ComboBox

author: Giorgio A.

text:
Saluti a tutti.
Per cortesia un aiuto.
Ho una ComboBox chiamata "CasellaRiepilogo0" con in elenco 3 voci:
Pippo;Pluto;Paperina
e una 2 ComboBox chiamata "CasellaRiepilogo1" con in elenco:
Topolino;Paperino;QuiQuoQua
Il mio intento è fare in modo di diminuire l'elenco di voci  nella
"CasellaRiepilogo1" a seconda della selezione delle voci nella
"CasellaRiepilogo0"
 In questo esempio vorrei che alla selezione di "Pippo" nella
"CasellaRiepilogo0", che la "Me.CasellaCombinata2" venisse ridotta alla sola
voce "Paperino" e
 Che selezionando "Pluto" la "CasellaCombinata2" venisse ridotta alla sola
voce "QuiQuoQua" e che selezionando "Paperina" la "CasellaCombinata2"
venisse aggiornata a Topolino;Paperino;QuiQuoQua
ho provato con:
If (Me.CasellaCombinata0 = "Pippo") Then
   Me.CasellaCombinata2.RemoveItem (0) ' Rimuovo la voce Topolino
ma nell' indice (2) mi da errore del tipo "Impossibile rimuovere l'elemento.
Impossibile trovare (2) nell'elenco
    Me.CasellaCombinata2.RemoveItem (2) ' Rimuovo la voce QuiQuoQua
End If
Se invece tralascio la parte di codice di eliminazione indice (2) ed eseguo
solo la parte (0) tutto funziona
Ho provato pure ad usare la proprietà "Additem" ma senza esito.
Grazie 1000
Giorgio


title: Aggiornare ComboBox

author: antonio

text:
"Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
news:46361f0c$0$10628$4faf...@reader2.news.tin.it...

Piuttosto che rimuovere le voci, non ti conviene rigenerare l'intero gruppo
di opzioni possibili per la seconda combobox? In fondo una combobox può
avere il Tipo origine riga impostato a "Elenco valori" e l'origine riga la
puoi impostare con tutti i valori conseguenti la scelta effettuata nella
combo precedente. I valori li devi separare con un puntoevirgola.
Ciao
Antonio


title: Aggiornare ComboBox

text:
Per cortesia mi potresti fare un esempio su come attuare quanto consigliato?
Grazie



title: Aggiornare ComboBox

author: ALESSANDRO Baraldi

text:
"Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
news:46361f0c$0$10628$4faf...@reader2.news.tin.it...

Una cosa di questo tipo...
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=260
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: Aggiornare ComboBox

text:
Grazie 1000 Alessandro ma non fa al caso mio
Nel mio caso ho 2 caselle combinate
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f15b91$8kl$1...@aioe.org...



title: Aggiornare ComboBox

text:
Ho provato questa soluzione ma funziona parzialmente.
Se clicco la prima volta (all' apertura della maschera) nella
"CasellaCombinata0" la "CasellaCombinata2" mi da la riduzione delle voci che
voglio, ma se riclicco nella "CasellaCombinata0" mi da la riduzione delle
voci scelte + la riduzione del click precedente. In pratica non riesco a
cancellare nella casella combinata le scelte
precedenti.
Ho provato con CasellaCombinata2.RemoveItem ma senza successo.
Come stoppare tale situazione
Private Sub CasellaCombinata0_Click()
If (Me.CasellaCombinata0 = "Pippo") Then
    Me.CasellaCombinata2.AddItem ("Paperino") ' carico la voce Paperini
    Me.CasellaCombinata2.AddItem ("QuiQuoQua") ' carico la voce Paperini
    Me.CasellaCombinata2.Requery
ElseIf Me.CasellaCombinata0 = "Pluto" Then
    'Me.CasellaCombinata2 = ""
    Me.CasellaCombinata2.AddItem ("Topolino") ' carico la voce Paperini
    Me.CasellaCombinata2.Requery
ElseIf Me.CasellaCombinata0 = "Paperina" Then
    'Me.CasellaCombinata2 = ""
    Me.CasellaCombinata2.AddItem ("Topolino") ' carico la voce Paperini
    Me.CasellaCombinata2.AddItem ("Paperino") ' carico la voce Paperini
    Me.CasellaCombinata2.AddItem ("QuiQuoQua") ' carico la voce Paperini
    Me.CasellaCombinata2.Requery
End If
Grazie ancora
"Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
news:4636322c$0$10619$4faf...@reader2.news.tin.it...
> Grazie 1000 Alessandro ma non fa al caso mio
> Nel mio caso ho 2 caselle combinate
>
> "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> news:f15b91$8kl$1...@aioe.org...
>> "Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
>> news:46361f0c$0$10628$4faf...@reader2.news.tin.it...
>>> Saluti a tutti.
>>>
>>> Per cortesia un aiuto.
>>>
>>> Ho una ComboBox chiamata "CasellaRiepilogo0" con in elenco 3 voci:
>>> Pippo;Pluto;Paperina
>>>
>>> e una 2 ComboBox chiamata "CasellaRiepilogo1" con in elenco:
>>> Topolino;Paperino;QuiQuoQua
>>>
>>> Il mio intento č fare in modo di diminuire l'elenco di voci  nella
>>> "CasellaRiepilogo1" a seconda della selezione delle voci nella
>>> "CasellaRiepilogo0"
>>>  In questo esempio vorrei che alla selezione di "Pippo" nella
>>> "CasellaRiepilogo0", che la "Me.CasellaCombinata2" venisse ridotta alla
>> sola
>>> voce "Paperino" e
>>>  Che selezionando "Pluto" la "CasellaCombinata2" venisse ridotta alla
>>> sola
>>> voce "QuiQuoQua" e che selezionando "Paperina" la "CasellaCombinata2"
>>> venisse aggiornata a Topolino;Paperino;QuiQuoQua
>>>
>>> ho provato con:
>>>
>>> If (Me.CasellaCombinata0 = "Pippo") Then
>>>    Me.CasellaCombinata2.RemoveItem (0) ' Rimuovo la voce Topolino
>>>
>>> ma nell' indice (2) mi da errore del tipo "Impossibile rimuovere
>> l'elemento.
>>> Impossibile trovare (2) nell'elenco
>>>     Me.CasellaCombinata2.RemoveItem (2) ' Rimuovo la voce QuiQuoQua
>>> End If
>>>
>>> Se invece tralascio la parte di codice di eliminazione indice (2) ed
>> eseguo
>>> solo la parte (0) tutto funziona
>>> Ho provato pure ad usare la proprietą "Additem" ma senza esito.



title: Aggiornare ComboBox

text:
> Grazie 1000 Alessandro ma non fa al caso mio
> Nel mio caso ho 2 caselle combinate
Beh non sarebbe il problema delle 2 Combo, anche se le hai chiamate
Riepilogo nel 1° messaggio e sono stato ingannato...!
Credo ti convenga  sfruttare 2 Recordset Temporanei in memoria ADO,
riempirli
e poi gestire il DELETE di uno facendo un Find "NomeCampo=" & Me.AltraCombo
ed ADDNEW allo stesso modo...
Dai un'cchiata a questo demo di Giorgio:
http://www.riolab.org/viewrisorsa.asp?id=45
Chiaramente devi riadattarlo alle tue esigenze, ma di certo otterrai
una cosa più pulita...!
L'altra alternativa sarebbe quella di sfruttare la Stringa da passare al
ROWSOURCE
invece dei metodi AddItem e Remove... quindi fai un Replace(Stringa & ";",
vbNullString)
per rimuoverlo e dall'altra parte un RowSource=RowSource & ";" &
StringaRimossa
Saluti



title: Aggiornare ComboBox

text:
"Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
news:463626c8$0$10619$4faf...@reader2.news.tin.it...

Prima che i mastini del newsgroup ti azzannino ferocemente (mastini sto
scherzando, non azzannate me !!!), ricorda che le risposte vanno poste in
coda al messaggio cui si risponde e non alla testa. Leggi le regole su
www.sitocomune.com
Tornando al tuo quesito...
Definisci due caselle di riepilogo, entrambe col parametro "Tipo origine
riga" impostato a "Elenco valori". Inoltre, nel parametro "Origine riga"
della prima casella scrivi "Pippo";"Pluto";"Paperina" mentre nel
corrispondete parametro dell'altra casella non metti niente.
A questo punto definisci l'evento "Dopo aggiornamento" della prima casella
con questa routine:
Private Sub CasellaRiepilogo0_AfterUpdate()
    Select Case CasellaRiepilogo0
        Case "Pippo"
            CasellaRiepilogo1.RowSource = "Paperino"
        Case "Pluto"
            CasellaRiepilogo1.RowSource = "QuiQuoQua"
        Case "Paperina"
            CasellaRiepilogo1.RowSource = "Topolino;Paperino;QuiQuoQua"
        Case Else
            CasellaRiepilogo1.RowSource = ""
    End Select
End Sub
E' tutto...
Ciao
Antonio


title: Aggiornare ComboBox

text:
"Giorgio A." <
interne...@alice.it
> ha scritto nel messaggio
news:46361f0c$0$10628$4faf...@reader2.news.tin.it...

>Grazie mille Antonio è quello che fa al caso mio.
Saluti a tutto il gruppo
Giorgio


title: campo testo molto lungo

author: kaled

text:
Devo inserire in un campo delle descrizioni parecchio lunghe. Perň il campo
testo con i suoi 255 caratteri mi sta stretto. Cosě ho pensato di usare il
memo. Mi hanno detto perň che non va bene e soprattutto non si possono fare
ricerche...possibile? altre soluzioni?


title: campo testo molto lungo

text:
"kaled" <
kolmer...@tin.it
> ha scritto nel messaggio
news:5C2yc.308985$hc5.13...@news3.tin.it...
> Devo inserire in un campo delle descrizioni parecchio lunghe. Però il
campo
> testo con i suoi 255 caratteri mi sta stretto. Così ho pensato di usare il
> memo. Mi hanno detto però che non va bene e soprattutto non si possono
fare
> ricerche...possibile? altre soluzioni?
Chi lo ha detto...??
In base a quali nozioni fantascentifiche.....!!!
Scherzi a parte va bene, funzionano anche le ricerche, solo
per ovvi motivi(la dimensione) non è performante come un
campo Testo, ma se questa è la tua esigenza vai pure.
Non pagarlo chi ti ha dato questo consiglio....!!!!!!
@Alex.


title: campo testo molto lungo

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:caaeut$t2t$1...@lacerta.tiscalinet.it...
[cut]
> Non pagarlo chi ti ha dato questo consiglio....!!!!!!
grazie mille...non lo farò infatti voleva farsi pagare una pizza e farmi
passare ad altro database (openoffice?!?)!


title: campo testo molto lungo

author: pixel

text:
"ALESSANDRO Baraldi" <
> Scherzi a parte va bene, funzionano anche le ricerche, solo
> per ovvi motivi(la dimensione) non č performante come un
> campo Testo, ma se questa č la tua esigenza vai pure.
La limitazione reale č legata agli ordinamenti: impossibili su Memo.
Pixel


title: campo testo molto lungo

text:
"kaled" <
> > Non pagarlo chi ti ha dato questo consiglio....!!!!!!
> grazie mille...non lo farò infatti voleva farsi pagare una pizza e farmi
> passare ad altro database (openoffice?!?)!
Incredibile: OpenOffice non include alcun prodotto che possa anche soltanto
avvicinarsi ad  Access ...  2.0 !
Pixel


title: campo testo molto lungo

text:
"pixel" <
pixe...@libero.it
> ha scritto nel messaggio
news:8t3yc.50161$Wc.15...@twister2.libero.it...
> Incredibile: OpenOffice non include alcun prodotto che possa anche
soltanto
> avvicinarsi ad  Access ...  2.0 !
sě me ne sono accorto. Ma la persona che lo diceva era un fanatico di linux
e voleva assolutamente farmi credere che nonostante tutto con OO si potevano
creare database in maniera piů semplice e funzionale di access.


title: Problema con Application.FileDialog(msoFileDialogSaveAs)

author: Mouseraider

text:
Salve a tutti

sto utilizzando la seguente funzione per salvare un file di testo
contenente dati di configurazione utilizzando la finestra di Win
Salva con nome.

With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Esporta file configurazione."
       .InitialFileName = "SetPath_"
       If .Show = -1 Then
           .Execute
           strFile = .SelectedItems(1)
        Else
            Exit Sub
        End If

La finestra "Salva con nome" si apre normalmente, ma quando clicco
sul pulsante salva di questa finestra mi si chiude di brutto Access e
si riapre da solo. Inoltre mi crea una copia di Backup nella cartella
dell'applicazione.
Come posso risolvere il problema?

Grazie 1K per l'help

--
Grazie 1k per l'help


text:

Hai inserito una gestione errori...?
Hai verificato se il FILE si riesce a salvare...?
Che tipo di File è...?
Lo hai aperto via Automazione...?(se si usa il metodo SaveAs dell'Oggetto aperto in quanto risulta Bloccato per il S.O. ed il metodo Execute fallirà...)

Insomma serve avere qualche dettaglio più tecnico.

Prova a leggere anche questi:
http://microsoft.public.office.developer.vba.narkive.com/lwtu70q3/bug-in-filedialog-msofiledialogsaveas-execute-method

https://social.msdn.microsoft.com/Forums/office/en-US/b5e211c7-2cf1-411a-bd5a-795a0ca5c343/execute-method-of-the-msofiledialogsaveas-file-dialog-works-in-word-2007-does-not-work-in-word?forum=worddev

@Alex


author: GiorgioDaPrato

text:
> Come posso risolvere il problema?
>
> Grazie 1K per l'help

se non c'è un problema di permessi di scittura

aggiungo la segnalazione di questo insieme di script vbs
(mi sembra che sia anche indicata
la compatibilità con il SO Windows dei vari oggetti)

http://www.robvanderwoude.com/vbstech.php#UI

Ne ho utilizzati alcuni,
proprio perchè, in pratica, basta copiare "pari pari" le routine


text:
>
> Hai inserito una gestione errori...?
> Hai verificato se il FILE si riesce a salvare...?
> Che tipo di File Ãš...?
> Lo hai aperto via Automazione...?(se si usa il metodo SaveAs
dell'Oggetto aperto in quanto risulta Bloccato per il S.O. ed il metodo
Execute fallirÃ ...)
>
> Insomma serve avere qualche dettaglio piÃ¹ tecnico.
>
> Prova a leggere anche questi:
>
http://microsoft.public.office.developer.vba.narkive.com/lwtu70q3/bug-

in-filedialog-msofiledialogsaveas-execute-method
>
>
>
https://social.msdn.microsoft.com/Forums/office/en-US/b5e211c7-2cf1-

411a-bd5a-795a0ca5c343/execute-method-of-the-msofiledialogsaveas-file-
dialog-works-in-word-2007-does-not-work-in-word?forum=worddev
>
> @Alex

Scusate il ritardo.
Ho win 10 e Access 2016

Utilizzo la finestra Dialogo Save As per creare un file di testo che
poi apro con:

K = FreeFile
Open strFile For Append As #K   'scrive il file di configurazione
Write #K, PathVal
Close #K
With rstPath
MoveNext
End With

Recuperando il percorso e il nome dalla finestra Save As con
strFile = .SelectedItems(1)

La gestione errori l'ho inserita ma non segnala nulla.
La cosa strana è che quando do il comando salva mi chiude il database e
mi crea una copia di backup di esso.

In precedenza utilizzavo (con access 2003)

With CommonDialog1
    .DialogTitle = "Esportazione file di configurazione"
    .Filter = "File di configurazione (*.txt)|*.txt"
    .FilterIndex = 1
    .ShowSave
End With
strFile = CommonDialog1.FileName

inserendo nella form il controllo ActiveX CommonDialogs che Access 2016
sembra non riconoscere più.



text:
Salve

Cercando su internet ho trovato questo:

https://support.office.com/it-it/article/propriet%C3%A0-filedialog-

8510b02d-e455-44a9-bf38-3787e6d5c8c1

Nel quale si dice che msoFileDialogSaveAs non è supportato in Access
2016!
Quindi come si può fare per creare un file utilizzando una maschera
simile a Salva con nome?



text:

Il File lo salvi in altro modo... come ti ho provato a spiegare, hai provato a non usare EXECUTE per recuperare solo il NOME funziona.

@Alex


title: stessa sottomaschera con origine record diversa ripetuta in maschera

author: mario rossi

text:
buongiorno a tutti,
sapete se è possibile usare la stessa sottomaschera più volte all'interno di una stessa maschera cambiando soltanto l'origine record a tuntime da vba che sarebbe qualcosa tipo

sottomaschera1 = select * from miatabella where numero=1
sottomaschera2 = select * from miatabella where numero=2
....

e fare in modo che quando clicco una cella della sottomaschera 1 arrivi un certo parametro all'evento click diverso dal parametro che ricevo se clicco sulla sottomaschera2

fattibile? quest'ultimo punto forse con il tag della sottomaschera?
ma l'origine record diversa è fattibile?


text:

Ovviamente si, metti più volte la stessa Maschera come Sottomaschera e differenzi l'Origine... poi per passare parametri devi trovare il modo corretto...

@Alex


text:

sono riuscito, grazie.


text:
Il giorno mercoledì 19 ottobre 2022 alle 07:36:15 UTC+2 @Alex ha scritto:

c'è un modo per passare ad un altra form qualche delle sottomaschere duplicate ho cliccato?
ho visto che gli eventi della sottomaschera sono solo "su invio" "su uscita"
pensavo di riuscire a passare un parametro e ci fosse evento "su click" ma non c'è
c'è un altro modo?

grazie.


text:

ho risolto usando l'evento "su invio" riesco a passare un parametro diverso in base alla sottomaschera che clicco


title: Eliminare tag HTML da campo testo

author: leonardo

text:
Ho un capo testo contentente dei tag HTML, dovendo stampare dei report
direttamente tramite access vorrei eliminare i tag e il loro contenuto
in modo che il testo sia pulito.
Ho pensato alla funzione replace ma non riesco a capire se posso
ottenere l'eliminazione del tag e del loro contenuto.
Qualcuno sa illuminarmi su come raggiungere il mio scopo ?
In alternativa sarebbe possibile costruire una specie di foglio stile
che mi permetta di controllare la formattazione di elementi contenuti
in tag HTML ?
Es.
<h4> Titolo <\h4> sostituito con una stringa "Titolo"  formattata
secondo uno stile da me definito.
saluti,
leonardo


title: Eliminare tag HTML da campo testo

text:
In poche parole č possibile impostare una funzione che mi sostituisca
<tag>  con una stringa vuota "".
Chiaramente il contenuto di <> varia.


title: Eliminare tag HTML da campo testo

text:
Volevo capire se ho posto male il quesito o se nessuno è in grado di
indicarmi una soluzione allo stesso ?
grazie,
leonardo


title: Eliminare tag HTML da campo testo

author: Sergio MAZZA

text:
"leonardo" <
leo_...@yahoo.it
> ha scritto nel messaggio
news:chn3u19v484hqebb5...@4ax.com...

Se la vuoi immediata la risposta, ti invio le mie coordinate bancarie;
altrimenti aspetti che termino un lavoro e provo a risponderti...
Scegli tu...
Ciao.
--
Sergio MAZZA


title: Eliminare tag HTML da campo testo

text:
>
>Se la vuoi immediata la risposta, ti invio le mie coordinate bancarie;
>altrimenti aspetti che termino un lavoro e provo a risponderti...
>
>Scegli tu...
Ok, manda pure le coordinate che ti faccio il bonifico...
Bastano 1000 euro o è troppo poco ?
A parte gli scherzi, fai con comodo, non è che avessi fretta ma
sinceramente non capivo se il quesito fosse troppo banale e quindi
nessuo si fosse degnato di rispondermi oppure al contrario fosse in
qualche modo complicato e quindi non ci fosse nessuno con una
soluzione semplice a portata di mano.
Avendo programmato un po in php, dove il problema sarebbe facilmente
risolvibile tramite una delle tante funzioni di manipolazione delle
stringhe che permettono l'inserimento di qualsiasi tipo di parametro
da ricercare all'interno di un testo,  ritenevo che fosse possibile
intervenire in modo simile all'interno di access, utilizzando cioè
caratteri speciali per una ricerca dinamica tramite una qualche
funzione.
Del tipo:	"<" & % & ">"
Cercami tutte le stringhe che iniziano con < ,con all'interno
qualsiasi tipo di carattere e che terminino con ">"
Aspetto il tuo responso...senza fretta  ;-)
saluti,
leonardo


title: Eliminare tag HTML da campo testo

text:
"leonardo" <
leo_...@yahoo.it
> ha scritto nel messaggio
news:us74u11bqkf5enmh1...@4ax.com...
>
> Ok, manda pure le coordinate che ti faccio il bonifico...
>
> Bastano 1000 euro o č troppo poco ?
VAaaaa Beeeneee!!!
> A parte gli scherzi, fai con comodo, non č che avessi fretta ma
> sinceramente non capivo se il quesito fosse troppo banale e quindi
> nessuo si fosse degnato di rispondermi oppure al contrario fosse in
> qualche modo complicato e quindi non ci fosse nessuno con una
> soluzione semplice a portata di mano.
>
> Avendo programmato un po in php, dove il problema sarebbe facilmente
> risolvibile tramite una delle tante funzioni di manipolazione delle
> stringhe che permettono l'inserimento di qualsiasi tipo di parametro
> da ricercare all'interno di un testo,  ritenevo che fosse possibile
> intervenire in modo simile all'interno di access, utilizzando cioč
> caratteri speciali per una ricerca dinamica tramite una qualche
> funzione.
>
> Del tipo: "<" & % & ">"
>
> Cercami tutte le stringhe che iniziano con < ,con all'interno
> qualsiasi tipo di carattere e che terminino con ">"
>
> Aspetto il tuo responso...senza fretta  ;-)
>
>
> saluti,
> leonardo
Oggi forse non ce la faccio; comunque l'idea č quella di caricare il codice
HTML dinamicamente su IE e leggerne il risultato con:
objApplication.Document.Boby.InnerText
Se cerchi con google nell'NG microsoft.public.it.vb c'č un mio e di Cinzia
messaggio dove viene descritto l'esempio per caricare dinamicamente codice
HTML, sarebbe da integrare con l'istruzione descritta sopra per avere il
testo pulito...
Ciao.
--
Sergio MAZZA


title: Eliminare tag HTML da campo testo

text:
"leonardo" <
leo_...@yahoo.it
> ha scritto nel messaggio
news:us74u11bqkf5enmh1...@4ax.com...
---omissis--->
> Aspetto il tuo responso...senza fretta  ;-)
>
>
> saluti,
> leonardo
Prova cosě; devi inserire i riferimenti alla libreria "Microsoft HTML Object
Library"
'---
On Error GoTo errori
Dim oApp As InternetExplorer
Set oApp = CreateObject("InternetExplorer.Application")
oApp.Navigate2 "about:blank"
oApp.Visible = False '<-- True per vedere che succede
Dim oRst As New ADODB.Recordset
oRst.Open "nometabella", CurrentProject.Connection, adOpenDynamic,
adLockOptimistic
oApp.Document.body.innerHTML = oRst!nomeCampoConTestoHTML
oRst!nomeCampoConTestoTXT = oApp.Document.body.innerText
oRst.Update
oRst.Close
Set oRst = Nothing
oApp.Quit
Set oApp = Nothing
Exit Sub
errori:
    set orst = nothing
    oApp.Quit
    Set oApp = Nothing
    MsgBox Application.AccessError(Err.Number) & ", " & Err.Number
'---
Ciao.
--
Sergio MAZZA


title: Eliminare tag HTML da campo testo

author: leone

text:


Ti ringrazio, domani proverň e ti faccio sapere
ciao


title: query parametrica

author: Fabio Gulotta

text: Come si passano i parametri ad una query parametrica da VBA?


title: query parametrica

author: Pablitomf

text:
Fabio Gulotta ha scritto:
> Come si passano i parametri ad una query parametrica da VBA?
Vedi nell'help "PARAMETERS"...
--
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: query parametrica

text:
"Pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:ca9u79$97u$1...@news.newsland.it...

si però trovo solo la spiegazione di come crearla....
non trovo niente che mi spieghi come fornire i parametri alla query tramite
VBA , senza far apparire le finestre di immissione  valore......


title: query parametrica

text:
"Fabio Gulotta" <
fgul...@tiscali.it
> ha scritto nel messaggio
news:ca9vr3$i8t$1...@lacerta.tiscalinet.it...

Cerca nell'help Oggetto Parameter;
--- es. tratto dall'help ---
Nel seguente esempio vengono illustrati gli oggetti Parameter e l'insieme
Parameters mediante la creazione di un oggetto QueryDef temporaneo ed il
recupero dei dati in base alle modifiche apportate all'insieme Parameters
dell'oggetto QueryDef. Per eseguire questa routine è necessaria la routine
ModificaParametri.
Sub ParameterX()
 Dim dbsNorthwind As Database
 Dim qdfReport As QueryDef
 Dim prmInizio As Parameter
 Dim prmFine As Parameter
 Set dbsNorthwind = OpenDatabase("Northwind.mdb")
 ' Crea un oggetto QueryDef temporaneo con
 ' due parametri.
 Set qdfReport = dbsNorthwind.CreateQueryDef("", _
  "PARAMETERS dteInizio DateTime, dteFine DateTime; " & _
  "SELECT IDImpiegato, COUNT(IDOrdine) AS NumOrdini " & _
  "FROM Ordini WHERE DataSpediz BETWEEN " & _
"[dteInizio] AND [dteFine] GROUP BY" IDImpiegato " & _
  "ORDER BY IDImpiegato")
 Set prmInizio = qdfReport.Parameters!dteInizio
 Set prmFine = qdfReport.Parameters!dteFine
 ' Stampa il report utilizzando i valori dei parametri specificati.
 ModificaParametri qdfReport, prmInizio, #1/1/95#,_
  prmFine, #6/30/95#
 ModificaParametri qdfReport, prmInizio, #7/1/95#,_
  prmFine, #12/31/95#
 dbsNorthwind.Close
End Sub
Sub ModificaParametri(qdfTemp As QueryDef, _
prmPrimo As Parameter, dtePrima As Date, _
 prmUltimo As Parameter, dteUltima As Date)
 ' Funzione di report per ParameterX.
 Dim rstTemp As Recordset
 Dim fldCiclo As Field
 ' Imposta il valore dei parametri ed apre il set
 ' di record dall'oggetto QueryDef temporaneo.
 prmPrimo = dtePrima
 prmUltimo = dteUltima
 Set rstTemp = _
  qdfTemp.OpenRecordset(dbOpenForwardOnly)
 Debug.Print "Periodo " & dtePrima & " a " & dteUltima
' Enumera il set di record.
 Do While Not rstTemp.EOF
  ' Enumera l'insieme Fields di recordset.
  For Each fldCiclo In rstTemp.Fields
   Debug.Print " - " & fldCiclo.Name & " = " & fldCiclo;
  Next fldCiclo
  Debug.Print
  rstTemp.MoveNext
 Loop
 rstTemp.Close
End Sub
Ciao.
--
Sergio MAZZA


title: id esterni "null" pur avendo l'integrità referenziale

text:
ciao a tutti

(Access 2003).
Ho tre sottomaschere da query
collegate tra loro con collega campi master e secondari
e una combo in collega campi master per la prima sottomaschera
poi IdOrdine per la seconda e IdCarico per la terza.

La relazione delle tre tabelle(che generano le tre query) hanno l'integrita' referenziale del tipo uno a molti.
Il problema è che, a l'IdOrdine e l'IdCarico esteni non viene impedito di avere il campo null.

Com'e' bene fare?
grazie.


author: Mancini

text:
> Il problema è che, a l'IdOrdine e l'IdCarico esteni non viene impedito di avere il campo null.

Integrita referenziale significa che ogni KeyEsterna deve avere una corrispettiva KeyPrimaria

Ma se la KeyEsterna non la scrivi allora tutto fila liscio

Per risolvere il tuo problema devi impostare
- sulla Tabella Secondaria
- al campo della KeyEsterna
- di non ammettere valori Null

.


text:

grazie Mancini


title: Funzione ricerca attraverso Query

text:
Salve ragazzi, non conosco benissimo Access e avrei bisogno del Vs Aiuto, mi
spiego meglio.
Ho un tabella principale che si chiama "Elenco" e che contiene:
      ID
     Nome
     Cognome
     Soprannome
A questa tabella � legata quest'altra tabella chiamata "importo" che
contiene:
      IDimporto
     ID
     Data
     Importo
Quindi ricapitolando io ho 2 tabelle legate fra di loro (attraverso la voce
ID) i cui dati vengono inseriti attraverso una maschera.
Il mio problema adesso e che volevo inserire una QUERY che mi mostri la
DATA, L'importo, Nome, Cognome.
Premetto che vorrei inserire tutto in una maschera e vorrei poter scegliere
se raggruppare gli Importi  per Mese o Per anno.
Si pu� fare? Che mi pu� dare una mano??? Grazie mille a tutti spero di
essere stato chiaro.
Paolo Mazzacane


title: Funzione ricerca attraverso Query

author: Giorgia

text:
<
mazzaca...@libero.it
> ha scritto nel messaggio
news:EcSan.132273$9f6.1...@twister1.libero.it...

Ciao Paolo.
Credo di saperti aiutare (...e non mi sembra vero!).
Visualizzazione struttura nuova query:
aggiungi le 2 tabelle
clicca 2 volte su ciascun campo che ti interessa sia contenuto nella query
( DATA, L'importo, Nome, Cognome) e ti verrano inseriti nelle colonne
sottostanti.
Per quanto riguarda la seconda parte, non ho capito cosa intendi per
raggruppamento:
vuoi che in apertura la query ti chieda "IMPORTO?" , "MESE?", "ANNO?"
Poi crea una maschera con la creazione guidata e scegli come origine la
query appena creata.
Ciao,
--
Giorgia


title: Funzione ricerca attraverso Query

text:
Giorgia Grazie mille per la prima parte adesso ti spiego meglio la seconda.
Vorrei creare una maschera che all'interno mi possa far scegliere come
visualizzare i dati della query o meglio se mostrarmi i dati per anno (solo
2008, solo 2009, solo 2010, solo 2011) oppure mese per per (Gennaio 09,
Febbraio 09 ecc ecc)
Spero di essere stato chiaro grazie mille ancora
Paolo
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:hkgst3$srr$1...@speranza.aioe.org...



title: Funzione ricerca attraverso Query

text:
<
mazzaca...@libero.it
> ha scritto nel messaggio
news:y2Tan.21174$Ua....@twister2.libero.it...

Bene allora io credo possa bastare un intervento di questo tipo:
nella riga Criteri andrai a mettere per ciascun campo, il filtro per cui
vorrai visualizzare i dati.
Es.:
sotto data: Like "*" & [ANNO?] & "*"
A questo punto prima di mostrarti i dati la query (e poi la maschera
relativa) ti chieder� di quale anno vuoi visualizzare i dati.
Sto presumendo che il tuo formato di data sia del tipo 04/02/2010 per questo
ti occorre il like.
>Spero di essere stato chiaro grazie mille ancora
Figurati!
Ciao,
Giorgia
ps: devi postare sempre in fondo.....;-)


title: Funzione ricerca attraverso Query

text:
Ancora grazie.....ma volevo chiederti solo un'ultima cosa oltra a farla
annauale questo raggruppamento se lo volessi fare pure mensile???
Mi spiego altre ad avere la Query che mi fa selezionare l'anno
(2008-2009-2010 utilizzando il tuo suggerimento) � possibile avere un'altro
comando che mi faccia visualizzare i dati della query solo relativi a Es.
Gennaio 2008, Febbriaio 2010 ecc
Grazie ancora
Paolo
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto nel messaggio
news:hkgvaq$e5$1...@speranza.aioe.org...



title: Icone maschera

author: Lucio

text:
Salve,
come posso impostare un'icona diversa per ogni maschera? (se possibile)
Grazie
Lucio
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Icone maschera

author: MA

text:
                    Il 11 Ago 2004, 17:14,
nap...@tin.it
 (Lucio) ha scritto:
> Salve,
> come posso impostare un'icona diversa per ogni maschera? (se possibile)
> Grazie
> Lucio
Negli ultimi 3 mesi ci dovrebbe essere un 3d in merito, non l'ho seguito ma
ho visto che ne discutevano.
cercalo su google
MAsismiliano
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Icone maschera

author: Alessandro Baraldi

text:
"Lucio" <
nap...@tin.it
> wrote in message
news:cfdd4r$7em$
1...@news.newsland.it
> Salve,
> come posso impostare un'icona diversa per ogni maschera? (se possibile)
> Grazie
> Lucio
Quì trovi come farlo per A97:
http://www.mvps.org/access/api/api0043.htm
Per Versioni di Access superiori se non sbaglio
c'è la proprietà di Form dedicata per questo.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: tasto destro non funziona con runtime 2016

author: Lo

text:
Buongiorno,
qualcuno mi sa dire come mai non funziona più l'utilizzo del tasto destro del mouse, anche solo per fare copia incolla, se utilizzo una versione runtime Access 2016?
Grazie mille per una eventuale e molto gradita risposta...


title: problema con controllo acticex presente in una form -aiutooooo

text:
ho inserito il controllo activex msagent per l'uso degli assistenti, tale
controllo è presente su una form e se cerco di usare l'assistente da un
altro luogo mi dice che non trova la form
    Forms![aziendali]![Agent1].Characters.Load sAgentName, msLocalPath &
sAgentName & ".acs"
infatti il controllo è sulla form aziendali
sapete dirmi come posso usare un controllo activex da qulacunque posto mi
trovo? devo metterlo in ogni form?
grazie a tutti.


title: query d'aggiornamento

author: Luigi

text:
ciao a tutti
� possibile utilizzare una query con raggruppamento
per realizzare una query d'aggiornamento?

Grazie


title: query d'aggiornamento

author: Karl Donaubauer

text:
Luigi wrote:
> è possibile utilizzare una query con raggruppamento
> per realizzare una query d'aggiornamento?

No, se intendi nel FROM della query di aggiornamento.

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


title: query d'aggiornamento

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:aqc6uh...@mid.individual.net...
> Luigi wrote:
>> � possibile utilizzare una query con raggruppamento
>> per realizzare una query d'aggiornamento?
>
> No, se intendi nel FROM della query di aggiornamento.
>
> --

ciao Karl
dovendo aggiornare delle checkbox
e non potendo utilizzare il raggruppamento come posso fare?
ho questa situazione:
Id            numero1      numero2      checkbox
100            0                   1                   0
100            0                   0                   0
oppure:
Id            numero1      numero2      checkbox
100            1                   1                   0
100            0                   0                   0
oppure:
Id            numero1      numero2      checkbox
100            0                   0                   0
100            1                   0                   0
oppure:
Id            numero1      numero2      checkbox
100            0                   0                   0
100            1                   1                   0

anche perch� se utilizzo
Aggiorna a: IIf([numero1]=0 And [numero1]=0 ;0;-1)
ho questo risultato, ma errato nel mio caso
Id            numero1      numero2      checkbox
100            0                   1                  -1
100            0                   0                   0
Grazie


title: query d'aggiornamento

text:
Luigi wrote:
> ...
> dovendo aggiornare delle checkbox
> e non potendo utilizzare il raggruppamento come posso fare?
> ho questa situazione:
> Id            numero1      numero2      checkbox
> 100            0                   1                   0
> 100            0                   0                   0
> oppure:
> Id            numero1      numero2      checkbox
> 100            1                   1                   0
> 100            0                   0                   0
> oppure:
> Id            numero1      numero2      checkbox
> 100            0                   0                   0
> 100            1                   0                   0
> oppure:
> Id            numero1      numero2      checkbox
> 100            0                   0                   0
> 100            1                   1                   0
>
> anche perchè se utilizzo
> Aggiorna a: IIf([numero1]=0 And [numero1]=0 ;0;-1)
> ho questo risultato, ma errato nel mio caso
> Id            numero1      numero2      checkbox
> 100            0                   1                  -1
> 100            0                   0                   0

Non è chiaro cosa vuoi ottenere, sia con salvare un valore
calcolato (<> forma normale 0), sia con un raggruppamento,
sia con la formula con due volte la stessa prova, sia cosa
non ti conviene nel risultato di sopra...

Oltre a chiarificare formula e risultato, copia/incolla
l'istruzione SQL della query. Forse aiuta di capirti meglio.



title: query d'aggiornamento

text:

ciao Karl
io vorrei creare una query d'aggiornamento
che mi spuntasse o meno le checkBox
come in questa query:

SELECT TbCarichi.IDCarico, TbCarichi.DataCarico, Sum((IIf([Numero1]=0 And
[Numero2]=0 Or IsNull([DataCarico]),0,1))) AS Numero_X,
Count(TbCarichi.IDCarico) AS nRecords, IIf(([Numero_X]-[nRecords])=0,-1,0)
AS Valore, TbCarichi.ConfermaCarico
FROM TbCarichi INNER JOIN Dettaglio_Ordini ON TbCarichi.IDCarico =
Dettaglio_Ordini.IDCarico
GROUP BY TbCarichi.IDCarico, TbCarichi.DataCarico, TbCarichi.ConfermaCarico;


title: query d'aggiornamento

text:
[cut]
>
> SELECT TbCarichi.IDCarico, TbCarichi.DataCarico, Sum((IIf([Numero1]=0 And
>
> [Numero2]=0 Or IsNull([DataCarico]),0,1))) AS Numero_X,
>
> Count(TbCarichi.IDCarico) AS nRecords, IIf(([Numero_X]-[nRecords])=0,-1,0)
>
> AS Valore, TbCarichi.ConfermaCarico
>
> FROM TbCarichi INNER JOIN Dettaglio_Ordini ON TbCarichi.IDCarico =
>
> Dettaglio_Ordini.IDCarico
>
> GROUP BY TbCarichi.IDCarico, TbCarichi.DataCarico, TbCarichi.ConfermaCarico;

Creati una tab temporanea e riempila con la query di cui sopra. Aggiungi il campo checkbox e sei aposto


title: query d'aggiornamento

text:
"Fair87" <
roby...@gmail.com
> ha scritto nel messaggio
news:81b9a5dc-33d0-4710...@googlegroups.com...

Grazie Fair87


title: query d'aggiornamento

text:
cut
>>> AS Valore, TbCarichi.ConfermaCarico
>>>
>>> FROM TbCarichi INNER JOIN Dettaglio_Ordini ON TbCarichi.IDCarico =
>>>
>>> Dettaglio_Ordini.IDCarico
>>>
>>> GROUP BY TbCarichi.IDCarico, TbCarichi.DataCarico,
>>> TbCarichi.ConfermaCarico;
>>
>> Creati una tab temporanea e riempila con la query di cui sopra. Aggiungi
>> il campo checkbox e sei aposto
>
> Grazie Fair87

ciao Fair87

non so se ho ben capito
ma in questo modo

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Q_Crea_TbAppoggio"
    DoCmd.OpenQuery "Q_Agg_ConfermaCarico"
    DoCmd.SetWarnings True

la tbAppoggio non ha il tempo materiale di crearsi;
ho inserito nella query d'aggiornamenti "Q_Agg_ConfermaCarico"
la "TbAppoggio";
ma la tbAppoggio non ha il tempo materiale di crearsi.


title: DB condiviso in rete e problemi/prestazioni

author: Fabietto

text:
Ho diviso un DB fra BE e FE su una rete Win NT SBS 4.5.
Ho posto il BE su una directory condivisa del server mentre sui vari client
ho copiato l'applicazione FE di tipo MDE .
Il problema che mi  segnalano gli utenti  e' che solo uno di essi e' in
grado di salvare le modifiche sui record in tabella mentere le modifiche
effettuare dagli altri sembrano perse appena escono dalle maschere.
In secondo luogo, quando piu' utenti sono collegati al BE la consultazione
diventa lentissima...
Che siano problemi di rete o ci puo' essere qualcosa che ho omesso ?
Ho eseguito la divisione guidata del DB e lasciato tutte le impostazioni di
default per il DB...
Grazie
Fabio


author: Luca77 - VI

text:
Che io sappia il problema è il motore dell'Access (Jet)
Infatti molti programmi scritti in VB utilizzano Tabelle create in Access ma
vi accedono tramite ADO
Ciao Luca
"Fabietto" <
fab...@supereva.it
> ha scritto nel messaggio
news:u4dI6.206617$lj4.5...@news6.giganews.com...



author: Simone Calligaris

text:
"Fabietto"
>
> Il problema che mi  segnalano gli utenti  e' che solo uno di essi e' in
> grado di salvare le modifiche sui record in tabella mentere le modifiche
> effettuare dagli altri sembrano perse appena escono dalle maschere.
Probabilmente usi il blocco ottimistico e gli utenti non sanno che fare
quando appare la relativa mascherina di sistema.
Ti consiglio di settare il blocco su "Record modificato" sulle form.
> In secondo luogo, quando piu' utenti sono collegati al BE la consultazione
> diventa lentissima...
O gli utenti sono tanti, oppure la rete viaggia a 10 mb/s.
In alternativa un server vetusto e non dedicato.
> Che siano problemi di rete o ci puo' essere qualcosa che ho omesso ?
Problemi di rete.
Ciao, Simone


text:
"Luca77 - VI" >
>Che io sappia il problema è il motore dell'Access (Jet)
> Infatti molti programmi scritti in VB utilizzano Tabelle create in Access
ma
> vi accedono tramite ADO
Non centra niente: ADO puoi usarlo tranquillamente anche con Access se il
motore è jet 4.0.
Migliora le prestazioni dei batch (già comunque veloci col 3.5) ma non ti
cambia la vita per tutto il resto su reti "ferme".
E viceversa con DAO:  fino a una decina di postazioni concorrenti se la rete
viaggia a 100 mb/s le prestazioni sono abbastanza buone.
Certo, a meno che il database non sia di una pesantezza allucinante.
Ciao, Simone


text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:x_gI6.2215$UW4....@news.infostrada.it...

Facciamo un esempio:
Server Dedicato PIII 128 MB NT4 O W2000
Rete 100Mb
Client PIII 128MB W2000 o W98
In queste situazioni (grosso modo) cosa vuol dire che gli utenti sono molti?
5,10,20 ....
Questa č la mia situazione in ufficio. Anche con soli 3 utenti connessi a
volte č piantatissimo. A volte perň ...(50%)
Luca


author: warp

text:
Luca77 - VI ha scritto nel messaggio ...
>Client PIII 128MB W2000 o W98
>
>In queste situazioni (grosso modo) cosa vuol dire che gli utenti sono molti?
>5,10,20 ....
>Questa è la mia situazione in ufficio. Anche con soli 3 utenti connessi a
>volte è piantatissimo. A volte però ...(50%)
Concordo con Simone.
3 utenti sono pochi anche con una 10 mb/s per piantare un DB Jet.
Molti può voler dire una decina o una quindicina a seconda della complessità dell'applicazione.
Questo è un tema molto dibattuto sul ng. ti consiglio di cercare tra i vecchi post consigli per
stabilizzare le prestazioni.
Ciao, warp


text:
"Luca77 - VI"
> Facciamo un esempio:
>
> Server Dedicato PIII 128 MB NT4 O W2000
> Rete 100Mb
> Client PIII 128MB W2000 o W98
>
> In queste situazioni (grosso modo) cosa vuol dire che gli utenti sono
molti?
> 5,10,20 ....
> Questa č la mia situazione in ufficio. Anche con soli 3 utenti connessi a
> volte č piantatissimo. A volte perņ ...(50%)
Tre postazioni sono davvero poche per avere problemi di prestazioni.
Diverso č il discorso sull'affidabilitą: con configurazioni a buon mercato
ho avuto parecchi guai.
In ogni caso sono sempre problemi connessi all'hardware di rete: cavi e/o
schede.
Se sono Realtek buttale via, e procurati 3com 10/100 che ormai costano
pochetto.
E poi sono da evitare quei cavetti neri da tre millimetri di spessore: buoni
solo per scambiarsi .txt e .xls!
Naturalmente do per scontato che la tua applicazione sia divisa in FE e BE.
Ciao, Simone


text:
"Simone Calligaris" <
simo...@libero.it
> ha scritto nel messaggio
news:dmQI6.15841$UW4.1...@news.infostrada.it...
>
> "Luca77 - VI"
>
> > Facciamo un esempio:
> >
> > Server Dedicato PIII 128 MB NT4 O W2000
> > Rete 100Mb
> > Client PIII 128MB W2000 o W98
> >
> > In queste situazioni (grosso modo) cosa vuol dire che gli utenti sono
> molti?
> > 5,10,20 ....
> > Questa è la mia situazione in ufficio. Anche con soli 3 utenti connessi
a
> > volte è piantatissimo. A volte però ...(50%)
>
> Tre postazioni sono davvero poche per avere problemi di prestazioni.
> Diverso è il discorso sull'affidabilità: con configurazioni a buon mercato
> ho avuto parecchi guai.
> In ogni caso sono sempre problemi connessi all'hardware di rete: cavi e/o
> schede.
>
> Se sono Realtek buttale via, e procurati 3com 10/100 che ormai costano
> pochetto.
> E poi sono da evitare quei cavetti neri da tre millimetri di spessore:
buoni
> solo per scambiarsi .txt e .xls!
> Naturalmente do per scontato che la tua applicazione sia divisa in FE e
BE.
>
> Ciao, Simone
>
>
>
>
>
Allora ascolta cosa ho scoperto:
Ho messo il mio BE in un altro pc con W98 anziché sul server e le
prestazioni ora sono normali
Cioè sia che io entri per primo o per terzo l'accesso e l'utilizzo è veloce.
Do quindi per scontato che la rete funziona, anche perché è certificata a
100mb. Il problema è il server, anzi meglio W2000 ! E sono certo che la rete
è impostata in modo ottimale. Anche perchè con altri programmi multiutente
il problema non esiste.
Andando poi a ritroso ho trovato un msg di qualche tempo fa che ha
confermato quando appena detto.
Ciao
Luca è rassegnato


text:
"Luca77 - VI
> Allora ascolta cosa ho scoperto:
>
> Ho messo il mio BE in un altro pc con W98 anziché sul server e le
> prestazioni ora sono normali
> Cioè sia che io entri per primo o per terzo l'accesso e l'utilizzo è
veloce.
> Do quindi per scontato che la rete funziona, anche perché è certificata a
> 100mb.
Beh, allora puoi osare molto di più :-)
Comunque per essere sicuro che le prestazioni siano quelle dichiarate fai
dei test sulla velocità di trasferimento file da un PC all'altro.
 Il problema è il server, anzi meglio W2000 ! E sono certo che la rete
> è impostata in modo ottimale. Anche perchè con altri programmi multiutente
> il problema non esiste.
> Andando poi a ritroso ho trovato un msg di qualche tempo fa che ha
> confermato quando appena detto.
E' un fenomeno che si verifica anche con NT: su chiusura di una maschera il
sistema attende qualche secondo prima di ritornare sulla videata principale
(che di solito è una maschera non associata).
Questa lentezza è dovuto all'eliminazione del file .ldb, stranamente lenta
con NT/2000.
Ma se segui i consigli dell'help di Access su come ottimizzare le
prestazioni di tabelle collegate creando una connessione permanente al
file-server, risolvi questi problemi prestazionali e le prestazioni si
allineano a un File-server win '98.
Ciao, Simone


title: Casella combinata per inserire Dati personali

author: Mauro Granata

text:
Ciao! vorrei usare una casella combinata dove vedo l'elenco dei clienti per
poi selezionarne uno e ottenere l'automatico iserimento dei suoi datiin un
modulo Ordini. Ho provato a fare come nel database di esempio della
NorthWind ma non mi funziona. É necesario aggiungere un codice in VBA? Non
ci sarebbero degli esempi?


author: Lindbergh

text:
"Mauro Granata" <
mc8...@mclink.it
> ha scritto nel messaggio
news:9cm99g$5bh$1...@news.mclink.it...

Se la casella combinata è (come penso) nella maschera Ordini puoi fare
cosi':
Ponendo che la tabella contenga i campi [Azienda], [Via], [Città], eccetera,
devi inserire sull'evento Dopo Aggiornamento della casella combinata il
seguente codice:
Me!Via = Me.nomecasellacombinata.column(1)
Me!Città = Me.nomecasellacombinata.column(2)
eccetera....
rispettando l'ordine col quale hai inserito i campi scelti nella combo.
Ricordati che Access parte da 0 a contare le colonne
Ciao


author: Sonix

text:
"Mauro Granata" <
mc8...@mclink.it
> ha scritto nel messaggio
news:9cm99g$5bh$1...@news.mclink.it...

> -----------------------
Crea una tabella con una casella di combinata che prende i dati dei
nominativi dallla tabella dell'anagrafica "nome e cognome" ad esempio
Poi crea una maschera con quest'ultima che inserirai come sottomaschera
nella maschera principale con collegati i campi master nome e cognome ad
esempio
Se usi l'autocomposizione vedrai che ci sasti fuori...ciao....ciao.....


title: aggiornamento tabella

author: cix

text:
Ciao a tutti,
piccolo problemino da risolvere:
in una form [Riparazione e Chiusura] ho tre controlli (caselle di testo):
[costo intervento], [costo chiamata] e [totale costo].
Nella tabella [Generale] questi tre controlli si riferiscono a tre campi di
tipo valuta.
Nella form il controllo [totale costo] ha nell'origine controllo la formula:
 =[Costo intervento]+[Costo chiamata]
Ora, quando vado a inserire nella form il costo intervento e il costo
chiamata, automaticamente mi fa vedere il costo totale ma non lo aggiorna
nella tabella.
Non so che codice usare e in quale evento inserirlo.
Capisco che sia una cosa semplice per chi mastica access, io proprio non ci
riesco,perdonate la mia inesperienza e grazie in anticipo a chi mi aiuta.
cesare


title: aggiornamento tabella

author: Roberto da casa

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:a1_K9.16685$Ou4.5...@twister2.libero.it...

La soluzione è di una semplicità unica: elimina dalla tabella Generale il
campo chiamato [totale costo]; in un database relazionale non si registra
mai in una tabella un campo calcolato il cui computo è basato su altri campi
contenuti nella stessa tabella. Il non rispetto di questa regola ti
procurerà dei fastidiosi quanto indesiderati mal di pancia, dei quali
cominci a sentire i primi sintomi. I campi calcolati sono propri di una
query e NON di una tabella.
Tutte le volte che avrai necessità di conoscere il totale del costo te lo
determinerai "on the fly" nel campo calcolato di una query, nel controllo
calcolato di una maschera (come stai appunto facendo tu) o di un report.
Ci sarebbe anche la soluzione con la quale memorizzare nella tabella il
campo calcolato [totale costo], ma visto che ti sconsiglio vivamente di
farlo, non te la suggerisco neppure. ;-)
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aggiornamento tabella

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:640L9.17242$Ou4.5...@twister2.libero.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:a1_K9.16685$Ou4.5...@twister2.libero.it...
> > [CUT]
>
> La soluzione è di una semplicità unica: elimina dalla tabella Generale il
> campo chiamato [totale costo]; in un database relazionale non si registra
> mai in una tabella un campo calcolato il cui computo è basato su altri
campi
> contenuti nella stessa tabella. Il non rispetto di questa regola ti
> procurerà dei fastidiosi quanto indesiderati mal di pancia, dei quali
> cominci a sentire i primi sintomi. I campi calcolati sono propri di una
> query e NON di una tabella.
>
> Tutte le volte che avrai necessità di conoscere il totale del costo te lo
> determinerai "on the fly" nel campo calcolato di una query, nel controllo
> calcolato di una maschera (come stai appunto facendo tu) o di un report.
>
> Ci sarebbe anche la soluzione con la quale memorizzare nella tabella il
> campo calcolato [totale costo], ma visto che ti sconsiglio vivamente di
> farlo, non te la suggerisco neppure. ;-)
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Ciao Roberto,
grazie per il consiglio, hai ragione, ma il motivo del campo calcolato nella
tabella è perchè dopo aver inserito i dati nella form, con un bottone stampo
un report con i dati della form ed ho notato che nel campo [totale costo] mi
stampa il valore ?0,00 anche se negli altri due ho dei valori che danno una
somma superiore allo zero. Sono andato a vedere la tabella e ho notato che
non era stato memorizzato.Forse ci sono altri sistemi per stampare un report
anche con dati che non sono memorizzati su una tabella?se ti può essere
utile ti posto il codice del bottone che stampa la form:
Private Sub Stampa_resoconto_finale_Click()
On Error GoTo Err_Stampa_resoconto_finale_Click
    DoCmd.RunCommand acCmdSaveRecord
    Dim stDocName As String
    stDocName = "Resoconto finale"
    DoCmd.OpenReport stDocName, , , "[Entrata n°]=" & Me.Entrata_n°
Exit_Stampa_resoconto_finale_Click:
    Exit Sub
Err_Stampa_resoconto_finale_Click:
    MsgBox Err.Description
    Resume Exit_Stampa_resoconto_finale_Click
End Sub
Se ti servono altri elementi perchè non sono stato chiaro, dimmi pure.
grazie
cesare


title: aggiornamento tabella

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:k9mL9.20949$Ou4.6...@twister2.libero.it...
>
[CUT]

Immagino che anche nel report "Resoconto finale" avrai dei controlli
chiamati [costo intervento] e [costo chiamata] assosiati ai campi che hanno
lo stesso nome; nel report inserisci una casella di testo non associata
nella cui origine controllo scrivi:
 =[Costo intervento]+[Costo chiamata]
insomma, fai la stessa cosa che hai fatto nella maschera.



title: aggiornamento tabella

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:GsnL9.21208$Ou4.6...@twister2.libero.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:k9mL9.20949$Ou4.6...@twister2.libero.it...
> >
> [CUT]
> > [CUT]
>
> Immagino che anche nel report "Resoconto finale" avrai dei controlli
> chiamati [costo intervento] e [costo chiamata] assosiati ai campi che
hanno
> lo stesso nome; nel report inserisci una casella di testo non associata
> nella cui origine controllo scrivi:
>
>  =[Costo intervento]+[Costo chiamata]
>
> insomma, fai la stessa cosa che hai fatto nella maschera.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Grazie 1000 per le dritte.
Posso aprofittare della tua pazienza e delle tue competenze o non è molto
corretto? Prometto che per un po' non rompo più. Avrei anche questo
Problemino:
attraverso una maschera di dialogo [Trova n°entrata Riparazione e Chiusura]
trovo il mio record nella form [Riparazione e Chiusura] che è identificato
da un campo [Entrata n°].
devo assegnare al controllo [Costo chiamata] del form [Riparazione e
Chiusura] un valore che cambia a seconda di quello che c'è nel campo
[Provenienza merce]della tabella [Generale]
Cerco di spiegarmi meglio:
Se nel campo [Provenienza merce]della tabella [Generale] c'è "1 Cliente",
nel controllo [Costo chiamata] del form [Riparazione e Chiusura] il codice
mi deve restituire il valore "18" nel momento in cui vado a richiamare
l'identificativo [Entrata n°]=Me![Trova n°entrata Riparazione e Chiusura].
Se nel campo [Provenienza merce]della tabella [Generale] c'è "2 Vettore",
nel controllo [Costo chiamata] del form [Riparazione e Chiusura] il codice
mi deve restituire il valore "18" nel momento in cui vado a richiamare
l'identificativo [Entrata n°]=Me![Trova n°entrata Riparazione e Chiusura].
Se nel campo [Provenienza merce]della tabella [Generale] c'è "3 A mezzo
Sael", nel controllo [Costo chiamata] del form [Riparazione e Chiusura] il
codice mi deve restituire il valore "0" nel momento in cui vado a richiamare
l'identificativo [Entrata n°]=Me![Trova n°entrata Riparazione e Chiusura].
Mi hanno suggerito di usare If Dlookup nel codice della maschera di dialogo
che trova il record,
io però non sono riuscito a saltarci fuori, potresti darmi anche questa
dritta?
P.S. il codice della maschera di ricerca [Trova n°entrata Riparazione e
Chiusura]è:
Private Sub Trova_n°_entrata_Riparazione_e_Chiusura_AfterUpdate()
Forms![Riparazione e Chiusura].Filter = "[Entrata n°]=" & Me![Trova n°
entrata Riparazione e Chiusura]
Forms![Riparazione e Chiusura].FilterOn = True
Forms![Riparazione e Chiusura]![Entrata n°].SetFocus
DoCmd.Close
End Sub
Bella mancia che ti sei beccato eh? Perdonami.
Cesare


title: aggiornamento tabella

text:
"cix" <
cesared...@libero.it
> ha scritto nel messaggio
news:WZoL9.21313$TC5.6...@twister1.libero.it...
>
[CUT]

Se non ricordo male, la maschera [Riparazione e Chiusura] ha come origine
record proprio la tabella [Generale]; ne consegue che non hai bisogno di una
DLookup per sapere quale sia il valore contenuto nel campo [Provenienza
merce] di tale tabella. Presuppongo che nella maschera [Riparazione e
Chiusura] tu abbia un controllo chiamato [Provenienza merce] associato al
campo con lo stesso nome della tabella [Generale].
Se così è, nella routine VBA che hai postato, prima della riga di codice:
DoCmd.Close
scrivi:
If Forms![Riparazione e Chiusura]![Provenienza merce] = "1 Cliente" Then
    Forms![Riparazione e Chiusura]![Costo chiamata]  = 18
Else
    If Forms![Riparazione e Chiusura]![Provenienza merce] = "2 Vettore" Then
        Forms![Riparazione e Chiusura]![Costo chiamata]  = 18
    Else
        If Forms![Riparazione e Chiusura]![Provenienza merce] = "3 A mezzo
Sael" Then
            Forms![Riparazione e Chiusura]![Costo chiamata]  = 18
        End If
    End If
End If



title: aggiornamento tabella

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:buDL9.23910$Ou4.7...@twister2.libero.it...
>
> "cix" <
cesared...@libero.it
> ha scritto nel messaggio
> news:WZoL9.21313$TC5.6...@twister1.libero.it...
> >
> [CUT]
[SUPERCUT]

Ciao, purtroppo non ero stato chiaro del tutto.
Il controllo [Provenienza merce] ce l'ho in un'altra form [Accettazione] che
al momento di usare la form [Riparazione e Chiusura] è stata già chiusa. La
form [Accettazione] ha come origine controllo una query che prende/immette i
dati in questione dalla tabella [Generale], la form [Riparazione e Chiusura]
ha come origine controllo una select basata anchessa sulla tabella
[Generale]. In effetti il dato che mi serve: [Provenienza merce] è tutti
sulla stessa tabella.
In poche parole, se con la form [Accettazione] era stato inserito nel
controllo [Provenienza merce] un determinato testo, quando cerco un record
nella form [Riparazione e Chiusura] mi deve restituire un valore 18 o 0 a
seconda di che testo era stato inserito precedentemente (vedi messaggio
precedente).
Boh, a momenti non ci capisco neanche più io. spero che tu riesca anche a
tradurre il mio linguaggio da cavernicolo.
grazie ancora
cesare