mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Aggiunta di un valore ad un record copiato

Salve a tutti e buone vacanze per chi le continua.
Problema: copio da una tabella ad un altra attraverso un pulsante il record
mostratomi da una maschera filtrata attraverso queste poche righe di codice:
    Dim rst As Recordset
    Dim rst2 As Recordset
    Dim fld As Field
        Set rst = Me.RecordsetClone
         rst.MoveFirst
         rst.Move Me.CurrentRecord - 1
     Set rst2 = CurrentDb.OpenRecordset("TabellaBersaglio")
 rst2.AddNew
  For Each fld In rst.Fields
    rst2(fld.Name) = fld
      Next fld
 rst2.Update
La TabellaBersaglio ha un campo in più dell'altra che si chiama "Num".
come posso assegnare a questo campo il valore arbitrario 2 ?
Ho provato, ma essendo un dilettante ho fallito. Grazie a chi mi presterà
attenzione. Cld

 ha scritto nel messaggio
news:Rw199.85691$n04.2...@twister2.libero.it...

Prima di rst2.update (ma fuori dal For...Next ci metti rst2("Num")=2
Ciao, FABIO


Ecco perchč, io lo mettevo dopo perchč convinto che dovesse far parte del
ciclo. Grazie e Ciao

 come posso assegnare a questo campo il valore arbitrario 2 ?
[...]
    (Ti ha gia' risposto Fabio.)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------


Cut
Scusa se ti rispondo tardi, ma sono tornato or ora. Quella riga è una
soluzione empirica, poichè mi sono accorto che copiava il record successivo
rispetto a quello "puntato", quindi in caso di primo record funziona lo
stesso. Ciao e grazie dell'attenzione. Cld

Newsgroup: it.comp.appl.access
Titolo: Format(date())

Avrei la necessità di visualizzare solo le ultime due cifre dell'anno in
corso; qual'è la sintassi del comando Format?
Grazie
Alfio

Pleiadi wrote:

Format(Date, "YY")


Grazie per la rapidità, ma.....
l'ho inserito in controllo non associato, ma non funzia?!?
tu l'hai provato?
Alfio
Alfio

 > Format(Date, "YY")
=format(Date(),"YY")

l'ho inserito in controllo non associato, ma non funzia?!?
hai provato con =ecc.?  non l'ho provato ma dovrebbe essere così.
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

 --
Le stň provando tutte, ma non ne vengo a capo.
E' incredibile come ci si possa piantare in stronzate del genere.......ma
cosě č....
Alfio

 Alfio
se devi visualizzarlo in un controllo testo non associato:
=Format(Date();"aa")
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

 =Format(Date();"aa")
Finalmente......
Grazie č quella OK.
Alfio
Newsgroup: it.comp.appl.access
Titolo: Query per stampa con chr(10)

Bon Dī a tutti
Nell'ambito di una query per la creazione di una stampa ho creato la
seguente espressione:
Societa:[ditta]&chr(10)&[socio]
con chr(10) pensavo che ci fosse un ritorno a capo.
Perņ non funziona.
chi mi puņ dare una dritta
ringrazio anticipatamente
saluti
giova

 ha scritto nel messaggio
news:403765f6$0$706$5402...@news.sunrise.ch...

Prova con
Societa:[ditta]&chr(10)&chr(13)&[socio]
Ciao
Antonio

 Societa:[ditta]&chr(10)&chr(13)&[socio]
No, l'ordine è
Societa:[ditta] & chr(13) & chr(10) & [socio]
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com


Vi ringrazio moltissimo e a buon rendere
saluti giova

Newsgroup: it.comp.appl.access
Titolo: _AfterUpdate unificato

ho una maschera con circa 20 campi per l'inserimento e relative 20 textbox con i relativi 
valori di Massimo in modo da creare un semaforo che se il valore inseirto è maggiore o minore
cambio il colore del BackColor della textbox
ho creato una procedura parametrizzata unica che gli passo il nome del campo e faccio tutto
per il singolo campo. 
questo la richiamo in _AfterUpdate() singola
e Form_Current() con il ciclo per tutti
è possibile creare un unico evento ed evitare _AfterUpdate() per ogni singola Textbox?
 
Come fare GRAZIE


Puoi scrivere una funzione alla quale Passi il Controllo ed all'interno fai la gestione relativa allo stesso...
 
Private Function FormattaControllo(pControl As Access.TextBox)
     Quì controlli tutto di pControl, ma devi passarlo... quindi su AfterUpdate devi scrivere:
     Call FormattaControllo(Me!NomeControllo)
End Function
 
Oppure è possibile creare una classe che gestisca tutto ed assegnare alla Classe l'oggetto, quindi istanzi N classi quanti sono i controlli da associare.
 
Io sono per questa tecnica, peraltro standard per i normali linguaggi di programmazione ad oggetti... poco usata in Access(VBA) per motivi vari...
 
@Alex

grazie
 
in effetti ho creato una procedura così ma devo creare tanti eventi _AfterUpdate()  quanti sono le TextBox
non c'e' un modo per creare un unico evento?



Si con la classe... ;-)
 
Nella maschera, assegni alle TextBox da controllare un TAG specifico come "X", e crei una Collection
 
Private mC As Collection
Private Sub Form_Load()
   Dim ctl As Access.TextBox 
   Dim mcls As NomeClasse
    Set mC=New Collection
    For each ctl in me.controls
       If ctl.TAG="X" Then
       Set mcls=new NomeClasse
       Set mcls.BoundControl=ctl
       mc.Add mcls,
ctl.name
 
       End if
    Next
End Sub
 
Finito.
 
La tua classe invece ha tutto il CORE del codice Oggetto, che vale per qualsiasi istanza(ora semplifico l'esempio)
 
Private WithEvents mTxt As Access.TextBox
Public Property Set BoundControl(pTxt As Access.TextBox)
    Set mTxt = pTxt 
    With objControl
        .OnAfterUpdate="[Event Procedure]"
        ' altri...
    End With
End Property
Public Property Get BoundControl() As Access.TextBox
    Set BoundControl = mTxt 
End Property
 
Private Sub mTxt_AfterUpdate()
   ' Codice specifico per il controllo BOUND
End Sub
 
Saluti
@Alex
Newsgroup: it.comp.appl.access
Titolo: Listbox trasferimento priorità

Ciao a tutti,
qualcuno potrebbe indicarmi la strada per trasferire dei valori presenti in
una listbox e trasferirli all'interno di un'altra listbox permettendomi di
dare una priorità ai valori trasferiti?
Premetto che ho esaminato l'esempio contenuto su sitocomune (listbox), ma in
quel caso c'è il trasferimento senza la possibilità di ordinare i valori
secondo un mio criterio.
Grazie

 ha scritto nel messaggio
news:wGgic.143256$Kc3.4...@twister2.libero.it...

Se è un elenco di valori l'ordine lo dai tu mettendoli in fila dal primo
all'ultimo; se l'elenco è dato da un istruzione SQL dovrai scegliere quale
campo ordinare o creartene uno che imposterai a tuo piacimento...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: chiave esterna

in access 2000 quando voglio inserire la chiave esterna non trovo
"descrizione del campo" nelle proprietą in visualizzazione struttura.
che significa?
Sapreste dirmi come posso assegnare la chiave esterna in access 2000?
grazie per le vostre eventuali risposte.

 ha scritto nel messaggio
news:l1ycd.50361$b5.25...@news3.tin.it...

Forse non ho capito la tua domanda, ma in Access la chiave esterna vine
determinata al momento che si impostano le relazioni tre tabella.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Rinominare una tabella

Salve a tutti,
è possibile cambiare il nome ad una tabella di un DB access 2000 
direttamente da codice VB?
Grazie. Alberto 

 ha scritto nel messaggio
news:43453556$0$8486$5fc...@news.tiscali.it...

Ciao Alberto,
prova con il metodo rename dell'oggetto docmd. Nell'help di Access c'è un
esempio molto chiaro.
Ti saluto, Sandro

 esempio molto chiaro.
...
Grazie mille! Lo provo subito.
Alberto

Newsgroup: it.comp.appl.access
Titolo: FrontEND - cambiare Origine dati SQL  le viste diventano sola lettura?

Salve
Ho un frontEnd che per necessità ho collegato a un database di TEST
 
Terminati i test sono andato in tabelle collegate e selezionato ricollega scegliendo la nuova origine dei dati
 
Non capisco come mai le Tabelle tutto ok mentre le Viste sono diventate in sola Lettura.
 
Come posso fare?
Se cancello le viste e poi le ricollego si rovinano le query che hanno in collegamento tabelle e viste.
 
Grazie anticipatemente per i suggerimenti

salve qualcuno ha un suggerimento da darmi?
 
non so proprio come procedere se non quello di creare un db vuoto e collegare tutte le tabelle e viste e poi importare le query

Newsgroup: it.comp.appl.access
Titolo: Query imprecisa

Un saluto al NG!
Come faccio a fare in modo che scrivendo in una query una parola che fa
parte di una frase mi trovi comunque il record corrispondente??
Attualmente posso solo scrivere il campo esatto.
Grazie
--
Antonio
E-mail: antonio...@NOSPAMhotmail.com
Personal Web Site: 
http://www.antoniog.it

Antonio G. <antonio...@NOSPAMhotmail.com> wrote in message
a1str6$35f$1...@newsreader.mailgate.org...

Usa i caratteri jolly guarda la guida

Grazie
vedi istruzione like in filter
LIKE "*PIPPO*"
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: Intercettare collegamento ipertestuale

Vorrei fare in modo che se si trascina un collegamento ipertestuale
(per esempio un link ad un sito internet, quindi del tipo
http://......) su una casella di testo di una form, nella casella di
testo appaia l'indirizzo del collegamento.
Grazie
Luigi


Certo che hai delle voglie non indifferenti...!!!
VBA non supporta il DRAG&DROP, o meglio non è implementato, pertanto
dubito si possa fare....almeno in modo semplice senza ricorrere al
SubClassing, ma anche quì ci sarebbe da vedere....
L'unica cosa che puoi fare, a mio avviso, è il classico Copy/Paste
usando la Clipboard...
@Alex


wrote:

Quando dici che il VBA non supporta il Drag & Drop vuoi forse dire che
non lo supporta su di una casella di testo.
Però a pensarci bene a me potrebbe andare bene anche una ListView che
supporta il drag & drop. Poi una volta intercettato sarebbe immediato
visualizzarlo in una casella di testo.
Se non vado errato, poco tempo fa fosti proprio tu (ma potrei anche
sbagliarmi) a darmi delle direttive su come intercettare il nome di un
file trascinato da Gestione Risorse sopra una ListView. Questo sono
riuscito a farlo. 
In tal caso sotto l'evento OLEDragDrop della Listview mettevo il
codice:
Private Sub ListView8_OLEDragDrop(Data As Object, Effect As Long,
Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i As Long
    i = DragDrop(Data)
End Sub
nella quale la funzione DragDrop aveva più o meno questa forma:
Private Function DragDrop(Data As DataObject) As Long
    If Data.GetFormat(15) Then
	If Data.Files.Count = 1 Then
		nomecaselladitesto=Data.Files(1)
	End If
    End If
End Function
Adesso però si tratterebbe di fare più o meno la stessa cosa, solo con
un collegamento ipertestuale. Così, a naso, direi che se per fare la
prima cosa occorre così poco codice, non dovrebbe essere così
difficile fare anche la seconda.
Cosa ne pensi?
Luigi

 Luigi
Gli OCX normalmente espongono gli eventi di Drag&Drop come infatti giù
ti dissi...!
Il problema ora che non riesco a capire è: Da dove prendi il
collegamento HyperText..?
Fuori dall'applicazione ..?
A parte quello, se pensi di sfruttare la ListView al fine di popolare
la TextBox è un pò sporca la cosa però penso sia fattibile...!
La TetxBox in ogni caso può essere Subclassata dopo aver ricevuto il
Focus e puoi intercettare anche su di lei i Drop...!
Se invece sei all'interno della tua applicazione anche con l'HyperText
puoi emulare il tutto con gli Evento Mouse Down e MouseUp memorizzando
sempre nella ClipBoard ...!
@Alex


Purtroppo non conosco la tecnica del Subclassing. Sarà una delle cose
che sono curioso di approfondire appena ho un po' di tempo per
dedicarmici.
Grazie
Luigi
Newsgroup: it.comp.appl.access
Titolo: Casella Controllo

Buona sera 
 
come posso filtrare i dati di una casella di riepilogo  ElencoProdotti
con una  CasellaControllo   (Disponibile )  SI/NO
 
Vorrei che la Casella riepilogo ElencoProdotti
se attivo la spunta mi visualizzasse solo i prodotti disponibili  
 
Saluti Giuseppe

Metti il criterio nella query di origine sul campo con riferimento al cotrollo checkbox...
Su evento DopoAggiornamento della.checkbox fai il requery...
 
A titolo di esempio:
SELECT * FROM T1
WHERE CAMPOsino=Forms!NomeForm!nomecheckbox
ORDER BY IdPk;
 
@Alex 

 @Alex
 
Proverò 
 
Grazie Giuseppe


Perfetto funziona 
 
Ciao  Buon primo maggio 
Giuseppe
Newsgroup: it.comp.appl.access
Titolo: Listbox colore ed eliminazione record

Ho due problemi vorrei poter eliminare tramite codice un record
selezionato su una casella di riepilogo. cioč premendo su un pulsante mi
elimini proprio il record selezionato. Se qualcuno conosce la soluzione?
Grazie
Il secondo problema riguarda la possibilitŕ di poter cambiare colore solo
ad una colonna della listbox in base ad una condizione che se vera ad
esempio abbia un colore se falsa né abbia un'altra. Grazie e Buona
Pasqua!!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Un piccolo aiuto ad un principiante....VI PREGO!!!

Innanzitutto grazie per avermi concesso il vostro tempo.
Ho un piccolo problema
Ho una tabella contenente molti indirizzi tutti diversi e tutti
corrispondenti ad un numero identificativo unico e una seconda tabella in
cui in un campo ho alcuni numeri identif. di questi indirizzi (tutti
diversi) e in un campo un numero intero corrispondente a quante volte questi
indirizzi devono essere stampati. Il mio problema è questo: come faccio a
far risultare in una query ogni indirizzo ripetuto tante volte quanto
indicato nella mia seconda tabella? GRAZIE 1000 A TUTTI COLORO CHE
CERCHERANNO DI AIUTARMI!!!!!!!!!
P.S. Mi sono avvicinato all'ACCESS da 2 settimane e non conosco l'SQL!!!

 ha scritto nel messaggio
news:al1m0l$gvg$1...@lacerta.tiscalinet.it...


 Senti ma con quella query poi devi creare un report?
Leggi qui:
http://www.globalfox.it/ithn/2001/System/Frames.asp?url=../Help/Netiquette.h
tml

> indirizzi devono essere stampati. Il mio problema č questo: come faccio a


Newsgroup: it.comp.appl.access
Titolo: Generare righe

Ciao a tutti!
Ho una tabella Appuntamenti con due campi "datainizio" "datafine"
ho la necessita di accodare  le date tra inizio e fine in una tabella
Esempio
Datainizio 01/01/03
Datafine 31/03/03
Nell'altra  tabella dovrà esserci:
date
01/01/03
01/02/03
01/03/03
oppure:
date
Gen
feb
mar
Non riesco proprio ad andare avanti
Grazie a tutti

Alessandro ha scritto:

Devi scrivere una routine vba con un ciclo che inserisca in tabella le
nuove date, a partire da quella di inizio e fino a quella di fine.
Namor
-- 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: Da Cobol ad Access


Come già detto a Kova, non credo che esistano dei driver per collegare o
importare/esportare archivi Cobol in Access. Passa per un programma di
carico/scarico archivi Cobol.
Bye
LaLo

 wrote in message
news:9ibtbv$6fs$1...@pluto.news.dsi.unimi.it...


 > LaLo
Farò cosi perchè il programma in questione è stato scritto con il cobol
85...quindi molto antico
Newsgroup: it.comp.appl.access
Titolo: Order non corretto

SELECT Provincie.Provincia, Zone.Zona, Nominativi.Sottozona, 
Nominativi.Ragione_Sociale, Agenti.ID_Agente, Agenti.Cognome, 
Nominativi.Citta, Nominativi.Descrizione2, Nominativi.Indirizzo, 
Nominativi.Telefono, Nominativi.Fax, Nominativi.Provincia, 
Nominativi.ID_nominativo
FROM ((Nominativi RIGHT JOIN Agenti ON Nominativi.ID_Agente = 
Agenti.ID_Agente) LEFT JOIN Provincie ON Nominativi.Provincia = 
Provincie.Sigla_Breve) LEFT JOIN [Zone] ON Nominativi.ID_Zona = Zone.ID_Zona
GROUP BY Provincie.Provincia, Zone.Zona, Nominativi.Sottozona, 
Nominativi.Ragione_Sociale, Agenti.ID_Agente, Agenti.Cognome, 
Nominativi.Citta, Nominativi.Descrizione2, Nominativi.Indirizzo, 
Nominativi.Telefono, Nominativi.Fax, Nominativi.Provincia, 
Nominativi.ID_nominativo
ORDER BY Provincie.Provincia, Zone.Zona, Nominativi.Sottozona, 
Nominativi.Ragione_Sociale;
come mai la query qua sopra nel' order by nominativi.ragione_sociale non me 
lo ordina correttamente??

 ha scritto nel messaggio
news:43c56792$0$1068$4faf...@reader2.news.tin.it...

Onestamente non capisco a cosa ti serva la proposizione ORDER BY visto che è
preceduta da una proposizione GROUP BY che fra l'altro raggruppa per gli
stessi campi: io intanto eliminerei la proposizione ORDER BY in quanto
pleonastica.
Dopo di che cosa significa "non me lo ordina correttamente" ?
-- 
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------

 ha scritto nel messaggio 
news:Yxpxf.40265$eD5.6...@twister2.libero.it...

praticamente mi mette in ordine asc Provincia, Zona, Sottozona, ma non 
Ragione_Sociale come posso fare? 

 Ragione_Sociale come posso fare?
Molto strano, anzi oserei dire incredibile.
Ma questo "mancato ordinamento" lo rilevi aprendo direttamente la query
oppure lo visualizzi in una maschera o report che ha quella query come
origine record?
Sew sei nel secondo caso prova a vedere cosa succede aprendo direttamente la
qquery e verifica che nella maschera o report non ci siano criteri di
ordinamento o raggruppamento diversi da quelli stabiliti nella query, nel
qual caso modificali in sintonia con quello che vuoi visualizzare.


 ha scritto nel messaggio 
news:jjMxf.126161$65.35...@twister1.libero.it...

Li vedo sia dalla query che dal report, praticamente ordina  i primi 3 ed 
esclude la quarta colonna...
che dipenda dal database?

 che dipenda dal database?
Onestamente non credo di poterti essere utile non riuscendo ad ipotizzare
una ipotesi plausibile.


 che dipenda dal database?
Perché non copi/incolli in un messaggio una decina di record delle 4 colonne incriminate così gli diamo un'occhiata?
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: BACKUP - SUGGERIMENTO/OPINIONE

Ciao a tutti, ricorro ancora al vostro aiuto per avere un opinione su
questa procedura di backup.Premetto che sono relativamente nuovo a
access e vba...
Dunque: ho l'esigenza di creare un backup del Be del dbase che
gestisce fatture e bolle , quella di archiviare le fatture e le bolle
emesse in un anno , "azzerare" le tabelle in modo che l'anno
successive siano pronte per ricevere la bolla n 1 , fattura 1 etc.
mi sono regolato cosi' per il backup: tramite il metodo
transferdatabase mi trasferisco le tabelle con i dati aggiornati sul
file backup.mdb precedentemente creato che risiede su hd. le tabelle
vengono quindi sostituite ogni volta si fa il backup.(sarebbe meglio
tenere piu' copie del dbase di backup,  ma onestamente non ne sono
stato capace)
per maggior sicurezza comprimo tramite pkzip il file backup.mdb su
floppy in modo da avere su floppy una copia "sicurezza" del backup.
qui il problema del file "unico" non esiste avendo 5 dischetti uno per
giorno della settimana che vengono riscritti a rotazione.
per la predisposizione delle tabelle per il nuovo anno mi sono creato
una query di eliminazioe che cancella tutti i record presenti nelle
tabelle, passando attraverso due msgbox. Ovviamente questo dovra'
essere fatto dopo aver fatto il backup.Una volta quindi compattato e
ripristinato il dbase la fatture/bolla potra' ripartire dal numero
1...
c'e' qualcosa che non ho tenuto in considerazione? e' la prima volta
che scrivo una procedura per backup....ho molta paura della query di
eliminazione, nel senso che basta un clic di troppo e addio ai
dati...e' vero che c'e' il file .zip etc pero'...
suggerimenti? come di consueto ben accetti!
scusate la logorrea e buona giornata a tutti!
ciao, Davide
--
Il filosofo scrive cose che non capisci, poi ti fa credere che è colpa
tua.
(Boris Makaresko)
 

On Fri, 20 Dec 2002 00:53:42 GMT, Davide <lak...@NOSPAMtiscali.it>
wrote:

e se servono i dati vecchi?
Saluti.
Emanuele.

Emanuele.
...un altro dischetto di sicurezza tenuto pero' in cassaforte con
combinazione a tempo non apribile dal personale?
grazie 

Emanuele.
a parte gli scherzi, dovresti avere una settimana lavorativa di backup
salvata su dischetto fomato .zip...pensi possa non essere sufficiente?
ciao,
Davide

On Fri, 20 Dec 2002 10:27:23 GMT, Davide <lak...@NOSPAMtiscali.it>
wrote:

il mio unico parere è che se non ci sono problemi di velocità dovute
alla gran mole di dati, non vedo la necessitò di archiviare i dati
vecchi.
Saluti.
Emanuele.
Newsgroup: it.comp.appl.access
Titolo: maximize non rispettato

Salute a tutti; ho una maschera che nell'evento open ha l'istruzione a tutto
schermo (docmd.maximize). Se passo ad altra maschera e poi torno alla
precedente, essa mi risulta spostata e piu' piccola, insomma non piu' a
tutto schermo. Come mai?
grazie
F
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 grazie
perche' il maximize funziona per "tutto" l'ambiente access. Evidentemente sul
secondo formato fai un restore riportando l'ambiente a stato non massimizzato
--
a.cara 
Togli qualcosa dall'email


No il problema č proprio lě.....io non faccio nessun restore perciň non
capisco, anzi in ogni evento di apertura maschera c'e' sempre un maximize
ciao


 capisco, anzi in ogni evento di apertura maschera c'e' sempre un maximize
fare il maximize sulla open non e' sufficiente. Se il form rimane aperto
l'evento di load non riscatta.
Usi un form popup a risposta obbligata (modale)?



Ho risolto mettendo il maximize nell'evento di caricamento della form e
adesso č tutto ok.
Grazie lo stesso e alla prossima

Newsgroup: it.comp.appl.access
Titolo: Evento Annulla

Molto probabilmente è una cosa scema, ma perchè quando provo con un
docmd.cancelevent mi ritorna il messaggio di errore runtime 2501 "L'azione
openreport è stata annullata"?
Oppure imposto cancel a true su ReportVuoto all'interno di un report e il
risultato è sempre lo stesso.
Come dovrei fare allora a non far apparire il report se non ci sono dati da
visualizzare?
Grazie 1k
Stefano

Thor <stefan...@XXXXlibero.it> ha scritto:

Se solo ha scritto Cancel = True nel ReportVuoto e il report e aperto
dal finestra db normalmente non viene l'errore.
Invece se il report é lanciato da una maschera puoi scrivere nella maschera:
On Error GoTo ErrVuoto
DoCmd.OpenReport "NomeReport"
ErrVuoto:
If Err = 2501 Then Resume Next  'o Exit Sub
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:qhfK5.74128$mL4.4...@news.chello.at...

Newsgroup: it.comp.appl.access
Titolo: Quesito su funzione annulla (Undo)

In una maschera di Access dopo aver salvato un record con comando refresh o 
bottone salva avrei la necessità che premendo il bottone Annulla non venga 
ripristinato il valore precedente cosa che invece accade.
Grazie tante
--
Ken 

 ha scritto nel messaggio
news:rGvLd.9443$lB4.2...@twister1.libero.it...

Io scriverei una funzioncina VB che, a seconda del valore di una variabile
booleana globale esegue RunCommand acCmdUndo oppure non fa nulla, quindi
sostituirei tutte le voci di menù utilizzabili nell'applicativo con una mia
macro che richiama tale funzione, e nella macro Autokeys provvederei a
dirottare anche Ctrl-Z e Esc.
A quel punto basterebbe impostare la variabile globale per attivare o meno
l'undo secondo necessità. Prima di riattivarlo dovresti però accertarti che
l'utente abbia modificato qualcosa nel record, altrimenti il comando
annullerebbe lo stesso l'operazione precedente, dato che ne ha comunque
memoria e non mi risulta che esista un metodo certo per svuotare il buffer
di annullamento.
IG

 ha scritto nel messaggio 
news:yXNLd.22500$2h5....@tornado.fastwebnet.it...

Grazie per l'aiuto
Ho capito tutto tranne come si fa a cambiare l'impostazione CTRL-Z e Esc con 
Autokeys.
puoi darmi altre indicazioni al riguardo oppure dove posso trovare info 
utili?
Grazie di nuovo.
--
Ken 

Ho trovato le istruzioni sull'help!
Dovrei aver risolto
Grazie
--
Ken

Newsgroup: it.comp.appl.access
Titolo: query non funzionante

salve,
ho la seguente query che con SLQ server funziona e con ACCESS no. Credo ci 
voglia qualche parentesi:
select tb_ordine_prodotto.*, tb_ordine.* from tb_ordine_prodotto
left join tb_ordine on tb_ordine.idordine=tb_ordine_prodotto.idordine
left join tb_anagrafica on tb_anagrafica.idutente=tb_ordine.idutente 


select tb_ordine_prodotto.*, tb_ordine.* from (tb_ordine_prodotto
left join tb_ordine on tb_ordine.idordine=tb_ordine_prodotto.idordine)
left join tb_anagrafica on tb_anagrafica.idutente=tb_ordine.idutente
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Aiuto su casella di testo di un report

Vorrei poter in una casella di testo di un report poter concatenare due
campi stringa prevenienti da una query la quale è l'origine dei dati del
report.
Io ho provato a concatenare i due campi con il segno "+" ma sul report
compare "Errore"!
Come posso fare?
Grazie infinite a chi mi risponderà.

 ha scritto nel messaggio
news:9auibq$6q2pa$1...@ID-80819.news.dfncis.de...

se sono stringhe puoi concatenare con   "&"
ciao
Newsgroup: it.comp.appl.access
Titolo: utente e maschera

In un database utilizzato in rete, ogni utente accede al database con
un proprio account "PIPPO", la mia necessitŕ č quella di poter fare
aprire una maschera PAZIENTI solo ad alcuni utenti. esempio:
La maschera PAZIENTI deve poterla aprire solo l'utente  PIPPO, che
tipo di routine posso utilizzare in fase di apertura della maschera ?
Grazie dell'aiuto che il Ng riesce a darmi.
---


Ti fai una routine con select case ed in base all'utente imposti la propietą
visible della frmPazienti.
SunRex

 SunRex
Dimmi qualcosa in più sui select case, non saprei proprio dove inserire il codice...

Newsgroup: it.comp.appl.access
Titolo: inserimento dati in automatico......

....mi spiego meglio: quando inserisco il comune voglio che access
inserisca in automatico il CAP e la prov, prendendo i dati da una tabella.
come posso fare ?
ciao e grazie per l'aiuto
-- 
Non vedo alcun vantaggio nell'utilizzo dell interfaccia grafica
Bill Gates 1987
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ciao e grazie per l'aiuto
Gurda sull'help dlookup
e sul manifesto del Ng le regole della necessità di un subject signicativo
MAssimiliano

 e sul manifesto del Ng le regole della necessità di un subject signicativo
chiedo scusa
ciao


 > ciao e grazie per l'aiuto
Secondo me l'ideale è usare una tabella comuni d'italia con tutti i dati
fissi (comune, provincia, cap, sigla e regione). Ne puoi trovare in giro.
Poi nella maschera anagrafica usi una combo che registra l'ID del comune e
ti mostra il nome. Non ha senso infatti registrare queste informazioni
nella tabella clienti tranne il cap, visto che all'interno delle città
questo cambia e nella tua tabella comuni avrai solo quello generico.
Se vuoi che nella maschera compaiano anche i dati della provincia e
regione allora usi delle caselle di testo con origine dati :
=CmbComuni.column(X) dove X è il numero colonna dell'origine dati della
combo con i comuni e CmbComuni il nome della combo (che puoi ovviamente
scegliere).
L'unica parte di codice da scrivere riguarda il cap (se hai deciso di
registrarlo), se ti interessa chiedimi altri dettagli.
Con questa soluzione non sprechi spazio e i dati vengono presentati al
volo quando cambia il comune nella combo.
Ciao
-- 


 volo quando cambia il comune nella combo.
è + o - quello che avevo in mente xro conosco davvero poco access e devo
fare questa modifica in tempi brevissimi, non conosci un tutorial?
ciao e grazie per l'aiuto
-- 
Non vedo alcun vantaggio nell'utilizzo dell interfaccia grafica
Bill Gates 1987
questo articolo e` stato inviato via web dal servizio gratuito 



Vai sul Sito Comune (link qui sotto), troverai uno spunto per risolvere il
tuo problema nella Sezione Forms nella FAQ di Fabrizio Quercia intitolata
"Come posso inserire automaticamente il paese e la provincia dopo aver
inserito o selezionato solo il CAP?".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Collegare Tabelle via Codice

Salve a tutti!
C'e' un modo veloce per cambiare la posizione di un BE via codice?
Mi spiego meglio...
Ho un DB che si collega al file dati in un adeterminata cartella, se volessi
cambiare questa cartella di volta in volta (perchè su pc diversi)
automaticamente come devo fare?!?!
Grazie per l'aiuto
Gimmy

 ha scritto nel messaggio 
news:h%_7f.10665$65.3...@twister1.libero.it...

    Dim dbs As Database
    Dim tdf As TableDef
    Dim NomeTab As String
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
            If tdf.Connect <> "" Then
            tdf.Connect = ";DATABASE=C:\Percorso_Tuo_DB\Tuo_DB.mdb"
            'Il percorso del DB lo puoi pure recuperare da un campo di una 
tabella
            'ovviamente con : tdf.Connect = ";DATABASE="&[Tuo_Campo]
            tdf.RefreshLink
            End If
    Next tdf
    Set dbs = Nothing
    MsgBox "Tabelle collegate"
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97 e 2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

 ha scritto nel messaggio 
news:h%_7f.10665$65.3...@twister1.libero.it...



Newsgroup: it.comp.appl.access
Titolo: Sto impazzendo con una query ........ semplicissima!!

Ciao,
ho una tabella con vari campi tra cui:
Dare, avere, Data incasso
Dovrei fare una query che mi dia su 12 campi (Mesi), piu 4 (uno per
ogni trimestre) gli utili quando la data "is not null"!
Sono riuscito a fare il tutto ma in maniera mooolto sporca, con  1
tabella e una query  di "appoggio" e tramite query di aggiornamento!!!
Tramite dei "IIf(DSum("[GENNAIO]";"[UTILI
MENSILI]")<>DSum("[GENNAIO]";"[FATTURATO
MENSILE]");DSum("[GENNAIO]";"[UTILI MENSILI]");0)"
Dove utile mensili è una query di appoggio e fatturato mensile è una
tabella dove scrivo i risultati
Mi potete aiutare a fare tutto tramite un unica e semplice query?
ciao e grazie a tutti
Alex

 tabella dove scrivo i risultati
Se e' una cosa che devi stampare prova a fare una autocomposizione report
che ti raggruppa come ti pare (mese, trimestre, semestre ecc)
Sib
Newsgroup: it.comp.appl.access
Titolo: formato 2000 o 2002 ?

Lavoro con AccessXP (2002) ma continuo a mantenere il db nel formato del 
2000.
Ci sono vantaggi o svantaggi a convertirlo in formato 2002?
grazie
-- 
bye marco
www.marcosanti.it

 grazie
Direi solo vantaggi.
Oggetto Printer, oggetto FileDialog, possibilità di convertirlo
in MDE....!!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 in MDE....!!
Le prestazioni migliorano, peggiorano o rimangono simili?
grazie per la risposta
-- 
bye marco
www.marcosanti.it

 grazie per la risposta
XP è più stabile, le prestazioni sono le medesime.


 XP è più stabile, le prestazioni sono le medesime.
grazie :-) 

 possibilità di convertirlo in MDE....!!
Questo sì.
Ma un MDE nel formato di AX non è più leggibile con A00.
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 

 Ma un MDE nel formato di AX non è più leggibile con A00.
A parte questa cosa che non mi interessa ci sono vantaggi a convertirlo in 
formato A2002?

 formato di A00 se viene eseguito con AX.
Che è il mio caso attuale 


Con l'mde ha un file più asciutto e con prestazioni maggiori
evitando il passaggio al design time
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 evitando il passaggio al design time
Il mio programma ha il FE in AccessXP e il BE in SQL Server, anche in questo 
caso ho vantaggi a passare all'mde?
grazie

Newsgroup: it.comp.appl.access
Titolo: impossibile aprire tabelle con access 2000 su xp sp2

Dopo anni di onorato servizio il mio pc si rifiuta di aprire qualsiasi 
tabella di access.
Il file mdb si apre, sull'apertura di qualsiasi tebella mi dice 
"sconosciuto".
Se cerco di creare un tabella sembra funzionare, ma poi si rifiuta di 
salvarla, senza nemmeno dare messaggio di errore, semplicemente lascia 
aperta la finestra di creazione della tabella senza fare altro.
Ho già disinstallato access e anche l'intero office, ma non è cambiato 
nulla.
Gli altri pc si comportano normalmente, sugli stessi mdb.
Qualcuno sa come aiutarmi???
Grazie!!!
PIPPO 

"PIPPO" <pr...@prova.uzb> ha scritto nel messaggio

Hai altre versioni di access installate?
Hai installato qualche viewer o qualche applicazione che accede ai dati 
ultimamente?
Davide (Sib)
-- 
http://www.gestionedati.com
"...perchè non esistono saggi per nascita."
(Ptahhotep, 2640 ac) 


Nessuna altra versione installata.
Le uniche installazioni recenti riguardano i software dell'agenzia delle 
entrate per la compilazione di unico e del 730.
Forse, relativamente a queste installazioni, una qualche versione di JVM.
Grazie per l'interessamento.
PIPPO 

 PIPPO
Prova a scaricare gli aggiornamenti dal sito MS, talvolta sistemano le cose.
Saluti
Davide(Sib)


 ha scritto nel messaggio 
news:48283514$0$40214$4faf...@reader5.news.tin.it...

Non ha funzionato neppure con gli aggiornamenti.
Ho sovrinstallato XP.
Adesso access va, IE no......
Meglio che niente.
Grazie a tutti
PIPPO
Newsgroup: it.comp.appl.access
Titolo: [Sondaggio] In che ambito usate Access?

Ciao a tutti,
uso Access da quasi un anno nell'ambito della pubblica amministrazione
principalmente come RAD per produrre piccoli applicativi per
automatizzare alcuni task. Da quanto ho notato Access č forse il piů
sconosciuto degli applicativi Office... mi sembra che lo si conosca
solo per nome e si ignori il potenziale reale di quello che io trovo
un fantastico programma.
Ora volevo chiedervi voi cosa ci fate con Access, cioč, presumendo che
ne facciate l'uso (piů o meno) che ne faccio io, in che ambito lo
usate? Mi pare di capire che qui siano molti liberi professionisti; le
aziende sembra che chiedano poco persone con conoscenza di Access ma a
quanto pare, come diceva qualcuno su comp.databases.ms-access voi
siete la persona che chiamano quando gli serve un applicativo per
ieri!
Spero di essermi spiegato bene.
Lorenzo

 ieri!
In verità viene usato parecchio anche per lo sviluppo di applicazioni
Client-Server (con SQL-Server) da parte di grosse Software House.
Lo spettro d'utilizzo è similare a quello dell'altro RAD per database di MS:
VFox Pro.
Ciao.

 wrote in message
news:PdjN9.40856$TC5.1...@twister1.libero.it...

le aziende non richiedono persone esperte di access.
cercano qualcuno che gli faccia un programma o un applicativo specifico.
quello che poi tu usi per prepararglielo, a loro non interessa e
probabilmente non lo sapranno mai.
come ambito cosa intenti?
il campo delle aziende per cui si sviluppa?
io seguo aziende sia tessili che di carpenteria pesante e anche una di
calibrazione strumenti...
oppure intendi se si sviluppano preferibilmente piccoli applicativi o
soluzioni complesse?
access si adatta abba bene ad entrambi i tipi di applicazioni, ovviamente in
un caso va bene sia come fe che come be, nell'altro č meglio 'relegarlo' al
ruolo di fe.
imho, ovviamente :-)
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.431 / Virus Database: 242 - Release Date: 17/12/2002

Lorenzo Bolognini wrote:
[CUT]
Gestione Fatture, Magazzino, Codici a barre, Ordini, Preventivi.
Per piccole aziende con una gestione amministrativa non molto complessa è lo
strumento ideale poichè consente costi bassi di sviluppo e tempi rapidi.
Antonio.

 ha scritto nel messaggio
news:PdjN9.40856$TC5.1...@twister1.libero.it...

Io solo per fare DB casalinghi per mia moglie.......! ;-)
Non scherzo, le ricette Culinarie, dove le metto.....!!!!!
@Alex.

Grazie a tutti quelli che han risposto!!
Lorenzo
Newsgroup: it.comp.appl.access
Titolo: Accodamento con condizioni

Salve a tutti,
ho bisogno di eseguire una query di accodamento che presenta la
particolarità di "smistare" in due diverse tabelle il record a seconda
del contenuto di un campo. Ovvero si tratta di un rapporto 1 a 2 con
criterio. Le condizioni sono diverse, tra cui il criterio ID per
accodare il record attivo.
A suo tempo il gentilissimo Mazza mi consiglio di usare RunSQL ma non
ci sono ancora riuscito, perchè non conosco la sintassi.
Si potrebbe anche fare un pulsante condizionale che a seconda di If mi
fa partire una query o l'altra ?
l'Andre


dim strname as string
select case me.tuocontrollo
    case 1
    strname = "La tua 1 query"
    case 2
    strname = "La tua 2 query"
end select
currentdb.execute strname
-- 
-- 
Massimiliano Amendola
www.accessgroup.it
Il sito italiano di svilupatori Access
www.donkarl.com/it/cisa

Newsgroup: it.comp.appl.access
Titolo: [Somme nei report]Errore decimali

Ho un report con all'interno 12 textbox, 1 per ogni mese chiamate
rispettivamente:
SollGen
SollFeb
SollMar
e cosě via.
Tali TextBox non sono associate a nessuna tabella o query.
Nell'evento "Activate" del report ho messo (x ora provo solo inserendo il
mese di maggio):
'Maggio
SollMagg = DSum("[TotSollecito]", "Registrazioni",
"Format([DataRegistrazione],'mm/yyyy')='05/2003'")
'Fa i totali
TotaleSollecitato = Val(SollMag)
In pratica il problema che riscontro č che la textbox del Totale mi
visualizza il valore privo di decimali o meglio mi mette sempre ,00 anche
se i decimali dovevano essere ,13 per esempio.
Ho provato sia i comandi format che formatnumber, ho impostato il formato
e le cifre decimali a tutte le textbox ma ho sempre il solito errore.
E per di piů se alla somma generale dico di aggiungere anche dei campi
privi di importo mi dice: "Errore, impossibile utilizzare valore null"
Come posso fare premettendo che il formato di tutte le textbox dovrebbe
essere del tipo:
&#8364; 1.936,27
Grazie.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:baip96$hck$1...@news.newsland.it...

Se il campo TotSollecito della tabella Registrazioni č di tipo Valuta,
invece di
TotaleSollecitato = Val(SollMag)
prova con
TotaleSollecitato = CCur(SollMag)
Quanto alla somma generale non ho ben capito dove e come la ottieni.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Avviare una ricerca

Salve,
ho un maschera dal nome articolo la quale contiene una casella combinata ed 
un pulsante (oltre che ai campi che mi occorrono). Sulla casella combinata 
posso cliccare per ricercare il codice dell'articolo che mi occorre. Non 
sempre conosco il codice dell'articolo a memoria, per questo mi sono creato 
un pulsante che mi apre una seconda maschera, la quale mi permette di 
ricercare gli articoli anche per descrizione, prezzo, ecc.. Su questa 
seconda maschera mi sono creato un pulsante associandolo ad un codice VBA di 
questo tipo:
Private Sub Comando6_Click()
[Form_ARTICOLO]![ArticoloCombo].Value = Me.IdArticolo
DoCmd.Close acForm, "Filtro articoli in magazzino DEFINITIVO", acSaveYes
DoCmd.Close acForm, "Filtro articoli", acSaveYes
End Sub
Il pulsante funziona correttamente fino a riportare il valore all'interno 
della combo della prima maschera, solo che questa non genera automaticamente 
la ricerca dell'articolo sulla prima maschera. Ho provato ad inserire 
sull'evento Dopo aggiornamento il seguente codice e l'ho provato anche 
sull'evento CLICK, ma non funziona
Me.Filter = "IdArticolo=" & Me!ArticoloCombo
Me.FilterOn = True
C'č qualche anima pia che potrebbe insegnarmi la strada da percorrere?
Saluti e grazie in anticipo
SimoneB 

 Me.FilterOn = True
Cioe' tu fai una ricerca alla biblioteca nazionale e pretendi che ti 
venga dato un libro dalla biblioteca alessandrina.
Il filter che cerchi sta in forms!nomedellaprimamaschera.filter
-- 
ac
y-1=x

 SimoneB
il clic sul pulsante di comando deve ricercare il record in un
recordset uguale a quello della form principale e se lo trova deve
posizionare il cursore nel record desiderato
es.
Private Sub Comando6_Click()
Dim frm As Form
Dim rs As DAO.Recordset
Set frm = Forms("Form_ARTICOLO")
Set rs = frm.RecordsetClone
rs.FindFirst "IdArticolo= " & Me.IdArticolo
If Not rs.NoMatch Then
frm.Bookmark = rs.Bookmark
End If
Set frm = Nothing
DoCmd.Close acForm, "Filtro articoli"
end sub
ciao
Andrea Papi
Newsgroup: it.comp.appl.access
Titolo: Access e Barre Strumenti o Barre Menu

Ciao a tutti,
Sono nuovo di questo NG, non mandatemi al diavolo se è già stata postata 
questa domanda...
Fino ad ora creavo le barre Menu tramite le macro, ora vorrei passare a 
visualB ed eliminare definitivamente le macro, come posso fare, un qualche 
esempio
Grazie per la pazienza
Fabio


Usa le macro che hanno come azione "Esegui Codice"
Così punti ad una funzione di un modulo e fai quello che vuoi.
In A2k c'è un bug che se chiami una funzione direttamente dalla barra esegue
l'azione 3 volte.
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 wrote in message
news:429587d0$0$1153$
5402...@news.sunrise.ch

Per la gestione da codice delle Barre di Comando occorre
ricorrere alla programmazione dell'Oggetto Commandbar.
Trovi nel mio sito un demo, di come costruire Runtime
Una CommandBar di tipo POPUP, l'oggetto CommandBar
è abbastanza complesso, ma l'esempio che ti ho indicato
è discretamente chiaro, se non hai molta dimestichezza
con il codice però non è semplice come punto di partenza.
Vedi la Sezione FORMS alla FAQ:
1.31 Generare Menù POPUP Temporanei RUNTIME(UPD) 
http://www.mantuanet.it/alessandro.baraldi/
Saluti
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:5178658aa1b302b84e...@mygate.mailgate.org...

Grazie
Fabio


 l'azione 3 volte.
Grazie
Fabio


Newsgroup: it.comp.appl.access
Titolo: ordinare date ??? dove sbaglio?

salve a tutti quanti donzelle e lestofanti...
in una tabella che rappresenta delle regitrazioni temporali ho un campo 
data
ho prova to a fare un ordinamento crescete ma le date non sono ordinate 
cronologicamente bensì
1/1/95
1/1/96
2/1(95
2/1/96
come mai?

 come mai?
Come è dichiarato il campo data in struttura? Probabilmente se fosse di tipo
Data non succederebbe.
L'ordinamento è un ordinamento testuale, alfabetico come quello della guida
telefonica per intenderci.
Ciao Luciana :-)

 
mannaggia se sono sbadato..... Grazie 2K
Newsgroup: it.comp.appl.access
Titolo: Memorizzare Casella di Testo su tabella

Vi spiego il problema,
in una maschera ho una casella di testo a cui faccio fare un calcolo, questo
risultato però vorrei che venisse memorizzato nella tabella dove vado ad
inserire anche tutti gli altri dati che metto in maschera.
Chi mi da una dritta?

 wrote in message
WFFBa.26023$g92.5...@news2.tin.it...

Hai due metodi
1° ti crei una query di aggiornamento sulla tabella parametrizzata alla
chiave della tabella da cui prendi dati per la maschera
2° inserisci un controllo nascosto per il campo che vuoi riempire e
all'evento dopoaggiornamento della maschera scrivi:
me.controllonascosto=me.controllodovefaiil calcolo
Ciao Max

 ha scritto nel messaggio
news:14GBa.45746$Ny5.1...@twister2.libero.it...

Sono un pò rimbamba, ma non sono riuscito a trovare informazioni su questa
cosa, non riesci a dirmelo un pò più terra terra in modo che anche un
neofita capisca.

neofita capisca.
Metti unpulsante sulla maschera che ha la casella ke devi memorizzare:
Metti questo codice di esempio ( da adattare ai controlli della tua
maschera)
---------------------------------
Private Sub Comando1_Click()
If (Me.nomecasella = "") Then
   MsgBox "Inserire un valore nella casella."
   exit sub
Else
  Dim Campo
  Dim SQL as String
  Campo = Me.nomecaselladitesto
  SQL="INSERT INTO NomeTabella (Nomecampo) VALUES ('" & Campo & "')"
  DoCmd.RunSQL SQL
  MsgBox "Operazione riuscita."
End if
End Sub
--------------------------------
Spero ti sia di aiuto. Ciao :)
Newsgroup: it.comp.appl.access
Titolo: [Per Giorgio PRX] ancora su seriale

Ciao Giorgio
grazie al tuo esempio adesso riesco a far funzionare il collegamento tra PC
e registratore di cassa.
parlando con un tecnico mi ha confermato che il registratore di cassa
risponde agli invii con due chr(13).
Ti chiedo un consiglio...qual'è il modo migliore per aspettare la risposta
del registratore prima di inviare una nuova stringa?
Grazie 1000 dell'aiuto
Ciao, AEOM


Ciao AEOM
Dopo ogni comando che invii "Tx(stringa)" leggi la risposta "If
Leggi_Risposta() =False Then ... errore " ad esempio con una
funzione tipo questa che se non riceve il doppio CHR(13) dopo 5 secondi ti
avvisa con il messaggio d' errore di timeout e rende false.
(ps l'ho buttata giů senza provarla ma dovrebbe funzionare)
Ciao Giorgio.
========================
Function Leggi_Risposta() As Boolean
  Dim Risposta As String
  Dim T1 As Long
  T1 = Int(Timer)
  Do
     'DoEvents
     Risposta = Risposta  & Rx(hCom)  'Vedi function allegata
     If Risposta = CHR(13)+CHR(13)  Then 'Se ricevi il doppio chr(13)
          Leggi_Risposta = True
          Exit Function
     End If
     If T1 + 5 < Int(Timer) Then 'dopo 5 secondi rende false
        MsgBox "Errore di Time out"
        Leggi_Risposta = False
        Exit Function
     End If
  Loop
End Function
===========================
Questa invece č la function che legge da Rs232 simile a quella presente
nell'evento timer del mio esempio.
===========================
Function Rx(ByVal hCom As Long) As String
   ' effettua una lettura periodica dalla
   ' porta seriale, usando un buffer di 15 byte;
   Const BufferLen = 20
   Dim ReceivedBytes As Long
   Dim Buffer(1 To BufferLen) As Byte
   Dim i As Long
   Dim fSuccess As Integer
   Dim ferror As Integer
   Dim txtReceive As String
   ' legge dalla porta seriale; in particolare, imposta a 0 (NULL)
   ' l'ultimo parametro della ReadFile, poiche' la comunicazione
   ' sara' sincrona (non overlapped)
   fSuccess = ReadFile(hCom, Buffer(1), BufferLen, ReceivedBytes, 0)
   If (fSuccess <> 0) Then
      If ReceivedBytes <> 0 Then
         For i = 1 To ReceivedBytes
             txtReceive = txtReceive & Chr(Buffer(i))
         Next i
      End If
   Else
      ferror = Err.LastDllError
      ' gestione errore
   End If
   Rx = txtReceive
End Function


cut
Perfetto!!!!
MITTTICO!!!
non so come ringraziarti!!! a buon rendere
Ciao
AEOM