title: Valore predefinito su azione

author: GDessi

text:
"Elsis" <
el...@tin.it
> ha scritto nel messaggio
news:KRU6d.31125$35.14...@news4.tin.it...
> Ho una maschera "movimenti" con un controllo chiamato "importo" ed un
altro
> controllo chiamato "verificato" con formato vero/falso.
>
> Nella maschera "movimenti" č contenuta una sottomaschera che contiene un
> controllo chiamato "importo preventivo".
>
> Ho la necessitą di assegnare al controllo "importo" della maschera
> "movimenti", come valore predefinito, il valore del controllo "importo
> preventivo" contenuto nella sottomaschera.
>
> Questo deve avvenire nel momento in cui, e solo se, metto il segno di
spunta
> nel controllo "verificato" (quindi con l'azione dopo aggiornamento).
>
> Il motivo di assegnare il valore come valore predefinito e non come valore
č
> dovuto al fatto che č possibile che io cambi questo valore in relazione a
> determinate esigenze.
>
> Grazie a tutti.
>
>
> Anche la
Non vorrei sbagliarmi, ma dovresti mettere evento dopo l'aggiornamento del
controllo.
il codice quindi avrą queste sembianze
(ctrlNome --> sono i tuoi controlli)
if(Me.ctrlVerificato = true) then
Me.ctrlImporto = Me![nomesottomaschera]!ctrlimportopreventivo
endif
prova potrei aver scritto una castroneria :D
Ciao


title: ora

author: Mike Dens

text:
ciao...io desideravo poter sottrarre da un orario Somma ( espressione calcolata
in una query ) il valore di 30minuti. Ho provato ma quando digito #00:30:00# in
automatico quando salvo l'orario che ho inserito viene cambiato in #12:30:00
AM#
e quindi la differenza non viene fatta!!!
Nel campo somma ho una espressione calcolata in una query....io desideravo o
poter aggiungere un evento al campo ( su attivazione?? ) in cui sottraggo 30min
nel caso in cui si verifichi una determinata condizione o eventualmente in
serire la condizione nella query ( sempre nel campo somma a cui è associato una
espressione calcolata ) e quindi se tale condizione si verifica sottrare 30
minuti dall'orario Somma!!!
spero di esser stato chiaro
grazie
mike
--
Posted from
epid-28-dns.ifc.cnr.it
 [146.48.71.90]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: ora

author: Roberto dal portatile

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:dc711b26a368305541...@mygate.mailgate.org...
> ciao...io desideravo poter sottrarre da un orario Somma ( espressione
calcolata
> in una query ) il valore di 30minuti. Ho provato ma quando digito
#00:30:00# in
> automatico quando salvo l'orario che ho inserito viene cambiato in
#12:30:00
> AM#
> e quindi la differenza non viene fatta!!!
> Nel campo somma ho una espressione calcolata in una query....io desideravo
o
> poter aggiungere un evento al campo ( su attivazione?? ) in cui sottraggo
30min
> nel caso in cui si verifichi una determinata condizione o eventualmente in
> serire la condizione nella query ( sempre nel campo somma a cui è
associato una
> espressione calcolata ) e quindi se tale condizione si verifica sottrare
30
> minuti dall'orario Somma!!!
> spero di esser stato chiaro
> grazie
> mike
>
>
Se sei in VBA e Somma contiene un valore di tipo Data/ora prova con:
Somma = DateAdd("n",-30, Somma)
In un campo calcolato di una query prova con:
SommaBis: DateAdd("n"; -30; [Somma])
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: ora

text:
Come sempre roberto i tuoi consigli/suggerimenti sono azzeccati, utili e
preziosi.
ancora una volta mi hai risolto il problema ed ovviamente ti ringrazio...
buon natale e felice anno nuovo
ciao
mike from P/SA!!! :-)
--
Posted from  [80.116.166.191]



title: ora

text:
"Mike Dens" <
ra...@tiscalinet.it
> ha scritto nel messaggio
news:a131446e1c1bdfc253...@mygate.mailgate.org...
> Come sempre roberto i tuoi consigli/suggerimenti sono azzeccati, utili e
> preziosi.
> ancora una volta mi hai risolto il problema ed ovviamente ti ringrazio...
> buon natale e felice anno nuovo
> ciao
> mike from P/SA!!! :-)
Buon Natale e felice anno nuovo a te.
Roberto from ROMA!!! ;-)


title: ennesimo dubbio sull'utilizzo dei decimali (per uso contabile)

text:
ho una funzione cosi
Function fctRound(Optional varNr, Optional varPl As Integer = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
   If IsMissing(varNr) Or Not IsNumeric(varNr) Then Exit Function
   fctRound = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) / (10 ^
varPl)
End Function
e un campo che mi indica quanti decimali usare e lo prelevo in questo modo
DLookup("[numerodecimali]", "nometabella")
vorrei che ogni valuta prendesse il numero di decimali messi in numero
decimali quindi pensavo in vba faccio cosi
fctRound(1.24, DLookup("[numerodecimali]", "nometabella")) per ogni
viriabile valuta
ma come faccio invece su apertura di una form a dire ad un campo valuta di
avere tanti decimali quanti specificati in
DLookup("[numerodecimali]", "nometabella")
grazie.


author: MA

text:
E allora perchè non aggiungi l'ennesimo post al
vecchio 3d?
non credi che chi in futuro avrà il tuto stesso
problema, potrà avere anche lo stesso
inconveniente?
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:hFFnc.4497$%x6....@news.edisontel.com...

cosa intendi per 3d? se ti riferisci ai post mi scuso per aver aperto
inutilmente post separati.


text:
"Simba883" <
simb...@libero.it
> ha scritto nel
messaggio
news:c7nchk$eg1$1...@lacerta.tiscalinet.it...

Proprio questo, riprendi il vecchio
MAssimiliano


title: verificare se un db è già in uso

author: Ammammata

text:
ho una applicazione installata sul server che viene utilizzata raramente
dagli utenti che si collegano in desktop remoto (una volta alla settimana)

è divisa in due:
quella che calcola e prepara i dati e quella che li stampa

ancor più raramente capita che ci sia un accesso contemporaneo o, per
meglio dire, che un utente si dimentichi di chiuderla quando finisce di
usarla (una volta al mese); alla fine dell'elaborazione il programma si
ferma con un errore (file bloccato in scrittura) quando tenta di
cancellarlo per ricostruirlo

DBfilename = NN & Ty & CO & MA & Format(Me.RIFYEAR, "0000") & _
Format(Me.RIFMONTH, "00") & "DATI_REP.Mdb"
If Dir_Exist(Me.APP_PATH & DBfilename) <> "" Then
   Kill Me.APP_PATH & DBfilename
   Messaggio ("- " & Time() & " Deleted " & DBfilename)
   DoEvents
End If

come posso controllare se l'applicazione è già in uso (e mi tiene
bloccato il file) senza dover aspettare il termine dell'elaborazione?
ho pensato di spostare all'inizio il codice che cancella il file vecchio,
ma se fosse disponibile qualcosa di più funzionale... tipo aprirlo in
modalità esclusiva o simile

nota bene: il controllo lo metterò nella parte che genera i dati in quanto
accessi contemporanei con la parte che li stampa non hanno mai creato
problemi

magari si potrebbe anche identificare l'utente distratto, per avvisarlo o
per avvisare chi sta provando a usarla, che sarebbe la cosa più elegante :)

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


title: fare ricerche di piu' parole anche non in ordine in un campo

author: ermanno

text:
Salve,
Esiste un modo semplice per fare una ricerca su un campo di una
tabella in modo che vengano selezionati i record che contengono le
parole di ricerca anche se non nello stesso ordine? (un po' come
quando si effettuano ricerche con google..)
Es. se cerco Mario dr. Rossi
la ricerca mi evidenziera' i campi che contengono queste tre parole
in qualsiasi ordine esse siano e mischiate anche ad altre.
Grazie!
Ermanno


author: Roberto da casa

text:
"ermanno" <
torva...@hotmail.com
> ha scritto nel messaggio
news:6ak91v8v6oou2viij...@4ax.com...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ
intitolata "Come si puň filtrare una maschera in base a una o piů parole o
frasi contenute all'interno di un suo controllo?"; penso che faccia al caso
tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
Ringrazio della risposta.... e' stato spunto di risoluzione del
problema...
Ecco come ho risolto (magari serve a qualcuno
Sub openmaga()
Dim cnnmaga As New Connection
Dim rstmaga As Recordset
Dim search, ricerca, searchel(10) As String
Dim x, q As Integer
search = InputBox("Inserisci la ricerca da effettuare", "Supersearch")
'parsing
q = 1
For x = 1 To Len(search)
a$ = Mid$(search, x, 1)
If a$ = " " Then q = q + 1
searchel(q) = searchel(q) + a$
Next
'crea la stringa di ricerca
ricerca = ""
For x = 1 To q
    If x <> 1 Then ricerca = ricerca + " and "
    ricerca = ricerca + "descri like " + "'%" + Trim$(searchel(x)) +
"%'"
Next
'connessioni ai db
cnnmaga.Open "provider=microsoft.jet.oledb.4.0;Data
Source=c:\cservice.mdb;"
'recordsets
Set rstmaga = New ADODB.Recordset
rstmaga.CursorType = adOpenKeyset
rstmaga.LockType = adLockOptimistic
'apre e stampa un record a testa
stringaselect = "SELECT * from anagraficaarticoli where (" + ricerca +
");"
rstmaga.Open stringaselect, cnnmaga, , adCmdText
If Not rstmaga.EOF Then rstmaga.MoveFirst Else Stop
Do While Not rstmaga.EOF
    Debug.Print rstmaga!descri
    rstmaga.MoveNext
Loop
Debug.Print "---------------------------"
Debug.Print stringaselect
Stop
Grazie nuovamente!!!
Ermanno



title: Soluzione Errore 75 su pacchetto di installazione.

author: Ringhitt

text:
Finalmente sono riuscito a trovare una soluzione al problema di cui
all'oggetto.
L'errore 75 era un bug che si manifestata nella creazione del pacchetto di
installazione con  Office XP sui sistemi operativi Windows 98 - Windows 98
Seconda edizione - Millennium e Nt
Server e Workstation.
Esso è stato risolto dalla microsoft con una patch, liberamente scaricabile
all'indirizzo
http://msdn.microsoft.com/downloads
Ho provato ad applicare detta patch e tutto è tornato a funzionare alla
perfezione.
Ciao a tutti
Ringhitt


author: All Eyez On me

text:
"Ringhitt" <
dfl.a...@tiscalinet.it
> ha scritto nel messaggio
news:a3eo51$pmf$1...@lacerta.tiscalinet.it...
> Finalmente sono riuscito a trovare una soluzione al problema di cui
> all'oggetto.
> L'errore 75 era un bug che si manifestata nella creazione del pacchetto di
> installazione con  Office XP sui sistemi operativi Windows 98 - Windows 98
> Seconda edizione - Millennium e Nt
> Server e Workstation.
> Esso č stato risolto dalla microsoft con una patch, liberamente
scaricabile
> all'indirizzo
http://msdn.microsoft.com/downloads
> Ho provato ad applicare detta patch e tutto č tornato a funzionare alla
> perfezione.
> Ciao a tutti
> Ringhitt
>
Grazie, era una gran rottura !!!
AEOM


title: Riorganizzare logica tabelle

text:
Mi trovo un db non standard da riorganizzare.
Dovrei ricreare delle tabelle con questa logica
      Giorno Milano Roma Firenze
      01/01/2006 75 41 2
      02/01/2006 98 95 51
      03/01/2006 16 57 72
In tabelle standard
      Giorno Dato Valore
      01/01/2006 Milano 75
      02/01/2006 Milano 98
      03/01/2006 Milano 16
      01/01/2006 Roma 41
      02/01/2006 Roma 95
      03/01/2006 Roma 57
      01/01/2006 Firenze 2
      02/01/2006 Firenze 51
      03/01/2006 Firenze 72
Siccome le tabelle sono una moltitudine e i record migliaia volevo chiedervi
se qualcuno ha già affrontato il problema e come lo ha risolto.
Grazie 1000


title: Riorganizzare logica tabelle

text:
"Adri@no" <
Ad...@no.it
> ha scritto nel messaggio
news:TcKyf.33483$av6....@tornado.fastwebnet.it...

Puoi risolvere il tuo problema con una query unione (vedi help) che dai dati
di ogni record della tabella produrrà 3 righe come da te desiderato.
Un esempio di quello che ti serve lo trovi sul Sito Comune (link qui sotto),
nella Sezione Queries, nella mia FAQ intitolata "2.31 Le query unione", nel
paragrafo intitolato "Suddividere su più righe i dati contenuti nei campi di
un record".
> Grazie 1000
Prego
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Riorganizzare logica tabelle

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:kgLyf.47424$eD5.7...@twister2.libero.it...
>
> Puoi risolvere il tuo problema con una query unione (vedi help) che dai
dati
> di ogni record della tabella produrrà 3 righe come da te desiderato.
> ...
> Roberto
Avevo pensato anch'io a questa soluzione "manuale". Il mio problema è che
devo riorganizzare un database con una trentina di tabelle con circa 60
campi (le tabelle sono tutte uguali ma contengono dati diversi) dove circa
54 campi devono diventare discriminante di record. Speravo in una routine in
VBA che automatizzasse un po' il processo..
Grazie comunque
Adri@no


title: Riorganizzare logica tabelle

author: Bruno Campanini

text:
"Adri@no" <
Ad...@no.it
> wrote in message
news:TcKyf.33483$av6....@tornado.fastwebnet.it...

Sia T5 la tabella (sorgente) contenente i campi Giorno,
Milano, Roma, Firenze
Sia T6 la tabella (destinazione) contenente i campi Giorno,
Data, Valore
-------------------------------------------------
Private Sub Command6_Click()
Dim db As Database, i As Integer
Dim RS_Source As Recordset, RS_Target As Recordset
Set db = CurrentDb
Set RS_Source = db.OpenRecordset("T5", dbOpenDynaset)
Set RS_Target = db.OpenRecordset("T6", dbOpenDynaset)
Do Until RS_Source.EOF
    For i = 1 To 3
        With RS_Target
            .AddNew
            .Fields(0) = RS_Source.Fields(0)
            .Fields(1) = RS_Source.Fields(i).Name
            .Fields(2) = RS_Source.Fields(i)
            .Update
        End With
    Next
    RS_Source.MoveNext
Loop
End Sub
-----------------------------------------------
Ciao
Bruno


title: Riorganizzare logica tabelle

text:
"Adri@no" <
Ad...@no.it
> ha scritto nel messaggio
news:JmMyf.33761$av6....@tornado.fastwebnet.it...
> "Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
> news:kgLyf.47424$eD5.7...@twister2.libero.it...
> >
> > Puoi risolvere il tuo problema con una query unione (vedi help) che dai
> dati
> > di ogni record della tabella produrrà 3 righe come da te desiderato.
> > ...
> > Roberto
>
> Avevo pensato anch'io a questa soluzione "manuale".
Manuale?
Forse non è chiaro che il lavoro non lo devi fare tu a "manina santa" ma lo
fa la query unione; se manuale intendi che devi crearti la query unione, ma
cosa pretendi che esistano delle query già pronte che vadano bene per la
struttura della tua tabella?
> Il mio problema è che
> devo riorganizzare un database con una trentina di tabelle con circa 60
> campi (le tabelle sono tutte uguali ma contengono dati diversi) dove circa
> 54 campi devono diventare discriminante di record. Speravo in una routine
in
> VBA che automatizzasse un po' il processo..
Scusami, ma a mio avviso il processao non sarebbe automatizzato più di
quello che sia automatizzato con una query unione e dovresti comunque
fornire una infinità di parametri che a confronto creare una query unione,
partendo dal modello pubblicato nel Sito Comune, è una passeggiata.
>
> Grazie comunque
Prego
>
> Adri@no



title: Riorganizzare logica tabelle

author: Marco Pizzamiglio

text:
Roberto da casa ha scritto:





> >
> > Grazie comunque
> Prego
Tra l'altro si sta pochissimo a fare una query di unione di quel tipo,
basta scrivere la prima riga, fare copia-incolla e cambiare il nome del
campo nelle successive.
Mi raccomando l'uso di UNION ALL, perchè il solo UNION scarterebbe i dati
duplicati.
Ciao.
-Marco-
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Riorganizzare logica tabelle

text:
"Bruno Campanini" <
bruno.c...@tin.it
> ha scritto nel messaggio
news:43cb9dff$0$1076$4faf...@reader1.news.tin.it...
> >
> ..
> Do Until RS_Source.EOF
>     For i = 1 To 3
>         With RS_Target
>             .AddNew
>             .Fields(0) = RS_Source.Fields(0)
>             .Fields(1) = RS_Source.Fields(i).Name
>             .Fields(2) = RS_Source.Fields(i)
>             .Update
>         End With
>     Next
>     RS_Source.MoveNext
> Loop
>...
> Ciao
> Bruno
MITICO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Esattamente ciň che cercavo di fare!!!
1 minuto (non di piů) per modificare il codice (avevo 8 campi che tali
dovevano restare e 66 che dovevano diventare records con campo
discriminante) ed il risultato č perfetto!
Grazie 1000^10
Adri@no
PS. Per i guru del Sitocomune (che leggo con interesse ed apprezzamento)
potete valutare di inserirle la pratica soluzione nei "Modules"


title: frm As Form

author: Franco dellavalle

text:
ciao a tutti
come devo fare affinchè

frm possa essere modificato a mio piacimento?
p.e. all'interno di una function
If MyCustomer = "Società" Then frm = Eval(frm & "_S")
CmpEmail = fctCampiEmail(frm)

Grazie


title: frm As Form

text:
Franco ma non hai ancor a compreso il modello ad oggetti.di Access... fai sempre le stesse domande alle quali uno pensa e spera di dar risposta con l'obiettivo tu ne comprenda i concetti...

L'oggetto Form fa parte della Collection forms... Quindi come ti ho detto anche nel messaggio precedente per usare una stringa deviriferirti alla collection...
FORMS(Stringanomeform)

L'assegnazione di variabili oggetto, e la form lo è come un controllo ecc... richiede il SET
EVAL non serve a NULLA non usarloa vanvera.

DIM frm Ad Access.Form
If CurrentProject.AllForms(nomeform).isloaded the

  Set frm= Forms(nomeform)
End if

Perché non valuti lo studio delle basi di programmazione di access...?

@Alex


title: frm As Form

text:

grazie Alex
stavo per rispondermi
cmq grazie


title: frm As Form

text:

che libro?



title: frm As Form

text:
Se ti rispondo... quello che vuoi...?(Il messaggio è chiaro...?)
Non sono aggiornato... ma ti serve di certo anche uno di base.

@Alex


title: Query parametrica

author: eSQueL

text:
Non riesco a far funzionare questa query:
 Dim rs As New ADODB.Recordset, Data As Date
 rs.Open "SELECT ATTI.* FROM ATTI " & _
         "WHERE ATTI.DATA_ATTO=" & Data & "", ActiveConnection:=cnx
mi restituisce un record vuoto, mentre dovrebbe restituirmene alcuni.
Dove sbaglio?
Grazie per qualsiasi aiuto.
eSQueL


title: Query parametrica

author: Sergio MAZZA

text:
"eSQueL" <
eSQ...@libero.it
> ha scritto nel messaggio
news:HFvpk.43458$Ca.1...@twister2.libero.it...
> Non riesco a far funzionare questa query:
>
> Dim rs As New ADODB.Recordset, Data As Date
>
> rs.Open "SELECT ATTI.* FROM ATTI " & _
>         "WHERE ATTI.DATA_ATTO=" & Data & "", ActiveConnection:=cnx
>
> mi restituisce un record vuoto, mentre dovrebbe restituirmene alcuni.
>
> Dove sbaglio?
Non indichi, nella Where, il tipo di dati da confrontare;
..."WHERE ATTI.DATA_ATTO=#" & Data & "#", ...
oppure
..."WHERE ATTI.DATA_ATTO=Cdate('" & Data & "')", ...
> Grazie per qualsiasi aiuto.
>
> eSQueL
Ciao.
--
Sergio MAZZA


title: Query parametrica

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:48a68b95$0$11378$5fc...@news.tiscali.it...

Grazie :)
Ciao.
eSQueL


title: Breakpoint che rimangono attivi anche dopo averli tolti ???

author: RobertoA

text:
Vi e' mai successo che durante il debug piazzate breakpoint a destra ed
a manca, poi una volta corretto e verificato tutto, li togliete,
lanciate in esecuzione ed il flusso programma si ferma proprio dov'era
prima un breakpoint?
O capita solo a me?
(Win 10 pro 64bit, Access 2013 32 bit)


author: Karl Donaubauer

text:
Salve,

RobertoA:

Siccome si tratta di un vecchio bug, lo trovi nel nostro elenco (sezione
VBA) insieme alla solita cura (decompile):

https://www.accessforever.org/post/access-bugs-the-long-list-2023-1

Poi per decompile vedi:
https://www.donkarl.com/it?FAQ1.23

--
Ciao
Karl
*********
Access Bugs:
https://AccessForever.org

Access News:
https://youtu.be/XMOHBSudo-U

Access DevCon:
http://AccessDevCon.com

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


text:
Il 30/03/2023 19:33, Karl Donaubauer ha scritto:
> Salve,
>
> RobertoA:
>> Vi e' mai successo che durante il debug piazzate breakpoint a destra
>> ed a manca, poi una volta corretto e verificato tutto, li togliete,
>> lanciate in esecuzione ed il flusso programma si ferma proprio dov'era
>> prima un breakpoint?
>> O capita solo a me?
>> (Win 10 pro 64bit, Access 2013 32 bit)
>
> Siccome si tratta di un vecchio bug, lo trovi nel nostro elenco (sezione
> VBA) insieme alla solita cura (decompile):
>
>
https://www.accessforever.org/post/access-bugs-the-long-list-2023-1

>
> Poi per decompile vedi:
https://www.donkarl.com/it?FAQ1.23

>

Ah e' roba nota
Buono a sapersi


text:
Salve,

RobertoA:
> Il 30/03/2023 19:33, Karl Donaubauer ha scritto:
>>
>> RobertoA:
>>> Vi e' mai successo che durante il debug piazzate breakpoint a destra
>>> ed a manca, poi una volta corretto e verificato tutto, li togliete,
>>> lanciate in esecuzione ed il flusso programma si ferma proprio
>>> dov'era prima un breakpoint?
>>> O capita solo a me?
>>> (Win 10 pro 64bit, Access 2013 32 bit)
>>
>> Siccome si tratta di un vecchio bug, lo trovi nel nostro elenco
>> (sezione VBA) insieme alla solita cura (decompile):
>>
>>
https://www.accessforever.org/post/access-bugs-the-long-list-2023-1

>> ...
>
> Ah e' roba nota
> Buono a sapersi

Perché ho appena rivisto il post:

Questo bug è stato risolto un po' più tardi, a giugno, perché abbiamo
disturbato il team di Access abbastanza a lungo. Ma ovviamente solo per
le versioni attuali di Access.

È il sesto di questo elenco:
https://techcommunity.microsoft.com/t5/access-blog/access-releases-14-issue-fixes-in-version-2305-released-june-1st/ba-p/3841227

--
Ciao
Karl
*********
Access Bugs:
https://www.accessforever.org

Access News:
https://youtu.be/cs_mZvaKYeY




text:
Qualcuno ha scritto:

> RobertoA:
>>>> Vi e' mai successo che durante il debug piazzate breakpoint a destra
>>>> ed a manca, poi una volta corretto e verificato tutto, li togliete,
>>>> lanciate in esecuzione ed il flusso programma si ferma proprio
>>>> dov'era prima un breakpoint?
>>>> O capita solo a me?
>>>> (Win 10 pro 64bit, Access 2013 32 bit)
>>>
>>> Siccome si tratta di un vecchio bug, lo trovi nel nostro elenco
>>> (sezione VBA) insieme alla solita cura (decompile):
>>>
>>>
https://www.accessforever.org/post/access-bugs-the-long-list-2023-1

>>> ...
>>
>> Ah e' roba nota
>> Buono a sapersi
>
> Perché ho appena rivisto il post:
>
> Questo bug è stato risolto un po' più tardi, a giugno, perché abbiamo
> disturbato il team di Access abbastanza a lungo. Ma ovviamente solo per
> le versioni attuali di Access.
>
> È il sesto di questo elenco:
>
https://techcommunity.microsoft.com/t5/access-blog/access-releases-14-issue-fixes-in-version-2305-released-june-1st/ba-p/3841227

>

Ah, errore mio, ovvero una lettura troppo superficiale qui:
Hanno risolto il caso inverso con i breakpoint presenti che non
funzionano. Il bug con i breakpoint fantasma è più difficile da
riprodurre per Microsoft e quindi non è ancora stato risolto.



title: Quesito Aiuto!!

author: Provveditorato/Economato

text:
Ho una Maschera che si chiama "Dati" e una Sottomaschera che si chiama
 "Prodotti";
 Ho la necessità che dopo aver aggiornato la casella combinata di nome
 "Servizio" che si trova nella maschera "Dati", la sottomaschera "Prodotti"
 vada a un nuovo record.
 Che formula devo inserire (con precisione) sull'evento "dopo aggiornamento"
 della casella combinata "Servizio"  per avere il risultato chiesto?
 Porgo in anticipo i miei più sentiti ringraziamenti a tutti coloro che
 vorranno rispondere.
 Forlani Rodrigo


title: Quesito Aiuto!!

author: RoDAgo

text:
"Provveditorato/Economato" ha scritto nel messaggio ...

Prova in questo modo:
DoCmd.GoToControl "Prodotti"
DoCmd.GoToRecord acActiveDataObject, , acNewRec
>  Forlani Rodrigo
Ciao da RoDAgo


title: rs 232 e mscomm32

author: All eyez On me

text:
Dove si trova il controlla mscomm32.ocx?
E' a pagamento?
AEOM


title: rs 232 e mscomm32

author: Carlo Costarella

text:
"All eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
news:9ug84q$kms$1...@pegasus.tiscalinet.it...
> Dove si trova il controlla mscomm32.ocx?
>
> E' a pagamento?
>
> AEOM
>
In c:\windows\system. E' gratuito se hai il developer di Access o VB tutte
le versioni o C++  o altri linguaggi di programmazione.
Grazie a mamma Microsoft.
Ciao, Carlo


title: rs 232 e mscomm32

author: Paolo Pedrali

text:
Il mio problema è il seguente:
Ho una maschera con dentro una casella combinata e delle caselle di testo.In
questa casella combinata vado a scegliere un cliente tra quelli presenti
nella tabella clienti.Io voglio che nel momento in cui scelgo un cliente in
automatico mi matta i suoi dati nelle varie caselle di testo presenti nella
maschera.
In particolare quando scelgo il cliente Pippo voglio che l'indirizzo di
Pippo venga inserito nella casella di testo indirizzo e cosi via.Come c si
fa?
Ho già cercato sui vecchi mex ma non riesco a trovare niente.
Grazie mille a chi vorrà rispondermi


title: rs 232 e mscomm32

text:
"Carlo Costarella" <
carloco...@libero.it
> ha scritto nel messaggio
news:RNNO7.230148$sq5.11...@news.infostrada.it...

Ho il developer 97 e quello XP ma quando provo inserire il controllo in una
form mi dice che non ho la licenza... ne sai qualcosa?
AEOM


title: rs 232 e mscomm32

author: AntoGal

text:
"All eyez On me" <
bf-si...@libero.it
> ha scritto...
> Ho il developer 97 e quello XP ma quando provo inserire il controllo in
una
> form mi dice che non ho la licenza... ne sai qualcosa?
Questo OCX crea diversi problemi in fase di installazione, ma una volta
sistemati funziona bene.
Per risolvere questo problema della licenza dovresti aggiungere una chiave
al Registry.
Crea un file di testo con le seguenti 4 righe (la seconda è vuota):
----------------------
REGEDIT4
[HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB]
@="mgkgtgnnmnmninigthkgogggvmkhinjggnvm"
----------------------
Dopo di chè potrai utilizzare il controllo in modalità "design".
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (POS NCR / Indesit)

www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************


title: rs 232 e mscomm32

text:
"AntoGal" <
antogal...@sitocomune.com
> ha scritto...
> Crea un file di testo con le seguenti 4 righe (la seconda è vuota):
> Dopo di chè potrai utilizzare il controllo in modalità "design".
Ho scordato di scrivere che devi rinominare l'estensione di tale file in
".REG", e farci doppio click sopra, per apportare le modifiche al registro.



title: rs 232 e mscomm32

text:
"AntoGal" <
antogal...@sitocomune.com
> ha scritto nel messaggio
news:9uidl5$8nq50$1...@ID-107948.news.dfncis.de...
> "AntoGal" <
antogal...@sitocomune.com
> ha scritto...
> > Crea un file di testo con le seguenti 4 righe (la seconda è vuota):
> > Dopo di chè potrai utilizzare il controllo in modalità "design".
>
> Ho scordato di scrivere che devi rinominare l'estensione di tale file in
> ".REG", e farci doppio click sopra, per apportare le modifiche al
registro.
>
> --
>
> Ciao, AntoGal
>
Ma è legale questa cosa?
AEOM


title: rs 232 e mscomm32

text:
"All eyez On me" <
bf-si...@libero.it
> ha scritto...
> Ma č legale questa cosa?
Se tu possiedi la licenza d'uso di MS-Comm32, certamente. Questo l'ho dato
per scontato...



title: rs 232 e mscomm32

text:
"AntoGal" <
antogal...@sitocomune.com
> ha scritto nel messaggio
news:9uj9va$9130r$1...@ID-107948.news.dfncis.de...

ho la licenda di windows xp e office xp developer non so  se il controllo
ocx faccia parte di questi pacchetti o perchč ho installato qualche
programma che lo usa.
Ne sai qualcosa?
AEOM


title: rs 232 e mscomm32

text:
"All eyez On me" <
bf-si...@libero.it
> ha scritto...
> ho la licenda di windows xp e office xp developer non so  se il controllo
> ocx faccia parte di questi pacchetti o perchè ho installato qualche
> programma che lo usa.
> Ne sai qualcosa?
Ciao AEOM,
quello che so per certo è che l'OCX non viene venduto separatamente da MS,
ma incluso in pacchetti come VB e VC++. Esiste anche una versione di VB 5
distribuita gratuitamente (Control Creation Edition)
http://msdn.microsoft.com/vbasic/downloads/cce/default.asp
che permette l'utilizzo di tale OCX. Inoltre, sul sito MS è possibile
scaricare una versione "senza licenza" di tale OCX (un po'  vecchiotta).
Il mio dubbio è che non sono sicuro se Office Develeper autorizza
all'utilizzo di tale controllo, converrebbe sentire MS.
Comunque, anche possedendo la licenza d'uso e installando tutto
correttamente, uno dei problemi che si possono incontrare è che appunto
l'OCX continua a chiedere la licenza anche su sistemi dove la si possiede. A
questo proposito torna utile quel "fix" sul registry che ho riportato nel
post precedente.
Comunque, per utilizzare mscomm32 conviene dare un'occhiata a questo sito,
che presenta un riepilogo delle proprietà ed eventi utilizzabili con tale
OCX.
http://www.yes-tele.com/mscomm.html
Per completezza, altri link utili sul sito MS sono:
INFO: Receiving Data Using the MSComm Control's OnComm Event
http://support.microsoft.com/support/kb/articles/q194/9/22.asp
INFO: Troubleshooting Tips for the MSComm Control
http://support.microsoft.com/support/kb/articles/Q192/0/12.ASP
HOWTO: Receive from the Serial Port by Using MScomm32.ocx
http://support.microsoft.com/support/kb/articles/Q140/5/25.asp
HOWTO: Trap Control Characters Using the MSComm Control
http://support.microsoft.com/support/kb/articles/Q194/9/23.ASP
ODE97: "You Don't Have a License" Error Using ActiveX Control (Q172859)
http://support.microsoft.com/support/kb/articles/q172/8/59.asp



title: rs 232 e mscomm32

text:
"AntoGal" <
antogal...@sitocomune.com
> ha scritto nel messaggio
news:9ul4j0$92r4i$1...@ID-107948.news.dfncis.de...

Cacchio non è che mi mandi a casa una parcella per una consulenza di questo
tipo!!!
Grazie mille (euro)
AEOM


title: rs 232 e mscomm32

author: Emyr

text:


Un metodo semplice è utilizzare la proprieta column della casella
combinata.
nella casella combinata su recordsource crea una query con i campi che
ti interessano e poi sull'originerecord delle caselle di testo metti
=forms![nomeform]![nomecasellacombinata].column(nrcolonnainteressata)
considera che column comincia da 0
sulla casella combinata ricordati di usare le proprietà column count
column widths mettento al limite a zero le colonne che non vuoi far
vedere
Emyr


title: rs 232 e mscomm32

author: Alex

text:
"Paolo Pedrali" <
Pped...@inwind.it
> wrote in message
news:9ug989$ts5$1...@nreadb.inwind.it...

La soluzione forse più veloce è quella di utilizzare la COMPOSIZIONE AUTOMATICA
della CASELLA COMBINATA, questa infatti ha la proprietà di posizionare il
Record Corrente sul Relativo riferimento al RECORD scelto dalla CASELLA.
In pratica sposta il record su quello scelto, ovviamente tutti i CONTROLLI
legati ai dati si aggiornano AUTOMATICAMENTE.
Tutto questo senza scrivere 1 riga di codice.
@Alex
--
Posted from  [62.98.48.251]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: datemi un layout!

author: Vladimir Komarek

text:
o voi esperti di access
ho un problema enorme da risolvere... voi senz altro potete aiutarmi.
ho una tabella della serie  nome-indirizzo-tel
dovrei stampare una serie di questi record su carta adesiva e dovrei
quindi dargli un layout appropriato che non sia quello standard della
tabella...
per esempio i dati potrebbero essere messi cosi'
 nome -------
 ---- indirizzo
 tel --------
 nome2 ------
 ---- indirizzo2
 tel2 -------
... ecc
come posso fare?
il problema e' che devo stampare i vari records di fila e non uno alla
volta (come nei form)
dovrei esportare i dati su excel?
ditemi voi
grazie


title: datemi un layout!

author: SimonenomiS

text:
Vladimir Komarek <
kom...@mail.cz
> wrote in message
1e4zg3h.1jo...@a-vo2-49.tin.it...

  Perche', farti un bel report ti sembra una cattiva idea? :-)


title: datemi un layout!

author: Basjlico

text:
Hai provato con l'autocomposizione etichetta? (Nuovo report)
Era il Tue, 25 Jan 2000 21:45:31 +0100 quando  scrisse:
>o voi esperti di access
>ho un problema enorme da risolvere... voi senz altro potete aiutarmi.
>ho una tabella della serie  nome-indirizzo-tel
>dovrei stampare una serie di questi record su carta adesiva e dovrei
>quindi dargli un layout appropriato che non sia quello standard della
>tabella...
>
>per esempio i dati potrebbero essere messi cosi'
>
> nome -------
> ---- indirizzo
> tel --------
>
> nome2 ------
> ---- indirizzo2
> tel2 -------
>
>... ecc
>
>
>come posso fare?
>il problema e' che devo stampare i vari records di fila e non uno alla
>volta (come nei form)
>dovrei esportare i dati su excel?
>ditemi voi
>
>grazie
Ciao
Basjlico


title: datemi un layout!

text:
SimonenomiS <
S.Fal...@iol.it
> wrote:
> > dovrei esportare i dati su excel?
>
>   Perche', farti un bel report ti sembra una cattiva idea? :-)
beh
a saperli usare... :-)
imparero'
grazie per la dritta


title: Uso di Filter per estrapolare CAP che iniziano con il primo numero

author: Andrea Pettenon

text:
Come posso modificare questa istruzione per filtrare un campo cap in modo che mi restituisca tutti i cap che iniziano con il primo numero?

Me.Filter = "CD like '*" & CercaStringa & "*'"

Grazie per l'aiuto.

Andrea


text:
Me.Filter = "CAP like '" & CercaStringa & "*'"

@Alex


text:
Il giorno domenica 2 settembre 2018 09:54:07 UTC+2, @Alex ha scritto:
> Me.Filter = "CAP like '" & CercaStringa & "*'"
>
> @Alex

No, in questo modo mi restituisce tutti i CAP uguali, ma io invece cerco il modo di filtrare tutti i CAP che iniziano con il primo numero (il campo in questione è in formato testo). Questo filtro è sull'evento "su doppio clic" del campo CAP e attivando l'evento sul campo che all'interno ha per esempio 20122, mi filtrerà tutti quei record che avranno il cap che inizia con il "2". Spero di avere posto meglio la domanda ora, chiedo scusa.

Andrea


text:
Andrea non diciamo cose assurde senza pensare.
Quel criterio cerca tutti i CAP che iniziano con la stringa che inserisci.
Se poi questo sia quello che hai chiesto devi saperlo tu.

@Alex


text:
Al posto della stringa metti il left(cap,1)... e spiegato meglio.

@Alex


text:

Chiedo scusa, ho tralasciato parte del codice precedente relativo al "CercaStringa" che in effetti fa riferimento all'intero campo CAP.
Sto cercando di adattare queste istruzioni, prese da un altro post, per ottenere questa cosa, di filtrare tutti i cap che inizino con il primo carattere, e non ce la faccio.

Andrea


text:
Il giorno domenica 2 settembre 2018 10:20:38 UTC+2, @Alex ha scritto:
> Al posto della stringa metti il left(cap,1)... e spiegato meglio.
>
> @Alex

Grazie, era proprio quello che mi serviva! Ho risolto.


title: ouDisabilitare la rotella mse, i tasti freccia, tasti pagUP-pagDown

text:
Buon anno a tutti
domanda:
se ho una maschera fr_MiaMaschera
quando questa è aperta quindi attiva poiche ho disabilitato i selettori di
record e i pulsanti di spostamento
vorrei sapere come si puo disattivare per quella maschera quando è
aperta(solo quando è aperta) i:
   rotella mouse
   tasti freccia (tastiera)
   tasti pagUP-pagDown (tastiera)
Grazie e ancora felice anno
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"domy1973" <
domeni...@gmail.com
> ha scritto nel messaggio
news:gjj06b$g84$1...@news.newsland.it...
> Buon anno a tutti
> domanda:
> se ho una maschera fr_MiaMaschera
> quando questa č aperta quindi attiva poiche ho disabilitato i selettori di
> record e i pulsanti di spostamento
> vorrei sapere come si puo disattivare per quella maschera quando č
> aperta(solo quando č aperta) i:
>
>   rotella mouse
>   tasti freccia (tastiera)
>   tasti pagUP-pagDown (tastiera)
>
> Grazie e ancora felice anno
>
Ciao
per la rotellina del mouse trovi ampia documentazione su
www.sitocomune.com
Per tutto il resto questa una possibile strada:
a fronte dell'evento KeyDown della maschera...(su tasto giů)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 34 Or KeyCode = 33 Or KeyCode = 38 Or KeyCode = 40 Or KeyCode =
37 Or KeyCode = 39 Then
KeyCode = 0
End If
End Sub
Ricorda di impostare "Anteprima tasti" su Sě.
Ciao, Carlo


author: geppo

text:
Ciao "domy1973" <
domeni...@gmail.com
> ha scritto nel messaggio

Oppure:
if instr("33;34;37;38;39;40", KeyCode) then keyCode =0
e dai un occhiata qui per la rotellina del mouse qui:
http://www.lebans.com/mousewheelonoff.htm
--
Ciao
Geppo


title: Comparazione tra Oracle e SQL server

author: Roberto Marengo    -   Sviluppo Software

text:
Salve a tutti,
dovrei inserire in una relazione alcuni elementi di comparazione tra SQL
Server e Oracle.
Qualcuno di voi e' in grado di segnalarmi qualche sito dove vengano
comparati i due prodotti o, in alternativa qualche articolo e/o libro ?
Grazie a tutti
                                                Roberto Marengo


title: esportazione tabelle

author: Paolo

text:
Ho un problema di questo tipo: ho una tabella e devo esportarla in un filein
formato testo, ma senza le intestazioni e le separazioni di riga e colonna.
Come si puň fare?
Grazie.


title: Comvertitore applicazioni Access ---> VB

author: Roberto B.

text:
Sfogliando i CD allegati di una rivista (IoProg N°31) ho trovato
un'utility sconvolgente; un Comvertitore di applicazioni Access --->
VB!
Vi allego il readme.txt: se qualcuno lo vuole provare, sono molto
curioso del risultato!
Urthman's MDB Code Generator v1.00.0191: From MS Access to VB Code in
less than 90 seconds? This utility analyzes a Microsoft(r) Access
database and generates a complete and extensive Visual Basic code
module (BAS) file and a companion programmer's reference document in
HTM.
Status: Feature Limit Demo (Unlock for $59.00)
Platform: Microsoft(r) Windows 95/98/NT
This software requires the following in order to operate properly:
	Visual Basic v5.0 Runtime Library
Notes: This program has NOT been tested with earlier versions of MS
Access or Visual Basic. There is no time limit on the use of this
program.
Installation: Copy the files in this (archive/folder) into a temporary
directory or folder and run the Setup.exe program included with the
Urthman's MDB Code Generator installation files.
Removal: Use the Add/Remove applet in your Control Panel to remove
Urthman's MDB Code Generator
Contact Info:
	John Stanley Enterprises
	PO Box 1672
	Valrico, FL  33595-1672
	Email:
urt...@usa.net
	URL:
http://www.a-znet.com/jse/
-----------------------------------------------------
Roberto Bergonzini -MO-
robb...@tin.it
Microsoft Certified System Engineer
Microsoft Certified Professional Specialist Internet
-----------------------------------------------------


author: Sergio MAZZA

text:
"Roberto B." <
rberg...@hotmail.com
> ha scritto nel messaggio
news:39168d06...@news.tiscalinet.it...

Non per vanificare la tua buona azione, ma nell'NG se ne parla da tempo di
cose del genere e oltretutto su web è presente una cosa del genere (mai
provata, io..)...
Ciao.
P.S. Hai per caso trovato nel cd un compilatore per Access?


text:

Ma converte il codice di un database access o un'intera applicazione (form e
report compresi)....mi sembra poco probabile ?


text:
"bobbit_barton" <
bobbit...@wappi.com
> ha scritto nel messaggio
news:tuAR4.21577$Vo3.2...@news.infostrada.it...

Comunque la Microsoft ha detto che presto lanciera il compilatore per
Access, sarà sufficente comprare 12 licenze per office professional +
un'apposita licenza speciale, più una licenza per l'utente finale e sarà
possibile pagando una piccola royalty alla MS stessa.


text:
Il giorno Mon, 8 May 2000 16:18:30 +0200, lo Straniero scrisse...
ancora in preda i fumi dell'alcool:
>Non per vanificare la tua buona azione, ma nell'NG se ne parla da tempo di
>cose del genere e oltretutto su web è presente una cosa del genere (mai
>provata, io..)...
Sinceramente pensavo che fossero delle bufale!!
>P.S. Hai per caso trovato nel cd un compilatore per Access?
Come questa!!! Cmq se è stato fatto un convertitore Access ---> VB,
non escludo anche il compilatore Access....


author: lbo dal portatile

text:
>Urthman's MDB Code Generator v1.00.0191: From MS Access to VB Code in
>less than 90 seconds? This utility analyzes a Microsoft(r) Access
>database and generates a complete and extensive Visual Basic code
>module (BAS) file and a companion programmer's reference document in
>HTM.
fantastico.  come se la cava con le maschere continue?  e con i
report?
in realta' questo tipo di applicazioni servono ad *aiutare* nel
porting da access a vb.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


author: Federico Luciani

text:
"Roberto B." wrote:
> Sfogliando i CD allegati di una rivista (IoProg N°31) ho trovato
> un'utility sconvolgente; un Comvertitore di applicazioni Access --->
> VB!
> Vi allego il readme.txt: se qualcuno lo vuole provare, sono molto
> curioso del risultato!
> Urthman's MDB Code Generator v1.00.0191: From MS Access to VB Code in
> less than 90 seconds? This utility analyzes a Microsoft(r) Access
> database and generates a complete and extensive Visual Basic code
> module (BAS) file and a companion programmer's reference document in
> HTM.
IMHO questa utility crea del codice VB per ricreare una
struttura dati esistente, e quindi non converte nulla.
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


text:
"bobbit_barton" <
bobbit...@wappi.com
> ha scritto nel messaggio
news:nmDR4.22908$Vo3.2...@news.infostrada.it...
>
> Comunque la Microsoft ha detto che presto lanciera il compilatore per
> Access, sarà sufficente comprare 12 licenze per office professional +
> un'apposita licenza speciale, più una licenza per l'utente finale e sarà
> possibile pagando una piccola royalty alla MS stessa.
>
>
E una fetta vicino all'osso? No?
Ciao.


author: Gustavo Bartolini

text:
Il convertitore MDB Code Generator crea dalla struttura dati del mdb di
Access tutte le sub di connessione, inserimento, modifica e cancellazione.
ma crea solo codice; può essere utile!?
Esiste dello stesso autore il form generator, un pianto!
Ma il problema non è solo di questo prodotto, tutti quelli che ho provato
fanno un buon lavoro sulle form semplici, dove non vi siano ne combo, ne
sottomaschere o comunque griglie.
Sono praticamente inutili!
Saluti.
GB
Roberto B. <
rberg...@hotmail.com
> wrote in message
39168d06...@news.tiscalinet.it...
> Sfogliando i CD allegati di una rivista (IoProg N°31) ho trovato
> un'utility sconvolgente; un Comvertitore di applicazioni Access --->
> VB!
> Vi allego il readme.txt: se qualcuno lo vuole provare, sono molto
> curioso del risultato!
>
> Urthman's MDB Code Generator v1.00.0191: From MS Access to VB Code in
> less than 90 seconds? This utility analyzes a Microsoft(r) Access
> database and generates a complete and extensive Visual Basic code
> module (BAS) file and a companion programmer's reference document in
> HTM.
>
> Status: Feature Limit Demo (Unlock for $59.00)
>
> Platform: Microsoft(r) Windows 95/98/NT
>
> This software requires the following in order to operate properly:
>
> Visual Basic v5.0 Runtime Library
>
> Notes: This program has NOT been tested with earlier versions of MS
> Access or Visual Basic. There is no time limit on the use of this
> program.
>
> Installation: Copy the files in this (archive/folder) into a temporary
> directory or folder and run the Setup.exe program included with the
> Urthman's MDB Code Generator installation files.
>
> Removal: Use the Add/Remove applet in your Control Panel to remove
> Urthman's MDB Code Generator
>



title: Aprire/utilizzare un programma all'interno di access

author: FabioS

text:
Esiste un controllo (OCX) che, inserito in un form, mi permetta di aprire al
suo interno un qualsiasi altro programma e di utilizzarlo come fosse una
sessione a se stante? Nel mio caso mi servirebbe per utilizzare, all'interno
di un mio pgm Access, KODAKIMG.EXE di windows che utilizzo x scannerizzare
ed archiviare documenti. Grazie a chi mi suggerisce una soluzione.


author: Roberto da casa

text:
"FabioS" <
fabio.sa...@capfvg.it
> ha scritto nel messaggio
news:b5pbhs$1bdc1$1...@news02.it.net...

Puoi farlo con la Funzione Shell (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
la funzione Shell avvia un programma e basta(la uso già); io vorrei gestire
il programma all'interno di access (es. ActiveX SnapshotViewer...)


title: ottenere due risultati in unica soluzione

author: Franco dellavalle

text:
ciao a tutti
Vorrei ottenere due risultati in una unica soluzione
in questa sub...
Grazie per l'aiuto

Sub ImpPDDiv(frm As Form)

  Dim rst As DAO.Recordset
  Dim strSQL As String

  strSQL = "SELECT * FROM TbDeposito"
  strSQL = strSQL & " WHERE Predefinito = -1 AND Id = cliCriterio();"
  Set rst = CurrentDb().OpenRecordset(strSQL)

  frm!IdDDiv = ""
  frm!IdDDiv = rst!IdDestinazioneDiv

  strSQL = "SELECT * FROM TbDeposito"
  strSQL = strSQL & " WHERE Predefinito = -1 AND Id = foCriterio();"
  Set rst = CurrentDb().OpenRecordset(strSQL)

  frm!IdLCDiv = ""
  frm!IdLCDiv = rst!IdLuogoCaricoDiv

  Set rst = Nothing

End Sub


text:
Sub ImpPDDiv(frm As Form)

  Dim rst As DAO.Recordset
  Dim strSQL As String

  strSQL = "SELECT * FROM TbDeposito"
  strSQL = strSQL & " WHERE Predefinito = -1 AND Id = cliCriterio();"
  Set rst = CurrentDb().OpenRecordset(strSQL)

  frm!IdDDiv = rst!IdDestinazioneDiv
  frm!IdLCDiv = rst!IdLuogoCaricoDiv

  rst.close
  Set rst = Nothing

End Sub

@Alex


text:

grazie Alex
però sono due filtri diversi cliCriterio() e foCriterio()

strSQL = strSQL & " WHERE Predefinito = -1 AND Id = cliCriterio();"
per...frm!IdDDiv = rst!IdDestinazioneDiv

strSQL = strSQL & " WHERE Predefinito = -1 AND Id = foCriterio();"
per...frm!IdLCDiv = rst!IdLuogoCaricoDiv


text:
Scusa mi è sfuggito... allora credo non si possa semplificare...

@Alex


text:
Il giorno domenica 3 marzo 2019 12:29:58 UTC+1, @Alex ha scritto:
> Scusa mi è sfuggito... allora credo non si possa semplificare...
>
> @Alex

grazie


author: Micky

text:

usa la UNION:

SELECT * FROM (
     SELECT * FROM TbDeposito WHERE Predefinito = -1 AND Id = cliCriterio()
     UNION
     SELECT * FROM TbDeposito WHERE Predefinito = -1 AND Id = foCriterio()
) AS t ;


text:
>> End Sub
>>
>
> usa la UNION:
>
> SELECT * FROM (
>      SELECT * FROM TbDeposito WHERE Predefinito = -1 AND Id = cliCriterio()
>      UNION
>      SELECT * FROM TbDeposito WHERE Predefinito = -1 AND Id = foCriterio()
> ) AS t ;

anche così :

select * FROM TbDeposito WHERE Predefinito = -1 AND Id = cliCriterio()

union

select * FROM TbDeposito WHERE Predefinito = -1 AND Id = cliCriterio()


title: MSDataShape in Access .mdb

author: Luca Dall'Olio

text:
Ho fatto un database .mdb con una maschera non associata, ho poi creato un
recordset usando MSDATASHAPE e l'ho assegnato su apertura a me.recordset.
Tutto sembra funzionare tranne una cosa :
non riesco a fare riferimento al campo aggiunto dalla SHAPE APPEND.
Il controllo a cui ho associato il campo _Parziale risulta vuoto.
Via codice riesco a trovare il valore giusto usando
Me.recordset.Fields.item(2) (_Parziale e' il terzo campo).
Dove sbaglio?
Un'altra cosa che non capisco e' : posso fare riferimento allo *stesso*
database in cui si trova la maschera?
Per ora non ci riesco, devo per forza tenere i dati in un altro mdb.
C'e' qualcuno che mi saprebbe aiutare? Questo e' il codice della maschera:
Dim rstLocal As ADODB.Recordset
Private Sub Form_Open(Cancel As Integer)
    On Error GoTo ErrorHandler
    Dim sngParziale As Single
    Set rstLocal = New ADODB.Recordset
    rstLocal.CursorLocation = adUseClient
    rstLocal.Open "SHAPE {SELECT Articolo, Quantita FROM tblVoci}" & _
                    "APPEND NEW adNumeric(10,2) _Parziale", _
                    "provider=MSDATASHAPE;data
provider=Microsoft.Jet.OLEDB.4.0;data source=C:\Documenti\DatiParziali.mdb",
_
                    adOpenStatic, _
                    adLockBatchOptimistic, _
                    adCmdText
    rstLocal.MoveFirst
    sngParziale = 0
    Do While Not rstLocal.EOF
        sngParziale = sngParziale + rstLocal("Quantita")
        rstLocal("_Parziale") = sngParziale
        rstLocal.MoveNext
    Loop
    Set Me.Recordset = rstLocal
ExitHere:
    Exit Sub
ErrorHandler:
    MsgBox "Errore : " & Err.Number & " " & Err.Description
    On Error Resume Next
    rstLocal.Close
    Set rstLocal = Nothing
    Resume ExitHere
End Sub
Private Sub Form_Close()
    rstLocal.Close
    Set rstLocal = Nothing
End Sub
Grazie in anticipo, Luca


title: Re: Aggiornare  solo record duplicati di una tabella

author: Pippo

text:
"Pippo" <
NaP...@libero.it
> ha scritto nel messaggio
news:8WnXd.1026805$35.38...@news4.tin.it...
> Salve a tutti,
> ho questo problema che forse č semplice ma non riesco a rsiolverlo e
> pertanto mi rivolgo al NG.
> Ho una tabella del tipo:
>
> FIL | COD|
> ------------
> 10   | 130  |
> 15   | 130  |
> 15   | 150  |
>
> dove fil e cod sono contemporaneamente chiavi primarie.
> Io vorrei creare una tabella dove per COD duplicati in un nuovo campo
> (MUL)compaia  0 oppure 1 cioč:
>
> FIL | COD| MUL|
> -------------------
> 10   | 130  |   1     |
> 15   | 130  |   1     |
> 15   | 150  |   0     |
>
> Come posso fare?
> Grazie in anticipi
> Ciao
>
per la serie me la canto e me la suono:
ho avuto un lampo di genio ho risolto cosě:
MUL: IIf(DCount("[COD]";"Tabella1";"COD=" & [Tabella1].[COD])>1;1;0)
grazie comunque.


title: formato data di un controllo

author: Castore&Polluce

text:
In un report ho creato un controllo  associato ad un campo data di una
query. Vorrei trasformare il formato data del controllo ad esempio da
12/01/2000 in gennaio.
Con la formula =Month([nomecampo]) ottengo il numero corrispondente al
mese, cioé 1, come posso trasformarlo in gennaio? Ho già provato con
=Month(format([nomecampo],mmmm)) ma è sbagliato? E' possibile
trasformare il numero?
Grazie a tutti.


title: formato data di un controllo

author: RoDAgo

text:
Castore&Polluce scrisse

=Format([nomecampo];"mmmm")
Ciao da RoDAgo


title: formato data di un controllo

author: Santini

text:
> Con la formula =Month([nomecampo]) ottengo il numero corrispondente al
> mese, cioé 1, come posso trasformarlo in gennaio? Ho già provato con
> =Month(format([nomecampo],mmmm)) ma è sbagliato? E' possibile
> trasformare il numero?
> Grazie a tutti.
imposta la proprietà formato a:     mmmm
 e hai finito
--
Cordiali saluti
Nunzio Santini


title: formato data di un controllo

author: Gisco

text:
Santini ha scritto nel messaggio <871ddq$q3h$
1...@nslave1.tin.it
>...

Questa stesa domanda l'ho posta io qualche giorni fà, non esiste in accessa
la funzione che dato un numero da uno a dodici ti restituisce il mese in
lettere corrispondente se è questo quello che vuoi la devi creare.
Guardati i messaggi del 28 cm.
Saluti
Gisco


title: aiuto ...INSERT INTO

author: David

text:
...siamo gia' a due richieste per questa settimana, cmq mi trovo il seguente
problema e non capisco se sbaglio io (molto probabile) o se devo usare
qualche altra istruzione (e cmq e' sempre un mio sbaglio)
Mi trovo ad aggiornare dei record in diverse tabelle prendendo i dati da
tabelle (con stessa struttura) residenti su un disco esterno (zip).
Utilizzo il commando:
DoCmd.RunSQL "INSERT INTO " & Tabella(NumTab) & " IN " &
"'Z:\REMOVIBILE\archiviofiliale.mdb'" & " SELECT * FROM " & Tabella(NumTab)
dove tabella(NumTab) e' il nome delle tabelle da sincronizzare.
Tutto funziona bene se la tabella da sincronizzare e' vuota......ma se la
tabella da sincronizzare, al contrario,  contiene gia' dei record questi non
vengono aggiornati!!! :-(
So che insert into e' un commando di accodamento, ma speravo (e forse qui
sbaglio) che  i record "vecchi" con chiave primaria identica ai nuovi
venissero sovrascritti da quest'ultimi, ma cosě non e'!!!
Potrei anche cancellare la vecchia tabella e crearla ex novo con un comando
select......ma putroppo questo e' fattibile  solo per 2 dell 7 tabelle da
aggiornare!
Come posso provare??
Ciao e grazie
--
________________________________________
Davide Cielo
d.c...@tin.it


title: aiuto ...INSERT INTO

author: Mad® Milox

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:JvgN6.16028$iC1.5...@news6.giganews.com...
> ...siamo gia' a due richieste per questa settimana, cmq mi trovo il
seguente
> problema e non capisco se sbaglio io (molto probabile) o se devo usare
> qualche altra istruzione (e cmq e' sempre un mio sbaglio)
>
> Mi trovo ad aggiornare dei record in diverse tabelle prendendo i dati da
> tabelle (con stessa struttura) residenti su un disco esterno (zip).
>
>
> Utilizzo il commando:
>
> DoCmd.RunSQL "INSERT INTO " & Tabella(NumTab) & " IN " &
> "'Z:\REMOVIBILE\archiviofiliale.mdb'" & " SELECT * FROM " &
Tabella(NumTab)
>
> dove tabella(NumTab) e' il nome delle tabelle da sincronizzare.
>
> Tutto funziona bene se la tabella da sincronizzare e' vuota......ma se la
> tabella da sincronizzare, al contrario,  contiene gia' dei record questi
non
> vengono aggiornati!!! :-(
> So che insert into e' un commando di accodamento, ma speravo (e forse qui
> sbaglio) che  i record "vecchi" con chiave primaria identica ai nuovi
> venissero sovrascritti da quest'ultimi, ma cosě non e'!!!
Infatti e' impossibile , devi usare una UPDATE per aggiornare quelli con
stesso ID ed una insert per quelli con ID diverso :)
Ciao, Lorenzo



title: aiuto ...INSERT INTO

text:
MadŽ Milox <
madm...@tin.it
> wrote in message
9e460v$q4v$1...@lacerta.tiscalinet.it...

ok adesso provo e poi ti dico.
Grazie ancora
Ciao


title: aiuto ...INSERT INTO

text:
MadŽ Milox <
madm...@tin.it
> wrote in message
9e460v$q4v$1...@lacerta.tiscalinet.it...
>

sono in panico....non so  come impostare la stringa sql  per far riferimento
ad un mdb esterno e sua relativa tabella??? e non ho nemmeno idea su come
modificare la stringa di cui sopra per inserire la clausola where ID.. non
presente su tabella origine???
ciao
Grazie


title: aiuto ...INSERT INTO

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:F0iN6.16141$iC1.5...@news6.giganews.com...
> Mad® Milox <
madm...@tin.it
> wrote in message
> 9e460v$q4v$1...@lacerta.tiscalinet.it...
> >
> > "David" <
davi...@yahoo.it
> ha scritto nel messaggio
> > news:JvgN6.16028$iC1.5...@news6.giganews.com...
> > > ...siamo gia' a due richieste per questa settimana, cmq mi trovo il
> > seguente
> > > problema e non capisco se sbaglio io (molto probabile) o se devo usare
> > > qualche altra istruzione (e cmq e' sempre un mio sbaglio)
> > >
> > > Mi trovo ad aggiornare dei record in diverse tabelle prendendo i dati
da
> > > tabelle (con stessa struttura) residenti su un disco esterno (zip).
> > >
> > >
> > > Utilizzo il commando:
> > >
> > > DoCmd.RunSQL "INSERT INTO " & Tabella(NumTab) & " IN " &
> > > "'Z:\REMOVIBILE\archiviofiliale.mdb'" & " SELECT * FROM " &
> > Tabella(NumTab)
> > >
> > > dove tabella(NumTab) e' il nome delle tabelle da sincronizzare.
> > >
> > > Tutto funziona bene se la tabella da sincronizzare e' vuota......ma se
> la
> > > tabella da sincronizzare, al contrario,  contiene gia' dei record
questi
> > non
> > > vengono aggiornati!!! :-(
> > > So che insert into e' un commando di accodamento, ma speravo (e forse
> qui
> > > sbaglio) che  i record "vecchi" con chiave primaria identica ai nuovi
> > > venissero sovrascritti da quest'ultimi, ma così non e'!!!
> >
> > Infatti e' impossibile , devi usare una UPDATE per aggiornare quelli con
> > stesso ID ed una insert per quelli con ID diverso :)
> >
> > Ciao, Lorenzo
> >
> > > Potrei anche cancellare la vecchia tabella e crearla ex novo con un
> > comando
> > > select......ma putroppo questo e' fattibile  solo per 2 dell 7 tabelle
> da
> > > aggiornare!
> > >
> > > Come posso provare??
> > >
> > > Ciao e grazie
> > >
>
> sono in panico....non so  come impostare la stringa sql  per far
riferimento
> ad un mdb esterno e sua relativa tabella??? e non ho nemmeno idea su come
> modificare la stringa di cui sopra per inserire la clausola where ID.. non
> presente su tabella origine???
>
> ciao
> Grazie
Cosi' apri un db esterno a quello su cio stai lavorando
    Dim db As Database
    Dim rst As Recordset
    Dim tdf As TableDef
    Dim strsql As String
    Dim wsp As Workspace
    Set wsp = DBEngine.Workspaces(0)
    Set db = wsp.OpenDatabase(NomeDatabase)
    Set rst = db.OpenRecordset(strsql)
e poi lavori sui recordset , mi sa' che si fa' prima che usare sql :))
Ciao Lorenzo


title: aiuto ...INSERT INTO

author: Roberto dal portatile

text:
"David" <
davi...@yahoo.it
> ha scritto nel messaggio
news:JvgN6.16028$iC1.5...@news6.giganews.com...
> ...siamo gia' a due richieste per questa settimana, cmq mi trovo il
seguente
> problema e non capisco se sbaglio io (molto probabile) o se devo usare
> qualche altra istruzione (e cmq e' sempre un mio sbaglio)
>
> Mi trovo ad aggiornare dei record in diverse tabelle prendendo i dati da
> tabelle (con stessa struttura) residenti su un disco esterno (zip).
>
>
> Utilizzo il commando:
>
> DoCmd.RunSQL "INSERT INTO " & Tabella(NumTab) & " IN " &
> "'Z:\REMOVIBILE\archiviofiliale.mdb'" & " SELECT * FROM " &
Tabella(NumTab)
>
> dove tabella(NumTab) e' il nome delle tabelle da sincronizzare.
>
> Tutto funziona bene se la tabella da sincronizzare e' vuota......ma se la
> tabella da sincronizzare, al contrario,  contiene gia' dei record questi
non
> vengono aggiornati!!! :-(
> So che insert into e' un commando di accodamento, ma speravo (e forse qui
> sbaglio) che  i record "vecchi" con chiave primaria identica ai nuovi
> venissero sovrascritti da quest'ultimi, ma così non e'!!!
>
> Potrei anche cancellare la vecchia tabella e crearla ex novo con un
comando
> select......ma putroppo questo e' fattibile  solo per 2 dell 7 tabelle da
> aggiornare!
>
> Come posso provare??
>
> Ciao e grazie
>
> --
>
> ________________________________________
> Davide Cielo
d.c...@tin.it
Una delle possibilità potrebbe essere quella di scaricare su una tabella di
appoggio il contenuto proveniente da zip.
Quindi creare una query di cancellazione basata sulla vecchia tabella e che
cancella tutti i record che hanno corrispondenza nella tabella di appoggio
(puoi farlo usando la funzione DLookup nei criteri della query di
cancellazione).
A questo punto, con una query di accodamento, puoi accodare i record della
tabella di appoggio alla vecchia tabella dalla quale hai già fatto le
cancellazioni.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aiuto ...INSERT INTO

author: David Ntb

text:
Roberto dal portatile <
r.ma...@repubblica.it
> wrote in message
9e5gpj$4fi$1...@stargate1.inet.it...

Grazie 1000, mi posso permettere di chiedere anche un suggerimento su come
impostare delle righe di commando???
Ciao
Grazie
Davide


title: aiuto ...INSERT INTO

text:
Roberto dal portatile <
r.ma...@repubblica.it
> wrote in message
9e5gpj$4fi$1...@stargate1.inet.it...
>

..ho trovato nella sezione ricerca del sito comune una serie di post tra VT
e superpippo su una situazione analoga alla mia, ma non ho visto il
finale....dove si ipotizzava il sincronismo della tabella anche quando si
incontrvano dei record modificati o cancellati, sapete per caso dove posso
trovare qualche indicazione a riguardo??
Ciao
Grazie


title: aiuto ...INSERT INTO

text:
"David Ntb" <
d.c...@galactica.it
> ha scritto nel messaggio
news:mUsN6.5581$Ql3.2...@news.infostrada.it...
>
[CUT]>
> Grazie 1000, mi posso permettere di chiedere anche un suggerimento su come
> impostare delle righe di commando???
>
> Ciao
> Grazie
> Davide
>
Creati le query e dal loro codice SQL ricavati le stringhe SQL che ti
servano.



title: ERRORE STRINGA QUERY SQL

author: Le Roi

text:
ciao a tutti..mi da un errore di sintassi..ma dove?
strSQL3 = "INSERT INTO Utente (username,password) VALUES ('" & user & "','"
& psw & "')"
Bye
--------------------------------
Inviato via
http://usenet.libero.it


title: ERRORE STRINGA QUERY SQL

author: Potone

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio news:151Z38Z214Z67Y1...@usenet.libero.it...

prova con:
strsql3="INSERT INTO Utente (username,password) SELECT '" & user & "' AS Espr1, '" & psw & "' AS Espr2;"
ciao,
Matteo


title: ERRORE STRINGA QUERY SQL

text:

così?
SQL = "INSERT INTO Utente (username,password) SELECT '" & user & "' AS
me.user, '" & psw & "' AS me.password;"
mi da ancora lo stesso errore



title: ERRORE STRINGA QUERY SQL

text:
"Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio news:151Z38Z214Z67Y1...@usenet.libero.it...
> Il 31 Lug 2002, 13:55, "Potone" <
NOSPAMm...@inwind.it
> ha scritto:
> > "Le Roi" <
luk_...@libero.it
> ha scritto nel messaggio
> news:151Z38Z214Z67Y1...@usenet.libero.it...
> > > ciao a tutti..mi da un errore di sintassi..ma dove?
> > >
> > > strSQL3 = "INSERT INTO Utente (username,password) VALUES ('" & user &
> "','"
> > > & psw & "')"
> > >
> > > Bye
> > >
> > > --------------------------------
> > > Inviato via
http://usenet.libero.it
> >
> > prova con:
> >
> > strsql3="INSERT INTO Utente (username,password) SELECT '" & user & "' AS
> Espr1, '" & psw & "' AS Espr2;"
> >
> > ciao,
> > Matteo
>
>
> così?
> SQL = "INSERT INTO Utente (username,password) SELECT '" & user & "' AS
> me.user, '" & psw & "' AS me.password;"
cosa sono me.user e me.password? se sono controlli su una maschera e il codice è all'interno del modulo della maschera allora:
SQL = "INSERT INTO Utente (username,password) SELECT '" & me![user] & "' AS Espr1 , '" & me![password] & "' AS Espr2;"
>
> mi da ancora lo stesso errore
> >
>
> --------------------------------
> Inviato via
http://usenet.libero.it
se non funziona ancora prova a postare una porzione maggiore di codice e spiega dove lo usi.
Matteo


title: Listbox cancellare selezionato

author: Francesco

text:
Qualcuno conosce il codice per poter eliminare da una listbox e dalla
tabella collegata il record selezionato nella list box? Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Listbox cancellare selezionato

author: moskolowosky

text:
On Wed, 23 Apr 2003 09:55:38 +0200,
fpera...@libero.it
 (Francesco)
wrote:
>Qualcuno conosce il codice per poter eliminare da una listbox e dalla
>tabella collegata il record selezionato nella list box? Grazie
Prova questo:
Sub Bottone_Click
	docmd.runsql "delete * from nomeoriginelistbox where
idnomeoriginelistbox=" & forms!nomeoriginelistbox
forms!nomeoriginelistbox.requery
endsub
Dovrebbe funzionare sull'evento Click di un bottone.
Ciao


title: input mask - caratteri validi

author: clic

text:
Aiuto aiuto!! Non riesco ad utilizzare i caratteri validi per la creazione
di maschere di input personalizzate. In particolare vorrei utilizzare, in
modo misto, l'& (qualsiasi carattere o spazio, immissione obbligatoria) ma
Access me lo vede come un carattere non valido (gli mette lo slash davanti
se č una & sola, e lo interpreta come stringa di testo se le & sono piů di
una). Mi era venuta l'idea che fosse un baco risolvibile impostando la
tastiera americana: niente. Ho incollato il carattere dalla Mappa dei
caratteri: niente. Ho provato sia su una versione di Access 2000 che 2002:
niente! Qual'č il trucco?
Grazie
clic
--------------------------------
Inviato via
http://usenet.libero.it


title: input mask - caratteri validi

author: Carlo Costarella

text:
"clic" <
clic....@libero.it
> ha scritto nel messaggio
news:213Z156Z35Z135Y...@usenet.libero.it...

Se usi Access97 la cosa funziona. Se usi Access 2000/Xp nň.
Devi usare per esempio CCCC;_  indicando 4 caratteri tra qualsiasi numero o
lettera.
Ovviamente potrebbe essere: CCCCCCCCCCCC;_
Ciao, Carlo


title: input mask - caratteri validi

text:
Ma allora come si può fare?
Se metto CCCC... in visualizzazione maschera in realtà non me lo vede come
facoltativo (metto meno caratteri del previsto ma mi blocca con messaggio di
errore come se avessi impostato &&&....
Diavolo!
GRazie per la consulenza!
clic
> Se usi Access97 la cosa funziona. Se usi Access 2000/Xp nò.
> Devi usare per esempio CCCC;_ indicando 4 caratteri tra qualsiasi numero o
> lettera.
> Ovviamente potrebbe essere: CCCCCCCCCCCC;_
>
> Ciao, Carlo
>
--------------------------------
Inviato via
http://usenet.libero.it


title: Server

author: Internicserver

text:
Windows 2000 Advanced Server, Redhat Linux, Debian, FreeBSD
http://www.comserver.net
Agents wanted now inm Italy
http://www.comserver.net/jobs.php


title: [OT] La birra e le donne

author: Michele Amato

text:
Inviatami da qualcuno, divertente...
  Lo scorso week-end si discuteva con un amico di birre.
  E' saltato fuori che la birra contiene una grossa
  quantita di ormoni femminili!
  Dopo averlo preso un po' per il culo, per la cazzata
  sparata, ci ha comunque convinto a verificare il fatto.
  Cosi ci siamo ciucciati una ventina di birre a testa,
  questo esclusivamente per scopi scientifici eh e di ricerca.
  Il risultato di questa verifica e stato stupefacente!
  Infatti al termine dei 20 giri e successo che:
  - eravamo ingrassati.
  - si parlava tantissimo per non dire nulla.
  - avevamo difficolta nella guida.
  - ci era impossibile effettuare il benche minimo e semplice
    ragionamento.
  - ci si rifiutava di ammettere di avere torto anche se l'evidenza lo
    dimostrava ampiamente.
  - e per coronare il tutto si pisciava ogni 5 minuti e per di piu tutti
    assieme.
  Crediamo che sia inutile spingere oltre quest'esperienza.
  Confermiamo che la birra contiene inconfutabilmente ormoni femminili


title: Creare codice con piu' record di testa e di coda (tracciato lemco)

author: Dino

text:
Ciao a tutti;ho un problema da porvi:
mi e' stato chiesto da un cliente il trasferimento delle proprie
fatture al commercialista,il quale come programma ha
"Zucchetti".Questo "FAVOLOSO" applicativo vuole il tracciato file
LEMCO per l'importazione dei dati da altri software.
In realta' bisogna creare un tracciato che presenti prima l'elenco di
tutti i clienti ai quali e' stata emessa fattura e poi in sequenza
tutte le fatture.Io (come vedrete dal codice che vi posto) ho risolto
l' 80 % della richiesta.Cioe elenco prima tutti i clienti con il tot.
record clienti finale e poi elenco le fatture con il tot record
fatture finale.
Ho inizialmente due problemi:

1) Nel tracciato viene chiesto il totale record (clienti + fatture )
nel record di testa.L'ho impostato ma non mi svolge il calcolo.
2) Abbiamo anche un totale alla fine dei due elenchi:Elenco clienti e
elenco fatture.Facendo un esempio: ho tre clienti e tre fatture,il tot
clienti alla fine del mio elenco e' 3 mentre il totale fatture invece
di essere 3 e' 6 cioe' mi fa un totale complessivo come fosse un
record di coda.

Bisogna in pratica a mio parere inserire piu' record di testa e di
coda per suddividere i due flussi.Ma qui' io mi fermo.
Di seguito vi posto il codice da implementare:
Dim NomeFile As String  'Nome del file in scrittura
    Dim risp As String      'Risposta da msgbox
    Dim Riga As String      'Stringa da scrivere di volta in volta
    Dim i    As Integer   'Contatore Cicli
    Dim Tempo1 As Date      'Cronometro di Inizio
    Dim Tempo2 As Date      'Cronometro di Fine
    Dim Tempo  As Date      'Tempo impiegato
    Dim CodDit As String    'Codice CC
    Dim NumFile As String    'indica il tipo di trasf
    Dim Numfatt     As Integer   'numero fatture
    Dim MioDB  As Database
    Dim MioRS  As DAO.Recordset

    CodDit = "ORTODO"   'Codice CC azienda
    NumFile = "003"     'Codice div trasf

    Set MioDB = CurrentDb
    Set MioRS = MioDB.OpenRecordset("Trasmfattragg", dbOpenDynaset,
dbReadOnly)

    If MioRS.RecordCount = 0 Then
        MsgBox "Non ci sono fatture", vbOKOnly, "ATTENZIONE!"
        MioRS.Close
        DoCmd.Close
        Exit Sub
    End If

    Tempo1 = Now()
    MioRS.MoveFirst
    Numfatt = MioRS.RecordCount
    'TOTRIB = 0
    'Divisa = "E"

    NomeFile = "C:\IMORTODO.D"
    'Trasmissione dati
    risp = MsgBox("Procedura di trasmissione fatture di vendita",
vbOKCancel)

    'crea file => cancellazione, per partire da zero
    Open NomeFile For Output As #1
        Print #1, " "
    Close #1
    Kill NomeFile
    'RECORD DI TESTA
    Riga = " "                             '  1-  1 Filler blank
    Riga = Riga + "I"                      '  1-  1 "I"
    Riga = Riga + NumFile                  '  2-  4 CODICE trasf
    Riga = Riga + Format(i, "0000000000000") '  5- 17 Progressivo tot
record
    Riga = Riga + Format(CodDit, "000000")   '  19- 24 codice azienda
    Riga = Riga + "27"                  ' 25- 26
    Riga = Riga + Format(Now(), "yyyymmdd")   ' 27- 34 data spedizione
file
    Riga = Riga + "V"                  ' 35-35 Tipo sped.
    Riga = Riga + "1"                  ' 36-36 Tipo sped.
    Riga = Riga + "2"                  ' 36-36 Tipo sped.
    Riga = Riga + String$(164, " ")          ' 37-200 Filler blank

    Open NomeFile For Output As #1
         Print #1, Riga
    Close #1

    'CICLO DI SCRITTURA PER OGNI UTENTE

        '--------------------
        ' SCRIVE IL RECORD F
        '--------------------
        Riga = " "                              '  1-  1 BLANK
        Riga = Riga + "F"                      '  2-  2 CODICE FISSO
        Riga = Riga + "CLIEFORN"      '  3- 10 Progressivo
        Riga = Riga + String$(191, " ")          ' 11-200 Filler blank
        Open NomeFile For Append As #1
             Print #1, Riga
        Close #1

        Do
        If Nz(MioRS![ID Num  Fattura]) > 0 Then
        i = i + 1

        '--------------------
        ' SCRIVE IL RECORD D10
        '--------------------

        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "10"                                '3-4 fisso
        Riga = Riga + "C"                                '5-5 fisso
        Riga = Riga + "000000"                           '6-11 fisso
        Riga = Riga + String$(8, " ")                    ' 12- 19 f
        Riga = Riga + Format(MioRS![Cliente], "!" & String$(50, "@"))
' 20- 67 o Rag.Sociale Utente
        Riga = Riga + String$(25, " ")                 ' 68-92 Cognome
        Riga = Riga + String$(25, " ")                 ' 93-117 nome
        Riga = Riga + Left$(Format(MioRS![PartitaIVA], "@@@@@@@@@@@")
& String$(11, " "), 11) ' 118-129 P.IVA cliente
        Riga = Riga + String$(5, " ")                  '130-134 spazi
per codice fisc
        Riga = Riga + String$(1, " ")                  '134-134 codice
fisc errato
        Riga = Riga + String$(1, " ")                  '135-135 Sog.
intracom
        Riga = Riga + "S"                              '136 - 136
fisso
        Riga = Riga + String$(63, " ")                  '137-249
filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

        '--------------------
        ' SCRIVE IL RECORD D11
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "11"                                '3-4 fisso
        Riga = Riga + Format(MioRS![Indirizzo5], "!" & String$(32,
"@"))   ' 5- 36  Indirizzo e num civ.
        Riga = Riga + String$(5, " ")                  '37-41 spazi
per num civ
        Riga = Riga + String$(4, " ")                  '42-45 Codice
comune
        Riga = Riga + Format(MioRS![CAP5], "00000")    ' 46- 50 CAP
        Riga = Riga + Format(MioRS![Città5], "!" & String$(21, "@"))
' 51- 73 Città
        Riga = Riga + Format(MioRS![Provincia5], "00")    ' 74- 75
Prov
        Riga = Riga + "S"                               '87-87 fisso
        Riga = Riga + "N"
        Riga = Riga + "N"                               'Bolla dog.
89-89 errata
        Riga = Riga + "1"                               '90-90 fisso
codice 1 = lav.autonomo
        Riga = Riga + "N"
        Riga = Riga + "N"                 'Clente fittizio. 92-92
errata
        Riga = Riga + String$(122, " ")                   'Blank.
92-200

        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

    End If
        MioRS.MoveNext
    Loop Until MioRS.EOF
    MioRS.MoveFirst

        '--------------------
        ' SCRIVE IL RECORD E
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "E"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "CLIEFORN"                     '  3-  10 CODICE
FISSO
        Riga = Riga + Format(i, "00000000")          '  11- 18
Progressivo tot record
        Riga = Riga + String$(183, " ")                  '19-201
filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

        '--------------------
        ' SCRIVE IL RECORD F
        '--------------------
        Riga = " "                              '  1-  1 BLANK
        Riga = Riga + "F"                      '  2-  2 CODICE FISSO
        Riga = Riga + "FATTVEND"      '  3- 10 Progressivo
        Riga = Riga + String$(191, " ")                  ' Filler

        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

         Do
        If Nz(MioRS![ID Num  Fattura]) > 0 Then
        i = i + 1

        '--------------------
        'SCRIVE IL RECORD D30
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"
        Riga = Riga + "30"                              '  2-  3
CODICE FISSO 70
        Riga = Riga + "00"                              '  3-  4
CODICE FISSO ATTIVITà IVA
        Riga = Riga + Format([Datadoc], "yyyy")         ' 5- 8 Anno
competenza
        Riga = Riga + Format(Now(), "mm")             ' 6- 7 Mese
competenza
        Riga = Riga + Format([Datadoc], "yyyy")         ' 5- 8 Anno
competenza
        Riga = Riga + Format(Now(), "mm")           ' 6- 7 Mese
competenza
        Riga = Riga + "00"                              ' 3-  4 CODICE
Sezione reg.IVA
        Riga = Riga + "1"                              ' 3-  4 Tipo
doc:Fattura
        Riga = Riga + String$(2, " ")                  ' Cod. tipo
fatt "" fattura di vendita
        Riga = Riga + Format(MioRS![Num doc], "!" & String$(10, "@"))
' Num fatt
        Riga = Riga + String$(1, " ")                       ' Num bis
        Riga = Riga + Format(MioRS![Num doc], "!" & String$(10, "@"))
' Num fatt
        Riga = Riga + Format(Now(), "yyyymmdd")         ' 5- 8 Data
registr. fatt
        Riga = Riga + Format([Datadoc], "yyyymmdd")         ' Data
emissione fatt
        Riga = Riga + "000000000000000000000000000"     ' Campi
facoltativi: da Data scad.  COD. PAG
        Riga = Riga + String$(1, " ")                  ' Tipo
pag:facoltativo
        Riga = Riga + "0000000000"     ' Campi facoltativi: da Centro
di costo a  Cod. cli
        Riga = Riga + "P"                              'indica il
codice usato:Partita IVA
        Riga = Riga + Left$(Format(MioRS![PartitaIVA], "@@@@@@@@@@@")
& String$(11, " "), 11) '  P.IVA cliente
        Riga = Riga + String$(5, " ")                  ' spazi per
codice fisc
        Riga = Riga + "0000000000000"     ' Campi facoltativi
        Riga = Riga + String$(1, " ")                  ' Filler
        Riga = Riga + "00000000000"     ' Campi facoltativi
        Riga = Riga + String$(61, " ")                  ' Filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

         '--------------------
        'SCRIVE IL RECORD D31
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "D"
        Riga = Riga + "31"                              '  2-  3
CODICE FISSO 70
        Riga = Riga + "81"                              '  3-  4
CODICE FISSO ATTIVITà IVA
        Riga = Riga + Format(MioRS![Totale di Totale],
"00000000000")    ' Imponibile
        Riga = Riga + "+"                              '   CODICE
FISSO
        Riga = Riga + "00000000000"                    '   Valore
FISSO: Importo imposta
        Riga = Riga + "+"                              '   CODICE
FISSO
        Riga = Riga + "52"                              '   CODICE
FISSO:Codice norma esente IVA
        Riga = Riga + "0000"                            '   Valore
FISSO: Centro di costo
        Riga = Riga + "051922"                           '   Valore
FISSO: Codice contropartita
        Riga = Riga + Format(MioRS![Totale di Totale],
"00000000000")    ' Imponibile
        Riga = Riga + "+"
        Riga = Riga + "00000000000"                    '   Valore
FISSO: Importo in valuta
        Riga = Riga + String$(136, " ")                  ' Filler
       Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

    End If
    MioRS.MoveNext
    Loop Until MioRS.EOF
    MioRS.MoveFirst

        '--------------------
        ' SCRIVE IL RECORD E
        '--------------------
        Riga = " "                                      '  1-  1 BLANK
        Riga = Riga + "E"                              '  2-  2 CODICE
FISSO
        Riga = Riga + "FATTVEND"                     '  3-  10 CODICE
FISSO
        Riga = Riga + Format(i, "00000000") '  11- 18 Progressivo tot
record
        Riga = Riga + String$(183, " ")                  '19-201
filler
        Open NomeFile For Append As #1
            Print #1, Riga
        Close #1

'RECORD DI CODA
    Riga = " "                             '  1-  1 Filler blank
    Riga = Riga + "C"                      '  2-  3 "I"
    Riga = Riga + NumFile                  '  3-  5 CODICE trasf
    Riga = Riga + Format(i, "0000000000000")  '  6- 18 Progressivo tot
record
    Riga = Riga + Format(CodDit, "000000")   '  19- 24 codice azienda
    Riga = Riga + "27"                  ' 25- 26
    Riga = Riga + Format(Now(), "yyyymmdd")   ' 27- 34 data spedizione
file
    Riga = Riga + "V"                  ' 35-35 Tipo sped.
    Riga = Riga + "1"                  ' 36-36 Tipo sped.
    Riga = Riga + String$(164, " ")          ' 37-200 Filler blank
    Open NomeFile For Append As #1
            Print #1, Riga
    Close #1
    Tempo2 = Now()
    MioRS.Close
    Tempo = Tempo2 - Tempo1
    MsgBox "Terminato, " & Tempo & "s"

Grazie in anticipo
Dino


text:
Ciao Dino,
ho una curiosità rispetto a questa tua segnalazione: hai risolto ?
Credo di avere lo stesso problema: abbiamo Confagricoltura che ci tiene la contabilità e usa Zucchetti : noi abbiamo il gestinale EASY FATT della Danea SOFT. In DANEA mi hanno detto che non sono compatibili con Zucchetti.. ci saranno migliaia di clienti Zucchetti e altrettanti Danea nelle stessa situazione.. possibile ?
Grazie per qualsiasi info tu abbia, ciao , Claudia


author: Fabio DV

text:

Non trovo più il suo msg originale, ma nel record di testa andava a
scrivere il valore della variabile (uguale al numero di record del
tracciato, che doveva incrementarsi all'interno del ciclo), mentre
ancora il codice non era entrato nel do...loop.
Anzi, la sua "i" non era nemmeno stata azzerata.
Dovrebbe prima contare i record con qualcosa come listcount, azzerare
(i=0). Non ho provato ma nel record di coda, dopo n incrementi, dopo il
ciclo, la sua "i" dovrebbe valere qualcosa di più.
Fabio DV

---
Questa e-mail è priva di virus e malware perché è attiva la protezione avast! Antivirus.
http://www.avast.com


text:
Qualche anni dopo ed ecco che anche io sono alle prese con questo lavoraccio. Mi chiedevo se a scopo del tutto esemplificativo qualcuno mi possa finire un csv / txt di esempio
Ringrazio anticipatamente


author: BFS

text:

se la mail è valida ti posso madare dei txt di esempio e le specifiche.
txt con dati reali no perchè si tratta di dati di fatture di clienti

ciao
BFS


text:

Grazie infinite per il riscontro, la mia mail è valida ed il problema ancora in corso...il tuo file mi sarebbe provvidenziale.
Attendo fiduciosa, grazie!!!


author: DonaC

text:
Il giorno martedì 2 maggio 2017 16:41:29 UTC+2, BFS ha scritto:

Mi sono sufficienti i txt di esempio, in particolar modo mi interessa che figurino un paio di clienti nel tipo record 10, e  2 o tre fatture attive per vedere come sono combinati i tipi record 30 e 31, non riesco a capire come devono alternarsi. Grazie ancora


text:
Qualcuno puo' testare il mio lavoro di esportazione verso Zucchetti?  Sto aspettando che il distributore me lo provi...ma aspetta e spera....
Mi invento 3 fatture, faccio il file di esportazione e...forza!!!.... qualcuno che me lo testi!!!!
svegliapc(gmail)


text:
Buonasera a tutti...
Mi sono imbattuto in questa discussione perché ho lo stesso problema che riscontravate voi e mi chiedevo se avete risolto e se si come...
Grazie mille

Simone


author: RobertoA

text:

Forse se scrivi sul ng dei commercialisti c'e' sicuramente un numero
maggiore di utilizzatori sistemi Zucchetti che, potrebbe, darti una mano


text:
Il giorno martedì 2 maggio 2017 16:41:29 UTC+2, BFS ha scritto:

Buonasera

Sarebbe possibile avere una copia di questi file file? In azienda ci stiamo imbattendo negli stessi problemi.
Grazie infinite


text:
Userei un approccio "raw"... visto che parti da access, fatti una per una tutte le query che calcolano ciascuna 1 tipologia di record.
Query di creazione tabelle e poste in cascata, quindi che contano cio che produci al passo precedente.
E i cui valori abbiano gia il formato lunghezza campo corretto (con tipo sempre testo e conversioni cast CStr),
Alla fine una banale routine di scrittura da tabelle su/i file di testo risolve ol problema definitivamente.
Effort? 1 ora risolto x sempre con facile manutenibilita futura in caso di espansione tracciato.
Ho fatto programma sia in access che excel


title: come fare andare un programma in access senza access

author: francesco

text:
ciao a tutti, esiste un programma gratuito che possa fare andare i programmi
in access senza che uno abbia installato access? sono andato in una ditta,
mi hanno fatto costruire un programma e alla fine ho scoperto che hanno
office small business edition e quindi access non c'è, come posso fare?
grazie ciao a tutti..


text:
"francesco" <
francesc...@libero.it
> ha scritto nel messaggio
news:W5E_8.13179$s74.3...@twister1.libero.it...

acquista la versione developer di office che contiene un particolare
programma di nome
creazione guidata pacchetti che ti crea un pacchetto di setup contenente
tutti i file necessari
proprio per far girare database senza access installato.
ciao.


author: Emyr

text:


leggi il faqqone si
sitocomune.com
Saluti.
Emanuele.


author: Mike Pritt

text:
"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
messaggio news:cZF_8.13793$GV2.3...@twister2.libero.it...
>
> "francesco" <
francesc...@libero.it
> ha scritto nel messaggio
> news:W5E_8.13179$s74.3...@twister1.libero.it...
> > ciao a tutti, esiste un programma gratuito che possa fare andare i
> programmi
> > in access senza che uno abbia installato access? sono andato in una
ditta,
> > mi hanno fatto costruire un programma e alla fine ho scoperto che hanno
> > office small business edition e quindi access non c'č, come posso fare?
> > grazie ciao a tutti..
> >
>
> acquista la versione developer di office che contiene un particolare
> programma di nome
> creazione guidata pacchetti che ti crea un pacchetto di setup contenente
> tutti i file necessari
> proprio per far girare database senza access installato.
> ciao.
>
>
Perdonate la ingenua domanda, ma se utilizzo il developer per creare questo
particolare pacchetto di access, il cliente non č tenuto ad acquistare
nessun tipo di licenza?
Ciao a tutti, Mike


text:
On Tue, 23 Jul 2002 08:17:04 GMT, "Mike Pritt" <
mike_...@pisem.net
>
wrote:
>
>"@----- Pinco --@-- Pallino -----@" <
tos...@libero.it
> ha scritto nel
>messaggio news:cZF_8.13793$GV2.3...@twister2.libero.it...
>>
>> "francesco" <
francesc...@libero.it
> ha scritto nel messaggio
>> news:W5E_8.13179$s74.3...@twister1.libero.it...
>> > ciao a tutti, esiste un programma gratuito che possa fare andare i
>> programmi
>> > in access senza che uno abbia installato access? sono andato in una
>ditta,
>> > mi hanno fatto costruire un programma e alla fine ho scoperto che hanno
>> > office small business edition e quindi access non c'è, come posso fare?
>> > grazie ciao a tutti..
>> >
>>
>> acquista la versione developer di office che contiene un particolare
>> programma di nome
>> creazione guidata pacchetti che ti crea un pacchetto di setup contenente
>> tutti i file necessari
>> proprio per far girare database senza access installato.
>> ciao.
>>
>>
>
>Perdonate la ingenua domanda, ma se utilizzo il developer per creare questo
>particolare pacchetto di access, il cliente non è tenuto ad acquistare
>nessun tipo di licenza?
>
>Ciao a tutti, Mike
>
>
>
no, gli fornisci tu il runtime che giustifichi tramite fattura od
altro....
leggi il faqqone su
sitocomune.com
Saluti.
Emanuele.


title: ADOX.Column e propietà richesto

author: omnitow

text:
Sto cercano di aggiungere campi ad una tabella da codice, impostatndo le
varie propietà che mi interessano, il problema sorge quando tento di
impostare la propietà richiesto su False, riporto parte del codice e la
descrizione dell'errore
    Dim catDB As ADOX.Catalog
    Dim tbl As ADOX.Table
    Set catDB = New ADOX.Catalog
    catDB.ActiveConnection = CurrentProject.Connection
    Set tbl = catDB.Tables(TabPunti)
        With tbl
            .Columns.Append Nome, 202, 255
            .Columns(Nome).Properties("Jet OLEDB:Allow Zero Length") = True
            .Columns(Nome).Properties("Nullable") = True
'se è Nullable la propietà per impostare la propietà richiesto, in ogni modo
oltre le due righe precedenti, qualunque propietà tenti di impostare access
genera sempre l'errore di seguito
        End With
Si sono verificati errori in un'operazione OLE DB composta da più passaggi.
Controllare i singoli valori di stato OLE DB, se disponibili. Nessuna
operazione eseguita.
(-2147217887
)
Ciao a tutti, omnitow


title: ADOX.Column e propietà richesto

author: Mark

text:
"omnitow" <
omn...@libero.net
> ha scritto nel messaggio
news:ahpi4h$3vj$1...@fe1.cs.interbusiness.it...

Mi sembra che
Set tbl = catDB.Tables(TabPunti)
non sia l'esatto modo di aprire la tabella punti.
penserei piuttosto a
tbl.open ..... ecc ecc non sono sicuro però
Che tipo di tabella è TabPunti ???
Saluti
Marco Dell'Oca
D.M.Software


title: ADOX.Column e propietà richesto

text:
"omnitow" <
omn...@libero.net
> ha scritto nel messaggio
news:ahpi4h$3vj$1...@fe1.cs.interbusiness.it...

Ciao Marco, premetto che non sono propio un'esperto di programmazione VBA
cmq, ho provato con Tbl.Open ma in ADOX non esiste questo metodo, la tabella
TabPunti è una semplicissima tabella con una chiave primaria, 2/3 indici e,
almeno per ora (sto' ancora strutturando il db), nessuna chiave secondaria
di relazione ad altre tabelle, il recordset che ne deriva dovrebbe essere un
Dynaset (se non erro). I campi che la compongono sono per la maggior parte
testo, un paio Si/No ed un contatore
omnitow


title: ADOX.Column e propietà richesto

text:
Scusate riposto il messaggio dato che ormai è sommerso dagli altri messaggi



title: ADOX.Column e propietà richesto

text:
> Ciao Marco, premetto che non sono propio un'esperto di programmazione VBA
> cmq, ho provato con Tbl.Open ma in ADOX non esiste questo metodo, la
tabella
> TabPunti è una semplicissima tabella con una chiave primaria, 2/3 indici
e,
> almeno per ora (sto' ancora strutturando il db), nessuna chiave secondaria
> di relazione ad altre tabelle, il recordset che ne deriva dovrebbe essere
un
> Dynaset (se non erro). I campi che la compongono sono per la maggior parte
> testo, un paio Si/No ed un contatore
>
> omnitow
>
Prova a vedere se questo esempio trovato su MSDN microsoft ti può aiutare?
Saluti
Marco Dell'Oca
D.M.Software
Attributes Property Example (VB)
This example demonstrates the Attributes property of a Column. Setting it to
adColNullable allows the user to set the value of a Recordset Field to an
empty string. In this situation, the user can distinguish between a record
where data is not known and a record where the data does not apply.
' BeginAttributesVB
Sub Main()
    On Error GoTo AttributesXError
    Dim cnn As New ADODB.Connection
    Dim cat As New ADOX.Catalog
    Dim colTemp As New ADOX.Column
    Dim rstEmployees As New Recordset
    Dim strMessage As String
    Dim strInput As String
    Dim tblEmp As ADOX.Table
    ' Connect the catalog.
    cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';data source=" & _
        "'c:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb';"
    Set cat.ActiveConnection = cnn
    Set tblEmp = cat.Tables("Employees")
    ' Create a new Field object and append it to the Fields
    ' collection of the Employees table.
    colTemp.Name = "FaxPhone"
    colTemp.Type = adVarWChar
    colTemp.DefinedSize = 24
    colTemp.Attributes = adColNullable
    cat.Tables("Employees").Columns.Append colTemp.Name, adWChar, 24
    ' Open the Employees table for updating as a Recordset
    rstEmployees.Open "Employees", cnn, adOpenKeyset, adLockOptimistic,
adCmdTable
    With rstEmployees
        ' Get user input.
        strMessage = "Enter fax number for " & _
            !FirstName & " " & !LastName & "." & vbCr & _
            "[? - unknown, X - has no fax]"
        strInput = UCase(InputBox(strMessage))
        If strInput <> "" Then
            Select Case strInput
                Case "?"
                    !FaxPhone = Null
                Case "X"
                    !FaxPhone = ""
                Case Else
                    !FaxPhone = strInput
            End Select
            .Update
            ' Print report.
            Debug.Print "Name - Fax number"
            Debug.Print !FirstName & " " & !LastName & " - ";
            If IsNull(!FaxPhone) Then
                Debug.Print "[Unknown]"
            Else
                If !FaxPhone = "" Then
                    Debug.Print "[Has no fax]"
                Else
                    Debug.Print !FaxPhone
                End If
            End If
        End If
        .Close
    End With
    'Clean up
    tblEmp.Columns.Delete colTemp.Name
    cnn.Close
    Set rstEmployees = Nothing
    Set cat = Nothing
    Set colTemp = Nothing
    Set cnn = Nothing
    Exit Sub
AttributesXError:
    If Not rstEmployees Is Nothing Then
        If rstEmployees.State = adStateOpen Then rstEmployees.Close
    End If
    Set rstEmployees = Nothing
    If Not tblEmp Is Nothing Then tblEmp.Columns.Delete colTemp.Name
    Set cat = Nothing
    Set colTemp = Nothing
    If Not cnn Is Nothing Then
        If cnn.State = adStateOpen Then cnn.Close
    End If
    Set cnn = Nothing
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub
' EndAttributesVB


title: filtro su listbox

author: Cholo

text:
vorrei applicare dei filtri ad una listbox da una form diversa da quella
della listbox stessa, senza perdere l'ordinamento della listbox (che viene
defito da dei pulsanti presenti nella form stessa).
tutti questi controlli li vorrei impostare con istruzioni SQL, applicate con
listbox.rowsource = [espressione]
- l'origine dei dati della listbox l'ho definita con una SELECT sulla
tabella origine (sintassi memorizzata in una variabile fissa)
- l'ordinamento funziona in questo modo: quando faccio clic sul pulsante di
ordinamento, aggiungo alla SELECT le istruzioni di ORDER BY necessarie e
rieseguo la listbox.rowsource = [espressione]
- per applicare i filtri vorrei memorizzare i parametri passati (da un'altra
form) in moda da accordarli all'istruzione SQL con l'opportuna istruzione
WHERE
sempre che sia sia capito tutto, la domanda č: posso memorizzare, dalla form
coi filtri, i parametri passati in una variabile contenuta nella form della
listbox, in modo che se dopo aver filtrato i record cambiando l'ordinamento
non perda i filtri???
se qualcuno ci capisce e vuole aiutarmi posso postare anche un po' del
codice fatto finora...
grazie!


title: filtro su listbox

author: Roberto da casa

text:
"Cholo" <m.mag...@NOSPAMlibero.it> ha scritto nel messaggio
news:H3hwd.29592$Zk.5...@twister2.libero.it...

Quando pigi i pulsanti di ordinamento costruisciti dinamicamente la stringa
SQL, che alla fine imposterai come origine riga della casella di riepilogo,
tenendo conto, oltre che dell' ORDER BY, anche dei criteri da impostare con
una WHERE; naturalmente do per scontato che anche l'altra maschera (quella
con i parametri di filtro) risulti aperta.
Insomma creati la stringa SQL pezzo a pezzo ed alla fine impostala come
origine riga della casella di riepilogo.
--
Roberto
------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
-----------------------------------------------


title: filtro su listbox

text:
> Quando pigi i pulsanti di ordinamento costruisciti dinamicamente la
stringa
> SQL, che alla fine imposterai come origine riga della casella di
riepilogo,
> tenendo conto, oltre che dell' ORDER BY, anche dei criteri da impostare
con
> una WHERE; naturalmente do per scontato che anche l'altra maschera (quella
> con i parametri di filtro) risulti aperta.
> Insomma creati la stringa SQL pezzo a pezzo ed alla fine impostala come
> origine riga della casella di riepilogo.
è quello che ho fatto... e in effetti funziona.
quello che vorrei sapere è se la stringa di impostazione dei filtri (where)
posso memorizzarla in una variabile globale (??) o appartenente alla
maschera dove c'è la listbox, in modo che quando cambio ordinamento (e
rieseguo la select) non perdo i filtri. per adesso lo ho memorizzato in un
campo di testo nascosto (Forms!Principale!Dati.Form!Filtri ), ma volevo
sapere se potevo usare una variabile di vb.
posto il codice di impostazione dei filtri per farmi capire:
Private Sub Ricerca_Click()
Dim Fil As String
Dim Primo As Boolean
Primo = True
Sel = "SELECT Cod, Via, Localita, Tipo, Categoria, Anno FROM Anagrafica"
Fil = ""
If via <> "" Then
    If Primo Then
        Fil = Fil & " WHERE"
        Primo = False
        Else
        Fil = Fil & " AND"
    End If
    Fil = Fil & " Via LIKE '" & via & "'"
End If
If localita <> "" Then
    If Primo Then
        Fil = Fil & " WHERE"
        Primo = False
        Else
        Fil = Fil & " AND"
    End If
    Fil = Fil & " Localita LIKE '" & localita & "'"
End If
If Anno <> "" Then
    If Primo Then
        Fil = Fil & " WHERE"
        Primo = False
        Else
        Fil = Fil & " AND"
    End If
    Fil = Fil & " Anno LIKE '" & Anno & "'"
End If
Ord = " ORDER BY Via"
SQL = Sel & Fil & Ord & ";"
Forms!Principale!Dati.Form!List.RowSource = SQL
Forms!Principale!Dati.Form!Filtri = Fil
End Sub


title: filtro su listbox

text:
"Cholo" <m.mag...@NOSPAMlibero.it> ha scritto nel messaggio
news:EEiwd.29764$Zk.5...@twister2.libero.it...
> > Quando pigi i pulsanti di ordinamento costruisciti dinamicamente la
> stringa
> > SQL, che alla fine imposterai come origine riga della casella di
> riepilogo,
> > tenendo conto, oltre che dell' ORDER BY, anche dei criteri da impostare
> con
> > una WHERE; naturalmente do per scontato che anche l'altra maschera
(quella
> > con i parametri di filtro) risulti aperta.
> > Insomma creati la stringa SQL pezzo a pezzo ed alla fine impostala come
> > origine riga della casella di riepilogo.
>
> è quello che ho fatto... e in effetti funziona.
> quello che vorrei sapere è se la stringa di impostazione dei filtri
(where)
> posso memorizzarla in una variabile globale (??) o appartenente alla
> maschera dove c'è la listbox, in modo che quando cambio ordinamento (e
> rieseguo la select) non perdo i filtri. per adesso lo ho memorizzato in un
> campo di testo nascosto (Forms!Principale!Dati.Form!Filtri ), ma volevo
> sapere se potevo usare una variabile di vb.
Puoi memorizzare il codice SQL della WHERE in una variabile pubblica di tipo
testo definita in un modulo del tuo database: così facendo essa sarà
modificabile e accessibile da qualsiasi punto del tuo database e quindi
eviterai di definire la casella di testo nascosta chiamata Fil.
[CUT]



title: Access 2016 colori

author: Winston Smith

text:
Salve a tutti,
ho da poco installato office 2016.
Aspettando a gloria i nuovi set di colori del interfaccia utente, in
particolare il grigio scuro, vedo con gande sorpresa che questo set è
disponibile per tutti i programmi(excel, word, outlook) ma non per
access, in cui ho solo bianco e colori.
Avevo letto le novità della versione 2016 prima dell'uscita e veniva
mensionato che sarebbe stato disponibile anche il grigio scuro o il
nero.
Avete informazioni sul motivo per cui non è disponibile o se verrà
aggiunta in qualche aggiornamento?
In alternativa esite un modo per cambiare i colori dell'interfaccia?

Grazie

--
O no ?

WS


title: Albero genealogico

author: Dendy

text:
Qualcuno può indicarmi, come posso fare a costruire un albero genealogico
partendo da record collegati tra loro da un codice identificativo in una
maschera o in un report ?
grazie


title: Albero genealogico

author: ema

text:
Mio cuggino mi ha detto che Dendy <
me...@tiscalinet.it
> scrisse:
> Qualcuno può indicarmi, come posso fare a costruire un albero genealogico
> partendo da record collegati tra loro da un codice identificativo in una
> maschera o in un report ?
>
Apre una query ed inserisci piu` volte la stessa tabella.
Crea dei join tra ID (lvl 1) e IDpadre (lvl 2) ed IDmadre (lvl 2):
tbl_1 (lvl 2)   tbl_2 (lvl 1)           tbl_3 (lvl 2)
ID-----\        ID             /--------ID
        \-------IDpadre       /
                IDmadre------/
E cosi` via per tutti i lvl che vuoi.
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
>               Attenzione all'anti-spam XXX
I socialisti liguri, offesi, mi hanno minacciato: "Grillo, appena usciamo
di galera ti quereliamo!".
		-- Beppe Grillo


title: suddivisione testo di un controllo in tante caselle

author: Giuseppe

text:
Salve a tutti.
In un vecchio db con origine record =Mid$([Descr];1;1) in ogni casella
di testo cambiando su ognuna progressivamente l'1;1 in 2;1, 3;1 ecc..
riuscivo a suddivere il contenuto della casella di testo "descr" in
tante caselle contenente ognuna 1 carattere.
Ho copiato e incollato queste caselle (25) nel db attuale ed ho
chiaramente chiamato anche qui "descr" la casella di testo da cui
frammentare le lettere.
Ma quando visualizzo il report, le caselle di testo sono vuote.
Da cosa dipende?
Ciao.
Giuseppe.