mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: UNO SPAZIO DI TROPPO

Da un campo numerico devo trasrormarlo in un campo a 3 cifre sempre
(es. Progressivo=3 ---> Progressivo=003), in quanto è una parte di 
codice di un prodotto.
Di seguito riporto la Sub in VB che però mi da un risultato strano:
(Es. Seguente=3 ---> RicercaProgressivo=00"Spazio"3.
Perchè inserisce lo spazio??
C'è un sistema migliore per fare quello di cui necessito???
Grazie mille per la pazienza.Alex
 
Private Sub TrovaProgressivo_Click()
Dim Seguente As Integer
Seguente = 1 + DMax("[Progressivo]", "QryRicercaAggiungi")
If Seguente < 10 Then
    RicercaProgressivo = "00" + Str(Seguente)
Else
    RicercaProgressivo = "0" & Str(Seguente)
 
End If
End Sub
 
--
Posted from 146.133.1.2 by way of 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:FX6843$IVgr0fEvJQYP_yOcERpH6l...@libero.it...


End If
End Sub

Tratto dall'help di access della funzione str():
"Quando i numeri vengono convertiti in stringhe, viene sempre riservato uno
spazio iniziale al segno di numero. Se numero è positivo, la stringa
restituita dalla funzione contiene uno spazio iniziale, mentre il segno più
è sottinteso."
Quindi se vuoi togliere lo spazio iniziale utilizza la funzione trim() (vedi
help):
    RicercaProgressivo = "00" + Trim(Str(Seguente))
Ciao.
P.S. invece del + come segno di unione per stringhe utilizza &:
    RicercaProgressivo = "00" & Trim(Str(Seguente))
Ari-Ciao.

 End Sub
cambia quello che hai scritto in questo modo:
RicercaProgressivo = format$(1 + DMax("[Progressivo]", "QryRicercaAggiungi"),
"000")
cmq per eliminare lo spazio quando converti a stringa un numero usa CStr invece
di Str
oppure Trim(Str(num))
-- 
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
--------------------------------------

 wrote in message
FX6843$IVgr0fEvJQYP_yOcERpH6l...@libero.it...
Da un campo numerico devo trasrormarlo in un campo a 3 cifre sempre
(es. Progressivo=3 ---> Progressivo=003), in quanto è una parte di
codice di un prodotto.
Di seguito riporto la Sub in VB che però mi da un risultato strano:
(Es. Seguente=3 ---> RicercaProgressivo=00"Spazio"3.
Perchè inserisce lo spazio??
C'è un sistema migliore per fare quello di cui necessito???
Grazie mille per la pazienza.Alex
Private Sub TrovaProgressivo_Click()
Dim Seguente As Integer
Seguente = 1 + DMax("[Progressivo]", "QryRicercaAggiungi")
If Seguente < 10 Then
    RicercaProgressivo = "00" + Str(Seguente)
Else
    RicercaProgressivo = "0" & Str(Seguente)
End If
End Sub


 [cut]
io uso questa x=right("00" & numero, 3)
anzi
function mettizero(n as long, scala as integer) as string
mettizero = right("00000000000000000000" & n, x)
end function
-- 
Alessandro Cara
Newsgroup: it.comp.appl.access
Titolo: Query di accodamento

Buongiorno a tutti.
Ho due tabelle A e B con la medesima struttura che contengono molti
record, alcuni dei quali uguali sonbo gli stessi , altri no.
(in realtà è la stessa tabella a distanza di tempo: una è attuale, A,
l'altra, B, è un backup di sei o sette mesi fa)
Vorrei aggiungere alla tabella B i nuovi record  della tabella A che
non sono presenti in B, senza aggiungere gli altri (i doppioni per
intenderci).
Come si fa?
E come devo fare per evitare il conflitto tra gli ID del record, che
potrebbero coincidere mentre invece non sono ammessi duplicati?
(potrei cancellare il campo ID dalla tabella da esportare? o che
altro?)
Grazie dell'aiuto
Filippo

 ha scritto nel messaggio
news:jimeqv8qgf4oe9d72...@4ax.com...

Ti fai una terza tbl e ci metti prima i dati di A e poi di B
Se in fase di progettazione dichiari uno o più campi con duplicati
non ammessi il gioco è fatto in quanto A sarà caricata tutta mentre
di B saranno caricati solo i record che soddisfano la condizione di
duplicati a no
SunRex

 ha scritto nel messaggio
news:jimeqv8qgf4oe9d72...@4ax.com...

Come fai a dire che un record è uguale ad un altro o che un record non c'è
nell'altra tabella?
Antonio


wrote:

La prima tabella viene da un backup di sei mesi fa.
La seconda tabella è la stessa sei mesi dopo per cui alcuni record
sono stati cancellati e ve ne sono di nuovi, però l'80 percento dei
record sono rimasti gli stessi, senza variazioni.
ora io vorrei aggiungere ad una delle due soltanto quei record nuovi,
cioè che non sono già presenti nell'altra tabella e non so come fare.
Grazie
Filippo

 ha scritto nel messaggio
news:qeteqv4sjoig5t12k...@4ax.com...

Non me so' capito...
Quale è il criterio per confrontare i record?
Antonio


wrote:

Scusa, ho capito
Un determinato campo, CognomeNome di tipo testo, è quello che, se
uguale, mi fa capire trattarsi dello stesso record
grazie
Filippo

 ha scritto nel messaggio
news:2pueqv0ginimit219...@4ax.com...

Allora, se la seconda tabella è la prima PIU nuovi record, e sulla prima non
ci sono stati aggiunti altri record, non ci possono essere duplicazioni di
ID contatore, perchè la seconda ha creato record con ID maggiori della
prima.
A questo punto in realtà potresti usare l'ID per discriminare i record, ma
proseguiamo col tuo cognomenome.
Fai una query di accodamento. Ci metti le due tabelle e ci fai un join sul
campo cognomenome. Doppiocliccando poi sul join lo fai diventare esterno con
la freccia dalla tabella più nuova alla più vecchia.
Poi prendi i campi della nuova e li accodi sulla vecchia. Infine prendi il
campo cognomenome della vecchia e ci metti sotto is null
Antonio
Newsgroup: it.comp.appl.access
Titolo: Verifica esistenza directory

Ciao,
Ho un db in locale che utilizza dei dati posti su un disco di rete. Ogni tanto la connessione a quel disco non funziona e io vorrei testare questa anomalia in fase di apertura di una maschera con una msgbox di avviso.
Ho trovato del codice su internet che sfruttando l'istruzione len (dir (path, vbdirectory) > 0 testa che una directory esista, ma se non esiste il codice va in errore.
Qualcuno mi sa dare qualche dritta?
Grazie

 ...
 
Cosa non esiste? Il disco o solo il directory?
 
Con una ) in più alla fine ti dovrebbe dare True o False.
Lo stesso con: dir(path, vbdirectory) > ""
 
Se non riesci, incolla il codice esatto e rivela il valore di path e 
numero+messaggio di errore.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
Access Lobby: 
http://www.AccessDevelopers.org
 

Ciao Karl,
per errore domani lo verifico in ufficio e poi te lo posto. Adesso non ho un PC per provare.
 
Il codice è 
 
Dim Path As String          
Path =Percorso di cui si vuole verificare l'esistenza
If (Len(Dir(Path, vbDirectory)) > 0)  Then ...... 
 
E'il disco che non esiste. Ogni tanto, quando la rete è lenta non si genera la connessione per l'unità O:\dati in avvio della macchina. Ho fatto un piccolo file .Bat per rigenerare la connessione che lancerei da access ma prima voglio verificare che il disco sia effettivamente disconnesso. La routine funziona solo se l'unità è connessa. Va in errore nel caso contrario.
 
Stefano
 
Grazie
Ste

Errore di run time 52
Nome o numero di file non valido

 Nome o numero di file non valido
 
Ciao gram..., Ciao Karl.
 
Quell'errore lo ottieni con un percorso di rete, tipo:
 
"\\PIPPO\Public\Documents"
 
quando non c'e' la connessione con il computer "PIPPO". Per i tuoi scopi (sapere se la connessione c'e' o meno) sara' sufficiente intercettarlo.
 
-- 
Ciao!
Maurizio

 Grazie
 
Basta che intercetti l' errore : 
 
funzione ()
 
On error goto Gestione_errore
 
 ... fai questo e quello 
     s = dir(percorso)
 ... fai questo e quello
 
exit function
gestione_errore:
   select case err.number
      case ...
      case 52 '(sconnesso)
          istruzioni di gestione
      case ...
   end select
end  function
 
 

Grazie a tutti.
Domani faccio qualche prova con i vostri consigli
Stefano
Newsgroup: it.comp.appl.access
Titolo: compilazione file fatture per spesometro

devo compilare un file delimitato per la importazione in un gestionale, che poi occupera della formattazione xml ed invio dati.
 
Il file della anagrafiche l ho risolto in pochi minuti, invece per le fatture ho difficoltà poichè nei dati in mio possesso in unica riga ho tutti i dati imponibile ed iva delle varie aliquote applicate nell unico documento
 
invece nel tracciato proposto devo "splittare" in piu righe le diverse casistiche iva del documento
 
un suggerimento su come procedere?


file di che tipo?
csv ? larghezza fissa?
 
posta due righe del file
uno per una fattura con un solo regime iva e una fattura con almeno due 
regimi iva.
se hanno larghezza fissa la cosa è facilmente gestibile
 
ciao
BFS

ho una tabella del tipo
 
codCliente    nrFatt  data..   causaleIva1 Imp1 iva1   casusale2Iva Imp2 iva2 etc(fino a 8)
 
deve diventare una tabella del tipo
 
coCliente  nrfatt   data...  causaleIva1 Imp1 iva1 
coCliente  nrfatt   data...  causaleIva2 Imp1 iva2
coCliente  nrfatt   data...  causaleIva... Imp1 iva1ì...
 
il resto poi è facile, omettere campi a zero, etc
 
 
 
 

per chiudere ho risolto cosi:
query di creazione tabella con cod clienet dati fattura imponibile iva 1
poi query di accodamento con cod cliente dati fattura imponibile iva 2 etc
 
poi ovviamente le formattazioni per rendere i dati compatibili con l invio dello spesometro
 
grazie comunque ovviamente :)
Newsgroup: it.comp.appl.access
Titolo: avviare file bat

ciao
se eseguo dal menu start...esegui  C:\Programmi\gs\gs8.54\lib\ps2pdf.bat 
c:\psps.prn il programma funziona e mi converte un file ps in pdf
se lo eseguo con da access con :
shell "C:\Programmi\gs\gs8.54\lib\ps2pdf.bat c:\psps.prn"
non funziona
cosa sbaglio?
saluti
Ale


Prova così:
shell "C:\Programmi\gs\gs8.54\lib\ps2pdf.bat" & chr(34) & "c:
\psps.prn" & chr(34)
@Alex

 
chiamata di routine o argomento non validi :-(
ciao

 
rettifico si apre un lampo e non fa quello che dovrebbe fare...cioč la 
conversione in pdf.
se copio lo stesso comando su esegui di windows va una meraviglia
ciao

 - Mostra testo tra virgolette -
altra prova altro regalo....
shell chr(34) & "C:\Programmi\gs\gs8.54\lib\ps2pdf.bat" & chr(34) & "
" & chr(34) & "c:\psps.prn" & chr(34)
Altrimenti prova questo codice preso da Giorgio Rancati:
Sub MyShell(ByVal Percorso As String, _
            ByVal windowstyle As Integer, _
            ByVal Attendi As Boolean)
Dim wshell As Object
Set wshell = CreateObject("WScript.shell")
wshell.Run Percorso, windowstyle, Attendi
Set wshell = Nothing
End Sub
----
e poi lo richiami così
----
xx=Myshell("c:\lista.bat 'c:\psps.prn'",vbHide,True)
@Alex

 ha scritto:

Ciao potresti provare con il comando Cmd
Shell("cmd /C C:\Programmi\gs\gs8.54\lib\ps2pdf.bat c:\psps.prn")
In pratica richiami il gestore dei comandi del sys operativo
e lo costringi ad interpretare il resto come comando e parametri.
Se vuoi cha la finestra dos rimanga sostituisci lo switch /C con /K
cosi puoi monitorare cosa viene eseguito.
--
lorenzo

 
niente da fare...con entrambe i metodi stesso risultato...si apre un 
secondo la maschera dos e si richiude senza fare nulla :-(
esiste un'api che simula il start esegui?
ale

Lorenzo(pyx) ha scritto:

niente da fare...ci rinuncio
ale

 ale
non si tratta di API deve funzionare anche quello che ti è stato
proposto, a mio avviso c'è qualche errore di sintassi che sfugge a
tutti....
@Alex

 
caspita faccio copia incolla sul menu esegui e tutto funziona!!!
com'č possibile?
puň centrare qualcosa che dentro il bat c'č un richiamo ad un altro bat ?
ciao e grazie
ale

 ale
Mai rinunciare !
Quando lo esegui, il file di origine esiste gia' ?
oppure e in fase di creazione ?
Prova a spezzare il problema, esegui prima un .bat
semplice che magari fa solo una copia file, fino a
trovarne la ragione.
Ci sono diverse soluzioni in questo thread e tipicamente
dovrebbero funzionare tutte.
--
lorenzo
Newsgroup: it.comp.appl.access
Titolo: registrare da microfono un wav in access è possibile?

avete un esempio di codice?
Grazie.

 Grazie.
Con la funzione Shell (vedi help) apri il registratore di suoni di Windows,
registra il file Wav, quindi chiudi il registratore di suoni.
Il codice potrebbe essere questo:
Dim pippo As Variant
pippo = Shell("C:\WINDOWS\SNDREC32.EXE", vbNormalFocus)
Naturalmente tra virgolette indica il percorso completo del registratore di
suoni installato sul tuo computer.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Problema report con oggetti OLE

Ho un problema sull'importazione in word di un report contenente un oggetto
OLE (nella fattispecie Immagini). Infatti non riesco a visualizzare
l'immagine una volta importato. Se qualcuno mi puņ aiutare mi puņ rispondere
sul newsgroup oppure al mio indirizzo mail.
Grazie

 l'immagine una volta importato. Se qualcuno mi può aiutare mi può

Newsgroup: it.comp.appl.access
Titolo: ADP & manuali

Salve a tutti.
Dopo anni di oblio mi č stato di nuovo chiesto di utilizzare Access come FE. 
Ho letto che le nuove versioni hanno gli ADP e la cosa mi incuriosisce. Sono 
andato in libreria per comprarmi un bel manualozzo, ma pare che l'editoria 
informatica sia un settore defunto da un pezzo: ho trovato solo libretti per 
principianti.
Esiste un manuale cartaceo serio per programmazione A2002/2003/2007? On line 
c'č qualche tutorial ben fatto sugli ADP?
Preferisco italiano, ma inglese o spagnolo vanno anche bene.
Saluti.
Luciano

"Luciano (DOC)" <> Salve a tutti.

Il fatto č che gli ADP parevano "l'ultima frontiera" otto anni fa ... oggi 
c'hanno ripensato e non č nemmeno sicuro che saranno supportati in futuro.
Meglio se utilizzi connessioni ODBC con SQL Server.
Saluti. 

 Meglio se utilizzi connessioni ODBC con SQL Server.
Capito l'antifona! La solita visione pecoronica del programmatore che ha MS!
Grazie per l'info.
Luciano

 Luciano
Ciao, un buon testo a mio modesto avviso in merito agli adp è scritto
da rick dobson.
http://www.programmingmsaccess.com/
http://www.programmingmsaccess.com/TheBook/default.htm#PSSD
Ne avevo trovato uno in biblioteca e poi l'ho comprato usato su
amazon, tipo 5 dollari più spese di spedizione.
ma il testo era ottimo.
Ovviamente concordo con quello che dice simone sul fatto che tutti
consigliano di usare odbc e non ado più gli adp.


chiedi a Giorgio se ne è convinto
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

chiedi a Giorgio se ne è convinto
io sono dello stesso parere di Sylvain Lafontaine
----
The alternatives would be to go with ODBC linked tables (in my opinion, a
living fossil from the past)
http://www.google.it/groups?threadm=OJTi7kCv...@TK2MSFTNGP05.phx.gbl
----
:-D
--
Giorgio Rancati
[Office Access MVP] 


Non č questione di opinioni ... Access 2007 supporta gli .ADP solo di
striscio (ben nascosti e ben bacati).
Ciao: Oscar

 striscio (ben nascosti e ben bacati).
Però effettivamente ODBC non è un passo avanti....che fare quindi?
Saluti.
Luciano

 da rick dobson.
Segnato, grazie.
Luciano 

 Saluti.
Perchč?
Sostenere che le connessioni ODBC, che funzionano benissimo, siano una
soluzione discutibile equivale a dire che Access sia una soluzione
discutibile.
Quindi ... non usare Access.
;-)
Ciao: Oscar

 ;-)
Ma come, torno all'ovile dopo anni...:-)
Saluti.
Luciano 

 Ma come, torno all'ovile dopo anni...:-)
Eh, eh, eh...
Ciao: Oscar

Newsgroup: it.comp.appl.access
Titolo: Aiutooooooooooooooo!!!!!!!!!!!!

Ciao a tutti posso chiedere il vostro aiuto?
Vorrei fare la media di alcuni valori nella stessa riga di una tabella, e
visualizzare il risultato in una nuova colonna o in una query, come posso
fare?
Grazie mille,
 Gian.

 wrote in message
m3f37.30409$rh.6...@news6.giganews.com...

Il tuo subject č... come dire... pregno...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Apertura Macro

Buon Giorno
A97
...e' possibile aprire una macro via codice con l'utilizzo di
un IF....
..s.e ho la macro 'gigi' e' voglio farla agire se
il controllo 'A' e' maggiore di 0 e non farla agire
se tutto rimane inviariata come dovrei scrivere in codice!!!
Grazie

 ha scritto nel messaggio
news:LLVi9.121786$ub2.2...@news1.tin.it...

If Me![A] > 0 Then
    DoCmd.RunMacro "gigi"
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:ZBXi9.23949$Av4.4...@twister2.libero.it...

Grazie
1000
Ciao, Luigi

 wrote in message
fnYi9.142528$pX1.5...@news2.tin.it...

e per stoppare la macro dopo un else es:
If Me![A] > 0 Then
DoCmd.RunMacro "gigi"
Else
  ????
End If

 ha scritto nel messaggio
news:RJej9.125014$ub2.2...@news1.tin.it...

Bisogna prevedere un condizionamento all'interno della macro; solo che io di
macro poco e niente, quindi...

Newsgroup: it.comp.appl.access
Titolo: Urgente - FindFirst e campi numerici

Ciao a tutti,
Come prima cosa BUON NATALE a tutti voi
Volevo sapere se è possibile:
Non mi funziona l'espressione
Tabella.FindFirst ("Id_Cont = '& Me!Id_Cont & ' and MESE ='" & Me!MESE &
"'and ANNO ='" & Me!ANNO & "'AND COD_PADRONCINO ='" & Me!COD_PADRONCINO & "'
AND COD_AUTOMEZZO ='" & Me!COD_AUTOMEZZO & "'AND COD_CANTIERE ='" &
Me!COD_CANTIERE & "'")
perchè mi da errore Tipo di dati non corrispondenti all'espressione criterio
questo nel campo Id_Cont = '& Me!Id_Cont & ' perchè non sono come gli altri
di tipo testo ma numerico.
come posso scrivere la stringa in modo da risolvere
ciao a tutti
GRAZIE INFINITE
ciao
LUCA
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 LUCA
Prova cosě
Tabella.FindFirst ("Id_Cont = " & Me!Id_Cont & " and MESE =""" & Me!MESE &
""" and ANNO =""" & Me!ANNO & """ AND COD_PADRONCINO =""" & Me!COD_PADRONCINO & """
AND COD_AUTOMEZZO =""" & Me!COD_AUTOMEZZO & """AND COD_CANTIERE =""" &
Me!COD_CANTIERE & """)
Fammi sapere
Michele 


Scusa ho provato ma non mi funziona
NON sono molto pratico di tutti quei apici
se hai in mente qualcosa ....
Grazie
L


 come posso scrivere la stringa in modo da risolvere
Tabella.FindFirst "Id_Cont = " & Me!Id_Cont & _
" And MESE = '" & Me!MESE & _
"' And ANNO = '" & Me!ANNO & _
"' And COD_PADRONCINO = '" & Me!COD_PADRONCINO & _
"' And COD_AUTOMEZZO = '" & Me!COD_AUTOMEZZO & _
"' And COD_CANTIERE = '" & Me!COD_CANTIERE & "'"
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 


ok grazie infinite
ora sembra che funzioni
ciao a tutti


Newsgroup: it.comp.appl.access
Titolo: Aiuto per creazione tabelle

allora, un pò lungo forse, dovrei farmi un database con queste funzionalità:
elenco dei clienti, e qui non ci sono problemi
elenco dei fornitori, idem come sopra
elenco della merce suddivisa per categorie, tipo processori-intel/amd, hard
disk-maxtor/quantum... e qui andiamo nel difficile
perchè vorrei una casella di controllo a discesa dalla quale selezionare di
volta in volta la merce in modo da poter poi creare la fattura completa di
tutti i pezzi.
la fattura stampabile con numero progressivo, intestazione, dati cliente da
prendere dalla tabella cliente e merce da prendere dalla
relativa tabella.
CHI MI AIUTAAAAA?

"Giovanni®" <giovann...@libero.itnospam> ha scritto nel messaggio
news:eBCu7.13082$0Y2.2...@news.infostrada.it...

Ma da quanto tempo usi access?


Poco, ma non mi pare una gran difficoltà, solo che non so come impostare la
fattura e i calcoli che dovrebbe fare, per le tabelle penso di arrivarci
anche da solo.
Newsgroup: it.comp.appl.access
Titolo: Nascondere la finestra di access.

Creando l'mde rimane la finestra di access sullo sfondo.
Ho provato ad usare il codice contenuto nel file
Show_Hide_Access_W.zip scaricato da 
www.sitocomune.com
ma funziona solo con access 97 ma non con access 2002.
Qualcuno ha la versione aggiornata o ci sono altre
soluzioni ?
Grazie.

Samuele ha scritto:

http://groups.google.com/groups?&selm=a5lqik%248fdsg%241%40ID-46617.news.dfnci
s.de
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

"Samuele" <x@x.x> ha scritto nel messaggio news:3D19C574.2030904@x.x...

Ti allego il codice da inserire in un MODULO.
La Routine è la versione completa, vedi tu cosa ti serve.....!
Option Compare Database
Option Explicit
Private Declare Function IsWindowVisible Lib "user32" (ByVal Hwnd As Long)
As Long
Dim dwReturn As Long
Public Const acHide = "Hide"
Public Const acShow = "Show"
Public Const acMinimized = "Minimize"
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal Hwnd As Long, _
     ByVal nCmdShow As Long) As Long
Public Function fAccessWindow(Optional Procedure As String, Optional
SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
    dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
    If IsWindowVisible(hWndAccessApp) = 1 Then
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
    Else
        dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
    End If
End If
If StatusCheck = True Then
    If IsWindowVisible(hWndAccessApp) = 0 Then
        fAccessWindow = False
    End If
    If IsWindowVisible(hWndAccessApp) = 1 Then
        fAccessWindow = True
    End If
End If
End Function
Alessandro.
Newsgroup: it.comp.appl.access
Titolo: access xp và in conflitto con access versioni più recenti

Buongiorno a tutti
 
Mi capita spesso che installo solo access XP per usare un database sviluppato in access xp, però su quel pc se  è installata una versione di office più recente a volte capita che il db versione xp non si apre più, è come se fosse danneggiato ma in realtà è danneggiata l'installazione di office xp perchè se vado in "installazione applicazioni" cerco "microsoft office xp" e poi clicco su "cambia" e "reinstalla" lui reinstalla tutto sistemando il problema
 
qualcuno a idea di che problema si tratti e come risolverlo?
 
grazie a tutti.


non puoi usare il runtime di xp nei pc?
 
ho parecchie installazioni con ancora il vecchio xp e va una meraviglia 
anche con office 365/2016 installato
 
ciao
BFS

 grazie a tutti.
 
 
Installazioni Runtime con Scripts SageKey.
 
https://www.sagekey.com/order.aspx
 
 
Non è proprio a buon mercato, ma funziona.
 
Saluti

Newsgroup: it.comp.appl.access
Titolo: legare etichetta a casella di testo

come si fa a legare un'etichetta a una casella di testo?
quando creo una casella di testo in automatico mi crea un'etichetta che però 
in certi casi ho cancellato e dopo ho creato solo un'etichetta e vorrei 
legarle è possibile?
grazie 

"fausto"  ha scritto nel messaggio 
news:4d9f2609$0$18247$4faf...@reader2.news.tin.it...
come si fa a legare un'etichetta a una casella di testo?
quando creo una casella di testo in automatico mi crea un'etichetta che per�
in certi casi ho cancellato e dopo ho creato solo un'etichetta e vorrei
legarle � possibile?
grazie
__Risposta:
Quando crei la nuova etichetta ti esce un tooltip con il punto esclamativo.
L� ti fa selezionare il controllo a cui legare
MA 

 ...
Associare una etichetta
http://www.donkarl.com/it?FAQ4.26
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 

 MA

Newsgroup: it.comp.appl.access
Titolo: Piccolo magazzino in Access.

Grazie per avermi letto. Sto cercando una gestione di magazzino in access
per controllare i carichi e scarichi di alcuni articoli di magazzino.
Grazie a chiunque voglia darmi una mano.
Salve, salvatore maltese.

 - rimuovi XXX  x  rispondere  ICQ	#8814554
 
Passare per idiota agli occhi di un imbecille e' una  volutta'	da  fine
gourmet.
		-- Georges Courteline
Newsgroup: it.comp.appl.access
Titolo: file TXT da dividere in tante tabelle a partire da un tracciato record

Salve a tutti. Scusate se sarò un po' lungo, ma cercherò di spiegarmi il
meglio possibile.
Ho un file TXT importato in un DB di A97.
Il file è strutturato in questo modo:
0001012004INIZIALE  012345
01FRANCESCONI SPOLETO 18111969
02VIA MANIN, 4      VENEZIA
0001022004INIZIALE  055535
01FREGOLENT   PIACENZA15111970
02P.ZZA LEONARDI, 6 ROVIGO
...
In pratica i record che iniziano per 00 si riferiscono alla "tipologia
domanda", quelli che iniziano per 01 sono i "dati anagrafici" della persona,
mentre i record che iniziano con 02 sono i dati relativi alla "residenza".
Dovrei dividere queste informazioni in tabelle diverse a seconda del tipo di
record.
A disposizione ho una tabella che descrive il tracciato record. È
strutturata in questo modo:
nome_tabella inizio_record nome_campo inizio fine lunghezza
tipodomanda  00            tipo       1      2    2
tipodomanda  00            data       3      10   8
tipodomanda  00            modalita   11     20   10
...
anagrafica   01            tipo       1      2    2
anagrafica   01            denom      3      14   12
anagrafica   01            comune     15     24   10
...
residenza    02            tipo       1      2    2
residenza    02            indirizzo  3      12   10
residenza    02            comune_res 13     22   10
...
In pratica in un una sola tabella avrei a disposizione tutti i dati per
creare le varie tabelle (tipodomanda, anagrafica e residenza).
È possibile secondo voi creare tante tabelle incrociando i dati presenti in
questa con il file TXT importato?
Grazie a tutti in anticipo.
Giancarlo

 ha scritto nel
messaggio news:40b7537f$1...@x-privat.org...

Se non te la cavi bene coi recordset fatti tre
query diverse e le accodi dove vuoi
Ovvio che per l a1 tab vale il criterio
left(tuariga;2) = 01 e tu accodi
right(len(tuariga)-2)
MAssimiliano

 ha scritto nel messaggio
news:mIItc.18$%l2...@news.edisontel.com...

Ok. Ma c'è il modo per utilizzare i dati presenti nei campi della tabella
che descrive il tracciato record, per dividere i record del TXT nei campi
descritti dal tracciato?

 ha scritto nel
messaggio news:40b759be$1...@x-privat.org...

Sono in qualche modo tabulati?
Se sì
File
Carica dagli esterni
documento di testo
scagli il percorso e ti si apre una maschera
a quel punto
Avanzate
specifichi come vuoi salvare
e segui i wizard.
Alla fine avrai il tutto in una tabella e fai
quello che ti ho detto prima
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Combo vuota in maschera associata

Cosa banalissima.
Ho una maschera CLIENTI associata ad una tabella TblClienti
I campi (e quindi i controlli) sono:
IdCliente
Gruppo
Fatturato
Ecc.
Ho creato la maschera con l'autocomposizione e va tutto bene.
Vorrei però sostituire la TEXTBOX IdCliente in una COMBOBOX in modo che
possa visualizzarci dentro più valori ed utilizzarla per selezionare gli
altri record della tabella.
Fatto questo, noto che la lista a tendina è vuota, ma se mi sposto con lo
Scroll (Up o Down) mi cambia i record.
Ho provato a modificare le varie proprietà della Combo, ma senza risultato.
Credo che scrivendo qualche riga di codice si risolva, ma mi sembra alquanto
strano che non ci sia una metodo grafico di default (a meno che io non
l'abbia trovato) visto che credo sia un'operazione alquanto frequente e
altrettanto comoda.
Ciao e grazie
Marco

marco ha scritto:

Ti mancherà qualche impostazione.
Controlla queste proprietà:
origine riga
tipo origine riga
numero colonne
larghezza colonne
larghezza elenco
righe in elenco
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: Recupero dati da Listbox

Salve, ho un piccolo prob.:
ho impostato una maschera di ricerca che mi restituisce tutti i dati in una
listbox. La mia domanda adesso è questa: come faccio a fare in modo che
selezionando 1 di questi risultati, mi vengano passati i valori in un'altra
maschera?
Aiutatemi sono disperato!!!!


Se il controllo della mascheraB si chiama pippo
forms!MascheraB!Pippo = me.listbox
MAssimiliano

 > listbox. La mia domanda adesso è questa: come faccio a fare in modo che



Non posso risponderti in modo preciso perchč non hai descritto
dettagliatamente il problema. In linea generale, la prima colonna di una
listbox č associata ad un campo tipo chiave primaria di una tabella.
In questo modo puoi filtrare l'apertura di una maschera (o eseguire una
determinata query parametrica ecc..) basandoti sul valore che la tua list
box ha sulla maschera in quel momento (che non č altro che il valore della
chiave primaria di una tabella -sempre ammesso che sia valido quanto sopra).
Potresti, per esempio, associare all'evento dopo aggiornamento (o su doppio
clic) della tua casella combinata un codice del tipo
criterio = "[TuoID]=" & "'" & Me.ActiveControl & "'"
DoCmd.OpenForm "TuaMaschera", acNormal, , criterio
dove TuoID č il campo associato alla casella e presente anche sulla maschera
da aprire (o meglio sulla tabella/query origine di detta maschera)
Ciao
Salvatore

 dove TuoID è il campo associato alla casella e presente anche sulla

Newsgroup: it.comp.appl.access
Titolo: contatore su sottomaschera

Ciao a tutti, confido nell'infinita sapienza e .. pazienza di chi legge il
nsg per avere la soluzione al mio problema :
ho una maschera e una sottomaschera legate da un campo ID, e la necessita di
memorizzare in un campo  N della sottomaschera un numero progressivo per
ogni record immesso ripartendo da 1 ogni volta che cambia il campo
principale ID.
grazie a tutti
--
Andrea

 principale ID.
Ma questo valore lo devi memorizzare nel record o ti serve solo vederlo
quando inserisci i nuovi record?
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

principale ID.
Gestisciti "a mano" l'inserimento dei record nella subform e
mettici tu l'id che vuoi.
--
Lorenzo Coronati
--
<<Nessuno sa che questa affermazione e' vera>>
(John D. Barrow)
--



Newsgroup: it.comp.appl.access
Titolo: Accesso mediante psw

Ciao a tutti,
Mi chiedevo se, a parte la protezione a livello utente, fosse
possibile agendo su un pulsante, avere accesso ad una maschera
solamente mediante l'immissione di una password. Magari da codice si
può fare ma non ho idea...
Grazie

 ha scritto nel messaggio
news:a370b1a.04072...@posting.google.com...

A fronte dell'evento "Su apertura" della maschera, tramite una InputBox,
chiedi all'utente di digitare la password e se essa non valida annulla
l'apertura della maschera con un
Cancel = True
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Cancel = True
grazie infinite

Newsgroup: it.comp.appl.access
Titolo: Problema con query

Dimenticavo una cosa, su tutti i PC è installato Windows 98 SE con Office
2000.

Ciao a tutti, ho il seguente problema:
ho creato una query con due campi calcolati, sul mio pc funziona
perfettamente, su tutti gli altri pc della ditta non funziona;
I campi calcolati sono così definiti:
a) PROT: [ordnr] & "/" & [progr]
    sul mio PC restituisce 1500/1 (corretto)
    sugli altri restituisce 1500 (errato)
b) DATA: Year([date]) & Format(Month([date]);"00") &
Format(Day([date]);"00")
    sul mio PC restiuisce 20001219 (corretto)
    sugli altri appare un messaggio di errore, non riconosce la funzione
FORMAT.
Grazie a chiunque saprà aiutarmi.

 wrote in message
news:91n7ou$gc1$1...@geronimo.keycomm.it...

Dove non funziona ci sono sicuramente dei problemi nei References, prova
ad accedere al menu (la voce si abilita in visualizzazione modulo); ti
accorgerai
molto probabilmente che un riferimento sballato (in genere qualche ActiveX)
preclude
il corretto caricamento della libreria del VBA (che contiene la Format());
rimosso il
riferiemento sballato tutto dovrebbe tornare a posto.
Bye, Ste

 ha scritto nel messaggio
news:W1G%5.106732$IP1.3...@news1.giganews.com...


Newsgroup: it.comp.appl.access
Titolo: Colore diverso per schede

 In una form con una struttura a schede è possibile cambiare il colre di
ogni singola scheda?
Sthepan


Normalmente no, ma puoi sempre inserire un quadrato o rettangolo di diverso 
colore per ogni pagina o modificarne il colore (del rettangolo) via codice.
Puoi anche rendere trasparente lo stile dello sfondo e posizionare un 
rettangolo colorato della stessa grandezza della struttura a schede, dietro 
la struttura stessa. In questo caso il colora sarà cambiato via codice a 
seconda della pagina.
Ciao, Carlo 

 ogni singola scheda?
http://www.lebans.com/tabcolors.htm
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + CISA1, Arezzo, 4+5/6/2005
la prima Conferenza Italiana per Sviluppatori di Access 

 Sthepan
Vai sul Sito Comune (link qui sotto) e nella Sezione Forms leggi la FAQ di
Silvio Savoldi intitolata "3.66 Esempi di strutture a schede colorate,
nidificate e verticali".
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Rinominare file

Salve vorrei porre un quesito forse utile anche a molti:
ho una cartella:
C:\Documenti\Prove
in cui sono presenti per esempio 3 file:
prova 1.doc
prova 2.doc
prova 3.doc
poi nella stessa cartella ho un file di testo "rinomina.txt "in cui sono
riportate 3 stringhe per esempio:
Riprova A.doc
Riprova B.doc
Riprova C.doc
La domanda è la seguente: è possibile fare in modo che i file della
cartella Prove vengano RINOMINATI con le stringhe del file di testo
nello stesso ordine, cioè:
prova 1.doc diventa Riprova A.doc
prova 2.doc diventa Riprova B.doc
prova 3.doc diventa Riprova B.doc
qualcuno può aiutarmi non sono pratico di programmazione, e cmq potrebbe
essere di aiuto a molti.
grazie 
Roby
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Riprova C.doc
Certo che è possibile, ordinando i file di due cartelle, rinominare i
file di una con i nomi dell'altra.
Il problema è definire il criterio (e quindi garantirsi che i nomi
verranno scritti in base a questo, nelle due cartelle), e cosa fare se
in una cartella ci sono 4 file e nell'altra ce ne sono 5.
ciao,
Panathos

Newsgroup: it.comp.appl.access
Titolo: controllo struttura a scheda

Ciao a tutti: ho un problema con il controllo in oggetto.
Se creo una struttura a schede, i controlli che inserisco nella scheda
A compaiono anche nella B, come se le schede fossero trasparenti e
lascira intravedere i comandi.
Come posso fare?
Grazie.
Simona

 ha scritto nel messaggio 
news:1193061892.4...@e34g2000pro.googlegroups.com...

il trucco è riuscire a inserire i controlli nella scheda giusta, quella 
selezionata con il bordo in neretto. La selezione di una scheda la fai dalla 
linguetta, assicurati che compaia il bordo che indica il contenitore ...
Se stai trascinando i controlli da una locazione precedente ti consiglio di 
usare il Copia, selezioni la pagina giusta, Incolli e sposti.
IvanDaBologna 

 ha scritto nel messaggio
news:1193061892.4...@e34g2000pro.googlegroups.com...

Il problema che incontri deriva dal fatto che non inserisci i controlli
nella Pagina.
Per essere certa hai 2 opzioni:
1) In caso di Oggetti nuovi(non copiati) l'area della PAGINA  diventa NERA
2) In caso di Copy/Paste devi essere certa di selezionare la PAGINA premendo
il RIGHT_CLICK
sulla linguetta relativa alla pagina, quindi fai il PASTE(incolla)
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Stampa report non corretta

Ciao a tutti ho realizzato un DB BE FE (con Access 2000).Tale DB e'
stato installato su 5 client(5 FE) Ho un report che in 4 FE mi viene
stampato non correttamente,cioe' non mantiene le fincature.Mentre nel
quinto FE viene stampato correttamente.
Premetto che nell'evento "open" ho inserito il seguente codice:
Me.Report.Picture = "C:\Img\FatturaDDT.jpg".Se provo in locale sul mio
Pc funziona correttamente (uso Access 2000).Premetto che non e' una
questione di driver stampante in quanto tutti e 5 i client stampano
con la medisima stampante.Ho realizzato anche il PDF prima della
stampa ma il risultato non cambia. Come posso fare????
Grazie in anticipo
Dino

Ciao a tutti.Ho realizzato un DB BE FE(Access 2000).Ho installato
questo DB im una rete di 5 Pc + 1 server (Access 2003).Il problema
riguarda solo la stampa di un report che viene stampato in maniera non
corretta (proporzioni sfalsate) solo in 4 FE,mentre nel quinto
funziona tutto correttamente.Premetto che nell'evento "Open del report
ho inserito il seguente codice:
Me.Report.Picture = "C:\Img\Report1.jpg".La cosa strana(mi ripeto) e'
che solo in un Pc viene stampato correttamente.Non penso sia un
problema di driver,in quanto entrmbi i Pc stampano con la stessa


 Dino
Verifica i margini su File --> Imposta pagina su ogni FE.
Verifica le impostazioni predefinite delle stampanti su ciascun PC, forse
sui 4 c'� qualcosa che forza un ridimensionamento delle stampe, cerca
opzioni tipo "Adatta alla pagina" o simili.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Ok.Grazie per la risposta.
La cosa strana e' che altri report sempre allo stesso modo vengono
stampati correttamente.Quindi puo' essere un problema di singolo
report per ogni FE attribuibile alla stampante???
Dino


L'anomalia potrebbe anche essere riconducibile alla cattiva gestione delle 
immagini .Jpeg delle vecchie versioni di Access.
Se converti l'immagine in bitmap (supportata nativamente da Access), il 
problema si ripresenta?
Saluti 

 Saluti
E' vero questa puo' essere una soluzione.Provo domani e poi ti faccio
sapere.Dai un occhio al nostro NG.
grazie ancora Dino
Newsgroup: it.comp.appl.access
Titolo: numerazione progressiva gestita in rete

devo creare un archivio gestito in rete da più utenti con un numero
progressivo,
premetto che ho altri applicativi  con un campo incrementale calcolato con
la formula:
=IIf(DCount("[Numero_pratica]";"Tabella1")=0;1;DMax("[numero_pratica]";"Tabella1")+1)
ma questo metodo anche se funziona, a volte da un problema di conflitto
fra utenti, e cioè se 2 utenti inseriscono un record , uno dei due fa
nuovo record dopo l'altro utente, ma completa il record prima dell'altro
utente, il primo utente  che ha fatto nuovo record prima del secondo
utente, al completamento del record  si ritrova un errore che il numero è
già esistente e quindi perde i dati inseriti.
spero essermi spiegato.
Quello che voglio invece è che comunque e in qualsiasi condizione, la
numerazione sia progressiva, non dà problemi fra utenti e in condizione
del caso citato, non costringe l'utente a perdere il record compilato e
doverlo ricompilare.
l.
consigli e soluzioni sono ben accetti.
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 grazie
potresti salvare il record nello stesso momento in cui viene premuto il 
pulsante nuovo record.
-- 
Ciao
Geppo 

 grazie
Assegni il valore al contatore immediatamente prima di salvare il record,
sull'evento Before update della maschera. Il rischio di concorrenza si
riduce al minimo, quasi trascurabile.
Ciao.
-Marco-


 ^luigi^ ha scritto:



ma questo, se nell'ipotesi che l'utente chiude il DB prima di completare
il record,non perde i dati inseriti?
l.


^luigi^ ha scritto:





No, la chiusura del db forza il salvataggio del record e l'esecuzione
delle routine evento, e se compare qualche avviso o qualche richiesta di
conferma il db non si chiude finchè non rispondi.
Parlo di chiusura normale, con la X o Alt-F4, se termini il processo col
task manager ovviamente perdi il record.
Ciao.
-Marco-


Marco Pizzamiglio ha scritto:






un altro dubbio, ma in questo modo,il numero non lo vedo se non torno
indietro o si?
l.


 l.
No, non lo vedi, devi tornare indietro. Perň potresti usare un tasto
SALVA, che salva il record senza spostarsi, cosě vedi subito il numero se
ti serve.
-Marco-

Newsgroup: it.comp.appl.access
Titolo: strano problema su campi master e secondari

Ciao a tutti.
Su apertura di una Form,
creo la query "Qry_Email"
relativa alla subform "SM_Email" a seconda che sia
per un fornitore oppure un cliente,
collegata tramite campi master e secondari
ad un controllo nella maschera
con origine controllo, su click di una casella di riepilogo
con questo codice:
 
If InStr(strItems, ctl.Column(0)) > 0 Then
  txt_IdFornitore = ctl.Column(0)
Else
  txt_IdFornitore = strItems1
 
End If
 
La cosa strana è che se il controllo ha come nome
txt_IdFornitore e di conseguenza 
in campi master avro' txt_IdFornitore
e campi secondari IdFornitore,
all'apertura della maschera
mi appare la finestrella:
immettere valore parametro; IdFornitore
 
Mentre se modifico 
txt_IdFornitore in IdFornitore
nel controllo e in campi master
questo non succede.
 
Tutto cio' e' strano, perchè
anche nel primo caso dovrebbe andare
bene, ma invece da errore.
Perche'?
 
grazie

 creo la query "Qry_Email"
[CUT]
 
Ciao,
hai scoperto il motivo della richiesta del parametro?
Magari il problema è contenuto nella query Qry_Mail che usi come origine dei dati del subform. Non fai riferimento a Forms![nomeformprincipale]![IdFornitore] in Qry_Mail, vero?
 
Ciao,
Mat.
Newsgroup: it.comp.appl.access
Titolo: Proprietà OldValue

Ciao a tutti,
normalmente utilizzo maschere con controlli non associati per l'immissione
dei dati.
potreste suggerirmi qualche alternativa alla proprietą oldvalue che ho
visto potersi utilizzare solo con controlli associati?
in pratica ho una maschera che contiene una cinquantina di controlli
(textbox di configurazione e caselle di controllo vero o falso) e vorrei
in caso di click su uscita poter testare eventuale controlli modificati
per visualizzare un messaggio di conferma.
sono un'illusa?
ciao
nicoletta
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 nicoletta
Per Click sull'uscita ti riferisci relativamente alla Form oppure al
Singolo controllo...?
Il problema come hai notato è la mancanza dell'evento del controllo,
ma se il Test lo facessi
su Click potresti benissimo verificare l'uguaglianza tra il prima e
dopo semplicemente
ottimizzando la Routine con la quale Popoli i Controlli la prima
volta...!
In pratica quando clickki cicli i controlli confrontando il contenuto
attuale con quello che
scriveresti all'apertura, in questo modo sei in grado di discriminare
se ripristinare il contenuto
iniziale o no....!
Io la vedo semplice come operazione.
@Alex

 @Alex
nicoletta


nicky ha scritto:

Direi che non hai capito il suggerimento.
Supponi di avere il tuo Recordset che usi per popolare i 50(60 ..70)
controlli della Form.
Per popolarli servono 5 righe di codice se hai nominato i controlli con
lo stesso nome
del Campo Teoricamente associato:
Dim fld as DAO.Field
Dim mrs as DAO.Recordset
Set mrs=CurrentDb.OpenRecordset("SELECT.....")
For each fld in mrs.Fields
     Me(fld.Name)=fld.value
Next
La routine per scrivere invece nel Recordset sarà così:
Dim fld as DAO.Field
Dim intMsg as integer
Dim mrs as DAO.Recordset
Set mrs=CurrentDb.OpenRecordset("SELECT.....")
mrs.Edit
For each fld in mrs.Fields
     If fld.value<>Me(fld.Name) then
         intMsg=MsgBox("Il Campo " & fld.Name & " è stato modificato "
& vbcrlf & _
                     "Valore Iniziale = " & fld.Value & vbcrlf & _
                     "Valore Modificato = " & Me(fld.Name) & _
                     "Vuoi
modificarlo....?",vbquestion+vbyesno,"AVVISO")
         if intmsg=vbyes then fld.value=Me(fld.Name)
Next
mrs.Update
Una cosa del genere credi sia difficile da manutenere...??
@Alex

 @Alex
non ci sarei mai arrivata !!!
grazie mille.

Newsgroup: it.comp.appl.access
Titolo: annulla.spazi

Ciao,
perchè se uso la funzione annulla spazi in una query di aggiornamento mi
dice "funzione annulla.spazi non definita nell'espressioe" ?
La sintassi sembra giusta ...
Grazie
--
Marco
marco....@technik.it

 La sintassi sembra giusta ...
Magari perchè annulla.spazi è una funzione di excel e non di access?
Antonio

 Marco
Forse in Access devi usare la funzione Trim (vedi help).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:Fr_W7.374072$sq5.18...@news.infostrada.it...


 > perchč se uso la funzione annulla spazi in una query di aggiornamento mi


 ha scritto nel messaggio
news:DB0X7.18$Iq2....@nreader1.kpnqwest.net...


 Marco
Per quel che mi risulta in Access non esiste la funzione elimina.spazi e nel
mio help non č menzionata come funzione ma come argomento.
Penso che devi crearti una routine ricorsiva che copia la stringa carattere
per carattere eliminando gli spazi.
Puoi anche provare quanto indicato sulla FAQ di Vincenzo Turturro intitolata
"Effettuare sostituzioni di una sottostringa all'interno di una stringa per
n volte." presente nella Sezione General del Sito Comune (link qui sotto),
indicando come sottostringa di ricerca " " (spazio) da sostituire con una
stringa di lunghezza zero ("").


 stringa di lunghezza zero ("").
Certo lui non ha scritto la sua versione di Access...
In A00 e AX č semplice con la funzione Replace:
nel codice:
Me!Foo = Replace(Me!Foo, " ", "")
in una query di aggiornamento:
Replace([Foo];" ";"")
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:a0i6oi$l6qnb$1...@ID-46617.news.dfncis.de...

OK, me ne ricorderň per quando abbandonerň A97.
Ciao
Roberto

Newsgroup: it.comp.appl.access
Titolo: [SitoComune] Aggiornato

Aggiornamento 23/11/2000
FAQ
- Come posso compattare l'mdb in uso? (Federico Luciani)
- Interfacciare i file help, creati con HTML HELP Workshop, con le forms di
MSAccess. (Calogero Di Lorenzo)
TIP
- Cambiare il titolo della finestra di MSAccess, usando le API (Antonio Biso)
DOWN
- ActiveLock - Free ActiveX per la protezione del software (Ndr. La redazione
non ha testato questo ocx)
- ODE97 - Esempi di utilizzo dei controlli: TreeView, ListView, ImageList
(Giuseppe Dominijanni)
NEWS
- Ottobre 2000
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


#####
grazie della comunicazione
Riccardo