mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Limitare i records accodati

Ciao a tutti,
Ho la tabella A che mi accoda tramite una query di accodamento la tabella B.
Ho la necessita' che nella tabella B si accodino al massimo 10 records.
Vorrei che il "blocco"di 10 records avvenga da codice.
Sto provando da un po'...qualcuno di voi ha un idea?
Io ho provato cosi...
     ...............................................................
      DoCmd.OpenQuery "qry_Accoda"
     Dim dbs As Database, rstUtenti As Recordset, x As Long
     Dim countNew As Integer
    Set dbs = CurrentDb
    Set rstUtenti = dbs.OpenRecordset("B")   'Accoda tutti i records
     countNew = DCount("*", "B")
For x = 10 To countNew
     rstUtenti.Delete       ' Elimina i records che eccedono ai 10
 Next x
    rstUtenti.Close
    dbs.Close
...ma mi elimina solo 1 record  (avrò scritto senz'altro qualche tavanata
galattica..)
grazie anticipate..
Ugo

 ha scritto nel messaggio
news:9oa2vt$u6$1...@fe1.cs.interbusiness.it...

Non so se ho capito bene, da quello che ho capito per risolvere il tuo
problema basta limitare la query di accodamento ai primi 10 records, cosa
che puoi fare impostando la proprietà della query Primi valori invece che a
tutte (impostazione di default) lo imposti a 10 così la query accoda solo i
primi 10 records.
Ciao fammi sapere Roberto - Syd

 ha scritto nel messaggio
news:9oa2vt$u6$1...@fe1.cs.interbusiness.it...

Innanzitutto rimetti l'orologio del tuo computer, sembrerebbe che sei un
giorno avanti.
Inoltre da come hai organizzato le cose sembrerebbe che tu vuoi ottenere che
la tabella B, dopo l'esecuzione della query di accodamento, non debba mai
contenere più di 10 record e no che la query di accodamento non ne debba
accodare più di 10 la volta; ovvero, nel caso che dopo l'accodamento la
tabella B contenga 15 record, ne vuoi cancellare 5.
Se le cose stanno così (ma non era per nulla chiaro da quello che ci hai
raccontato), quali record eccedenti i 10 che sono nella casella B vuoi
cancellare? I primi? Gli ultimi? O quali? Insomma, prima di iniziare il
ciclo di cancellazione devi posizionarti sul primo record da cancellare.
Il fatto poi che ti viene cancellato solo un record è normale, visto che
all'interno del ciclo, dopo la cancellazione, non ti sposti sul prossimo
record da cancellare; se la cancellazione devi farla dei primi  n record
(prima del ciclo di cancellazione ti sei posizionato sul primo record con
rstUtenti.MoveFirst) devi passare al record successivo con
rstUtenti.MoveNext; se invece devi cancellare gli ultimi n record (prima del
ciclo di cancellazione ti sei posizionato sull'ultimo record con
rstUtenti.MoveLast) devi posizionarti sul successivo record da cancellare
con rstUtenti.MovePrevious.
Resta la curiosità di sapere cosa devi fare.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Codice art. componibile

Ciao a tutti, sto iniziando a programmare in Access ed inizio ad avere i
primi problemi. Ad esempio, devo poter creare un codice articolo,
componendolo da (diciamo) tre campi diversi. La funzione mi è riuscita con &
ma ora non riesco a collegare il contenuto ottenuto alla mia tabella.
N.B. ho costruito una maschera senza collegarla a nessuna tabella.
Grazie.
Paolo

 ha scritto nel messaggio
news:8t45co$1v6$1...@nslave2.tin.it...

E perché hai costruito una maschera che non è basata su alcuna tabella, se
poi vuoi inserire i dati digitati e/o calcolati nella maschera in una tua
tabella?
Insomma la logica vorrebbe che la tua maschera abbia come origine record la
tua tabella.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

 ha scritto nel messaggio
news:z8lJ5.10984$3K3.3...@news.infostrada.it...

Intendevo dire che nella maschera che ho creato, ho inserito 3 combo
collegate a 3 tabelle e nella casella di testo, (proprietà\Origine
Controllo) ho inserito la funzione di concatenazione testo (&) ed ora non so
come collegare la casella di testo ad una tabella.
Paolo.

 ha scritto nel messaggio
news:8t9de5$7ov$1...@nslave2.tin.it...

Fermo restando che la tua maschera ha come origine record il nome della tua
tabella, nell'Origine Controllo del tua casella di testo mettici il nome del
campo della tabella al quale vuoi associarla, infine genera il codice VBA
che ti deve effettuare il concatenamento dei tre testi a fronte dell'evento
"Dopo aggiornamento" della terza combo.

Newsgroup: it.comp.appl.access
Titolo: calcolo di data

Salve,
dovrei calcolare una data partendo da un campo data.
Ho scritto sta roba:
If pagamenti = "BONIFICO BANCARIO 30GG D.F." Then
Me.scadenza_data_1 = DateAdd(G, 30, Me.Data)
Il campo di partenza è "data" il campo di arrivo è scadenza_data_1.
Mi da errore. Deve sbaglio?
Grazie 

 Grazie
Ciao prova cosě
= DateAdd("g";30;[data])
sull'origine di controllo della textbox (credo tu abbia utilizzato)
Ciao

 ha scritto nel messaggio 
news:cpksdv$r95$1...@lacerta.tiscalinet.it...

Si ma lo devo fare associato ad un evento clik e devo inserire diverse 
variabili. 

 ha scritto nel messaggio
news:y0ovd.40596$C94....@tornado.fastwebnet.it...

ciao The fusa :
io farei cosě:
ho creato una tabella  pagamento dove messo i seguenti campi:
id_pagamento --> contatore
pagamento descrizione (tipo di pagamento nel tuo caso BONIFICO BANCARIO 30GG
D.F)
giorni numerico              ( nel tuo caso 30)
crei una combox con origine riga una query con la tabella pagamento
indicando tre colonne come n umero colonne e associando la terza colonna.
Poi gli crei un bottone click al quale associ una instruzione sql che ti
aggiorna il campo della scadenza pagamento :
Private tuocomando_Click()
If IsNull(data_scadenza) = True Or IsEmpty(data_scadenza) Then
    strsql="UPDATE TUATABELLA SET Me.scadenza_data_1"
    strsql = strsql & "#" & Format(Me.scadenza_data_1 + Me.giorni,
"yyyy/mm/dd") & "#"
    strsql = strsql & " WHERE ((([tuatabella].[tuoid])=" & Me.idtuoid& "))"
        DoCmd.RunSQL strsql
    Me.tuaform.Requery
End If
end sub
esegui in pratica una query di aggiornamento al campo della tabella dove hai
la data di scadenza.
tuo id lo devi inserire nella maschera e lo puoi nascondere, magari.
per i 30 giorni fine mese la vedo un po' + dura !
ciao
Newsgroup: it.comp.appl.access
Titolo: azzeramento campo contatore

Come da oggetto, come si fà?
Grazie in anticipo.

 Come da oggetto, come si fà?
Compatta il database.
Sib


Cancelli tutti i record e compatti l'mdb...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: In cerca di Microsoft Jet 4.0 Service Pack 8

Ciao raga sono in cerca di questa pack visto ke con il mio Access 2003 nn ne
puo fare almeno... qualcuno di voi sa dove trovarla?Grazie... Bye

 puo fare almeno... qualcuno di voi sa dove trovarla?Grazie... Bye
Ha già Office System 2003 e i 7 sp?
Porcaccia...
MAssimiliano


Prova qui ma è la versione in lingua inglese e solo per WinXp Win2000 e
Win2003Server, a fondo pagina indica i problemi risolti e sono relativi a
tabelle collegate a server oracle quindi se non lo usi non ci sono novità
rispetto al  Service Pack 7.
(A quanto pare la versione italiana deve ancora uscire)
Information about Jet 4.0 Service Pack 8
http://support.microsoft.com/default.aspx?scid=kb;en-us;829558
Ciao Giorgio

 ha scritto nel messaggio
news:bn3vu6$dd4$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.appl.access
Titolo: formattazione casella di testo in un report

ciao a tutti;
vorrei che in una casella di testo di un report si potesse andare a capo nel
punto del testo che decido io: la casella di testo fa riferimento a piů
campi presi da 1 query, in questo modo:
=IIf([campo1] is not null;"testo1: " & [campo1];"") & " " & IIf([campo2] is
not null;"testo2: " & [campo2];"") & " " & Iif...   [e cosě via]
la struttura č questa perchč non sempre tutti i campi verranno compilati, e
non voglio che il report appaia cosě:
capo1: bla bla bla
campo2:
campo3: bla bla bla
campo4: bla bla bla
adesso mi scrive tutto di seguito, ma io vorrei andare a capo dopo ciascun &
" " : come posso fare?
grazie

 grazie
Nella concatenazione dei Testi si posso inserire caratteri
speciali, ben esposti nell'Help.
Nel tuo caso interponi vbCrLf oppure vbNewLine
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


ciao alex, grazie x la risposta, ma credo che tu stia facendo riferimento a
vb, mentre io intendevo risolvere, se possibile, la cosa immettendo
direttamente un "comando" nella casella di testo del report stesso: è
possibile (non ho alcuna dimestichessa con vb..)?

 wrote in message
news:iAf3e.40334$
zZ1.1...@twister1.libero.it

In questo caso basta essere esperti nell'uso dell'HELP...!
vbcrlf=Chr(13) + Chr(10)
pertanto nella tua espressione metti Chr(13) + Chr(10) interposto
nella funzione di aggregazione.


 ha scritto nel messaggio 
news:kde3e.40193$zZ1.1...@twister1.libero.it...

Aggiungi chr(13) & chr(10) tra un campo e l'altro.
Per esempio =campo1 & chr(13) & chr(10) & campo2 & chr(13) & chr(10) ..... 


ok, adesso funziona a dovere
grazie!

Newsgroup: it.comp.appl.access
Titolo: file delimitato

Sapete indicarmi un link dove trovare codice per importare via vba un file 
di testo
delimitato da tabulazione?
Questo per evitare che utenti inesperti debbano farlo manualmente 

 ha scritto nel messaggio
news:3Ef7j.190965$%k.32...@twister2.libero.it...

Fai tu l'importazione e definisci le specifiche leggendo le modalità
AVANZATE.
A quel punto potrai usare il metodo TransfertText passando alla Funzione il
nome
della specifica da te creata.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Interruzione di macro su evento

Buonasera amici del NG,
ho una macro di Access 2003 che esegue delle query di accodamento dati
su tabelle;
ho la necessità di far interrompere la macro nel momento in cui una
delle query mi segnali un errore in
fase di esecuzione (per esempio per dati duplicati nella relativa
tabella), quindi le query successive a quella che segnala l'errore non
debbono essere più eseguite.
Grazie per il prezioso aiuto
Leonardo

 ha scritto
evita i duplicati....

 evita i duplicati....
ciao Carlo,
nel mio caso non è possibile, ho la stretta necessità di interrompere
l'esecuzione della macro.
grazie
Leonardo

 evita i duplicati....
ciao Carlo,
nel mio caso non � possibile, ho la stretta necessit� di interrompere
l'esecuzione della macro.
grazie
Leonardo
------------------------------
Fammi capire perch� devi necessariamente usare una macro.
Con il codice � pi� semplice interrompere al verificarsi di certe 
condizioni; e poi il codice ricavato da una macro � assolutamente identico e 
con le stesse operazioni della macro.
Ciao, Carlo 

 evita i duplicati....
--------------------------
evita i duplicati....
vuol dire evita di postare pi� volte lo stesso argomento.
Comunque ho visto che hai risposto al primo post...
Buon lavoro, Carlo

Newsgroup: it.comp.appl.access
Titolo: Ordine di spostamento

Quando creo una maschera ed inserisco alcuni campi testo inserisco per
ognuno all'interno
della casella delle proprietà un ordine di spostamento:
ebbene nel momento in cui voglio creare un record nuovo il cursore
se ne va nel campo che porta come ordine di spostamento il numero
4 .Come posso risolvere il mio problema ?
Grazie anticipatamente

 4 .Come posso risolvere il mio problema ?
Non sono sicuro di aver capito cosa intendi, ma se il problema č quello di
far posizionare il cursore su un controllo ben determinato, puoi farlo
inserendo nell'evento Su corrente la seguente istruzione:
Docmd.GoToControl "nome_tuo_controllo"
Ciao
Silvio


Menù Visualizza - Ordine di tabulazione...
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Contatore Stampe ad incremento automatico

Arisalve a tutti (!!!),
mi lego al precedente post odierno, ma con una nuova problematica\richiesta.
Da un DBase di gestione ordini posso stampare l'ordine singolo direttamente
dalla maschera d'inserimento, oppure da una maschera di stampa multipla, da
n° ordine a n° ordine.
Oggi ho aggiunto un controllo che mi permette di stampare solo gli ordini
mai stampati, reperibili tramite un campo si\no.
Ora ho aggiunto un campo numerico chiamato NS nella testata dell'ordine e
vorrei che mi riportasse il numero di volte che è stata lanciata una stampa.
Vorrei sapere che l'ordine BL04/0001 ad esempio è stato stampato 3 volte (il
valore deve incrementarsi sia che lanci la stampa dall'ordine stesso, sia
che l'ordine sia compreso in un range di ordini stampato dalla maschera
esterna di stampa da N° a N°.
Come dovrei fare secondo Voi?
Grazie,
-- 
strano...mavero
Bisogna essere soli per viaggiare: se si va con altri, tutto finisce in
parole.
Freya Stark

[cut]
Dalla maschera dell'ordine riesco, ma non trovo l'idea giusta per
incrementare il contatore del n° di volte che è stato stampato un ordine di
un range di ordini gestito da maschera stampa da N° a N°.
RiThanks!!!


[cut]
che post inutile ... ho avuto l'illuminazione ed ho risolto ... ho perso
solo tempo e magari ve ne ho fatto perdere pure a Voi ...
...beh, grazie cmq  e scusate x l'inutile post!!!!


 strano...mavero
Basta una query
  "UPDATE ordini SET stampe=stampe+1 "  _
  "WHERE NumOrdine between " & DalNum & " and " & AlNum & ";"
Namor

Newsgroup: it.comp.appl.access
Titolo: metodo fiter

saluti a tutti
non riesco a capire  perchè se scrivo:
Private Sub esegui_Click()
Dim crit As Variant
Set crit = Forms!scadenziario!criterio
Me.Filter = "data_scad = ' crit ' "
Me.FilterOn = True
End Sub
non funziona
mentre
Private Sub esegui_Click()
Me.Filter = "data_scad = 'Forms!scadenziario!criterio"
Me.FilterOn = True
End Sub
cosi' funziona
in teoria non dovrebbe funzionare anche con il primo metodo descritto ?
grazie  franio

 ha scritto nel messaggio
news:KLp_c.254199$5D1.11...@news4.tin.it...

Solo perchè nel primo è assolutamente errata la sintassi.
Nel 2° access applica il riconoscimento automatico.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: possibile migliorare questo codice VBA ?

Salve a tutti.
vorrei migliorare la stesura del seguente codice VBA farraginoso:
=================================================================================================
'inizio procedura importazione dati Tabella "Anagrafica Professionista"
DoCmd.TransferDatabase acImport, "Microsoft Access", 
"c:\GestioneStudioProf\origine.mdb", acTable, "Anagrafica Professionista", 
"Anagrafica Professionista2"
DoCmd.OpenTable "Anagrafica Professionista2", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdClose
DoCmd.OpenTable "Anagrafica Professionista", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdPaste
DoCmd.RunCommand acCmdClose
DoCmd.DeleteObject acTable, "Anagrafica Professionista2"
'fine procedura importazione dati Tabella "Anagrafica Professionista"
=================================================================================================
Per cortesia, qualche esperto pu� darmi una mano ?
Grazie
Luciano 

 DoCmd.DeleteObject acTable, "Anagrafica Professionista2"
Con ... una query di accodamento? :)
currentdb.execute "INSERT INTO Anagrafica Professionista SELECT
[Anagrafica Professionista].* FROM [c:\GestioneStudioProf
\origine.mdb].Anagrafica Professionista;"
HTH
Popi

 ha scritto nel messaggio 
news:9e779db2-2f5a-4333...@1g2000yqq.googlegroups.com...

ok grazie mille Popi
Saluti
Luciano

Newsgroup: it.comp.appl.access
Titolo: Verifica presenza record in sottomaschera

Per Access 97.
Come posso effettuare la verifica sulla presenza di almeno due record nella
sottomaschera, prima di passare al record successivo o alla chiusura della
maschera principale ?
Mille grazie da Bruno

 ha scritto nel messaggio
news:%L8Ya.41964$cl3.1...@news2.tin.it...

Ciao Bruno,
Puoi interrogare la proprietā recordCount
If Me.Figlio1.Form.Recordsetclone.recordcount>2 then
   'Almeno 2 o pių record
Else
  'meno di due record
End if
Ciao Giorgio.

 Grazie Giorgio,
        il tuo consiglio č stato utile e funziona perfettamente, ma non
riesco a fare il setfocus nel campo della sottomaschera, perchč ?
        Puoi darmi un altro aiuto.
        Grazie Bruno
    >


Ciao Bruno
L'ordine di tabulazione di una sottomaschera è indipendente da quello della
maschera principale, quindi devi prima mettere il fuoco sul subfom
----------------------
Me.Figlio1.SetFocus
----------------------
e poi sul controllo
--------------------------------------------
Me.Figlio1.Form.NomeControllo.Setfocus
--------------------------------------------
Ciao Giorgio.
Newsgroup: it.comp.appl.access
Titolo: riazzeramento campi contatore dopo compattazione database

Buongiorno a tutti,
ho il seguente problema: non riesco a  riportare a zero il valore dei campi
contatore, dopo l'eliminazione dei records, e dopo aver compattato il
database. E' la prima volta che mi accade una cosa simile. (ha sempre
funzionato...)
mi aiutate?
Grazie

 ha scritto 
nel messaggio news:zBNce.842596$b5.37...@news3.tin.it...

Ciao Gaetano
prova a importare tutto in un nuovo db.
a me č successo con AXP.
---
Daniele 


Grazie Daniele!, infatti è da quando ho AXP che...

 Grazie Daniele!, infatti č da quando ho AXP che...
Ho provato a convertire il database (sia il BackEnd che il FrontEnd) in
formato A2000, quindi ho eliminato tutti i recors delle tabelle che hanno
campi contatore, poi ho provveduto a compattare in chiusura ma.... niente da
fare.
I campi contatore non si azzerano. Che ci sia qualche altra strada oltre
quella di importare tutto in un nuovo database? E poi, scusate, che
significa "importare tutto in un nuovo db"?
Grazie di tutto.


Ciao Gaetano
la compattazione puņ essere fatta anche da:
Strumenti-> Utilitą database -> Compatta e ripristina database
altro non so che consigliarti.....speriamo che qualcuno dei vip di
questo ng sia rimasto a casa :-)
---
Daniele 

 Daniele
Grazie Daniele !!

Newsgroup: it.comp.appl.access
Titolo: [?] Statistiche tempi di permanenza nel sito

Scusate potrebbe essere OT, ma devo analizzare un LOG di un WEB travasato in
una tabella SQL Server, dalla quale devo estrarre alcune statistiche.
Non riusciamo a trovare un buon algoritmo x fare statistiche sulla
permanenza sul sito.
I dati nella tabella sono i seguenti (x ogni pagina visitata):
*IP
*DataOra
*Pagina
*Pagina di provenienza
(altre info non importanti)
Immagino dovremo stabilire un tempo max entro il quale verificare se
l'utente ha elaborato altre pagine?
Ringrazio infinitamente che potrà fornire suggerimenti o indicazioni.
Saluti



Ciao,
non so se ho capito bene ma con i dati che hai a disposizione non puoi fare
un rilevamento del tempo di permanenza ma al massimo di quanti accessi ha
fatto la stessa persona e su quali pagine.
FACE ONE

Newsgroup: it.comp.appl.access
Titolo: Contatore

E' possibile definire un campo Contatore da codice?
Sulla creazione dei campi l'help spiega come si definisce un nuovo oggetto
Field per accodarlo all'insieme Fields di un oggetto TableDef.
Pero' la sintassi mi chiede di definire il tipo di campo che creo:
"Set campo = oggetto.CreateField (nome, tipo, dimensione)"
A queso punto vado a vedere le proprietą "Type" e non trovo nessuna costante
che mi definisca un campo Contatore.
Devo dedurre che non č possibile?
Grazie in anticipo a che mi risponde.
Stefano "Tita"

 E' possibile definire un campo Contatore da codice?
Se non ricordo male e' autonumber.
Saluti.
Luciano
(DOC)

E' possibile definire un campo Contatore da codice?
sql: alter table tabella add column campo counter
--
Lorenzo Coronati
--
<<Ragazzi, sapete indicarmi una utility in 
internet che sia in grado di recuperare le 
password da un database access e da un system mdw?
intendevo, gratuita...>>
(Marco Tullio Bisoli, 27/04/2001)
--
Newsgroup: it.comp.appl.access
Titolo: Informazione

Esiste in commercio un palmare sul quale far girare un programma in Access? 
E se si quale???
Grazie

 Access? E se si quale???
Immagino che ne esistano diversi, comunque:
SAMSUNG  "Q1"
Installa una versione di windows XP simile alla professional su cui girano 
senza problemi applicazioni Access 97 - XP.
Saluti.

Newsgroup: it.comp.appl.access
Titolo: Funzione index e seek con SQL server

Salve a tutti,
sto affrontando la problematica di collegare un FE ad un server SQL per
poter fare applicazioni distribuite.
Sto partendo da una applicazione già fatta e, collegata al server, mano
a mano controllo le procedure.
Il primo grosso problema che ho è che la funzione index con la
conseguente seek non funzionano.
Mi potete aiutare???
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie.
Fermo restando che il metodo Seek, come dice l'help,  non può essere usato
per una tabella collegata, vai sul Sito Comune (link qui sotto) e nella
Sezione Tables prova a leggere la FAQ di Valerio Bussi intitolata
"Utilizzare il metodo seek con una tabella collegata (be)", magari ti aiuta
a risolvere il problema.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:036e615cb319e4c912b...@mygate.mailgate.org...

Ciao Luca
Il metodo Seek non può essere utilizzato con Sql Server, gli indici che crei
nelle tabelle li utilizza l'applicazione Server per velocizzare le query.
Se devi convertire un'applicazione già fatta conviene riprogettare la logica
e spostare la maggior parte del codice sul server (ovviamente con il suo
linguaggio di programmazione Transact Sql).
Ciao Giorgio.

 ha scritto nel messaggio
news:b23epk$vs7$1...@lacerta.tiscalinet.it...



Ciao lucasack.
Oltre ai vari libri tipo...
Transact-SQL. Programmazione avanzata. Soluzioni pratiche a problemi
concreti
http://www.ita-bol.com/bol/main.jsp?action=bolscheda&ean=978888331241
Puoi scaricare la guida di Sql Server 2000 (circa 38Mb) da
http://www.microsoft.com/sql/techinfo/productdoc/2000/books.asp
Buon lavoro
Ciao Giorgio.

 ha scritto nel messaggio
news:b23mul$4ht$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.appl.access
Titolo: inserire le descrizioni a fianco delle query, maschere etc

Nel database di esempio soluzioni, all'apertura del progetto del
database, compare la form scheda dove vi sono
o le query o le maschere o le tabelle etc…
di fianco alle query incolonnate sotto un campo nome vi è un campo
descrizione con appunto una sintesi
che spiega cosa fa la query (idem per le maschere);
sul mio access97 non vi è nessun campo descrizione:
come si fa a metterlo ?
ho notato che selezionando ad esempio una query e cliccando con il
pulsante destro del mouse
si puo' da proprietà riempire uno spazio per descrivere il progetto,
pero' per rileggerlo si devfe rifare lo stesso percorso
in quanto non c'è nessuna opzione che consente di far vedere tale
descrizione a fianco del nome della query.
è forse un'opzione che si trova in un'altra parte dei menu'?
grazie


Hai fatto bene solo che per vederla nella finestra delle query o delle
maschere devi selezionare dettagli dal menù Visualizza
Ciao Roberto - Syd

 maschere devi selezionare dettagli dal menů Visualizza
meandri di access infiniti
ma di quante righe di codice č fatto questo programma
e in quanti sono impazziti a farlo
Newsgroup: it.comp.appl.access
Titolo: Application.FileSearch e proprietà files

Mi occorre sapere se i files (immagini jpg) contenuti all'interno di una
data cartella sono di sola lettura o meno e nel caso modificarli in
lettura/scrittura.
Non ho capito se Application.FileSearch abbia qualche proprietą che possa
venirmi in aiuto.....con PropertyTest forse? ma come?
Grazie in anticipo e buon weekend a tutti!
Carlo

 ha scritto nel messaggio
news:2r292rF...@uni-berlin.de...

Io uso questo:
[LEGGERE ATTRIBUTI]
Private Declare Function GetFileAttributes Lib "kernel32" Alias
"GetFileAttributesA" (ByVal lpFileName As String) As Long
    [Chiamata]
        dim retVal as Long
        retVal=GetFileAttributes(PathFile)
        Viene restituito un valore di tipo LONG che confronto cn
        queste costanti per discriminare  gli attributi
[SETTARE ATTRIBUTI]
Private Declare Function SetFileAttributes Lib "kernel32" Alias
"SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As
Long) As Long
    [Chiamata]
        SetFileAttributes sFileName, FILE_ATTRIBUTE_NORMAL
[COSTANTI]
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_OFFLINE = &H1000
Ciao.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

Oltre le API puoi usare FSO in questo modo:
  Dim fso As New FileSystemObject
  Dim f As File
  '//    Per leggere
    msgbox f.Attribute
  '//    Per settare
    f.Attributes = attValue
Ciao



Ti ringrazio,
nel frattempo avevo giŕ risolto con la API che mi hai dato sopra.
Ho faticato un tantinello perchč non avevo mai usato una API in vita mia, ma
alla fine ce l'ho fatta! ;-))
Carlo

Newsgroup: it.comp.appl.access
Titolo: La casella strumenti non funziona +

Ciao a tutti,
mi succede una cosa troppo strana, clikko sul pulsante casella strumenti e
non succede niente. Come se non esistesse.
Cosa può essere successo e soprattutto come fare a sistemare?
Grazie mille a tutti.
Ronny.
 
 
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Ronny.
Non č che č nascosta sotto a qualcos'altro? O spostata su uno dei lati
dello schermo o assieme ai menů?
Namor
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Namor
No, non mi compare proprio, al click del pulsante "Casella Strumenti" sembra
non fare nulla.
Boh...

Newsgroup: it.comp.appl.access
Titolo: Prima lettera maiuscola

Ciao, ho una query dove elenco una serie di cognomi, come posso elencarli 
con la sola prima lettera maiuscola.
Grazie 


Studia la  Format con f1 e vedi il simbolo ">"
dovrebbe essere "?>&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
Ciao
Daniele 

 elencarli con la sola prima lettera maiuscola.
p.e.
UCase(Left([NomeCampo];1)) & Mid([NomeCampo];2)
o per la prime lettera di ogni parola nel campo:
StrConv([NomeCampo];3)
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

Grazie Karl......preciso come al solito!!!!!

Newsgroup: it.comp.appl.access
Titolo: Su report vuoto

Sul Clik di un pulsante vengono aperti 2 report; può succedere però che in
uno non ci siano dei dati e quindi non deve essere aperto, ho provato
nell'evento su report vuoto ad inserire docmd.Close ma restituisce errore.
Come posso fare, grazie per l'aiuto.

 nell'evento su report vuoto ad inserire docmd.Close ma restituisce errore.
        Su report vuoto:
        =DoCmd.CancelEvent+MsgBox("Nessun record.")
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

> Come posso fare, grazie per l'aiuto.
Private Sub Report_NoData(Cancel As Integer)
    Cancel = 1
End Sub

 ha scritto nel messaggio
news:RsOZ9.58681$YG2.1...@twister1.libero.it...

Devi fare due cose:
Primo nella maschera dove apri il report prima della docmd.openreport scrivi
on error resume next
mentre nel report fai come ti hanno detto gli altri
Antonio
Newsgroup: it.comp.appl.access
Titolo: [MOLTO OT] Router ADSL con Teleconomy

Salve tutto il NG e scusate il super OT ma ormai qui ci vivo...
Un mio cliente ha un abbonamento ADSL Teleconomy 640 (uno dei primi) con un
modem Manta USB (quello verde)
Dovrei configurare un ruoter Zyxel 645R che supporta sia PPP che PPPoE ma
non mi funziona
Telecom mi dice che non mi da assistenza ma che in teoria potrebbe
funzionare (anche se male).
Qualcuno ha dei parametri da mettere? Ci avete già provato?
Grazie
Fabio

 Qualcuno ha dei parametri da mettere? Ci avete già provato?
Fai cosi':
in ethernet setup - tcp/ip metti: l'IP interno del router e Rip direction
both versione RIP-1
in internet setup metti: encapsulation RFC 1483, miltiplexing lcc-based, vpi
8, vci35 e poi tutto il resto come nel modem.
ricordati di impostare l'IP se e' statico.
Se il tuo cliente ha un server on line (ma per averlo deve avere l'IP
statico) ricordati di configurare il SUA (porta- deviazione)
Sib

 statico) ricordati di configurare il SUA (porta- deviazione)
Già fatto per la porta di PcAnywhere
Comunque grazie, adesso ho un altro po' di prove da fare, mi interessava
sapere soprattutto che non stessi perdendo tempo.
Poi ti faccio sapere
Fabio

 Fabio
Ok
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:GLMC9.44107$Yw.20...@news2.tin.it...
[CUTTO TUTTO]
Ho resettato il router e funziona semplicemente impostando
Encapsulation=PPP
Multiplexing=VC-Based
VPI=8
VCI=35
Username e password
IP dinamico
Grazie mille!
Fabio

 IP dinamico
Sono lieto che tutto funzioni, comunque ero sicuro che uno del mestiere ci
sarebbe riuscito.
Gli operai della telecom, ovviamente, sono anche loro del mestiere, il
problema e' capire di quale mestiere ;-)
Sib
Newsgroup: it.comp.appl.access
Titolo: Errore caricamento DLL

Sto esaminando il codice del progetto "Viewer" per la gestione delle
immagini, trovato sul "SitoComune" e più volte citato in vari messaggi.
Non riesco a farlo partire perchè mi compare sempre il messagggio di errore
"Errore di compilazione: Errore caricamento DLL" e successivamente "Errore
di compilazione: Variabile non definita".
Premesso che sto usando Access 2k sotto Windows XP Pro, ho cercato di
esaminatre le chiamate alle librerie DLL presenti nel codice che sono:
1) shell32.dll
2) comdlg32.dll
3) user32
Controllando i Riferimenti disponibili (menù Strumenti -> Riferimenti) trovo
impostati:
a) Visual Basic for Application
b) Microsoft Access 9.0 Object Library
c) Microsoft Office 9.0 Object Library
d) OLE Automation
e) Microsoft Visual Basic for Application Extensibility 5.3
A questi ho aggiunto Microsoft Shell Controls And Automation, che sarebbe la
libreria shell32.dll, ma non riesco ad individuare le atre due librerie dll
che sembrano mancare.
Come devo fare?
Qualcuno mi può aiutare?
Inoltre, se cerco di aprire il Visualizzatore oggetti, mi compare
immancabilmente un errore di Access che mi chiude senza pietà
l'applicazione, chiedendo di inviare la solita segnalazione a Microsoft.
Ringrazio anticipatamente chiunque mi potrà aiutare.
Giovanni

 e) Microsoft Visual Basic for Application Extensibility 5.3
Manca la "Microsoft DAO 3.6 Object Library" da inserire tra la (b) e la (c)
--
rgrds
SC
<cut>
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


OK, ma non riesco ad inserirlo perchè, non appena selezionato il riferimento
indicato e confermata l'operazione, mi ricompare il messaggio "Errore di
caricamento DLL" e non mi accetta il nuovo riferimento.
Grazie per la risposta.
Giovanni

 "Errore di caricamento DLL" e non mi accetta il nuovo riferimento.
Prova di riregistrare la DLL di DAO come descritto nel articolo
"Errore 429 - Il componente Activex non e' in grado di creare l'oggetto."
http://www.sitocomune.com
 sezione General
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

"GiovanniD" <

Immagino che avrai problemi anche con altri .mdb...

Grazie a tutti.
Ho risolto il problema.
Giovanni

Newsgroup: it.comp.appl.access
Titolo: Calcoli tra Date

Chiedo se qualcuno conosce un sistema per calcolare la differenza in Anni,
Mesi e Giorni tra due Date.
Esempio: Data Entrata e Data Uscita --- Risultato 10 Anni  - 4 Mesi  - 3
Giorni.
Grazie

 ha scritto nel messaggio
news:c0j78p$u5j$1...@lacerta.tiscalinet.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la FAQ di
Silvio Berruti intitolata "Differenza tra due date espressa in anni, mesi e
giorni".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: ##### vi chiedo aiuto ######

Prova ad usare Format([somma già ricevuta];"L. #.##0") o Format([somma già
ricevuta];"? #.##0")  al posto di Str([somma già ricevuta]).
Per informazioni su come creare le stringhe di definizione dei formati vedi
la guida in linea.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Impostare margini fissi in in report

Mi succede a volte che usando i report di uin mio db usando la stessa
stampante, mi ritrovo i margini di stampa variati per cui devo impostare la
pagina in struttura report e rimetterli a posto e slvare.
La domanda è se sia possibile fare in modo che i margini rimangano fissi per
default come li imposto oppure vengano automaticamente reimpostati prima di
stampare,grazie.

 wrote in message
news:amjs4v$vk6$1...@lacerta.tiscalinet.it...

Quarda nei vecchi post, è un baco di Access, trovi come risolverlo o nel
newsgroup o nel knowledge base di microsoft (report margin access print)
Saluti.

 ha scritto nel messaggio
news:amjs4v$vk6$1...@lacerta.tiscalinet.it...

Per AXP trovi su MSDN un ottimo esempio.
Cerca:
Programming Printer Settings in Microsoft Access 2002
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: cerco corso VBA for Access

conoscete qualche sito interessante o qualche link da cui scaricare guide,
tutorial etc...?


Se non vuoi comprarlo, usa il file sharing ... emule p.e.
-- 
strano...mavero
la vita è un dono prezioso, apprezzala per quello che potrà offrirti
www.spammer.it


www.manuali.net
un sito interessante.
Ciao Rita

Newsgroup: it.comp.appl.access
Titolo: Stampare un file txt da codice ...?

Come è possibile stampare un file .txt da codice ???
Saluti
Andrea


Con il comando Shell:
Es.
'----------------
Shell "NOTEPAD.EXE /p nomeFile.txt"
'----------------
Se non č troppo grande; altrimenti prova con il wordpad...
Ciao.
--
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: Ottimizzare il codice per piu' controlli

Salve!
se in una variabile metto il nome di un controllo di una maschera
es.
varControllo = "txtDaData"
E' possibile fare
varControllo.setfocus?
Saluti
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.

 varControllo.setfocus?
Puoi fare
[forms]![varcontrollo].setfocus
Antonio

 ha scritto nel messaggio
news:3bc61152...@news.interbusiness.it...

Puoi provare con: Me.controls(varControllo).Setfocus
Ciao.

 ha scritto nel
messaggio news:9q6a30$hgg$1...@canarie.caspur.it...

Penso che tu voglia intervenire con la stessa istruzione su più controlli di
una maschera (penso non contemporaneamente!). Allora prova col ciclo For
each control.... ecc. (dai un'occhiata alla guida in linea).
Ciao Giuseppe.

 ha scritto nel messaggio
news:9q6u6r$v00$1...@pegasus.tiscalinet.it...

A chi rispondi? A me o a pfm?
Ciao.
Newsgroup: it.comp.appl.access
Titolo: saltare una parte di codice se una casella di testo è vuota

ciao a tutti, ho un problema
nella mia maschera ho diverse caselle di testo,
io vorrei che se la casella di testo è vuota mi saltassa una parte di
codice.
ho provato così ma non funziona
if me.altezza.value = "" then goto procedi
if me.altezza.value = null then goto procedi
msgbox "salta questa parte"
procedi:
grazie

 ha scritto nel messaggio 
news:420c7733$0$6302$5fc...@news.tiscali.it...

if isnull(me.altezza) then
msgbox
goto procedi
procedi
MAssimiliano 

 MAssimiliano
grazie mille

 ha scritto nel messaggio 
news:420c7ba1$0$32335$5fc...@news.tiscali.it...


 if Nz(me.altezza.value, 0) = 0 then goto procedi
Acchiappale DOPO il quoting
MAssimiliano 

 MAssimiliano
Scusami, ho imparato ora cos'è il quoting. 


Diciamo che tecnicamente questa scrittura č ORRIBILE.
Cosě č Corretta:
if Nz(me.altezza, vbNullstring) = vbnullstring then goto procedi
Saluti
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 if Nz(me.altezza, vbNullstring) = vbnullstring then goto procedi
Allora, se vogliamo rasentare la perfezione, sarebbe d'uopo fare cosě
Public function vuoto(x as variant) as boolean
if Nz(x, vbNullstring) = vbnullstring or trim(x) = "" then
  vuoto = true
else
  vuoto = false
end if
end function
e poi
if vuoto(me.altezza) then
Antonio


Come ti devo dar ragione....!!
Me ne duole, ma devo.
;-)



grazie mille mi piace sapere come un programma dovrebbe essere, poi
sapete se si riece a farlo come dovrebbe essere ok altrimenti per lo
meno si sa che non  stato fatto giusto.

Newsgroup: it.comp.appl.access
Titolo: come visualizzare i data base di access

Ho dei file creati con access 2000, pero non ho il programma, vi sono dei
visualizzatori reperibili in rete?
Grazie

 visualizzatori reperibili in rete?
Guarda qui
http://www.microsoft.com/italy/office/previous/2000/viewers.asp

 Grazie
L'unico visualizzatore relativo ad Access è quello che consente agli utenti
di Internet Explorer versione 3.0 o successiva e di tutte le applicazioni
che supportano i controlli ActiveX® di aprire file snapshot dei report di
Access 97 (.snp).
Non esiste invece alcun visualizzatore che ti permette di aprire e
viasualizare un database Access; l'unica possibilità di aprire un file
Access da parte di chi non ha installato Access è quella che, chi ha creato
il database, abbia prodotto una versione run-time possedendo lui una licenza
Developer.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Access 97 (.snp).
c'e' anche lo snepsciot viuer per il 2000
http://office.microsoft.com/downloads/2000/Snpvw90.aspx
--
lorenzo coronati
---

"Lorenzo Coronati" <lorenzo.coronati@liberopuntoit> ha scritto nel messaggio
news:3dc90f8d...@news.edisontel.com...

OK, grazie!

Newsgroup: it.comp.appl.access
Titolo: Tabelle Colegate e C++

Ciao a Tutti, 
E' la prima volta che scrivo qui.
sto scrivendo un programma in visual c++ 2005, e houtilizzato le
classi "Consumer ODBC" per accedere a delle tabelle di access.
In una di questa tabella c'è una colonna che vorrei filtrare, però..in
questa colonna c'è un valore che è numerico ma è associato ad un'altra
tabella
Se la apro la tabella che vorrei filtrare con access nella colonna
incriminata mi esce il combobox con un valore tipo: 768/2007
che non è un numero...! ma un insieme di nunmeri della tabella
collegata!
come faccio a filtrarla?
Grazie per eventuali aiuti.
ciao 
F

 ha scritto nel messaggio 
news:n3sph31ccvdh9eh6p...@4ax.com...

Ciao Filippo,
quando apri la tabella con Access e vedi la combobox, semplicemente 
Access ti sta facendo vedere i numeri della tabella collegata, xchè 
qualcuno ha impostato così la visualizzazione quando ha definito la 
tabella. Se vai in Visualizza struttura della tabella selezioni il 
campo incriminato, clicchi su ricerca, vedrai che ci sarà impostato 
casella combinata e ci sarà una tabella come origine riga della 
casella combinata, per vedere il numero originale metti  Casella di 
testo.
Il filtro poi lo fai normalmente sul campo numerico!
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
---------------------------------------- 

Il filtro poi lo fai normalmente sul campo numerico!
Ok funziona!
Grazie Cinzia.

Newsgroup: it.comp.appl.access
Titolo: aggiornamento doppia combobox in una sottomaschera

Augh! a tutti,
Ho due combobox in una sottomaschera: con la prima seleziono la
tipologia, con la seconda un dettaglio corrispondente alla tipologia
scelta nella prima.
Ora il mio quesito è: come faccio a filtrare la seconda combo con i
valori selezionati nella prima?
PS: Ho provato ad usare una query che viene aggionata dopo la modifica
della prima combo, ma ciò non funziona (visualizza il dettaglio
sull'ultima tipologia registrata e non su quella corrente).
Ch'aggiaffà?
Hola et labora,
Marino
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 > valori selezionati nella prima?
Questo è un quesito dei più gettonati e la cui risoluzione puoi trovare
cercando nei vecchi post o sul sitocomune.
Comunque devi mettere like nz([forms]![tuaform]![primacombo];"*") come
criterio nella rowsource della seconda combo e fare una requery al dopo
aggiornamento...
Antonio

Scusa Antonio e a tutti coloro che si possono essere offesi, ma in
realtà non volevo essere polemico...
E' solo che leggendo fra i post e sul sitocomune mi sono accorto che il
quesito non era pertinente e forse era poco chiaro. Ho solo voluto dare
una versione migliorata (2.0) al mio precedente quesito.
Grazie 1000 per le dritte & nomenclatura,
Marino
PS: ho eliminato il quoting perchè mi da uno strano errore:
"More included text than new text." ... boh


 "More included text than new text." ... boh
Aggiungi in fondo un po' di righe vuote...
Antonio
Newsgroup: it.comp.appl.access
Titolo: valore TabIndex in una pagina di accesso ai dati

buongiorno.
In una pagina di accesso ai dati ho 15 campi in cui inserire i dati.
Vorrei che con il tabulatore, il cursore per l'inserimento dei dati passasse 
tutti i campi dal campo 1 al 14 per poi ritornare all'uno, escludendo quindi 
il campo 15 sul quale si può inserire il dato solo cliccandoci col mouse.
è possibile ?
grazie, ciao. 

 ha scritto nel messaggio 
news:duniog$4hvm$1...@stargate1.inet.it...



Ganzo!!!
Se mi serve lo uso...
Ciao
Nik
Newsgroup: it.comp.appl.access
Titolo: nel report come posso inserire il numero di riga?

Salve a tutti,
nel report vorrei aggiungere una colonna (linea) che non ho nella query che 
mi indichi il n. di riga es.
testata report  linea - cognome nome - Importo -  firma
                        1        pippo                    10
                        2        pluto                      20
                        3        paperino                20
e cosi via, é possibile ottenere questo tipo di report?
Grazie e buona serata
-- 
Il Caffé
da sempre la miglore bevanda 

 ha scritto nel messaggio 
news:48c5633b$0$41661$4faf...@reader4.news.tin.it...

nell'origine record di una casella di testo: = 1
somma parziale : su tutto
poichè parli di testata report, preciso che la suddetta txt va messa
nella sezione corpo.
Ciao
Daniele 

 ha scritto nel messaggio 
news:ga3per$3bj$1...@aioe.org...

grazie Daniele e tutto ok
buona giornata

Newsgroup: it.comp.appl.access
Titolo: Come creare una maschera di input che non ammetta il carattere spazio?

Slave
vorrei creare una casella di testo nella quale non sia possibile
inserire caretteri di spazio, quindi avevo pensato di usare la
seguente maschera di input:
AAAAAAAAAAAAAAAA;;_
in teoria ad A dovrebbe corrispondere un carattero od una cifra,
invece posso inserire anche gli spazi.
come posso creare una maschera di imput che impedisca all'utente di
inserire degli spazi?
Ciao, Max

"MarcoMax" <p...@papapa.pupupu> ha scritto nel messaggio
news:392e8ae5...@news.tin.it...

Non so se esiste una maschera input che fa quello che dici, in sostituzione
potresti utilizzare una funzione, nell'evento prima di aggiornare, che legge
carattereXcarattere e restutiisce la stringa senza gli spazi:
es.
Function noSpace(xStringa As String, xTogli As String)
Dim ritorno As String, xLunghezza As Integer, conta As Integer, xCarattere
As Integer
ritorno = ""
xLunghezza = Len(xStringa)
If xLunghezza > 1 Then
    For conta = 1 To xLunghezza
        xCarattere = Asc(Mid(xStringa, conta, 1))
        If Asc(xTogli) = xCarattere Then
Rem non fa niente
        Else
            ritorno = ritorno & Chr(xCarattere)
        End If
    Next
End If
    noSpace = ritorno
End Function
Ciao.

 Ciao, Max
Ciao Max,
se desideri che venga ignorata la pressione dello spazio, è sufficiente
inserire la seguente riga di codice nell'evento Su Pressione del controllo
incriminato:
    If KeyAscii = 32 Then KeyAscii = 0    ' 32 codice Ascii dello spazio
e hai risolto.
Ciao
Silvio
Newsgroup: it.comp.appl.access
Titolo: errorer movelast

in una routine, dopo la scrittura di un record su di una tabella, eseguo il
movelast per reperire il numero progressivo chiave attribuito
automaticamente.
Mi capita in alcuni casi (verificando con il debug) che il posizionamento
avviene non sull'ultimo record ma sul penultimo.
A cosa può essere dovuto ?
Come posso risolvere ? magari effettuando il movelast su un altro
openrecordset della stessa tabella ?
Grazie anticpatamente e Buona Pasqua a Tutti !

 ha scritto nel messaggio
news:Juhp8.93055$%g7.29...@twister2.libero.it...

Forse non hai salvato il record (.Update) prima del .MoveLast.
E comunque non serve .MoveLast per reperire il numero: se hai aggiunto il
record da VBA basta leggere il valore del campo numero subito dopo il
.AddNew; se lo hai aggiunto con query SQL puoi trovare il nuovo numero con
un DMax.
-Marco-

Newsgroup: it.comp.appl.access
Titolo: Tipo dati non corrispondenti

Vi chiedo per favore di spiegarmi dov'è l'errore quando su un codice come
questo:
1     Dim dbs As Database
2      Dim rst As Recordset
3      Set dbs  = Opendatabase("c:\Mieidatabase\miodb.mdb")
4      Set rst = dbs.Openrecordset("miaTabella")
L'esecuzione si interrompe sulla riga 4 dando Errore 13 tipi non
corrispondenti.
Grazie perché io con le librerie non ho molta dimestichezza.


Se le istruzioni che hai scritto sono quelle riportate l'errore č
spiegabile.
Infatti OpenDatabase č un metodo dell'oggetto DBEngine e richiede un'area di
lavoro definita: la Workspace.
Un oggetto Workspace definisce una sessione e oltre al database corrente
permette l'apertura di piů database.
Leggiti nella guida questi elementi fondamentali.
Ne deriva che per aprire un database diverso da quello corrente hai bisogno
di informare il motore JET in quale spazio stai lavorando.
Un esempio di codice potrebbe essere questo:
    Dim wrk As Workspace
    Dim dbs As Database, Nuovodbs As Database
    Dim RST As Recordset
    Set dbs = CurrentDb
    Set wrk = DBEngine.Workspaces(0)
    Set Altrodbs = wsp.OpenDatabase("c:\Auto.mdb")
    Set RST = Altrodbs.OpenRecordset("Auto")
    '...tuo codice
      RCS.Close
     Set dbs = Nothing
     Set Altrodbs = Nothing
Le tre righe finali chiudono il recordset e i database aperti.
Buon lavoro.
Ciao, Carlo


prova cosě:
4      Set rst = dbs.Openrecordset("miaTabella",dbOpenDynaset)
Fmmi sapere.
Ciao Roberto - Syd

 ha scritto nel messaggio
news:tbLj7.46555$%a4.17...@news.infostrada.it...

Se non hai escluso dai riferimenti le librerie ADO occorre specificare nella
dichiarazione degli oggetti che
sono DAO, ovvero:
    Dim dbs As DAO.Database        ;    questo potrebbe non essere
indispensabile
    Dim rst As DAO.Recordset        ;     questo è indispensabile
Fammi sapere se era solo quello ...   CIAO