title: File di Testo in access

text:
Grazie,
ora posso importare più file, ma comunque non si accodano. Inoltre tutte
le
volte che importa un file mi chiede di premere OK.
Non so se esiste un modo per poterli importare con un solo clik, ed
accodarli.
Es. Ho 10 file con nome:
file1.acp
file2.acp
file3.acp .... file10.acp
selezionarli tutti, far partire la routine, e accodarli uno all'altro
nella mia
tabella Prova.
Così come mi hai indicato il file1.acp viene sostituito dal file2.acp
ecc. ecc..
Forse (DoCmd.RunSQL "DELETE Prova.* FROM Prova;"), non deve essere fatto
nel
loop.
Ciao
Sergio MAZZA wrote:
> "Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
> news:3918057A...@pippo.it...
> > Sono ancora Io, ho provato in tutti i modi, ma con la casella di riepilogo
> con
> > abilitata la possibilità di selezionae multipla mi dice:
> >
> > Ivalid Argument.
> >
> > Anche selezionando un solo file, per cui penso che prima del loop ci sia
> qualche
> > cosa d'altro:
> >
> >
> La subroutine del bottone [bttnImporta] la devi sostituire con:
>
> Private Sub bttnImporta_Click()
> On Error GoTo bttnImporta_Click_err
>
> Dim fAcp
>
> If Me.elencoFileacp.ItemsSelected.Count > 0 Then
>     For Each fAcp In Me.elencoFileacp.ItemsSelected
>         DoCmd.SetWarnings False
>         Rem vuoto la tabella
>         DoCmd.RunSQL "DELETE Prova.* FROM Prova;"
>         Rem importo i dati



title: File di Testo in access

author: Sergio MAZZA

text:
"Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
news:39182053...@pippo.it...
> No, è assolutamente inventata e non da me. E' una programma che effettua
> calcoli sul territorio nazionale e da origine ad alcune tabelle
(file.acp), con
> all'interno alcuni parametri di misura (microvolt per metro quadro), in
> prossimità di impianti di radiodiffusione.
>
> Questo programma colora alcune zone sulle carte geografiche digitalizzate
e
> genera questi file.
> Come potrai immaginare questi file opportunamente importati e rielaborati
> possono essere utili per fare statistiche di vario tipo.
>
> Ciao
>
Non è in dubbio l'utilità dei dati (ci mancherebbe altro); ma la "stranezza"
di trovare associata l'estenzione acp ad un programma già esistente. La cosa
importante è che non provochi problemi alle tue applicazioni...
Buon lavoro.


title: File di Testo in access

text:
"Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
news:39182CA7...@pippo.it...
> Grazie,
> ora posso importare più file, ma comunque non si accodano. Inoltre tutte
> le
> volte che importa un file mi chiede di premere OK.
> Non so se esiste un modo per poterli importare con un solo clik, ed
> accodarli.
>
> Es. Ho 10 file con nome:
>
> file1.acp
> file2.acp
> file3.acp .... file10.acp
>
> selezionarli tutti, far partire la routine, e accodarli uno all'altro
> nella mia
> tabella Prova.
>
> Così come mi hai indicato il file1.acp viene sostituito dal file2.acp
> ecc. ecc..
>
> Forse (DoCmd.RunSQL "DELETE Prova.* FROM Prova;"), non deve essere fatto
> nel
> loop.
>
> Ciao
>
A questo punto hai tre versioni di una subroutine; l'ultima ti fa vedere
tutti i file acp in una directory, selezionare quelli che vuoi ed
importarli. Non te li accoda perché probabilmente ho interpretato male le
tue istruzioni quando mi dicevi che la tabella doveva prima essere vuotata;
io intendevo prima di ogni importazione, tu indendevi prima di importare
tutti i file in un solo colpo. Non è grave, se hai tempo potresti facilmente
individuare la soluzione del "problema", anche perché ho inserito dei
commenti (rem) nel codice.
Questa è la modifica per il bottone [bttnImporta] che importa tutto in un
colpo:
Private Sub bttnImporta_Click()
On Error GoTo bttnImporta_Click_err
Dim fAcp
DoCmd.SetWarnings False
Rem vuoto la tabella
DoCmd.RunSQL "DELETE Prova.* FROM Prova;"
If Me.elencoFileacp.ItemsSelected.Count > 0 Then
    For Each fAcp In Me.elencoFileacp.ItemsSelected
        Rem importo i dati
        DoCmd.TransferText acImportFixed, "Prova", "Prova", Me.directory &
Me.elencoFileacp.ItemData(fAcp)
    Next
    DoCmd.SetWarnings True
Else
    MsgBox "Selezionare un file dall'elenco", vbOKOnly, "Importa file ACP"
    GoTo bttnImporta_click_exit
End If
bttnImporta_click_exit:
    Exit Sub
bttnImporta_Click_err:
    DoCmd.SetWarnings True
    MsgBox Err.Description & ", " & Err.Number
End Sub
Ricordati di impostare la proprietà della casella di riepilogo: scheda
"altro" - "selezione multipla"  - "selezione semplice"...
Ciao.


title: File di Testo in access

author: Pippo Go

text:
Sono riuscito ad accodare i dati, ho soltatnto spostato il codice che svuota la
tabella  fuori dal comando If...
Ho solo due cose da chiederti e poi penso di aver finito di torturarti:
1) Come posso resettare il counter ID della tabella; tutte le volte che importo
dati questo conta, e dato che tale azione verrà eseguita più volte l'ID assumerà
valori altissimi. Non so se esiste qualche cosa che oltre a svuotare azzeri
anche il campo ID della mia tabella prova.
2) Posso evitare di cliccare su OK tutte le volte che mi importa un file, se
dovessi avere 80 file da importare dovrei cliccare 80 volte.
Sergio MAZZA wrote:
> "Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
> news:3918057A...@pippo.it...
> > Sono ancora Io, ho provato in tutti i modi, ma con la casella di riepilogo
> con
> > abilitata la possibilità di selezionae multipla mi dice:
> >
> > Ivalid Argument.
> >
> > Anche selezionando un solo file, per cui penso che prima del loop ci sia
> qualche
> > cosa d'altro:
> >
> >
> La subroutine del bottone [bttnImporta] la devi sostituire con:
>
> Private Sub bttnImporta_Click()
> On Error GoTo bttnImporta_Click_err
>
> Dim fAcp
>
> If Me.elencoFileacp.ItemsSelected.Count > 0 Then
>     For Each fAcp In Me.elencoFileacp.ItemsSelected
>         DoCmd.SetWarnings False
>         Rem vuoto la tabella
>         DoCmd.RunSQL "DELETE Prova.* FROM Prova;"
>         Rem importo i dati
>         DoCmd.TransferText acImportFixed, "Prova", "Prova", Me.directory2 &
> Me.elencoFileacp.ItemData(fAcp)
>         DoCmd.SetWarnings True
>         MsgBox "File: " & Me.elencoFileacp.ItemData(fAcp) & ", importato!"
>     Next
>     DoCmd.SetWarnings True
> Else
>     MsgBox "Selezionare un file dall'elenco", vbOKOnly, "Importa file ACP"
>     GoTo bttnImporta_click_exit
> End If
>
> bttnImporta_click_exit:
>     Exit Sub
>
> bttnImporta_Click_err:
>     DoCmd.SetWarnings True
>     MsgBox Err.Description & ", " & Err.Number
>
> End Sub
>



title: File di Testo in access

text:
"Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
news:3919093F...@pippo.it...
> Sono riuscito ad accodare i dati, ho soltatnto spostato il codice che
svuota la
> tabella  fuori dal comando If...
>
> Ho solo due cose da chiederti e poi penso di aver finito di torturarti:
>
> 1) Come posso resettare il counter ID della tabella; tutte le volte che
importo
> dati questo conta, e dato che tale azione verrà eseguita più volte l'ID
assumerà
> valori altissimi. Non so se esiste qualche cosa che oltre a svuotare
azzeri
> anche il campo ID della mia tabella prova.
> 2) Posso evitare di cliccare su OK tutte le volte che mi importa un file,
se
> dovessi avere 80 file da importare dovrei cliccare 80 volte.
>
>
1) Il campo contatore (che non serve per contare) è azzerabile se vuoti la
tabella e compatti l'mdb; ma a cosa ti serve un campo contatore ovvero, sei
sicuro che ti serva in campo contatore?
2) ti ho inviato la soluzione un attimo dopo della tua domanda.
Ciao.


title: File di Testo in access

text:
Così va bene, anche se però ignora la riga:
MsgBox "File: " & Me.elencoFileAcp & ", importato!"
Non è un problema. Forse non hai vistoil mio post dove indicavo due problemi:
Uno l'hai risolto (quello di importare tutto e collegare)
L'altro e che gli ID continuano ad aumentare....
Vedi post....
Sergio MAZZA wrote:
> "Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio

> Private Sub bttnImporta_Click()
> On Error GoTo bttnImporta_Click_err
>
> Dim fAcp
>
> DoCmd.SetWarnings False
> Rem vuoto la tabella
> DoCmd.RunSQL "DELETE Prova.* FROM Prova;"
>
> If Me.elencoFileacp.ItemsSelected.Count > 0 Then
>     For Each fAcp In Me.elencoFileacp.ItemsSelected
>         Rem importo i dati
>         DoCmd.TransferText acImportFixed, "Prova", "Prova", Me.directory &
> Me.elencoFileacp.ItemData(fAcp)
>     Next
>     DoCmd.SetWarnings True
> Else
>     MsgBox "Selezionare un file dall'elenco", vbOKOnly, "Importa file ACP"
>     GoTo bttnImporta_click_exit
> End If
>
> bttnImporta_click_exit:
>     Exit Sub
>
> bttnImporta_Click_err:
>     DoCmd.SetWarnings True
>     MsgBox Err.Description & ", " & Err.Number
>
> End Sub
>
> Ricordati di impostare la proprietà della casella di riepilogo: scheda
> "altro" - "selezione multipla"  - "selezione semplice"...
> Ciao.


title: File di Testo in access

text:
"Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
news:39192C49...@pippo.it...
> Così va bene, anche se però ignora la riga:
>
> MsgBox "File: " & Me.elencoFileAcp & ", importato!"
>
> Non è un problema. Forse non hai vistoil mio post dove indicavo due
problemi:
> Uno l'hai risolto (quello di importare tutto e collegare)
> L'altro e che gli ID continuano ad aumentare....
>
> Vedi post....
>
>
Lo ignora perché non c'è più! Se ti serve reinseriscilo nel punto che
ritieni adatto. Per il problema dell'id ti ho risposto vedi il messaggio di
oggi 10.5.2000 delle 11:13..
Ciao.


title: File di Testo in access

author: pippo go

text:
Ho letto il tuo messaggio, mi devi scusare ho alcuni problemi con il
programma delle News di Netscape, non mi aggiorna le news e non riesco a
vedere alcuni post.
Si forse hai ragione l'ID non mi serve, ma č una deformazione, non riesco a
concepire una tabella senza indice... :-(
Penso che ora ci siamo, appena ho finito posto tutta la routine finita,
almeno se serve a qualcuno non ha bisogno di leggersi tutta la cronostoria.
Ciao
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
8fbbft$r4q$1...@suite03.caspur.it...
>
> "Pippo Go" <
pi...@pippo.it
> ha scritto nel messaggio
> news:39192C49...@pippo.it...
> > Cosě va bene, anche se perň ignora la riga:
> >
> > MsgBox "File: " & Me.elencoFileAcp & ", importato!"
> >
> > Non č un problema. Forse non hai vistoil mio post dove indicavo due
> problemi:
> > Uno l'hai risolto (quello di importare tutto e collegare)
> > L'altro e che gli ID continuano ad aumentare....
> >
> > Vedi post....
> >
> >
> Lo ignora perché non c'č piů! Se ti serve reinseriscilo nel punto che



title: File di Testo in access

text:
"pippo go" <pi...@pippo.ol> ha scritto nel messaggio
news:8fbpup$6un$1...@nslave1.tin.it...
> Ho letto il tuo messaggio, mi devi scusare ho alcuni problemi con il
> programma delle News di Netscape, non mi aggiorna le news e non riesco a
> vedere alcuni post.
> Si forse hai ragione l'ID non mi serve, ma è una deformazione, non riesco
a
> concepire una tabella senza indice... :-(
>
> Penso che ora ci siamo, appena ho finito posto tutta la routine finita,
> almeno se serve a qualcuno non ha bisogno di leggersi tutta la
cronostoria.
>
> Ciao
>
>
Anch'io creo ogni tabella con id (contatore univoco) e id_data (data
estesa - e default now()), anche se in alcuni casi potrebbe non servire; ma
io mi riferivo al fatto di non utilizzare l'id contatore per contare i
record, non è comodo...
Ciao.


title: Property Get

author: Marco Benini

text:
Ciao a tutti
Devo recuperare un valore da una maschera PopUp(nome nel codice
"Quesito") che richiede all'utente di effetuare una scelta.La struttura
della maschera è questa:
2 pulsanti di scielta e uno di chiusura, i 2 pulsanti sono all'interno
di una cornice che rappresenta un gruppo di opzioni e il pulsante di
chiusura si trova all'esterno della cornice.
Di seguito vi riporto il codice associato ai 3 pulsanti:
Private Sub Esci_Click()
DoCmd.Close
End Sub
Private Sub Scielta1_GotFocus()
Me.Visible = False
End Sub
Private Sub Scielta2_GotFocus()
Me.Visible = False
End Sub
-----------
e poi la proprietà da me impostata per recuperare il valore in base alla
scielta:
Public Property Get valore() As Integer
valore = Cornice3.Value
End Property
Nella maschera che deve recuperare il valore(Nome nel codice "Gestione")
c'è una funzione pubblica addetta a questo compito, la quale a sua volta
sfrutta un'altra funzione per vedere se la maschera "Quesito" è aperta,
nell'ordine:
Public Function catturavalore() As Integer
DoCmd.OpenForm "Quesito", , , , , acDialog
If apertatipo("Quesito") Then
catturavalore = Forms("Quesito").valore
DoCmd.Close acForm, "Quesito"
End If
End Function
Public Function apertatipo(frm As String, Optional tipo As _
AcObjectType = acForm) As Boolean
apertatipo = (SysCmd(acSysCmdGetObjectState, acForm, frm) <> 0)
End Function
Poi un pulsante nella maschera "Gestione" chiama la funzione per farsi
restituire il valore ed io base a quello ho previsto una reazione, in
questo caso un msgbox:
Private Sub Comando12_Click()
Dim sce As Integer
sce = catturavalore()
If sce = 1 Then
MsgBox "Wow", vbExclamation + vbOKOnly, "leonardo Computer"
End If
End Sub
I problemi che ho riscontrato sono 2 però per adesso ne posto uno, se
poi risolto questo l'altro persiste farò un altro post.
Cliccko sul pulsante CMD12, si apre regolarmente la maschera,effettuo la
scielta e VBA mi spiaccica sul monitor 'Utilizzo non valido di
null',cioè non è stato assegnato nessun valore alla variabile.
Ciao e grazie a tutti.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: kaspersky e access

author: TwinCamVis

text:
Ho l'antivirus Kaspersky, ma quando vado ad aprire file in access 2002 mi và
in errore 91
Per caso ho disattivato l'antivirus e tutto è andato a posto.......perchè?


title: kaspersky e access

text:
"TwinCamVis" <
ric...@tiscali.it
> ha scritto nel messaggio news:438464a6$0$8495$5fc...@news.tiscali.it...
> Ho l'antivirus Kaspersky, ma quando vado ad aprire file in access 2002 mi và in errore 91
>
> Per caso ho disattivato l'antivirus e tutto è andato a posto.......perchè?
Prova ad abbassare (se possibile) il livello della protezione...
Ciao.
--
Sergio MAZZA


title: FILTRO RECORD PER DATA ACCESS 2010

author: Leo Esposito

text:
Buongiorno,
ho una tabella-listino in cui inserisco un "cod_prod", un "costo" ed
una "data" e questi campi si aggiornano di volta in volta che il
listino cambia, per cui uno stesso cod_prod avrà più costi con date
validità diverse.
Ora, ho la necessità di avere una query che mi filtri una sola riga
per singolo cod_prod a seconda della data di riferimento del documento
che sto controllando.
In pratica, ho un documento con data 05/01/2012 e nella mia tabella-
listino ho i seguenti dati:
cod_prod 062984  costo  0,70  data  01/01/2012
cod_prod 062984  costo  0,80  data  01/02/2012
cod_prod 062984  costo  0,90  data  01/03/2012
A me occorre che la query mi filtri soltanto la riga con il costo 0,70
(visto che è il costo valido a quella data).
Spero di essere stato abbastanza chiaro. Mi potete aiutare?

Grazie sempre.
Leo


title: FILTRO RECORD PER DATA ACCESS 2010

author: Marco Pizzamiglio

text:
Leo Esposito ha scritto:

Devi usare una subquery. Vedi il post 'Ultimi 5 ordini per articolo' di
ieri, è lo stesso problema solo che tu nella subquery userai un TOP 1 e
non TOP 5.
Potresti anche provare a farlo con una dlookup ma sarebbe molto più lento.
Ciao.
-Marco-

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: before_update

author: Prospero

text:
Avendo la necessità di convalidare i dati di un controllo di una maschera
(maschera1), ho inserito una routine Before_Update con relativo MsgBox.
Tale routine funziona bene.
Il mio problema è che un pulsante apri maschera (maschera2), costruito con
l'autocomposizione, presente sulla maschera (maschera1) non espleta la
convalida dei dati del controllo in questione permettendo quindi di uscire
dalla maschera1.
Qualcuno sa darmi un consiglio su come agire?
Io ho fatto così:
Private Sub Apri_maschera2_Click()
Call Form_BeforeUpdate(-1)
On Error GoTo Err_Apri_maschera2_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Maschera2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Apri_maschera2_Click:
    Exit Sub
Err_Apri_maschera2_Click:
    MsgBox Err.Description
    Resume Exit_Apri_maschera2_Click
End Sub


title: before_update

author: Stefano Bettini

text:
Prospero ha scritto nel messaggio <86pj6g$lth$
1...@nslave2.tin.it
>...
>Avendo la necessità di convalidare i dati di un controllo di una maschera
>(maschera1), ho inserito una routine Before_Update con relativo MsgBox.
>Tale routine funziona bene.
>Il mio problema è che un pulsante apri maschera (maschera2), costruito con
>l'autocomposizione, presente sulla maschera (maschera1) non espleta la
>convalida dei dati del controllo in questione permettendo quindi di uscire
>dalla maschera1.
>Qualcuno sa darmi un consiglio su come agire?
Non so se ho capito bene...
Da quello che scrivi si direbbe che tramite un click apri
un'altra maschera nel bel mezzo di un aggiornamento
e ti meravigli che non si "accenda" l' evento BeforeUpdate
della maschera 1.
Prova a condizionare l' esecuzione del click alla me.dirty,
tipo:
if me.dirty then
  msgbox "Finchè non chiudi 'sta transazione la maschera2 te la scordi!"
  MioFlag = "Annulla"
end if
Bye, Ste


title: Consiglio su access.

author: Antonio

text:
        Ciao,
potreste consigliarmi qualche buon testo per apprendere access ? Vorrei
approfondire le conoscenze basi che ho.
Guida all'uso Microsoft Access 2000 della mondadori, cosa ne pensate ?
Inoltre cerco, a scopo di didattica, come realizzare un database per la
raccolta di cd musicali che spieghi passo passo come realizzarlo.
Disposto a pagare eventuale disturbo.
Vi rngrazio
Ciao
Antonio
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Consiglio su access.

author: Gaspare

text:
"Antonio" <
raggiod...@libero.it
> ha scritto nel messaggio
news:217Z59Z200Z58Y1...@usenet.libero.it...

Sul sito comune -
www.sitocomune.com
 - c'è una sezione dedicata ai libri da
acquistare...


title: Consiglio su access.

author: Pablitomf

text:
Gaspare ha scritto:
[CUT]
> Sul sito comune -
www.sitocomune.com
 - c'è una sezione dedicata ai libri da
> acquistare...
..sezione che non parla di libri "da acquistare", ma di libri suggeriti
per contenuti dai sostenitori dello stesso sitocomune. Il sitocomune per
buon che sia pone, come ovvio che sia, esclusivamente come guida per chi
ne sa meno dell'argomento trattato. Il mio consiglio come già detto altre
volte sul medesimo argomento è : vai in libreria, sfoglia un pò di manuali
di Access e prendi quello che ti sembra più chiaro, quello che tratta
l'argomento di access che più ti interessa e quello che non fa solo
chiacchiere ma esemplifica le stesse con esempi di codice. Per il prezzo,
bhè se vuoi imparare non ti conviene buttarti sull'economico.
Il mio primo consiglio è però sempre e comunque il tasto F1 con la sua
guida on-line.
--
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Consiglio su access.

author: Bruno Campanini

text:
"Antonio" <
raggiod...@libero.it
> wrote in message
news:217Z59Z200Z58Y1...@usenet.libero.it...
[...]
> Inoltre cerco, a scopo di didattica, come realizzare un database per la
> raccolta di cd musicali che spieghi passo passo come realizzarlo.
> Disposto a pagare eventuale disturbo.
> Vi rngrazio
> Ciao
> Antonio
Io l'ho realizzato, ed anche abbastanza sofisticato.
Per qualche scambio d'idee sono qui.
Bruno


title: Consiglio su access.

text:
"Pablitomf" <
maurizio...@accessgroup.it
> ha scritto nel messaggio
news:d32mgg$qv4$1...@news.newsland.it...

Evdentemente mi sono espresso male: è ovvio che "non ci sono scopi
commerciali" nel proponimento di determinati libri...era un modo come
un'altro per dire che se ti va qualche libro "suggerito" lo devi
acquistare...non è gratuito e da downloadare dal sito comune o da qualche
parte su internet ...
Ciao :-)


title: Consiglio su access.

author: Carlo.

text:
Gaspare ha scritto:
[CUT]
> Evdentemente mi sono espresso male: è ovvio che "non ci sono scopi
> commerciali" nel proponimento di determinati libri...era un modo come
> un'altro per dire che se ti va qualche libro "suggerito" lo devi
> acquistare...non è gratuito e da downloadare dal sito comune o da qualche
> parte su internet ...
> Ciao :-)
Quando ho cominciato, ho acquistato dei libri della APOGEO, scritti in
maniera abbastanza chiara e con supporto CD-Rom!
ciao,
Carlo
--



title: Consiglio su access.

text:

Solo per ringraziarvi dei consigli. Spero di trovare quello che cerco.
Grazie



title: Consiglio su access.

author: Roberto da casa

text:
"Antonio" <
raggiod...@libero.it
> ha scritto nel messaggio
news:217Z59Z200Z58Y1...@usenet.libero.it...
>
>         Ciao,
> potreste consigliarmi qualche buon testo per apprendere access ? Vorrei
> approfondire le conoscenze basi che ho.
> Guida all'uso Microsoft Access 2000 della mondadori, cosa ne pensate ?
Se è quello scritto da J. L. Viescas la ritengo una buona scelta.
> Inoltre cerco, a scopo di didattica, come realizzare un database per la
> raccolta di cd musicali che spieghi passo passo come realizzarlo.
> Disposto a pagare eventuale disturbo.
Una soluzione potrebbe essere quella che tu stabilisca quale informazioni
vuoi recepire dal tuo database e dettagliare quindi i dati da memorizzare,
da cui stabilirai la struttura delle tabelle e le loro relazioni.
Potresti quindi cominciare a crearti da solo il databse eventualmente con
l'aiuto dei frequentatori di questo NG.
> Vi rngrazio
> Ciao
> Antonio
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: come modificare un testo in word stampa unione al variare del valore di un campo del database associato

author: beppe

text:
sono riuscito ad associare i dati di un database access ad una pagina word
predefinita con stampa unione.
Il mio problema insorge quando vorrei fare la seguente operazione:
far apparire in word stampa unione   "P / D / E"  con solo P sottolineato se
il dato del campo access = "pari"
solo D sottolineato se il dato del campo access = "dispari"
solo E sottolineato  se il dato del campo access = "entrambi"
in access "pari" "dispari" ed "entrambi" fanno parte del menů a tendina di
una casella combinata denominata "lato civici"
GRAZIE


text:
"beppe" <
giu...@tin.it
> ha scritto nel messaggio
news:OTIia.2239$DN.5...@tornado.fastwebnet.it...

Devi crearti, con i campi di word, tre condizioni if (senza spazi tra di
loro);
Es.
{IF {MERGEFIELD nomeCampo} = "E" "P / D / E" ""}{IF {MERGEFIELD nomeCampo} =
"P" "P / D / E" ""}{IF {MERGEFIELD nomeCampo} = "D" "P / D / E" ""}
sottoineando le lettere giuste...
Ciao.
--
Sergio MAZZA


text:
> Devi crearti, con i campi di word, tre condizioni if (senza spazi tra di
> loro);
> Es.
> {IF {MERGEFIELD nomeCampo} = "E" "P / D / E" ""}{IF {MERGEFIELD nomeCampo}
=
> "P" "P / D / E" ""}{IF {MERGEFIELD nomeCampo} = "D" "P / D / E" ""}
>
> sottoineando le lettere giuste...
>
> Ciao.
>
> --
> Sergio MAZZA
>
> quando provo ad inserire  ad esempio {IF {MERGEFIELD Lato_civici}="Pari"
"P" ""}
nella
> maschera inserisci campo IF, accade che mi appare in automatico nel
> documento {IF {MERGEFIELD Lato_civici}="Pari" "P" ""}  \*MERGEFORMAT}
quando
> disattivo il codice campo mi restitutisce come risultato
> "Lato_civici}="      anzichč "P" come in teoria dovrebbe essere se ho
capito
> bene come funziona.
> ho provato anche ad eliminare manualmente \*MERGEFORMAT ma appare lo
stesso
> risultato.
> Sai dirmi come fare perchč il codice funzioni?
> Grazie


text:
GRAZIE ci sono riuscitooooooo!!!!!!!!
Sei veramente Super nel trovare soluzioni tanto semplici quanto efficaci. Da
te sto imparando tante cose nuove
CIAO


title: Per Federico Luciani

author: Alessia

text:
Il 12/09/00, mi avevi fatto la seguente proposta per un mio problema di
stampa da access di un specifico file word:
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim strPath As String
    strPath = "c:\esempi\"
    strNomeFile = InputBox("Numero del contratto?", "Apre il documento",
"0000-00")
        If strNomeFile = "" Then Exit Sub
        strNomeFile = strPath & Trim$(strNomeFile) & ".doc"
        If Dir(strNomeFile) = "" Then
        MsgBox "Il documento" & strNomeFile & "non esiste!", vbCritical
        Exit Sub
        End If
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set wordApp = CreateObject("Word.Application")
        Err.Number = 0
        End If
    On Error GoTo gestErrori
    Set wordDoc = wordApp.Documents.Open(strNomeFile)
    wordApp.Visible = True
    wordApp.WindowState = wdWindowsStateMaximize
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & "-" & Err.Description
    GoTo esci
End Sub
Ho finalmente trovato il tempo di provarlo, avendo avuto anche altri
suggerimenti, ma non mi apre il file, cioč alla fine quando mi compare la
richiesta del numero del contratto, mi dice che il file doc č inesistente.
per la cronoca esiste, sono andata a controllare.
Grazie dell'aiuto
Alessia


title: Per Federico Luciani

text:
Risolto il problema, grazie di tutto anche per tutte le altre volte che mi
avete aiutato.
Ale
Alessia <
sd...@spin.it
> wrote in message 8q53s8$qv8$1...@pc1.spin.it...



title: Per Federico Luciani

author: Steno

text:
Ciao Alessia e ciao al resto del Ng,
poiche' l'argomento mi interessa abbastanza
vorrei sapere quale fosse in realta' il problema
e come l'hai risolto.
Ciao e grazie
Alessia <
sd...@spin.it
> wrote in message 8q57ol$shp$1...@pc1.spin.it...



title: Per Federico Luciani

text:
Ciao Steno,
il problema era il seguente a questo punto io ho scritto cosě:
>     strNomeFile = InputBox("Numero del contratto?", "Apre il documento",
> "0000-00")
perchč salvavo i miei file nel seguente modo(0001-00).
e non andava bene, non chiedermi il perchč, ma scrivendo:
strNomeFile = InputBox("Numero del contratto?", "Apre il documento",
> "0000_00")
ha funzionato, ovviamente ho cambiato anche il nome del file da aprire.
Ora non sono io la grande, se seguivo subito quello che mi aveva suggerito
Federico funzionava tutto.
Ciao e buona giornata.
Ale
Steno <Sten...@Tin.it> wrote in message 8q5oib$41a$1...@nslave2.tin.it...



title: Per Federico Luciani

text:
Ciao Alessia
grazie
Steno
Alessia <
sd...@spin.it
> wrote in message 8q77jv$nnm$1...@pc1.spin.it...



title: Per Federico Luciani

author: Federico Luciani

text:
Alessia wrote:
> [cut]
> Ho finalmente trovato il tempo di provarlo, avendo avuto anche altri
> suggerimenti, ma non mi apre il file, cioč alla fine quando mi compare la
> richiesta del numero del contratto, mi dice che il file doc č inesistente.
> per la cronoca esiste, sono andata a controllare.
> Grazie dell'aiuto
> Alessia
Scusami per ritardo, ero in ferie :-))
Cmq vedo che hai trovato da sola la soluzione.
In casi di questo tipo anch'io uso sempre e solo l'underscore, e' l'unico
carattere che non mi ha mai dato problemi.
Bye
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: Per Federico Luciani

text:
> Scusami per ritardo, ero in ferie :-))
> Cmq vedo che hai trovato da sola la soluzione.
> In casi di questo tipo anch'io uso sempre e solo l'underscore, e' l'unico
> carattere che non mi ha mai dato problemi.
>
> Bye
> --
> Federico
>
Ferie meritate bravo.
ho approfittato della tua funzione usandola anche nel programma per il
protocollo della posta, fatto tempo fa.
Perň, da  sempre abbiamo salvato la corrispondenza in uscita cosě 00-0001
(cioč anno  trattino e numero di protocollo).
E' sicuro che bisogna usare solo l'underscore, io mi ritrovo a dover
rinnominare +/- 7000 file per poterli aprire e visualizzare.
Esiste una soluzione al problema?
Grazie molte dell'aiuto
Ciao Ale


title: Per Federico Luciani

text:
Alessia wrote:
> > Scusami per ritardo, ero in ferie :-))
> > Cmq vedo che hai trovato da sola la soluzione.
> > In casi di questo tipo anch'io uso sempre e solo l'underscore, e' l'unico
> > carattere che non mi ha mai dato problemi.
> > Federico
>
> Ferie meritate bravo.
> ho approfittato della tua funzione usandola anche nel programma per il
> protocollo della posta, fatto tempo fa.
> Perň, da  sempre abbiamo salvato la corrispondenza in uscita cosě 00-0001
> (cioč anno  trattino e numero di protocollo).
> E' sicuro che bisogna usare solo l'underscore, io mi ritrovo a dover
> rinnominare +/- 7000 file per poterli aprire e visualizzare.
> Esiste una soluzione al problema?
> Grazie molte dell'aiuto
> Ciao Ale
Non ne sono sicuro al 100%, ma ricordo che c'erano dei problemi e quindi ho
sempre evitato di usarlo.
Cmq per rinominare i files scriviti quattro righe di codice per automatizzare
l'operazione (sul sito trovi una funzione per sostituire alcuni caratteri in
una stringa);
sempre che i files si trovino solo in alcune dir e non sparsi su vari dischi
:-)



title: Per Federico Luciani

text:
> Non ne sono sicuro al 100%, ma ricordo che c'erano dei problemi e quindi
ho
> sempre evitato di usarlo.
> Cmq per rinominare i files scriviti quattro righe di codice per
automatizzare
> l'operazione (sul sito trovi una funzione per sostituire alcuni caratteri
in
> una stringa);
> sempre che i files si trovino solo in alcune dir e non sparsi su vari
dischi
> :-)
>
> --
> Federico
>
Purtroppo è un casino, perchè gli anni dal 94 al 98 gli ho spostati su
CD-ROM.
Per gli altri dovrei farcela.
Tento.
Grazie dell'indicazione
Ciao ed a presto.
Ale



title: Per Federico Luciani

text:
Credo di aver risposto due volte, ma non ha importanza.
Allora mi interessa.
Grazie dell'aiuto.
Ciao Ale
Giovanni Albertone <
giovanni_...@hotmail.com
> wrote in message
sv69tskb0e9b89583...@4ax.com...
> On Fri, 29 Sep 2000 14:59:38 +0100, "Alessia" <
sd...@spin.it
> wrote:
>
> >E' sicuro che bisogna usare solo l'underscore, io mi ritrovo a dover
> >rinnominare +/- 7000 file per poterli aprire e visualizzare.
> >Esiste una soluzione al problema?
>
> Io uso in windows un "multi-rename" che funziona abbastanza bene e usa
> una specie di espressioni regolari per trovare nomi secondo pattern
> specificati. Se ti interessa controllo che roba e', mi pare fosse un
> freeware trovato su zdnet.
>
> --
> Ciao,
> Giovanni
>
> D'una città non godi le sette o le settantasette meraviglie, ma la
> risposta che dà a una tua domanda - I.Calvino


title: calcolo età

author: Vix

text:
avendo nella mia maschera
un controllo datamatrimonio data breve
un controlla datadivorzio  data breve
come faccio ad avere nel mio controllo durata tipo numerico, quanti anni ho
sofferto?
ciao


title: calcolo età

author: AleC

text:

year(datadivorzio) - year(datamatrimonio)


title: calcolo età

text:
"AleC" <
alessandr...@novameta.it
> ha scritto nel messaggio
news:ea33a4a1-87e9-403d...@2g2000hsn.googlegroups.com...

year(datadivorzio) - year(datamatrimonio)
come valore predefinito oppure su evento?
ciao


title: calcolo età

text:
On 5 Set, 11:19, "Vix" <
V...@libero.it
> wrote:
> "AleC" <
alessandro.cappe...@novameta.it
> ha scritto nel messaggionews:ea33a4a1-87e9-403d...@2g2000hsn.googlegroups.com...
> On 5 Set, 11:08, "Vix" <
V...@libero.it
> wrote:
>
> > avendo nella mia maschera
> > un controllo datamatrimonio data breve
> > un controlla datadivorzio data breve
>
> > come faccio ad avere nel mio controllo durata tipo numerico, quanti anni
> > ho
> > sofferto?
>
> > ciao
>
> year(datadivorzio) - year(datamatrimonio)
>
> come valore predefinito oppure su evento?
> ciao
su Current direi e sulla AfterUpdate  sia di datadivorzio che di
datamatrimonio, così viene calcolato quando si apre la maschera, su
ogni record, e quando modifiche le due date.


title: calcolo età

text:
"AleC" <
alessandr...@novameta.it
> ha scritto nel messaggio
news:260f739d-0f17-4202...@e53g2000hsa.googlegroups.com...
On 5 Set, 11:19, "Vix" <
V...@libero.it
> wrote:
> "AleC" <
alessandro.cappe...@novameta.it
> ha scritto nel
> messaggionews:ea33a4a1-87e9-403d...@2g2000hsn.googlegroups.com...
> On 5 Set, 11:08, "Vix" <
V...@libero.it
> wrote:
>
> > avendo nella mia maschera
> > un controllo datamatrimonio data breve
> > un controlla datadivorzio data breve
>
> > come faccio ad avere nel mio controllo durata tipo numerico, quanti anni
> > ho
> > sofferto?
>
> > ciao
>
> year(datadivorzio) - year(datamatrimonio)
>
> come valore predefinito oppure su evento?
> ciao
su Current direi e sulla AfterUpdate  sia di datadivorzio che di
datamatrimonio, cosě viene calcolato quando si apre la maschera, su
ogni record, e quando modifiche le due date.
tutto OK
grazie


title: calcolo età

author: Karl Donaubauer

text:

Puoi usare un campo calcolato con origine controllo (in 1 riga):
=DateDiff("aaaa";[datamatrimonio];[datadivorzio])+(Format([datadivorzio];"mmgg")<Format([datamatrimonio];"mmgg"))
Vedi anche
www.donkarl.com/it?FAQ2.7
.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: calcolo età

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:6icd4bF...@mid.individual.net...
> Vix wrote:
>> avendo nella mia maschera
>> un controllo datamatrimonio data breve
>> un controlla datadivorzio  data breve
>>
>> come faccio ad avere nel mio controllo durata tipo numerico, quanti anni
>> ho sofferto?
>
> Puoi usare un campo calcolato con origine controllo (in 1 riga):
>
> =DateDiff("aaaa";[datamatrimonio];[datadivorzio])+(Format([datadivorzio];"mmgg")<Format([datamatrimonio];"mmgg"))
>
> Vedi anche
www.donkarl.com/it?FAQ2.7
.
>
ok grazie
Vix


title: Ho problema per 3 giorni al mese, cioè 12 mesi per 3 giorni =36 giorni all'anno

author: NEWS

text:
Ciao a tutti,  sono alle  prime  armi  con  acces  ed  è  la  prima  volta
che  mi
connetto a questo NG.
Ho  fatto  un  database  con  access  per  curare  la  mia  attività.
e  ho  un  problema.
Come  faccio  a  chiedere  al  programma  di  codice  da  un  modulo  di
date  cioè
3  giorni  al  mese. Esempio 3  giorni  al  mese  di  gennaio e 3  giorni
al  mese  di  febbraio e
3  giorni  al  mese  di  marzo  e  ecc......,devo  vedere  che  avanza
ancora  è.....al  mese?
Non  sono  riuscito  ad  immettere  il  codice  del  modulo.
Vi  sarei  molto  grato  se  qualcuno  mi  rispondesse.
Ciao  a  tutti.
Affleck
email
aff...@tin.it


author: Lbo

text:
>Come  faccio  a  chiedere  al  programma  di  codice  da  un  modulo  di
>date  cioè
>3  giorni  al  mese. Esempio 3  giorni  al  mese  di  gennaio e 3  giorni
non prendertela, ma non ho capito assolutamente cosa vuoi fare.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access


author: Massimo

text:
>
>
Anche io non ho capito nulla !!!


author: sib

text:
NEWS <
aff...@tin.it
> wrote in message
cut
> Ho  fatto  un  database  con  access  per  curare  la  mia  attivitą.
> e  ho  un  problema.
> Come  faccio  a  chiedere  al  programma  di  codice  da  un  modulo  di
> date  cioč
> 3  giorni  al  mese. Esempio 3  giorni  al  mese  di  gennaio e 3  giorni
> al  mese  di  febbraio e
> 3  giorni  al  mese  di  marzo  e  ecc......,devo  vedere  che  avanza
> ancora  č.....al  mese?
> Non  sono  riuscito  ad  immettere  il  codice  del  modulo.
cut
Caro Affleck, mi sa che ti si e' impigliata la lingua sui denti mentr
parlavi ;-)
Prova a dirlo a parole tue.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: suggerimento su creazione report

text:
ciao a tutti
ho provato a fare un'autocomposizione di report.
con layout tabulare non posso farlo perche ho troppe colonne da
visualizzare.
volevo adottare piuttosto il layout tabulare ma, siccome appare un record
per ogni pagina, ho parecchio spazio sprecato.
La soluzione migliore sarebbe usare il layout  verticale su una pagina
orizzontale con la condizione di fare apparire due record affiancati.
es.
record1            record2
aaa  AAA        aaa  AAA
bbb BBB         bbb BBB
ccc CCC         ccc CCC
.............           .............
è possibile fare in modo che in ogni pagina vengano visualizzati 2 o piu
record ?
come si fa ?
grazie


title: suggerimento su creazione report

author: Silvio Berruti

text:
"pac77" <
pa...@libero.it
> ha scritto nel messaggio
news:u9Cq7.11787$Lp6.4...@news.infostrada.it...

Prova impostando il n° colonne a 2 nelle impostazioni pagina del report.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Unificare due DB in uno

author: Filippo Marafioti

text:
Ciao a tutti,
ho due DB identici in tutto (tabelle, campi, query, report), sono nati per
fare la stessa cosa (archiviare e censire aziende). Adesso è giunta l'ora di
unificarli. Già in un'altra occasione avevo posto la stessa domanda; il
copia ed incolla non è una buona soluzione in quanto perderei le relazioni
tra i dati e quindi avrei un DB finale  inutilizzabile. Quello che mi
interessa è fare in modo che i dati e le relazioni dei due DB continuassero
a susstistere anche nel DB finale. Avevo pensato come soluzione di creare un
terzo DB che funzionasse da front end in modo da manipolre i dati su i due
DB(bsck end) ma non so se questo è possibile, e se si come fare il tutto. Se
poi qualcuno ha un'idea migliore ben venga.
Ciao a tutti e grazie
Filippo


title: Unificare due DB in uno

author: Bobo

text:
Al volo, da uno dei due fai 1 query di accodamento che ti aggiunge
tutti il record del secondo DB. Ovvio, se hai delle relazioni, che
prima devi importare le tabelle padre, dopo le figlie, altrimenti ti
trovi degli orfani.
a meno che.... non è che hai record ripetuti nei 2 DB? che so, lo
stesso cliente nei 2 DB, in uno con delle fatture, nell'altro DB con
altre fatture.... in questo caso c'è da far di +, ma si pò...


title: Unificare due DB in uno

text:
"Bobo" <
robert...@gmail.com
> ha scritto nel messaggio
news:1126858339.7...@g47g2000cwa.googlegroups.com...

No.......I due DB non contengono report ripetuti.......... se hai un minuto
di tempo spiegati un po meglio credo di non averti capito.


title: Unificare due DB in uno

text:
"Bobo" <
robert...@gmail.com
> ha scritto nel messaggio
news:1126858339.7...@g47g2000cwa.googlegroups.com...

No ....... nei due DB non ci sono record ripetuti. Rispiegami meglio la
soluzione a cui hai pensato credo di non aver capito.


title: Unificare due DB in uno

author: Sergio MAZZA

text:
"Filippo Marafioti" <
fip...@libero.it
> ha scritto nel messaggio news:EauWe.3220$9l.9...@twister1.libero.it...

Dovresti creare un nuovo id per la tabella principale (es. Aziende) accodando i record di entrambe le tabelle Azienda1/2.
Poi inserisci i dati in relazione (magari prima quelli della tabella Azienda1), filtrandoli per il vecchio id e accodando anche il
nuovo id dell'azienda. Alla fine potrai rimuovere il vecchio id in tutte le tabelle...
Ciao.
--
Sergio MAZZA


title: Unificare due DB in uno

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:dgebkn$l4k$1...@area.cu.mi.it...

Tutto chiaro........................ quello che non comprendo e se devo
importare tutte le tabelle dei due DB nell'unico DB che devo ottenere (ma
così facendo non perdo le relazioni?); inoltre se importo tutte le tabelle
dei due DB avrò delle tabelle duplicate (i report sono tutti diversi senza
duplicati).


title: Unificare due DB in uno

text:
"Filippo Marafioti" <
fip...@libero.it
> ha scritto nel messaggio news:RIyWe.3774$9l.9...@twister1.libero.it...
>
> Tutto chiaro........................ quello che non comprendo e se devo importare tutte le tabelle dei due DB nell'unico DB che
> devo ottenere (ma cosě facendo non perdo le relazioni?); inoltre se importo tutte le tabelle dei due DB avrň delle tabelle
> duplicate (i report sono tutti diversi senza duplicati).
Puoi collegare le tabelle cambiando il nome delle tabelle (collegate); le relazioni con le vecchie tabelle le mantieni proprio
importando nella nuova tabella anche l'id vecchio...
Ciao.
--
Sergio MAZZA


title: access 2007: Report e salto pagina

author: Dal Monte

text:
Salve a tutti,
ho un report che vorrei facesse il salto pagina (come l'interruzione di
pagina di word) al cambiare di un valore di un campo.
Mi spiego meglio: ho una tabella di questo tipo:
codice    colore1
a             bianco
b            bianco
c            bianco
d            rosso
e            verde
I dati per il report sono ordinati per il campo "colore1", ma vorrei che
quando cambia colore, mi facesse un'interruzione... è possibile fare cio'?
Grazie 1000
D.


title: access 2007: Report e salto pagina

text:

Puoi aggiungiere un raggruppamento per il campo "colore1" con un piè
di pagina del gruppo. Nelle proprietà della sezione piè di pagina del
gruppo imposta l'altezza a 0 e "Interruzione pagina" a "Dopo sezione".
Se prima devi ordinare per "codice" devi prima impostare
un gruppo per questo campo e poi procedere come descritto.
Se non sai come raggruppare, vedi
http://office.microsoft.com/it-it/access-help/HA010006894.aspx#BMaddgroupstoexistingreport
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: access 2007: Report e salto pagina

text:
"Karl Donaubauer"  ha scritto nel messaggio
news:9c1ul1...@mid.individual.net...
Dal Monte wrote:
> ho un report che vorrei facesse il salto pagina (come l'interruzione
> di pagina di word) al cambiare di un valore di un campo.
> Mi spiego meglio: ho una tabella di questo tipo:
> codice    colore1
> a             bianco
> b            bianco
> c            bianco
> d            rosso
> e            verde
>
> I dati per il report sono ordinati per il campo "colore1", ma vorrei
> che quando cambia colore, mi facesse un'interruzione... č possibile
> fare cio'?
Puoi aggiungiere un raggruppamento per il campo "colore1" con un pič
di pagina del gruppo. Nelle proprietą della sezione pič di pagina del
gruppo imposta l'altezza a 0 e "Interruzione pagina" a "Dopo sezione".
Se prima devi ordinare per "codice" devi prima impostare
un gruppo per questo campo e poi procedere come descritto.
Se non sai come raggruppare, vedi
http://office.microsoft.com/it-it/access-help/HA010006894.aspx#BMaddgroupstoexistingreport
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it
Grazie 1000 ci sono riuscito grazie al tuo aiuto!
Ciao,
D.


title: ordinamento campo data  null

text:
ciao a tutti

ho necessità di ordinare in una query il campo "data" decresciente, mentre se "data" è null il record corrispondente al primo posto.
Ho provato cosi', ma nulla di fatto

iif(nz(Data;0)=0;Fomat(1/1/2020);Data)

perchè il record senza data va al primo posto, ma i record con le date
non hanno l'ordinameno decrescente.

grazie


title: ordinamento campo data  null

author: Mancini

text:
> ho necessità di ordinare in una query il campo "data" decresciente, mentre se "data" è null il record corrispondente al primo posto.
> iif(nz(Data;0)=0;Fomat(1/1/2020);Data)
>
> ..... ma i record con le date non hanno l'ordinameno decrescente.

Quella formula che esponi è un pò strana,
sarà una svista di Copia/incolla

i record con data non hanno ordinamento crescente perché il format
ti restituisce ina stringa,   quindi hai un ordinamento di questo tipo:
25/05/2015
20/07/2015
15/02/2015
eccetera

io abbandonerei il format a favore della conversione della data in numero
tenendo conto che oggi siamo circa al 42.000  ( si inizia a contare dal 30/12/1899 )
CDbl(Nz([Data];100000))

.


title: ordinamento campo data  null

text:

grazie


title: Problema con UNDO

author: Daniele Fantoni

text:
Ciao a tutti!
Ho una form di inserimento dei dati di un cliente... I soliti campi nome,
cognome e codice fiscale.
Ho un controllo sul codice fiscale che verifica che non esista gia' nella
tabella e che sia di 16 caratteri... Quando commetto un errore
nell'inserimento del CF compare il msg di errore e vorrei che venisse
cancellato il codice errato appena digitato in modo che l'utente possa
ridigitarlo; come posso gestire questo evento? Ho provato con Me.Undo ma mi
cancella il contenuto di tutta la form.
Grazie!


title: Problema con UNDO

author: Roberto dal portatile

text:
"Daniele Fantoni" <
dfan...@tiscalinet.it
> ha scritto nel messaggio
news:ZIMr6.11929$6W.8...@news.infostrada.it...

A fronte dell'evento "Dopo aggiornamento" del controllo che contiene il
codice fiscale
Me![NomeControlloCF].Undo
Me![NomeControlloCF].SetFocus
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Problemi con QueryDef e RowSource...

author: Andrea L.

text:
Ringrazio in anticipo chiunque riesca a darmi un suggerimento...
Ho questo problema,
Devo testare se una determinata query restituisce dei record, se non
restituisce nessun record esco dalla form senza eseguire il grafico.
Ho due problermi:
1) L'esecuzione della query fatta da codice vba restituisce sempre dei
record anche quando il recordset dovrebbe essere vuoto. Infatti la
stessa query con gli stessi parametri eseguita da Query di Access
risulta vuota. Non è che devo fare qualche impostazione sui campi Data
della form in cui ho inserito i campi Data (dfDal e dfAl)?
2) Ho dovuto creare questo meccanismo in quanto se il recordset della
query è vuoto le proprietà RowSourceType e RowSource danno RuntimeError,
come se la proprietà "RowsourceType" non esista.
Allego la procedura e la query coinvolte.
Grazie di nuovo a tutti,
Andrea
...............................................................
Private Sub Form_Load()
Dim dbs As Database
Dim qdf As QueryDef
Dim rst As Recordset

    If [Forms]![IMAC]![opz_TipoEstraz].Value = 1 Then
         Set dbs = CurrentDb
         Set qdf = dbs.QueryDefs("IMAC_PERGRAF_TRIM")
         qdf.ReturnsRecords = True
         qdf.Parameters(0) = Forms!IMAC.dfBancaSel
         qdf.Parameters(1) = Forms!IMAC.dfDal
         qdf.Parameters(2) = Forms!IMAC.dfAl
         qdf.Parameters(3) = Forms!IMAC!opz_Urgenze.Value

         Set rst = qdf.OpenRecordset

         If rst.RecordCount > 0 Then
             Me.Grafico15.RowSourceType = "Tabella/Query"
             Me.Grafico15.RowSource = "IMAC_PERGRAF_TRIM"
         Else
             MsgBox "Nessun Record da Processare",
             vbCritical, "RECORDSET VUOTO"
             DoCmd.Close acForm, "m_imac_sla_GRAFICO"
         End If
         rst.Close
         qdf.Close
         Set dbs = Nothing
         Me.Grafico15.RowSourceType = "Tabella/Query"
         Me.Grafico15.RowSource = "IMAC_PERGRAF_TRIM"
    ElseIf [Forms]![IMAC]![opz_TipoEstraz].Value = 2 Then
         Set dbs = CurrentDb
         Set qdf = dbs.QueryDefs("IMAC_PERGRAF_MESE")
         qdf.ReturnsRecords = True
         qdf.Parameters(0) = Forms!IMAC.dfBancaSel
         qdf.Parameters(1) = Forms!IMAC!opz_Urgenze.Value
         qdf.Parameters(2) = Format(Forms!IMAC.dfDal, "yyyy/mm/dd")
         qdf.Parameters(3) = Format(Forms!IMAC.dfAl, "yyyy/mm/dd")

         Set rst = qdf.OpenRecordset

         If rst.RecordCount > 0 Then
             Me.Grafico15.RowSourceType = "Tabella/Query"
             Me.Grafico15.RowSource = "IMAC_PERGRAF_MESE"
         Else
             MsgBox "Nessun Record da processare",
             vbCritical, "RECORDSET VUOTO"
             DoCmd.Close acForm, "m_imac_sla_GRAFICO"
         End If

         rst.Close
         qdf.Close
         Set dbs = Nothing
         Me.Grafico15.RowSourceType = "Tabella/Query"
         Me.Grafico15.RowSource = "IMAC_PERGRAF_MESE"
    End If
End Sub
SELECT ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Urgenza,
(IIf([Forms]![IMAC]![dfBancaSel]<>"",[BANCHE].[Codice],"Tutte")) AS
Banca,
DatePart("q",DateAdd("s",[ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST].[Data_di_Chiusura]+7200,"01-01-1970"))
AS Trimestre,
(IIf(Data_di_Chiusura-ACT_Fine_Prevista>0,"FUORI","DENTRO")) AS
STATOATT,
Sum(ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Quantita) AS SommaDiQuantita
FROM ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST INNER JOIN BANCHE ON
ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Societa = BANCHE.Filiale
WHERE (((ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Workflow)="Chiusa" Or
(ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Workflow)="Terminata") AND
((IIf([Forms]![IMAC]![dfBancaSel]<>"",([BANCHE].[Codice])=[Forms]![IMAC]![dfBancaSel],([BANCHE].[Codice])
Like "*"))<>False) AND
((Left([ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST].[Urgenza],1))=[Forms]![IMAC]![opz_Urgenze])
AND
((IIf([ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST].[Data_di_Chiusura]>0,(DateAdd("s",[ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST].[Data_di_Chiusura]+7200,"01-01-1970")
Between [Forms]![IMAC]![dfDal] And
[Forms]![IMAC]![dfAl]),False))<>False) AND
((ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Tipo_Richiesta) Not Like
"*prog*") AND ((ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.TipoAttivita) Not
Like "*trasp*"))
GROUP BY ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST.Urgenza,
(IIf([Forms]![IMAC]![dfBancaSel]<>"",[BANCHE].[Codice],"Tutte")),
DatePart("q",DateAdd("s",[ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST].[Data_di_Chiusura]+7200,"01-01-1970")),
(IIf(Data_di_Chiusura-ACT_Fine_Prevista>0,"FUORI","DENTRO"))
ORDER BY
DatePart("q",DateAdd("s",[ARAdmin_LSS_RM__JOIN_ATTIVITA_RICHIEST].[Data_di_Chiusura]+7200,"01-01-1970"));
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Problemi con QueryDef e RowSource...

author: Antonio Biso

text:
"Andrea L." <
andr...@inwind.it
> ha scritto nel messaggio
news:39801f34c486d7ac745...@mygate.mailgate.org...
> Ringrazio in anticipo chiunque riesca a darmi un suggerimento...
>
> Ho questo problema,
> Devo testare se una determinata query restituisce dei record, se non
> restituisce nessun record esco dalla form senza eseguire il grafico.
> Ho due problermi:
> 1) L'esecuzione della query fatta da codice vba restituisce sempre dei
> record anche quando il recordset dovrebbe essere vuoto. Infatti la
> stessa query con gli stessi parametri eseguita da Query di Access
> risulta vuota. Non è che devo fare qualche impostazione sui campi Data
> della form in cui ho inserito i campi Data (dfDal e dfAl)?
>          qdf.Parameters(1) = Forms!IMAC.dfDal
>          qdf.Parameters(2) = Forms!IMAC.dfAl
Forse qui devi trasformare le tue date nel formato mm/gg/aaaa circondate da
#
Prova a inserire delle date che se valutate come mm-gg comunque non ti danno
valori e vedi cosa succede.
Infine, personalmente, preferisco non utilizzare i parameters ma mi creo
sempre l'intera stringa sql da codice.
Ma de gustibus...
Antonio


title: Problemi con QueryDef e RowSource...

author: Andrea Longo

text:
"Antonio Biso" <
ch...@libero.it
> wrote in message
news:zieKa.118111$
Ny5.3...@twister2.libero.it
> >          qdf.Parameters(1) = Forms!IMAC.dfDal
> >          qdf.Parameters(2) = Forms!IMAC.dfAl
>
> Forse qui devi trasformare le tue date nel formato mm/gg/aaaa circondate da
> #
> Prova a inserire delle date che se valutate come mm-gg comunque non ti danno
> valori e vedi cosa succede.
Ciao Antonio...
Ho provato a metterla cosi'
 qdf.Parameters(1) = "#" & Format(Forms!IMAC.dfDal, "mm/dd/yyyy") & "#"
 qdf.Parameters(2) = "#" & Format(Forms!IMAC.dfAl, "mm/dd/yyyy") & "#"
ma ora non tira fuori mai nulla, anche quando dovrebbero esserci dei
record.
> Infine, personalmente, preferisco non utilizzare i parameters ma mi creo
> sempre l'intera stringa sql da codice.
> Ma de gustibus...
>
> Antonio
Non vedo come darti torto infondo fino a qualche tempo fa programmavo
in "Centura Team Developer" e non avevo altro modo che scrivere sql nel
codice. Ma ora sono "costretto" a lavorare con Access, per necessità
del cliente ed ho trovato molto utile costruire le query nidificate
utilizzando delle "Query" semplici legandole assieme con access, è
innegabile che in questo modo si renda la lettura, e quindi la
manutenzione più amichevole e immediata.
Comunque se mi scontro con questi limiti proverò a costruire la mia
query
sql da codice... è che sono almeno quattro Select nidificate.. speriamo
bene..
Grazie comunque della tua risposta..
Andrea



title: Problemi con QueryDef e RowSource...

text:
"Antonio Biso" <
ch...@libero.it
> wrote in message
news:zieKa.118111$
Ny5.3...@twister2.libero.it
....
> >          qdf.Parameters(1) = Forms!IMAC.dfDal
> >          qdf.Parameters(2) = Forms!IMAC.dfAl
>
> Forse qui devi trasformare le tue date nel formato mm/gg/aaaa circondate da
> #
> Prova a inserire delle date che se valutate come mm-gg comunque non ti danno
> valori e vedi cosa succede.
> Infine, personalmente, preferisco non utilizzare i parameters ma mi creo
> sempre l'intera stringa sql da codice.
> Ma de gustibus...
>
> Antonio
Finalmente sembra che ho risolto ... Dovevo usare la dichiarazione
"PARAMETERS"
e dichisrare esplicitamente i parametri della query assegnano ad ognuno
il tipo dati corretto.
ora funziona correttamente. Senza trasformare i campi data.
Grazie.
Andrea



title: Legame Form-SubForm

text:
Ho una Form “Fatture” in cui ho tutti controlli associati
In tale Form ho una SubForm “Articoli” collegata in cui inserisco per
ogni articolo
la quantità  e  il  prezzo calcolandone il totale.
Nel Piè di Pagina della SubForm ho un controllo “SommaTotaleArticoli”
in cui sommo tutti i totali.
Nella Form principale ho messo una casella di testo non associata che
ho chiamato “Totale Fattura” la cui origine controllo è impostata a
“=
NomeSottomaschera.Form!SommaTotaleArticoli”.
Come faccio a memorizzare il valore della casella di testo “Totale
Fattura” su un campo del record su cui è basata la Form  principale ?
Ho provato in varie maniere, inviando anche 2 post, ma senza successo
Grazie anticipatamente a chi può aiutarmi
Antonio


title: Legame Form-SubForm

author: Alessandro Cara

text:
coib...@yahoo.it
 ha scritto:
[cut]
> NomeSottomaschera.Form!SommaTotaleArticoli”.
> Come faccio a memorizzare il valore della casella di testo “Totale
> Fattura” su un campo del record su cui è basata la Form  principale ?
> Ho provato in varie maniere, inviando anche 2 post,
cosi' non ha mai funzionato neanche a me
evento beforeupdate di form e aggiorni:
1) o direttamente il recordset che sottende il form
2) o un controllo nascosto e legato al form
"meibi" i campi calcolati sarebbe bene non metterli sulla base dati.
--
ac


title: Legame Form-SubForm

text:
Alessandro Cara ha scritto:
> 2) o un controllo nascosto e legato al form
uhmmm.........
2) o un controllo nascosto e associato alla fonte dati
--
ac


title: dividere il testo di un campo di una tabella in più campi

author: Sthepan

text:
Ciao,
vi espongo il mio problema.
Ho una tabella con vari campi, nel campo "Intestatario", ho il cognome e
nome di una determinata persona, ho l'esigenza di suddividere tutte le
lettere che compongono il nome e cognome e inserirle ciancuna in una campo
della tabella.
Esempio:
Campo "Intestatario"   - CAIO SEMPRONIO
Campo "I_1"            - C
Campo "I_2"	       - A
Campo "I_3"	       - I
Campo "I_4"	       - O
Campo "I_5"	       - spazio vuoto
Campo "I_6"	       - S
Campo "I_7"            - E
Campo "I_8"            - M
e via di sequito
mi interessa sapere se esiste un sistema, o una funzione adatta allo scopo
grazie
Sthepan


author: Carlo Costarella

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:17lmlgwtvfigh$.ow8sym19rf5z.dlg@40tude.net...

L'operazione è più difficile a dirsi che a farsi.
Prima di tutto devi conoscere la lunghezza massima di un "intestatario".
Quindi crearti una tabella con N campi e poi usare un po di codice per
trasferire i dati.
Potresti anche fare tutto da codice compresa la creazione della tabella.
Si tratta di creare qualche ciclo ma nulla di impossibile.
Parole chiave: Mid, Len, Instr, For...next, Field, Table, ecc.
Ciao, Carlo


author: ALESSANDRO Baraldi

text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:17lmlgwtvfigh$.ow8sym19rf5z.dlg@40tude.net...

Mi incuriosice molto saperne il perchč....., trovo la cosa un pň fuori
dagli schemi....!
Innanzitutto ogni Tabella puň contenere al MAX 255 campi, pertanto
nel tuo caso quanti campi prevedi di usare....??
Campo "I_1"
......
Campo "I_255"
Tutti...?
La cosa č un pň anomala ma provo a scriverti 2 righe.
Uso le Transazioni al fine di rendere decisamente piů veloce il
ciclo altrimenti sarebbe abbastanza lento.
Private Function SplitIntestatario() as boolean
    On Error Goto Err_Split
    Dim rsO as DAO.Recordset
    Dim rsD as DAO.Recordset
    Dim X as Integer
    DBEngine.BeginTrans
    Set rsO=CurrentDatabase.OpenRecordset("SELECT [Intestatario] FROM
NomeTabellaOrigine")
    Set rsD=CurrentDatabase.OpenRecordset("SELECT * FROM
NomeTabellaDestinazione")
    If rso.Eof then Exit funxtion
    Do until rsO.Eof
        For x=1 to Len(rsO!Intestatario)
            rsD.AddNew
            rsd.Fields(x)=Mid$(rsO!Intestatario,x,1)
            rsD.Update
        Next
        rsO.Movenext
    Loop
    DBEngine.CommitTrans
    SplitIntestatario=True
Exit_Here:
   DB.close
   Set DB=Nothing
   Exit Sub
Err_Split:
	    DBEngine.Rollback
    MsgBox Err.Description
    SplitIntestatario=False
    Resume Exit_Here
End Sub
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
In data Sat, 9 Jul 2005 19:51:19 +0200, ALESSANDRO Baraldi ha scritto:
> "Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
> news:17lmlgwtvfigh$.ow8sym19rf5z.dlg@40tude.net...
>> Ciao,
>>
>> vi espongo il mio problema.
>>
>> Ho una tabella con vari campi, nel campo "Intestatario", ho il cognome e
>> nome di una determinata persona, ho l'esigenza di suddividere tutte le
>> lettere che compongono il nome e cognome e inserirle ciancuna in una campo
>> della tabella.
>> Esempio:
>>
>> Campo "Intestatario"   - CAIO SEMPRONIO
>>
>> Campo "I_1"            - C
>> Campo "I_2"        - A
>> Campo "I_3"        - I
>> Campo "I_4"        - O
>> Campo "I_5"        - spazio vuoto
>> Campo "I_6"        - S
>> Campo "I_7"            - E
>> Campo "I_8"            - M
>> e via di sequito
>>
>> mi interessa sapere se esiste un sistema, o una funzione adatta allo scopo
>>
>> grazie
>> Sthepan
>
> Mi incuriosice molto saperne il perchè....., trovo la cosa un pò fuori
> dagli schemi....!
>
> Innanzitutto ogni Tabella può contenere al MAX 255 campi, pertanto
> nel tuo caso quanti campi prevedi di usare....??
> Campo "I_1"
> ......
> Campo "I_255"
>
> Tutti...?
> La cosa è un pò anomala ma provo a scriverti 2 righe.
>
> Uso le Transazioni al fine di rendere decisamente più veloce il

Ciao e Grazie per l'aiuto ora provo a metterlo in pratica.
Soddisfo la tua curiosità, mi sto cercando di creare un sistema di
compilare e quindi stampare il nuovo modello CH8Bis delle Poste, classico
bollettino di conto corrente. Visto che il nuovo modello prevede tutte
caselline da riempire per essere compilato, quello che mi è venuto in mente
per riuscire a farlo è questo.
ciao
Sthepan


text:
> Ciao e Grazie per l'aiuto ora provo a metterlo in pratica.
>
> Soddisfo la tua curiosità, mi sto cercando di creare un sistema di
> compilare e quindi stampare il nuovo modello CH8Bis delle Poste, classico
> bollettino di conto corrente. Visto che il nuovo modello prevede tutte
> caselline da riempire per essere compilato, quello che mi è venuto in
mente
> per riuscire a farlo è questo.
>
> ciao
> Sthepan
MMmmmmm!!!
Secondo me, stai prendendo la cosa dal lato meno comodo.
Faresti molto meglio a scomporre il Nome durante la stampa
con una Routine dedicata da eseguire nell'Evento Formattazione
del CORPO.
Probabilmente sarai costretto sempre a spezzare in lettere, ma
non a riempire una Tabella che trovo decisamente NON UTILE.
Tra le altre cose il Numro di CASELLE è FISSO pertanto ti sarà
semplice ricostruirle in un Report, e casualmente Chiamarle con
il progressivo in modo da passare AUTOMATICAMENTE il valore
indicizzandone il nome....!!!!
For x=1 to Len(Me!Intestatario)
        Me.Controls("Casellina_" & cstr(x))=Mid$(Me!Intestatario,x,1)
Next
Mi pare un risparmio di tempo e codice non intifferente........



title: Report che fa l'Indiano!!!!!

author: Antonio Colazzo

text:
Salve, in breve:
utilizzando una macro per ricercare un nome e un cognome, tutto funziona, il
problema sorge quando voglio stampare il tutto.
Il report selezionato per l'anteprima di stampa mi visualizza solo un
record, però se io vado manualmente all'ultimo record, nella maschera che
visualizza il risultato, e poi vado in anteprima di stampa sul report
specificato tutto funziona.
Dove ho sbagliato???


title: Report che fa l'Indiano!!!!!

author: Roberto da casa

text:
"Antonio Colazzo" <
antoni...@tiscalinet.it
> ha scritto nel messaggio
news:8qic3e$f1c$1...@lacerta.tiscalinet.it...

Ma cosa hai come origine record del report?
Di solito in questi casi, come origine record del report si usa una query di
selezione i cui criteri fanno riferimento a dei controlli di una maschera.
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------


title: Urgentissimo !!!! Aiutatemi !!!! Formato di database non riconosciuto !!!!

author: Marco

text:
Un infinito ringraziamento a chi avrà la pazienza di rispondermi !! :-)
Questa mattina mi ha chiamato il negozio a cui ho elaborato un
archivio-gestione clienti.
Tutto ha funzionato fino ad oggi dopo 3 mesi di inserimento dati.
Cosa è successo?
Non appena apro le maschere che contengano in qualche modo dati della
tabella clienti compare il seguente errore e di conseguenza non posso più
accedere all'archivio:
FORMATO DI DATABASE 'CLIENTI.MDB' NON RICONOSCIUTO (3343)
Unica cosa che posso dire è che la tabella Clenti contiene 3014 record
(...con i soliti dati del cliente)
A cosa devo pensare???
Marco


author: DanieleF

text:
"Marco" <
mik...@libero.it
> ha scritto nel messaggio
news:QHsq5.148387$dF5.2...@news.infostrada.it...

Hai già provato a ripristinare, compattare e riaprire, oppure a creare un
nuovo mdb, importare quanto contenuto nel vecchio e riaprire?
Se sì, allora spero che ti risponda qualcuno che ne sa più di me!
Ciao


author: pietro

text:
"Marco" <
mik...@libero.it
> ha scritto nel messaggio
news:QHsq5.148387$dF5.2...@news.infostrada.it...
> Un infinito ringraziamento a chi avrà la pazienza di rispondermi !! :-)
>
> Questa mattina mi ha chiamato il negozio a cui ho elaborato un
> archivio-gestione clienti.
>
> Tutto ha funzionato fino ad oggi dopo 3 mesi di inserimento dati.
> Cosa è successo?
> Non appena apro le maschere che contengano in qualche modo dati della
> tabella clienti compare il seguente errore e di conseguenza non posso più
> accedere all'archivio:
>
> FORMATO DI DATABASE 'CLIENTI.MDB' NON RICONOSCIUTO (3343)
>
>
> Unica cosa che posso dire è che la tabella Clenti contiene 3014 record
> (...con i soliti dati del cliente)
>
> A cosa devo pensare???
> Marco
>
>
>
Questo errore appare quando tenti di aprire un file mdb di access2000 con
access97
non e' che percaso il tuo cliente ha convertito il db in A2000 per poi
riaprirlo con A97 ?
ciao pietro


author: Graziano Franchi (Da Casa)

text:
Non ha azzerato con aperto il database ????
Saluti


text:
Ti chiedo scusa e ti ringrazio in anticipo per una tua ulteriore risposta
:-)
Non ho capito bene cosa vuoi intendere per azzerato con aperto.
Ciao e a presto
Marco
Graziano Franchi (Da Casa) <
franchi...@centoservizi.it
> wrote in message
8oedr2$4s7$1...@news.IT.net...



author: Sib

text:
"Marco" dice
> Ti chiedo scusa e ti ringrazio in anticipo per una tua ulteriore risposta
> :-)
>
> Non ho capito bene cosa vuoi intendere per azzerato con aperto.
>
> Ciao e a presto
> Marco
>
>
> Graziano Franchi (Da Casa) disse
> > Non ha azzerato con aperto il database ????
> > Saluti
Penso intendesse dire:
Resettato con il database aperto.
Ciao, Sib


title: notti che non dormo ma non riesco a capire

text:
in una maschera ricerche o questo codice che allego
non riesco a far filtrare la casellacontrollo trasferito e casellacontrollo
rientro

grazie
D.M

Private Sub Cerca_Click()
    On Error GoTo HELL
        Dim sSQL

            sSQL = "SELECT Paz_tutto.id, Paz_tutto.Paziente,
Paz_tutto.data_ricovero, Paz_tutto.Anno, Paz_tutto.Mese, Paz_tutto.Regime,
Paz_tutto.Trasferito, Paz_tutto.Rep_Trasf, Paz_tutto.Rientro " & _
            "FROM Paz_tutto"

            If [Form_InfoPaztot].Paziente.Value <> vbNullString Or _
               [Form_InfoPaztot].Anno.Value <> vbNullString Or _
               [Form_InfoPaztot].Mese.Value <> vbNullString Or _
               [Form_InfoPaztot].Regime.Value <> vbNullString Or _
               [Form_InfoPaztot].Trasferito = True Or _
               [Form_InfoPaztot].Rientro = True Or _
               [Form_InfoPaztot].CasellaControllo = True Then

            sSQL = sSQL & " WHERE"

            If [Form_InfoPaztot].Paziente.Value <> vbNullString Then
                sSQL = sSQL & " Paziente = '" &
[Form_InfoPaztot].Paziente.Value & "' AND"
            End If
            If [Form_InfoPaztot].Anno.Value <> vbNullString Then
                sSQL = sSQL & " Anno = '" & [Form_InfoPaztot].Anno.Value &
"' AND"
            End If
            If [Form_InfoPaztot].Mese.Value <> vbNullString Then
                sSQL = sSQL & " Mese = '" & [Form_InfoPaztot].Mese.Value &
"' AND"
            End If

              If [Form_InfoPaztot].Regime.Value <> vbNullString Then
                sSQL = sSQL & " Regime = '" & [Form_InfoPaztot].Regime.Value
& "' AND"
            End If

            If [Form_InfoPaztot].Trasferito.Value = True Then
                sSQL = sSQL & " Trasferito = '" &
[Form_InfoPaztot].Trasferito.Value & "' AND"
            End If

            If [Form_InfoPaztot].Rientro.Value = True Then
                sSQL = sSQL & " Rientro = '" &
[Form_InfoPaztot].Rientro.Value & "' AND"
            End If

            If [Form_InfoPaztot].CasellaControllo = True Then
            sSQL = sSQL & " id  >= '" & [Form_InfoPaztot].Casellaid.Value &
"' AND"

            End If
            If [Form_InfoPaztot].CasellaControllo = True Then
            sSQL = sSQL & " id  <= '" & [Form_InfoPaztot].Casellaid1.Value &
"' AND"
            End If

            sSQL = Mid(sSQL, 1, Len(sSQL) - 4)
           MsgBox sSQL
          List.RowSource = sSQL

          List.Requery

        End If

    Exit Sub
HELL:
    ' view an error msgbox with sub routine caller's name in title
    MsgBox Err.Description, vbCritical, "Form_InfoPaztot - Cerca_Click"
End Sub


author: Bruno Campanini

text:
After serious thinking D.M wrote :

Prova a mettere online il tuo database, spiegando ciò che vuoi
fare per ottener che cosa.

Bruno


text:
Ci sono APICETTI dove non dovrebbero esserci...
Solo i campi TESTO richiedono l'APICETTO prima e dopo la stringa, e i campi BOOLEANI e NUMERICI o DATA no...

Osservazione... ma vedo che oltre al campo DATA hai pure il campo ANNO e MESE...?
Grave errore... la data ha già Anno e mese non ti pare...?
Anche il primo Controllo(se sono tutti compilati) non serve a nulla dal momento che poi lo effettui nuovamente in modo singolo...!

Saluti
@Alex


text:
Grazie Apici non dovevano esserci, risolto tutto
Come sempre Grazie Grazie Grazie a tutti Voi
DM

"@Alex"  ha scritto nel messaggio
news:f8edfe1d-2d03-48f4...@googlegroups.com...



title: Funzione per tabelle collegate (dbf)

author: Nina

text:
"Rob" <dg.rob"NOSPAM"@
tiscalinet.it
> ha scritto nel messaggio
news:8v43df$fm1$1...@lacerta.tiscalinet.it...
>> Io pensavo a q.cosa che controllasse i collegamenti all'apertura
>> dell'applicazione
>> o, al limite, all'apertura di una form associata ai dati collegati.
>>
Silvio ha risposto:
>
>Ti posto un estratto della funzione che utilizzo nei miei DB.
----------------------------------------------------------------------------
>Function TabelleAllegate() As Integer
>' Aggiorna le informazioni relative alla connessione
>' delle tabelle allegate.
cut cut............................
>GoTo Uscita_Finale
 cut cut.............................
>Esiste una parte aggiuntiva che ricerca e collega anche i files .dbf: se ti
>serve fammelo sapere.
>Ciao
>Silvio
Ciao a tutti, ho ripescato questo
messaggio dall'archivio sul Sito Comune. Ebbene a me servirebbe proprio la
parte aggiuntiva di cui si parla alla fine di questo messaggio. È ancora
disponibile???? (Spero di sì). Qualcuno può postarla o mi può indicare dove
posso andarla a pescare??
Mi serve aggiornare il collegamento di tabelle da codice, riesco a farlo per
quelle residenti in un mdb mentre non mi riesce per i dbf. Qualcuno mi può
aiutare???
Grazie mille
Tonina
--
Per risposte via e-mail, togli ippo


title: ARCHIDOC

author: Maurizio

text:
Ho scaricato da Sitocomune.it il programma per archiviare i documenti,
solo che non riesco ad aprire il database in struttura.
Sarabbe possibile fare questo (sempre se l'autore del programma sia
d'accordo)?


title: ARCHIDOC

text:
"Maurizio" <
vos...@email.it
> ha scritto nel messaggio
news:KlPQd.906265$35.34...@news4.tin.it...

Il programma è "protetto", si fa per dire, ma se non ricordo male
nel SC ci dovrebbe essere la Password che consente di Spoteggerlo.
In ogni caso se accedi al menù "Protezione" digitando la PWD
PWD=sitocomune -------> Verifica
si abilita il comando "Sproteggi" con il quale si chiude tutto.
In realtà viene rimossa la protezione, quindi basta riaprirlo.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Aprire un .ADP e aspettare...

author: Alessandro

text:
Ho la necessità di lanciare in sequenza degli ADP aspettando la chiusura
di ciascuno di essi prima di passare al successivo.
Volevo farlo tramite un normalissimo MDB ma mi trovo in difficoltà
usando la funzione shell.
Più precisamente non sono riuscito a trovare il modo di imporle di
attendere la chiusura dell'eseguibile che ha avviato.
Dato che ritorna l'ID del processo che ha creato, non c'è modo di
testare lo stato del processo ed attendere che si chiuda? Con qualche
API magari.
Ciao, Alessandro
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Aprire un .ADP e aspettare...

text:
"Alessandro" <
ale...@libero.it
> wrote in message
news:e76dcfe08b299e8cc33...@mygate.mailgate.org
> Ho la necessità di lanciare in sequenza degli ADP aspettando la chiusura
> di ciascuno di essi prima di passare al successivo.
Trovato qualcosa, e sembra funzionare bene, se a qualcun altro può
servire.
Il succo della soluzione l'ho trovato su
http://www.vb2themax.com
, i
commenti in inglese vengono da lì...
Magari aggiungeteci un po' di codice per controllare gli errori.
Ciao, Alessandro
Option Compare Database
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function OpenProcess Lib "kernel32" (ByVal
dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId
As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal
hProcess As Long, lpExitCode As Long) As Long

Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400
Public Function SYS_ExecCmd(ByRef rstrCmd As String, Optional ByVal
vlngStileWin As Long = vbNormalFocus) As Long
'
'   Adotta la stessa sintassi di chiamata della funzione Shell e
restituisce il codice di
'   uscita generato dal programma al momento della sua chiusura
'
    Dim hTask As Long
    Dim hProcess As Long
    Dim exitCode As Long

    hTask = Shell(rstrCmd, vlngStileWin)
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hTask)

    ' loop until the process returns a valid exit code
    Do
        ' relinquish this CPU time slice
        Sleep 100
        DoEvents
        ' query for exit code
        GetExitCodeProcess hProcess, exitCode
    Loop While exitCode = STILL_ACTIVE

    SYS_ExecCmd = exitCode
End Function
Public Function Prova()
    Dim lng As Long

    ' Apre un .ADP e aspetta che venga chiuso visualizzando il codice di
uscita
    lng = SYS_ExecCmd(SysCmd(acSysCmdAccessDir) & "msaccess.exe
C:\sitc\pgm\access\lib\gen\09.00\lib.ADP")

    MsgBox "Libreria chiusa con codice di uscita " & lng
    DoCmd.Quit
End Function



title: Che ente certificatore firma elettronica che per utilizzo su applicativo ?

author: RobertoA

text:
Si va sempre piu' diffondendo l'uso della firma elettronica, specie per le
comunicazioni da/verso la pubblica amministrazione
La maggior parte degli enti che forniscono tale servizio forniscono un kit
comprensivo di scheda + lettore + software
E' proprio il software proprietario il nostro problema
Vorrei 'certificare' il file da inviare, tutto dall'interno del nostro
applicativo, ovviamente usando il programma (credo sia indispensabile) del
fornitore il kit firma elettronica
Quindi la domanda e':
- conoscete enti certificatori per la firma elettronica che forniscano anche
un kit 'pilotabile' dall'esterno?
Un qualcosa tipo com server, dde, o a colpi di riga comandi ?
Insomma, vorrei evitare di far eseguire la procedura di 'firma elettronica'
all'utente finale
Ciao e grazie
RobertoA


title: ottenere la data piu' alta in un recordset

author: Franco dellavalle

text:
ciao a tutti
in una sottomaschera a maschere continue
come faccio ad avere in un controllo
la data piu' alta, per i record già inseriti,
relativi al recordeset corrente, anche se mi trovo
sul record ancora vuoto?

grazie


author: mantro

text:

Un bel DMax sul valore predefinito del controllo ti potrebbe andar bene?


text:
Puoi usare diversi modi... quello migliore è una funzione che restituisce la data da recordset:

A seconda di come lavori puoi usare il RECORDSOURCE della Form oppure :

 Select Top 1, CampoData
 From TuaTabella
 where(proprietà Filter di maschera)
 Order By CampoData

Ovviamente apri un rs e restituisci dalla Function il valore e la puoi assegnare direttamente al Controlsource della textbox...

@Alex


text:

Grazie Alex
ora ci provo


text:

con RECORDSOURCE della Form
come faccio poi a trovare la data piu' alta?


text:
Apri un Recordset...?

Dim mRS as DAO.RecordSet
Dim strSQL As string
strSQL="SELECT TOP 1, CampoData FROM (" & Me.RecordSource & ") ORDER BY CampoData DESC"
Set mRS=DbEngine(0)(0).OpenRecordset(strSQL)

If Not mRS.EOF Then MsgBox mRS.Field(0).Value

Oppure...
With Me.RecordSetClone
   .SORT "CampoData DESC"
   .MoveFirst
   MsgBox .Fields("CampoData").Value
End With

Se non ti serve un Recordset ordinato... lui si riaggiorna al RECORDSET di Form... quindi non ti serve altro...

@Alex


text:

grazie Alex
ho optato per questa
With Me.Parent!SM_DettFatturaFornitore.Form.RecordsetClone
   .Sort "DataCarico DESC"
   .MoveFirst
   MsgBox .Fields("DataCarico").Value
End With

ma su .Sort "DataCarico DESC"
ho l'errore 3251; operazione non supportata per questo tipo di oggetto


text:

così non ho errore
ma non lo ordina
.Sort = "DataCarico DESC"


text:
Il RecordSetClone in effetti non è ordinabile...

Questo funziona:

    Dim mRS As DAO.Recordset

    Me.Recordset.Sort = "DataCarico DESC"
    Set mRS = Me.Recordset.OpenRecordset
    mRS.MoveFirst
    MsgBox "ARRIVO =" & mRS.Fields("DataCarico")

@Alex


text:

Grazie Alex
ottimo, funziona.

Dim mRS As DAO.Recordset

Me.Parent!SM_DettFatturaFornitore.Form.Recordset.Sort = "DataCarico DESC"
Set mRS = Me.Parent!SM_DettFatturaFornitore.Form.Recordset.OpenRecordset
mRS.MoveFirst

If mRS.Fields("DataCarico") > Me!DataDocFo Then
  MsgBox "La data Fattura deve essere superiore alla data carico!", _
    vbExclamation, "Attenzione!"
  Me.Undo

End If


author: Karl Donaubauer

text:
Salve,

Franco dellavalle:

Origine controllo:

=Max([NomeCampoData])

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

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


text:

grazie Karl

ho poi fatto cosi:

    Dim mRS As DAO.Recordset

    Me.Parent!SM_DettFatturaFornitore.Form.Recordset.Sort = "DataCarico DESC"
    Set mRS = Me.Parent!SM_DettFatturaFornitore.Form.Recordset.OpenRecordset

    If Not mRS.EOF Then
        mRS.MoveFirst
        If mRS.Fields("DataCarico") > Me!DataDocFo Then
            MsgBox "La data Fattura deve essere superiore alla data carico!", _
              vbExclamation, "Attenzione!"
            Me.Undo

        End If

    End If


text:
Salve,

Franco dellavalle:
> Karl Donaubauer ha scritto:
>>
>>> in una sottomaschera a maschere continue
>>> come faccio ad avere in un controllo
>>> la data piu' alta, per i record già inseriti,
>>> relativi al recordeset corrente, anche se mi trovo
>>> sul record ancora vuoto?
>>
>> Origine controllo:
>>
>> =Max([NomeCampoData])
> ...
> ho poi fatto cosi:
>
>      Dim mRS As DAO.Recordset
>
>      Me.Parent!SM_DettFatturaFornitore.Form.Recordset.Sort = "DataCarico DESC"
>      Set mRS = Me.Parent!SM_DettFatturaFornitore.Form.Recordset.OpenRecordset
>
>      If Not mRS.EOF Then
>          mRS.MoveFirst
>          If mRS.Fields("DataCarico") > Me!DataDocFo Then
>              MsgBox "La data Fattura deve essere superiore alla data carico!", _
>                vbExclamation, "Attenzione!"
>              Me.Undo
>
>          End If
>
>      End If
>

L'ho scritto perché l'avevo letto prima. Sembra un "Death by VBA/DAO".

--
:-)



text:

Perchè?
tu come l'avresti scritta?


text:
Salve,

Franco Dellavalle ha scritto:
> Karl Donaubauer ha scritto:
>>>>
>>>>> in una sottomaschera a maschere continue
>>>>> come faccio ad avere in un controllo
>>>>> la data piu' alta, per i record già inseriti,
>>>>> relativi al recordeset corrente, anche se mi trovo
>>>>> sul record ancora vuoto?
>>>>
>>>> Origine controllo:
>>>>
>>>> =Max([NomeCampoData])
>>> ...
>>> ho poi fatto cosi:
>>>
>>>       Dim mRS As DAO.Recordset
>>>
>>>       Me.Parent!SM_DettFatturaFornitore.Form.Recordset.Sort = "DataCarico DESC"
>>>       Set mRS = Me.Parent!SM_DettFatturaFornitore.Form.Recordset.OpenRecordset
>>>
>>>       If Not mRS.EOF Then
>>>           mRS.MoveFirst
>>>           If mRS.Fields("DataCarico") > Me!DataDocFo Then
>>>               MsgBox "La data Fattura deve essere superiore alla data carico!", _
>>>                 vbExclamation, "Attenzione!"
>>>               Me.Undo
> ...
> tu come l'avresti scritta?

Non è chiaro dove si trova il codice. Per questo non si sa qual'è il
riferimento più semplice. Però in principio con un riferimento al
controllo calcolato descritto per fare la prova di validità. Senza
recordset, sort, move ecc.

--
Ciao



text:

ciao Karl

Maschera principale "M_FatturaFornitore"
con tre sottomaschere:
1-SM_NumDocFornitori (collega campi master e secondari "IdFatturaFo")
2-SM_DettFatturaFornitore (collega campi master e secondari "IdFatturaFo")
3-SM_FattureFornitoridaRicevere

tutte con origine da query

il codice è in dopo aggiornamento
del controllo "DataDocFo"
della subform "SM_NumDocFornitori"


text:
Salve,

Franco dellavalle:
> Karl Donaubauer ha scritto:
>>>>>> ...
>>>>>> Origine controllo:
>>>>>> =Max([NomeCampoData])
>>>>> ...
>>>>>        Dim mRS As DAO.Recordset
>>>>>
>>>>>        Me.Parent!SM_DettFatturaFornitore.Form.Recordset.Sort = "DataCarico DESC"
>>>>>        Set mRS = Me.Parent!SM_DettFatturaFornitore.Form.Recordset.OpenRecordset
>>>>>
>>>>>        If Not mRS.EOF Then
>>>>>            mRS.MoveFirst
>>>>>            If mRS.Fields("DataCarico") > Me!DataDocFo Then
>>>>>                MsgBox "La data Fattura deve essere superiore alla data carico!", _
>>>>>                  vbExclamation, "Attenzione!"
>>>>>                Me.Undo
>>> ...
>> ... in principio con un riferimento al
>> controllo calcolato descritto per fare la prova di validità.
> ...
> Maschera principale "M_FatturaFornitore"
> con tre sottomaschere:
> 1-SM_NumDocFornitori (collega campi master e secondari "IdFatturaFo")
> 2-SM_DettFatturaFornitore (collega campi master e secondari "IdFatturaFo")
> 3-SM_FattureFornitoridaRicevere
>
> tutte con origine da query
>
> il codice è in dopo aggiornamento
> del controllo "DataDocFo"
> della subform "SM_NumDocFornitori"

Nuova casella di testo "txtMaxDataCarico" nella SM_DettFatturaFornitore con:

=Max([DataCarico])

Codice:

If Me.Parent!SM_DettFatturaFornitore.Form!txtMaxDataCarico >
Me!DataDocFo Then

   MsgBox "La data Fattura deve essere superiore alla data carico!", _
             vbExclamation, "Attenzione!"
             Me.Undo

End If

Forse ci vuole un nz() per assiccurare il riferimento alla casella
contro Null. Ovviamente si tratta di air code, sempre pericoloso.



text:

grazie Karl
come fai a determinare che si tratta di air code?
e invece per eviare che lo sia?


text:
Che il suggerimento di Karl sia il più semplice non vi è dubbio alcuno... ma Karl avrà modo appunto di spiegarti non solo il significato di AIR CODE, ma meglio ancora pro ed i contro di usare AIR CODE ...

In questo caso la chiamata è estremamente pulita e semplice... ma c'è chi scrive righe di codice con funzioni di aggregazione popolare ControlSource di oggetti non associati.
Sono scelte... poi ad esempio chi usa la versione in ITALIANO, Karl usa quella in inglese e non ha avuto a che fare con le varie modiciche Forms/Maschere oppure i 2 punti del generatore di espressioni... ecc quindi ha sicuramente meno criticità.

Io non utilizzo molto ad esempio questa visione di utilizzo per l'impossibilità di debug... ad esempio...

Saluti.
@Alex


text:
Salve Alex,

@Alex:
> ma Karl avrà modo appunto di spiegarti non solo il significato di AIR CODE, ma meglio ancora pro ed i contro di usare AIR CODE ...

Ah, "air code" è un'espressione abituale nei newsgroup e fori inglesi
(ed altri) per esempi di codice che non sono stati eseguiti/testati ma
solo digitati nel ng o forum. Nel tedesco usiamo anche la traduzione
"Luftcode" ma non so se esiste una versione italiano come "codice d'aria".

> ... poi ad esempio chi usa la versione in ITALIANO, Karl usa quella in inglese e non ha avuto a che fare con le varie modiciche Forms/Maschere oppure i 2 punti del generatore di espressioni... ecc quindi ha sicuramente meno criticità.

Di solito uso la versione tedesca (come la maggior parte dei clienti)
che persino e purtroppo ha più traduzioni della versione italiana, p.e.
dobbiamo combattere con traduzioni "quasi tedesco" per DLookUp
(DomWert), DMax (DomMax), DateDiff (DatDiff), DateSerial (DatSeriell)
ecc. che nella versione italiana sono sempre nell'originale/inglese. È
orribile e complica il lavoro ma siamo abituati. ;-)

Qualche volta cambio la lingua di Access a inglese, italiano o francese
per testare applicazioni internazionali o vedere/provare cosa vede la
gente nei fori ecc. Ho installato pacchetti di lingua per tutte le
versioni >= A03.

> Io non utilizzo molto ad esempio questa visione di utilizzo per l'impossibilità di debug... ad esempio...

Non sono sicuro di capire bene... sai il mio quasi italiano. ;-) Se ti
riferisci all'uso di funzioni di aggregazioni le uso molto frequente
anche in espressioni. Siamo in applicazioni di database dove per me
precedono i metodi vicino alla macchina di database. Per aggregare
valori di record niente è più "naturale", diretto, veloce delle funzioni
di aggregazione di SQL come Min, Max, Sum ecc.



text:
Ciao Karl.
Siete più complicati degli Italiani allora ;-)

Non mi riferivo alle funzioni di JET(SQL)... quelle sono ovviamente molto utili oltre che indispensabili.

Mi riferisco proprio alle funzioni di aggregazione sui domini DMax/Dlookup/... ovviamente da evitare in SQL per performance e scalabilità.
In realtà io le evito anche se usate per popolare CONTROLSOURCE...

Esempio classico che si vede spesso su Defaultvalue:

=NZ(DMAX(....;...;...);0)+1

oppure i più complessi realizzati per le PK stringa aggregate su Anno e Progressivi vari...

Mi riferivo a questi utilizzi delle funzioni per le quali è impossibile fare debug oltre ad essere meno performanti di semplici estrazione recordset...

Per questo motivo preferisco Function con gestione errori e gestione Log...

@Alex


text:
Salve Alex,

  @Alex:
> Siete più complicati degli Italiani allora ;-)
> ...

Il mercato tedesco è abbastanza importante per la MS. Per questo tanti
anni fa hanno deciso di essere gentile e tradurre quasi tutto. 20 anni
fa persino esisteva una versione tradotta di _VBA_ per Excel e Word che
era orribile.

Una rimanenza di questa politica è che quasi tutti nomi di funzioni sono
diversi in espressioni di Access e codice VBA, come mostrato nei pocchi
esempi. Ha causato millioni di errori e continua di causarli, ma è molto
gentile. ;-)



text:

grazie Alex


text:

grazie Karl


text:
....
> Il mercato tedesco è abbastanza importante per la MS. Per questo tanti
> anni fa hanno deciso di essere gentile e tradurre quasi tutto. 20 anni
> fa persino esisteva una versione tradotta di _VBA_ per Excel e Word che
> era orribile.

Credo sia fatto per gli utenti BASE, qualunque sviluppatore sarebbe contrario a questo...

> Una rimanenza di questa politica è che quasi tutti nomi di funzioni sono
> diversi in espressioni di Access e codice VBA, come mostrato nei pocchi
> esempi. Ha causato millioni di errori e continua di causarli, ma è molto
> gentile. ;-)

Si infatti anche in ITALIANO ha fatto disastri, soprattutto in alcuni cambi VERSIONE...

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

> Access FAQ:
http://www.donkarl.com/it

Ciao
@Alex


text:

mi scuso per questo...
Certo che sarebbe per me cosa
molto gradita poter inviarevi
il mio db,
per correggere
eventuali errori strutturali
e non solo...


text:
Ti rispondo per correttezza... ma per quanto riguarda me non è una pratica fattibile.
Sarebbe arrogante dare giudizi su lavori di altri di cui non si conosce nulla... ed ognuno poi ha un proprio modo di sviluppare, tu poi hai lacune tecnico-strutturali sul VBA che riuscirai sicuramente a colmare ma nel tempo...

Dare quindi un supporto come quello che chiedi e farlo seriamente con un feedback utile richiede un impegno che difficilmente ci si può permettere... e fare osservazioni superficiali non credo sia utile.

@Alex


text:
Franco Dellavalle ha scritto:
> ...
> Certo che sarebbe per me cosa molto gradita poter inviarevi
> il mio db, per correggere eventuali errori strutturali
> e non solo...

Faccio valutazioni per lavoro, cioè dura e costa il tasso orario. ;-)

Però puoi iniziare gratuitamente con
http://www.donkarl.com/it/?catalogo
.



text:

grazie


title: Addestrare un piccolo gruppo ad utilizzare access

author: AA

text:
Mi occupo di formazione aziendale.
Sto cercando un collega con buone doti comunicative per condurre un
breve corso sull'utilizzo elementare e intermedio di access.
Nel nord - est.


author: Emyr

text:


Nord-Est dove?
...collega... intendi che cerchi solo persone che si occupano di
formazione aziendale?
Saluti.
Emanuele.


text:
Verona
No, intendo una persona che programmi in access.


text:
On Wed, 09 Jan 2002 11:26:38 GMT, AA <
arich...@iol.it
> wrote:
>Verona
>No, intendo una persona che programmi in access.
>
>
spiacente PD
Saluti.
Emanuele.


author: Antonio Biso

text:
Emyr <
fan...@lavoro.com
> wrote in message
vpbo3ukbbj0dn17j4...@4ax.com...

Ma Elenella la conosci?
Antonio


text:
On Wed, 09 Jan 2002 22:50:13 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

Mai sentita, cose un formaggio?
Saluti.
Emanuele.


text:
Emyr <
fan...@lavoro.com
> wrote in message
j7cq3usriq0eortcn...@4ax.com...

Pischella molto conosciuta in rete, č il suo nick!
Antonio


title: Creare tabelle collegate a ... tabelle collegate

author: Simone calligaris

text:
La richiesta è bizzarra, ma non è un gioco di parole.
Se provate a creare una tabella collegata  a un'altra tabella collegata di
un DB
esterno usando l'interfaccia di Access ... tutto bene.
Ma sfruttando codice VB per riallegare tabelle non funziona.
Dice che "non trova la tabella in questione" al momento di accodare al
TableDef
Qualche idea?


text:
"Simone calligaris" <
simo...@libero.it
> ha scritto nel messaggio

Quando colleghi le tabelle dal menu' file/collega (quindi a mano), le
tabelle collegate che vengno create sono collegare alla base dati d'origine
e non al db intermedio.
Questa operazione di "traduzione e' automatica durante questa procedura, ma
se fai le cose da codice, access cerca *realmente* le tabelle sul db
intermedio che, non essendoci (in quanto non sono li' ma solo collegate),
provocano un errore di collegamento.
Ergo, collegati all'origine "originale".
Sib


text:
"Sib" <
> Questa operazione di "traduzione e' automatica durante questa procedura,
ma
> se fai le cose da codice, access cerca *realmente* le tabelle sul db
> intermedio che, non essendoci (in quanto non sono li' ma solo collegate),
> provocano un errore di collegamento.
> Ergo, collegati all'origine "originale".
Se Access riesce a rintracciare l'originale, dovrebbe essere possibile anche
a codice VB.
Ma come?
Ciao ;-)


text:
"Simone calligaris" <
simo...@libero.it
> ha scritto nel messaggio

Apri da codice il database intermedio e accedi alla proprieta' connect delle
tabelle, li' trovi il precorso.
Sib


text:
"Sib"
> Apri da codice il database intermedio e accedi alla proprieta' connect
delle
> tabelle, li' trovi il precorso.
Effettivamente .... ;-)
Grazie: CIAO


title: Abilitare i criteri per una query da una maschera

text:
Un saluto a tutto l'NG.
>
> Premessa.Intanto spero ci sia qualcuno di voi esperti di access che possa darmi una mano.
>
> Il mio problema:
>
>> Ho una query di selezione con i seguenti campi:
>>
> [Cod]  [N° Fattura]  [Data Fattura]  [Importo Fattura]
>
>  123    34345          12/09/2012        456,00
>  134    45654          11/02/2011        456,00
>  188    5647            05/07/2010        345676
>  123    8787            09/06/2010        9000,00

> Poi in una maschera continua ho il riepilogo di tutte le fatture con un casella di controllo (Sì/No):

  [Cod]  [Tot. Fatture]  [Importo Totale]  [Scegli di stampare]
    123           2                9456,00                   Sì/No
>  134           1                  456,00                   Sì/No
>  188           1                  456,00                   Sì/No

Quesito: come posso inserire nei criteri della query il cod che voglio stampare?

> Spero abbia espresso la questione in modo chiaro.
>
>
>
> Grazie in anticipo a chi vorrà aiutarmi.


title: Maschera o sottomaschera con records non ordinati

author: michele

text:
 Spesso mi capita una volta che ho immesso dei dati in una maschera
collegata ad una tabella, di ritrovare, una volta uscito e rientrato
nella stessa, i records non più in ordine sebbene la tabella
si dotata di un campo Contatore.
Lo stesso mi è capitato con le sottomaschere, ho provato in quest'ultimo
caso ad utilizzare nelle propietà della sottomaschera "Ordina per", ma
niente da fare.
A cosa è dovuto tale inconveniente?
grazie
michele

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


author: Roberto da casa

text:
"michele" <
mic...@inwind.it
> ha scritto nel messaggio
news:82Z51Z93Z198Y1...@usenet.libero.it...
> Spesso mi capita una volta che ho immesso dei dati in una maschera
> collegata ad una tabella, di ritrovare, una volta uscito e rientrato
> nella stessa, i records non più in ordine sebbene la tabella
> si dotata di un campo Contatore.
> Lo stesso mi è capitato con le sottomaschere, ho provato in quest'ultimo
> caso ad utilizzare nelle propietà della sottomaschera "Ordina per", ma
> niente da fare.
> A cosa è dovuto tale inconveniente?
> grazie
> michele
Nelle maschere i record, se non indicato diversamente, vengono visualizzati
per la chiave primaria della tabella che è origine record della maschera a
meno che come origine record non usi una query tramite la quale ordini i
record come ti pare.
--
Roberto
------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
-----------------------------------------------


author: pfmarro

text:
salve
ho creato un mdb per mettere dentro le tabelle temporanee da dare in pasto a Excel per tabelle pivot.

E' possibile cancellare una tabella in un altro db e ricrarla?
(cioe' da un mdb esterno creare una tabella su un altro mdb)

pensavo di utilizzare questa tecnica perche' non so a priori se c'e' già la tabella di arrivo

GRAZIE


title: da un mdb esterno creare una tabella su un altro mdb

text:
pfmarro pretended :

Esegui il codice da un button in una Form.
==================================
Public Sub MakeExternalTable()
Dim SQL As String

SQL = "SELECT Immobili.* INTO Immobili IN "
SQL = SQL & "'C:\Users\Bruno Campanini\Desktop\Database1.accdb' FROM
Immobili;"

On Error Resume Next
CurrentDb.Execute SQL

End Sub
=================================

Se la tabella Immobili già esiste nel database esterno,
viene soprascritta.

Bruno


text:

Se sei tu che gestisci questo DB TEMPORANEO... non puoi ipotizzare che abbia tutte le Tabelle che ti servono e che sia sifficiente Eliminare i dati...?
Sempre se sei tu che lo gestisci perchè non fai il LINK delle Tabelle al tuo Client per poi gestirle come LOCAL...?

Non complicarti la vita con ragionamenti strani.

@Alex


text:
grazie del messaggio

sto meditando alcune soluzioni anche perche' l'origine dei dati è una query PT che è costruita in base alle scelte dell'utente



title: filtro report da controllo calcolato si puo?

author: undo

text:
buongiorno, volevo fare una cosa banale ma non credo si possa fare
oppure proprio non ci arrivo,volevo aprire un report:
DoCmd.OpenReport "Lotti1Report", acViewPreview, , "(txRestoScarto=
0)", , True
dove il controllo textbox txRestoScarto non č associato ha come
origine una espressione.Quando si apre il report interpreta
erroneamente il filtro e mi chiede il parametro txRestoScarto la
domanda č: si possono filtrare solo i campi e di conseguenza i
controlli associati mentre non si possono filtrare i controlli che
fanno un calcolo passandone il nome come parte del filtro?
Grazie per l'eventuale risposta e complimenti ai guru del gruppo .


author: giorgio rancati

text:
"undo" <
un...@37.com
> ha scritto nel messaggio
news:8d258dd3.05041...@posting.google.com...

Ciao undo,
si possono filtrare solo i campi presenti nell'origine record del report.
Nessun controllo associato o non puň essere inserito nella WhereCondition.
Se l'origine controllo di txRestoScarto č formata da soli campi dell'rigine
record puoi metterla nella WhereCondition.
Esempio...  se
---------
txRestoScarto=Iif([Campo1]='Z';0;1)
---------
metterai nella WhereCondition
----------
Iif([Campo1]='Z',0,1)=0
-----------
Ciao Giorgio


author: Bruno Campanini

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:42619809$0$18238$5fc...@news.tiscali.it...

Deve funzionare anche con (Where)
"[CapoReport]=" & [CampoForm]
dove [CampoForm] porta il risultato di un'epressione.
Naturalmente aggiustando  la sintassi in relazione al Type
(numerico, stringa, data).
Bruno


text:
"Bruno Campanini" <
bruno.c...@tin.it
> ha scritto nel messaggio
news:JVr8e.790155$b5.35...@news3.tin.it...
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
> news:42619809$0$18238$5fc...@news.tiscali.it...
[CUT]
>
> Deve funzionare anche con (Where)
> "[CapoReport]=" & [CampoForm]
> dove [CampoForm] porta il risultato di un'epressione.
> Naturalmente aggiustando  la sintassi in relazione al Type
> (numerico, stringa, data).
si ma la domanda di undo è diversa, lui vuole riferirsi ad un controllo
esistente nel report da aprire
--------
 "[CapoReport]=" & [NomeControlloCalcolatoNelReport]
--------
io l'ho intesa così ma posso sempre aver capito male  :-)
Ciao Giorgio


text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:42625346$0$24438$5fc...@news.tiscali.it...
> "Bruno Campanini" <
bruno.c...@tin.it
> ha scritto nel messaggio
> news:JVr8e.790155$b5.35...@news3.tin.it...
>> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in
>> message
>> news:42619809$0$18238$5fc...@news.tiscali.it...
> [CUT]
>>
>> Deve funzionare anche con (Where)
>> "[CapoReport]=" & [CampoForm]
>> dove [CampoForm] porta il risultato di un'epressione.
>> Naturalmente aggiustando  la sintassi in relazione al Type
>> (numerico, stringa, data).
>
> si ma la domanda di undo č diversa, lui vuole riferirsi ad un controllo
> esistente nel report da aprire
> --------
> "[CapoReport]=" & [NomeControlloCalcolatoNelReport]
> --------
> io l'ho intesa cosě ma posso sempre aver capito male  :-)
>
> Ciao Giorgio
Se cosě fosse dovrebbe allora usare in OnOpen:
FilterOn = True
Filter = "[CampoReportBound] = " & [CampoReportCalcolato]
Sempre aggiustando  la sintassi in relazione al Type.
Ciao
Bruno


title: fatturazione elettronica - ultima documentazione e  dubbio su tipo di pagamento

author: pfm

text:
salve

purtroppo solo adesso mi dicono di preparare la fatturazione elettronica

vorrei solo creare il file xml e poi inviarlo al commercialista.

dove posso trovare la documentazione ultima delle specifiche?

questa documentazione e' l'ultima?

https://www.fatturapa.gov.it/export/fatturazione/sdi/Specifiche_tecniche_del_formato_FatturaPA_v1.0.pdf

il tipo di pagamento?

se c'e' il pos o contanti cosa devo mettere?

GRAZIE


text:
>
>
https://www.fatturapa.gov.it/export/fatturazione/sdi/Specifiche_tecniche_del_formato_FatturaPA_v1.0.pdf

Meglio se utilizzi:

https://www.agenziaentrate.gov.it/wps/content/Nsilib/Nsi/Schede/Comunicazioni/Fatture+e+corrispettivi/Fatture+e+corrispettivi+ST/ST+invio+di+fatturazione+elettronica/?page=schedecomunicazioni

Rappresentazione tabellare del tracciato fattura ordinaria - xls

> il tipo di pagamento?
>
> se c'e' il pos o contanti cosa devo mettere?

Aggiungi un Campo sulla tabella pagamenti (e la Form) dando la possibilità all'utente di specificare il codice ministeriale di pagamento, che poi andrai a creare nel Xml. La scelta del codice la farà l'utente magari con l'aiuto del commercialista.

Saluti