text:
>Ho una tabella che si chiama "FILM" composta da vari campi fra cui uno
>"DESCRIZ" ovvero la descrizione del film e in cui si trovano anche i
>"maledetti" caratteri di ritorno a capo che vorrei eliminare.
>i record sono ca. 2800, mi piacerebbe che la funzione che mi hai postato
>andasse a pescare record per record eliminando i caratteri di ritorno a
>capo...
intanto fai una copia della tabella per sicurezza...
poi.  una funzione prende un valore e ne restituisce un altro, e
questa è una cosa.  esistono le query di aggiornamento, che modificano
i recorde questa è un'altra cosa.  le funzioni si possono usare nelle
query.  mischia tutto, cosa ottieni?
ottieni che apri una query, ci carichi la tabella, la trasformi in
query di aggiornamento, metti nella colonna il campo da aggiornare,
nella casella "aggiorna a" ci scrivi: NomeFunzione([NomeCampo]), e
vedi che succede...
questo è il metodo più rapido da spiegare e forse anche il più veloce
in termini di prestazioni.
una cosa didatticamente più utile sarebbe che ti aprissi un recordset
sulla tabella, lo scorressi tutto quanto e record per record editassi
il campo in questione.  qualcosa del genere:
dim rst as recordset
set rst=currentdb.openrecordset("nometabella")
do until rst.eof
	rst.edit
	rst!nomecampo = nomefunzione(rst!nomecampo)
	rst.update
	rst.movenext
loop



title: Caratteri di ritorno a capo: come si eliminano ?

author: Lorenzo Coronati

text:
Scrisse "Fabius" <fa...@NOSPAMspilimbergo.com>:
>Ho una tabella che si chiama "FILM" composta da vari campi fra cui uno
>"DESCRIZ" ovvero la descrizione del film e in cui si trovano anche i
>"maledetti" caratteri di ritorno a capo che vorrei eliminare.
>i record sono ca. 2800, mi piacerebbe che la funzione che mi hai postato
>andasse a pescare record per record eliminando i caratteri di ritorno a
>capo...
Questa funza dovrebbe andare, copiala in un modulo
Public Function TogliACapo(stringa As String) As String
If IsNull(stringa) Then TogliACapo = "": Exit Function
Dim strTemp As String
While InStr(stringa, vbCrLf) > 0
    strTemp = strTemp & Left(stringa, InStr(stringa, vbCrLf)
- 1) & " "
    stringa = Right(stringa, Len(stringa) - (InStr(stringa,
vbCrLf) + (Len(vbCrLf) - 1)))
Wend
TogliACapo = strTemp & stringa
End Function
Poi esegui un bel
update tabella set campo=TogliACapo(campo)
>PS: se ti interessa un database di tutti i film su VHS aggiornato a
>Settembre, te lo mando come premio! ;-)
Parli sul serio? 8-)
--
Lorenzo Coronati
--
<<Si perché forse Ilbo (ed altri come lui) sono
convinti che noi poveri principianti (nel senso
ironico) scrivano le domande senza pensare.>>
(Ivan Lelli, 25/08/2000)
--
<<se il lavoro non me lo dai tu, me lo da
un'altro stronzo che non capisce una sega
di access e di informatica in generale>>
(Ivan dal lavoro, 30/09/2000)
--


author: Spillo

text:
Ho provato ad attaccare il seguente codice ad un pulsante su una maschera:
Private Sub cmdPulisci_Click()
Dim rst As Recordset
Set rst = CurrentDb.openrecordset("FilmMySQL")
Do Until rst.EOF
rst.edit
rst!DESCRIZ = togliacapo(rst!DESCRIZ)
rst.Update
rst.MoveNext
Loop
End Function
Function togliacapo(s As String) As String
Dim p As Long ' esageriamo...
Dim oldp As Long ' riesageriamo...
Dim arrcrlf(1) As String
Dim i As Integer
arrcrlf(0) = Chr(13)
arrcrlf(1) = Chr(10)
oldp = 1
For i = 0 To 1
Do
p = InStr(oldp, s, Chr(i))
If p = 0 Then
Exit Do
End If
Mid(s, p, 1) = " "
oldp = p + 1
Loop
Next i
togliacapo = s
End Function
Ma Access 2000 non sembra gradire affatto :-(
Trova un errore di compilazione sulla riga "rst.edit" ... ho sbagliato
qualcosa?
Anche inserendo la funzione sulla Query di Aggiornamento ricevo un messeggio
di errore :-(
Se hai ancora un attimo di pazienza grazie, altrimenti andro' a manina ;-))


author: Lbo da casa

text:
>Ho provato ad attaccare il seguente codice ad un pulsante su una maschera:
ecc.
mi pare vada bene...



author: Fabius

text:
> >PS: se ti interessa un database di tutti i film su VHS aggiornato a
> >Settembre, te lo mando come premio! ;-)
> Parli sul serio? 8-)
Si, ma mi sa che faccio prima a mandarti tutto e a farmelo rimandare
indietro pulito dai ritorno a capo :-)
non ne salto fuori :-(
Ciao
Fabio ;-)


author: Tommaso Cafini

text:
Dovendo esportare tabelle con campi memo in formato testo, e
viceversa, mi scrissi a suo tempo  delle righe, che con i seguenti
cambiamenti per te potrebbero andare bene:
Nota che i campi memo ( e binari)  devono venir trattati in maniera
diversa dai campi normali:
Vedi i metodi GetChunk e AppendChunk  nell' Online help
La Sub ChiamalaComeTiPare e' parte estrapolata da una Sub molto piu'
lunga e complessa, che trattava piu' campi memo in Array, e spero di
non aver trascurato ne punti fermi ne punti esclamativi durante la
estrapolazione.
Nella Funzione ErsetzeStr rimpiazzi naturalmete la stringa
" NEUEZEILE "  con quella che ti serve  (" " per esempio)
MSAccess 08
Sub ChiamalaComeTiPare
Dim MemoWertStr as String 'Valore nel Memo
Dim MemoGrsLng as Long 'lunghezza del Memo
Dim MySet as recordset
Dim MemoFld as Field
Set MySet = Currentdb.OpenRecordset ("Film")
With MySet
Set MemoFld = .Fields("Descriz")
 Do While Not .EOF
	 If Not IsNull(MemoFld) Then
		 MemoGrsLng = Len(MemoFld)
		 MemoWertStr = MemoFld.GetChunk(0, MemoGrsLng)
		 MemoWertStr = ErsetzeStr(MemoWertStr, 0)
		  .Edit
		  MemoFld = ""
		  MemoFld.AppendChunk MemoWertStr
		  .Update
	End If
	 .MoveNext
 Loop
End With
MySet.Close
End Sub
Public Function ErsetzeStr(TextInStr As String, NeuFlag As Integer) _
As String
'Parametri:
'TextInStr = Stringa da elaborare
'NeuFlag = 0  - Da Memo a Txt:
' Rimpiazza  "Chr(13) & Cht(10)" con la stringa " NEUEZEILE "
'NeuFlag <> 0 Da Txt a Memo:
'Rimpiazza la stringa " NEUEZEILE " con "Chr(13) & Chr(10)"
Dim WorkTextStr As String, PointerInt As Integer
Dim NeuStr As String, SuchStr As String
Dim Msg as String
On Local Error GoTo ErsetzeStr_Err
   If NeuFlag = 0 Then
      NeuStr = " NEUEZEILE "
      SuchStr = vbcrlf
   Else
      SuchStr = " NEUEZEILE "
      NeuStr = vbcrlf
   End If
   If IsNull(TextInStr) Then
      ErsetzeStr = Null
   Else
      WorkTextStr = TextInStr
      PointerInt = InStr(1, WorkTextStr, SuchStr, 0)
      Do While PointerInt > 0
         WorkTextStr = Left(WorkTextStr, PointerInt - 1) & NeuStr & _
	 Mid(WorkTextStr, PointerInt + Len(SuchStr))
         PointerInt = InStr(PointerInt + Len(NeuStr), WorkTextStr, _
	 SuchStr, 0)
      Loop
      ErsetzeStr = WorkTextStr
   End If
ErsetzeStr_End:
   Exit Function
ErsetzeStr_Err:
   Msg = "Error Information..." & vbcrlf & vbcrlf
   Msg = Msg & "Function: ErsetzeStr" & vbcrlf
   Msg = Msg & "Description: " & Err.Description & vbcrlf
   Msg = Msg & "Error #: " & Format$(Err.Number) & vbcrlf
   MsgBox Msg, vbInformation, "ErsetzeStr"
   Resume ErsetzeStr_End
End Function
--
Tommaso Cafini                  _...@rhein-neckar.netsurf.de_
                                _tca...@gmx.net_
PGP-KeyID       = C922A2B1
Key fingerprint = 7C 9E 72 C5 11 06 A7 67  54 03 FF 02 4C 90 39 F5


title: creazione codice univoco

author: Pivo

text:
Access2000 WinNT
qual'è il problema?
i è precedentemente dichiarata come long
.......................
For i = txt_ini_lungo To txt_fine_lungo
     rs.AddNew
     rs![N_tessera] = i
     rs![Prezzo_tessera_acquisto] = Me.txt_prezzo_acquisto
     rs![Prezzo_tessera_vendita] = Me.txt_prezzo_vendita
     rs![Anno_tessera] = Me.txt_anno_tessera
     rs![Tipo_tessera] = Me.txt_tipo_tessera
     rs![codice_chiave_tessera] = i + [Me.txt_anno_tessera] +
[Me_txt_tipo_tessera]
     rs.Update
  Next i
rs.Close
Set rs = Nothing
Non mi aggiorna il recordset e si ferma all'istruzione
rs![codice_chiave_tessera] = i + [Me.txt_anno_tessera] +
[Me_txt_tipo_tessera]
dicendo "impossibile trovare il campo | a cui si fa riferimento
nell'espressione"


title: creazione codice univoco

author: Antonio Biso

text:
Pivo <
hge...@tiscalinet.it
> wrote in message
8vld92$2c7g$1...@stargate1.inet.it...

Già...
Perchè non le togli quelle parentesi quadre che servono appunto ad indicare
un campo???
Antonio


title: creazione codice univoco

author: Basjlico

text:
On Fri, 24 Nov 2000 10:44:43 +0100, "Pivo" <
hge...@tiscalinet.it
>
wrote:
>rs![codice_chiave_tessera] = i + [Me.txt_anno_tessera] +
>[Me_txt_tipo_tessera]
Mi sa che [Me_txt_tipo_tessera] dove essere [Me.txt_tipo_tessera] (me
punto)


title: Sintassi per SQL in codice

author: Marco

text:
Ciao a tutti,
mi trovo in questa situazione:
Devo eseguire una Query via codice, a cui devo passare un parametro ricavato
sempre da codice.
ES.
Dim Pippo as string
Pippo = 3
...
With cmd1
    .ActiveConnection = CurrentProject.Connection
    .CommandText = "SELECT tabella.campo FROM tabella WHERE tabella.campo2 =
PIPPO"
...
Logicamente PIPPO è un parametro non fisso.
Si può fare riferimento ad una variabile?? Se sì qual'è la sintassi
corretta???
Grazie a tutti
Ciao
Marco


title: Sintassi per SQL in codice

author: Alex De Rossi

text:
"Marco" <
mar...@inwind.it
> ha scritto nel messaggio
news:56AGa.87519$Ny5.2...@twister2.libero.it...

Prova Con:
 With cmd1
.ActiveConnection = CurrentProject.Connection
.CommandText = "SELECT tabella.campo FROM tabella WHERE tabella.campo2 =" &
"'" & pippo & "'"
Ciao
ADR


title: Sintassi per SQL in codice

text:
Ho risolto da solo comunque grazie mille!!!
"Alex De Rossi" <Omni...@Spamlibero.it> ha scritto nel messaggio
news:w6BGa.89099$lK4.2...@twister1.libero.it...



title: Aggiunta campo in database SQL collegato

author: yosef

text:
Ho una tabella collegata di nome dbo_tblcollegata ed ho necessità di
aggiungere un campo alla tabella di tipo byte che accetti valori Null,
ho provato a fare in questo modo:
    Dim db As Database
    Dim strSQL As String
    Set db = CurrentDb
    strSQL = "ALTER TABLE dbo_tblcollegata ADD COLUMN camponew Byte
NULL;"
    db.Execute strSQL
da un errore che non è possibile eseguire modifiche su tabelle
collegate.
Qualcuno sa come posso risolvere questo tipo di problema?
Grazie
Giuseppe


author: Jonathan Canova

text:
"yosef" <
yos...@gmail.com
> ha scritto nel messaggio
news:1121775772.2...@g44g2000cwa.googlegroups.com...
Ho una tabella collegata di nome dbo_tblcollegata ed ho necessità di
aggiungere un campo alla tabella di tipo byte che accetti valori Null,
ho provato a fare in questo modo:
    Dim db As Database
    Dim strSQL As String
    Set db = CurrentDb
    strSQL = "ALTER TABLE dbo_tblcollegata ADD COLUMN camponew Byte
NULL;"
    db.Execute strSQL
da un errore che non è possibile eseguire modifiche su tabelle
collegate.
Al posto di usare la connessione del db (implicitamente, tramite db.execute)
creati una nuova Connnection che punta al database in cui risiedono le
tabelle. E lavora su quella.
--
Jonathan Canova
infoCHIOCCIOLAaladinoinformatica.com
www.aladinoinformatica.com


text:
Potresti, gentilmente, fornirmi l'esempio?
Grazie
Giuseppe


text:
"yosef" <
yos...@gmail.com
> ha scritto nel messaggio
news:1121781542.8...@f14g2000cwb.googlegroups.com...
> Potresti, gentilmente, fornirmi l'esempio?
> Grazie
> Giuseppe
    Dim cnnDati As New ADODB.Connection ' Connessione al DB dei dati
    Dim strSorgenteDati As String
    strSorgenteDati = "C:\Access\Dati.mdb"
    cnnDati.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data
Source=" & strSorgenteDati & ";Mode=Share Deny None"
    cnnDati.Execute "DROP TABLE TEST"
    cnnDati.Close
    Set cnnDati = Nothing



title: Distinta Base

author: Mauro P

text:
Saluto chi mi legge, voglio porvi questo progetto:
L'intenzione è di gestire una distinta base con articoli codificati in
cascata per un numero indefinito di livelli.
Utilizzerei una tabella "tblArticolo" in cui sono contenuti gli articoli e
una seconda tabella "tblDistintaBase"
in cui codificare le righe della distinta base.
Per esempio una cucina è composta da telaio e ante, l'anta a sua volta è
composta da maniglia,
serratura e vetro; tutti gli articoli saranno codificati in tabella
"tblArticolo", mentre nella tabella
"tblDistintaBase" verranno invece codificati: cucina con i due sottoelementi
telaio e anta; anta con i suoi sottoelementi:
maniglia, serratura e vetro
cucina
   |      |
telaio, anta,
          |          |        |
       maniglia, serratura, vetro;
Il problema si presenta quando si vuole estrarre i dati ed "esploderli" ai
vari livelli, se i livelli sono fissi
la cosa è facile, ma con i livelli indefiniti la cosa è più complessa.
Quindi a parte qualche trucchetto nelle
tabelle, quello su cui chiedo aiuto sono le query e i report.
C'è qualcuno capace di risolvere questo problema ?
Ringrazio in anticipo chi mi risponderà
Mauro P


title: Distinta Base

author: Sergio MAZZA

text:
"Mauro P" <
pie...@telemar.it
> ha scritto nel messaggio news:ce5soe$qsl$1...@grillo.cs.interbusiness.it...

Non so' cosa intendi per "...qualche trucchetto nelle tabelle..." ma il problema è che l'articolo "Cucina"  ha come componenti il
telaio, la maniglia etc. etc. E quest'ultimi sono anch'essi articoli.
Non indicando come hai risolto (con quale trucchetto) non è possibile aiutarti nella compilazione di query/report.
(suggerimento)
Dovresti risolvere inserendo due campi nella tabella "DistintaBase":
- idArticolo;
- idComponenteDi;
entrambi collegati ad una tabella Articoli dove avrai in elenco tutti gli articoli: Cucina, maniglia, telaio, etc. etc.
Nell'inserimento indicherai:
- l'articolo Cucina (es. idArticolo = 1) e idComponenteDi = 0;
- l'articolo Maniglia (idArticolo = 2) e idComponenteDi = 1 (Cucina idArticolo = 1);
e così via...
Ciao.
--
Sergio MAZZA


title: Distinta Base

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ce5v6g$p7q$1...@canarie.caspur.it...

Grazie,
per trucchetto intendevo qualche forma di join tra due campi ID della stessa
tabella o sullo stesso campo, sempre in via teorica (e probabilmente
allucinata).
Per quanto mi proponi, ci rifletto assumendo che il campo si incrementi
automaticamente man mano che gli articoli si annidino.
Per il momento ho provato a utilizzare all'interno della "tblArticoli" i
campi "ArticoloID" e "ArticoloPadreID" in modo che questa informazione mi
consenta di ripercorrere i livelli della distinta base sino ad arrestarsi
quando i due campi sono uguali; ma più di questo non sono riuscito a fare.
Che ne pensi ?.
Ciao Mauro


title: Distinta Base

text:
"Mauro P" <
pie...@telemar.it
> ha scritto nel messaggio news:ce6003$3n7$1...@grillo.cs.interbusiness.it...
>
> Grazie,
> per trucchetto intendevo qualche forma di join tra due campi ID della stessa
> tabella o sullo stesso campo, sempre in via teorica (e probabilmente
> allucinata).
Mica tanto, se non vado errato dovrebbe essere una relazione molti a molti;
> Per quanto mi proponi, ci rifletto assumendo che il campo si incrementi
> automaticamente man mano che gli articoli si annidino.
> Per il momento ho provato a utilizzare all'interno della "tblArticoli" i
> campi "ArticoloID" e "ArticoloPadreID" in modo che questa informazione mi
> consenta di ripercorrere i livelli della distinta base sino ad arrestarsi
> quando i due campi sono uguali; ma più di questo non sono riuscito a fare.
> Che ne pensi ?.
>
> Ciao Mauro
Perché dici "...sino ad arrestarsi quando i due campi sono uguali"?
Mi sembra che conosci l'utilizzo della tecnica Padre/Figlio; però non sono convinto nell'inserire i campi nella tabella Articoli. Io
farei una tabella generica dove inserire tutti gli articoli (sia Padre che Figlio) e relativa descrizione; poi utilizzo questa per
creare la relazione Padre/Figlio in un'altra tabella. Questo per ottimizzare l'inserimento/modifica di un potenziale elenco di
articoli (es. codice barre, costo unitario, descrizione...).
Ciao.
--
Sergio MAZZA


title: Distinta Base

author: Marco Antonioli

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> wrote in message
news:ce61dk$pmq$
1...@canarie.caspur.it
> Perché dici "...sino ad arrestarsi quando i due campi sono uguali"?
> Mi sembra che conosci l'utilizzo della tecnica Padre/Figlio; però non sono convinto nell'inserire i campi nella tabella Articoli. Io
> farei una tabella generica dove inserire tutti gli articoli (sia Padre che Figlio) e relativa descrizione; poi utilizzo questa per
> creare la relazione Padre/Figlio in un'altra tabella. Questo per ottimizzare l'inserimento/modifica di un potenziale elenco di
> articoli (es. codice barre, costo unitario, descrizione...).
>
> Ciao.
La vedo anchio come te, Sergio.
Rivolto a Mauro, mi sembra che non sia necessario "un campo si
incrementi
automaticamente man mano che gli articoli si annidino".
E volendo aggiungere una specie di eresia, a parte la soddisfazione di
realizzare un db su livelli variabili, la (mia) realtà suggerisce che
un numero di livelli >5 (toh 6!) si inutile e dannoso e che (forse) non
vale la pena di scraniarsi.
Ciao
Marco
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Distinta Base

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ce61dk$pmq$1...@canarie.caspur.it...
> "Mauro P" <
pie...@telemar.it
> ha scritto nel messaggio
news:ce6003$3n7$1...@grillo.cs.interbusiness.it...
> >
> > Grazie,
> > per trucchetto intendevo qualche forma di join tra due campi ID della
stessa
> > tabella o sullo stesso campo, sempre in via teorica (e probabilmente
> > allucinata).
>
> Mica tanto, se non vado errato dovrebbe essere una relazione molti a
molti;
>
> > Per quanto mi proponi, ci rifletto assumendo che il campo si incrementi
> > automaticamente man mano che gli articoli si annidino.
> > Per il momento ho provato a utilizzare all'interno della "tblArticoli" i
> > campi "ArticoloID" e "ArticoloPadreID" in modo che questa informazione
mi
> > consenta di ripercorrere i livelli della distinta base sino ad
arrestarsi
> > quando i due campi sono uguali; ma più di questo non sono riuscito a
fare.
> > Che ne pensi ?.
> >
> > Ciao Mauro
>
> Perché dici "...sino ad arrestarsi quando i due campi sono uguali"?
-----> l'idea è di utilizzarli come criterio di una query, quando i due
campi sono uguali vuol dire che si è arrivati all'ultimo livello della
distinta base.
> Mi sembra che conosci l'utilizzo della tecnica Padre/Figlio; però non sono
convinto nell'inserire i campi nella tabella Articoli. Io
> farei una tabella generica dove inserire tutti gli articoli (sia Padre che
Figlio) e relativa descrizione; poi utilizzo questa per
> creare la relazione Padre/Figlio in un'altra tabella. Questo per
ottimizzare l'inserimento/modifica di un potenziale elenco di
> articoli (es. codice barre, costo unitario, descrizione...).
-----> In principio avevo impostato i due cambi padre/figlio nella
"tblDistintaBase" ma non riuscivo comunque a eseguire una query che
"esplodesse" i vari livelli.
Quindi mi sembra che le impostazioni delle tabelle sono corrette, come
estrarre i dati ?.
:) Ciao
Mauro P


title: Distinta Base

text:
"Marco Antonioli" <
in...@echovr.it
> ha scritto nel messaggio
news:cdd80aa886272e68fc4...@mygate.mailgate.org...

Ciao Marco,
grazie per l'intervento, penso che impostare un limito fisso di livelli
tolga flessibilità al programma.
Ciao Mauro


title: Distinta Base

text:
"Mauro P" <
pie...@telemar.it
> wrote in message
news:ce848b$k5g$
2...@fata.cs.interbusiness.it
> Ciao Marco,
> grazie per l'intervento, penso che impostare un limito fisso di livelli
> tolga flessibilità al programma.
Sono perfettamente d'accordo con te, riflettevo sul fatto di rompersi
per
scrivere un sw flessibile quando poi il tutto non viene sfruttato.



title: Distinta Base

text:
"Mauro P" <
pie...@telemar.it
> ha scritto nel messaggio news:ce848a$k5g$1...@fata.cs.interbusiness.it...
>
> -----> l'idea è di utilizzarli come criterio di una query, quando i due
> campi sono uguali vuol dire che si è arrivati all'ultimo livello della
> distinta base.
>
> -----> In principio avevo impostato i due cambi padre/figlio nella
> "tblDistintaBase" ma non riuscivo comunque a eseguire una query che
> "esplodesse" i vari livelli.
> Quindi mi sembra che le impostazioni delle tabelle sono corrette, come
> estrarre i dati ?.
>
> :) Ciao
>
> Mauro P
Io intendevo in modo diverso l'utilizzo di quei campi.
Riparto dal "mio pensiero";
Es.
tabella Articoli:
id, descrizione
1, Cucina "Tizio"
2, Maniglia
3, Cassetto
4, Forno
5, Cucina "Caio"
tabella (es.) ArticoliInMagazzino:
idArticolo, idCompostoDa
1,0    (Cucina "Tizio")
2,1    (Maniglia, per Cucina "Tizio")
3,1    (Cassetto, per Cucina "Tizio")
2,0    (Maniglia)
5,0    (Cucina "Caio")
4,5    (Forno per Cucina "Caio")
etc. etc.
Quando vuoi sapere di quali/quanti pezzi è composta la Cucina "Tizio", fai una query indicando in entrambi gli id il numero
dell'articolo Cucina "Tizio" (se scrivi "Biso" non funziona).
Ho interpretato male?
Ciao.
--
Sergio MAZZA


title: DoCmd.GoToRecord , , acNewRec

author: Alex

text:
Probabilmente sono poco attento, o meglio "An pň Dur", cosě si dice da noi...
Pongo il problema:
FormPrincipale---->SubForm
dalla FrmPrincipale devo generare il comando in oggetto riferito alla Sub...!
In teoria č semplice, ma visto che il comando accetta una Stringa come
NomeOggetto quando passo il nome della Sub essendo appunto una Sub non lo
esegue......!
Ho risolto il problema in questo modo:
Me.Subform.form.Setfocus
DoCmd.GoToRecord , , acNewRec
Funziona, ma mi pare poco elastico.....
C'č un altro sistema piů pulito per il problema.....?
Grazie @Alex.
--
Posted from  [62.98.12.100]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: DoCmd.GoToRecord , , acNewRec

author: Roberto dal portatile

text:
"Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:9cf871e5ed22ebd566...@mygate.mailgate.org...
>
> Probabilmente sono poco attento, o meglio "An pò Dur", così si dice da
noi...
> Pongo il problema:
> FormPrincipale---->SubForm
> dalla FrmPrincipale devo generare il comando in oggetto riferito alla
Sub...!
> In teoria è semplice, ma visto che il comando accetta una Stringa come
> NomeOggetto quando passo il nome della Sub essendo appunto una Sub non lo
> esegue......!
> Ho risolto il problema in questo modo:
> Me.Subform.form.Setfocus
> DoCmd.GoToRecord , , acNewRec
> Funziona, ma mi pare poco elastico.....
?????
Di la verità: invece di un database stai costruendo una mazzafionda. ;-)
>
> C'è un altro sistema più pulito per il problema.....?
Se ti piace di più puoi usare
DoCmd.RunCommand acCmdRecordsGoToNew
ma sempre dopo aver spostato il fuoco nella sottomaschera.
> Grazie @Alex.
>
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: DoCmd.GoToRecord , , acNewRec

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> wrote in message
news:9r4cks$crg$1...@stargate1.inet.it...
> [CUT]
>
> ?????
> Di la verità: invece di un database stai costruendo una mazzafionda. ;-)
>
> >
> > C'è un altro sistema più pulito per il problema.....?
>
> Se ti piace di più puoi usare
>
> DoCmd.RunCommand acCmdRecordsGoToNew
>
> ma sempre dopo aver spostato il fuoco nella sottomaschera.
>
> > Grazie @Alex.
Ciao Roberto....
Beh, devo essere sincero, prima di rispondere ho riso 5' minuti....
In effetti sto facendo un'esperimento di alchimia, e spero funzioni....
Scherzi a parte sto facendomi un Modulo di classe che mi sta incasinando
se così si può dire, ma giuro che appena è finito te ne mando una copia,
così poi puoi affondare ancora di più l'ascia, si perchè non sarà sufficiente
il "CORTELLO".... un pò come "ALBITRO"....!!!!
Per quel che riguarda la soluzione al mio attuale hai fatto come il gioco delle
tre carte, solo che quì sono 2 e uguali...;-)
Ciao @Alex.
--
Posted from  [62.98.13.98]



title: importazioni di dati da excel

author: Andrea Brilli

text:
Io sto cercando di importare in una tabella di acces dei dati di un file di
excel ma non riesco chi puo aiutarmi?
Grazie Andrea


title: importazioni di dati da excel

author: Carlo Costarella

text:
"Andrea Brilli" <
andrea...@virgilio.it
> ha scritto nel messaggio
news:xIIva.81030$3M4.1...@news1.tin.it...

Se leggi uno dei molti post di questo mese troverai più di una risposta.
Ciao, Carlo


title: importazioni di dati da excel

text:
ti ringrazio ho visto i post precedenti ma non ho trovato aiuto per questo
ho riscritto
sai darmi qualche altra indicazione per piacere?
ciao
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel
messaggio news:_NIva.81046$3M4.1...@news1.tin.it...



title: importazioni di dati da excel

text:
"Andrea Brilli" <
andrea...@virgilio.it
> ha scritto nel messaggio
news:EUIva.81064$3M4.1...@news1.tin.it...

Nella guida cerca: Metodo TransferSpreadsheet
ci sono anche degli esempi.
Ciao, Carlo


title: Application.FileSearch non disponibile in A2007.

author: Riccardo Baldinotti

text:
Nell'elenco delle variazioni intervenute da A2000 a A2007, trovo che
FileSearch è "nascosto".
A questo punto le domande sono due:
1: chevvordi' "nascosto"?
2: cosa devo usare al suo posto?
Grazie a tutti.
Riccardo Baldinotti


author: Karl Donaubauer

text:
Riccardo Baldinotti wrote:
> Nell'elenco delle variazioni intervenute da A2000 a A2007, trovo che
> FileSearch � "nascosto".
> A questo punto le domande sono due:
> 1: chevvordi' "nascosto"?
Forse si tratta di una traduzione debole.
"Abbandonato" sarebbe pi� preciso, cio� non � pi� presente.
> 2: cosa devo usare al suo posto?
Vedi:
http://support.microsoft.com/kb/935402/en-us
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 20 Nov, 14:46, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> RiccardoBaldinottiwrote:
> > Nell'elenco delle variazioni intervenute da A2000 a A2007, trovo che
> > FileSearch è "nascosto".
> > A questo punto le domande sono due:
> > 1: chevvordi' "nascosto"?
>
> Forse si tratta di una traduzione debole.
> "Abbandonato" sarebbe più preciso, cioè non è più presente.
>
> > 2: cosa devo usare al suo posto?
>
> Vedi:
http://support.microsoft.com/kb/935402/en-us
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
In effetti il comando Dir è forse quel che mi serve, però c'è un
però...
Volevo dare un comando
Kill CurrentProject.Path & "\*.xls"
una volta, in modo da fare pulizia nella cartella dell'utente, in
quanto avevo sostituito dei file accessori, fatti con Excel 2000 ed
estensione .xls, con altri file, fatti con Excel 2007 ed
estensione .xlsx.
L'idea era di metterlo insieme ai comandi che la mia applicazione
eseguiva all'avvio, per poi eliminarla in seguito, quando tutti gli
utenti l'avessero aperta e si fossero ripuliti.
Se però il comando non trovava file, usciva con un errore. Allora
avevo pensato di fare una cosa del genere:
    With Application.FileSearch
        .LookIn = CurrentProject.Path
        .SearchSubFolders = False
        .FileName = "*.xls"
        If .Execute() > 0 Then
            Kill CurrentProject.Path & "\*.xls" '
        End If
    End With
con codice scopiazzato dall'esempio 6.30 del SitoComune, a firma
AntoGal.
Ecco che mi si è posto il problema di FileSearch.
Sostituendo con
        If dir(CurrentProject.Path & "\*.xls") = "" Then
            Kill CurrentProject.Path & "\*.xls" '
        End If
però, scopro che la ricerca ha successo anche se non ci sono
file .xls, ma file .xlsx
Sembra cioè che dir sia molto possibilista con le estensioni. E se è
per questo, ho verificato che un comando come
Kill CurrentProject.Path & "\*.xls" mi uccideva anche i file .xlsx, i
quali invece, ovviamente, vanno mantenuti. Potrei farli ricopiare
dalla rete ogni volta, e togliere poi questa copiatura insieme al
comando Kill, ma non mi sembra "elegante".
Come posso rimediare?
Grazie mille.
Riccardo Baldinotti


text:
Riccardo Baldinotti wrote:
> ...
> Volevo dare un comando
> Kill CurrentProject.Path & "\*.xls"
> una volta, in modo da fare pulizia nella cartella dell'utente, in
> quanto avevo sostituito dei file accessori, fatti con Excel 2000 ed
> estensione .xls, con altri file, fatti con Excel 2007 ed
> estensione .xlsx.
> L'idea era di metterlo insieme ai comandi che la mia applicazione
> eseguiva all'avvio, per poi eliminarla in seguito, quando tutti gli
> utenti l'avessero aperta e si fossero ripuliti.
> Se per� il comando non trovava file, usciva con un errore. Allora
> avevo pensato di fare una cosa del genere:
>     With Application.FileSearch
>         .LookIn = CurrentProject.Path
>         .SearchSubFolders = False
>         .FileName = "*.xls"
>         If .Execute() > 0 Then
>             Kill CurrentProject.Path & "\*.xls" '
>         End If
>     End With
> con codice scopiazzato dall'esempio 6.30 del SitoComune, a firma
> AntoGal.
> Ecco che mi si � posto il problema di FileSearch.
> Sostituendo con
>         If dir(CurrentProject.Path & "\*.xls") = "" Then
>             Kill CurrentProject.Path & "\*.xls" '
>         End If
> per�, scopro che la ricerca ha successo anche se non ci sono
> file .xls, ma file .xlsx
> Sembra cio� che dir sia molto possibilista con le estensioni. E se �
> per questo, ho verificato che un comando come
> Kill CurrentProject.Path & "\*.xls" mi uccideva anche i file .xlsx, i
> quali invece, ovviamente, vanno mantenuti. Potrei farli ricopiare
> dalla rete ogni volta, e togliere poi questa copiatura insieme al
> comando Kill, ma non mi sembra "elegante".
S�, sembra che Dir e Kill non possono differenziare tra "xls" e "xlsx".
Forse perch� sono dall'epoca con 8.3.
Se non hai mille file nella cartella non dovrebbe essere troppo
lento un ciclo con un paragone pi� esatto come questo:
Dim strPath As String, strFile As String
strPath = CurrentProject.Path & "\"
strFile = Dir(strPath, vbDirectory)
Do While strFile <> ""
    strFile = Dir
    If strFile Like "*.xls" Then
        Kill strPath & strFile
    End If
Loop



text:
On 23 Nov, 16:21, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> Riccardo Baldinotti wrote:
> > ...
> > Volevo dare un comando
> > Kill CurrentProject.Path & "\*.xls"
> > una volta, in modo da fare pulizia nella cartella dell'utente, in
> > quanto avevo sostituito dei file accessori, fatti con Excel 2000 ed
> > estensione .xls, con altri file, fatti con Excel 2007 ed
> > estensione .xlsx.
> > L'idea era di metterlo insieme ai comandi che la mia applicazione
> > eseguiva all'avvio, per poi eliminarla in seguito, quando tutti gli
> > utenti l'avessero aperta e si fossero ripuliti.
> > Se però il comando non trovava file, usciva con un errore. Allora
> > avevo pensato di fare una cosa del genere:
> >     With Application.FileSearch
> >         .LookIn = CurrentProject.Path
> >         .SearchSubFolders = False
> >         .FileName = "*.xls"
> >         If .Execute() > 0 Then
> >             Kill CurrentProject.Path & "\*.xls" '
> >         End If
> >     End With
> > con codice scopiazzato dall'esempio 6.30 del SitoComune, a firma
> > AntoGal.
> > Ecco che mi si è posto il problema di FileSearch.
> > Sostituendo con
> >         If dir(CurrentProject.Path & "\*.xls") = "" Then
> >             Kill CurrentProject.Path & "\*.xls" '
> >         End If
> > però, scopro che la ricerca ha successo anche se non ci sono
> > file .xls, ma file .xlsx
> > Sembra cioè che dir sia molto possibilista con le estensioni. E se è
> > per questo, ho verificato che un comando come
> > Kill CurrentProject.Path & "\*.xls" mi uccideva anche i file .xlsx, i
> > quali invece, ovviamente, vanno mantenuti. Potrei farli ricopiare
> > dalla rete ogni volta, e togliere poi questa copiatura insieme al
> > comando Kill, ma non mi sembra "elegante".
>
> Sì, sembra che Dir e Kill non possono differenziare tra "xls" e "xlsx".
> Forse perché sono dall'epoca con 8.3.
>
> Se non hai mille file nella cartella non dovrebbe essere troppo
> lento un ciclo con un paragone più esatto come questo:
>
> Dim strPath As String, strFile As String
>
> strPath = CurrentProject.Path & "\"
> strFile = Dir(strPath, vbDirectory)
>
> Do While strFile <> ""
>     strFile = Dir
>     If strFile Like "*.xls" Then
>         Kill strPath & strFile
>     End If
> Loop
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -
Sì, credo che farò qualcosa del genere.
I nomi lunghi sono una delle piacevolezze che mi hanno indotto ad
abbandonare definitivamente la nostalgia per il DOS.
Grazie tante.
Riccardo Baldinotti


title: valore proprietà troppo grande

author: impie

text:
Buongiorno, avrei bisogno di una mano con il seguente:
in una tabella ho 211 campi con 132 records, lo so, sono tanti...
infatti sto cercando di suddividerlo in 2 tabelle.
Ma quando cerco di salvare la tabella dopo aver eliminato alcuni campi
mi da il seguente messaggio di errore: "valore della proprietà troppo
grande" cliccando su "ok" mi dice "sono stati rilevati errori durante
il salvataggio"
Cosa posso/devo fare ?
Grazie in anticipo per i vostri suggerimenti e l'aiuto


title: valore proprietà troppo grande

author: napo

text:
>Ma quando cerco di salvare la tabella dopo aver eliminato alcuni campi
>mi da il seguente messaggio di errore: "valore della proprietà troppo
>grande" cliccando su "ok" mi dice "sono stati rilevati errori durante
>il salvataggio"
>Cosa posso/devo fare ?
Suddividi i dati in 2 nuove tabelle e cancella la vecchia.
Ciao
Marco


title: valore proprietà troppo grande

text:
Ciao Marco, ma lo devo fare a mano o uso lo strumento "analizza
tabella"?


title: valore proprietà troppo grande

text:
> Ciao Marco, ma lo devo fare a mano o uso lo strumento "analizza
> tabella"?
Puoi provare anche con quello.
Male che vada lo puoi fare con VBA.
Ciao
Marco


title: valore proprietà troppo grande

author: MA

text:

Mi sa che devi normalizzare un pò il db
Che deve fare?
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: driver odbc 64 bit

author: Lorenzo(pyx)

text:
Ciao a tutti,
Sapete se sono stati rilasciati i driver odbc a 64 bit per XP ?
ovviamente per access.
Grazie
--
--
Lorenzo


title: A00/W98 - Treeview

author: Lorenzo A.

text:
Saluti a tutti!
Domanda:
esiste un modo per "espandere" l'albero del treeview automaticamente ad un
determinato livello/valore?
mi spiego meglio: ho una maschera con un oggetto treeview e con dei campi di
gestione(modifica/inserimento) di valori che vanno poi visualizzati
nell'albero.
vorrei che, diciamo sull'evento "dopo aggiornamento", il treeview facesse
una specie di requery per rileggersi i dati aggiornati/aggiunti e si
riaprisse nel punto dove era prima automaticamente.
Per ora ho dovuto associare all'evento "dopo aggiornamento" il richiamo
della routine di popolamento del treeview per fargli rileggere i dati, ma mi
si ripresenta chiuso e non espanso.
Grazie
Lorenzo


title: A00/W98 - Treeview

author: Paolo Beltrame

text:
Ciao Lorenzo,
"Lorenzo A." <
lore...@libero.it
> ha scritto nel messaggio
news:QOt56.252585$hk4.12...@news.infostrada.it...

Potresti memorizzare la chiave del nodo in una variabile (es. NodeKey).
Dopo il ripopolamento del TreeView esegui:
 Me!TreeObj.Nodes.Item(NodeKey).Expanded = True
Potresti anche aggiungere "al volo" i nodi al TreeView, leggermente
piu` macchinoso, ma ti evita il ripopolamento.
Paolo


title: A00/W98 - Treeview

author: Giuseppe

text:
"Lorenzo A." <
lore...@libero.it
> ha scritto nel messaggio
news:QOt56.252585$hk4.12...@news.infostrada.it...

con
objNode.Index
rilevi e memorizzare il nodo che interessa
e con la proprietą FirstSibling e il metodo EnsureVisibleil espandi al nodo
desiderato:
With objTree.Nodes(x).FirstSibling
        .EnsureVisible
End With
giuseppe


title: A00/W98 - Treeview

text:
Giuseppe <
ebq...@tin.it
> wrote in message
HqD56.10665$jT6.4...@twister2.tin.it...

Ti ringrazio per la risposta e provo subito ad applicare la soluzione
proposta.
una cortesia, mi sai dire dove posso trovare documentazione sul treeview?
Grazie ancora,
Lorenzo


title: A00/W98 - Treeview

text:
Paolo Beltrame <
pa...@italpro.net
> wrote in message
4tC56.204492$DG3.4...@news2.giganews.com...

Grazie del suggerimento, lo provo subito!
mi sai dire dove si trova la documentazione del Treeview? mi ricordo di
averla letta da qualche parte, ma accidenti non mi ricordo più dove!
posso chiederti anche quale sarebbe il metodo di aggiunta "al volo" che citi
nella risposta, se possibile?
Lorenzo


title: A00/W98 - Treeview

text:

il file di guida si chiama Comctl1.hlp ed č presente in ODE 97 e VB6
giuseppe


title: A00/W98 - Treeview

text:
"Lorenzo A." <
lore...@libero.it
> ha scritto nel messaggio
news:YnQ56.260006$hk4.13...@news.infostrada.it...
> Grazie del suggerimento, lo provo subito!
> mi sai dire dove si trova la documentazione del Treeview? mi ricordo di
> averla letta da qualche parte, ma accidenti non mi ricordo più dove!
> posso chiederti anche quale sarebbe il metodo di aggiunta "al volo" che
citi
> nella risposta, se possibile?
Ho copiato ed incollato uno stralcio di codice che uso:
   Set mNode = Me!CtrlTreeView.Nodes.Add("Node" _
    & rs!RecAppartenenza, tvwChild)
    mNode.Text = Testo
    mNode.key = "Node" & CurrentNodeIndex
    mNode.Image = 1: mNode.ExpandedImage = 2
Spero che tu riesca ad interpretare l'uso da me effettuato.
Eventualmente, chiedimi.
    Paolo


title: inserire nuovi record con ricerca preventiva

text:
Ho adottato il suggerimento di Roberto Massoni, ho costruito una maschera
con un controllo elenco a tre colonne dove vengono visualizzati tutti i
pazienti inseriti in archivio.
Poi ho inserito due pulsanti: uno da premere se il paziente è già in elenco
per far aprire la maschera anagrafica e visualizzare proprio quel record e
l'altro... per ora non interessa.
Ho impostato una routine evento sulla proprietà Su clic del pulsante che
riporto di seguito
Private Sub esiste_Click()
    cg = Elenco0.Column(1)
    nm = Elenco0.Column(2)
    dt = Elenco0.Column(3)
    DoCmd.OpenForm "anagrafica", , , "cogn= cg and nome=nm and ntil=dt"
End Sub
La riga con DoCmd .OpenForm non riesco a impostarla. Dagli esempi di Access
ricavo:
**** Nell'esempio riportato di seguito viene indicato come aprire la
maschera Impiegati in visualizzazione Maschera e visualizzare nel campo
Cognome soltanto i record con "Fabbri". I record visualizzati possono essere
modificati ed è possibile aggiungere nuovi record.
DoCmd.OpenForm "Impiegati", , ,"Cognome = 'Fabbri'" *****
dove 'Fabbri' è un valore costante. Come si inseriscono le variabili cg, nm
e dt con i rispettivi operatori AND nella stringa SQL? Grazie
--
Cordiali saluti
Nunzio Santini


author: Federico Luciani

text:
sanzio55 wrote:
> Ho adottato il suggerimento di Roberto Massoni, ho costruito una maschera
> con un controllo elenco a tre colonne dove vengono visualizzati tutti i
> pazienti inseriti in archivio.
> Poi ho inserito due pulsanti: uno da premere se il paziente è già in elenco
> per far aprire la maschera anagrafica e visualizzare proprio quel record e
> l'altro... per ora non interessa.
> Ho impostato una routine evento sulla proprietà Su clic del pulsante che
> riporto di seguito
> Private Sub esiste_Click()
>     cg = Elenco0.Column(1)
>     nm = Elenco0.Column(2)
>     dt = Elenco0.Column(3)
>     DoCmd.OpenForm "anagrafica", , , "cogn= cg and nome=nm and ntil=dt"
> End Sub
> La riga con DoCmd .OpenForm non riesco a impostarla. Dagli esempi di Access
> ricavo:
Scusa, ma in quella tabella non c'e' un id che identifica
univocamente il record (ad esempio un contatore)?
Cmq, per costruire stringhe SQl con variabili devi fare
cosi':
se cg e nm sono stringhe e dt e' una data
"cogn='" & cg & "' and nome='" & nm & "' and ntil=#" & dt &
"#"
attenzione apice-doppioapice doppioapice-apice
inoltre la data deve essere in formato mm/gg/aaaa
se la variabile fosse un numero:
"id=" & variabile
Per la gestione delle date nelle stringhe SQL vai a vedere
sul SitoComune
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


text:
Il mio amico Federico mi aprì gli occhi scrivendomi
> Scusa, ma in quella tabella non c'e' un id che identifica
> univocamente il record (ad esempio un contatore)?
Porca pu... è vero, non mi era sfiorata l'idea di usare l'ID del record,
così diventa molto più semplice a parte il suggerimento del apice -
doppioapice - & variabile stringa & doppioapice - apice
>Per la gestione delle date nelle stringhe SQL vai a vedere
>sul SitoComune
Molto spesso rimandate al sito comune come se fosse un'enciclopedia di
Access; sarà vero ma io mi ci perdo, non riesco a trovare le informazioni
che cerco. Ho perfino scaricato il sito su di un disco iomegazip da 100 MB
per poterci navigare con tutta calma e non sono riuscito lo stesso ad
orientarmi. Sarò un incapace?



text:
sanzio55 wrote:
> Il mio amico Federico mi aprì gli occhi scrivendomi
> > Scusa, ma in quella tabella non c'e' un id che identifica
> > univocamente il record (ad esempio un contatore)?
> Porca pu... è vero, non mi era sfiorata l'idea di usare l'ID del record,
> così diventa molto più semplice a parte il suggerimento del apice -
> doppioapice - & variabile stringa & doppioapice - apice
Allora se l'id e' la prima colonna dell'elenco, diventa:
DoCmd.OpenForm "anagrafica", , , "ID=" & me.Elenco0
> >Per la gestione delle date nelle stringhe SQL vai a vedere
> >sul SitoComune
>
> Molto spesso rimandate al sito comune come se fosse un'enciclopedia di
> Access; sarà vero ma io mi ci perdo, non riesco a trovare le informazioni
> che cerco. Ho perfino scaricato il sito su di un disco iomegazip da 100 MB
> per poterci navigare con tutta calma e non sono riuscito lo stesso ad
> orientarmi. Sarò un incapace?
> --
> Cordiali saluti
> Nunzio Santini
Sez FAQ - Problemi con le date nelle stringhe SQL.



text:
L'amico Federico scrisse
> Allora se l'id e' la prima colonna dell'elenco, diventa:
> DoCmd.OpenForm "anagrafica", , , "ID=" & me.Elenco0
>
L'avevo già fatto e funziona egregiamente. Grazie per due motivi:
1. mi hai aiutato a risolvere per me un grande problema
2. mi hai dato una lezione di Access su come "attaccare" le variabili nelle
stringhe SQL. Ho stampato il tuo post e l'ho inserito in biblioteca assieme
ai libri di Access.
Ancora Grazie e...



title: Win 98 + Access 97 e controlli ActiveX

text:
Salve a tutti,
In questi giorni ho provato a mettere in una maschera di Access 97 il
controllo ActiveX - Web Browser e ho ottenuto il seguente messaggio:
Nessun oggetto in questo controllo. Dopo aver letto il messaggio
apparso in questo newgroup il 10/01/2000 "Access97 sr2 - Componente
ActiveX non è in grado di creare l'oggetto" ho lanciato il comado:
regsvr32.exe shdocvw.dll sia dal prompt di dos sia dal menù esegui di
windows 98. Ovviamente non ho ottenuto nessun risultato. Quindi ho
disinstallato e re-installato Office, senza però ottenere risultati
significativi.
Oggi ho letto i nuovi post dove si suggerisce di scaricare il file
VBC.EXE. Quindi ho proceduto come segue:
1 installazione della patch;
2 riavvio canonico del computer;
3 avvio di Access;
4 constatazione di non aver risolto niente;
5 chiusura di access;
6 registrazione della dll: shdocvw.dll;
7 riavvio di windows;
8 avvio di Access;
9 ri-constatazione di non aver risolto niente.
Per curiosità ho provato a far girare il medesinmo controllo su un
altro computer con win 98 e ho ottenuto il medesimo risultato, mentre
su un computer con win 95  oem primissima versione il controllo
ActiveX gira bene.
Cosa posso fare?
Grazie
ugo


title: Contatore Access 97 e Access 2000

author: Alberto Colombo

text:
Salve a tutto il NG,
Come mai se cancello da una tabella di MsAccess 2000 con PrimaryKey =
"contatore" gli ultimi record inseriti, eseguo l'utility di compattazione e
poi inserisco un nuovo record, il contatore del nuovo record non è
"MaxPresente + 1" bensì "MaxCancellato + 1" ?
Se invece eseguo le stesse operazioni con MsAccess 97 (o con versioni
precedenti) il contatore del nuovo record è "MaxPresente + 1".
Sembrerebbe un bug di Microsoft leggete questo articolo:
http://support.microsoft.com/default.aspx?scid=kb;en-us;287756&Product=acc
Ma c'e anche chi sostiene che è una scelta di Microsoft, a partire dalla
versione 2000 in poi i campi contatore non vengono piu' resettati dopo la
compattazione.
Qualcuno di voi ha qualche altra informazione SICURA?
Grazie in anticipo per l'aiuto.
Alberto


title: registrare i tempi di apertura di un report o maschera

author: Marco Tosto

text:
qualcuno sa se e come sia possibile controllare i tempi di apertura di un
report o maschera in modo da poter capire se sto ottimizzando effettivamente
il codice ?
Grazie.


author: ciroteo

text:
"Marco Tosto" <marcotosto(nospam)@
email.it
> ha scritto nel messaggio
news:43d044b2$0$1084$4faf...@reader1.news.tin.it...

con un cronometro ...
... scusa non ho resistito! ....


text:

on hai detto una stupidaggine Access parlando
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
>>
>
> con un cronometro ...
>
> ... scusa non ho resistito! ....
>
Nessun problema, in effetti potrebbe essere una soluzione :)


author: Alessandro Baraldi

text:
"ciroteo" <
ciroteochio...@libero.it
> wrote in message
news:dqqa3j$c4u$
1...@fittipaldi.interac.it

Se i tempo di apertura sono superiori ai tempi di reazione
umana(stimati circa in 1 secondo) direi che addirittura
si potrebbe evitare il cronometro.....!!!
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Fabio

text:

> Grazie.
Sul sito comune alla faq 5.55 c'è un timer che utilizza l' API di
windows, preciso al millesimo di secondo.
Prova un po' a vedere.
Fabio


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:e2aa5bcc21fd71bfd6...@mygate.mailgate.org...

ho un report che impiega circa 10 secondi ad aprirsi, mi devo preoccupare?


text:
"Marco Tosto" <marcotosto(nospam)@
email.it
> ha scritto nel messaggio
news:43d0cdd6$0$1066$4faf...@reader4.news.tin.it...

beh credo di si ... soprattutto se contati a mente ... di solito si è un po'
più lenti del cronometro.
Se si tratta del report di cui parlava Nicolas l'altro giorno con tanti
dlookup al suo interno è pacifico che si rallenti.
Probabilmente occorre ottimizzare la query sottostante o, come a me capita
spesso ultimamente, se si corrompe il report si deve necessariamente
reimportare il tutto in un nuovo db.
prova ...


text:
"ciroteo" <
ciroteochio...@libero.it
> wrote in message
news:dqqnng$hdt$
1...@fittipaldi.interac.it
[CUT]
> beh credo di si ... soprattutto se contati a mente ... di solito si è un po'
> più lenti del cronometro.
> Se si tratta del report di cui parlava Nicolas l'altro giorno con tanti
> dlookup al suo interno è pacifico che si rallenti.
A Ciroteo, sono la stessa persona fortunatamente, se fossero
sati 2 sarebbero stati CLONI e spero non sia ancora possibile
se i risultati sono questi.
Usa molti Alias con lo scopo di ottenere meno
insulti e/o più risposte....!
> Probabilmente occorre ottimizzare la query sottostante o, come a me capita
> spesso ultimamente, se si corrompe il report si deve necessariamente
> reimportare il tutto in un nuovo db.
Ecco, probabilmente occorrerebbe, in generale, seguire quello
che fà lo zio di Paolo Bonolis nella pubblicità del caffè, lo
trovo istruttivo.
> prova ...
Ecco hai detto bene che provi quanto detto sopra a proposito
dello Zio di Bonolis....!
Ciao.



text:
> A Ciroteo, sono la stessa persona fortunatamente, se fossero
> sati 2 sarebbero stati CLONI e spero non sia ancora possibile
> se i risultati sono questi.
>
> Usa molti Alias con lo scopo di ottenere meno
> insulti e/o piů risposte....!
Aaaaa Baraldi statte bbono che adesso sono finiti gli alias come vedi
adesso non uso nessun alias...
Buona Lavoro.


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c6bfd76f2d97dd9490...@mygate.mailgate.org...
> "ciroteo" <
ciroteochio...@libero.it
> wrote in message
> news:dqqnng$hdt$
1...@fittipaldi.interac.it
>
> [CUT]
>> beh credo di si ... soprattutto se contati a mente ... di solito si è un
>> po'
>> più lenti del cronometro.
>> Se si tratta del report di cui parlava Nicolas l'altro giorno con tanti
>> dlookup al suo interno è pacifico che si rallenti.
>
> A Ciroteo, sono la stessa persona fortunatamente, se fossero
> sati 2 sarebbero stati CLONI e spero non sia ancora possibile
> se i risultati sono questi.
>
> Usa molti Alias con lo scopo di ottenere meno
> insulti e/o più risposte....!
>
shhh ... lo sapevo ... era una velata ironia ...
;-)



text:
"ciroteo" <
ciroteochio...@libero.it
> wrote in message
news:dr2328$d83$
1...@fittipaldi.interac.it
[CUT]
> shhh ... lo sapevo ... era una velata ironia ...
> ;-)
Si immagino, ma mi hai dato il "LA" per fare la battuta...!
Ciao



title: help velocissimo....

text:
Ho una query con questa formula:

GIORNO: Format([DATA];"a")

che da un campo DATA mi restituisce il valore progressivo di quella data  da 1 a 365 nel corso dell'anno.
Purtroppo mi restituisce una formattazione in testo che non riesco a modificare in valore per poterla utilizzare nelle query successive.

Qualche anima buona sa insegnarmi come formattarlo, in valore, già nell'istruzione ?

Scusate ma sono completamente nella cacca, ho provato a googlare ma non trovo soluzione.
grazie di cuore.


title: help velocissimo....

text:
ignazio.pilone wrote:
> Ho una query con questa formula:
>
> GIORNO: Format([DATA];"a")
>
> che da un campo DATA mi restituisce il valore progressivo di quella
> data  da 1 a 365 nel corso dell'anno.
> Purtroppo mi restituisce una formattazione in testo che non riesco a
> modificare in valore per poterla utilizzare nelle query successive.
> ...

DatePart("a";[DATA])

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


title: help velocissimo....

text:
Karl Donaubauer wrote:
> ignazio.pilone wrote:
> ...

*Oops*, non ho letto il soggetto insignificante prima di rispondere.
Siamo felici che Antonio B. non è più presente qui. ;-)


title: problema anteprima/stampa report access

author: marco veronesi

text:
Ciao a tutti, dopo aver attivato nel mio db il rendere non visibile
l'applicazione access ho riscontrato che la seguente routine che mi
consentiva di vedere l'anteprima di un report e poi decidere se
stamparlo o meno non funziona più o meglio posso sempre scegliere se
stampare o meno ma non riesco più a visualizzare l'anteprima di stampa
Incollo la routine che uso
DoCmd.OpenReport "REGISTRO Generale1", acViewPreview
    ok = MsgBox("Stampare Il Registro Generale?", vbYesNo)
    If ok = vbYes Then
    DoCmd.OpenReport "REGISTRO Generale1", acNormal
   Else
   DoCmd.Close acReport, "REGISTRO Generale1"
End If
grazie per l'attenzione


title: problema anteprima/stampa report access

text:
marco veronesi wrote:
> Ciao a tutti, dopo aver attivato nel mio db il rendere non visibile
> l'applicazione access ho riscontrato che la seguente routine che mi
> consentiva di vedere l'anteprima di un report e poi decidere se
> stamparlo o meno non funziona piů o meglio posso sempre scegliere se
> stampare o meno ma non riesco piů a visualizzare l'anteprima di stampa
> Incollo la routine che uso
> DoCmd.OpenReport "REGISTRO Generale1", acViewPreview
>
>     ok = MsgBox("Stampare Il Registro Generale?", vbYesNo)
>     If ok = vbYes Then
>     DoCmd.OpenReport "REGISTRO Generale1", acNormal
>    Else
>    DoCmd.Close acReport, "REGISTRO Generale1"
> End If
Capisco bene che l'unica problema č che non vedi il report sullo schermo?
Non so cosa fai per "rendere non visibile...access".
Se per caso hai preso il codice da
www.donkarl.com/it?FAQ1.11
sarebbe utile di leggere anche gli avvisi sotto il codice.
Inoltre ad altri svantaggi scrivo che tutte le maschere e report
devono essere impostate su Pop-Up per essere visibili.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: problema anteprima/stampa report access

text:
On 23 Apr, 11:13, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> marco veronesi wrote:
> > Ciao a tutti, dopo aver attivato nel mio db il rendere non visibile
> > l'applicazione access ho riscontrato che la seguente routine che mi
> > consentiva di vedere l'anteprima di un report e poi decidere se
> > stamparlo o meno non funziona più o meglio posso sempre scegliere se
> > stampare o meno ma non riesco più a visualizzare l'anteprima di stampa
> > Incollo la routine che uso
> > DoCmd.OpenReport "REGISTRO Generale1", acViewPreview
>
> >     ok = MsgBox("Stampare Il Registro Generale?", vbYesNo)
> >     If ok = vbYes Then
> >     DoCmd.OpenReport "REGISTRO Generale1", acNormal
> >    Else
> >    DoCmd.Close acReport, "REGISTRO Generale1"
> > End If
>
> Capisco bene che l'unica problema è che non vedi il report sullo schermo?
> Non so cosa fai per "rendere non visibile...access".
> Se per caso hai preso il codice da
www.donkarl.com/it?FAQ1.11
> sarebbe utile di leggere anche gli avvisi sotto il codice.
>
> Inoltre ad altri svantaggi scrivo che tutte le maschere e report
> devono essere impostate su Pop-Up per essere visibili.
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it
ciao karl uso esattamento quello della tua faq e ho pure spuntato su
popup si non ho nessun messaggio di errore il report prova ad aprirsi
in annteprima ma viene subito chiuso oppure messo in secondo piano
dietro la maschera ed il problema è che quando è attiva la mascherina
si/no non posso ridurre ad icona la maschera principale quindi in
realtà non vedo se l'anteprima è nascosta dalla maschera principale


title: problema anteprima/stampa report access

text:

> realtà non vedo se l'anteprima è nascosta dalla maschera principale- Nascondi testo citato
>
> - Mostra testo citato -
Karl ti confermo che l'anteprima va in secondo piano e viene quindi
nascosta dalla maschera principale infatti mettendo minimize al click
vedo l'anteprima di stampa.
Come posso fare perchè al click del tasto stampa l'anteprima venga
messa in primo piano e non dietro la maschera principale?


title: problema anteprima/stampa report access

text:
marco veronesi ha scritto:
>On 23 Apr, 11:56, marco veronesi <spazionew...@gmail,com > wrote:
>> On 23 Apr, 11:13, "Karl Donaubauer" <NoS...@donkarl,com > wrote:
>>
>>
>>
>>
>>
>> > marco veronesi wrote:
>> > > Ciao a tutti, dopo aver attivato nel mio db il rendere non visibile
>> > > l'applicazione access ho riscontrato che la seguente routine che mi
>> > > consentiva di vedere l'anteprima di un report e poi decidere se
>> > > stamparlo o meno non funziona pi=F9 o meglio posso sempre scegliere s=
>e
>> > > stampare o meno ma non riesco pi=F9 a visualizzare l'anteprima di sta=
>mpa
>> > > Incollo la routine che uso
>> > > DoCmd.OpenReport "REGISTRO Generale1", acViewPreview
>>
>> > > =A0 =A0 ok =3D MsgBox("Stampare Il Registro Generale?", vbYesNo)
>> > > =A0 =A0 If ok =3D vbYes Then
>> > > =A0 =A0 DoCmd.OpenReport "REGISTRO Generale1", acNormal
>> > > =A0 =A0Else
>> > > =A0 =A0DoCmd.Close acReport, "REGISTRO Generale1"
>> > > End If
>>
>> > Capisco bene che l'unica problema =E8 che non vedi il report sullo sche=
>rmo?
>> > Non so cosa fai per "rendere non visibile...access".
>> > Se per caso hai preso il codice da =A0www .donkarl,com /it?FAQ1.11
>> > sarebbe utile di leggere anche gli avvisi sotto il codice.
>>
>> > Inoltre ad altri svantaggi scrivo che tutte le maschere e report
>> > devono essere impostate su Pop-Up per essere visibili.
>>
>> > --
>> > HTH
>> > Karl
>> > *********
>> > Access FAQ:www .donkarl,com /it
>>
>> ciao karl uso esattamento quello della tua faq e ho pure spuntato su
>> popup si non ho nessun messaggio di errore il report prova ad aprirsi
>> in annteprima ma viene subito chiuso oppure messo in secondo piano
>> dietro la maschera ed il problema =E8 che quando =E8 attiva la mascherina
>> si/no non posso ridurre ad icona la maschera principale quindi in
>> realt=E0 non vedo se l'anteprima =E8 nascosta dalla maschera principale- =
>Nascondi testo citato
>>
>> - Mostra testo citato -
>
>Karl ti confermo che l'anteprima va in secondo piano e viene quindi
>nascosta dalla maschera principale infatti mettendo minimize al click
>vedo l'anteprima di stampa.
>Come posso fare perch=E8 al click del tasto stampa l'anteprima venga
>messa in primo piano e non dietro la maschera principale?
Il report non è popuq, quindi non viene portato in primo piano. Una possibile
soluzione può esserre questa:
dim Box as string
DoCmd.OpenReport "REGISTRO Generale1", acViewPreview,,,acDialog
box = MsgBox("Stampare Il Registro Generale?", vbYesNo)
If box=vbYes Then
   DoCmd.OpenReport "REGISTRO Generale1", acNormal
End If
Anche se nn capisco il motivo della manovra......quando c'è la preview
l'utente può stampare o guardare anche senza tanti msgbox no?
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: problema anteprima/stampa report access

text:

> Il report non popuq, quindi non viene portato in primo piano. Una possibile
> soluzione pu esserre questa:
>
> dim Box as string
>
> DoCmd.OpenReport "REGISTRO Generale1", acViewPreview,,,acDialog
>
> box = MsgBox("Stampare Il Registro Generale?", vbYesNo)
>
> If box=vbYes Then
>    DoCmd.OpenReport "REGISTRO Generale1", acNormal
> End If
>
> Anche se nn capisco il motivo della manovra......quando c' la preview
> l'utente pu stampare o guardare anche senza tanti msgbox no?
>
> --
> Questo articolo e` stato inviato dal sito webhttp://www.nonsolonews.it- Nascondi testo citato
>
> - Mostra testo citato -
Ciao Fair, grazie della risposta
direi che la tua soluzione è fattibile anche se la msgbox la mette
sotto l'anteprima e non in primo piano.
Per quanto riguarda  la msgbox, quando è nascosta la struttura e
disattivato lo shift a me non permette la stampa da anteprima, a te si?


title: URGENTE

author: MAR-GOM

text:
ACCESS 97
ciao.
ho due computer collegati in rete.
voglio che entrambi gli utenti dei computer a e b non possano aprire gli
stessi db 2 volte.
cioe' file th.mdb
apro
riduco a icona
apro th.mdb
riduco a icona
NON VOGLIO QUESTO
grazie per una vostra gentile risposta


title: URGENTE

author: Giorgio prx

text:
"MAR-GOM" <
sime...@tin.it
> ha scritto nel messaggio
news:P5Or9.3274$aL4.1...@news1.tin.it...

Potresti eseguire un controllo sul File th.ldb che viene creato quando il
database viene aperto, il file è composo di N record (1 per ogni sessione di
access) lunghi 64 Byte, all'inizio di ogni record c'è il Computer Name,
basta contare quante volte il computer name è presente e se maggiore di 1
chiudere Access.Il computer name puoi ricvavarlo tramite una chiamata API
che trovi nei vari siti  tipo
http://www.mvps.org/access/
. Se il database
th.mdb è un Db contenente solo tabelle dovrai creare un modulo, inserire la
funzione di controllo, richiamarla dalla macro Autoexec
Ciao Giorgio.


title: URGENTE

text:
GRAZIE GIORGIO
Giorgio prx <
giorgio...@tiscalinet.it
> wrote in message
aooerc$s1e$1...@lacerta.tiscalinet.it...



title: URGENTE

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
news:aooerc$s1e$1...@lacerta.tiscalinet.it...
>
> "MAR-GOM" <
sime...@tin.it
> ha scritto nel messaggio
> news:P5Or9.3274$aL4.1...@news1.tin.it...
> > ACCESS 97
> > ciao.
> > ho due computer collegati in rete.
> > voglio che entrambi gli utenti dei computer a e b non possano aprire gli
> > stessi db 2 volte.
> >
> > cioe' file th.mdb
> > apro
> > riduco a icona
> > apro th.mdb
> > riduco a icona
> > NON VOGLIO QUESTO
> > grazie per una vostra gentile risposta
> >
> >
>
Un metodo meno casalingo rispetto a quello da me proposto (quando passerai
ad access 2002) lo trovi qui.
Q285822 HOW TO: Determine Who Is Logged onto a Database by Using Microsoft
Jet UserRoster in Access 2002
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q285822
Ciao Giorgio.


title: Query di creazione tabella da 2 tabelle : un aiuto

author: Ronny

text:
Buon giorno a tutti
Avrei un'esigienza su A2000 :
Ho due tabelle: testata / dettaglio , con una query di accodamento vorrei
aggiungere dati ad una tabella nuova con l'unione di queste due tabelle, e
fin qui tutto ok.
No mi porta i record dove ho solo il valore di testata, c'è un modo
(cambiando la Join) di inserire anche questi records e di conseguenza nella
tabella nuova valorizzare i campi dove ho la testata e quelli che fanno
parte del dettaglio lasciarli vuoti ???
Per intenderci , il tracciato di quella nuova è :
Prodotto (testata) Ricambio (dettaglio) Qtà (dettaglio)
PIPPO A1 1
PIPPO A2 1
PLUTO - 0
Il terzo record è un esempio di quando ho solo una testata. Ora non viene
elaborato.
Come si può fare?
grazie a tutti
Ronny
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: Roberto da Parma

text:
"Ronny" <
spamme...@mail.it
> ha scritto nel messaggio
news:194Z130Z244Z250...@usenet.libero.it...

Dovresti spiegarti meglio...
se non ho capito male tu vorresti "fondere" i dati contenuti nelle due
tebelle in una unica giusto???
Ma qual'è lo scopo?
Se hai fatto le cose per bene dovresti già avere i dati che ti occorrono
nella sola tabella dettagli.
Ti basta richiamare la colonna che ti interessa dalla chiave collegata.
IDProdotto.column(?) - chiave collegata nella tabella dettagli.
e di seguito i dati della tabella dettagli.
Ciao
Roberto


text:
> Dovresti spiegarti meglio...
> se non ho capito male tu vorresti "fondere" i dati contenuti nelle due
> tebelle in una unica giusto???
>
> Ma qual'è lo scopo?
> Se hai fatto le cose per bene dovresti già avere i dati che ti occorrono
> nella sola tabella dettagli.
>
> Ti basta richiamare la colonna che ti interessa dalla chiave collegata.
>
> IDProdotto.column(?) - chiave collegata nella tabella dettagli.
>
> e di seguito i dati della tabella dettagli.
>
Ciao , effettivamente la mia domanda è poco chiara, vediamo se riesco a
esprimermi meglio :
innanzitutto mi serve creare una terza tabella da portare in Excel .
L'unione di 2 tabelle così strutturate :
Esempio :
Testata
NrRiparaz. Tempo intervento
1 12min
2 60min
Dettaglio
NrRiparaz. Ricambio Qtà
1 A1 1
1 A2 2
1 A3 5
Allora , attualmente con la query di accodamento in join tra testata e
dettaglio per numero riparazione, viene creata così :
Nr.Riparaz. Ricambio Qtà Tempo
1 A1 1 12
1 A2 2 12
1 A3 5 12
Vorrei poter creare la terza tabella anche se ho solo un record di testata e
non di dettaglio, nell'esempio sopra dovrebbe venire :
Nr.Riparaz. Ricambio Qtà Tempo
1 A1 1 12
1 A2 2 12
1 A3 5 12
2 60
come cambiare la Join? Si può fare?
Grazie a tuuuch



text:
"Ronny" <
spamm...@mail.it
> ha scritto nel messaggio
news:194Z130Z244Z250Y...@usenet.libero.it...

Scegli Left o Right JOIN, nella query clicchi col tasto destro sul
collegamento e scegli proprietà.
Nella maschera che si apre trovi le spiegazioni che cerchi.
Nel tuo caso dovrebbe essere un LEFT JOIN.
Ciao
Roberto


title: DAO.Recordset

author: brando

text:
Per inserire un nuovo record ho utilizzato il seguente codice:
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("MiaTabella")
rst.AddNew
rst!MioCampo = Forms!MiaForm!MioControllo
....
....
rst.Update
per editare un record esistente ho utlizzato:
Dim tbm As DAO.Recordset
Set tbm = CurrentDb.OpenRecordset("SELECT * FROM MiaTabella WHERE IDMio = "
& MiaVariabile)tbm.Edit
tbm!MioCampo = Forms!MiaForm!MioControllo
........
........
rst.Update
Funziona tutto a meraviglia :-)
Premesso che ho utilizzato la libreria DAO perchč ho "scopiazzato codice da
post rinvenuto nel NG" e non ho trovato codice alternativo (trovo piů
semplice e chiaro il codice piuttosto che una Query) e premesso che ho
grossi problemi con help in linea (mi richiede in coninuazione
l'installazione di una funzione non correttamente intallata! ??)
Domanda 1 :  faccia bene ad utilizzare DAO ?
Domanda 2 : per cancellare un record (con  DAO) come faccio?
Grazie


title: DAO.Recordset

author: omasnc

text:
"brando" <
brando_alle...@tiscali.it
> ha scritto nel messaggio
news:c1nvo1$1k5m5j$1...@ID-213675.news.uni-berlin.de...

Domanda 1: non c'č nulla di meglio di DAO se devi lavorare con Jet: diverso
il caso per SQL Server;
Domanda 2: ti posizioni sul record da cancellare e usi la sintassi:
rst.Delete (per rimanere al tuo esempio). Attenzione perchč se manca un
record corrente ti restituisce errore.
Ciao
Galliano


title: DAO.Recordset

author: ALESSANDRO Baraldi

text:
"brando" <
brando_alle...@tiscali.it
> ha scritto nel messaggio
news:c1nvo1$1k5m5j$1...@ID-213675.news.uni-berlin.de...

Se usi Access-Jet DAO č il meglio che puoi avere.
Tieni presente che hai anche a disposizioni le transazioni
che ti permettono di sfruttare un RollBack nel caso non
volessi Salvare le modifiche fatte, e ti consiglio vivamente
di dargli un'occhiata..........!!!
L'oggetto Recordset di DAO mette a disposizione un Metodo
dedicato alla cancellazione, questo Metodo č Delete.
Per i problemi con l'Help devi ssolutamente risolverli
č uno strumento FONDAMENTALE, nessun programmatore
serio lo evita.....!
Ciao.
@Alex.


title: DAO.Recordset

author: S. Savoldi

text:
"ALESSANDRO Baraldi" <
> Tieni presente che hai anche a disposizioni le transazioni
> che ti permettono di sfruttare un RollBack nel caso non
> volessi Salvare le modifiche fatte, e ti consiglio vivamente
> di dargli un'occhiata..........!!!
Beh: considerando che il temporaneo transazionale è gestito sul Client e
viene perso in caso di spegnimento imprevisto del PC ... hanno una valenza
solo didattica, almeno con Jet.
CIAO: SILVIO


title: DAO.Recordset

text:
"S. Savoldi" <
war...@libero.it
> ha scritto nel messaggio
news:niN%b.35767$Kc3.1...@twister2.libero.it...
>
> "ALESSANDRO Baraldi" <
>
> > Tieni presente che hai anche a disposizioni le transazioni
> > che ti permettono di sfruttare un RollBack nel caso non
> > volessi Salvare le modifiche fatte, e ti consiglio vivamente
> > di dargli un'occhiata..........!!!
>
> Beh: considerando che il temporaneo transazionale č gestito sul Client e
> viene perso in caso di spegnimento imprevisto del PC ... hanno una valenza
> solo didattica, almeno con Jet.
>
> CIAO: SILVIO
Si ma lui nel primo POST lavora con CurrentDB, quindi ha una Valenza
piů che didattica....in quanto CLIENT-SERVER, se cosě si puň dire
coincidono.....caso del tutto atipico Access-Jet.
Ciao.
@Alex.


title: DAO.Recordset

author: Doc Hollywood

text:
> Per i problemi con l'Help devi ssolutamente risolverli
> è uno strumento FONDAMENTALE, nessun programmatore
> serio lo evita.....!
Problema tipico con Office2000 Pro.
Per risolvere copia DAO360.chm dalla directory
\PFILES\COMMON\MSSHARED\DAO del tuo CD di office in Programmi\File
comuni\Microsoft Shared\DAO del tuo disco su cui l'hai installato.
Ciao
Doc Hollywood


title: DAO.Recordset

text:
"Doc Hollywood" <
doch...@libero.it
> ha scritto nel messaggio
news:da374996.0402...@posting.google.com...

Grazie
brando


title: OLE in ACCESS 97

author: Matteo Testoni

text:
Sto gestendo l'acquisizione di immagini con un controllo OLE. Una volta
acquisita l'immagine con lo scanner, comne la salvo quando è sul controllo
OLE?


title: OLE in ACCESS 97

author: Sergio MAZZA

text:
"Matteo Testoni" <
ba...@tecna.it
> ha scritto nel messaggio
news:8buufa$j0e$1...@fe1.cs.interbusiness.it...
> Sto gestendo l'acquisizione di immagini con un controllo OLE. Una volta
> acquisita l'immagine con lo scanner, comne la salvo quando è sul controllo
> OLE?
>
>
Salvala appena la acquisisci dallo scanner ed utilizzi il controllo per
visualizzarla...
Esempio:
    ImgScan1.ScanTo = DisplayAndUseFileTemplate
    ImgScan1.Image = "c:\documenti\immagini\prova.tif"
    ImgScan1.ShowSetupBeforeScan = True
    ImgScan1.StartScan
Ciao.


title: Bloccare lo Scorrimento dei record

author: Francesco G.

text:
Buongiorno a tutti,
Ho il seguente problema, e non so come risolverlo: in una maschera
abbastanza lunga ( in dimensioni ) vorrei con lo scroll del mouse far
scorrere a video la maschera, e non i record come  accade. Dove devo agire
per impedire ciň ?
Grazie
Francesco G


title: Bloccare lo Scorrimento dei record

author: Sib

text:
"Francesco G." <
newsfr...@libero.it
> ha scritto nel messaggio
> Ho il seguente problema, e non so come risolverlo: in una maschera
> abbastanza lunga ( in dimensioni ) vorrei con lo scroll del mouse far
> scorrere a video la maschera, e non i record come  accade. Dove devo agire
> per impedire ciň ?
>
Vedi sul sitocomune.
Sib


title: OT: CONCORSO TRUCCATO

author: lcs Mixmaster Remailer

text:
Salve a tutti,
Volevamo segnalare a tutti un concorso TRUCCATO
dell'INPS dove i nomi dei vincitori sono gią
noti da mesi, in cui sono stati rilasciati certificati
falsi e dove le prove sono una pagliacciata truccata.
Ci dispiace disturbare, ma causa la latitanza di gran parte
 della stampa, e la misteriosa scomparsa da alcuni motori
 di ricerca italiani,  siamo costretti ad utilizzare i
news per diffondere la verita.
Visita il sito:
http://www.fortunecity.com/business/koch/947/index.htm
e, se sei d'accordo aiutaci a diffondere la voce.
antit...@iname.com
--
Posted from
nym.alias.net
 [18.26.0.252]
via Mailgate.ORG Server -
http://www.mailgate.org


title: OT: CONCORSO TRUCCATO

author: Antonio Biso

text:
lcs Mixmaster Remailer ha scritto nel messaggio
<
2000011919401...@nym.alias.net
>...
>Salve a tutti,
>
>Volevamo segnalare a tutti un concorso TRUCCATO
>dell'INPS dove i nomi dei vincitori sono già
>noti da mesi, in cui sono stati rilasciati certificati
>falsi e dove le prove sono una pagliacciata truccata.
Beh, se i nomi dei vincitori sono stati salvati in un database access e i
certificati falsi stampati con un report di access tanto OT non è questo
messaggio!!!
Antonio


title: OT: CONCORSO TRUCCATO

author: Luciano

text:
lcs Mixmaster Remailer ha scritto nel messaggio
<
2000011919401...@nym.alias.net
>...
>Ci dispiace disturbare, ma causa la latitanza di gran parte
Vi dispiace, vi dispiace e intanto ciascuno a postare la propria santa
crociata!
L'estinzione della zibellino caucasico, l'inquinamento nei quartieri est di
Nairobi o il sopruso di qualche caporale ...e via dicendo.
Perche' vi si dovrebbe credere vittime a tutti i costi?
E se foste solo gente che tenta di profittare creando consenso intorno a se?
Mica per altro...ma uno che si firmasse col proprio nome almeno!
Saluti.
Luciano


title: OT: CONCORSO TRUCCATO

author: Lbo dall'ufficio

text:
>Volevamo segnalare a tutti un concorso TRUCCATO
>dell'INPS dove i nomi dei vincitori sono già
avete tutta la mia solidarieta'.  conosco gente che lavora all'inps e
non mi stupisco di niente.
quello che dite e' senz'altro tutto vero.  per caso ci sono di mezzo i
lavori socialmente utili?
cose del genere succedono ovunque.  si fanno concorsi "pubblici" a
parole, poi li si pubblicano due giorni prima, cosi' puo' prepararsi
solo chi ha avuto l'imbeccata.
se questo non basta, si danno temi astrusi e li si comunica
preventivamente ai candidati favoriti.
se anche questo non dovesse bastare, si creano dei profili ricamati su
misura per la persona che si vuole far entrare.  basta chiedere certi
esami universitari e non altri...
i piu' giovani leggano e meditino.
-----------------------------------
ATTENZIONE: il ng it.comp.database.access cambia nome e diventa it.comp.appl.access
linkatelo!
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access


title: ^__^ profana in progress [?]

author: Ramona

text:
Ciao a tutti
volevo chiedervi come fare per far memorizzare
una data, all'interno di una tabella access,
che mi restituisca solo il giorno/mese/anno e non
anche ora/minuti/secondi
In pratica nel campo data/ora, setto come valore
predefinito Now().
Facendo così, la pagina ASP che recupera il campo
data, mi restituisce anche ciò che vorrei evitare..
non sono riuscita a far recuperare *solo* gg/mm/aaaa
Vi prego ditemi che posso farlo con access e non con ASP
Grazie cmq per l'attenzione
Bye
R@m ^__^


title: ^__^ profana in progress [?]

author: Paolo P

text:
"Ramona" <
ramonad...@libero.it
> ha scritto nel messaggio
news:_Wk38.33541$tl3.1...@twister2.libero.it...

 Valore predefinito Date()
Ciao
Paolo


title: ^__^ profana in progress [?]

author: Dr. Everett V. Scott

text:
"Paolo P" <
p.pe...@inrete.it
> ha scritto nel messaggio
Perche' in questo ng quotate cosi' male?


title: ^__^ profana in progress [?]

text:
Paolo P <
p.pe...@inrete.it
> wrote in message 3c4d...@news.opennet.it...
>
> "Ramona" <
ramonad...@libero.it
> ha scritto nel messaggio
> news:_Wk38.33541$tl3.1...@twister2.libero.it...
> > Ciao a tutti
> >
> > volevo chiedervi come fare per far memorizzare
> > una data, all'interno di una tabella access,
> > che mi restituisca solo il giorno/mese/anno e non
> > anche ora/minuti/secondi
> >
> > In pratica nel campo data/ora, setto come valore
> > predefinito Now().
> > Facendo cosě, la pagina ASP che recupera il campo
> > data, mi restituisce anche ciň che vorrei evitare..
> >
> > non sono riuscita a far recuperare *solo* gg/mm/aaaa
> >
> > Vi prego ditemi che posso farlo con access e non con ASP
> >
> > Grazie cmq per l'attenzione
> >
> > Bye
> > R@m ^__^
> >
> >
>  Valore predefinito Date()
> Ciao
> Paolo
>
 >
> Perche' in questo ng quotate cosi' male?
Perchč male?
Antonio


title: ^__^ profana in progress [?]

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:M4v38.35060$tl3.1...@twister2.libero.it...
>
> Perchè male?
>
> Antonio
>
Evvai... Altro giro altra corsa....
Ciao.
--
Sergio MAZZA


title: ^__^ profana in progress [?]

author: Emyr

text:


 e cioč come si dovrebbe fare?
Saluti.
Emanuele.


title: ^__^ profana in progress [?]

text:
Emyr <
fan...@lavoro.com
> wrote in message
20et4ukbjaclpunic...@4ax.com...

Penso avesse da ridire sulla quantitą di banda passante che hai sprecato in
quanto non hai apportato qualche taglio al quoting...
Antonio


title: ^__^ profana in progress [?]

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> > Perche' in questo ng quotate cosi' male?
>
> Perchè male?
Perche' vedo messaggi riquotati integralmente, con tanto di firma.
Quotare la firma e' contrario alla netiquette e quotare tutto e' contrario
al buon senso, a naso direi che lo spazio occupati dai messaggi e' il triplo
del necessario.
Capisco il quotare se serve a proseguire il filo del discorso, ma quotare
integralmente un messaggio che segue il thread di uno step a distanza di 10
minuti, e' eccessivo.
In generale e' buona norma fare un po di editing sulla parte che si quota.


title: ^__^ profana in progress [?]

author: Luciano (DOC)

text:
Ramona ha scritto nel messaggio
<_Wk38.33541$
tl3.1...@twister2.libero.it
>...
>Ciao a tutti
>
>volevo chiedervi come fare per far memorizzare
>una data, all'interno di una tabella access,
>che mi restituisca solo il giorno/mese/anno e non
>anche ora/minuti/secondi
Access scrive quello che decide lui, ovvero data e ora. Se tu setti il campo
come data lui ti fa vedere solo quella e come ora scrive 00:00. Se viceversa
lo setti come ora lui ci aggiunge 1/1/1899.
>In pratica nel campo data/ora, setto come valore
>predefinito Now().
Se l'ora non la vuoi scrivere setta a date()
>Facendo cosě, la pagina ASP che recupera il campo
>data, mi restituisce anche ciň che vorrei evitare..
>non sono riuscita a far recuperare *solo* gg/mm/aaaa
>Vi prego ditemi che posso farlo con access e non con ASP
Guarda la funzione formatdatetime(), c'e' la soluzione ai tuoi problemi!:-)
O, alle brutte, hai sempre Year(tuadata), month(tuadata), weekday,
monthname.,...chi piu' ne ha piu' ne metta!:-)
Saluti.
Luciano


title: ^__^ profana in progress [?]

text:
Dr. Everett V. Scott <
r...@transylvania.ru
> wrote in message
zuE38.1353$vh.3...@twister1.libero.it...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
>
> > > Perche' in questo ng quotate cosi' male?
> >
> > Perchè male?
>
> Perche' vedo messaggi riquotati integralmente, con tanto di firma.
>
> In generale e' buona norma fare un po di editing sulla parte che si quota.
Non ti si può obiettare niente, c'hai ragione c'hai...
Antonio


title: ^__^ profana in progress [?]

text:
On Wed, 23 Jan 2002 16:29:01 GMT, "Antonio Biso" <
ch...@etruria.net
>
wrote:

acc.. questi puristi.....
....speriamo di imparare anceh noi....
Saluti.
Emanuele.


title: "varaibile globale" anno

author: Luigi

text:
Salve a tutti,
ho un problema con la gestione dei dati realativi all'anno. In pratica
in un database ci sono dati relativi a diversi anni. Vorrei creare una
sorta di "variabile globale", avevo pensato ad una tabella con un unico
record in cui inserisco l'anno relativo ai dati sui quali voglio
lavorare. In questo modo inserendo qui l'anno in tutte le operazioni
sui dati dovrebbero essere selezionati solo i record corrispondenti
all'anno indicato nella tabella.
In una query, fra gli altri criteri ho messo: AND
((Year([DataPrestazione]))=[ParametriAmbiente]![Anno]));
ma quando lancio la query o qualche maschera basata su questa query il
paramentro che ho inserito nella tabella non viene letto e mi compare
la solita finestra in cui mi chiede di inserire l'anno.
Come posso risolvere?
Ciao a tutti e grazie!
Luigi


title: "varaibile globale" anno

author: Alessandro Baraldi

text:
"Luigi" <
luigia...@gmail.com
> wrote in message
news:1138041036.2...@g47g2000cwa.googlegroups.com

Se la maschera [ParametriAmbiente] è chiusa lo trovo ovvio...!
Visto che si tratta di una Query parametrica generica
non capisco perchè poi ti blocchi al parametro prelevato da una
Form vincolandoti di fatto ad avere la form aperta.
Occorre capire chi e come deve passare quel parametro, in ogni caso
potrebbe essere una buona idea usare una Funzione pubblica dichiarata
in un Modulo e strutturata in modo tale da passare il detto parametro
prelevandolo dalla Form aperta indipendentemente da quale sia dopo
aver controllato l'esistenza dello stesso.
Un esempio molto semplice:
Public Function retParametro() as Integer
    retParametro=Screen.ActiveForm!CampoAnno
End sub
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: "varaibile globale" anno

author: Alessandro Cara

text:
Luigi wrote:
> Salve a tutti,
> ho un problema con la gestione dei dati realativi all'anno. In pratica
> in un database ci sono dati relativi a diversi anni. Vorrei creare una
> sorta di "variabile globale", avevo pensato ad una tabella con un unico
> record in cui inserisco l'anno relativo ai dati sui quali voglio
> lavorare. In questo modo inserendo qui l'anno in tutte le operazioni
> sui dati dovrebbero essere selezionati solo i record corrispondenti
> all'anno indicato nella tabella.
>
> In una query, fra gli altri criteri ho messo: AND
> ((Year([DataPrestazione]))=[ParametriAmbiente]![Anno]));
le queries che usi devono essere tutte in join con la tabella
"ParametriAmbiente"
i.e.
select tab.* from tab,parametriambiente
where tab.attribanno = parametriambiente.anno
--
a.cara


title: "varaibile globale" anno

text:
Avevo già provato a fare questa cosa ed l'sql che ottengo è grosso
modo il seguente:
SELECT Ricette.tuttiicampi..., ParametriAmbiente.Anno
FROM Ricette, ParametriAmbiente
WHERE
(((Month([DataPrestazione]))=[Forms]![MascheraPerMesi]![Cornice6]) AND
((Year([DataPrestazione]))=ParametriAmbiente.Anno))
questo perchè nella maschera c'è una cornice in cui ci sono 12
bottoni ognuno corrispondente ad un mese...
ma quando lancio la query ottengo il messaggio di errore: tipo non
corrispondente nell'espressione.
Dove sbaglio!
Ciao e grazie!
Luigi


title: "varaibile globale" anno

text:

Puo' darsi che Parametriambiente.anno non sia di tipo numerico o
cornice6 sia null
--
a.acra


title: "varaibile globale" anno

text:
In effetti il campo anno l'ho lasciato in formato testo poichè non
pensavo servisse numerico.
Appena torno a casa provo e ti faccio sapere!
Ciao e grazie,
Luigi


title: "varaibile globale" anno

text:
Luigi wrote:
> In effetti il campo anno l'ho lasciato in formato testo poichč non
> pensavo servisse numerico.
> Appena torno a casa provo e ti faccio sapere!
>
> Ciao e grazie,
> Luigi
>
puoi sempre scrivere cosi' (bruttoooooo) Parametri.anno = "'" &
year(data) & "'"
--
a.cara


title: "varaibile globale" anno

text:
"Alessandro Cara" <
al...@puntablunet.it
> wrote in message
news:9smBf.47464$
av6....@tornado.fastwebnet.it
> Luigi wrote:
> > In effetti il campo anno l'ho lasciato in formato testo poichè non
> > pensavo servisse numerico.
> > Appena torno a casa provo e ti faccio sapere!
> >
> > Ciao e grazie,
> > Luigi
> >
> puoi sempre scrivere cosi' (bruttoooooo) Parametri.anno = "'" &
> year(data) & "'"
> --
> a.cara
Mi pareva di averlo suggerito all'inizio....!
Ce ne vuole per farvelo capire.!!!!
;-)



title: "varaibile globale" anno

text:
Alessandro Baraldi wrote:
> "Alessandro Cara" <
al...@puntablunet.it
> wrote in message
> news:9smBf.47464$
av6....@tornado.fastwebnet.it
>
>
>>Luigi wrote:
>>
>>>In effetti il campo anno l'ho lasciato in formato testo poichè non
>>>pensavo servisse numerico.
>>>Appena torno a casa provo e ti faccio sapere!
>>>
>>>Ciao e grazie,
>>>Luigi
>>>
>>
>>puoi sempre scrivere cosi' (bruttoooooo) Parametri.anno = "'" &
>>year(data) & "'"
>>--
>>a.cara
>
>
>
> Mi pareva di averlo suggerito all'inizio....!
>
> Ce ne vuole per farvelo capire.!!!!
Mi consenta di dissentire "Lei" aveva suggerito questo ;<)
"
Se la maschera [ParametriAmbiente] è chiusa lo trovo ovvio...!
Visto che si tratta di una Query parametrica generica
non capisco perchè poi ti blocchi al parametro prelevato da una
Form vincolandoti di fatto ad avere la form aperta.
Occorre capire chi e come deve passare quel parametro, in ogni caso
potrebbe essere una buona idea usare una Funzione pubblica dichiarata
in un Modulo e strutturata in modo tale da passare il detto parametro
prelevandolo dalla Form aperta indipendentemente da quale sia dopo
aver controllato l'esistenza dello stesso.
Un esempio molto semplice:
Public Function retParametro() as Integer
     retParametro=Screen.ActiveForm!CampoAnno
End sub
"
Non mi sembra la stessa cosa. "Noi" non si e mai parlato di form
ParametriAmbiente  e' una tabella monoriga / monocampo
Ciao Alex
--
a.cara


title: "varaibile globale" anno

text:
"Alessandro Cara" <
al...@puntablunet.it
> wrote in message
news:3UnBf.47657$
av6....@tornado.fastwebnet.it
[CUT]
>
> Non mi sembra la stessa cosa. "Noi" non si e mai parlato di form
> ParametriAmbiente  e' una tabella monoriga / monocampo
OPS...!
Ho sbagliato Post...!!!!
O meglio ho fatto un MIX di 2.
In ogni caso le consento, basta che non voglia prolungare anche di 15gg
tutto sto ambaradan....!



title: "varaibile globale" anno

text:
Era proprio come dici!
Ho impostato a numerico il campo che contiene l'anno e funziona tutto
alla grande!
Ciao e grazie a tutti per l'aiuto!
Luigi


title: "varaibile globale" anno

author: Potone

text:
"Luigi" <
luigia...@gmail.com
> ha scritto nel messaggio news:1138111932.2...@f14g2000cwb.googlegroups.com...

Ciao,
potresti anche scrivere (in un modulo globale) una funzione che restituisca l'anno leggendolo dalla tabella dei parametri.
Alla prima chiamata (nella sessione di lavoro) leggi dalla tabella il valore anno e lo registri in una variabile statica in modo che
alle successive chiamate non è più necessario rileggere il valore tabella.
Così facendo puoi evitare di dover mettere in ogni query un join alla tabella dei parametri ambiente.
L'unico inconveniente è che quando cambi il parametro devi fare in modo che la funzione legga il nuovo valore dalla tabella.
Ciao,
Mat.


title: "varaibile globale" anno

text:

in finale
1) si deve scrivere la funzione (non globale) di lettura della tabella e
inizializzazione della variabile pubblica
2) si deve scrivere la funzione pubblica che recuperi la variabile
contenente l'anno
2) deve mettere il richiamo alla funzione in ogni query
3) se cambia anno deve rientrare e riuscire da access a meno di gestire
l'evento di cambio parametro
beh Okusai diceva che possono esserci 100 vedute diverse del momte Fuji
e tutte vere
--
a.cara


title: "varaibile globale" anno

text:
Alessandro Cara ha scritto:
> Potone wrote:
> > "Luigi" <
luigia...@gmail.com
> ha scritto nel messaggio news:1138111932.2...@f14g2000cwb.googlegroups.com...
> >
> >>Era proprio come dici!
> >>Ho impostato a numerico il campo che contiene l'anno e funziona tutto
> >>alla grande!
> >>
> >>Ciao e grazie a tutti per l'aiuto!
> >>Luigi
> >>
> >
> > Ciao,
> > potresti anche scrivere (in un modulo globale) una funzione che restituisca l'anno leggendolo dalla tabella dei parametri.
> > Alla prima chiamata (nella sessione di lavoro) leggi dalla tabella il valore anno e lo registri in una variabile statica in modo che
> > alle successive chiamate non è più necessario rileggere il valore tabella.
> > Così facendo puoi evitare di dover mettere in ogni query un join alla tabella dei parametri ambiente.
> > L'unico inconveniente è che quando cambi il parametro devi fare in modo che la funzione legga il nuovo valore dalla tabella.
> > Ciao,
> > Mat.
> >
> >
> in finale
>
> 1) si deve scrivere la funzione (non globale) di lettura della tabella e
> inizializzazione della variabile pubblica
> 2) si deve scrivere la funzione pubblica che recuperi la variabile
> contenente l'anno
per come l'avevo pensata è sufficiente una funzione all'interno della
quale si dichiari una variabile statica che viene inizializzata la
prima volta che la funzione viene richiamata, alle successive chiamate
il valore restituito sarà prelevato direttamente dalla variabile
statica senza rileggere la tabella.
> 2) deve mettere il richiamo alla funzione in ogni query
esatto, come dovrebbe mettere in ogni query un join alla tabella dei
parametri
> 3) se cambia anno deve rientrare e riuscire da access a meno di gestire
> l'evento di cambio parametro
esatto, l'ultima parte di quello che ho scritto prima (L'unico
inconveniente è che...) si riferiva proprio a questo
> beh Okusai diceva che possono esserci 100 vedute diverse del momte Fuji
> e tutte vere
beh, la mia è proprio una di quelle 100 vedute
ciao,
Mat.
>
> --
> a.cara


title: Come faccio a convertire...

text:
Salve a tutti , ho un file.mdb creato con una versione precedente
ad Access2000 , quando tento di aprirlo mi comunica che devo
convertire questo file.mbd , cosa che faccio , ma dopo averlo
convertito il file si e ridotto a 128KB .L'originale e oltre 1MB
Qulacuno sa dirmi come devo fare per convertire e mantenere
integro , cioč senza perdita di informazioni , questo file?
Grazie a tutti
Ciao Roberto


title: Come faccio a convertire...

author: Roberto dal portatile

text:
"roberto.bon" <
rober...@inwind.it
> ha scritto nel messaggio
news:9s0cqa$pnn$2...@nreada.inwind.it...

Sei sicuro che hai perso informazioni nella conversione?
Hai provato ad eseguire il database convertito? Se si, funziona?
A volte in file .mdb compattato e ripulito della "mondezza" di codice VBA
inerte, si ridimensiona brutalmente.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: sql access

author: Fabrizio

text:
è possibile eliminare solo la prima riga di una tabella access con una query
di eliminazione o tramite SQL?
grazie a tutti
fabrizio


title: sql access

text:
Fabrizio <
fax...@libero.it
> wrote in message
v12_6.703$Wg4.1...@news.edisontel.com...

Vedi la parola chiave TOP
Antonio


title: Problemi con tabelle collegate Visual Fox Pro ( errore #581)

author: Cesare Pretolani

text:
Nel collegare una tabella VFP incontro questi problemi:
Se durante la procedura di collegamento non definisco nessun campo chiave,
la tabella risulta solo visualizzabile e non č possibile modificare o
aggiungere record (Recordset non aggiornabile).
Se invece imposto una chiava primaria il recordset risulta aggiornabile;
infatti posso Modificare i recod presenti.
Quando provo a salvare un Nuovo Record invece si genera
l'errore:[MICROSOFT][ODBC Visual FoxPro Driver]Fi (#581).
Batto Esc per annullare, chiudo la tabella, la riapro e il record che avevo
provato ad aggiungere č in realtŕ presente.
Qualcuno mi puň essere di aiuto???
Grazie.


title: associazione maschere - tabelle

text:
ciao a tutti,
nel mio database ho due tabelle A e B con nomi diversi ma con campi
identici.
ho fatto molte maschere basandomi sui campi di A ma ora, le stesse maschere
mi servirebbero sui campi di B.
Ho provato a fare delle copie delle maschere ma non so come cambiare le
associazioni degli oggetti associati ai campi di A per associarli ai campi a
B
qualcuno puo aiutarmi a risolvere questo problema da principiante ???
ciao, grazie
                        gian luca


associazione maschere - tabelle


title: associazione maschere - tabelle

author: Roberto in campagna

text:
"pac77" <
pa...@libero.it
> ha scritto nel messaggio
news:q3Y27.6335$2v6.2...@news.infostrada.it...

Nella maschera duplicata, cambia la proprietą Origine record della maschera
(da A a B) e la proprietą Origine controllo di tutti i controlli associati
della maschera.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Elenco Nomi Tabelle dato un percorso

author: Mak

text:
Salve a tutti,
volevo sapere, perché non sono riuscito a trovarla, se qualcuno conosce
oppure se conosce un  link su qualche funzione per riempire una casella di
riepilogo che dato un percorso relativo mi dia l' elenco delle tabelle in
esso contenute.
Io ho provato con questa però devo dire che mi sembra troppo pesante:
Public Function Listvalue()
Dim Origine As String
  Dim obj As AccessObject, dbs As Object
  Dim appAccess As Access.Application
  Dim Dbname As String
  Dim Acform As Form
  Set Acform = Forms("nomeform")
  Dbname = directory predefinita
 'Creo una nuova istanza
Set appAccess = CreateObject("Access.Application.9")
 appAccess.OpenCurrentDatabase (Dbname)
    Set dbs = appAccess.CurrentData
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllTables
      Origine = Origine & """" & Trim(obj.Name) & """;"
    Next obj
  Acform.ETables.RowSource = Origine
  Acform.ETables.Requery
  appAccess.Quit ' chiudo l' istanza senza salvarla
  Debug.Print Origine
  End Function
Difatti il fatto che crei una nuova istanza mi rallenta di un poco l'
apertura della maschera.
Grazie per l' attenzione
Mak


title: Elenco Nomi Tabelle dato un percorso

text:
"Mak" <
mak....@tiscalinet.it
> ha scritto nel messaggio
news:GV7F9.29222$3l.8...@twister1.libero.it...

Troppo complicato............
Inserisci questo codice nell'origine riga della Casella:
SELECT MsysObjects.Name FROM MsysObjects WHERE (((Left$([Name],4))<>"Msys")
AND ((MsysObjects.Type)=1)) ORDER BY MsysObjects.Name;
@Alex.


title: Elenco Nomi Tabelle dato un percorso

text:
> Troppo complicato............
>
> Inserisci questo codice nell'origine riga della Casella:
> SELECT MsysObjects.Name FROM MsysObjects WHERE
(((Left$([Name],4))<>"Msys")
> AND ((MsysObjects.Type)=1)) ORDER BY MsysObjects.Name;
>
>
> @Alex.
>
Ciao Alex,
forse non mi sono spiegato bene o forse non ho capito quello che mi hai
scritto ma io devo fare rifeimento a tabella contenute in un db esterno al
quello attivo.
La stinga sql che mi hai mandato a occhio mi sembra che faccia riferimento
alle tabelle contenute nel db attivo.
Grazie per la tua disponibilità
Mak
...
Access 2000 SR1


title: Elenco Nomi Tabelle dato un percorso

author: Roberto da casa

text:
"Mak" <
mak....@libero.it
> ha scritto nel messaggio
news:FebF9.31463$2B1.8...@twister2.libero.it...

Se vuoi come origine riga di una casella combinata l'elenco delle tabelle
user contenute nel database Pippo.mdb contenuto nella cartella MieiDatabase
del disco C:, prova con questo codice VBA:
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Set db = OpenDatabase("C:\MieiDatabase\Pippo.mdb")
For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
    Me!Pippo.RowSource = Me!Pippo.RowSource & _
    tdf.Name & ";"
End If
Next
Me!Pippo.RowSource = Left(Me!Pippo.RowSource, _
Len(Me!Pippo.RowSource) - 1)
Set tdf = Nothing
Set db = Nothing
Come puoi vedere la routine fa riferimento alla libreria Microsoft DAO,
pertanto, tu che usi A2000, aggiungi ai riferimenti del tuo database il
riferimento a tale libreria.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Elenco Nomi Tabelle dato un percorso

text:

Ancora grazie Roberto, per le informazioni e per la disponibilità
Saluti e Buon Lavoro
Mak


title: Stampa recordset su più pagine con i bookmarks da access a word

author: Raffaella

text:
Ciao,
ho cercato nei vari post una soluzione, ma non l'ho ancora trovata. Ho
quindi deciso di esporre il mio problema, nella speranza che qualcuno
possa darmi una mano.
Da un pulsante di una maschera ho la necessità di far stampare su un
modello di word, una lettera contente due campi il cui contenuto viene
estratto con una query parametrica tra due tabelle relazionate tra di
loro "uno a molti", in base ai dati visualizzati in quel momento nella
maschera. Le tabelle in questione sono "Corsi" il cui campo che mi
interessa è "CODINTERNO" e la tabella "Docenti" il cui campo che mi
interessa è "nomedocente". Naturalmente per ciascun corso ci sono più
docenti.
Ho provato con il metodo dei bookmarks e la procedura funziona in
parte, nel senso che mi apre correttamente il file di word
compilandolo, ma mi mette i nominativi dei docenti uno di seguito
all'altro nella stessa pagina. Voglio invece che il CODINTERNO insieme
ad un singolo docente venga stampato su una pagina, e gli altri
docenti su altre pagine.
Ho provato anche con il Mairmerge ma ho problemi nell'impostare la
stampa unione in word, dal momento che i dati si basano su una query
parametrica.
Io utilizzo Office 2007, ma lavoro su database e documenti 2003,
poichè in azienda ci sono ancora dei pc con queste versioni.
Riporto di seguito il codice utilizzato nella routine:
Private Sub SoddAllievoDocente_Click()
Dim Wrd As Word.Application, Doc As Word.Document
Dim Modello As String, NomeFile As String, i As Integer
Dim Record As String, s As String
Dim ReplSel As Boolean
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
    On Error Resume Next 'gestione errori step by step
    'cerca un'istanza di Word già aperta
    Set Wrd = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        'se c'è stato un errore è perchè Word non era già aperto:
        'aprilo adesso
        Set Wrd = CreateObject("Word.Application")
    End If
    On Error GoTo 0 'ripristina la segnalazione degli errori
    'rendi visibile la finestra di Word:
    Wrd.Visible = True
    'attiva Word e portalo in primo piano:
    Wrd.Activate
    'abilita l'opzione "Sostituisci la selezione". Se non fosse
    'attiva, i campi modulo rimarrebbero all'interno del testo.
    ReplSel = Wrd.Options.ReplaceSelection
    Wrd.Options.ReplaceSelection = True
    'Apri un nuovo documento basato sul modello:
    Set Doc = Wrd.Documents.Add("F:\2006\PROCEDURE\PGQ_08_01
soddisfazione\PGQ 08_01_02 Soddisfazione_allievo_docenteREV2.dot")
    'attivalo e portalo in primo piano:
    Doc.Activate
    Doc.Bookmarks("codinterno").Select
    'e sovrascrivilo con il contenuto dei campi
    'codinterno:
    Wrd.Selection.TypeText nz(Me.CODINTERNO, "")
    'esportazione elencodocenti:
    'selezione del punto di inserimento
    'apertura del recordset
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("Q_docenti_corsi")
        qdf.Parameters("[Forms]![corsi]![CODINTERNO]") = Forms!corsi!
CODINTERNO
    Set rst = qdf.OpenRecordset
    Doc.Bookmarks("docente").Select
    If Not rst.BOF Then 'se il recordset non è vuoto
              'Wrd.Selection.TypeText nz(rst("Denominazione"))
        'ciclo sul recordset ed esportazione di tutte le righe
        With rst
                rst.MoveFirst  'posizionati sul primo record
            While Not .EOF 'ripeti fino alla fine del recordset:
                'costruisci la riga da scrivere nel documento:
                Wrd.Selection.TypeText nz(rst("Denominazione")) &
vbCrLf 'scrivi la riga
                rst.MoveNext 'passa al prossimo record
            Wend 'Not .EOF
        End With 'Rst
        'chiudi e azzera il recordset
        rst.Close: Set rst = Nothing
    Else 'Not Rst.BOF
        Wrd.Selection.TypeText "NESSUN DOCENTE." & vbCrLf
    End If 'Not Rst.BOF
    'ripristina il valore originario dell'opzione
    '"Sostituisci la selezione"
    Wrd.Options.ReplaceSelection = ReplSel
    'avvisa l'utente che l'esportazione è terminata
    Wrd.Application.WordBasic.MsgBox "Esportazione terminata",
"Esportazione dati da Access"
On Error GoTo Err_SoddAllievoDocente_Click
Exit_SoddAllievoDocente_Click:
    Exit Sub
Err_SoddAllievoDocente_Click:
    MsgBox Err.Description
    Resume Exit_SoddAllievoDocente_Click
End Sub
Probabilmente c'è qualche istruzione da inserire nel ciclo, ma non
conosco VBA, e non ho trovato un esempio simile neanche sul
sitocomune.
Grazie per l'aiuto