title: Idirizzamento di report!!!!

text:
>
> apri il report in design mode, apri Imposta Pagina, definisci come output di
> stampa 'Stampante predefinita', salva e provaa stampare.
>
> --
> 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
> --------------------------------------
grazie mille , funziona..........................


title: errore in istruzione che popola combobox

author: francesco

text:
ciao; con il seguente blocco posto sull'attivazione della combo, popolo la
stessa con i nomi delle mie tabelle:
Private Sub elenco_GotFocus()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = OpenDatabase("c:\libri\elencolibri.mdb", False, False, "MS
Access;PWD=ppppp")
For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
    Me!elenco.RowSource = Me!elenco.RowSource & tdf.Name & ";"
End If
Next
Me!elenco.RowSource = Left(Me!elenco.RowSource, Len(Me!elenco.RowSource) -
1)
Set tdf = Nothing
Set db = Nothing
End Sub
con la prima selezione, cioč ad apertura form e passaggio parametri ad un
report per la stampa dei record chiusura report, tutto ok; se faccio
un'altra selezione, a chiusura del report per la seconda volta, mi genera
un'errore di run-time che recita:
Impostazione troppo lunga per questa proprietŕ
e nel debug mi evidenzia la stringa:
Me!elenco.RowSource = Me!elenco.RowSource & tdf.Name & ";"
non riesco a capire il perché
grazie
F
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Alessandro Baraldi

text:
"francesco" <
d...@tin.it
> wrote in message
news:151Z38Z188Z87Y...@usenet.libero.it
> ciao; con il seguente blocco posto sull'attivazione della combo, popolo la
> stessa con i nomi delle mie tabelle:
>
[CUT]
> non riesco a capire il perché
>
> grazie
>
> F
Valuta se questo metodo è meno complesso:
Inserici nel ControlSource questo:
SELECT MSysObjects.Name FROM MsysObjects _
WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND
(MSysObjects.Type)=1 _
ORDER BY MSysObjects.Name;
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


text:
                    Il 17 Set 2005, 10:12, "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto:
> "francesco" <
d...@tin.it
> wrote in message
>
news:151Z38Z188Z87Y...@usenet.libero.it
>
> > ciao; con il seguente blocco posto sull'attivazione della combo, popolo
la
> > stessa con i nomi delle mie tabelle:
> >
> [CUT]
> > non riesco a capire il perché
> >
> > grazie
> >
> > F
>
> Valuta se questo metodo č meno complesso:
>
> Inserici nel ControlSource questo:
>
> SELECT MSysObjects.Name FROM MsysObjects _
> WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND
> (MSysObjects.Type)=1 _
> ORDER BY MSysObjects.Name;
>
> Ciao
> @Alex
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG
>

Ho provato a mettere la stringa nell'origine riga e origine controllo ma non
funziona; ho provato a fare cosě ma neanche funziona:
Private Sub elencoesami_GotFocus()
Dim db As DAO.Database
Set db = OpenDatabase("c:\libri\libri.mdb", False, False, "MS
Access;PWD=pppp")
Me!elencolibri.RowSource = "SELECT MSysObjects.Name FROM MsysObjects WHERE
(Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys")
AND(MSysObjects.Type)=1 ORDER BY MSysObjects.Name;"
Set db = Nothing
End Sub
grazie



text:
"francesco" <
d...@tin.it
> wrote in message
news:151Z38Z188Z87Y1...@usenet.libero.it
Io ho riprovato per scrupolo ad inserire nell'Origine Riga
di una Combo e di una ListBox questo e funziona:
SELECT MsysObjects.Name FROM MsysObjects WHERE
(((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1)) ORDER BY
MsysObjects.Name;
Saluti.



author: Roberto dalla campagna

text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
news:151Z38Z188Z87Y1...@usenet.libero.it...

Non ha alcun significato aprire un database prima di impostare l'origine
riga della casella combinata come hai fatto tu, in quanto quel codice SQL
funziona ESCLUSIVAMENTE per visualizzare l'elenco delle tabelle del database
corrente, ma non funziona certo per visualizzare la lista delle tabelle di
un altro database, a meno che non si modifichi adeguatamente la FROM di quel
codice SQL.
Ciň premesso resta il fatto che quel codice SQL devi scriverlo direttamente
nell'origine riga della casella combinata e non impostarlo da codice VBA a
fronte dell'evento "Su attivato" della casella combinata stessa
(eventualmente potresti farlo a fronte dell'evento "Su caricamento" della
maschera).
Se imposterai l'origine riga come consigliato da Alessandro Baraldi
ricordati che il Tipo origine riga DEVE essere impostato a "Tabella/Query".
>
> grazie
>
> F
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
news:151Z38Z188Z87Y...@usenet.libero.it...
> ciao; con il seguente blocco posto sull'attivazione della combo, popolo la
> stessa con i nomi delle mie tabelle:
>
> Private Sub elenco_GotFocus()
> Dim db As DAO.Database
> Dim tdf As DAO.TableDef
> Set db = OpenDatabase("c:\libri\elencolibri.mdb", False, False, "MS
> Access;PWD=ppppp")
> For Each tdf In db.TableDefs
> If Left(tdf.Name, 4) <> "MSys" Then
>     Me!elenco.RowSource = Me!elenco.RowSource & tdf.Name & ";"
> End If
> Next
> Me!elenco.RowSource = Left(Me!elenco.RowSource, Len(Me!elenco.RowSource) -
> 1)
> Set tdf = Nothing
> Set db = Nothing
> End Sub
>
> con la prima selezione, cioè ad apertura form e passaggio parametri ad un
> report per la stampa dei record chiusura report, tutto ok; se faccio
> un'altra selezione, a chiusura del report per la seconda volta, mi genera
> un'errore di run-time che recita:
>
> Impostazione troppo lunga per questa proprietà
>
> e nel debug mi evidenzia la stringa:
>
> Me!elenco.RowSource = Me!elenco.RowSource & tdf.Name & ";"
>
> non riesco a capire il perché
A mio avviso se il codice di cui sopra invece di generarlo a fronte
dell'evento "Su attivato" della casella combinata lo generi a fronte
dell'evento "Su caricamento" della maschera non dovresti avere più alcun
problema.
Comunque è validissima anche la soluzione di Alessandro Baraldi, anzi è
molto più elegante, solo che il codic eSQL che lui ti ha consigliato lo devi
scrivere direttamente nella proprietà Origine riga della casella combinata e
non impostarlo da codice VBA a fronte dell'evento "Su attivato", altrimento
sei da capo a dodici. Naturlamente se usi la soluzione di Alessandro Baraldi
dovrai cambiare la proprietà Tipo origine riga della casella combinata da
"Elenco valori" (come ritengo sia ora impostata) a "Tabella/Query". Resta il
fatto che con quella soluzione potrai visualizzare nella casella combinata
esclusivamente l'elenco delle tabelle del database corrente.
>
> grazie
Prego



text:
                    Il 17 Set 2005, 12:25, "Roberto dalla campagna" <
r.masso...@libero.it
>
ha scritto:

Caro Roberto grazie come sempre per le info preziose. Ho fatto come dicevi e
ho trasferito il codice al caricamento della maschera e pare tutto ok.
Adesso sto impazzendo con il passaggio dei dati ad un report per la stampa.
Dando un'occhiata qua e la nei vari post ho trovato una tua soluzione per la
stampa di una query a campi incrociati che secondo me va bene anche nel mio
caso; il codice è:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "libri"
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim Conta As Integer
Set qdf = CurrentDb().QueryDefs("libri")
Conta = 1
For Each fld In qdf.Fields
    Me("Etichetta" & Trim(Conta)).Caption = fld.Name
    Me("Etichetta" & Trim(Conta)).Visible = True
    Me("Controllo" & Trim(Conta)).ControlSource = fld.Name
    Me("Controllo" & Trim(Conta)).Visible = True
    Conta = Conta + 1
Next
End Sub
ma ovviamente non funziona. Gli errori sono diversi, vanno da origine record
inesistente, poi invece il report si apre; altro errore che il db è stato
messo in una posizione etc. etc. insomma mi sto perdendo.
Ricapitolando, data una stringa, selezionata da combo, che corrisponde ad
una delle tabelle contenute in un db esterno che apro con la routines di cui
sopra, messa in evento apertura maschera come da te consigliato per popolare
la combo, devo stampare report che riporta il totale dei record.
in sequenza io faccio:
popolo la combo cosi:
Private Sub elenco_GotFocus()
 Dim db As DAO.Database
 Dim tdf As DAO.TableDef
 Set db = OpenDatabase("c:\libri\elencolibri.mdb", False, False, "MS
Access;PWD=ppppp")
 For Each tdf In db.TableDefs
 If Left(tdf.Name, 4) <> "MSys" Then
 Me!elenco.RowSource = Me!elenco.RowSource & tdf.Name & ";"
 End If
 Next
 Me!elenco.RowSource = Left(Me!elenco.RowSource, Len(Me!elenco.RowSource) -
1)
 Set tdf = Nothing
 Set db = Nothing
 End Sub
poi dopo l'aggiornamento combo metto:
Private Sub elencolibri_AfterUpdate()
Dim MyQueryDef As QueryDef
Dim stringa As String
Dim strSQL As String
stringa = Me.elencolibri.Column(0)
strSQL = "SELECT "
strSQL = strSQL & "*"
strSQL = strSQL & " FROM " & "[" & stringa & "]"
strSQL = strSQL & ";"
intrep = stringa
Set MyQueryDef = CurrentDb.CreateQueryDef("libri", strSQL)
DoCmd.OpenReport "libri", acViewPreview, , , acWindowNormal
Set MyQueryDef = Nothing
End Sub
apertura report e questo codice in evento apertura:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "libri"
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim Conta As Integer
Set qdf = CurrentDb().QueryDefs("libri")
Conta = 1
For Each fld In qdf.Fields
    Me("Etichetta" & Trim(Conta)).Caption = fld.Name
    Me("Etichetta" & Trim(Conta)).Visible = True
    Me("Controllo" & Trim(Conta)).ControlSource = fld.Name
    Me("Controllo" & Trim(Conta)).Visible = True
    Conta = Conta + 1
Next
End Sub
ma errori già descritti......insomma mi sono incartato come si suol dire
che si puo' fare?
grazie mille
Francesco



text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
news:151Z37Z86Z47Y1...@usenet.libero.it...

Scusami, ma hai affermato che hai risolto il problema di impostazione
dell'origine riga della casella combinata generando, come da me consigliato,
la routine a fronte dell'evento "Su caricamento" della maschera e poi invece
riciccia la Sub elenco_GotFocus() e ti lamenti che ti dà errore: ma lo
sapevamo da prima che ti avrebbe dato errore ed ormai lo sanno anche i
bambini perché; perdonami ma ho il vago sentore di dubbio che stiamo
perdendo tempo tutti e due e la cosa non mi entusiasma.
Non è chiaro che relazione c'è tra la casella combinata elenco e la casella
combinata elencolibri.
Se per caso fossero la stessa cosa c'è una grossa incogruenza, in quanto
l'origine riga la crei con l'elenco di un database esterno mentre poi la
stringa SQL per creare la query la generi come se la tabella selezionata
nella casella combinata sia contenuta nel detabase corrente: beh deciditi, o
il datbase che contiene la tabella è quello corrente o è
"c:\libri\elencolibri.mdb".
Quanto alla personalizzazione dinamica del report devi lavorare con i campi
di un recordset e non di una querydef.
In questo momento ho molti dubbi su cosa tu voglia fare, ma mi sembra che
anche nel tuo database ci sia molta confuzione.
Forse se ci racconti cosa vuoi fare poi la soluzione la troviamo insieme, in
caso contrario potremmo arrivare con fatica a eliminare qualche errore di
sintassi, eliminando così la segnalazione di qualche errore (che fra l'altro
non ci hai neppure detto quali fossero), ma non è assolutamente detto che si
raggiunga il risultato voluto.
>
> grazie mille
Prego
>
> Francesco



text:
                    Il 18 Set 2005, 11:50, "Roberto dalla campagna" <
r.masso...@libero.it
>

Scusami forse hai ragione ma c'e' un po' di casotto. cerco di mettere ordine
dall'inizio del post. Ho un db con una serie di tabelle divise per argomento
che chiameremo libri.mdb; poi ho un altro che contiene le maschere per la
gestione che chiamerò maschlibri.mdb
Adesso veniamo al dunque del problema:
con la famosa combo incriminata io vorrei selezionare il nome tabella che mi
riguarda e stamparne tutti i record in essa contenuti, automaticamente dopo
la selezione della tabella e senza nessun altro passaggio.
Quindo ho pensato di popolare la combo con i nomi tabella così come da tuo
consiglio:
Private Sub Form_Load()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = OpenDatabase("c:\libri\libri.mdb", False, False, "MS
Access;PWD=pppppp")
For Each tdf In db.TableDefs
If left(tdf.Name, 4) <> "MSys" Then
    Me!elencoesami.RowSource = Me!elencoesami.RowSource & tdf.Name & ";"
End If
Next
Me!elencoesami.RowSource = left(Me!elencoesami.RowSource,
Len(Me!elencoesami.RowSource) - 1)
Set tdf = Nothing
Set db = Nothing
End Sub
e fin quì tutto ok. Adesso nell'evento "dopo aggiornamento" della combo
avevo pensato a questo:
Private Sub elencolibri_AfterUpdate()
Dim MyQueryDef As QueryDef
Dim stringa As String
Dim strSQL As String
stringa = Me.elencolibri.Column(0)
strSQL = "SELECT "
strSQL = strSQL & "*"
strSQL = strSQL & " FROM " & "[" & stringa & "]"
strSQL = strSQL & ";"
intrep = stringa
Set MyQueryDef = CurrentDb.CreateQueryDef("libri", strSQL)
DoCmd.OpenReport "libri", acViewPreview, , , acWindowNormal
Set MyQueryDef = Nothing
End Sub
dove penserei di generare una query di selezione dei record e poi passare il
tutto ad un report per la stampa, che come ti dicevo in precedenza avevo
attinto codice da un post che riguardava la gestione di un report con query:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "libri"
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim Conta As Integer
Set qdf = CurrentDb().QueryDefs("libri")
Conta = 1
For Each fld In qdf.Fields
    Me("Etichetta" & Trim(Conta)).Caption = fld.Name
    Me("Etichetta" & Trim(Conta)).Visible = True
    Me("Controllo" & Trim(Conta)).ControlSource = fld.Name
    Me("Controllo" & Trim(Conta)).Visible = True
    Conta = Conta + 1
Next
End Sub
detto questo e spero che mi sia spiegato, cominciano gli errori. Quali sono:
avvio la maschera con la combo e dopo la selezione a volte mi da " il db è
stato messo dall'utente Admin in posizione.......ecc. ecc. e si blocca.
Annullo e rifaccio la selezione e tutto funziona ok.
non mi passa una stringa al report per cambiare di volta in volta
l'intestazione del report a seconda dei casi
errore sul Recordset del report che dice di non trovare mentre esso c'e'
Insomma questi sono più o meno gli errori; resta il fatto che forse mi sto
complicando la vita con una cosa che si potrebbe fare in maniera più
semplice e cioè:
dato un db con x tabelle, selezionarne una alla volta e stamparne il
contenuto.
Scusami ancora se ti faccio impazzire ma mi sono incartato per l'ennesima
volta
grazie mille sempre
francesco



text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
news:151Z42Z190Z251Y...@usenet.libero.it...
[CUT]
>
> Scusami forse hai ragione ma c'e' un po' di casotto. cerco di mettere
ordine
> dall'inizio del post. Ho un db con una serie di tabelle divise per
argomento
> che chiameremo libri.mdb; poi ho un altro che contiene le maschere per la
> gestione che chiamerò maschlibri.mdb
>
> Adesso veniamo al dunque del problema:
>
> con la famosa combo incriminata io vorrei selezionare il nome tabella che
mi
> riguarda e stamparne tutti i record in essa contenuti, automaticamente
dopo
> la selezione della tabella e senza nessun altro passaggio.
>
[CUT]
Questo era quello che volevo sapere: cosa erano i due database e cosa vuoi
fare, cosa c'è da fare lo vedremo insieme, quindi elimino tutto ciò che hai
fatto attualmente tu, anche perché nel frattempo era venuta fuori anche una
casella combinata elencoesami che non so bene cosa sia.
La prima cosa che assolutamente DEVI fare è quella di collegare nel databse
maschlibri.mdb tutte le tabella contenute in libri.mdb, d'altra parte questi
due database altro non sono che rispettivamente il BE (Back End) ed il FE
(Front End) di uno stesso database, ma perché questo sia possibile occorre
appuntu collegare nel FE tutte le tabelle del BE.
Questo farà sì che le tabella risultino fisicamente separate dagli altri
oggetti del database (maschere, query, nmacro, moduli e report) contenuti in
maschlibri.mdb, ma dal punto di vista logico è come fossero inserite in
esso, quindi quando scriverai VBA o codice SQL puoi totalmente dimenticarti
che esiste il database libri.mdb ed operare come se le tabelle fossero
fisicamente residenti in maschlibri.mdb.
Così facendo eliminiamo uno degli errori che ti viene attualmente segnalato
in quanto l'elenco della casella combinata lo creai con le tabelle contenute
nel database libri.mdb, poi invece crei la stringa strSQL come se le tabelle
fossero residenti nel database corrente, ovvero in maschlibri.mdb dove
invece non ci sono con conseguente segnalazione di errore.
Visto che ormai le tabelle di Libri.mdb sono collegate al database corrente,
la soluzione più elegante e più facile per creare l'elenco della casella
combinata è quella che ti ha indicato Alessandro Baraldi.
A tale scopo creati una maschera non associata chiamata MiaMaschera che
contiene una casella combinata non associata chiamata Elenco; nell'origine
riga di questa casella combinata devi scrivere DIRETTAMENTE il seguente
codice SQL:
SELECT MSysObjects.Name FROM MsysObjects
WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND
(MSysObjects.Type)=1 ORDER BY MSysObjects.Name;
Quindi per popolare l'elenco della casella combinata non hai bisogno di
alcun codice VBA.
La casella combinata deve avere una sola colonna, la sua Colonna associata
deve avere il valore 1 e la sua Tipo origine riga deve essere impostata a
"Tabella/Query".
A questo punto non vedo perché creare una query ome origine record del
report visto che devi stampare tutti i campi di tutti i record di una
tabella: puoi tranquillamente impostare la tabella selezionata nella casella
combinata come origine record del report.
Quindi creati un report non associato chiamato MioReport che abbia le
caratteristiche di quello descritto nella mia FAQ intitolata "4.31 Report
dinamici basati su query a campi incrociati parametriche" che trovi nella
Sezione Reports del Sito Comune (link qui sotto).
A fronte dell'evento "Dopo aggiornamento" della casella combinato Elenco
genera il seguente codice VBA:
Private Sub Elenco_AfterUpdate()
DoCmd.OpenReport "MioReport", acViewPreview
End Sub
A fronte dell'evento "Su apertura" del report genera il seguente codice VBA:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Forms!MiaMaschera!Elenco
Dim fld As DAO.Field
Dim rst As DAO.Recordset
Dim Conta As Integer
Set rst = CurrentDb.OpenRecordset(Forms!MiaMaschera!Elenco)
Conta = 1
For Each fld In rst.Fields
    Me("Etichetta" & Trim(Conta)).Caption = fld.Name
    Me("Etichetta" & Trim(Conta)).Visible = True
    Me("Controllo" & Trim(Conta)).ControlSource = fld.Name
    Me("Controllo" & Trim(Conta)).Visible = True
    Conta = Conta + 1
Next
Set rst = Nothing
Set fld = Nothing
End Sub
Così facendo apri MiaMaschera e dopo aver selezionato il nome di una tabella
dalla casella combinata si aprirà automaticamente un report che stampa tutti
i campi di tutti i record contenuti nella tabella selezionata nella casella
combinata.
>
> grazie mille sempre
Prego.
>
> francesco



text:
                    Il 18 Set 2005, 19:36, "Roberto dalla campagna" <
r.masso...@libero.it
>
ha scritto:
>

Fatto; le tabelle era già collegate nel db maschlibri.mdb. Cmq non funziona
il popolamento della combo come tu mi hai detto. Metto la stringa
nell'origine riga e setto come dici ma all'avvio la combo risulta vuota
anche cliccando per vedere la lista e tutto vuoto
ciao
F



text:
"francesco" <
d...@tin.it
> wrote in message
news:151Z42Z190Z251Y...@usenet.libero.it
[CUT]
> Fatto; le tabelle era già collegate nel db maschlibri.mdb. Cmq non funziona
> il popolamento della combo come tu mi hai detto. Metto la stringa
> nell'origine riga e setto come dici ma all'avvio la combo risulta vuota
> anche cliccando per vedere la lista e tutto vuoto
>
> ciao
>
> F
Il problema è che sono Linked_Table pertanto il predicato SQL
le esclude avendo una proprietà differente, se non ricordo male
è Type.
Vado a memoria perchè non ho tempo di fare un test, ma
prova a sostituire (MSysObjects.Type)=1 con
(MSysObjects.Type)=6 oppure 5
In realtà basta aprire la Tabella di sistema e guardare...!



text:

infatti ho sostituito 1 con 6 e funziona tutto. L'unica cosa che non son
riuscito a fare è assegnare il nome tabella che seleziono da combo come
intestazione del report cioè passargli la stringa e fargliela diventare
intestazione
ciao
F
Ovviamente grazie anche a Roberto



text:
"francesco" <
d...@tin.it
> wrote in message
news:151Z42Z190Z251Y...@usenet.libero.it
> [CUT]
> infatti ho sostituito 1 con 6 e funziona tutto. L'unica cosa che non son
> riuscito a fare è assegnare il nome tabella che seleziono da combo come
> intestazione del report cioè passargli la stringa e fargliela diventare
> intestazione
>
> ciao
>
> F
> Ovviamente grazie anche a Roberto
> F
Beh se la Form è sempre aperta mentre apri il Report
metti nell'origine dati di una TextBox nel Report la
Combo:
=Forms!NomeForm!NomeCombo



text:
                    Il 18 Set 2005, 21:23, "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto:
> "francesco" <
d...@tin.it
> wrote in message
>
news:151Z42Z190Z251Y...@usenet.libero.it
>
> > [CUT]
>
> > infatti ho sostituito 1 con 6 e funziona tutto. L'unica cosa che non son
> > riuscito a fare è assegnare il nome tabella che seleziono da combo come
> > intestazione del report cioè passargli la stringa e fargliela diventare
> > intestazione
> >
> > ciao
> >
> > F
> > Ovviamente grazie anche a Roberto
> > F
>
> Beh se la Form è sempre aperta mentre apri il Report
> metti nell'origine dati di una TextBox nel Report la
> Combo:
>
> =Forms!NomeForm!NomeCombo
>
> Ciao
> @Alex
Ok tutto a posto. Funziona
Adesso mi chiedo.......se la fonte dati dovesse trovarsi in rete (es: il pc
è \\pippo1\libri\libri.mdb) che faccio collego le tabelle direttamente dalla
rete e lascio la routine invariata o devo intervenire anche su di essa?
grazie



text:
"francesco" <
d...@tin.it
> ha scritto nel messaggio
news:151Z42Z190Z251Y...@usenet.libero.it...

"Colleghi le tabelle direttamente dalla rete".
>
> grazie
Prego
>
> F



text:
                    Il 19 Set 2005, 12:24, "Roberto dalla campagna" <
r.masso...@libero.it
>
ha scritto:
>

ok tutto a posto
grazie sempre per la sopportazione dei neofiti come me



title: Come selezionare una casella di controllo in word

text:
Sono sempre io.
Come posso selezionare (o deselezionare) una casella di controllo presente
in un documento Word mediante codice?
Grazie.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
Massimo71 ha scritto:

In linea di massima per eseguire via codice VBA operazioni in WORD, non
fai altroche registrare una macro in word e copiare il codice che ne
risulta in ACCESS aggiungendo all'inizio di ogni riga il riferimento a
CreateObject("Word.Application")


text:
BR1 ha scritto:
> Massimo71 ha scritto:



OK. Fin qui ci sono.
Però, perdona l'ignoranza, ora ho un'altra domanda: come creo una macro
con Word che mi selezioni una casella di controllo?



author: Sergio MAZZA

text:
"Massimo71" <
massimo.c...@delphi.com
> ha scritto nel messaggio news:ebffd7$aqv$1...@news.newsland.it...
>
> OK. Fin qui ci sono.
> Però, perdona l'ignoranza, ora ho un'altra domanda: come creo una macro
> con Word che mi selezioni una casella di controllo?
Apri Word; inserisci la casella di controllo; posizioni il cursore in un altro punto del foglio; avvi il registratore di macro;
selezioni la casella di controllo; fermi il registratore di macro...
Ciao.
--
Sergio MAZZA


title: Nome copia tabella sempre diverso

author: Maicol

text:
Devo copiare frequentemente una tabella da un database ad un altro cambiando
pero' il nome nel database destinazione . Poiche' ho bisogno almeno per un
periodo, di mantenere nel database destinazione tutte le tabelle che vi ho
trasferito , mi chiedevo se c'e' un modo copiando la tabella di scegliere il
nome in quel momento e quindi diverso ogni volta ??? o addirittura se e'
possibile creare in automatico un nome che contenga la data del giorno in
cui sto facendo la copia ??
Forse e' troppo ??? Grazie a tutti.


title: Nome copia tabella sempre diverso

author: bauhausk

text:
ciao,
 guarda se ti può interessare questo codice:
"
Dim StringaNomeFile As String
Dim data0 As String
Dim data1 As String
Dim data2 As String
Dim data3 As String
'scompone la data
 data1 = Day(data0)
 data2 = Month(data0)
 data3 = Year(data0)
'Crea la stringa NomeFile con la data di oggi in questa formula es. 23022002
StringaNomeFile = data1 & data2 & data3
'esporta la tabella in altro database .mdb
 DoCmd.TransferDatabase acExport, "Microsoft Access",
"C:\NomeFolder\NomeFile.mdb", acTable, "NomeTabellaOrigine",
StringaNomeFile, False"
Dovrebbe funzionare ma non ti assicuro niente
andrea
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:6_Pd8.12419$v7.4...@twister1.libero.it...



title: Nome copia tabella sempre diverso

text:
scusa ho dimenticato una variabile, il codice dovrebbe essere cosě:
""
Dim StringaNomeFile As String
Dim data0 As String
Dim data1 As String
Dim data2 As String
Dim data3 As String
'variabile data0: data odierna
data0 = Date
'scompone la data
 data1 = Day(data0)
 data2 = Month(data0)
 data3 = Year(data0)
'Crea la stringa NomeFile con la data di oggi in questa formula es. 23022002
StringaNomeFile = data1 & data2 & data3
'esporta la tabella in altro database .mdb
 DoCmd.TransferDatabase acExport, "Microsoft Access",
"C:\NomeFolder\NomeFile.mdb", acTable, "NomeTabellaOrigine",
StringaNomeFile, False"
andrea
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:6_Pd8.12419$v7.4...@twister1.libero.it...



title: Nome copia tabella sempre diverso

text:
"bauhausk" <
bauh...@tiscalinet.it
> ha scritto nel messaggio
news:a58jt3$t7b$1...@pegasus.tiscalinet.it...
> scusa ho dimenticato una variabile, il codice dovrebbe essere cosě:
> ""
> Dim StringaNomeFile As String
> Dim data0 As String
> Dim data1 As String
> Dim data2 As String
> Dim data3 As String
>
> 'variabile data0: data odierna
> data0 = Date
>
> 'scompone la data
>
>  data1 = Day(data0)
>  data2 = Month(data0)
>  data3 = Year(data0)
> 'Crea la stringa NomeFile con la data di oggi in questa formula es.
23022002
> StringaNomeFile = data1 & data2 & data3
> 'esporta la tabella in altro database .mdb
>  DoCmd.TransferDatabase acExport, "Microsoft Access",
> "C:\NomeFolder\NomeFile.mdb", acTable, "NomeTabellaOrigine",
> StringaNomeFile, False"
> andrea
> "
Ti ringrazio molto, va benissimo .
Scusa se approfitto per una domanda ulteriore, premesso che di codice so
quasi nulla, mi sono regolato in questo modo : ho associato il codice che mi
hai postato all'evento click di un tasto.
Alla fine pero' mi trovo con tanti tasti ognuno associato ad un evento. Se
io devo eseguire diciamo tre di questi eventi in successione , come si fa ad
evitare di andare sui tre tasti in successione ed invece a creare un
qualcosa (parlo di aspetto teorico ovviamente )che lo faccia in automatico.
Ti ringrazio ancora.


title: Nome copia tabella sempre diverso

text:
"Maicol" <
enzo...@libero.it
> ha scritto nel messaggio
news:4Q3e8.15560$v7.6...@twister1.libero.it...
>
> "bauhausk" <
bauh...@tiscalinet.it
> ha scritto nel messaggio
> news:a58jt3$t7b$1...@pegasus.tiscalinet.it...
> > scusa ho dimenticato una variabile, il codice dovrebbe essere così:

Riassumi il codice che hai scritto in una sub unica associata ad un tasto.
Dichiara prima tutte le variabili (Dim), poi inserisci le parti di codice
nella sequenza in cui vuoi si svolgano le operazioni... Stai attento se hai
usato le creazioni guidate di Access (es. per aprire una maschera), in
quanto generano variabili stringa con lo stesso nome (tipo stLinkCriteria).
ciao
andrea


title: Tariffe

author: Roberto Corengia

text:
SELECT principale.Corriere, principale.Provincia, principale.P_C,
 principale.da, Min(principale.Tariffa) AS MinDiTariffa
 FROM principale
 WHERE principale.Provincia)=[Digitare la provincia]) AND
 principale.P_C=[P o C ?]
 GROUP BY principale.Corriere, principale.Provincia, principale.P_C,
 principale.da
 ORDER BY principale.da, Min(principale.Tariffa);
Ho provato a fare come gentilmente mi hai detto, ma così la query mi
estrae sia quei corrieri con la tariffa minore sia quegli altri:
Ecco qua i risultati
Corriere    Provincia  P_C     da	MinDiTariffa
corriere 2	AG	C	1	€ 5,00
corriere 1	AG	C	1	€ 10,00
corriere 2	AG	C	2	€ 3,00
corriere 1	AG	C	2	€ 10,00
corriere 2	AG	C	3	€ 5,00
corriere 1	AG	C	3	€ 10,00
corriere 2	AG	C	4	€ 5,00
corriere 1	AG	C	4	€ 10,00
corriere 2	AG	C	5	€ 5,00
corriere 1	AG	C	5	€ 10,00
Come posso fare per estrarre solo quei corrieri con tariffa minore,
cioè al kg 1 dovrebbe estrarmi solo il corriere 2 poichè la tariffa che
applica è minore degli altri corrieri.
Grazie per l'attenzione e dei consigli preziosi
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: scorrere recordset

author: ciroteo

text:
Sto creando una procedura che mi invii automaticamente delle mail ad una
serie di destinatari.
Il tutto sembra funzionare, non fosse altro che manda nvolte lo stesso
messaggio allo stesso destinatario, in poche parole credo che non scorra
tutti i record...
qualcuno mi darebbe una dritta?
Private Sub Comando37_Click()
Dim dbs As Database
Dim rst As Recordset
Dim stringa, destinatario, contenuto, Corpo As String
destinatario = Me.CasellaCombinata32.Column(2)
oggetto = Me.oggetto
Corpo = Me.oggetto & " " & Me.scadenza
CC = Me.nominativo.Column(2)
DoCmd.SendObject , , , _
    destinatario, CC, , _
    oggetto, Corpo, False
Set dbs = CurrentDb
With Me.RecordsetClone
.MoveFirst
While Not .EOF
DoCmd.SendObject , , , _
    destinatario, CC, , _
    oggetto, Corpo, False
.MoveNext
Wend
End With
End Sub


title: scorrere recordset

author: George

text:
(cut)
Il problema č che le tue variabili vengono inizializzate all'inizio
prelevando i dati dalla form, ma non vengono aggiornate poi.
Scorrere il recordsetclone della casella di riepilogo NON E' scorrere la
casella di riepilogo...
Il testo dovrebbe essere piů o meno il seguente:
Private Sub Comando37_Click()
Dim rst As Recordset
set rst=Me.RecordsetClone
do While Not rst.EOF
  destinatario = rst!<nomecampodestinatatrio>
  oggetto = rst!<nomecampooggetto>
  <ecc. ecc.>
  DoCmd.SendObject , , , _
    destinatario, CC, , _
    oggetto, Corpo, False
  rst.MoveNext
loop
End Sub


title: scorrere recordset

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:c82ndo$kc0$2...@newsreader.mailgate.org...

ti ringrazio ora ci provo.
E' il mio primo recordset ... ho una strana sensazione di smarrimento!


title: scorrere recordset

text:
"ciroteo" <
cir...@libero.it
> ha scritto nel messaggio
news:zj5pc.258083$rM4.10...@news4.tin.it...

ok ci sono riuscito! grazie mille


title: Combinare altezza rettangolo con sottoreport

author: Antonio Cannavale

text:
Come posso cambiare l'altezza di un rettangolo in base all'altezza del
sottoreport?
Grazie
--
_______
Antonio
_______


author: Roberto da casa

text:
"Antonio Cannavale" <
pepp...@libero.it
> ha scritto nel messaggio
news:XSIFf.606$E_4...@nntpserver.swip.net...
> Come posso cambiare l'altezza di un rettangolo in base all'altezza del
> sottoreport?
Disegna il rettangolo a fronte dell'evento "Su pagina" del report usando il
Metodo Line impostando gli argomenti di tale metodo in base all'allocazione
del controllo sottoreport (vedi sull'help le proprietą Top e Left) e delle
sue dimensioni (vedi sull'help le proprietą Height e Width).
Per avere una idea dell'uso dinamico del metodo Line vai sul Sito Comune
(link qui sotto) e nella Sezione Reports leggi queste FAQ:
1) 4.3 Inserire linee e rettangoli in un report di Davide La Mantia (Sib)
2) 4.18 Disegna con un report una struttura ad albero di Roberto
3) 4.19 Incorniciare le pagine di un report di Roberto
4) 4.24 Disegnare in un report rettangoli con gli angoli arrotondati di
Silvio Savoldi ed Alessandro Baraldi
>
> Grazie
Prego
>
> --
> _______
> Antonio
> _______
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


text:
Roberto da casa ha scritto:
> "Antonio Cannavale" <
pepp...@libero.it
> ha scritto nel messaggio
> news:XSIFf.606$E_4...@nntpserver.swip.net...
>> Come posso cambiare l'altezza di un rettangolo in base all'altezza del
>> sottoreport?
>
> Disegna il rettangolo a fronte dell'evento "Su pagina" del report usando il
> Metodo Line impostando gli argomenti di tale metodo in base all'allocazione
> del controllo sottoreport (vedi sull'help le proprietà Top e Left) e delle
> sue dimensioni (vedi sull'help le proprietà Height e Width).
>
> Per avere una idea dell'uso dinamico del metodo Line vai sul Sito Comune
> (link qui sotto) e nella Sezione Reports leggi queste FAQ:
>
> 1) 4.3 Inserire linee e rettangoli in un report di Davide La Mantia (Sib)
> 2) 4.18 Disegna con un report una struttura ad albero di Roberto
> 3) 4.19 Incorniciare le pagine di un report di Roberto
> 4) 4.24 Disegnare in un report rettangoli con gli angoli arrotondati di
> Silvio Savoldi ed Alessandro Baraldi
>
>> Grazie
>
> Prego
>
>> --
>> _______
>> Antonio
>> _______
>
Ciao,
forse ho trovato un modo più semplice di fare quello che voglio ma ho
bisogno del vostro aiuto.
Mi tradurreste in linguaggio per access quello che ho pensato?
If ID_prestazioni della tabella prestazioni è vuoto Then
Me.Line (180,5710)-(10600,13300 -10), B
End If
If ultimo record del campo ID_prestazioni della tabella prestazioni > 0 then
y1=(ultimo record del campo ID_prestazioni della tabella
prestazioni*290)+5710
Me.Line (180,y1)-(10600,13300 - 10), B
End If
Grazie mille
--
_______
Antonio
_______


title: query

author: Lily

text:
Ho un problema con una query che, haimč, per molti di voi, probabilmente,
sembrerą semplicissima....
Dunque ho 2 tabelle "inserimento" e "std".
In "inserimento" sono presenti dei campi numerici che possono essere anche
=0 mentre in "std" ho dei campi, sempre numerici,  con dei valori standard.
Vorrei fare in modo che questa query moltiplichi dei campi presenti in
"inserimento"con dei campi presenti in "std" solo se il dato di
"inserimento" č =0...
Spero che si capisca... e che qualcuno possa aiutarmi, io mi stņ tagliando
di brutto... tra un pņ mi dissanguo...
Grazie e scusate
P.S. Buona Pasqua a Tutti


title: query

author: lna

text:
Il 20 Apr 2003, 23:03, "Lily" <
skyu...@libero.it
> ha scritto:
> Ho un problema con una query che, haimè, per molti di voi, probabilmente,
> sembrerà semplicissima....
> Dunque ho 2 tabelle "inserimento" e "std".
> In "inserimento" sono presenti dei campi numerici che possono essere anche
> =0 mentre in "std" ho dei campi, sempre numerici, con dei valori standard.
> Vorrei fare in modo che questa query moltiplichi dei campi presenti in
> "inserimento"con dei campi presenti in "std" solo se il dato di
> "inserimento" è =0...
> Spero che si capisca... e che qualcuno possa aiutarmi, io mi stò tagliando
> di brutto... tra un pò mi dissanguo...
>
> Grazie e scusate
>
> P.S. Buona Pasqua a Tutti
I problemi sono 2:
1- Per ottenere solo i record il cui valore del campo della tabella
"inserimento" è 0, allora inserisci nel criterio della query, in
corrispondenza di quel campo, il valore 0 (zero); in questa maniera vengono
considerati solo i record dove in quel campo c'è zero.
2 - Non capisco però con quale criterio fai la moltiplicazione, ossia qual'è
il legame tra le due tabelle ? Se per te questo non è un problema, perchè in
qualche maniera l'hai risolto, ok allora il punto 1 ti risolve il tutto.
Ciao e Buona Pasqua anche a te.
Lna
--------------------------------
Inviato via
http://usenet.libero.it


title: Password database Access 2007

author: Tashunka

text:
Scusate ma ho impostato la password su un database sviluppato in Access
2007.
Quando compatto e ripristino il database mi chiede non 1 ma almeno 4 volte
la password e poi mi segnala che la password non č corretta.
Come si fa a compattare e ripristinare un database se gli č stata impostata
la password?
Grazie in anticipo
Tk


title: Password database Access 2007

author: Cinzia

text:
"Tashunka" <
tashu...@hotmail.it
> ha scritto nel messaggio
news:fcap8v$ur8$1...@nnrp.ngi.it...
> Scusate ma ho impostato la password su un database sviluppato in
> Access 2007.
> Quando compatto e ripristino il database mi chiede non 1 ma almeno 4
> volte la password e poi mi segnala che la password non è corretta.
>
> Come si fa a compattare e ripristinare un database se gli è stata
> impostata la password?
>
> Grazie in anticipo
> Tk
Ciao Tashunka,
io faccio così:
Apro il DB in modalità esclusiva
Scheda Strumenti database : Crittografa database
Chiudo il db e lo riapro (inserendo la password)
Inserisco  la password
Faccio delle modifiche eseguo compatta e ripristina ma non mi chiede
nessuna password, se lo chiudo e lo riapro mi chiede la password...
Non ho notato anomalie..
Tu come hai fatto?
--
Cinzia [Office Access MVP]
_______________________

www.riolab.org
----------------------------------------


title: Password database Access 2007

text:
"Cinzia" <
cinziapagani-...@tiscali.it
> ha scritto nel messaggio
news:46e99fc1$0$16040$5fc...@news.tiscali.it...
>
>
<<CUT>>
>> Come si fa a compattare e ripristinare un database se gli è stata
>> impostata la password?
>>
>> Grazie in anticipo
>> Tk
>
> Ciao Tashunka,
> io faccio così:
> Apro il DB in modalità esclusiva
> Scheda Strumenti database : Crittografa database
> Chiudo il db e lo riapro (inserendo la password)
> Inserisco  la password
> Faccio delle modifiche eseguo compatta e ripristina ma non mi chiede
> nessuna password, se lo chiudo e lo riapro mi chiede la password...
> Non ho notato anomalie..
> Tu come hai fatto?
>
> --
> Cinzia [Office Access MVP]
> _______________________
>
www.riolab.org
> ----------------------------------------
>
>
Mi sa che ho combinato qualche pasticcio nell'impostare la password a monte
perchè, seguendo i tuoi passaggi, continua a chiedermi la password e poi mi
segnala che non è valida.
Come faccio adesso a prendere un nuovo database e importargli tutto quello
che ho fatto?
Devo aprirne uno in modalità esclusiva, importare la password e importare
tutti gli oggetti del vecchio o dal vecchio esportarli in un libero da
password e poi impostarla successivamente?
Grazie mille
Tk


title: Password database Access 2007

text:
"Tashunka" <
tashu...@hotmail.it
> ha scritto nel messaggio
news:fcdf96$1um$1...@nnrp.ngi.it...
>
>>
> <<CUT>>
> Devo aprirne uno in modalità esclusiva, importare la password e
> importare tutti gli oggetti del vecchio o dal vecchio esportarli in
> un libero da password e poi impostarla successivamente?
>
> Grazie mille
> Tk
Mi sembra meglio la seconda, anche se non ho capito se riesci ad
accedere al vecchio visto che ti dice che la password è errata...



title: Password database Access 2007

text:
"Cinzia" <
cinziapagani-...@tiscali.it
> ha scritto nel messaggio
news:46eda258$0$21195$5fc...@news.tiscali.it...

Sì riesco tranquillamente ... è solo durante la compattazione e il
ripristino del database che va in tilt.
Grazie dei consigli
Tk


title: aggiornamento dati maschera e sottomaschere

author: mau

text:
ho un maschera principale che contiene una serie di sottomaschere. Io
vorrei che i dati della maschera principale e quella delle
sottomaschere vengano aggiornati ad intervalli regolari (penso ogni
5'). Ho provato con una macro, ma non ottengo grandi risultati,
qualcuno sa suggerirmi qlcosa di migliore?
Grazie Ma5u


author: Carlo Costarella

text:
"mau" <
mau...@ticino.com
> ha scritto nel messaggio
news:1131304207....@f14g2000cwb.googlegroups.com...

Su Timer scrivi me .refresh
Intervallo timer = 5000 (5 secondi) 18000 (5 minuti)
Ciao, Carlo


text: grazie dell'aiuto


title: Come impostare n° colonne report tramite VBA?

author: jobxxyy

text:
SAlve,
volevo costruire un report che potesse essere modificato semplicemente da
una maschera invece che da Visualizzazione struttura.
Nel report ci sono delle foto e dei dati,
ho trovato come impostare le dimensioni delle immagini, dei controlli vari,
delle sezioni..
in questo modo:
Me.Corpo.Height = Forms![Mlistinogroup]![STCOLORESEZALT]
Me.previewcol.Height = Forms![Mlistinogroup]![STCOLOREALT]
Me.previewcol.Width = Forms![Mlistinogroup]![STCOLORELARGH]
ma non riesco a trovare il modo di impostare il "numero colonne" presenti in
un report.
Mi sono spiegato?
spero di si.....
Grazie in anticipo a tutti.


author: Oscar Manfredini

text:
"jobxxyy" > SAlve,

Prova l'oggetto PRINTER (Access >= XP)
http://support.microsoft.com/?kbid=284286
Ciao!


title: stampe multiple da sottomask

author: happy

text:
Ciao a tutti,
ho realizzato un applicativo in A2003 con mask anagrafica contenente
una sottomask correlata (maschere continue).
nella sottomask inserisco i dati e alla fine del singolo record:
  If tipoProva = "AG1" Then
     Dim stDocName As String
    stDocName = "AG1Rep"
    DoCmd.OpenReport stDocName, acNormal
   Else
(if AG2---then------AG2Rep etc)
e fin qui va bene, mi stampa un report per il record inserito.
Siccome dovrei inserire più record, ripeto in sottomask, e vorrei
stampare tutti insieme questi report (un report per ogni record)
anziché uno alla volta, come potrei fare?
ancora grazie per quanto fate,
Antonio


title: stampe multiple da sottomask


title: [?] Come si crea una Foreign keys in access?

author: skunk

text:
Salve,
come si fa in access a fare una foreign keys?
Io voglio che dalla
tabella A il campo a_codice punti al campo b_codice sulla tabella B.
Come
si fa?
Saluti...
--------------------------------
Inviato via
http://usenet.iol.it


author: silvia

text:
"skunk" <
sku...@libero.it
> ha scritto nel messaggio
news:157Z29Z81Z46Y1...@usenet.iol.it...

Se per "foreign keys" intendi le chiavi esterne usa l'help di Access e cerca
proprio "chiavi esterne" troverai una marea di informazioni, tra cui "Creare
un campo che cerca i dati di un'altra tabella in visualizzazione Struttura"
e "Definire le relazioni tra tabelle" che dovrebbero fare al caso tuo.
HTH
Silvia


title: Acc2003 e Controllo a schede : probl. Echo schermo

author: Pablitomf (Maurizio Facciuti) [Acces]

text:
Salve ragazzuoli...
Visto che qualcuno (non faccio nomi... "MA" :-D ) mi ha detto di essere
antiquato, e che il mio buon Acc97 (con il quale ci ho fatto anche il caffč)
era arretrato di 10 anni di evoluzione mi sono deciso di passare al 2003.
Poof, first problem:
Maschera con controllo a schede (SENZA ALCUN CODICE)
Inserisco campi d'appoggio...
e noto che muovendomi con il mouse all'interno del Controllo, passando sulle
sole ETICHETTE tutti i campi SFARFALLANO alla grande... e ancor + se questi
sono combo...
Spostando gli stessi da Controllo a Corpo Form, tutto ok e niente +
sfarfallio...
Ma che roba č sta cosa?
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""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."


author: Sergio MAZZA

text:
"Pablitomf (Maurizio Facciuti) [Acces]" <
keiko...@libero.it
> ha scritto
nel messaggio news:es9jro$ru3$1...@tdi.cu.mi.it...

A me non succede; hai trasformato l'mdb in formato 2003?
Ciao.
--
Sergio MAZZA


text:
> A me non succede; hai trasformato l'mdb in formato 2003?
Certo...
e ti dico di +... ho notato che accade solo sulle ETICHETTE non associate
(sempre facendo rif. a quelle contenute nel controllo)
su quelle associate a campi, Acc non fa bizze...



text:
"Pablitomf
> Salve ragazzuoli...
> Visto che qualcuno (non faccio nomi... "MA" :-D ) mi ha detto di essere
> antiquato, e che il mio buon Acc97 (con il quale ci ho fatto anche il
caffè)
> era arretrato di 10 anni di evoluzione mi sono deciso di passare al 2003.
Le solite esagerazioni: diciamo che se non fosse per win Vista potresti
continuare a farci il caffè con la versione 97  ;-)
> Poof, first problem:
> Maschera con controllo a schede (SENZA ALCUN CODICE)
> Inserisco campi d'appoggio...
> e noto che muovendomi con il mouse all'interno del Controllo, passando
sulle
> sole ETICHETTE tutti i campi SFARFALLANO alla grande... e ancor + se
questi
> sono combo...
> Spostando gli stessi da Controllo a Corpo Form, tutto ok e niente +
> sfarfallio...
> Ma che roba è sta cosa?
Sta cosa è nota da anni e non giurerei venga risolta dal S.P2 (io utilizzo
ancora Access XP)


text:
"Oscar Manfredini"
> Sta cosa è nota da anni e non giurerei venga risolta dal S.P2 (io utilizzo
> ancora Access XP)
(pardon, m'è sfuggito l'invio)
http://allenbrowne.com/ser-46.html
Ciao.


text:
[CUT]
>> Sta cosa è nota da anni e non giurerei venga risolta dal S.P2 (io
>> utilizzo
>> ancora Access XP)
Infatti,avevo notato!!! Con SP2 non si è risolto...
> (pardon, m'è sfuggito l'invio)
>
>
http://allenbrowne.com/ser-46.html
Bella soluzione quella di cambiare le label in campi... funziona...
DENGHIU...
PS.
Chi diceva che 2003 era meglio del 97? :-S
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno


text:
> >
http://allenbrowne.com/ser-46.html
>
> Bella soluzione quella di cambiare le label in campi... funziona...
>
> DENGHIU...
Bella non direi    ;-)
A mio avviso è un problema tanto seccante da sconsigliare l'utilizzo del
prodotto ... almeno per chi ha la possibilità d'utilizzare Access XP.
> PS.
> Chi diceva che 2003 era meglio del 97? :-S
Già!
Ciao.


text:
>> Bella soluzione quella di cambiare le label in campi... funziona...
> Bella non direi    ;-)
> A mio avviso è un problema tanto seccante da sconsigliare l'utilizzo del
> prodotto ... almeno per chi ha la possibilità d'utilizzare Access XP.
Quel "Bella" era sarcastico... solo che effettivamente non potevi capirlo
avendo dimenticato un "ma" prima di "funziona"...
Cmq, direi che al momento Acc2003 non mi sta soddisfacendo quanto il 97...
speriamo bene.
;-)
--
--
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno



title: Contatore record

author: MarcoB

text:
Buongiorno a tutti
in una tabella (dopo un errore di access) il contatore dei record mi
propone un numero già esistente.
Cosa devo fare??
Grazie mille
Marco
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Contatore record

author: MA

text:
"MarcoB" <
produ...@pica.it
> ha scritto nel messaggio
news:co49ak$mr7$1...@news.newsland.it...
> Buongiorno a tutti
> in una tabella (dopo un errore di access) il contatore dei record mi
> propone un numero già esistente.
> Cosa devo fare??
> Grazie mille
> Marco
>
> --
abbandona quel mdb, importa il tutto in uno nuovo, quello è andato.
MAssimiliano


title: Contatore record

text:
MA ha scritto:

Ho già fatto questa operazione, il primo record che ho aggiunto
direttamente nella tabella ha dato il conctatore giusto. Quando sonon
andato per inserire i dati dalla maschera mi ha riproposto il contatore
errato.



title: Contatore record

text:
"MarcoB" <
produ...@pica.it
> ha scritto nel messaggio
news:co4a29$34j$1...@news.newsland.it...
> MA ha scritto:
>
> > "MarcoB" <
produ...@pica.it
> ha scritto nel messaggio
> > news:co49ak$mr7$1...@news.newsland.it...
> > > Buongiorno a tutti
> > > in una tabella (dopo un errore di access) il contatore dei record mi
> > > propone un numero già esistente.
> > > Cosa devo fare??
> > > Grazie mille
> > > Marco
> > >
> > > --
> > abbandona quel mdb, importa il tutto in uno nuovo, quello è andato.
> > MAssimiliano
>
> Ho già fatto questa operazione, il primo record che ho aggiunto
> direttamente nella tabella ha dato il conctatore giusto. Quando sonon
> andato per inserire i dati dalla maschera mi ha riproposto il contatore
> errato.
accoda tutti gli altri campi in una nuova tabella
MAssimiliano


title: aiuto su comando docmd.outputto

text:
eseguo il seguente
DoCmd.OutputTo acOutputForm, "listatordini", acFormatSNP,
"C:\Programmi\Prova\Ordini.snp"
ma mi restituisce il seguente errore:
il formato definito per l'output dell'oggetto corrente non è disponibile.
mi sapreste aiutare su come fare.
Grazie.


title: aiuto su comando docmd.outputto

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:b4okdd$5c7$1...@lacerta.tiscalinet.it...

acFormatSNP ?
E che vuol dire?
Non mi sembra che sia previsto tra i formati previsti dal metodo OutputTo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aiuto su comando docmd.outputto

author: ermejooo

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<5VYba.8416$
Lr4.2...@twister2.libero.it
>...
> "Simba883" <
simb...@libero.it
> ha scritto nel messaggio
> news:b4okdd$5c7$1...@lacerta.tiscalinet.it...
> > eseguo il seguente
> >
> > DoCmd.OutputTo acOutputForm, "listatordini", acFormatSNP,
> > "C:\Programmi\Prova\Ordini.snp"
> >
> > ma mi restituisce il seguente errore:
> >
> > il formato definito per l'output dell'oggetto corrente non è disponibile.
> >
> > mi sapreste aiutare su come fare.
> > Grazie.
>
> acFormatSNP ?
> E che vuol dire?
> Non mi sembra che sia previsto tra i formati previsti dal metodo OutputTo.
invece di acFormatSNP usa "Snapshot Format"
ciao


title: aiuto su comando docmd.outputto

text:
> acFormatSNP ?
> E che vuol dire?
> Non mi sembra che sia previsto tra i formati previsti dal metodo OutputTo.
>
> --
> Roberto
>
in office XP c'è!


author: Gianni 2040

text:
Cerco programmatore per realizzare la conversione di un programma da basic
per dos a un linguaggio per windows.
In pratica ho un programma fatto in basic e powerbasic (
powerbasic.com
) per
dos e vorrei convertire il sorgente originale in un nuovo programma
compatibile windows.
Preferibilmente il linguaggio da utilizzare dovrebbe essere compatibile il
piu' possibile con il basic affiche' le modifiche da apportare per la
conversione dell'applicativo siano poche.
Compenso da concordare.
Aspetto proposte in email.
Gianni.


title: Cerco programmatore per realizzare la conversione di un programma da basic per dos a un linguaggio per windows.

text:
Un attimo prima di skippare tutto mi sono accorto che  Gianni 2040 ha
scritto:
> Preferibilmente il linguaggio da utilizzare dovrebbe essere
> compatibile il piu' possibile con il basic affiche' le modifiche da
> apportare per la conversione dell'applicativo siano poche.
Potrei proporti VB6 perň il lavoro ho idea sia tanto cmq.
Ho fatto delle conversione da VB3 (applicativi in stile WIN3.1) a VB6 e
cambia tantissimo,
immagino da DOS...
--
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Un uomo saggio impara dall'esperienza,
un uomo ancora piů saggio impara dall'esperienza degli altri." (Saggio
Cinese)


title: help-semplice funzione di testo

author: montanaro

text:
Ciao, vorrei conoscere la funzione per aggiungere del testo ad un campo di
tabella.
ex:
in tabe ho [codice_cliente] e vorrei aggiungere..G
da codice C00001 a codice C00001G.
Grazie
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: help-semplice funzione di testo

text:
montanaro wrote:
> Ciao, vorrei conoscere la funzione per aggiungere del testo ad un
> campo di tabella.
> ex:
> in tabe ho [codice_cliente] e vorrei aggiungere..G
> da codice C00001 a codice C00001G.
> Grazie
Se devi aggiornare le tabelle allora fai una semplice query di aggiornamento
e come valore da aggiornare
[Codice_cliente]&"G"
>
> --------------------------------
> Inviato via
http://arianna.libero.it/usenet/
--
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:
www.donkarl.com/it


title: IL MIO SITO

author: wlad

text:
Tra poco cambierň completamente il sito ( dopo le ferie )
in formato FLASH.
Intanto, se volete andare a dare un occhiata!!!  :-D
Il mio sito tratta di computer, internet e grafica.....
....con l'aggiornamento molti nuovi argomenti, e piů corsi!!!!
Wlad
http://www.wladimiro.it
wlad...@wladimiro.it


title: [HELP] Domanda su codice VBA....su Acces 97

text:
Come faccio a creare in una maschera un disegno (formato da rettangoli e
linee) in base a dati di una tabella.
Mi spiego meglio...
devo creare tanti rettangoli quanti sono indicati in una tabella in un campo
quantità partendo da uno già disegnato e perciò con sue roprietà altezza
larghezza e altro...
Non c'è un comando VB clona forma o oggetto?
Grazie mille....


author: A. B.

text:
Dovresti usare le GDI di Windows. Non so se sei pratico abbastanza di VB e
di API, comunque trovi spiegazioni ed esempi in
www.vbapi.com
 oppure in
www.allapi.net
. In  questo ultimo sito poi, dovresti anche scaricarti un
meraviglioso programma di utility per chi vuole usare le API in VB che si
chiama API Toolshed, un must have.
Comunque se non hai fretta fra qualche giorno finisco un esempio a riguardo
che posterò su sitocomune.
### CH v2.001 ### ha scritto nel messaggio <9fokgr$4te$
1...@serv1.iunet.it
>...



title: Query di aggiornamento da una tabella ad un'altra

text:
Ho una tabella con il campo id_cli e i dati
relativi.

In un'altra ho i dati di aggiornamento tra cui
id_cli di riferimento ma non so' come fare.

grazie per l'aiuto.


title: campo con ricerca

author: Alpi

text:
Ciao a tutti,
vediamo se riesco a spiegarmi:
ho un form dove a un certo punto trovo un campo chiamato seriale.
Inserisco un numero/testo richiesto e quando passo al campo successivo
dovrebbe partirmi una ricerca che mi trova se questo numero(testo) esiste in
un'altra tabella.
Se sě metto a visible=si una label altrementi rimane nascosta.
In pratica ho una tabella chiamata BlackList dove trovo questi numeri
seriali di apparecchiature
da bloccare (rubate o altro) e mi interessa evidenziare un apparato in
ingresso se c'č riscontro
con uno di questi.
Spero di essere stato abbastanza chiaro e un saluto a tutti.
Maurizio.


title: campo con ricerca

author: Alessandro Cara

text:
Alpi ha scritto:

su evento di exit o after update del campo numero seriale
x=dlookup("campo","tabellasucuiricercare","numeroseriale = '" &
me.numeroseriale & "'"
if x <> "" then
   me.controllolabel.visible = true
else
   me controllolabel.visible = false
end if
--
a.cara
togli qualcosa dall'email


title: campo con ricerca

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E59D816...@blunet.it...
> Alpi ha scritto:
> >
> > Ciao a tutti,
> ... cut ...
> > Spero di essere stato abbastanza chiaro e un saluto a tutti.
> > Maurizio.
>
> su evento di exit o after update del campo numero seriale
>
> x=dlookup("campo","tabellasucuiricercare","numeroseriale = '" &
> me.numeroseriale & "'"
> if x <> "" then
>    me.controllolabel.visible = true
> else
>    me controllolabel.visible = false
> end if
> --
> a.cara
> togli qualcosa dall'email
Provo subito, grazie 1000. (?0,52)
Ciao, Maurizio.


title: campo con ricerca

author: Roberto da casa

text:
"Alessandro Cara" <
alexqu...@blunet.it
> ha scritto nel messaggio
news:3E59D816...@blunet.it...
[CUT]
.
>
> su evento di exit o after update del campo numero seriale
>
> x=dlookup("campo","tabellasucuiricercare","numeroseriale = '" &
> me.numeroseriale & "'"
> if x <> "" then
>    me.controllolabel.visible = true
> else
>    me controllolabel.visible = false
> end if
>
>
> --
> a.cara
A parte che va chiusa la parentesi tonda della funzione, DLookup se non sono
soddisfatti i criteri restituisce un valore Null e non una stringa vuota,
quindi:
if isnull(x) then
e non
if x <> "" then
e poi x deve essere una variabile di tipo Variant.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: come eseguire le query su un db access?

author: blasfemo

text:
io uso access come database per le mie pagine web asp
mi piacerebbe provare le query prima di inserirle nelle pagine in acces
stesso (o in un altro programma), ma in acces non ho trovato un posto dove
inserire la mia query in questo formato es: select * form table eccc.......
ho utilizzato a fine scolastico db2 e li si poteva fare sotto dos o in
finestra
grazie
blasfemo


title: come eseguire le query su un db access?

author: Lenny

text:
"blasfemo" <
infoToglimi...@blasfemo.cjb.net
> ha scritto nel
messaggio news:atuuq0$2sec3$1...@ID-157980.news.dfncis.de...

apri il db con access.
da qualche parte nella finestra database (è quella principale)
vedrai: tabelle - query - maschere - report ....
clicca su query
nuova query
visualizzazione struttura.
se poi vuoi usare l'sql basta che clicchi nel menu in alto
su visualizza - visualizza sql.
ciao


title: campo numerico

text:
ciao a tutti
vorrei chiedere se è possibile creare in una tabella (già popolata) un campo
numerico tipo intero lungo, che si iincrementa di 1 in automatico tramite
una query di aggiornamento od altro, ad ogni record della stessa, in modo
che poi successivamente posso assegnarla come chiave primaria.
grazie


title: campo numerico

author: Alessandro Baraldi

text:
Usare un Counter no....?
@Alex


title: campo numerico

text:
scusa! ma non sono ancora pratico di NG come non lo sono ancora di access.
Volevo dire che la tabella contiene già 8000 records con la chiave impostata
a codice tipo testo, io volevo sapere se c'è la possibilita di creare un
automatismo che mi va a riempire con un numero progressivo un campo creato
exnovo nella tabella.
grazie
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1144590001.9...@z34g2000cwc.googlegroups.com...
> Usare un Counter no....?
>
> @Alex
>


title: campo numerico

text:
Allora 2 cose:
1)Imparare a frequentare un NG è fondamentale, Roberto pubblica
settimanalmente un Post per come ci si comporta in un NG.
In particolare si risponde dopo il Quoting e non prima...!
2)Per l'esperienza di Access è fondamentale che tu impari a conoscere
quello che Access ti mette a disposizione.
Nella fattispecie ti ho suggerito di usare un campo Counter, quindi
puoi inserire un Counter nella tua Tabella, quindi potrai farlo
diventare Primay Key
vedi gli effetti che avrà il suggerimento che ti ho dato.
@Alex


title: campo numerico

text:
>"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> >news:1144602891.3...@e56g2000cwe.googlegroups.com...
>Allora 2 cose:


>@Alex
Grazie! ..e scusa ancora


title: Autorizzazione utenti a modifica

author: mcc

text:
Ho creato un MDB con una Maschera di accesso con l'inserimento del nome
utente e password :"Utente" e "Password".
Dovrei limitare la modifica dei record della tabella il cui nome inserito
nella maschera di accesso e il contenuto del campo della tabella sono
uguali.
Spero di essere stata chiara.
Grazie come sempre del vs. aiuto.
mcc

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


title: Autorizzazione utenti a modifica

author: Lorenzo(pyx)

text:
mcc wrote:
> Ho creato un MDB con una Maschera di accesso con l'inserimento del
> nome utente e password :"Utente" e "Password".
> Dovrei limitare la modifica dei record della tabella il cui nome
> inserito nella maschera di accesso e il contenuto del campo della
> tabella sono uguali.
> Spero di essere stata chiara.
> Grazie come sempre del vs. aiuto.
> mcc
>
>
Ciao,
Non e' difficile quello che chiedi.
Nella tabella avrai memorizzato il nome utente che
ha inserito\modificato il record (ad esempio utente)
e l'utente di login l'avrai salvato in una variabile globale
(ad esempio utentelogin)
In questo caso, nell'evento SuCorrente della maschera, puoi
scrivere:
If utentelogin = Me!utente or IsNull(Me!utente) Then
   Me.AllowEdits = True
Else
   Me.AllowEdits = False
End If
Ciao
lorenzo


title: Autorizzazione utenti a modifica

author: ALESSANDRO Baraldi

text:
"mcc" <
c.me...@libero.it
> ha scritto nel messaggio
news:213Z215Z167Z15Y...@usenet.libero.it...
> Ho creato un MDB con una Maschera di accesso con l'inserimento del nome
> utente e password :"Utente" e "Password".
> Dovrei limitare la modifica dei record della tabella il cui nome inserito
> nella maschera di accesso e il contenuto del campo della tabella sono
> uguali.
> Spero di essere stata chiara.
> Grazie come sempre del vs. aiuto.
> mcc
Sicuramente i dati del Login devono essere facilmente accessibili,
pertanto potrebbero essere Variabili Public in un Modulo.
A questo punto su Evento Current della Form confronta
i contenuti e se sono = e non sei su NewRecord AllowEdits=True:
Private Sub Form_Current()
    Me.Allowedits=((Me.Nome=LoginName) And (Me.Pwd=LoginPWD)) OR
Me.NewRecord
End Sub
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Query con Data e ora

author: Roberto

text:
Salve a tutti
in una tabella del mio DB ho un campo data generica del tipo gg/mm/aaaa
hh.mm.ss
ma non riesco a effettuarre query sql specificandone l'ora.
Ad esempio la seguente query:
SELECT * FROM Tabella WHERE Data = '14/12/2004 12.00.00'
mi da l'errore "Tipo di dati non corrispondente nell'espressione criterio'
come devo impostare la query?
grazie
Roberto


title: Query con Data e ora

author: TANNHAUSER

text:
Roberto ha scritto:

Prova con:
SELECT Tabella.Data
FROM Tabella
WHERE (((Tabella.Data)=#12/14/2004 12:0:0#));
TANNHAUSER
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: motore di ricerca con campi muplipli

text:
vorrei realizzare una query che filtra record con molti campi come filtro
mi chiedo il modo per combinare piu campi di tipo diverso e renderli attivi
o meno
è usare
nz(campo;"*") per stringa ma per campi di tipo si/no o altri campi come si
può fare?
Grazie.


title: motore di ricerca con campi muplipli

author: Pablitomf

text:
Simba883 ha scritto:

> Grazie.
Io mi trovo meglio creandomi una stringa filtro e poi passandola come tale
in una visualizzazione dati.
--
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: Importare dati da dei file TXT

author: Alessandra

text:
Ho un mdb in access 97 formato da una sola tabella.
In questa tabella ho tre campi:
[codice], [titolo], [descrizione]
In questa tabella per ora sono riempiti solo i primi due campi.
Per riempire il terzo devo recuperare i dati da una serie di file txt
strutturati nel seguente modo:
[codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
[codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
[codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
[codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
etc...
Siccome i record (in più file txt) sono circa 60.000, ho necessità di
automatizzare un po' questo passaggio.
Mastico un po' di programmazione, ma non so' bene come realizzare la cosa.
Ringrazio chi può darmi una mano
Alessandra C.
Per rispondermi in mail togli lo jojo'


title: Importare dati da dei file TXT

author: Roberto Corci

text:
> [codice], [titolo], [descrizione]
> In questa tabella per ora sono riempiti solo i primi due campi.
> Per riempire il terzo devo recuperare i dati da una serie di file txt
> strutturati nel seguente modo:
>
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> etc...
>
>
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> etc...
>
realizza una tabella collegata al file TXT e successivamente una query di
aggiornamento! :)
legando in maniera univoca i campi titolo e codice, ed aggiorni in
automatico descrizione! :)
se poi vuoi mettere la ciliegina sulla torta puoi fare un modulo che
ricerchi il file di testo te lo ricolleghi ed esegua la query di update! :)
Ciao


title: Importare dati da dei file TXT

author: Sergio MAZZA

text:
"Alessandra" <
bulb...@freemail.it
> ha scritto nel messaggio
news:9das4f$q1j$1...@lacerta.tiscalinet.it...

Puoi iniziare leggendo nell'help il Metodo TransferText...
Ciao.


title: Importare dati da dei file TXT

text:
> > [codice], [titolo], [descrizione]
> > In questa tabella per ora sono riempiti solo i primi due campi.
> > Per riempire il terzo devo recuperare i dati da una serie di file txt
> > strutturati nel seguente modo:
> >
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > etc...
> >
>
> >
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > [codice] TABULAZIONE [titolo] TABULAZIONE [descrizione] A CAPO
> > etc...
> >
>
> realizza una tabella collegata al file TXT e successivamente una query di
> aggiornamento! :)
>
> legando in maniera univoca i campi titolo e codice, ed aggiorni in
> automatico descrizione! :)
E' qua che mi sono arenato. Ho creato una tabella collegata al txt.
Ora devo fare la query ma mi trovo un po' in difficoltà.
Come faccio a legare in maniera univoca le due tabelle? E ad aggiornare le
due descrizioni?
So fare le query di aggiornamento all'interno di una tabella, ma tra due
tabelle non mi era mai capitato.
So' che probabilmente è facilissimo, ma io ho fatto qualche tentativo e per
ora vedo ancora buio...
> se poi vuoi mettere la ciliegina sulla torta puoi fare un modulo che
> ricerchi il file di testo te lo ricolleghi ed esegua la query di update!
:)
Qua non riuscirei di certo... :(
Ciao



title: fattura elettronica - pecdestinatario

author: mario rossi

text:
qualcuno mi spiega questa frase presente nel file Allegato+A+-+Specifiche+tecniche+vers+1.3 .pdf del sito ADE

l’eliminazione dell’obbligo di valorizzare l’elemento PECDestinatario, in corrispondenza del valore di default (“0000000”) per l’elemento CodiceDestinatario (v. paragrafo 1.5.5);

da quel che capisco non è obbligatorio indicare la pec ma se codice destinatario è 0000000 dove viene recapitata la fattura se non ce nemmeno la pec?


title: fattura elettronica - pecdestinatario

text:
> da quel che capisco non è obbligatorio indicare la pec ma se codice destinatario >è 0000000 dove viene recapitata la fattura se non ce nemmeno la pec?

Se la deve scaricare il destinatario dall'apposita area messa a disposizione da Agenzia Entrate (presumo
https://ivaservizi.agenziaentrate.gov.it/portale/
)

Saluti


title: fattura elettronica - pecdestinatario

author: liones

text:
codice destinatario >è 0000000 dove viene recapitata la fattura se
 non ce nemmeno la pec?Se la deve scaricare il destinatario
 dall'apposita area messa a disposizione da Agenzia Entrate
 (presumo
https://ivaservizi.agenziaentrate.gov.it/portale/)Saluti

a meno che il destinatario non abbia specificato sul  sito
 fatture e corrispettivi dove inviare le fatture
In tal caso le fatture con destinatario 0000000 o con altro codice
 valido (devono superare i controlli formali) vengono inviate dove
 è stato specificato nel sito ( praticamente colleghi la partita
 Iva ad un indirizzo e non comunichi nulla a chi emette ma
 fattura)

mettiamoci un Imho...


title: Filtri Report

author: Sergio

text:
Il mio problema è questo:
ho una tabella con una serie di dati tra cui il campo " Tavola " che si
riferisce alle tavole di " Tutto Città ", premesso questo, io voglio fare un
report in modo che mi chieda : " Vuoi il report dei dati appartenenti a
quale tavola ? " io inserisco la tavola che desidero e....il gioco è fatto.
Ho consultato una guida Mondadori, ma l'unico esempio che porta  è il report
con intervallo di data, ma  a me non interessa. Ringrazio chiunque saprà
aiutarmi. Sergio
Se puoi rispomdermi a
serg...@inwind.it
 te ne sarei grato.


title: Filtri Report

author: Lanza

text:
Sergio <
serg...@tiscalinet.it
> wrote in message
8h7d4p$m57$1...@pegasus.tiscalinet.it...

> Dovresti appogiare il report ad una query che contiene i campi della
tabella, nella riga criteri del campo Tavola inserisci l'istruzione [Vuoi il
report dei dati appartenenti a quale tavola], mi raccomando usa le parentesi
quadre, a presto Carmelo


title: Filtri Report

text:
"Sergio" <
serg...@tiscalinet.it
> ha scritto nel messaggio
news:8h7d4p$m57$1...@pegasus.tiscalinet.it...
> Il mio problema è questo:
>
> ho una tabella con una serie di dati tra cui il campo " Tavola " che si
> riferisce alle tavole di " Tutto Città ", premesso questo, io voglio fare
un
> report in modo che mi chieda : " Vuoi il report dei dati appartenenti a
> quale tavola ? " io inserisco la tavola che desidero e....il gioco è
fatto.
> Ho consultato una guida Mondadori, ma l'unico esempio che porta  è il
report
> con intervallo di data, ma  a me non interessa. Ringrazio chiunque saprà
> aiutarmi. Sergio
>
> Se puoi rispomdermi a
serg...@inwind.it
 te ne sarei grato.
>
>
Puoi provare con:
Dim xTavola As String
xTavola = InputBox("Vuoi il report dei dati appartenenti a quale tavola ?",
"Titolo", "")
If xTavola <> "" Then
    DoCmd.OpenReport "nomeReport", acViewPreview, ,
"[nomeCampoNelReportDaFiltrare]='" & xTavola & "'"
Else
    MsgBox "Non hai inserito nulla."
End If
Ciao.


title: test sulla rete

author: Fabio

text:
ciao
ho un PC portatile che si collega in rete, questa è mappata con il
classico f:\...
Devo capire se il pc sia in rete oppure no
Per ora ho fatto come segue
Sub rete()
Dim Rete
Rete = "F:\UIL"
Rete = Dir(Rete, vbDirectory)
  If Len(Rete) = 0 Then
     MsgBox "non in rete"
     ' istruzioni 1
  Else
     MsgBox "sono in rete"
     ' istruzioni 2
  End If
End Sub
Oddio funziona non c'è che dire ma mi sempre un po' light
Chi mi può dare una qualche dritta in più su come gestire le reti con
access?
Grazie a tutti e Buona Pasqua
Fabio


title: test sulla rete

text:
"Fabio" <
ute...@esempio.net
> ha scritto nel messaggio
news:4615d0b1$0$3819$5402...@news.sunrise.ch...
ciao




Fabio
[risposta]
Mhmm... Quindi ti vorresti creare un pacchetto dati TCP/IP, inviarlo alla
rete, controllare se il router non ti faccia scadere il pacchetto per
controllare l'errore e regolarti di conseguenza?
Tutto in VBA?
Ciao.
--
Sergio MAZZA


title: test sulla rete

text:
Sergio MAZZA ha scritto:

Quel mhmm, poi con la M maiuscola, mi ha già spaventato ;-)
Penso che, per il mio caso, possa risolvere con il codice sopra citato.
ho aggiunto che, se capitasse un errore, es. stacco il cavo di rete, mi
considera come non in rete e mi esegue le "istruzioni 1". Ma mi sembrava
il tutto un po' semplice. Comunque funziona.
Grazie Sergio e buona Pasqua
Fabio
> Ciao.
>


title: test sulla rete

text:
In news:4615d0b1$0$3819$
5402...@news.sunrise.ch
,
Fabio <
ute...@esempio.net
> ha scritto:
> ciao
>
> ho un PC portatile che si collega in rete, questa è mappata con il
> classico f:\...
> Devo capire se il pc sia in rete oppure no
[...]
Ciao,
con tutti i punti di domanda gia' espressi da Sergio.
Tipicamente hai bisogno di qualcuno che ti risponda
sulla rete per sapere se sei o meno collegato.
Prova a fare un copia incolla del testo seguente in
un modulo, poi si puo' lanciare il comando :
    ?ping("xxx.xxx.xxx.xxx")
Sostanzialmente vai a fare un ping di un altro pc, di cui
i caratteri xxx ne rappresentano l'indirizzo IP.
Vedi cosa puoi ricavarne.
> Grazie a tutti e Buona Pasqua
>
> Fabio
Altrettanto,
--
Lorenzo
Private Type IP_OPTION_INFORMATION
    TTL As Byte                   ' Time to Live (used for traceroute)
    Tos As Byte                   ' Type of Service (usually 0)
    FLAGS As Byte                 ' IP header Flags (usually 0)
    OptionsSize As Long           ' Size of Options data (usually 0, max 40)
    OptionsData As String * 128   ' Options data buffer
End Type
Private Type IP_ECHO_REPLY
    Address(0 To 3) As Byte           ' Replying Address
    Status As Long                    ' Reply Status
    RoundTripTime As Long             ' Round Trip Time in milliseconds
    DataSize As Integer               ' reply data size
    Reserved As Integer               ' for system use
    Data As Long                      ' pointer to echo data
    Options As IP_OPTION_INFORMATION  ' Reply Options
End Type
Private Type HostEnt
    h_name As Long
    h_aliases As Long
    h_addrtype As Integer
    h_length As Integer
    h_addr_list As Long
End Type
Private Const INADDR_NONE = &HFFFF
Private Const hostent_size = 16
Private Const PF_INET = 2
Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long
Private Declare Function IcmpCloseHandle Lib "icmp.dll" _
   (ByVal HANDLE As Long) As Boolean
Private Declare Function IcmpSendEcho Lib "ICMP" _
   (ByVal ICMPHandle As Long, _
   ByVal DestAddress As Long, ByVal RequestData As String, _
   ByVal RequestSize As Integer, _
   RequestOptns As IP_OPTION_INFORMATION, _
   ReplyBuffer As IP_ECHO_REPLY, _
   ByVal ReplySize As Long, _
   ByVal timeout As Long) As Boolean
Private Declare Function inet_addr Lib "wsock32.dll" _
   (ByVal cp As String) As Long
Private Declare Function gethostbyname Lib "wsock32.dll" _
   (ByVal host_name As String) As Long
Private Declare Sub MemCopy Lib "kernel32" _
   Alias "RtlMoveMemory" _
   (Dest As Any, Src As Any, ByVal cb&)
Private Declare Function gethostbyaddr Lib "wsock32.dll" _
   (addr As Long, ByVal addr_len As Long, _
   ByVal addr_type As Long) As Long
Private Declare Function inet_ntoa Lib "wsock32.dll" _
   (ByVal inn As Long) As Long
Private Declare Function lstrlen Lib "kernel32" _
   Alias "lstrlenA" (ByVal lpString As Any) As Long
Public Function Ping(Host As String)
Dim ICMPHandle As Long
' Get IP Address
If inet_addr(Host) = INADDR_NONE Then
Host = DNSLookup(Host)
If Host = "" Then Exit Function
End If
ICMPHandle = IcmpCreateFile()
If ICMPHandle = 0 Then Exit Function ' Error
Dim IPOption As IP_OPTION_INFORMATION
IPOption.TTL = "255"
Dim buf As String
buf = String$(32, 0) ' Intialize Buffer
Dim IPReply As IP_ECHO_REPLY
If IcmpSendEcho(ICMPHandle, GetHostByNameAlias(Host), _
   buf, 32, IPOption, IPReply, Len(IPReply) + 8, 2700) _
   = False Then Ping = "Request Timed Out"
If Ping = "" Then Ping = GetICMPError$(CInt(IPReply.Status))
If Ping = "" Then Ping = IPReply.RoundTripTime
Call IcmpCloseHandle(ICMPHandle)
End Function
Private Function GetHostByNameAlias(ByVal hostname$) As Long
    On Error Resume Next
    Dim phe&
    Dim heDestHost As HostEnt
    Dim addrList&
    Dim retIP&
    retIP = inet_addr(hostname)
    If retIP = INADDR_NONE Then
        phe = gethostbyname(hostname)
        If phe <> 0 Then
            MemCopy heDestHost, ByVal phe, hostent_size
            MemCopy addrList, ByVal heDestHost.h_addr_list, 4
            MemCopy retIP, ByVal addrList, heDestHost.h_length
          Else
            retIP = INADDR_NONE
        End If
    End If
    GetHostByNameAlias = Trim$(retIP)
    If Err Then GetHostByNameAlias = INADDR_NONE
End Function
Private Function DNSLookup(ByVal Address As String) As String
If inet_addr(Address) <> INADDR_NONE Then
DNSLookup = IpToAddr(Address)
ElseIf gethostbyname(Address) <> 0 Then DNSLookup = AddrToIP(Address)
End If
End Function
Private Function GetICMPError(Error As Integer) As String
Select Case Error
    Case 11001: GetICMPError = "Buffer too Small"
    Case 11002: GetICMPError = "Destination Network Not Reachable"
    Case 11003: GetICMPError = "Destination Host Not Reachable"
    Case 11004: GetICMPError = "Destination Protocol Not Reachable"
    Case 11005: GetICMPError = "Destination Port Not Reachable"
    Case 11006: GetICMPError = "No Resources Available"
    Case 11007: GetICMPError = "Bad Option"
    Case 11008: GetICMPError = "Hardware Error"
    Case 11009: GetICMPError = "Packet too Big"
    Case 11010: GetICMPError = "Request Timed Out"
    Case 11011: GetICMPError = "Bad Request"
    Case 11012: GetICMPError = "Bad Route"
    Case 11013: GetICMPError = "TTL Expired in Transit"
    Case 11014: GetICMPError = "TTL Expired Reassembly"
    Case 11015: GetICMPError = "Parameter Problem"
    Case 11016: GetICMPError = "Source Quench"
    Case 11017: GetICMPError = "Option too Big"
    Case 11018: GetICMPError = "Bad Destination"
    Case 11019: GetICMPError = "Address Deleted"
    Case 11020: GetICMPError = "Spec MTU Change"
    Case 11021: GetICMPError = "MTU Change"
    Case 11022: GetICMPError = "Unload"
    Case 11050: GetICMPError = "General Failure"
End Select
End Function
Private Function IpToAddr(ByVal AddrOrIP$) As String
    On Error Resume Next
    IpToAddr = GetHostByAddress(GetHostByNameAlias(AddrOrIP$))
    If Err Then IpToAddr = ""
End Function
Private Function AddrToIP(ByVal AddrOrIP$) As String
    AddrToIP$ = GetAscIp(GetHostByNameAlias(AddrOrIP$))
End Function
Private Function GetHostByAddress(ByVal addr As Long) As String
    On Error Resume Next
    Dim phe&, ret&
    Dim heDestHost As HostEnt
    Dim hostname$
    phe = gethostbyaddr(addr, 4, PF_INET)
      If phe <> 0 Then
        MemCopy heDestHost, ByVal phe, hostent_size
        hostname = String(256, 0)
        MemCopy ByVal hostname, ByVal heDestHost.h_name, 256
        GetHostByAddress = Left(hostname, _
                     InStr(hostname, Chr(1)) - 1)
    Else
        GetHostByAddress = ""
    End If
    If Err Then GetHostByAddress = ""
End Function
Private Function GetAscIp(ByVal inn As Long) As String
    On Error Resume Next
    Dim lpStr&
    Dim nStr&
    Dim retString$
    retString = String(32, 0)
    lpStr = inet_ntoa(inn)
    If lpStr = 0 Then
        GetAscIp = ""
        Exit Function
    End If
    nStr = lstrlen(lpStr)
    If nStr > 32 Then nStr = 32
    MemCopy ByVal retString, ByVal lpStr, nStr
    retString = Left(retString, nStr)
    GetAscIp = retString
    If Err Then GetAscIp = ""
End Function


title: test sulla rete

author: Panathos

text:
On 6 Apr, 06:46, Fabio <
ute...@esempio.net
> wrote:
> ho un PC portatile che si collega in rete, questa è mappata con il
> classico f:\...
> Devo capire se il pc sia in rete oppure no
Qui trovi la funzione pingip():
http://groups.google.it/group/it.comp.appl.access/browse_frm/thread/fbfe671cf78e4c12/4924fbf43d423d2a?lnk=gst&q=pingip&rnum=1#4924fbf43d423d2a
che puoi usare per testare se un pc remoto risponde alle richieste
echo.
Su
www.sitocomune.com
 trovi invece una funzione che ti restituisce
l'ip del tuo computer. Combinate insieme, le due funzioni possono
tornare utili, anche se con dei distinguo.
Se il tuo pc non ha indirizzo ip, normalmente significa che non è in
rete (poi se hai robe tipo vmware, schede di rete virtuali o altri
ammenicoli, puoi avere indirizzi ip configurati anche se non sei in
rete).
Se il ping al pc remoto non va a buon fine, potrebbe significare che
c'è un firewall che blocca le richieste echo, ma le unità remote
mappate magari le vedi lo stesso.
Alla fine, visto che ti occorre verificare la disponibilità di una
unità remota, mi sa che la funzione migliore sia proprio quella che
hai scritto :-)
ciao,
Panathos


title: test sulla rete

text:
"Fabio" <
ute...@esempio.net
> ha scritto nel messaggio
news:4615f50c$0$3815$5402...@news.sunrise.ch...
Quel mhmm, poi con la M maiuscola, mi ha già spaventato ;-)
[risposta]
Mai quanto a me, la tua richiesta.
Penso che, per il mio caso, possa risolvere con il codice sopra citato.
[risposta]
Eh! Eh!
ho aggiunto che, se capitasse un errore, es. stacco il cavo di rete, mi
considera come non in rete e mi esegue le "istruzioni 1". Ma mi sembrava
il tutto un po' semplice. Comunque funziona.
[risposta]
E non potrebbe essere altrimenti.
Grazie Sergio e buona Pasqua
[risposta]
E di che? Buona Pasqua anche a te...
Fabio
[risposta]
Ciao.
--
Sergio MAZZA


title: test sulla rete

text:
Lorenzo(pyx) ha scritto:

Ben spaventato, rigrazio
Fabio


title: test sulla rete

text:
Panathos ha scritto:

Grazie
Fabio
> ciao,
> Panathos
>


title: ADP: problema casella di controllo

author: ringo

text:
... il problema nasce da una casella di controllo
posta nella maschera associata ad un campo del DB sql.
Appena clicco l'incriminata casella di controllo access va in errore
ed esce lasciandomi di stecco!
Allora inizio a guarda il campo sul db... vedo che su sql è un campo
"bit"...
provo allora a modificarlo in char(1) ma il problema rimane..
Qualcuno si è già imbattuto in qualcosa del genere?
grazie!
ringo


title: ADP: problema casella di controllo

author: AEOM

text:
"ringo" <
ri...@tiscali.it
> ha scritto nel messaggio
news:cn9nhg$3vj$1...@newsread.albacom.net...

Mi sembra che Sib mesi fa avesse denunciato lo stesso Bug, prova a vedere i
vecchi post
a me non si presenta con Axp mi sembra sia solo con A2000
ciao, AEOM


title: ADP: problema casella di controllo

text:
"AEOM" <
fuck...@motherfucker.it
> ha scritto nel messaggio
news:09%ld.330542$35.15...@news4.tin.it...

a me mi succede con Axp... il vecchio posto l'avevo già visto
ma è diverso dal mio caso :-(
mentre con A2000 non riuscivo a modificare un recordset (formato dal join di
due tabelle)
passato da una store procedure...
grazie e ciao
ringo


title: piccolo problemino con un report "dinamico"

author: marcolino

text:
Salve a tutti avrei un problemino da sottoporvi:
devo realizzare un report che oserei definire "dinamico" ma solo per il
fatto che deve generarsi dopo:
a) la scelta di una data iniziale e finale ( che rappresenta il periodo che
ci interessa visionare)
b) la scelta tramite una combo di un valore all'interno di essa.( nomi di
compagnia di bandiera aerea e non solo)
una volta fatto ciò dovrei creare questo report che non è solamente un
semplice "sbrodolio" di righe su righe FILTRATE ma a queste ci sarà tutta
una sezione sottostante dove dovranno crearsi sempre in modo "parametrico"
le somme, le percentuali e quant'altro si possa immaginare coi calcoli..che
serve a capire gli introiti, le spese etc...
pensate che tutto questo possa essere davvero realizzabile?
grazie intanto per il vostro aiuto e scusare la scarsezza di dettaglio.
E' ovvio che il db di access ha già i dati che mi serve visionare..ma dovrei
poterli visionare nei passaggi che vi ho scritto.
Un grazie a tutto il NG.
Marcolino


title: Pulsante in una maschera

text:
Salve a tutti, sono un novello di access e per motivi di lavoro lo
devo imparare e anche in modo abbastanza veloce "se voglio mantenere
il posto", vengo al punto:
In azienda abbiamo un programma costruito in Java che a fine mese
genera un report consegne in excel.
Tale report contiene i nomi di tutte le operatrici di tale azienda
ripetuti più volte per ogni ordine che hanno prodotto durante il mese
es: teleoperatrice moira ha prodotto 100 ordini il record in excel
viene riportato cento volte, ha fatturato € 10000 in ogni record alla
colonna fatturato viene riportato € 100.
In access sto creando un pannello comandi e avrei bisogno di creare un
tasto che cliccandoci su mi apra excel o esplora risorse in modo che
io possa selezionarmi il file excel generato dal programma e
importarmelo in access.
Ho bisogno di fare questo perchè il programma deve risultare
totalmente automatizzato.
Confido vivamente in voi.


title: Pulsante in una maschera

text:
<
c.cre...@gmail.com
> ha scritto nel messaggio news:1177850265....@y5g2000hsa.googlegroups.com...





Confido vivamente in voi.
[risposta]
"Importare", ossia inserire i dati contenuti nelle celle di excel, nei campi di una tabella di access?
Sul sito comune (
www.sitocomune.com
) Sezione General:
6.22 Richiamare la finestra di dialogo per la selezione di un file.
E per importare un file excel leggi nell'help di VBA (attivabile con ALT-F11 poi F1) il metodo: Metodo TransferSpreadsheet.
Ma prima di questo; visto che sei novello e rischi il posto di lavoro mi permetto di suggerirti di aspettare un attimo e descrivere
meglio quello che vuoi fare.
A parte l'importazione dei dati, che è banale, ma tu hai anche parlato di report e se non strutturi bene le tabelle (prima);
potresti (poi) trovarti a rifare il lavoro di nuovo...
Ciao.
--
Sergio MAZZA


title: Pulsante in una maschera

text:
On 29 Apr, 17:09, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
c.cresce...@gmail.com
> ha scritto nel messaggionews:1177850265....@y5g2000hsa.googlegroups.com...

allora qualcuno mi aiuta?
il tempo stringe e non so come fare?
help me!!!


title: Pulsante in una maschera

text:
<
c.cre...@gmail.com
> ha scritto nel messaggio
news:1177924180.0...@y5g2000hsa.googlegroups.com...
allora qualcuno mi aiuta?
il tempo stringe e non so come fare?
help me!!!
[risposta]
Ti ho risposto (alla tua) per e-mail; cosa c'è che non va?
Ciao.
--
Sergio MAZZA


title: Pulsante in una maschera

text:
On 30 Apr, 11:56, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
c.cresce...@gmail.com
> ha scritto nel messaggionews:1177924180.0...@y5g2000hsa.googlegroups.com...
>
> allora qualcuno mi aiuta?
> il tempo stringe e non so come fare?
> help me!!!
>
> [risposta]
> Ti ho risposto (alla tua) per e-mail; cosa c'è che non va?
>
> Ciao.
> --
> Sergio MAZZA
Scusami tanto ma non avevovisionato l'email...
sono davvero un imbranato...scusa ancora...
Potresti dirmi i passaggi per inserire quel codice che mi hai postato?
Ciao
Crescenzo


title: Pulsante in una maschera

text:
<
c.cre...@gmail.com
> ha scritto nel messaggio
news:1177929802.7...@e65g2000hsc.googlegroups.com...
Scusami tanto ma non avevovisionato l'email...
sono davvero un imbranato...scusa ancora...
Potresti dirmi i passaggi per inserire quel codice che mi hai postato?
Ciao
Crescenzo
[risposta]
- Crei un modulo e ci inserisci il codice che trovi sul link suggerito al
sito comune;
- Crei un bottone e ci inserisci dentro il codice che richiama la funzione
cmddlg_file:
es. (per provare)
msgbox cmdlg_file()
Se ti appare la finestra "Apri" e dopo aver selezionato il file ti si apre
la msgbox con il nome del file allora scrivi (togliendo il msgbox):
'---
dim nomeFile as string
nomeFile = cmd_file()
if nomeFile<>"" then
    docmd.TransferSpreadsheet acImport,,"nometabella",nomeFile,true
else
    msgbox "Non hai selezionato nessun file"
end if
'---
Fai prima delle prove creandoti dei file di backup!!
Ciao.
--
Sergio MAZZA


title: Pulsante in una maschera

text:
On 30 Apr, 13:28, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
c.cresce...@gmail.com
> ha scritto nel messaggionews:1177929802.7...@e65g2000hsc.googlegroups.com...

ok ora provo e ti faccio sapere.
Grazie Crescenzo.


title: Pulsante in una maschera

text:

> Grazie Crescenzo.- Nascondi testo tra virgolette -
>
> - Mostra testo tra virgolette -
Il primo esempio suggerito da te è andato a buon fine...
quando invece provo così mi dice " cmd_file() errore di compilazione
sub o function non definita"
Private Sub Comando13_Click()
msgbox cmdlg_file()
Dim nomeFile As String
nomeFile = cmd_file()
If nomeFile <> "" Then
    DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile,
True
Else
    MsgBox "Non hai selezionato nessun file"
End If
End Sub
se invece provo (togliendo il msgbox) mi da lo stesso errore.
Dim nomeFile As String
nomeFile = cmd_file()
If nomeFile <> "" Then
    DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile,
True
Else
    MsgBox "Non hai selezionato nessun file"
End If
P.S grazie di vero cuore per l'interessamento.
End Sub


title: Pulsante in una maschera

text:
<
c.cre...@gmail.com
> ha scritto nel messaggio
news:1177933778....@p77g2000hsh.googlegroups.com...
Il primo esempio suggerito da te è andato a buon fine...
quando invece provo così mi dice " cmd_file() errore di compilazione
sub o function non definita"
Private Sub Comando13_Click()
msgbox cmdlg_file()
[risposta]
Questa riga è solo di prova; puoi rimuoverla.
Dim nomeFile As String
nomeFile = cmd_file()
[risposta]
Qui (sopra) ho sbagliato il nome della funzione; non hai visto che in debug
si ferma su quella riga?
La funzione si chiama (l'hai pure copiata/incollata) cmdlg_file() non come
ti ho scritto io.
If nomeFile <> "" Then
    DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile,
True
Else
    MsgBox "Non hai selezionato nessun file"
End If
End Sub
se invece provo (togliendo il msgbox) mi da lo stesso errore.
[risposta]
(per forza) Leggi sopra.
P.S grazie di vero cuore per l'interessamento.
[risposta]
Prego.
Ciao.
--
Sergio MAZZA


title: Pulsante in una maschera

text:
On 30 Apr, 14:17, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
c.cresce...@gmail.com
> ha scritto nel messaggionews:1177933778....@p77g2000hsh.googlegroups.com...

Sei un grande tutto risolto......
un altra cosa quando importo il file non mi da nessun messaggio di
Importazione eseguita, posso inserire un msgbox se si in quale parte
del codice?
Ciao Crescenzo.


title: Pulsante in una maschera

text:
<
c.cre...@gmail.com
> ha scritto nel messaggio
news:1177936457.8...@n59g2000hsh.googlegroups.com...
Sei un grande tutto risolto......
un altra cosa quando importo il file non mi da nessun messaggio di
Importazione eseguita, posso inserire un msgbox se si in quale parte
del codice?
[risposta]
...
If nomeFile <> "" Then
     DoCmd.TransferSpreadsheet acImport, , "nometabella", nomeFile, True
    msgbox "Il file: " & nomeFile & ", è stato importato."
Else
..
Ciao Crescenzo.
[risposta]
Ciao.
--
Sergio MAZZA


title: Pulsante in una maschera

text:
On 30 Apr, 14:37, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
c.cresce...@gmail.com
> ha scritto nel messaggionews:1177936457.8...@n59g2000hsh.googlegroups.com...

ok è andato a buon fine
ciao Crescenzo


title: Duplicati non ammessi

author: il barbi

text:
Se in una tabella c'e' un campo che inizialmente e' indicizzato con
"duplicati ammessi" e poi modifico la struttura in "duplicati non ammessi",
cosa succede dei record eventuali che hanno lo stesso valore di quel campo?
Oppure i duplicati non verranno ammessi solo a partire dalla modifica? Cioe'
occorre prima eliminare i record con valori uguali di quel campo?
il barbi


title: Duplicati non ammessi

text:
il barbi ha scritto:


Jet non te la fa fare la modifica se ci sono duplicati..
Prima togli i duplicati (fai un altra tab =, query di accodamento raggruppata
sulla prima tabella e crei le chiavi). Cancelli la vecchia, rinomini la nuova.
That's it
Ciao
Roberto
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: Acquisizione diretta foto da telecamera

author: Roberto Spinella Esteban

text:
Salve a tutti
Ho un applicativo che memorizza la foto degli utenti acquisita solitamente
tramite una WEB cam con proprio SW. Esiste un sistema semplice, standard
per lanciare il driver TWAIN da access 97 e memorizzare il file (.jpg) in
una cartella ?
Grazie in anticipo


title: Acquisizione diretta foto da telecamera

author: Carlo Costarella

text:
--
P4 1,9; WinXPPro; Acc97/XP
"Roberto Spinella Esteban" <
rs...@tiscali.it
> ha scritto nel messaggio
news:b0h8bn$lps$1...@lacerta.tiscalinet.it...

Si è possibile. Hai bisogno di OCX che fanno questo lavoro.
Se ne trovano a pagamento (professionali) e anche gratis ma non per questo
meno professionali.
Un esempio erano gli ocx della Kodak forniti gratuitamente con Windows 98 e
che possono ancora essere usati in WXP, basta avere il cd di W98. Se hai
questo sistema operativo li trovi nell'elenco dei Controlli ActiveX, in
Access, alla voce Kodak...scan control ecc.
Ciao, Carlo


title: Acquisizione diretta foto da telecamera

text:
"Roberto Spinella Esteban" <
rs...@tiscali.it
> ha scritto nel messaggio
news:b0h8bn$lps$1...@lacerta.tiscalinet.it...

Con Windows'98 (forse anche 2000) hai a disposizione i componenti activex
della Wang/Kodak...
Ciao.
--
Sergio MAZZA


title: Copiare un grafico da una maschera ad un report

author: marrunner

text:
Salve a tutti, ho impostato con VBA le proprietà di un grafico in una
maschera (font, formato degli assi, linee di tendenza, ecc, ) ora
vorrei il medesimo oggetto in un report senza riimpostare tutto. E'
possibile?
Ciao e grazie


author: MA

text:
?"marrunner"  ha scritto nel messaggio
news:f2a6a9a6-b5d5-40e9...@q18g2000vbk.googlegroups.com...

__
Provato a copiaincollare?


text:
On 10 Dic, 12:50, "MA" <
mas...@massimilianoamendola.it
> wrote:
> ?"marrunner"  ha scritto nel messaggionews:f2a6a9a6-b5d5-40e9...@q18g2000vbk.googlegroups.com...
>
> Salve a tutti, ho impostato con VBA le propriet di un grafico in una
> maschera (font, formato degli assi, linee di tendenza, ecc, ) ora
> vorrei il medesimo oggetto in un report senza riimpostare tutto. E'
> possibile?
> Ciao e grazie
> __
>
> Provato a copiaincollare?
Mi sono sipegato male, vorrei farlo da vba durante l'apertura del
report.
Dato che posso copiare l'oggetto in una variabile pensavo si potesse
fare anche il contrario.
Ho provato così:
ho dichiarato la variabile objGrafico a livello di modulo
quando chiudo la maschera assegno la variabile
Set objGrafico = forms("miamaschera").grafico1
e sull'evento formattazione del grafico ho messo l'istruzione
Set me.Graf1= objGrafico
ma quando apro il report mi da un errore
"proprietà o metodo non supportati dall'oggetto"


title: Aggiungere un contatore di gruppi di record ...

author: Valerio

text:
Salve a tutti,
ho da pochissimo iniziato ad utilizzare l'access e mi si presenta questo
problema :
ho una tab del tipo
Ref1 |  Ref2                    gruppo
-------------                    -----
 A     |    A                          1
 A     |    B                          1
 A     |    F                           1
 D     |    D                           2
 D     |    E                           2
 C     |    C                           3
 C     |    H                           3
 C     |    I                            3
e a questa vorrei aggiungere un campo 'gruppo' (come da esempio) che mi
numeri appunto i gruppi di ref2 che hanno uguale ref1 !!!
non so dove sbattere la testa ...
sarò grato a chiunque mi aiuterà ...
grazie
valesan


author: eSQueL

text:
"Valerio" <
priv...@libero.it
> ha scritto nel messaggio
news:ejuk1n$cbj$1...@aioe.server.aioe.org...

Mi rendo conto d'esser temerario ... ma perché?
Ciao.
eSQueL_Temerario


text:
"eSQueL" <
eSQ...@libero.it
> ha scritto nel messaggio
news:1PI8h.51385$uv5.3...@twister1.libero.it...

si già scusa ... per me è ovvio, ma solo perchè so di che cosa sto parlando
...
sarebbe complicato spiegare la provenienze della tabella iniziale, ma
comunque il fatto principale che mi costringe a numerare i gruppi in questo
modo è che per nessun motivo il codice che rappresenta il gruppo può essere
contenuto nel campo ref2 ... e quindi non posso prendere Ref1 come
rappresentante del gruppo !!!
ieri facendo delle prove ho pensato questo :
mi sono fatto una seconda tabella nella quale ho messo Ref1 come chiave
primaria (e quindi trovandomi uno ed un solo ref1 per tipo) e come secondo
campo un contatore, ottenendo così in parte quello che cercavo ...
ora però essendo alle prime armi non so come poter incrociare le due tabelle
per sostituire nella prima i ref1 con i corrispondenti della seconda tab (va
bene anche crearne una terza ... )!!!!!
Aiutoooo
grazie comunque a tutti
valesan


text:
"Valerio" <
priv...@libero.it
> ha scritto nel messaggio
news:ek1017$514$1...@aioe.server.aioe.org...

Problema risolto ...
Il Bisogno aguzza l'ingegno ... è proprio vero ...
ho imparato ad utilizzare le query e le relazioni tra tabelle !! un piccolo
passo avanti ...
grazie a tutti


title: Conteggio date in Access

text:
Utilizzo un database dove ogni record è rappresentato da un cliente e ho
tanti campi data in cui inserisco la data in cui visito il cliente
stesso. Come posso fare per avere un campo finale per ciascun record che
mi dica quanti campi data pieni ho per ogni record (cioè quanti contatti
ho avuto con ogni singolo cliente)?? Ringrazio in anticio chi potrà
darmi un aiuto. Ciao.


title: Conteggio date in Access

author: Tony Rossetti

text:
Qualche anima pia puň dirmi come posso fare per ogni record di un
database il conteggio dei campi data in cui la data viene inserita. Per
farvi capire meglio il mio č uno schedario di clienti: ogni record č un
cliente con tanti campi data in cui inserisco di volta in volta la data
del contatto. Se io volessi avere un campo finale che mi da subito il
numero di contatti per ogni cliente, come dovrei operare. Grazie
infinite.
Tony
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Conteggio date in Access

text:
Qualche anima pia puň dirmi come posso fare per ogni record di un
database il conteggio dei campi data in cui la data viene inserita. Per
farvi capire meglio il mio č uno schedario di clienti: ogni record č un
cliente con tanti campi data in cui inserisco di volta in volta la data
del contatto. Se io volessi avere un campo finale che mi da subito il
numero di contatti per ogni cliente, come dovrei operare? Grazie


title: Conteggio date in Access

author: Arilolo

text:
Basta scrivere =conteggio([data]) nell'origine dati di un controllo posto
nell'intestazione o nel piè pagina del report o della maschera in questione.
[data] stà per il nome del campo che contiene la data... non so se
corrisponde alla realtà.
Ciao!


title: report campi visibili

author: Carlo Ruggieri

text:
come faccio a far sparire da un report alcuni campi sulla base di un valore
T o F di un'altro campo?


title: report campi visibili

author: Emyr

text:


proprietą visible ed un IF THEN
vedi evento suformattazione o su stampa...
Saluti.
Emanuele.