title: Proposta indecente.

text:
"giaconet" <
giac...@wind.it
> ha scritto nel messaggio
news:9d155o$g4ij7$1...@ID-71483.news.dfncis.de...
>
> "Federico Luciani" <
fluc...@paperino.sitocomune.com
> ha scritto nel
> messaggio news:3AF3C781...@paperino.sitocomune.com...
> > Lindbergh wrote:
> > > "Federico Luciani" <
fluc...@paperino.sitocomune.com
> ha scritto nel
> > > messaggio news:3AF2DC9A...@paperino.sitocomune.com...
> > > > Roberto dal portatile wrote:
> > > > > "Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel
messaggio
>
> [CUT]
>
>
> > > A proposito...e vediamo se si alza un vespaio :-))))))
> > > Stavo riflettendo sul sistema del Quoting..non di questo ng ovviamente
,
> ma
> > > di tutti..č vero che č una regola, ma non avendola fatta Dio....
> > > Questo metodo parte dal presupposto che chi apre il messaggio
successivo
> al
> > > primo possa leggersi il contenuto della richiesta e POI la risposta.Ma
[CUT]
> > > mio msg per leggere la risposta??
> > > Mi sembra perlomeno scomodo...e lavorare tanto col mouse fa venire il
> Tunnel
> > > Carpale..
> > > Aspetto con ansia i vostri improperi..
> > > con simpatia
> > > eddie
> >
> > in realta' in molti altri ng vale il contrario, cioe' la risposta va
> > scritta all'inizio.
> > personalmente, forse per abitudine, preferisco avere la risposta in
> > fondo, ma capisco che la cosa e' molto soggettiva.
> > per quanto riguarda questo ng, la regola e' sempre stata la stessa: si
> > scrive dopo il quoting ;-))
> >
> > --
> > Federico
> >
>
> Ragazzi, secondo me stiamo dimenticando qualcosa. I msg sui ng prima o poi
> scadono,  e le risposte scadono sempre dopo. Citare alla fine č
fondamentale
> per ricostruire un msg quando l'originale non c'č piů sul server.
> Bye
> giaconet
>
> Vero anche questo, ma.....
>l'altro giorno ho installato su un altro portatile Oe ed ho sincronizzato
ex novo it.comp....access.
>Mi ha restituito i msg dal 16/3/00....quasi un anno!!!! A me non sembra
male....Non si puo' pretendere
>di avere i messaggi di 2 anni addietro.
>Comunque io non volevo proporre nessun cambiamento.....č solo la mia indole
che mi porta a pensare
>ogni tanto, se una cosa non possa essere migliore di un'altra....:-)))))
>Per il resto, se c'č una regola...comunque essa sia... va' rispettata.
 Ciao


title: Proposta indecente.

author: Luciano (DOC)

text:
aski ha scritto nel messaggio ...
>statti a casa!!
>se non ci sono queste richieste la news non ha modo di esistere!
>e poi
>grazie alle richieste di queste persone che a volte si trovano soluzioni
>impensabili.
Stavo per risponderti...poi ho visto che in questo thread ti sei gia' fatto
abbastanza male da solo ed ho avuto un moto di pieta'!
Saluti.
Luciano
(DOC)


title: Proposta indecente.

text:
Federico Luciani ha scritto nel messaggio
<
3AF2C81A...@paperino.sitocomune.com
>...
>aggiungerei alla lista anche tutti quelli che inviano richieste d'aiuto
>al SC.
Ti diro'....e' li che ho avuto un grosso spunto...:-)))
Saluti.
Luciano
(DOC)


title: Proposta indecente.

text:
Lindbergh ha scritto nel messaggio
<9v_I6.20914$
UW4.1...@news.infostrada.it
>...
>> > > Stavo riflettendo sul sistema del Quoting..
A forza di riflettere hai quotato pure te stesso....hai messo il maggiore
pure sul testo del tuo messaggio!:-))
Saluti.
Luciano
(DOC)


title: Proposta indecente.

text:
ced ha scritto nel messaggio ...
>Per la cronaca, aski, ced Andromeda e Luigi sono la stessa persona che vi
ha
>assillato da computer diversi.
Non e' che sei pure il clone del Biso per caso?
Saluti.
Luciano
(DOC)


title: Proposta indecente.

author: Lindbergh

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9d3n68$g8mo0$6...@ID-86073.news.dfncis.de...

No!! E' impazzito outlook :-))
> Luciano
> (DOC)
>
>
>


title: Proposta indecente.

author: Sergio MAZZA (Ufficio Stampa)

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9cu83s$fdis9$1...@ID-86073.news.dfncis.de...

Dov'è l'indecenza nella punizione?
Ciao.


title: Proposta indecente.

text:
"Mamo (R)" <
m...@iol.it
> ha scritto nel messaggio
news:kv2lft8f9qjn536jk...@Mamo.mm...
> Il newsreader che utilizzi aggiunge un prefisso *non* standard all'inizio
> dell'header Subject.
> Infatti appone il prefisso "R: " anziche` il corretto "Re: ".
> Questo causa vari problemi, ad esempio a chi utilizza altri newsreader
> l'inizio di un nuovo thread ad ogni nuova risposta.
>
> Risolvi il problema, per cortesia.
La cortesia non sai neanche cosa sia.
> Saluti, Mamo.
'Gnorante!
> --
> Non usare una mailbox e-nonima. Utilizza un address valido.
> Creane una su un servizio dotato di filtri antispam.
E fatti gli affari tuoi se voglio lasciare in chiaro il mio indirizzo
e-mail.
Ciao.


title: Inserimento dati in combobox successive

author: GioCand

text:
Buongiorno,
vorrei poter facilitare l'inserimento dei dati in una maschera:
- in una combobox far selezionare la Regione
- in una combobox successiva far selezionare solo le Provincie della
Regione selezionata
Sottostanti a Regioni e a Provincie ho due tabelle con i dati di
riferimento
Come posso fare?
Grazie dell'aiuto.
Ciao
GioCand


title: Inserimento dati in combobox successive

author: PBsoft

text:
[omissis]
http://www.donkarl.com/it/FAQ/FAQ4Maschere.htm#4.36
Ma cercare su Google fa così schifo?
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


title: Inserimento dati in combobox successive

text:

Grazie
GioCand


title: Impostare filtro in sottomaschera

author: Dino

text:
Ciao a tutti.Ho questa particolare esigenza.Ho realizzato una Form
tabulare con i seguenti campi: fornitore - cod articolo - descrizione
art - data listino - prezzo articolo.
All'interno di questa form ho creato una subform con gli stessi
campi,sempre tabulare dove vorrei filtrare i dati nel seguente modo:
Se nella maschera primaria seleziono un record con l'articolo
pippo,nella subform vorrei vedere tutti i record relativi ai vari
fornitori dai quali e' stato acquistato tale prodotto.Ovviamente
nell'elenco della subform devono figurare i fornitori per data
d'acquisto.Cioe' devo vedere prima il Sig.Rossi dove ho acquistato
l'articolo pippo il 06/10/09
piuttosto del Sig. Verdi dove l'ho comprato il 05/10/09.
Grazie in anticipo
Dino


title: Impostare filtro in sottomaschera

author: Karl Donaubauer

text:

Usa una query come origine record della sottomaschera.
Nella query imposta l'ordinamento desiderato.
Nelle propriet� "Collega campi secondari" e "Collega campi master"
del controllo sottomaschera usa: [cod articolo]
BTW Tenta di evitare spazi nei nomi di controlli e campi.
Ti risparmii di digitare millioni parentesi tonde.
Vedi anche
www.donkarl.com/it?FAQ1.5
.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Impostare filtro in sottomaschera

text:
On 8 Ott, 11:37, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Dino wrote:
> > Ciao a tutti.Ho questa particolare esigenza.Ho realizzato una Form
> > tabulare con i seguenti campi: fornitore - cod articolo - descrizione
> > art - data listino - prezzo articolo.
> > All'interno di questa form ho creato una subform con gli stessi
> > campi,sempre tabulare dove vorrei filtrare i dati nel seguente modo:
> > Se nella maschera primaria seleziono un record con l'articolo
> > pippo,nella subform vorrei vedere tutti i record relativi ai vari
> > fornitori dai quali e' stato acquistato tale prodotto.Ovviamente
> > nell'elenco della subform devono figurare i fornitori per data
> > d'acquisto.Cioe' devo vedere prima il Sig.Rossi dove ho acquistato
> > l'articolo pippo il 06/10/09
> > piuttosto del Sig. Verdi dove l'ho comprato il 05/10/09.
>
> Usa una query come origine record della sottomaschera.
> Nella query imposta l'ordinamento desiderato.
>
> Nelle proprietà "Collega campi secondari" e "Collega campi master"
> del controllo sottomaschera usa: [cod articolo]
>
> BTW Tenta di evitare spazi nei nomi di controlli e campi.
> Ti risparmii di digitare millioni parentesi tonde.
> Vedi
anchewww.donkarl.com/it?FAQ1.5
.
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
Grszie Karl (preciso come il solito),provo e ti faccio sapere
Dino


title: Impostare filtro in sottomaschera

text:

> Dino- Nascondi testo citato
>
> - Mostra testo citato -
Ok Karl tutto OK.
avrei un altro quesito.Ho creato un controllo per la duplicazione del
record.La dupllicazione mi viene bloccata perche'  in un campo con
formato data/ora ho inserito la "maschera di input (00/00/00)".come
posso fare per poter
duplicare pur mantenendo tale impostazione.
Grazie ancora Dino


title: grazie

author: Valter Casagrande

text: grazie, trovato e funziona


title: grazie

text:
"Valter Casagrande" <
val...@libero.it
> wrote in message
news:AvQX6.3969$Rq1.1...@news.infostrada.it...
> grazie, trovato e funziona
E VAIII!!!!!!!
....
Ma che cercavi?
Saluti.
Luciano
(DOC)


title: Duplica record

text:
Ho messo il pulsante duplica record in una maschera, ho messo un MsgBox,
che avverte che è stato duplicato il record visualizzato. Vorrei però
fare in modo che ci sia la possibilità di annullare la duplicazione (in
caso di errata cliccata sul pulsante) con un messaggio avente i comandi
di Annulla o OK.
Ringrazio chi può fornirmi spiegazioni su questa "stupida" richiesta.


title: Duplica record

author: Roberto dal portatile

text:
<
aur...@tiscalinet.it
> ha scritto nel messaggio
news:3A92467B...@tiscalinet.it...

Forse è più facile chiedere con una MsgBox, da inserire prima della routine
di duplicazione,  la conferma che si vuole duplicare il record corrente.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Duplica record

author: Auroge

text:
Effettivamente avevo già provato con MsgBox inserendo dopo l'avvertimento il
button VbOkCancel, ma per mia incapacità non so se inserire un If - Then o
quant'altro per fare in modo che poi succeda  questo solo se premo OK.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Grazie per l'interessamento (è ovvio che sono solo agli inizi della conoscenza
di Access e ho già consultato le guide).



title: Duplica record

text:
"Auroge" <
aur...@tiscalinet.it
> ha scritto nel messaggio
news:3A939334...@tiscalinet.it...
> Effettivamente avevo già provato con MsgBox inserendo dopo l'avvertimento
il
> button VbOkCancel, ma per mia incapacità non so se inserire un If - Then o
> quant'altro per fare in modo che poi succeda  questo solo se premo OK.
>
> DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
> DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
> DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
>
> Grazie per l'interessamento (è ovvio che sono solo agli inizi della
conoscenza
> di Access e ho già consultato le guide).
>
Quello che intendevo io è una cosa del genere:
    Dim IntNuovo As Integer, strTitolo As String
    Dim IntFinestraMsg As Integer, strMsg As String
    strTitolo = "Conferma di duplicazione record"
    strMsg = "Vuoi effettivamente duplicare il record corrente??"
    IntFinestraMsg = vbYesNo + vbQuestion
    IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    If IntNuovo = vbYes Then
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70
    Else
        strTitolo = "Richiamo a lavorare con più attenzione"
        strMsg = "La prossima volta stai più attento quando pigi i
pulsanti!!"
        IntFinestraMsg = vbExclamation
        IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
    End If



title: Duplica record

text:
Grazie Roberto, funziona perfettamente, ora studierò anche come è stato
impostato !!!



title: automazione in maschera

author: Dimma

text:
Innazitutto Buon 2001 a tuttti (anche se in anticipo) e grazie mille x le
volte che mi avete aiutato.
Avrei un problema di automazione su una maschera e sarei grato al newsgroup
se può darmi qualche dritta.
In una maschera dovrei assegnare automaticamente ad un controllo
"quotaiscrizione" la quantità da pagare secondo due criteri, 1) la regione
di provenienza 2) la qualifica.
Per fare questo ho crato una tabella Iscritto, una tabRegione, una
tabQualifica ed una TabQualificaassegnata quest'ultima porta i campi
codregione, codqualifica e codquota e spezza le relazioni n a n. La tab
iscritto ha due caselle combinate una per la regione ed una per la qualifica
ed un campo CodQuota in formato valuta.
Come potrei far sì che quando si immette la regione e la qualifica, in
automatico venga la quota di iscrizione presente nella TabQuotaassociata ?
In pratica dovrebbe funzionare che su una maschera si immette la regione le
qualifiche e le rispettive quote e sulla maschera iscritto oltre ai dati
personali si immette la regione e la qualifica dalle caselle combinate e in
automatico viene la quota da pagare senza stare a sceglierla sempre con
un'altra casella combinata.
Ho provato il seguente codice ma penso non sia giusto (non ne so granche di
VBA)
If Me.CodRegione = [TabQuoteassegnate]![CodRegione] And Me.CodQualifica =
[TabQuoteassegnate]![CodQualifica] Then
Me.CodQuota = [TabQuoteassegnate]![CodQuota]
Else: MsgBox "piripipi"
End If
Grazie mille e auguri a tutti
Antonio


title: automazione in maschera

author: Roberto da casa

text:
"Dimma" <
di...@tiscalinet.it
> ha scritto nel messaggio
news:92lofv$4b8$1...@lacerta.tiscalinet.it...

Ipotizziamo che:
1) nella maschera Iscritto la casella combinata relativa alla regione si
chiami Regione e che quella relativa alla qualifica si chiami Qualifica.
2) nella maschera Iscritto c'è una casella di testo chiamata CodQuota
associata al campo CodQuota della tabella Iscritto.
3) nella maschera Iscritto selezioni prima la regione dalla combo Regione e
poi la qualifica dalla combo Qualifica.
A fronte dell'evento "Dopo aggiornamento" della casella combinata Qualifica
genera il seguente codice VBA:
Me!CodQuota = DLookup("[CodQuota]", "TabQualificaassegnata", "CodRegione ="
& [Regione] & " AND CodQualifica =" & [Qualidica])
Buon Anno
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: query creazione tabella

text:
Ciao a tutti.
Ripropongo questa mia domanda perchè non vorrei iniziare un nuovo lavoro
per poi doverlo reimpostare in modo diverso.....
Non sono sicuro che, nel mio caso, una query di creazione tabella sia la
soluzione migliore. Mi spiego....
Con una maschera inserisco dati nella tabella A. Su chiusura della
maschera ho inserito un codice che mi permette di creare in automatico,
attraverso una query di creazione tabella (Q1), una copia della tabella A
(A1) contenente dei dati leggermente modificati rispetto agli originali.
Ritengo però che eliminare la tabella A1 e ricrearla ogni volta che
inserisco un nuovo record non sia la soluzione migliore.
Preferirei che alla tabella A1 venisse aggiunto soltanto l'ultimo record
inserito (modificato con la Q1).
La query di creazione tabella è l'unica soluzione?
Grazie per l'aiuto......ciao


title: query creazione tabella

author: Roberto

text:
quando apri la maschera leggi l'id massimo registrato.
quando la chiudi salvi solo i record nuovi (SELECT * FROM Q1 WHERE
ID>125)


title: query creazione tabella

author: MA

text:
ca...@flag.it
 wrote:
> Ciao a tutti.
> Ripropongo questa mia domanda perchč non vorrei iniziare un nuovo
> lavoro per poi doverlo reimpostare in modo diverso.....
>
> Non sono sicuro che, nel mio caso, una query di creazione tabella sia
> la soluzione migliore. Mi spiego....
> Con una maschera inserisco dati nella tabella A. Su chiusura della
> maschera ho inserito un codice che mi permette di creare in
> automatico, attraverso una query di creazione tabella (Q1), una copia
> della tabella A (A1) contenente dei dati leggermente modificati
> rispetto agli originali. Ritengo perň che eliminare la tabella A1 e
> ricrearla ogni volta che inserisco un nuovo record non sia la
> soluzione migliore.
> Preferirei che alla tabella A1 venisse aggiunto soltanto l'ultimo
> record inserito (modificato con la Q1).
> La query di creazione tabella č l'unica soluzione?
> Grazie per l'aiuto......ciao
Dipende da come modifichi i dati.
Non ti basta una query che manipoli i dati?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Come massimizzare la finestra report anteprima senza Docmd.Mazimise ?

author: RobertoA

text:
Sto aprendo un report usando il comando
DoCmd.OpenReport  "rptDocumentoDoppio", acViewPreview, , "ID_DOC = 123456"
Reports!rptDocumentoDoppio.ZoomControl = 150
Come fare per aumentare al massimo la dimensione di una finestra anteprima
report, senza usare il Docmd.Maximise ?
Vorrei evitare la massimizzazione perche' 'attacca' tutte le finestre una
sopra l'altra
Vorrei invece mantenere la possibilita' di spostare le finestre all'intenro
della cornice Access
Ciao e grazie
RobertoA


text:

invece la puoi usare a patto che dopo fai un docmd.restore
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:gh0ra4$c46$1...@tdi.cu.mi.it...
RobertoA wrote:
> Sto aprendo un report usando il comando
>
> DoCmd.OpenReport  "rptDocumentoDoppio", acViewPreview, , "ID_DOC =
> 123456" Reports!rptDocumentoDoppio.ZoomControl = 150
>
> Come fare per aumentare al massimo la dimensione di una finestra
> anteprima report, senza usare il Docmd.Maximise ?
> Vorrei evitare la massimizzazione perche' 'attacca' tutte le finestre
> una sopra l'altra
> Vorrei invece mantenere la possibilita' di spostare le finestre
> all'intenro della cornice Access
> Ciao e grazie
> RobertoA
invece la puoi usare a patto che dopo fai un docmd.restore
-----------------------------------------
'la puoi fare dopo'  a che cosa ?
Il report deve stare la', non deve essere chiuso
E devo spostarmi sulle altre form, col report aperto
Ciao
RobertoA


author: IvanDaBologna

text:
[cut]
>> Come fare per aumentare al massimo la dimensione di una finestra
>> anteprima report, senza usare il Docmd.Maximise ?
>> Vorrei evitare la massimizzazione perche' 'attacca' tutte le finestre
>> una sopra l'altra
>> Vorrei invece mantenere la possibilita' di spostare le finestre
>> all'intenro della cornice Access
>> Ciao e grazie
>> RobertoA
io ho un modulino che credo di aver prelevato dal sito di Alex:
------------------------------------
Option Compare Database
Option Explicit
Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, _
    lpRect As Rect) As Long
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
    ByVal nCmdShow As Long) As Long
Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
Const SW_MAXIMIZE = 3
Const SW_SHOWNORMAL = 1
Sub MaximizeRestoredForm(f As Form)
    Dim MDIRect As Rect
    Dim RetVal As Long
    ' If the form is maximized, restore it.
    If IsZoomed(f.hWnd) <> 0 Then
       RetVal = ShowWindow(f.hWnd, SW_SHOWNORMAL)
    End If
    ' Get the screen coordinates and window size of the
    ' MDIClient window.
    RetVal = GetWindowRect(GetParent(f.hWnd), MDIRect)
    ' Move the form to the upper-left corner of the MDIClient
    ' window (0,0) and size it to the same size as the
    ' MDIClient window.
    RetVal = MoveWindow(f.hWnd, 0, 0, MDIRect.Right - _
       MDIRect.Left - 4, MDIRect.Bottom - MDIRect.Top - 4, True)
End Sub
-------------------
e basta chiamare questa procedura con
MaximizeRestoredForm Me
oppure
MaximizeRestoredForm Forms("mascheraX")
e te la allarga al massimo della client area lasciandola restored!
IvanDaBologna
PS
per agire su un report devi cambiare il tipo di oggetto passato alla
funzione da (f As Form) a (f As Report) e di conseguenza anche la chiamata:
MaximizeRestoredForm Reports("listafinale")
Probabilmente ti converrebbe 'doppiarla' con un altro nome per avere la
caratteristica a disposizione per ambedue gli oggetti.


text:
"IvanDaBologna" <
ivan...@tin.it
> ha scritto nel messaggio
news:4934e5b7$0$41653$4faf...@reader4.news.tin.it...

Bingo !!!
Era proprio quello che cercavo
Grazie molte, ciao
RobertoA


text:
IvanDaBologna wrote:
> [cut]
> ...
> io ho un modulino che credo di aver prelevato dal sito di Alex:
> ...
> Sub MaximizeRestoredForm(f As Form)
L'originale è abbastanza vecchia e di Terry Kreft:
http://www.mvps.org/access/api/api0022.htm
Più tardi il suo codice è stata usata anche dalla gente del KB. p.e.
http://support.microsoft.com/kb/210123/en-us
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it


author: Massimiliano Bertoglio

text:
"RobertoA" <
> Come fare per aumentare al massimo la dimensione di una finestra anteprima
> report, senza usare il Docmd.Maximise ?
> Vorrei evitare la massimizzazione perche' 'attacca' tutte le finestre una
> sopra l'altra
> Vorrei invece mantenere la possibilita' di spostare le finestre
> all'intenro della cornice Access
Però credo che se il bordo delle form è impostato a "Dialogo" il problema
non sussista...


text:
"Massimiliano Bertoglio" <max.be...@NOSPAM.it> ha scritto nel messaggio
news:49351b1b$0$40311$4faf...@reader5.news.tin.it...

Verrebbe impedita solamente la massimizzazione della form/report
Se la form e' piccola rimarrebbe piccola
Io desidero invece ingrandire al massimo visibile l'anteprima report,
indipendentemente dalla dimensione cornice di Access che puo' essere
modificata dall'utente
Ciao
RobertoA


title: MsgBox se non in elenco

text:
Sto provando questo codice per inserire un messaggio nel caso si scelga
un valore non in elenco nella mia combo
Private Sub cittadinanza_NotInList(NewData As String, Response As
Integer)
If MsgBox("Attenzione! State inserendo un valore non in elenco.
Verificate che non vi sia già una voce corrispondente. Questo campo
viene riportato  in alcuni documenti collegati, ricordarsi di inserire
la cittadinanza es: italiana e non il nome dello stato es: Italia.
Aggiungere comunque la nuova voce?", vbYesNo + vbInformation) = vbYes
Then
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
Se inserisco un nuovo valore mi compare il mio MsgBox, scegliendo OK
però spunta la finestra che mi avvisa che ho scelto un valore non in
elenco e mi rimanda a sceglierne uno tra quelli in elenco
(ho impostato il valore "Solo in elenco" a si, se la imposto a no non
accade nulla).
Se invece nel MsgBox scelgo annulla mi rimanda correttamente
all'elenco.
Come posso evitare la finestra di access che mi dice di aver scelto una
voce non in elenco?


title: MsgBox se non in elenco

author: Sergio MAZZA

text:
<
Searc...@yahoo.it
> ha scritto nel messaggio news:1151667694....@p79g2000cwp.googlegroups.com...



Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

[risposta]
Impostando a no la proprietà "solo in elenco" riesci a gestire tu l'errore tramite proprio l'evento "non in elenco".
Nella tua routine ti manca l'istruzione che ti permette di inserire il nuovo valore nell'elenco.
Per semplificare potrebbe essere:
'---
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
' qui servono le istruzioni per aggiungere il nuovo valore
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano le modifiche.
    Response = acDataErrContinue
    Me!nomeCasellaCombinata.Undo '<-- annullo l'inserimento
End If
'---
Ora bisognerebbe sapere la casella combinata che origine riga ha, se una query su una tabella o un elenco di valori...
Ciao.
--
Sergio MAZZA


title: MsgBox se non in elenco

text:
Sergio MAZZA ha scritto:

La casella combinata ha come origine riga la tabella cittadinanze che
ho ottenuto con una query di creazione tabella dopo aver raggruppato
per cittadinanza.
Ora provo subito il codice che mi hai postato


title: MsgBox se non in elenco

text:
Searc...@yahoo.it
 ha scritto:

Prendendo spunto anche dall'help ho provato questo:
Dim ctl As Control
Set ctl = Me!CasellaCombinata182
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) =
vbOK Then
Response = acDataErrAdded
ctl.RowSource = ctl.RowSource & ";" & NewData
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub
Se imposto solo in elenco a no si prende il nuovo valore senza batter
ciglio...


title: MsgBox se non in elenco

text:
<
Searc...@yahoo.it
> ha scritto nel messaggio news:1151671550.2...@x69g2000cwx.googlegroups.com...
Prendendo spunto anche dall'help ho provato questo:
Dim ctl As Control
Set ctl = Me!CasellaCombinata182
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) =
vbOK Then
Response = acDataErrAdded
ctl.RowSource = ctl.RowSource & ";" & NewData
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub
Se imposto solo in elenco a no si prende il nuovo valore senza batter
ciglio...
[risposta]
Difatti era quello che ti dicevo; impostare a no la proprietą "solo in elenco", ma l'esempio non č quello che ti serve, perché va
bene per un elenco di valori "fisso", tu invece hai un elenco dinamico preso dalla tabella.
Quindi un nuovo inserimento deve essere scritto in tabella e fare anche un requery della casella combinata...
Ciao.
--
Sergio MAZZA


title: MsgBox se non in elenco

text:
Sergio MAZZA ha scritto:
> <
Searc...@yahoo.it
> ha scritto nel messaggio news:1151671550.2...@x69g2000cwx.googlegroups.com...
>
> Prendendo spunto anche dall'help ho provato questo:
> Dim ctl As Control
> Set ctl = Me!CasellaCombinata182
> If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) =
> vbOK Then
> Response = acDataErrAdded
> ctl.RowSource = ctl.RowSource & ";" & NewData
> Else
> Response = acDataErrContinue
> ctl.Undo
> End If
> End Sub
>
> Se imposto solo in elenco a no si prende il nuovo valore senza batter
> ciglio...
>
>
> [risposta]
> Difatti era quello che ti dicevo; impostare a no la proprietà "solo in elenco", ma l'esempio non è quello che ti serve, perché va
> bene per un elenco di valori "fisso", tu invece hai un elenco dinamico preso dalla tabella.
> Quindi un nuovo inserimento deve essere scritto in tabella e fare anche un requery della casella combinata...
>
> Ciao.
>
> --
> Sergio MAZZA
Per favore Sergio, prima che io e te a furia di sentirci ci fidanziamo
:) postami il codice che mi servirebbe, da solo non so proprio come
arrivarci...
come ti ho detto l'origine riga è la tabella che ho creato, e la combo
va ad alimentare il mio campo cittadinanze che poi viene raggruppato
dalla query di creazione tabella.
Se ti servono altri dati fammi sapere...mi spiace impegnarti per tutto
questo tempo...


title: MsgBox se non in elenco

text:

Dai un'occhiata s u
www.accessgroup.it
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: MsgBox se non in elenco

text:
Searc...@yahoo.it
 wrote:
> Sergio MAZZA ha scritto:
> Per favore Sergio, prima che io e te a furia di sentirci ci fidanziamo
Sè, e poi dici che non sei a caccia su questo NG...
[CUT]
> Se ti servono altri dati fammi sapere...mi spiace impegnarti per tutto
> questo tempo...
ops, il tuo amore è tempo??? Ti fai pagare???
Ahh ma allora io lo chiamo in tutt'altro modo!!!



title: MsgBox se non in elenco

text:
MA ha scritto:

Intanto non è carino intromettersi così in un fraseggio amoroso... :)
Scherzi a parte, non scambiamo l'ironia e la riconoscenza con altro
please....


title: MsgBox se non in elenco

text:
Searc...@yahoo.it
 wrote:
> MA ha scritto:
>
>>
Searc...@yahoo.it
 wrote:
>>> Sergio MAZZA ha scritto:
>>> Per favore Sergio, prima che io e te a furia di sentirci ci
>>> fidanziamo
>>
>> Sè, e poi dici che non sei a caccia su questo NG...
>> [CUT]
>>> Se ti servono altri dati fammi sapere...mi spiace impegnarti per
>>> tutto questo tempo...
>> ops, il tuo amore è tempo??? Ti fai pagare???
>> Ahh ma allora io lo chiamo in tutt'altro modo!!!
>>
>> --
>
> Intanto non è carino intromettersi così in un fraseggio amoroso... :)
C'hai ragione, scusa
> Scherzi a parte, non scambiamo l'ironia e la riconoscenza con altro
> please....
Non è colpa tua, è Sergio che fa pensare a male



title: MsgBox se non in elenco

text:
MA ha scritto:

Ragazzi, ho risolto diversamente, mi sono messo a compilare una tabella
cittadinanze ad hoc e se qualcuno inserisce dati a capocchia sarà
fustigato direttamente senza MsgBox.
Grazie comunque, è un gran bel NG e credo proprio mi iscriverò.
A presto.


title: MsgBox se non in elenco

text:
<
Searc...@yahoo.it
> ha scritto nel messaggio news:1151672361.6...@d56g2000cwd.googlegroups.com...
Per favore Sergio, prima che io e te a furia di sentirci ci fidanziamo
:) postami il codice che mi servirebbe, da solo non so proprio come
arrivarci...
come ti ho detto l'origine riga č la tabella che ho creato, e la combo
va ad alimentare il mio campo cittadinanze che poi viene raggruppato
dalla query di creazione tabella.
Se ti servono altri dati fammi sapere...mi spiace impegnarti per tutto
questo tempo...
[risposta]
Ti rispondo comunque, anche se non mi vuoi piů.
'--
If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK Then
' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
    Response = acDataErrAdded
' Aggiunge la stringa nell'argomento NewData a origine riga.
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("nomeTabella")
    rst.AddNew
    rst!nomeCampo = NewData
    rst.Update
    rst.Close
    Set rst = Nothing
Else
    ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano le modifiche.
    Response = acDataErrContinue
    Me!nomeCasellaCombinata.Undo
End If
Ciao.
--
Sergio MAZZA


title: MsgBox se non in elenco

author: MarcoPD

text:
Sergio MAZZA ha scritto:
> <
Searc...@yahoo.it
> ha scritto nel messaggio news:1151672361.6...@d56g2000cwd.googlegroups.com...
> Per favore Sergio, prima che io e te a furia di sentirci ci fidanziamo
> :) postami il codice che mi servirebbe, da solo non so proprio come
> arrivarci...
> come ti ho detto l'origine riga è la tabella che ho creato, e la combo
> va ad alimentare il mio campo cittadinanze che poi viene raggruppato
> dalla query di creazione tabella.
> Se ti servono altri dati fammi sapere...mi spiace impegnarti per tutto
> questo tempo...
>
> [risposta]
> Ti rispondo comunque, anche se non mi vuoi più.
>
> '--
> If MsgBox("Valore non presente nell'elenco. Aggiungere?", vbOKCancel) = vbOK Then
> ' Imposta l'argomento Response per indicare che i dati vengono aggiunti.
>     Response = acDataErrAdded
> ' Aggiunge la stringa nell'argomento NewData a origine riga.
>     Dim rst As DAO.Recordset
>     Set rst = CurrentDb.OpenRecordset("nomeTabella")
>     rst.AddNew
>     rst!nomeCampo = NewData
>     rst.Update
>     rst.Close
>     Set rst = Nothing
> Else
>     ' Se si sceglie Cancel, si elimina il messaggio di errore e si annullano le modifiche.
>     Response = acDataErrContinue
>     Me!nomeCasellaCombinata.Undo
> End If
>
>
> Ciao.
>
> --
> Sergio MAZZA
Grazie mille in ogni caso Sergio, sei sempre nel mio cuore :))))


title: Ancora un altro problema ...

author: Adriana

text:
Ciao a tutti.
Ho un altro problema che non riesco a risolvere:
Machera_1, basata su Tabella_1, impostata a Popup e Condizionata
Tabella_2 con un Campo_2 tipo testo
Vorrei che sull'evento apertura di Maschera_1    il campo_2   di Tabella_2
si imposti ad un certo valore p.e. 1
Potrą sembrarvi elementare ma proprio non riesco a venirci a capo.
(non riesco a scrivere la sintassi del relativo codice ..... sigh!)
N.B.
Se qualcuno mi aiuta vedrņ di rispondere usando bene il quoting!!!


title: Ancora un altro problema ...

author: OndaMax

text:
Il 21 Gen 2002, 16:31, "Adriana" ha scritto:
>Vorrei che sull'evento
apertura di Maschera_1 il campo_2 di Tabella_2
>si imposti ad un certo
valore p.e. 1
>Potrà sembrarvi elementare ma proprio non riesco a venirci
a capo.
>(non riesco a scrivere la sintassi del relativo codice .....
sigh!)
Mi sembra di capire che Tabella_2 non abbia nessuna attinenza con
valori o controlli di maschera. Se così fosse, sempre che Tabella_2 abbia
un unico record, butta sull'evento Apertura di maschera il seguente codice:
dim rst as Recordset
set rst = CurrentDb.OpenRecordset ("Tabella_2")
With
rst
   .MoveFirst
   .Edit
   !Campo_2 = <nuovo valore>
   .Update
End
With
rst.Close
Se invece non ho capito una mazza, chiedo scusa a tutti
... ;-)
OndaMax
--------------------------------
Inviato via
http://usenet.iol.it


title: Ancora un altro problema ...

text:
>dim rst as Recordset
>set rst = CurrentDb.OpenRecordset ("Tabella_2")
>With
>rst
>   .MoveFirst
>   .Edit
>   !Campo_2 = <nuovo valore>
>
.Update
>End
>With
>rst.Close
Sorry, ma Iol evidentemente va a capo
quando vuole.
"With rst" e "End With" sono sulla medesima riga di comando
...



title: Ancora un altro problema ...

text:
"OndaMax" <
ond...@liberox.it
> ha scritto nel messaggio
news:217Z56Z236Z186Y...@usenet.iol.it...

Grazie per l'aiuto. Domani in ufficio proverò a fare quello che dici e poi
ti farò sapere se va tutto bene (ma credo sicuramente di si)


title: funzione per importare testo

author: MICHELE

text:
Salve,
ho creato un form dove l'utente definisce una specia di specifica di
importazione i dati vengono inseriti
in una tabella di nome DEFINIZIONE.
esempio
INIZIO FINE NOME_CAMPO
1        10    RAG_SOCIALE
11       20   INDIRIZZO
21       30   NOTE
......
Vorrei creare una funzione che dato un file di testo c:\prova.txt
crei una tabella di nome tabella1  utilizzando la tabella DEFINIZIONE
come specifica di importazione.
Mi potete suggerire su come impostare la funzione?
Grazie


title: funzione per importare testo

author: Roberto da Parma

text:
"MICHELE" <
mpa...@sis.it
> ha scritto nel messaggio
news:4d32dfe3-e847-4243...@n7g2000yqb.googlegroups.com...

Dai un'occhiata al comando acDataTransferType...
Ciao
--
Roberto da Parma


title: impaginazione sottoreport crea pagina vuota

author: Nick

text:
ho un fastidioso problema nell'impaginazione di un sottoreport...
il report i questione è il classico report fattura con all'interno un sottoreport per i dettagli della fattura.
è presente (nel report) un'intestazionee dun pi+ di pagina con i dati del cliente e il totale fattura
il rpoblema giunge nel sottoreport...
se io metto i bordi al sottoreport mi crea (a seconda del numero di aricoli) una pagina vuota se non li metto non crea la pagina
vuota.
ho provatoa mettere il repost come non riducibile e trovare la dimensione massima, ma mi fa lo stesso errore. ovviamente se metto
non espandibile non mi fa vedere i record che sforano....
ho provato anche a mettere i riquadri esterni al sottoreport (nel corpo del report) e lasciare il sottoreport riducibile ed
espandibile ma nulla non cambia...
probabilmente mi sono spiegato male, ma esiste un metodo per bloccare il sottoreportreport in dimensioni massime?
grazie
ciao
Nick


text:
"Nick" <senz...@chiedetesul.NG> ha scritto nel messaggio news:ip3Oc.18897$1V3.4...@twister2.libero.it...

Mah! Io per fare un report di tipo Fattura non ho utilizzato un sottoreport evitando proprio il problema che esponi...
Ciao.
--
Sergio MAZZA


author: Pablitomf

text:
Sergio MAZZA ha scritto:
> Mah! Io per fare un report di tipo Fattura non ho utilizzato un sottoreport
evitando proprio il problema che esponi...
> Ciao.
Sempre Estraneo alla massa tu č?
Io invece sono stato un normale utilizzatore di sottoreport espandibile
"si" e senza problemi.
--
Pablitomf (Maurizio Facciuti)
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


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:ceahmr$38o$1...@canarie.caspur.it...

ho messo tutto sotto il report, ma come faccio ad inserire una riga (mi server perchè è così l'estetica della fattura) a fine corpo?
a fine fattura è semplice, ma se la fattura continua su più pagine mi servirebbe che alla fine del corpo nella prima pagina ci fosse
la linea (non posso metterla nel pieè di pagina perchè tra il più e il corpo (sempre per estetica) c'è uno spazio bianco ed inoltre
se la fattura finisce prima di giungere alla fine ci sarebbe una riga apparentemente inutile...
esite altrimenti un metodo per prolungare le linee verticali del corpo? (per adesso sono grandi quanto il corpo stesso, ovvero una
linea di dati... e si moltiplicano al moltiplicarsi dei record nel corpo)
grazie ancora...
ciao
Nick


text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio news:ceai49$ua9$1...@news.newsland.it...

l'ho sempre sostenuto che Access "c'č l'ha su con me!!!" :(
io che lo tratto cosě bene...
non capisco proprio ...
ho provato a dargli la dimensione da codice (nell'evento su formattazione del corpo del report) ma non cambia nulla...
grazie
ciao
Nick


text:
"Nick" <senz...@chiedetesul.NG> ha scritto nel messaggio news:R34Oc.19019$1V3.4...@twister2.libero.it...
>
> ho messo tutto sotto il report, ma come faccio ad inserire una riga (mi server perchè è così l'estetica della fattura) a fine
corpo?
Una riga a fine corpo? La disegni e la rendi visibile solo sull'ultima pagina:
- evento "su formattazione" della sezione Corpo:
es.
If Page = Pages Then
    Me!Linea16.Visible = True
Else
    Me!Linea16.Visible = False
End If
> a fine fattura è semplice, ma se la fattura continua su più pagine mi servirebbe che alla fine del corpo nella prima pagina ci
fosse
> la linea (non posso metterla nel pieè di pagina perchè tra il più e il corpo (sempre per estetica) c'è uno spazio bianco ed
inoltre
> se la fattura finisce prima di giungere alla fine ci sarebbe una riga apparentemente inutile...
Vedi sopra;
> esite altrimenti un metodo per prolungare le linee verticali del corpo? (per adesso sono grandi quanto il corpo stesso, ovvero una
> linea di dati... e si moltiplicano al moltiplicarsi dei record nel corpo)
www.sitocomune.com
> grazie ancora...
> ciao
> Nick
>
Ciao.
--
Sergio MAZZA


text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio news:ceai49$ua9$1...@news.newsland.it...
>
> Sempre Estraneo alla massa tu è?
Mi hanno affibbiato parecchi appellativi, ma "incorporeo" mai!
> Io invece sono stato un normale utilizzatore di sottoreport espandibile
> "si" e senza problemi.
Oh! In alcuni casi ne ho nidificati tre di sottoreport, ma solo se effettivamente necessario e con una magnum puntata alla tempia...
>
> --
> Pablitomf (Maurizio Facciuti)
>
> 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)
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:ceaj9i$3ir$1...@canarie.caspur.it...

la linea mi serve anche nella pagina  intemedia...
per ora ho semirisolto il problema con me.line....
ora il problema è:
come faccio a dargli lo spessore a questa linea? sarà il caldo e le ferie vicine ma nonho trovato tra le opzioni lo spessore....
grazie
Ciao
Nick


text:
"Nick" <senz...@chiedetesul.NG> ha scritto nel messaggio news:Co4Oc.19106$1V3.4...@twister2.libero.it...
>
> la linea mi serve anche nella pagina  intemedia...
> per ora ho semirisolto il problema con me.line....
Semi-risolto?
> ora il problema è:
> come faccio a dargli lo spessore a questa linea? sarà il caldo e le ferie vicine ma nonho trovato tra le opzioni lo spessore....
Scheda Formato - spessore bordo;
> grazie
> Ciao



text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:ceall7$4au$1...@canarie.caspur.it...

avercela la scheda :)
la linea la creo da codice alla creazine della pagina...
e non so nemmeno che nome gli da, altrimenti potrei usare quello...
mah..esisterà la soluzione??? :)
grazie ancora
ciao
Nick


text:
"Nick" <senz...@chiedetesul.NG> ha scritto nel messaggio news:ET5Oc.19250$1V3.4...@twister2.libero.it...
>
> avercela la scheda :)
> la linea la creo da codice alla creazine della pagina...
> e non so nemmeno che nome gli da, altrimenti potrei usare quello...
>
> mah..esisterà la soluzione??? :)
>
> grazie ancora
>
> ciao
> Nick
Ma mannaggia la vacca indecisa!!
La crei e la rendi invisibile nooo??
Ciao.
--
Sergio MAZZA


text:
Sergio MAZZA ha scritto:
> Ma mannaggia la vacca indecisa!!
Lascia stare la vacca che questo è un NG multirazziale... non vorrai mica
ritrovarti a fare i conti con la sacralità dell'animale ??? :-D
--
Pablitomf (Maurizio Facciuti)
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



text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:ceaq84$5g8$1...@canarie.caspur.it...

il mio problema è che la creo via codice perchè questo rettangolo (in effetti è un rettangolo e non una semplice linea) deve
"racchiudere" vari raggruppamenti dei dati che sono presenti nel report.
inserendola manualmente (per quel che ne so io) posso metterla solo all'interno di una sezione del report, non posso fare un
qualcosa che mi passi sopra le sezioni se non in questo modo (che ho scoperto oggi) :)
ciao
Nick


text:
"Nick" <senz...@chiedetesul.NG> ha scritto nel messaggio news:866Oc.19282$1V3.4...@twister2.libero.it...
>
>
> il mio problema è che la creo via codice perchè questo rettangolo (in effetti è un rettangolo e non una semplice linea) deve
> "racchiudere" vari raggruppamenti dei dati che sono presenti nel report.
> inserendola manualmente (per quel che ne so io) posso metterla solo all'interno di una sezione del report, non posso fare un
> qualcosa che mi passi sopra le sezioni se non in questo modo (che ho scoperto oggi) :)
A quanto mi risulta non esiste nulla del genere;
> ciao
> Nick
come lo realizzi via codice lo puoi fare anche visibile/non visibile. La variabilità delle dimensioni le imposti con l'esempio che
c'è sul sito comune (
www.sitocomune.com
)...
Ciao.
--
Sergio MAZZA


text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio news:ceaqf0$1h5$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> > Ma mannaggia la vacca indecisa!!
>
> Lascia stare la vacca che questo è un NG multirazziale... non vorrai mica
> ritrovarti a fare i conti con la sacralità dell'animale ??? :-D
I conti li faccio di fronte ad una bella bisteccona (double sense)...
> --
> Pablitomf (Maurizio Facciuti)
>
> 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)
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio news:ceasf1$697$1...@canarie.caspur.it...

io infatti uso l'esempio del sitocomune  (sezione report --> Inserire linee e rettangoli in un report) se noti non c'è il discorso
spessore ci sono i punti di partenza e d'arrivo, il colore, se rettangolo pieno o vuoto...
a questo punto potrebbe l'unica soluzione mi pare che sia al posto di usare 1 rettangolo solo di usarne 4 dello spessore che mi
interessa e farli pieni....
un po' scomoda direi, cmq potrebbe essere valida...
grazie
ciao
Nick


text:
"Nick" <senz...@chiedetesul.NG> ha scritto nel messaggio news:2F6Oc.21578$OH4.5...@twister1.libero.it...
>
>
> io infatti uso l'esempio del sitocomune  (sezione report --> Inserire linee e rettangoli in un report) se noti non c'è il discorso
> spessore ci sono i punti di partenza e d'arrivo, il colore, se rettangolo pieno o vuoto...
Mi dispiace ma non ho mai utilizzato quell'esempio;
> a questo punto potrebbe l'unica soluzione mi pare che sia al posto di usare 1 rettangolo solo di usarne 4 dello spessore che mi
> interessa e farli pieni....
>
> un po' scomoda direi, cmq potrebbe essere valida...
Tentar non cuoce...
> grazie
Figurati;
> ciao



title: estrazioni dati da excel

author: Maverick

text:
Ciao a tutto il NG,
ho un migliaio di file excel, con novi variabili, tutti dello stesso
formato.
Questi files contengono in determinate celle dei nominativi.
Devo creare una tabella contenente tutti questi nomi.
Il problema e' come prendere da tutti questi files la cella H5, per esempio.
Immagino bisogni creare una tabella con tutti i nomi dei files e poi creare
un ciclo for ...next...
ma non so come passare gli argomenti e come leggere le cellule di excel.
Ringrazio in anticipo.
Ciao Maverick.


title: estrazioni dati da excel

author: Emyr

text:


devi usare l'automazione office
vedi l'help in linea e gli esempi su sitocomune,com
Saluti.
Emanuele.


title: estrazioni dati da excel

text:
"Maverick" <
clac...@tin.it
> ha scritto nel messaggio
news:n2Ava.79916$3M4.1...@news1.tin.it...

Se i file xls sono tutti nella stessa directory, prova con:
'----------
On Error GoTo leggiCellaExcel_err
Dim fileXLS As String, directory As String
directory = "C:\DirectoryFogliExcel\"
fileXLS = directory & "*.xls"
If Dir(fileXLS) = "" Then
    MsgBox "file .xls non trovati"
    Exit Sub
End If
Dim excApp As Excel.Application, excDoc As Excel.Workbook
Dim recSet as Recordset
Set excApp = CreateObject("Excel.Application")
Set recSet = Currentdb.OpenRecordSet("nomeTuaTabella")
fileXLS = Dir(fileXLS)
Do While fileXLS <> ""
    Set excDoc = excApp.Workbooks.Open(fileXLS)
    excApp.Visible = False
     recSet.AddNew
'--> la posizione dovrebbe corrispondere a H5
     recSet!nominativo = excDoc.Worksheets(1).Cells(8, 5)
     recSet.Update
    fileXLS = Dir
    Set excDoc = Nothing
Loop
recSet.Close
Set recSet = Nothing
Set excDoc = Nothing
Set excApp = Nothing
Exit Sub
leggiCellaExcel_err:
    Set recSet = Nothing
    Set excDoc = Nothing
    Set excApp = Nothing
    MsgBox Err.Number & " - " & Err.Description
'-------------
Ciao.
--
Sergio MAZZA


title: estrazioni dati da excel

text:
"Maverick" <
clac...@tin.it
> ha scritto nel messaggio
news:n2Ava.79916$3M4.1...@news1.tin.it...

Se i file xls sono tutti nella stessa directory, prova con:



title: Non riesco ad impostare dei criteri nella QBE

author: Fabio

text:
Il dubbio che mi assilla è il seguente:
Ho impostato dei parametri in una griglia QBE.
Ho degli importi e delle valute di riferimento (EUR,GBP,USD,ecc....ecc)
Ora voglio che l'utente visualizzi i risultati della query in base ad una
valuta da lui scelta volta x volta(Quindi ho immesso il criterio...[Input
Data Valuta]).
Il problema che dovrei risolvere è questo:
Se l'utente non immette nessuna valuta...........il parametro viene
automaticamente impostato a "EUR"
Sarà semplice ma non riesco a farlo...grazie a tutti dell'eventuale
risposta...grazie ciao!!!
--------------------------------
Inviato via
http://usenet.libero.it


author: Carlo Costarella

text:
"Fabio" <
fole...@libero.it
> ha scritto nel messaggio
news:151Z96Z0Z8Y10...@usenet.libero.it...

Nella guida trova Choose e Switch (le funzioni). Dovrebbero fare al caso
tuo.
Ciao, Carlo


text:
> Nella guida trova Choose e Switch (le funzioni). Dovrebbero fare al caso
> tuo.

Non c'è una soluzione + semplice.magari impostando dei parametri nella QBE??
Forse quelle funzioni servono ma non sò assolutamente come usarle!



title: Compatibilità Access 2000 vs XP

author: Nedo

text:
Salve,
ho fatto un applicazionciona in Access 2000, funziona bene, non da problemi.
Ieri l'ho portata su Win XP. Non va più
Mi dice che tutte le funzioni che lavorano sulle Date non sono
supportate....
E' successo anche ad altri?
Come avete risolto?
Ciao e grazie
                    Nicola


title: Compatibilità Access 2000 vs XP

author: Paul

text:
"Nedo" <
comme...@laversilia.it
> wrote in message
news:VSjV8.37851$
Jj7.9...@news1.tin.it

no, io avuto solo un problema che non mi riconosceva un riferimento
all'oggetto
Maschera!campox come criterio di una query nonostante avessi scritto
correttamente Forms!campox (devo ancora risolvere!)
Strano perchè accessXP lavora con il formato di access2000 di default.
Prova a compilare e salvare tutti i moduli dall'a2000 prima di
esportarlo.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Compatibilità Access 2000 vs XP

author: Liones

text:
"Nedo" <
comme...@laversilia.it
> ha scritto nel messaggio
news:VSjV8.37851$Jj7.9...@news1.tin.it...

da A97 ad Xp non riusciva a usare la funzione Format
ho compilato il tutto e diceva che mancava un riferimento
ma con Xp il codice doveva fare riferimento ad un'altra libreria o
verificato che tale libreria fosse presente e ci fosse un riferimento e ho
cancellato il riferimento a quella che non trovava ricompilato tutto ok
ciao
ps
non ho istallato la dll che mancava (seondo lui)


title: Compatibilità Access 2000 vs XP

text:
> Salve,
> ho fatto un applicazionciona in Access 2000, funziona bene, non da
problemi.
> Ieri l'ho portata su Win XP. Non va piů
Non l'ho portata da Access 2000 a Access XP, ma da Access 2000 installato su
Win Me a Access 2000 installato su XP



title: Avere un LOG(?) su modifica o cancellazione record

author: Giampaolo :-)

text:
Ciao a tutti;
Vorrei sapere se si può  avere una traccia di tutte le operazioni
(cancellazione record / modifiche campi) fatte da un utente.
Sono riuscito attraverso l'aggiunta in un campo Utente in ogni tabella del
db,
ad avere una traccia di chi lo modifica e quando, ma quando lo stesso record
viene cancellato.......... la traccia è chiaramente persa.
Mi dareste un suggerimento???
WinME - Access 2000
Grazie
Giampaolo


author: Roberto da casa

text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:s4Tjb.302093$R32.9...@news2.tin.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione General prova a leggere
la FAQ di Mauro Castaldi intitolata "Creare un file di log"
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: stefano (kabisa)

text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:s4Tjb.302093$R32.9...@news2.tin.it...

Io per necessità (medicolegali) devo tener traccia di chi modifica i dati e
sopprottuto dei dati che sono stati modificati.
Ho creto un BE aggiuntivo dove ho messo  una copia della struttura delle
tabelle che mi interessa contollare, ho aggiunto i campi "datamod"  "oramod"
"us"  "pw"
registro ogni record che viene creato ( o modificato) nella struttura
principale, con i campi aggiuntivi so chi la modificato e quando
Naturalmente il programma ha livelli di utenza con utente amministratore si
può accedere al BE di supporto e cancellare i dati che non servono.
Stefano (kabisa)


text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:wbUjb.7410$e5.2...@news1.tin.it...
>
> "Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
> news:s4Tjb.302093$R32.9...@news2.tin.it...
[CUT]
> >
> Io per necessità (medicolegali) devo tener traccia di chi modifica i dati
e
> sopprottuto dei dati che sono stati modificati.
> Ho creto un BE aggiuntivo dove ho messo  una copia della struttura delle
> tabelle che mi interessa contollare, ho aggiunto i campi "datamod"
"oramod"
> "us"  "pw"
> registro ogni record che viene creato ( o modificato) nella struttura
> principale, con i campi aggiuntivi so chi la modificato e quando
> Naturalmente il programma ha livelli di utenza con utente amministratore
si
> può accedere al BE di supporto e cancellare i dati che non servono.
>
> Stefano (kabisa)
...e se il record viene cancellato?
Giampaolo


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:kTTjb.46070$e6.15...@twister2.libero.it...
>
> "Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
> news:s4Tjb.302093$R32.9...@news2.tin.it...
> > Ciao a tutti;
[CUT]
> Vai sul Sito Comune (link qui sotto) e nella Sezione General prova a
leggere
> la FAQ di Mauro Castaldi intitolata "Creare un file di log"
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
..Si OK, la FAQ che tu mi consigli, la avevo già  "copiata", ma
se un record viene cancellato....
Giampaolo


author: Alessandro Baraldi

text:
"Giampaolo :-\)" <
kai...@libero.it
> wrote in message
news:FmUjb.7452$
e5.2...@news1.tin.it
[CUT]
>
> ...e se il record viene cancellato?
>
> Giampaolo
Mi pare scontato che i fantasmi non esistono, ne consegue
che se viene CANCELLATO è perchè tu programmatore hai lasciato
l'autorizzazione alla cancellazione, ne consegue che sei stato in grado
di intercettare l'evento di cancellazione.
Se non è così hai commesso un'ingenuità, ne consegue che devi rimediare.
Come:
Imposti la proprietà Delete di Form=NO, e metti un bel Bottone
nella Form che richieda la pressione per poter effettuare la
cancellazione.
A questo punto sei in grado di controllarne la cancellazione
tramite l'evento Click, usando DAO/ADO con relativa transazione
e con conseguente utilizzo del consiglio di Roberto.
E se non viene cancellato non fai nulla.
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:3pUjb.7462$e5.2...@news1.tin.it...

Non capisco quale sia il problema.
Il log viene registrato in un file esterno al database e decidi tu cosa e
quando registrarci qualcosa: se ti interessa ci registrerai qualcosa anche a
fronte dell'evento "Dopo conferma cancellazione" di una maschera, così che
ti rimane traccia anche della cancellazione dei record.
>
> Giampaolo



text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:FmUjb.7452$e5.2...@news1.tin.it...

Se il record viene cancellato ci sarà nella tabella appoggio del BE (quello
accessibile solo all'amministratore) il record con i campi chiave e gli
altri valori a null con la data e l'ora e lus pw di chi ha cancellato
naturalmente tu dai campi chiave puoi risalire ai valori che aveva il record
prima di essere cancellato visto che li avevi registrati.
Naturalmente se non hai necessità di tener traccia di tutte le modifiche (
traccia intesa come dati su cui puoi fare query ecc...) usa la soluzione di
roberto che è quella ottimale
visto che nel log puoi copiare anche il record coi valori che avevi prima
della modifica o della cancellazione.
Stefano (kabisa)


text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:TsVjb.46402$e6.15...@twister2.libero.it...

Ok. Hai ragione: la mia visione (limitata) non aveva pensato al
......."Dopo conferma cancellazione" di una maschera, così che
ti rimane traccia anche della cancellazione dei record.
.....
e quindi credo di aver risolto (per adesso solo in teoria) il mio problema.
Grazie
Giampaolo
P.S. = Chiedo venia per il non tempestivo Re:
           ma ho una connessione analogica e devo,
            ogni tanto, lasciare la linea libera.


text:
"stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
news:8C5kb.9818$e5.3...@news1.tin.it...
>
> "Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
> news:FmUjb.7452$e5.2...@news1.tin.it...
> >
> > "stefano (kabisa)" <
stl...@tin.it
> ha scritto nel messaggio
> > news:wbUjb.7410$e5.2...@news1.tin.it...
> > >
> > > "Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
> > > news:s4Tjb.302093$R32.9...@news2.tin.it...
> > [CUT]
> > > >
> [CUT]
> Se il record viene cancellato ci sarà nella tabella appoggio del BE
(quello
> accessibile solo all'amministratore) il record con i campi chiave e gli
> altri valori a null con la data e l'ora e lus pw di chi ha cancellato
> naturalmente tu dai campi chiave puoi risalire ai valori che aveva il
record
> prima di essere cancellato visto che li avevi registrati.
>
> Naturalmente se non hai necessità di tener traccia di tutte le modifiche (
> traccia intesa come dati su cui puoi fare query ecc...) usa la soluzione
di
> roberto che è quella ottimale
> visto che nel log puoi copiare anche il record coi valori che avevi prima
> della modifica o della cancellazione.
> Stefano (kabisa)
>
>
Si, Ok hai ragione in pieno: purtroppo molte volte la soluzione è li dietro
e
(almeno io) non riesco a vederla.
Grazie
Giampaolo


text:
>
> Mi pare scontato che i fantasmi non esistono, ne consegue
> che se viene CANCELLATO è perchè tu programmatore hai lasciato
> l'autorizzazione alla cancellazione, ne consegue che sei stato in grado
> di intercettare l'evento di cancellazione.
> Se non è così hai commesso un'ingenuità, ne consegue che devi rimediare.
> Come:
> Imposti la proprietà Delete di Form=NO, e metti un bel Bottone
> nella Form che richieda la pressione per poter effettuare la
> cancellazione.
> A questo punto sei in grado di controllarne la cancellazione
> tramite l'evento Click, usando DAO/ADO con relativa transazione
> e con conseguente utilizzo del consiglio di Roberto.
>
> E se non viene cancellato non fai nulla.
>
> @Alex.
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
Ok, che io non sia in grado di fare tutto, questo è super scontato: è che
ogni tanto
mi perdo nei meandri di Access e seguo una via totalmente sbagliata, non
vedendo magari quella
più semplice.
Grazie per i tuoi consigli.
Giampaolo
(distrutto dal NG)


text:
"Giampaolo :-\)" <
kai...@libero.it
> wrote in message
news:6s6kb.9937$
e5.3...@news1.tin.it
[CUT]
> Ok, che io non sia in grado di fare tutto, questo è super scontato: è che
> ogni tanto
> mi perdo nei meandri di Access e seguo una via totalmente sbagliata, non
> vedendo magari quella
> più semplice.
>
> Grazie per i tuoi consigli.
> Giampaolo
> (distrutto dal NG)
A parte che mi sembri permaloso, e ciò non giova a nessuno.
Quello che ti ho suggerito IRONIA a parte è una delle strade
corrette per gestire la cosa.
Se poi hai difficoltà nel gestirla possiamo approfondire.
L'IRONIA era in risposta all'insistenza della domanda non
motivata, in quanto le risposte date davano per scontato
di aver soddisfatto la questione principale, cosa che per altro
non credo ancora.



text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:6s6kb.9937$e5.3...@news1.tin.it...
[CUT]
>
> Giampaolo
> (distrutto dal NG)
Quando ero agli esordi nell'uso di Access e partecipavo per le prime volte a
questo NG mi è spesso successo di spegnere il PC e di sentirmi "distrutto" e
con il dubbio che non sarei mai riuscito a realizzare un database che fosse
degno di tale nome.
Avevo la sensazione che i frequentatori più esperti, che suggerivano
soluzioni ai problemi posti, mi sembravano mostri di bravura ed io mi
sentivo una nullità e che non sarei mai riuscito a confrontarmi con loro;
poi ho cominciato a studiare seriamente Access su una guida all'uso
cartacea, sul Sito Comune, sull'help in linea e in questo NG e le cose per
me sono moooolto cambiate.



text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:2d8kb.47750$e6.16...@twister2.libero.it...

Hai ragione lo studio paga, ma devo fare i conti anche con moglie, figli,
lavoro, ecc. ecc.
Giampaolo


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:4a3b10f6ecb3427443...@mygate.mailgate.org...

Credo abbia interpretato male la mia risposta:
non volevo "lamentarmi" delle vostre risposte... anzi, tutto il
contrario: volevo solo rimarcare che MOLTE VOLTE, non riesco
a vedere la soluzione del problema, perchè (senza ironia) non sono
espertissimo
in Access
Mi scuso se ti ho dato un'altra impressione.
Ciao Giampaolo


text:
"Giampaolo :-\)" <
kai...@libero.it
> wrote in message
news:scrkb.14449$
e5.5...@news1.tin.it
[CUT]
>
> Hai ragione lo studio paga, ma devo fare i conti anche con moglie, figli,
> lavoro, ecc. ecc.
>
> Giampaolo
Vorresti dire che noi siamo fannulloni scapoli senza prole...!!!
Scherzo.... ti capisco, ma di necessità virtù.



text:
"Giampaolo :-\)" <
kai...@libero.it
> wrote in message
news:kerkb.14451$
e5.5...@news1.tin.it
[CUT]
>
> Credo abbia interpretato male la mia risposta:
> non volevo "lamentarmi" delle vostre risposte... anzi, tutto il
> contrario: volevo solo rimarcare che MOLTE VOLTE, non riesco
> a vedere la soluzione del problema, perchč (senza ironia) non sono
> espertissimo
> in Access
> Mi scuso se ti ho dato un'altra impressione.
>
> Ciao Giampaolo
Ci scusiamo entrambi per l'incomprensione e/o mala interpretazione.
Ma alla fine hai risolto...??
Ciao.



text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:26cfa79351477256cc...@mygate.mailgate.org...
> "Giampaolo :-\)" <
kai...@libero.it
> wrote in message
> news:kerkb.14451$
e5.5...@news1.tin.it
>
> [CUT]
>
> Ci scusiamo entrambi per l'incomprensione e/o mala interpretazione.
> Ma alla fine hai risolto...??
>
> Ciao.
> @Alex.
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
..e purtroppo non riesco a "inventarmi" le sub per avere i log dei movimenti
degli utenti.
Riposterò fra due o tre giorni quando avrò uno straccio di codice da
correggere.
Giampaolo


author: ALESSANDRO Baraldi

text:
"Giampaolo :-)" <
kai...@libero.it
> ha scritto nel messaggio
news:eHykb.16512$e5.6...@news1.tin.it...
[CUT]
> ..e purtroppo non riesco a "inventarmi" le sub per avere i log dei
movimenti
> degli utenti.
> Riposterò fra due o tre giorni quando avrò uno straccio di codice da
> correggere.
>
> Giampaolo
>
Sul SitoComune c'è un esempio valido che puoi usare per generare LogFile.
Ovviamente poi ci sarà da adattarlo alle tue esigenze.
Ciao.
@Alex.


author: MA

text:
> Quando ero agli esordi nell'uso di Access e partecipavo per le prime volte
a
> questo NG mi è spesso successo di spegnere il PC e di sentirmi "distrutto"
e
> con il dubbio che non sarei mai riuscito a realizzare un database che
fosse
> degno di tale nome.
> Avevo la sensazione che i frequentatori più esperti, che suggerivano
> soluzioni ai problemi posti, mi sembravano mostri di bravura ed io mi
> sentivo una nullità e che non sarei mai riuscito a confrontarmi con loro;
Sì va bene... ci crediamo!?!
Oh guarda un asino che vola...
> poi ho cominciato a studiare seriamente Access su una guida all'uso
> cartacea, sul Sito Comune, sull'help in linea e in questo NG e le cose per
> me sono moooolto cambiate.
bello il messaggio, ma poco creibile la prima parte.
:-)
MAssimiliano


text:
"MA" <
keiko...@libero.it
> ha scritto nel messaggio
news:vaMkb.10967$uv4....@news.edisontel.com...
> > Quando ero agli esordi nell'uso di Access e partecipavo per le prime
volte
> a
> > questo NG mi è spesso successo di spegnere il PC e di sentirmi
"distrutto"
> e
> > con il dubbio che non sarei mai riuscito a realizzare un database che
> fosse
> > degno di tale nome.
> > Avevo la sensazione che i frequentatori più esperti, che suggerivano
> > soluzioni ai problemi posti, mi sembravano mostri di bravura ed io mi
> > sentivo una nullità e che non sarei mai riuscito a confrontarmi con
loro;
>
> Sì va bene... ci crediamo!?!
> Oh guarda un asino che vola...
>
Libero di crederci o no, ma ti posso assicurare che quando ho iniziato a
frequentare il NG di Access conoscevo solo l'abc e di VBA ed SQL conoscevo
solo che esistevano; i frequentatori sistematici del NG di allora erano
veramente moooolto in gamba: oggi molti di loro sono spariti e molti ci
vengono a trovare solo raramente.
[CUT]
> MAssimiliano



text:
> > > Quando ero agli esordi nell'uso di Access e partecipavo per le prime
> volte
> > a
> > > questo NG mi è spesso successo di spegnere il PC e di sentirmi
> "distrutto"
> > e
> > > con il dubbio che non sarei mai riuscito a realizzare un database che
> > fosse
> > > degno di tale nome.
> > > Avevo la sensazione che i frequentatori più esperti, che suggerivano
> > > soluzioni ai problemi posti, mi sembravano mostri di bravura ed io mi
> > > sentivo una nullità e che non sarei mai riuscito a confrontarmi con
> loro;
> >
> > Sì va bene... ci crediamo!?!
> > Oh guarda un asino che vola...
> >
>
> Libero di crederci o no, ma ti posso assicurare che quando ho iniziato a
> frequentare il NG di Access conoscevo solo l'abc e di VBA ed SQL conoscevo
> solo che esistevano; i frequentatori sistematici del NG di allora erano
> veramente moooolto in gamba: oggi molti di loro sono spariti e molti ci
> vengono a trovare solo raramente.
>
> [CUT]
>
> > MAssimiliano
>
> --
> Roberto
Io ti crdo sempre, Roberto, il mio era solo un attestato di stima.
MAssimiliano


title: Defaul Value in sottomaschera

text:
Buona sera, mi permetto di chiedere un consiglio. Ho creato una maschera
contenente un campo data e una sottomaschera contenente una combobox
idDipendente(matricola)una combobox per l'azienda e un campo testo che
definisce il tipo di lavoro. Questo l'ho fatto per evitare 4 tabelle che
in sostanza sono uguali, cambia solo l'azienda, e da cadice vorrei
cambiare il campo predefinito (idAzienda e lavoro)da codice tramite
select case, ma la mia inesperienza non riesco a farlo, mi sapete dare
qualche consiglio?
Vi ringrazio
--
       maurizio56
browser: FireFox 3.0.9
mailreader: ThunderBird 2.0.0.21


title: Defaul Value in sottomaschera

text:
maurizio56 wrote:
> Buona sera, mi permetto di chiedere un consiglio. Ho creato una
> maschera contenente un campo data e una sottomaschera contenente una
> combobox idDipendente(matricola)una combobox per l'azienda e un campo
> testo che definisce il tipo di lavoro. Questo l'ho fatto per evitare
> 4 tabelle che in sostanza sono uguali, cambia solo l'azienda, e da
> cadice vorrei cambiare il campo predefinito (idAzienda e lavoro)da
> codice tramite select case, ma la mia inesperienza non riesco a
> farlo, mi sapete dare qualche consiglio?
> Vi ringrazio
select case me.Tuocontrollo
case 1
    me.idazienda.defaultvalue = 100
case 2
    me.idazienda.defaultvalue = 150
case 3
    me.idazienda.defaultvalue = 160
end salect
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: Defaul Value in sottomaschera

text:
MA ha scritto:
> maurizio56 wrote:
>> Buona sera, mi permetto di chiedere un consiglio. Ho creato una
>> maschera contenente un campo data e una sottomaschera contenente una
>> combobox idDipendente(matricola)una combobox per l'azienda e un campo
>> testo che definisce il tipo di lavoro. Questo l'ho fatto per evitare
>> 4 tabelle che in sostanza sono uguali, cambia solo l'azienda, e da
>> cadice vorrei cambiare il campo predefinito (idAzienda e lavoro)da
>> codice tramite select case, ma la mia inesperienza non riesco a
>> farlo, mi sapete dare qualche consiglio?
>> Vi ringrazio
>
> select case me.Tuocontrollo
> case 1
>     me.idazienda.defaultvalue = 100
> case 2
>     me.idazienda.defaultvalue = 150
> case 3
>     me.idazienda.defaultvalue = 160
> end salect
>
Grazie
--
       maurizio56
browser: FireFox 3.0.11
mailreader: ThunderBird 2.0.0.21


title: Richiesta aiuto per raggruppamento date

author: Marco ESMACH

text:
Ciao,
ho una tabella con un elenco di fatture. Questi i campi:
codice, quantità, data.
Vorrei creare un report che per ogni codice mi dia:
1. la somma di quatità totale
2. la somma di quantità negli ultimi 12 mesi
3. la somma di quantità negli ultimi 3 mesi
Potete aiutarmi?
Grazie


title: Richiesta aiuto per raggruppamento date

author: BFS

text:

potresti fare un report con tre sottoreport
le tre origini dei sottoreport sarebbero:
select * from fatture
select * from fatture where datafattura>int(now())-365
select * from fatture where datafattura>int(now())-90
vedi tu poi se visualizzare il corpo di ognuno o solo il totale
ciao
BFS


title: Help....Come recupero un DB ????

text:
ciao a tutti...
situazione... DB con Access 2002
cancellato per sbaglio ed eliminato dal cestino....
recuperato poi con un programma di recupero
file....ora all'apertura mi dice "Segnalibro non valido"
come posso recuperare il DB o quantomeno i dati in
esso contenuto ???
grazie


title: Help....Come recupero un DB ????

author: Sergio MAZZA

text:
"QU@RKź" <usl...@SPAMlibero.it> ha scritto nel messaggio
news:haaRb.287190$e6.11...@twister2.libero.it...

Prova con un mdb vuoto a reimportare tutto...
Ciao.
--
Sergio MAZZA


title: Help....Come recupero un DB ????

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bv3bin$4cb$1...@canarie.caspur.it...

--------------------
ho provato ma il messaggio di errore č lo stesso...
vi sono altre strade ???
Ciao


title: Help....Come recupero un DB ????

text:
"QU@RKź" <usl...@SPAMlibero.it> ha scritto nel messaggio
news:sMqRb.289235$e6.11...@twister2.libero.it...
> --------------------
> ho provato ma il messaggio di errore č lo stesso...
> vi sono altre strade ???
> Ciao
Per sicurezza cerca con google nei messaggi precedenti; se non ricordo male
dovrebbe essere l'utilizzo del parametro /decompile. Ma prima fai una
ricerca...
Ciao.
--
Sergio MAZZA


title: Help....Come recupero un DB ????

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bv5j9u$lpg$1...@canarie.caspur.it...

-----------
Scusa Sergio... ho fatto una ricerca con Groups Google ma non sono riuscito
a trovare nulla.... sai indirizzarmi verso qualche link. ??
grazie....


title: Help....Come recupero un DB ????

text:
--
Sergio MAZZA
"QU@RKź" <usl...@SPAMlibero.it> ha scritto nel messaggio
news:CWPRb.284614$vO5.11...@twister1.libero.it...

Come no (link lunghi):
(i messaggi trovati)
http://groups.google.it/groups?hl=it&lr=&ie=ISO-8859-1&q=%2Fdecompile&btnG=C
erca+con+Google&meta=group%3Dit.comp.appl.access
http://groups.google.it/groups?q=/decompile+group:it.comp.appl.access&hl=it&
lr=&ie=UTF-8&group=it.comp.appl.access&selm=3ecb84a5_4%
40news.bluewin.ch
&rnu
m=5
(alcune risposte)
http://groups.google.it/groups?q=/decompile+group:it.comp.appl.access&hl=it&
lr=&ie=UTF-8&group=it.comp.appl.access&selm=3E9AC8D3.5B636E68%
40blunet.it
&rn
um=1
Leggi bene prima di mettere in pratica il suggerimento!!
Ciao.
--
Sergio MAZZA


title: Re: Formattazione condizionale

author: Xymôx

text:
"Cataldo Formaro" <
formaro...@alice.it
> ha scritto
> ho un controllo data
> quale sarebbe l'espressione se è nullo?
>
> if isnull (dataconsegna) e non va
> if isnull me.dataconsegna e non va
>
> Come verrebbe?
Menu Formato - Formattazione condizionale --> Prova a mettere il valore del
campo è uguale a ""=""


title: Re: Formattazione condizionale

author: Karl Donaubauer

text:
Ciao Cataldo,
Cataldo Formaro wrote:
> ho un controllo data
> quale sarebbe l'espressione se è nullo?
>
> if isnull (dataconsegna) e non va
> if isnull me.dataconsegna e non va
>
> Come verrebbe?
IsNull([dataconsegna])
Cioè senza "if". Non si tratta di VBA.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Re: Formattazione condizionale

author: Cataldo Formaro

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6onkjhF...@mid.individual.net...

Sear Gut
Ciao
Cataldo Formaro


title: Rinominare un file con VBA

author: Armando Barchetti News

text:
Salve a tutti!
Cortesemente vorrei sapere se è possibile rinominare un file (PDF) con un
comando VBA da access
Grazie!!


title: Rinominare un file con VBA

text:
"Armando Barchetti News" <
arma...@aliceposta.it
> ha scritto nel messaggio
news:CcaNd.835180$35.32...@news4.tin.it...

Istruzione Name
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Rinominare un file con VBA

author: Sandro

text:
"Armando Barchetti News" <
arma...@aliceposta.it
> ha scritto nel messaggio
news:CcaNd.835180$35.32...@news4.tin.it...

Ciao Armando prova cosi:
dim nomevecchio,nomenuovo as string
nomevecchio ="c:\tuopath\nomefile.pdf"
nomenuovo ="c:\tuopath\nomenuovofile.pdf"
name nomevecchio as nomenuovo
Ciao


title: Rinominare un file con VBA

text:
"Sandro" <
sandro...@tin.it
> ha scritto nel messaggio
news:yGaNd.835274$35.32...@news4.tin.it...

ooops ho visto in ritardo il reply di @Alex.
Mai avrei risposto !!
Ciao.


title: Rinominare un file con VBA

text:
Funziona benissimo
Grazie di tutto!!
"Armando Barchetti News" <
arma...@aliceposta.it
> ha scritto nel messaggio
news:CcaNd.835180$35.32...@news4.tin.it...



title: Rinominare un file con VBA

author: Andrea Pettenon

text:

Ciao ho ripreso questo thread perchè ho modificato il codice in questo modo per ciò che serve a me:

Dim nomevecchio As String
Dim nomenuovo As String
'nomevecchio = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & "\prova*.pdf"
nomevecchio = "M:\GestioneTrasporti\2017\Bolle2017\prova001123.pdf"
nomenuovo = Forms!tbl_percorso_file_pdf!percorso_bolle & "\" & Me.IDBolla & ".pdf"
Name nomevecchio As nomenuovo

In questo modo funziona ma io devo modificare la prima riga "nomevecchio = Forms!...ecc " con il nome del file che inizia con "prova" ma poi non conosco i caratteri successivi che avrà il file (sarà solo 1 il file presente nella cartella) con la parte iniziale "prova" e ho provato a usare i caratteri jolly del dos ma non funziona. Come faccio?

Grazie

Andrea


title: Rinominare un file con VBA

text:
Quell'istruzione rinomina un file in un'altro... Non ci possono essere dubbi sui 2 Nomi... ed il Jolly non ha assolutamente nulla a che vedere con questa istruzione.

Se non sai il nome iniziale... prima devi identificarlo... i nomi dei file sono Univoci nella stessa Path... quindi solo 1 potrà essere rinominato.

Spiega bene cosa devi fare perché vengono più dubbi che certezze...

@Alex


title: Rinominare un file con VBA

text:

devo rinominare il file che viene creato da scansione- Il file viene salvato nella cartella con il nome progressivo che dà lo scanner il quale ha la parte iniziale del nome file sempre uguale e cambia la parte finale del file. Io voglio prendere questo file e rinominarlo con il mio IDBolla che ho nella maschera.

Andrea


title: Rinominare un file con VBA

text:
allora prima devi ricavare il nome del file completo... poi puoi rinominarlo.
Per trovare il nome ti basta scansionare il Path e, se sei sicuro ci sia solo 1 file sei a posto...

NomeFile = Dir(Path)

@Alex


title: Rinominare un file con VBA

text:

No in questa cartella ci sono tutti i file rinominati a mano.
Allora mi consiglieresti di fare la scansione su una cartella temporanea e una volta rinominato il file nella mia cartella eliminare questo file nella cartella temporanea in modo che sia sempre vuota.
Puoi aiutarmi col codice da scrivere?
Grazie

Andrea


title: Rinominare un file con VBA

text:

Ho trovato la soluzione:
Dim NomeFile as String
NomeFile = Dir("M:\GestioneTrasporti\ScanTemp\") 'percorso per individuare l'unico file presente in cartella
Name "M:\GestioneTrasporti\ScanTemp\" & NomeFile As "M:\GestioneTrasporti\2017\Bolle\" & Me.IDBolla & ".pdf" 'taglia&incolla il file rinominato


title: R: *** QUESITO x ME DIFFICILE ***

author: Giangi

text:
RoDAgo <
rodago...@tiscalinet.it
> wrote in message
8poa2p$euf$1...@lacerta.tiscalinet.it...
>
> Ma di getto mi viene sta roba.
> Non so se funge.
>
>     open "tuofile.txt" for append As #1
>         Print #1 ; tuocontrollo
>     close #1
Che bello! Sul mio M10 funziona di sicuro!


title: R: *** QUESITO x ME DIFFICILE ***

author: RoDAgo

text:
"Giangi" ha scritto nel messaggio ...
> >     open "tuofile.txt" for append As #1
> >         Print #1 ; tuocontrollo
> >     close #1
> Che bello! Sul mio M10 funziona di sicuro!
Sei messo bene, tecnologicamente parlando!  ;-)
Cmq non funzionava perchè avevo messo un ; anzichè una ,  l'istruzione
corretta era:
Print #1 , tuocontrollo
RoDAgo


title: Controllo tabelle collegate.

author: MM

text:
Salve a tutto il NG,
ho realizzato nel mio db una maschera chiamata controllotabelle che faccio
aprire tutte le volte che parte il db.
Ora mi domando se invece di creare una maschera vuota con del codice
associato , si può fare un modulo o funzione con il codice della maschera.
Il codice della mia maschera è il seguente :
**inizio codice****
Option Compare Database
Private Sub Form_Load()
Dim dbs As Database, rst As Recordset
On Error GoTo Gest_err
Set dbs = CurrentDb()
Set rst = CurrentDb.OpenRecordset("accettolicenza")
app = rst.EOF
Gest_err:
If Err = 3024 Then GoTo riallega Else
If Err = 3044 Then GoTo riallega Else
GoTo fine
riallega:
MsgBox "Le tabelle non sono collegate." & Chr(13) & "Nella schermata
successiva selezionate il DB che le contiene ! " & Chr(13) & "Se effettuate
la scelta errata poterebbe verificarsi la perdita di tutti i dati.",
vbCritical, "Ricollegare le tabelle !"
DoCmd.OpenForm "treeview", , acNormal
fine:
DoCmd.Close
End Sub
****fine ******
La maschera treeview è anch'essa superflua se fosse possibile eseguirne il
codice tramite modulo.
Il codice della maschera treeview è il seguente :
******inizio***********
Option Compare Database
Private Sub Form_Load()
Dim db As Database
Dim tabAllegata As TableDef
Dim i As Long
Dim percorso As String
Set dbsFatt = CurrentDb
Dim fb As OPENFILENAME
    Dim fName As Variant
    Call ShowFile(Me, fb)
    fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    txtFile = fName
percorso = txtFile
DoCmd.Hourglass True
If percorso = "" Then
DoCmd.Hourglass False
Exit Sub
End If
With dbsFatt
For i = 0 To .TableDefs.Count - 1
If .TableDefs(i).Connect <> "" Then
.TableDefs(i).Connect = ";DATABASE=" & percorso & "; pwd=paroni"
.TableDefs(i).RefreshLink
End If
Next i
End With
DoCmd.Hourglass False
MsgBox "Le tabelle sono state ricollegate. " & Chr(13) & "Riaprire il DB per
apportare le modifiche."
DoCmd.Close acForm, "controllotabelle"
Set dbsFatt = Nothing
Application.Quit
End Sub
********fine**********
possiedo un modulo chiamato treeview con il seguente codice :
Option Compare Database
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_PATHMUSTEXIST = &H800
Public Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustomFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Declare Function GetOpenFileName Lib "comdlg32.dll" _
        Alias "GetOpenFileNameA" (lpofn As OPENFILENAME) As Long
Public Sub ShowFile(frm As Form, fb As OPENFILENAME)
    Dim fName As String
    Dim result As Long
    Dim path As String
    path = "C:\"
    With fb
        .lStructSize = Len(fb)
        .hwndOwner = frm.Hwnd
        .hInstance = 0
        .lpstrFilter = ".MDB" & vbNullChar & "*.mdb" & vbNullChar
        .nMaxCustomFilter = 0
        .nFilterIndex = 1
        .lpstrFile = Space(256) & vbNullChar
        .nMaxFile = Len(.lpstrFile)
        .lpstrFileTitle = Space(256) & vbNullChar
        .nMaxFileTitle = Len(.lpstrFileTitle)
        .lpstrInitialDir = path & vbNullChar
        .lpstrTitle = "Scelta File" & vbNullChar
        .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
        .nFileOffset = 0
        .nFileExtension = 0
        .lCustData = 0
        .lpfnHook = 0
    End With
    result = GetOpenFileName(fb)
    If result <> 0 Then
        fName = Left(fb.lpstrFile, InStr(fb.lpstrFile, vbNullChar) - 1)
    End If
End Sub
*******fine modulo********
Grazie a tutti color che mi aiuteranno in questa cosa.
Con simpatia,
grazie
Marco.


title: Controllo tabelle collegate.

author: Roberto da casa

text:
"MM" <
mar...@libero.it
> ha scritto nel messaggio
news:ndQA9.29369$8E3.8...@twister2.libero.it...
> Salve a tutto il NG,
>
> ho realizzato nel mio db una maschera chiamata controllotabelle che faccio
> aprire tutte le volte che parte il db.
> Ora mi domando se invece di creare una maschera vuota con del codice
> associato , si può fare un modulo o funzione con il codice della maschera.
>
> Il codice della mia maschera è il seguente :
>
Così a occhio dirrei che puoi scrivere il codice delle due Sub in un'unica
funzione in un modulo del database e poi richiamare tale funzione dalla
macro Autoexec.
Naturalmente modificherai qualche riga di codice per rendere la cosa
possibile ed eliminerai le DoCmd.OpenForm alle due maschere.
[CUT]
>
> Con simpatia,
> grazie
>
> Marco.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Filtro per parte di stringa

author: Gra

text:
Salve a tutti,
è possibile creare via codice un filtro che ricerca in un campo tutti i
record che contengono una parte dei caratteri immessi?
Es. campo Città contiene: MILANO, BOLZANO, ROMA,CAGLIARI, LAMEZIA,PALERMO.
Immettendo nela campo ricerca i caratteri LA dovrebbe tirare fuori: miLAno,
LAmezia. Spero di essere stato chiaro...?!?


title: Filtro per parte di stringa

text:
"Gra" <
studio...@tiscali.it
> ha scritto nel messaggio
news:cok6jp$ntv$1...@fata.cs.interbusiness.it...

dimenticavo, io utilizzo il seguente comando:
 Me.Filter = "Qr_anagra.CITTA IN ('" & stringaselezione & "')"
Funziona solo se immetto il campo esatto per come è scritta la città.


title: Filtro per parte di stringa

author: Cinzia

text:
"Gra" <
studio...@tiscali.it
> ha scritto nel messaggio
news:cok79l$pvn$1...@fata.cs.interbusiness.it...

Ciao Gra,
devi usare Like:
me.Filter = "Qr_anagra.CITTA Like '*" & stringaselezione & "*'"
Saluti
Cinzia


title: Filtro per parte di stringa

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:cok8d4$muc$1...@lacerta.tiscalinet.it...

Grazie sei Grande!!! perchè non ho ci ho pensato prima.....????
Ciao


title: bonifici +con tracciato setif

author: gianni

text:
Ciao a tutti.
Ho bisogno di aituo. Purtroppo ho poca  dimestichessa con access e  adesso
non so come risolvere un problema. Ho un piccolo database da dove devo
riuscire a generare un file setif per l'elaborazione di bonifici. Da
internet sono riuscito a recuperare una routine per questa necessita ma non
so propio come fare per applicarla al mio db. Qualcuno mi spiega come fare.
P.s. non so' assolutamente com usare i codici Vb di access
Grazie a tutti
Dim progr_lotto As Long
    Dim record As String
    Dim ctr_rec_lotto As Integer
    Dim ctr_disposizioni_bon As Integer
    Dim tot_importo_bon As Long
    Dim file_input As Recordset
    Dim fileseq As Integer
'-----------------------------------------
'------ elaborazione dei bonifici SETIF
'-----------------------------------------
    fileseq = FreeFile
    Open file_setif & ".bon" For Output As #fileseq
    DoCmd.Hourglass True
'-----------
    Set file_input = db.OpenRecordset("query dati bonifici", dbOpenSnapshot)
    progr_lotto = 0
    ctr_rec_lotto = 0
    tot_importo_bon = 0
    ctr_disposizioni_bon = 0
    Do Until file_input.EOF
        progr_lotto = progr_lotto + 1
        If progr_lotto = 1 Then
            record = " HR"
            record = record & Left$(banca!sia_codice & Space(5), 5)
            record = record & Left$(banca!sia_abi & Space(5), 5)
            record = record & Format(Date, "ddmmyy")
            record = record & Left$(banca!sia_emittente_ragsoc & Space(26),
26)
            record = record & Space(6)
            record = record & "BONIF$SI"
            record = record & Space(10)
            record = record & Space(50)
            Print #fileseq, record
            ctr_rec_lotto = ctr_rec_lotto + 1
        End If
'--------------------
        record = " 10"
        record = record & Format(progr_lotto, "0000000")
        record = record & Format(Date, "ddmmyy")
        record = record & Format(file_input!data_valuta, "ddmmyy") 'data
valuta sia
        record = record & Format(file_input!data_valuta, "ddmmyy") 'data
valuta dest
        record = record & Format(banca!sia_causale, "00000")
        record = record & Format(file_input!importo_pagato, "0000000000000")
        tot_importo_bon = tot_importo_bon + file_input!importo_pagato
        record = record & "+"
        record = record & Left$(banca!sia_abi & Space(5), 5)
        record = record & Left$(banca!sia_cab & Space(5), 5)
        record = record & Left$(banca!conto & Space(12), 12)
        record = record & Left$(file_input!abi & Space(5), 5)
        record = record & Left$(file_input!cab & Space(5), 5)
        record = record & Left$(file_input!conto & Space(12), 12)
        record = record & Left$(banca!sia_codice & Space(5), 5)
        record = record & "9" 'tipo codice
        record = record & "0000000000000000"
        record = record & "000000"
        Print #fileseq, record
        ctr_rec_lotto = ctr_rec_lotto + 1
'--------------------
        record = " 20"
        record = record & Format(progr_lotto, "0000000")
        record = record & Left$(banca!sia_emittente_ragsoc & Space(30), 30)
        record = record & Left$(banca!sia_emittente_indir & Space(30), 30)
        record = record & Left$(banca!sia_emittente_citta & Space(30), 30)
        record = record & Space(19)
        Print #fileseq, record
        ctr_rec_lotto = ctr_rec_lotto + 1
'--------------------
        record = " 30"
        record = record & Format(progr_lotto, "0000000")
        record = record & Left$(file_input!ricevente & Space(30), 30)
        record = record & Space(30)
        record = record & Space(30)
        record = record & Space(19)
        Print #fileseq, record
        ctr_rec_lotto = ctr_rec_lotto + 1
'--------------------
        record = " 40"
        record = record & Format(progr_lotto, "0000000")
        record = record & Left$(file_input!ricevente_via & Space(30), 30)
        record = record & Left$(file_input!ricevente_cap & Space(5), 5)
        record = record & Left$(file_input!ricevente_local & Space(25), 25)
        record = record & Left$(file_input!ricevente_banca & Space(30), 30)
        record = record & Space(19)
        Print #fileseq, record
        ctr_rec_lotto = ctr_rec_lotto + 1
'--------------------
        record = " 50"
        record = record & Format(progr_lotto, "0000000")
        record = record & Left$(file_input!causale & Space(90), 90)
        record = record & Space(19)
        Print #fileseq, record
        ctr_rec_lotto = ctr_rec_lotto + 1
'--------------------
        ctr_disposizioni_bon = ctr_disposizioni_bon + 1
        file_input.MoveNext
    Loop
'record EF (coda)
    If progr_lotto > 0 Then
        record = " EF"
        record = record & Left$(banca!sia_codice & Space(5), 5)
        record = record & Left$(banca!sia_abi & Space(5), 5)
        record = record & Format(Date, "ddmmyy")
        record = record & Left$(banca!sia_emittente_ragsoc & Space(26), 26)
        record = record & Format(ctr_disposizioni_bon, "0000000")
        record = record & "000000000000000"
        record = record & Format(tot_importo_bon, "000000000000000")
        ctr_rec_lotto = ctr_rec_lotto + 1
        record = record & Format(ctr_rec_lotto, "0000000")
        record = record & Space(30)
        Print #fileseq, record
    End If
    Close #fileseq
    DoCmd.Hourglass False


title: Confermare il salvataggio dei dati.

author: Napoleone

text:
Applicando ad una mia form,
la faq 3.13 del sito comune Confermare il salvataggio dei dati
a fronte dell'evento prima di aggiornare.
Però succede una cosa seccante, ogni volta che voglio scorrere i dati,
anche quando non li modifico, mi chiede se voglio salvare le modifiche,
questo me lo fà ad ogni record.
Allego il codeice che tutti voi ben conoscete.
-----------------------------------------------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "I dati sono cambiati." & vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
End Sub-------------------------Napoleone


title: Confermare il salvataggio dei dati.

text:
"Napoleone" <
Napol...@libero.it
> ha scritto nel messaggio
news:QJ7he.6709$795.1...@twister1.libero.it...

Ciao Napoleone,
metti  questo test prima della MsgBox:
If Me.Dirty then
    retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
    .....
    .....
end if
in questo modo te lo dovrebbe chiedere solo se effettivamente hai modificato
qualcosa.
Cinzia


title: Confermare il salvataggio dei dati.

text:
"Cinzia" <
cinziapagani_...@tiscali.it
> ha scritto nel messaggio
news:4285089d$0$20670$5fc...@news.tiscali.it...

Ciao Cinzia, tutto bene?
ho fatto cosi:
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "I dati sono cambiati." & vbCrLf & _
            "Vuoi salvare le modifiche?"
    If Me.Dirty Then
    retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
     Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
  End If
End Sub
...........................
ma lo fa lostesso
Ciao Napoleone


title: Confermare il salvataggio dei dati.

author: Cinzia Pagani

text:
>>
> Ciao Cinzia, tutto bene?
> ho fatto cosi:
> Private Sub Form_BeforeUpdate(Cancel As Integer)
>    Dim retValue As Integer
>    Dim strTtl As String
>    Dim strMsg As String
>    strTtl = "Salvare il record?"
>    strMsg = "I dati sono cambiati." & vbCrLf & _
>             "Vuoi salvare le modifiche?"
>     If Me.Dirty Then
>     retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
>      Select Case retValue
>        Case vbYes
>            'non fare nulla
>        Case vbNo
>            DoCmd.RunCommand acCmdUndo
>        Case vbCancel
>            Cancel = True
>
>    End Select
>   End If
> End Sub
> ...........................
> ma lo fa lostesso
> Ciao Napoleone
Uhm....
Non è che hai qalche sub sull'evento corrente che va a modificare qualche
campo?
Ciao
Cinzia


title: Confermare il salvataggio dei dati.

text:
"Cinzia Pagani" <
cinziapagani-...@tiscali.it
> ha scritto nel
messaggio news:17yr2kreu9143$.x08itsirhekc.dlg@40tude.net...

Non se può influire, ma ho questa sub
Private Sub Form_Current()
Me.lPrezzo = ([lCostoLordo]) - ([TestoSconto])
Me.lPrezzoVendita = ([lCostoLordo] + [TestoRicarico] + [TestoIVA])
End Sub
Napoleone


title: Confermare il salvataggio dei dati.

text:
Napoleone wrote:
> "Cinzia Pagani ha scritto:
>>>>
>>> ho fatto cosi:
>>> Private Sub Form_BeforeUpdate(Cancel As Integer)
>>>    Dim retValue As Integer
>>>    Dim strTtl As String
>>>    Dim strMsg As String
>>>    strTtl = "Salvare il record?"
>>>    strMsg = "I dati sono cambiati." & vbCrLf & _
>>>             "Vuoi salvare le modifiche?"
>>>     If Me.Dirty Then
>>>     retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
>>>      Select Case retValue
>>>        Case vbYes
>>>            'non fare nulla
>>>        Case vbNo
>>>            DoCmd.RunCommand acCmdUndo
>>>        Case vbCancel
>>>            Cancel = True
>>>
>>>    End Select
>>>   End If
>>> End Sub
>>> ...........................
>>
>>
>> Uhm....
>> Non è che hai qalche sub sull'evento corrente che va a
>> modificare qualche campo?
>
> Non se può influire, ma ho questa sub
>
> Private Sub Form_Current()
> Me.lPrezzo = ([lCostoLordo]) - ([TestoSconto])
> Me.lPrezzoVendita = ([lCostoLordo] + [TestoRicarico] + [TestoIVA])
> End Sub
Burlone. Cambiare il record "non può influire"?
Certo questo ti rende sporco il record e provoca gli evento
di aggiornamento. Puoi sempre testare con
Msgbox Me.Dirty
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005


title: Confermare il salvataggio dei dati.

text:
CUT
>>
>> Private Sub Form_Current()
>> Me.lPrezzo = ([lCostoLordo]) - ([TestoSconto])
>> Me.lPrezzoVendita = ([lCostoLordo] + [TestoRicarico] + [TestoIVA])
>> End Sub
>
> Burlone. Cambiare il record "non può influire"?
> Certo questo ti rende sporco il record e provoca gli evento
> di aggiornamento. Puoi sempre testare con
> Msgbox Me.Dirty
>
> --
> HTH
> Karl
Effettivamente se tolgo la sub su corrente, il problema scompare.
Ma come faccio ad aggiornare i miei calcoli??
Ciao
Napoleone
PS: per Karl
Riguardo al post del 12.05.2005 Record duplicato non segnalato,
non c'è soluzione?


title: Confermare il salvataggio dei dati.

text:
Napoleone wrote:
> CUT
>>>
>>> Private Sub Form_Current()
>>> Me.lPrezzo = ([lCostoLordo]) - ([TestoSconto])
>>> Me.lPrezzoVendita = ([lCostoLordo] + [TestoRicarico] + [TestoIVA])
>>> End Sub
>>
>> Burlone. Cambiare il record "non può influire"?
>> Certo questo ti rende sporco il record e provoca gli evento
>> di aggiornamento. Puoi sempre testare con
>> Msgbox Me.Dirty
>> ...
> Effettivamente se tolgo la sub su corrente, il problema scompare.
> Ma come faccio ad aggiornare i miei calcoli??
> ...
Secondo me il problema è che fai dei calcoli nel evento
Form_Current (come mai?) che persino vengono salvati
nella tabella.
Se non hai una ragione molto buona per salvare valori calcolati
lascialo perdere e non ti provoca problemi superflui. È una legge
fondamentale con database.
> PS: per Karl
> Riguardo al post del 12.05.2005 Record duplicato non segnalato,
> non c'è soluzione?
La tua risposta per me era troppo difficile a leggere, senza
spazio interlineare ecc. e con info che per me sembrava poco
chiaro e non completo. Aggiungio il mio male italiano e il
fatto che leggo centianaie di messaggi in diversi NG...
In questi casi di solito lascio aperto il thread perché qui
si trova tanta gente capace che non ha almeno il problema
della lingua e che di solito interviene se il messaggio è più
chiaro che per me.
Se invece non ricevi una risposta dopo 2-3 giorni puoi sempre
provare a riformulare la domanda più chiara e con più
informazione necessario in un nuovo thread.
--
cu



title: Confermare il salvataggio dei dati.

text:
....
> Secondo me il problema è che fai dei calcoli nel evento
> Form_Current (come mai?) che persino vengono salvati
> nella tabella.
> Se non hai una ragione molto buona per salvare valori calcolati
> lascialo perdere e non ti provoca problemi superflui. È una legge
> fondamentale con database.
Questo l'ho risolto facendo i calcoli negli stessi controlli
>> PS: per Karl
>> Riguardo al post del 12.05.2005 Record duplicato non segnalato,
>> non c'è soluzione?
>
> La tua risposta per me era troppo difficile a leggere, senza
> spazio interlineare ecc. e con info che per me sembrava poco
> chiaro e non completo. Aggiungio il mio male italiano e il
cercherò di essere di essere semplice nell'esposizione!
> fatto che leggo centianaie di messaggi in diversi NG...
In pratica quel tread si collega a questo tgread di oggi, perchè?
se in beforUpdate ho il codice che mi avvisa sul cambiamento dei dati??
il codice che segue per identificare i duplicati, va bene in AfterUpdate??
------------------------------
Private Sub Form_AfterUpdate()
   If DataErr = 3022 Then
  Response = acDataErrContinue
  MsgBox Me!lCodiceBarreProdotto & " " & " sDescrizione" &
lCodiceBarreFornitore & " Già esiste.", vbOKOnly, " -- CLIENTE Duplicato! --
"
  Me!lCodiceBarreProdoto.SetFocus
End If
End Sub
--------------------------------------
Ciao
Napoleone


title: Confermare il salvataggio dei dati.

text:
Napoleone wrote:
> ....
>>> PS: per Karl
>>> Riguardo al post del 12.05.2005 Record duplicato non segnalato,
>>> non c'è soluzione?
>>
>> La tua risposta per me era troppo difficile a leggere, senza
>> spazio interlineare ecc. e con info che per me sembrava poco
>> chiaro e non completo. Aggiungio il mio male italiano e il
> cercherò di essere di essere semplice nell'esposizione!
>> fatto che leggo centianaie di messaggi in diversi NG...
>
> In pratica quel tread si collega a questo tgread di oggi, perchè?
> se in beforUpdate ho il codice che mi avvisa sul cambiamento dei dati??
> il codice che segue per identificare i duplicati, va bene in AfterUpdate??
> ------------------------------
> Private Sub Form_AfterUpdate()
>   If DataErr = 3022 Then
>  Response = acDataErrContinue
>  MsgBox Me!lCodiceBarreProdotto & " " & " sDescrizione" &
> lCodiceBarreFornitore & " Già esiste.", vbOKOnly, " -- CLIENTE Duplicato!
> -- "
>  Me!lCodiceBarreProdoto.SetFocus
> End If
> End Sub
> --------------------------------------
No. L'errore che viene a causa di un indice esclusivo duplicato non
puoi solo gestire nel evento Errore della maschera. Anche DataErr
è solo usabile in questo evento.



title: Confermare il salvataggio dei dati.

text:
Napoleone wrote:
> ....
>>> PS: per Karl
>>> Riguardo al post del 12.05.2005 Record duplicato non segnalato,
>>> non c'è soluzione?
>>
>> La tua risposta per me era troppo difficile a leggere, senza
>> spazio interlineare ecc. e con info che per me sembrava poco
>> chiaro e non completo. Aggiungio il mio male italiano e il
> cercherò di essere di essere semplice nell'esposizione!
>> fatto che leggo centianaie di messaggi in diversi NG...
>
> In pratica quel tread si collega a questo tgread di oggi, perchè?
> se in beforUpdate ho il codice che mi avvisa sul cambiamento dei dati??
> il codice che segue per identificare i duplicati, va bene in AfterUpdate??
> ------------------------------
> Private Sub Form_AfterUpdate()
>   If DataErr = 3022 Then
>  Response = acDataErrContinue
>  MsgBox Me!lCodiceBarreProdotto & " " & " sDescrizione" &
> lCodiceBarreFornitore & " Già esiste.", vbOKOnly, " -- CLIENTE Duplicato!
> -- "
>  Me!lCodiceBarreProdoto.SetFocus
> End If
> End Sub
> --------------------------------------
No. L'errore che viene a causa di un indice esclusivo duplicato
puoi solo gestire nel evento Errore della maschera. Anche DataErr
è solo usabile in questo evento.
--
