mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Modifica accidentale dei dati

Se accidentalmente in una maschera produco
delle modifiche sui dati visualizzati, c'è la possibilità di
essere avvertiti della modifica magari con la libertà di
rifiutare ma anche di accettare le modifiche compiute
Grazie tantissime per ogni suggerimento
--
Fabrizio Domiziani
dom...@tin.it

 wrote in message
IsLwMdM9$GA....@news1.galactica.it...

A fronte dell'evento "Prima di aggiornare" della maschera con cui puoi aver
accidentalmente effettuato delle modifiche, genera del codice VBA che
contiene un MsgBox che chiede se devi registrare o meno  le modifiche, e se
la risposta è negativa, prima di uscire dalla Sub:
    Cancel = True
Roberto

 ha scritto nel messaggio
news:kVJe5.26039$sE5.3...@news.infostrada.it...


Newsgroup: it.comp.appl.access
Titolo: shutdown di win2000 con access97

Salve a tutti,
sto impazzendo alla ricerca di un comando per win2000 e quindi sono a
chiedervi una mano.
Devo creare un tasto in access per chiudere win2000. Con win 98 era semplice
perche' facevo eseguire la seguente riga di comando:
C:\WINDOWS\RUNDLL.EXE user.exe,exitwindows
mentre con win2000 sembra che non ci sia una cosa analoga. Ho solo trovato
questo
rundll32.exe user32.dll,LockWorkStation
che ha il solo risultato di bloccare la workstation.
Esiste un comando o del codice che mi spenge il PC con win2000?
Ciao e in ogni caso grazie mille
Iacopo

 ha scritto nel messaggio
news:c808q8$e7i$1...@news.flashnet.it...

Prova con shutdown.exe;
http://support.microsoft.com/default.aspx?scid=kb;it;317371
Lo esegui con Shell (vedi help)...
Ciao.
-- 
Sergio MAZZA

Grazie mille Massimiliano e Sergio.

Newsgroup: it.comp.appl.access
Titolo: parsing di testo

Ok, come se fossi un bambino di 6 anni... mettetemi sulla strada giusta.
Vorrei importare del testo in una tabella, e poi "pulire" il testo dentro
il campo, riconoscere una data, ecc.
Un aiutino... :-)
-- 
Boris: I cattivi, per inciso, sono gli uni e gli altri.

[CUT]
Ciao,
posta un'esempio di testo da importare e in che modo vuoi suddividerlo... 



beh, quella mi sembra la parte piu' facile (quella che dovrei saper fare),
in ogni caso ho due necessita', una e' strippare dei CR da un file di
testo, e l'altra e' questa:
la tabella ha questa anda:
data - testo
il file di testo invece:
data1
testo1
testo2
testo3
data2
testo4
testo5
data3
testo6
testo7
testo8
testo9
testo10
ecc.


 
Ogni dato č su una riga?
se č cosě puoi usare il comando get
poi controlli ciň che hai importato
se č data allora inizi a scrivere, +/- credo che la routine funzioni 
cosě (sando i recordset)
'dichiarazioni del recordset
'dichiarazioni del file
get #1,,Variabile
if isdate(variabile) then
	rst.addnew
	rst!data = variabile
	rst.update
else
	rst.edit
	rst!testo = variabile
	rst.update
end if
'chiudi reecordset
'chudi file
non l'ho testato.. ma provalo e facci sapere ;)
ciao
Nick

 non l'ho testato.. ma provalo e facci sapere ;)
Ok, grazie intanto, sto litigando sulla seconda parte, sull'aprire una
tabella (recordset) e scriverci dentro quello che importo.

AP ha detto: in data 05/09/2005 9.55:

Ok se hai bisogno .. chiedi :)
ciao
Nick
Newsgroup: it.comp.appl.access
Titolo: casella di testo - se premo enter andare a capo e non passare al controllo successivo

salve
 
ho una casella di testo 
 
come posso fare in modo che se premo enter andare a capo nella casella e non passare al controllo successivo


grazie
 
TROVATO
proprietà della textbox
 
.EnterKeyBehavior  (Funzione tasto INVIO)

Newsgroup: it.comp.appl.access
Titolo: query banale

Salve, ho una Tabella Ordini con un campo DataOrdine di tipo Data 
generica (a proposito, che differenza c'è tra data generica e data in 
cifre?) e vorrei realizzare una query del genere
SELECT DataOrdine FROM Ordini WHERE DataOrdine > di una certa data
qual è la sintassi corretta (in SQL di access, non nell'interfaccia 
grafica) per specificare una data + ora del tipo
dd/mm/yyyy hh:mm:ss ?
E quale tipo di campo devo scegliere per avere un formato data + ora 
come quello che ho indicato sopra?
Io ho provato a scrivere (da interfaccia grafica) in criteri
 > #05/05/1998 0.00.01#
poi andando a vedere il codice SQL generato, è stato cambiato in
 > #5/5/1998 0:0:1#
P.s. uso access 2003
Grazie!

redcloud ha scritto:

Access è stupidissimo! Se faccio una query da interfaccia grafica, il 
formato è dd/mm/yyyy, poi in SQL la traduce in mm/dd/yyyy ma perchèèèè???

 ha scritto nel messaggio 
news:RluCe.171207$75.74...@news4.tin.it...

Tutte le versioni localizzate dei database relazionali soffrono di questo 
problema quando dialogano in puro sql.
Non si tratta di stupidità...la cosa vale anche per i separatori 
decimali...nelle varie lingue.
Probabilmente può essere vista come la costante dipendenza dall'inglese...ma 
questo è un altro discorso.
In italiano si usa giorno mese anno, in americano (sic!) si usa mese giorno 
e anno.
Ti pongo un quesito: quale è il primo giorno della settimana?
Ciao, Carlo 

 ha scritto nel messaggio 
news:8ytCe.171067$75.74...@news4.tin.it...

...mai dato un'occhiata alla guida, e ai post di questo supermegaNG? 
Haiaiai...
Ciao, Carlo 

 
Ciao ;)
Newsgroup: it.comp.appl.access
Titolo: SOS trasformazione stringa

ho nel valore predefinito di una maschera la seguente stringa
=Format(IIf(IsNull(DMax("[Num]";"[unica]";"[Num] like '??????/" &
Format(Date();"aa") & "'"));1;Left(DMax("[Num]";"[unica]";"[Num] like
'??????/" & Format(Date();"aa") & "'");6)+1);"000000") & "/" &
Format(Date();"aa")
che mi sforna ad ogni record un numero progressivo nel formato 000056/08
dove lo 08 finale corrisponde all'anno attuale.
vorrei mettere questa formula nell'evento clik di un pulsante ma mi da
degli errori di sintassi a cui sono poco capace di riparare.
ho provato a sostituire i ; con le , e mettere all'inizio Num = format ecc.
ma mi caccia una numerazione 000001/aa .
DOVE SBAGLIO? 
sos
grazie 
luigi
-- 
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:fr3j32$2pg$1...@news.newsland.it...

Nel format del VBA, a differenza di quello che fai nelle query, devi 
utilizzare la sintassi di tipo americano. Quindi dd per il giorno e yy (o 
yyyy) per l'anno.
Ciao
Antonio

 Antonio
grazie!
ora funziona! 
vatti a ricordare tutte stè cose!  uff! e quando ci arrivavo!
l.


Newsgroup: it.comp.appl.access
Titolo: Scrittura dati su file TXT

Ciao,
Ho preparato una query per esportare dei dati in un file txt, poi con in 
seguente codice scrivo i record:
Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
Open "C:\ENPALS.TXT" For Output As #1    ' Apre il file per l'output.
    'Apre il database
    Set db = CurrentDb
    ' Apre il Recordset
    Set rst = db.OpenRecordset("Select * from Mia_Query", dbOpenForwardOnly, 
dbReadOnly)
    ' Stampa nella finestra Debug i valori dei campi nel primo record
   While Not rst.EOF
    For Each fld In rst.Fields
       Print #1, fld.Value & "";
        Debug.Print fld.Value & "";
    Next
    Debug.Print
    Print #1,
        rst.MoveNext
    Wend
    'Chiude il recordset
    rst.Close
Close #1    ' Chiude il file.
La fregatura è che il TXT deve essere a lunghezza fissa mentre la riga che 
viene generata non tiene conto degli spazi. In pratica il campo 
RagioneSociale deve avere lunghezza 75 quindi il campo "Alfa" deve avere 71 
spazi dopo il nome!
Spero di essere stato chiaro!
Grazie
Paolo

 ha scritto nel messaggio 
news:edyJh.17060$o%.16020@tornado.fastwebnet.it...



per favore scrivi dopo il quote
Debug.Print left(fld.value & space(fld.size),fld.size)) & "";
per i numerici dovresti invertire i valori e fare right
Ho messo il size ma probabilmente la tua mappatura di lunghezze e' 
diversa da quella richiesta dal txt
-- 
ac
y-1=x
Newsgroup: it.comp.appl.access
Titolo: origine report con più di 1 query

Ciao a tutti,
sto cercando di costruire un report avente come origine più query,
premetto che per alcuni motivi non posso raggruppare con una sola query le
altre che mi servono.
Vi ringrazio in anticipo per l'aiuto.
Davide
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 altre che mi servono.
[...]
    Quindi... Report e Sottoreport... E' di questo che intendi parlare?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 --
Una condizione essenziale e che i nomi dei campi delle varie query e quindi
dei controlli sul report, siano uguali.
Detto questo puoi gestire tutto da codice.
Lascia in bianco "Origine Record" del report.
Su Apertura del report stesso inserisci il codice opportuno:
...tue condizioni
Me.RecordSource = "TuoNomeQuery"
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Funzione OutputTo in AXP

Ciao a tutti
Se uso la funzione in oggetto da codice sia con
acFormatXLS
DoCmd.OutputTo acReport, NomeReport, acFormatXLS, NomeFile, True, "", 0
che con
"MicrosoftExcelBiff8(*.xls)"
DoCmd.OutputTo acReport, NomeReport, "MicrosoftExcelBiff8(*.xls)", NomeFile,
True, "", 0
(La seconda formula viene generata da access convertendo la macro in vb)
mi crea sempre file xls formato 95 che mi danno errore in apertura e mi
chiedono alla fine di salvare nel nuovo formato
Se invece faccio da marco tutto ok. Dove sbaglio?
Grazie a tutti
Ciao
Luca


Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Aggiornamento dati nulli

esiste una procedura, o altro dove è possibile, una volta inserito il nome
di una tabella, scorrere tutti i campi di tutti i record per trovare dati
nulli e sostituirli con un valore deciso prima del lancio della procedura?
GRAZIE



query di aggiornamento
Saluti.
Emanuele.

 Emanuele.
con la query č normale, probabilmente non mi sono spiegato:
mi piacerebbe trovare il metodo per dare esclusivamente il nome della
tabella,
senza conoscere o dover impostare manualmente i nomi dei campi
e la procedura scorre nella tabella e aggiorna i dati
.. spero di essere stato piů chiaro

 e la procedura scorre nella tabella e aggiorna i dati
Via codice ti crei una stringa SQL dinamicamente, a seconda dei parametri
passati, quindi la lanci
Antonio

 ha scritto nel messaggio
news:vVgca.11302$Lr4.3...@twister2.libero.it...

Scusa la mia ignoranza ma... come faccio?
riesci a darmi alcune linee da seguire?

> > e la procedura scorre nella tabella e aggiorna i dati
vedi com'è definita l'oggetto tabella scorri i campi ne controlli i
valori e imposti quello che vuoi
vedi fields()
Saluti.
Emanuele.

 ha scritto nel messaggio
news:8t937vo255toiqscd...@4ax.com...

scusate ancora se vi stresso con il mio problema...
vi allego la routine che ho scritto .. non riesco a controllare il valore
non capisco come mai con il msgbox vedo il valore
ma non posso controllarlo!!
Dim dbs As Database, rst As Recordset, dato As Variant
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(Tabella, dbOpenDynaset)
rst.MoveLast
For i = 0 To rst.Fields.Count
dato = rst.Fields(i)        'mi da errore dice: elemento non trovato in
questo insieme,
                                      'però se io la stessa cosa la scrivo
msgbox rst.fields(i) non da errori
    If IsNull(dato) Then
        MsgBox "trovato nullo " & rst.Fields(i).Type
    End If
Next i
UscitaField:
Exit Sub



e questo che centra? devi scorrere l'insieme tabledefinition e poi per
ogni tabella trovata scorri i campi
Saluti.
Emanuele.

 riesci a darmi alcune linee da seguire?
Ma tu cosa hai in input?
Nome dei campi da aggiornare?
Nome della tabella?
Antonio

 ha scritto nel messaggio
news:_Ckca.12200$Lr4.3...@twister2.libero.it...

in input ho, come nella procedura, ho il nome della tabella
e vorrei passare tutti i campi senza dover fare una query per ogni tabella

 ha scritto nel messaggio
news:shmca.12594$Lr4.3...@twister2.libero.it...

apri un recordset sulla tabella passata come parametro.
Lo scorri tutto con un ciclo do until rst.EOF
per ogni record scorri l'insieme fields
for i = 0 to rst.fields.count - 1
e modifichi il campo
Antonio
Newsgroup: it.comp.appl.access
Titolo: Creazione PDF

Buongiorno,
Ho un'applicazione che crea ed invia report in formato Snapshot. In luogo di
questi files vorrei creare dei PDF mantenendo l'automaticità di creazione ed
invio dei report.
E' possibile?
Grazie,
Stefano.

Certo.
Puoi fare quello che desideri, utilizzando Win2PDF (
www.win2pdf.it
).
Buon lavoro.
-- 
Gabriele Bertolucci
PBsoft 
www.pbsoft.it


 wrote in
news:bk3ukb$o7h3e$
1...@ID-157402.news.uni-berlin.de
: 

potresti usare ghostscript + redmon.
si tratta di una soluzione freeware che genera file pdf.
ti installa una stampante che poi si comporta nello stesso modo del 
pdfwriter di acrobat.
devi però fare qualche esperimento per vedere come automatizzare la 
creazione.
-- 
+-------
| Paolo opg
|
| janickg ( at ) hotmail ( dot ) com
+-------
Newsgroup: it.comp.appl.access
Titolo: Maschera aggiornamento record su tabella

Ho una maschera che permette solo aggiornamento valori su tabella e non 
inserimento nuovi record.
Come faccio a far aggiornare il record sulla tabella sull'evento dopo 
aggiornamento della casella di testo presente sulla maschera ed andare sulla 
casella successiva?
Ho provato con me.requery e funziona, ma devo dare due colpi di tabulatore o 
invio per farlo uscire dalla casella di testo
Grazie per eventuali suggerimenti
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 6252 (20110630) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
www.nod32.it

 tabulatore o invio per farlo uscire dalla casella di testo
Per salvare il record immediatamente puoi p.e. usare:
Me.Dirty = False
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Unione Caratteri di due campi

Salve Ragazzi
Sto facendo un database per la gestione dei clienti, è quasi finito ma avrei
bisogno di questa modifica.....
Allora ogni mio cliente è identificato da un CodiceCliente tipo
000 e ad ogni ordine è identificato da un codice Ordine 0000 progressivo,
quindi Cliete 0001 ordine 0001, cliente 0001 ordine 0002 ecc...quindi ho due
campi per Ordine Codice e codice Cliente.
Come posso fare a crearmi un campo che in automitico mi dia l'unione dei due
canpi CodiceOrdine e Codice Cliente?
tipo LD39di defaut e poi 0001-0001quindi intero mi dovrebbe dare
LD39-0001-0001
quindi se creo il secondo ordine del mio cliente 0001 mi deve dare
LD39-001-0002
ecc ....
Si può fare?
mi aiutate per favore.

 ha scritto nel messaggio 
news:dYCUf.46974$A83.1...@twister1.libero.it...

Crei una casella di testo dove come origine mandi le caselle interessate:
="LD39-" & [CODCLI] & "-" & [CODORD]
Ciao
Roberto 

Roberto da Parma ha scritto:
Roberto da Parma ha scritto:


Ciao e Grazie per l'aiuto , ma volevo sapere nella casella che mi creo 
come origine si riferisce all'origine record o Valore predefinito?.

 come origine si riferisce all'origine record o Valore predefinito?.
Origine controllo; e per favore cercate di sfoltire il testo non necesario 
che per leggere sto' messaggio mé se' arroventata la rotellina...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: OT Traduzione FAQ 4.19

*******************************
4.19 Check if form is open
Problem
You want to know if a distinct form is open in this very moment
e.g. for the use in a condition of your code or macro.
Solution
In versions >=A00 there's the property IsLoaded for Access objects:
CurrentProject.AllForms("MyFormName").IsLoaded
This returns True or False.
Alternatively and in A95 and A97 you can use SysCmd.
Copy the following code in a standard module:
Public Function fctIsFormOpen(StrName As String)
    fctIsFormOpen = (SysCmd(acSysCmdGetObjectState, acForm, StrName) > 0)
End Function
In VBA you can use the function like this:
If fctIsFormOpen("MyFormName") Then ...
You can also use
fctIsFormOpen("MyFormName")
in expressions on the Access surface e.g. in the condition column
of a macro.
********************************
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio
news:33g65nF...@individual.net...

 4.19 Verificare se una maschera è aperta
Problema
Vuoi sapere se una certa maschera è aperta in questo momento
ad esempio per usarla in una condizione nel tuo codice o in una macro
Soluzione
Nelle versioni  >=A00 trovi la proprietà  IsLoaded per gli oggetti di
Access:
CurrentProject.AllForms("MyFormName").IsLoaded
Questa proprietà restituisce Vero o Falso.
Alternativamente  in A95 e A97 puoi usare SysCmd.
Copia il codice seguente in un modulo:
Public Function fctIsFormOpen(StrName As String)
     fctIsFormOpen = (SysCmd(acSysCmdGetObjectState, acForm, StrName) > 0)
 End Function
 In VBA puoi usare una istruzione come questa:
 If fctIsFormOpen("MyFormName") Then ...
puoi anche usare
 fctIsFormOpen("MyFormName")
 in tutte quelle situazioni dove è richiesta una espressione per esempio
nella colonna condizione di una macro.
Cinzia

 End Function




4.19 Controllare se una maschera è aperta
Problema
Vuoi sapere se in questo esatto momento è aperta una certa maschera 
p. e. per usarla in una condizione del tuo codice o della tua macro.
Soluzione
Nelle versioni >=A00 esiste la proprietà IsLoaded per gli oggetti di
Access:
CurrentProject.AllForms("NomeMiaMaschera").IsLoaded
Questa restituisce Vero o Falso.
In alternativa e in A95 e A97 puoi usare SysCmd.
Copia il seguente codice in un modulo standard:
Public Function fctIsFormOpen(StrName As String)
fctIsFormOpen = (SysCmd(acSysCmdGetObjectState, acForm, StrName) > 0)
End Function
In VBA puoi usare una funzione come questa:
If fctIsFormOpen("NomeMiaMaschera") Then ...
puoi anche usare
fctIsFormOpen("NomeMiaMaschera")
in espressioni dell'interfaccia di Access p. e. nella colonna condizione
di una macro.
--
rgrds
SC
-- 
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: in un file mde il codice vba di un modulo è recuperabile?

è recuperabile il codice dichiarato in un modulo a se stante nella sezione 
moduli in un file mde?
Grazie. 

 moduli in un file mde?
E se lo fosse?

 Grazie.
NO.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


preferirei non lo fosse, per tutelare il mio lavoro non credi? 

 preferirei non lo fosse, per tutelare il mio lavoro non credi?
Credi che qualcuno si prenda la briga di fare reverse engineering sui tuoi
lavori?
O sui lavori di chiunque altro?
Ma lascia stare: il software è difficile da leggere e manutenere perfino per
chi lo fa ... figurati per gli altri!   ;-))
Cristiano


me lo auguro!
Newsgroup: it.comp.appl.access
Titolo: Inserimento n° decimali su un campo tramite codice

Chi è che sa come impostare tramite codice (possibilmente usando i DAO) il
numero di decimali di un campo numerico in una tabella.
Al momento non riesco a trovare la soluzione magari è una c...ta.
grazie
--
  Ciao
Andrea



 ha scritto nel messaggio
news:avrh7h$aj0$1...@lacerta.tiscalinet.it...

Ammesso e non concesso che abbia capito il tuo problema, vai sul Sito Comune
(link qui sotto) e nella Sezione General leggi la FAQ intitolata "Verificare
il numero di decimali digitati"; per maggiore chiarezza scaricati il
database di esempio allegato alla FAQ.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Probabilmente mi sono spiegato male.
Ho creato una Tabella da CODICE (utilizzando le Funzioni DAO).
Ho aggiunto un Campo Numerico da CODICE.
Ora voglio attribuire a questo Campo Numerico 4 Decimali (ovviamente da
CODICE)? Ho provato ad usare la funzione "DecimalPositions" ma non riesce ad
attribuire nessuna cifra decimale.
--
  Ciao
Andrea

 ha scritto nel messaggio
news:avrjfg$bo9$1...@lacerta.tiscalinet.it...

Penso che la prima cosa da mettere in chiaro č che la proprietą
PosizioniDecimali di un campo di una tebella serve a specificare il numero
di posizioni decimali utilizzate da Microsoft Access per la visualizzazione
di numeri e NON a specificare il numero massimo di decimali contenuti nel
valore del campo; insomma, influisce solo sul formato del campo e non sul
suo valore.
Dando per scontato che la dimensione del campo numerico che hai creato da
codice (immagino con il metodo CreateField) tu la abbia definita come
dbDouble, o dbSingle oppure dbCurrency e NON dbInteger (in caso contrario i
decimali in quel campo non li otterrai mai), anche se modifichi da cadice la
proprietą DecimalPositions non determinerai il numero dei decimali contenuti
nel valore del campo numerico, ma solamente il numero di decimali che
visualizzerai in quel campo (cosa sostanzialmente diversa).
E' per questo motivo che nel mio messaggio precedente ti ho suggerito una
soluzione che limita il numero di decimali che si possono digitare in quel
campo; se poi il valore del campo viene determinato in un calcolo, usa una
routine di arrotondamento alla cifra decimale che preferisci: trovi una
buona routine per fare questo nella Sezione General del Sito Comune (link
qui sotto).


Si conoscevo i problemi della funzione "DecimalPositions" che mi hai
suggerito ma mi sembrava di aver visionato bene il codice.
Darò un'occhiata più approfondita.
Comunque grazie.
--
  Ciao
Andrea
Newsgroup: it.comp.appl.access
Titolo: Formato dati

Ho un problema con il formato dei dati avuto da una query.
Con questa riga:
Acquisto: CCur([Prezzo]*(1-[Sconto])/100)*100
io posso avere impostare i dati in formato Valuta  ad esempio L. 10.000
mentre con questa riga io non riesco a fare la stessa cosa
Acquisto: Arrotonda(CCur([Prezzo]*(1-[Sconto])/100)*100 ; 50)
Come posso fare?

 wrote in message
57L56.258152$hk4.13...@news.infostrada.it...

Questa e' la risposta che stavo per darti prima di accorgermi dei tuoi
precedenti 3d:
°°°°°°°°°°°
Se cerchi di usare questa funzione dentro una query non funzionera' mai.
Access non prevede (come invece excel) la funzione Arrotonda.
Sul sito comune trovi degli esempi per arrotondare.
************
Ora capisci perche' LaLo ti ha suggerito di non aprire un nuovo 3d? perche'
chi non ha seguito il discorso sta li a predere tempo senza alla fine averti
dato un aiuto.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
La mia home (ancora non completa)
http://digilander.iol.it/syb
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

Io ho capito, ma il risultato la query me lo da per cui non può essere
errato il campo della query

Ah dimenticavo.........
 Con questa riga:
 Acquisto: CCur([Prezzo]*(1-[Sconto])/100)*100
 io visualizzavo i dati in ASP
Mentre con questa riga:
 Acquisto: Arrotonda(CCur([Prezzo]*(1-[Sconto])/100)*100 ; 50)
il browser mi da questo errore:
ADODB.Fields errore "800a0cc1'
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al
numero di riferimento richiesto dall'applicazione.
/promoreale.asp, riga 46
Cosa posso fare?

Newsgroup: it.comp.appl.access
Titolo: MSDE....faq...da insesperto.

avrei l'esigenza di migrare da Access ad un DB con potenzialità
superiori....pensavo alla versione di MSDE contenuta in MSOfficeXP....
Visto che non conosco MSDE nello specifico....chiedevo:
1) La versione contenuta in MSOfficeXP è un "SQLServer" a tutti gli effetti
?
2) Che vantaggi mi potrebbe dare rispetto ad Access ?
Grazie mille.
Ciao

 2) Che vantaggi mi potrebbe dare rispetto ad Access ?
Se i tuoi clienti non vogliono rinunciare alle mitiche Realtek 8029 è una
buona soluzione per evitare corruzioni dati :-)
Diversamente il salto di qualità si apprezza con la version Full di Sql
Server.
Bye

 Grazie mille.
Prego
Ciao Giorgio
Newsgroup: it.comp.appl.access
Titolo: If e case su query: possibile?





Scrivo per chiedere una aiuto e premetto 
che non sono assolutamente un esperto.


Ho l'esigenza di trasformare i valori di un 
campo di una tabella in altri utilizzando più criteri e scriverli in una 
nuova tabella.


Più precisamente ho bisogno di 
realizzare la seguente funzione:


if valore y del campo C della tabella 
T   >5 e <7 allora scrivi  2 in campo C1 della tabella 
T1;


if valore y del campo C della tabella 
T   >2 e <5 allora scrivi 1 in campo C1 della tabella 
T1.


Ho provato con una query d'aggiornamento, 
ma non riesco a far agire 2 criteri differenti per uno stesso campo 
destinazione.


Saluti e comunque grazie a chi tentasse di 
rispondermi.



 ha scritto nel 
  messaggio 
news:04fe01c01704$0912a9e0$c6034bd4@lucatoma
...


In article <04fe01c01704$0912a9e0$c6034bd4@lucatoma>, 
tom...@newtech.it
 
says...

Potresti utilizzare la funzione IIf.
Ciao.
-- 
JBad

INSERT INTO T1 (C1)
SELECT iif ((y > 5) AND (y < 7); 2;iif ((y > 2) AND (y < 5); 1;));
Ovvero usi due iif annidati. Non ho controllato le parentesi e non mi
ricordo mai se si usino i ; o le , in mezzo a iif, visto che cambia
sempre :)
Ciao,
    Matteo
Newsgroup: it.comp.appl.access
Titolo: problemino semplice

Domando in una maschera due numeri, diciamo a e b. Poi faccio scegliere
tramite un comando "a tendina" tra tizio e caio. Se viene scelto tizio deve
succedere che
c1 = 150 - (30-a+b)
se sceglie caio
c2=150 -(40-a+b)
c1 e c2 magari li faccio calcolare in una query che mi pesca a e b ma non mi
è chiaro come fare a dirgli che a seconda della scelta di calcolare c1
piuttosto che c2.
Mi sono spiegato ?
Ciao e grazie.

 ha scritto nel messaggio
news:TNos7.957$aE.2...@news.infostrada.it...

If me.Controllo = "Tizio" then
me.C1 = 150 - (30-(a+b)) 'oppure 150 - 30 - (a+b)
else
Me.C2 = 150 - (40 - (a+b))
end if
Ricorda che Access valuta prima le somme e poi le sottrazioni.
Ciao, Carlo

Ti ringrazio domattina proverò. Il succo del problema, spero, sia
fondamentalmente questo anche se il database da fare è molto più complesso e
ha molti più parametri.

 Ricorda che Access valuta prima le somme e poi le sottrazioni.
Che differenza fa?
Sib
--



prova a fare 10-4+5 da sinistra a destra e poi prova facendo prima
l'addizione e poi la sottrazione.
Ciao.
--
Carlo Filippini
---
Fa sempre (+) 11
Antonio

 l'addizione e poi la sottrazione.
Secondo me ti confondi dal punto di vista algebrico.
Se fai prima la addizione ottieni:
-4 + 5 (ovvero) 5 + (-4) che fa sempre 1
Sommando a 10 ottieni 11.
Se tu fai invece:
4+5 (ovvero) 5+4 che fa 9 sbagli perche' stai operando come se delle
parentesi racchiudessero i due addendi nella formula iniziale, ossia come se
fosse scritta:
10 - (4 + 5)
Questa, se vuoi scriverla senza la parentesi, diventa, per effetto della
transazione del segno:
10 - 4 - 5
che e' diversa dalla tua formula iniziale e che da come risultato 1.
Ciao
Sib

 benissimo. E poi anche Access da sempre 11.
Access si comporta come tutti i programmi, esegue addizioni e sottrazioni
nell'ordine in cui le trova. In questo modo non fa altro che rispettare il
segno, che e' una qualita' del numero che segue e non solo l'operazione da
compiere tra gli addendi.
Sotto questo punto di vista potremmo pensare alle vecchie calcolatrici
meccaniche (io ne ho una) in cui l'operazione svolta e' sempre l'addizione,
ma sommando un numero negativo a uno positivo se ne ottiene la differenza.
Ergo:
10 - 4 + 5 = 5 - 4 + 10 = -4 + 5 + 10 = -4 + 10 + 5
Una delle prime leggi della matematica dice che cambiando l'ordine degli
addendi il risultato non cambia, in questo caso gli addendi sono:
5
10
-4
Sib
--
----------------------------------------------------
la mia home:
http://digilander.iol.it/syb
----------------------------------------------------
il sito comune di it.comp.database.access:
http://www.sitocomune.com
----------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente
Newsgroup: it.comp.appl.access
Titolo: TIMER che a volte va' a volte no

Su tutte le function/sub dei miei programmi ci metto un paio di righe 
che mi indicano il tempo di esecuzione
Una roba del tipo
 
Function dammi_questo_e_questaltro()as long
    T1= TIMER
    .......
    .......
    T2= TIMER
    Debug.Print "Tempo Impiegato = " & T2 - T1
    end sub
 
Bene, fino a qualche giorno fa andava tutto alla perfezione
Stamattina mi accorgo che all'interno di alcune funzioni/sub la funzione 
vba TIMER mi restituisce un bel null
E quindi la misurazione tempi si spatacca
Questo solo su alcune funzioni
Mi consigliate qualche parolina magica per capire da dove nasca 
l'anomalia e risolvere il problema?
 

RobertoA brought next idea :

Anch'io lo uso sempre e non mi è mai capitato nulla di simile.
Procedendo così:
Dim T As single
T = Timer
...
...
MsgBos Timer - T
 
Bruno


Timer restituisce un Single e va invocata come Funzione....!
 
Dim sStart As Single
sStart=Timer()
 
Per calcolare il tempo in Secondi:
Secondi=Round(Timer() - sStart, 2)
 
Nel tuo codice non si comprende bene... la definizione delle Variabili, dove viene fatta, se nella Function o se Fuori, se Private o Public... ecc... ma, da 25 anni che la uso mai mi è accaduto questo, serve evitare che ci possa essere qualche errore di sovrascrittura... e su variabili interne alla Funzione sarebbe impossibile, ma esterne... mmmm
 
@Alex


Si pure io faccio cosi
Sto controllando e sembra che ci sia un'interferenza tra l'evento Timer 
e la funzione Timer che restituisce l'orario
Da quando il flusso del codice esegue isctuzioni dentro la Form_Timer, 
la funzione Timer che uso ovunque risponde sempre null
Uso Access 2013 32 bit
Sembra una gabola di Access, si 'sconfonde' tra la sub Form_Timer e la 
funzione Timer che rende l'orario pc


La definizione T1 e T2 e' sempre interna alla funzione/sub
Quindi scope locale alla funzione
Ora prova metterci la tonda aperta e chiusa vediamo se salta fuori 
qualche variabile o campo db che si chiami timer
Newsgroup: it.comp.appl.access
Titolo: problemi con le date

Salve a tutti, ho trasferito da excel in access una serie di dati che hanno la data divisa in tre colonne diverse (g/m/a). Come posso fare a riunirli in un campo formato data? Ho gi� provato con 
g&"/"&m&"/"&a ma non funziona
Grazie in anticipo
-- 
Questo articolo e` stato inviato dal sito web 
http://www.nonsolonews.it

 Grazie in anticipo
DateSerial(.....-)
@Alex
Newsgroup: it.comp.appl.access
Titolo: Differenze

Scusate ma su 
sitocomune.com
 non l'ho trovato: quali sono le differenze
_sostanziali_ tra 97 e 2000? e c'è più differenza tra 97 e 2000 o tra 2000 e
2002?
Parlo di differenze sostanziali, non di aspetti grafici o robe di questo tipo,
non di wizard, ma di modo di trattare i dati, etc...
Grazie.
-- 
Posted from  [217.27.80.67] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 
il volume del database passa da 1 a 2 Giga.
Database tridimensionale OLAP, creazione di grafici con il PIVOT 
direttamente da ACCESS.

 direttamente da ACCESS.
Ma non c'era anche una differenza (avevo sentito dire) nella trattazione delle
tabelle o qualcosa di simile?

Newsgroup: it.comp.appl.access
Titolo: Visualizzazione condizionata in casella combinata

O.K., riposto con un oggetto, piu' specifico, anche se temo sarà comunque un
po' poco chiaro
Il mio desiderio è creare una maschera nella quale digitare prima il
cliente, con una casella a discesa che mi permette di scegliere fra tutti i
clienti, e quindi il contatto, con una casella a discesa che mi presenti
solo i contatti del cliente precedentemente scelto.
Per la prima fase non c'e' problema: ho creato una casella combinata che
prenda i dati dalla tabella clienti, visualizzando codice e ragione sociale
e memorizzando il codice; poi ho creato una query che riporta tutti i
contatti per ogni cliente, e ho messo nella maschera una casella combinata,
che prenda i dati da questa query, aggiungendo alla istruzione select che
trovo nelle proprietà/dati/origine riga la clausola where codice cliente=
casella combinata di cui sopra.
Appena entro nella maschera e seleziono un cliente, quando passo nella
casella contatti mi vengono correttamente visualizzati solo i contatti di
quel cliente, ma se torno sopra e cambio il codice cliente, quando ritorno
nella casella contatti  mi ritrovo ancora i contatti del primo cliente.
Dove sbaglio?
MI potete dare una mano (sempre che sia riuscito a spiegare il mio
problema)?
Grazie comunque

 ha scritto nel
messaggio news:ThJRb.155652$VW.63...@news3.tin.it...

Su Enter della seconda combo fai un requery
MAssimilano


Grazie, ma, se non sono noioso, mi servirebbe qualche 'indizio' in più:
cos'e' una requery.
Ti spiego: non conosco VBA se non qualche comando. Non riesco a risolvere la
cosa con le funzioni che Access mi offre con la normale interfaccia grafica?
Lo so, già altri me l'anno detto: senza VBA vado poco lontano.
Speravo di cominciare affrontando i problemi man mano che mi si presentano
(con il vostro aiuto).
Mi puoi dare qualche suggerimento più dettagliato?
Grazie
***mauro

 ***mauro
Vai nel codice
nelle combo in alto a sx trovi tutti i controlli, in quelle a dx gli eventi
Seleziona a sx la tua combo (che qui chiamiamo combo1) e a dx l'evento enter
Lui ti scrive
Private sub combo1_enter()
end sub
Questo evidentemente significa: fai quello che inseriro tra queste due righe
al verificarsi dell'enter (cioè quando il cursore ci finisce su)
me.combo1.requey
me. significa controllo presente sulla maschera a cui appartiene il presente
modulo: cioè se devi far riferimento ad un controllo su una maschera diversa
da quella attiva non lo potrai usare
requery significa aggiorna l'oggetto, che può essere controllo o form.
Una piccola precisazione: nelle tabelle e query avrai i campi, nelle form e
report i controlli, io posso gestore con controlli diversi lo stesso campo.
ciao da
MAssimiliano Nettuno


Dettagliatissimo davvero.
Grazie mille per il suggerimento e per la pazienza.
Ora vado a provarlo
***mauro
Newsgroup: it.comp.appl.access
Titolo: Creare un Modulo

Salve,
ho una maschera con un bottone "salva" il quale sull'evento onclick mi 
genera dei campi (scadenze)
attraverso questo codice:
If Me.pagamenti = "BONIFICO ANTICIPATO" Or Me.pagamenti = "BONIFICO BANCARIO 
D.F." Or Me.pagamenti = "RIM.DIR. V.F." Then
Me.scadenza_data_1 = Me.data
Me.scadenza_data_2 = Null
Me.scadenza_data_3 = Null
Me.scadenza_imp_1 = Totale_Fattura
Me.scadenza_imp_2 = Null
Me.scadenza_imp_3 = Null
'********************************************************
'INIZIO CALCOLI PER SCADENZE A DATA FATTURA
'********************************************************
'Calcolo le scadenze per i 30gg DataFattura
ElseIf Me.pagamenti = "BONIFICO BANCARIO 30GG D.F." Or Me.pagamenti = 
"
RI.BA
. 30 GG D.F." Or Me.pagamenti = "RIM.DIR. 30 GG D.F." Then
Me.scadenza_data_1 = DateAdd("w", 30, Me.data)
Me.scadenza_data_2 = Null
Me.scadenza_data_3 = Null
Me.scadenza_imp_1 = Totale_Fattura
Me.scadenza_imp_2 = Null
Me.scadenza_imp_3 = Null
'Calcolo le scadenze per i 60gg DataFattura
ElseIf Me.pagamenti = "BONIFICO BANCARIO 60GG D.F." Or Me.pagamenti = 
"
RI.BA
. 60 GG D.F." Or Me.pagamenti = "RIM.DIR. 60 GG D.F." Then
Me.scadenza_data_1 = DateAdd("w", 60, Me.data)
Me.scadenza_data_2 = Null
Me.scadenza_data_3 = Null
Me.scadenza_imp_1 = Totale_Fattura
Me.scadenza_imp_2 = Null
Me.scadenza_imp_3 = Null
........................
e via discorrendo....
Vorrei che questo codice venisse "inglobato" in un unico modulo chiamato 
"calcolo_scadenze" e poi io lo possa richiamare sull'evento del bottone...
mi spiego:
Sull'evento onclick del bottone invece di tutta la pappardella venga scritto 
solo
CALCOLO
Come posso fare?
Grazie

 ha scritto nel messaggio
news:aWkVd.331$WC1...@tornado.fastwebnet.it...

In un modulo standard o di classe del tuo database memorizza una Sub
chiamata CALCOLO che contiene il codice VBA di cui sopra e poi quando vuoi
eseguirla scrivi:
Call CALCOLO
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio 
news:4UlVd.58794$QG6.1...@twister2.libero.it...

Scusa l'ignoranza ma come faccio?
Così
Sub CONTROLLO()
..........
End Sub 

 End Sub
Sě nel caso lo metti nella stessa maschera
MAssimialino 

 ha scritto nel messaggio 
news:lyAVd.2819$tY2....@news.edisontel.com...

No la voglio mettere in un modulo
e poi richiamarlo da una maschera attraverso
Call CONTROLLO 

 ha scritto nel messaggio 
news:7CAVd.1572$WC1...@tornado.fastwebnet.it...

Allora Function o Public Sub
Se perň hai usato me. dal modulo non ti viene visto ma devi esplicitare la 
maschera
MAssimialino
Newsgroup: it.comp.appl.access
Titolo: Riprovo,eliminazione record ed archiviazione

Per eliminare dei record inseriti (con riferimento adue tabelle in relazione
1 a n), spostandoli magari in una tabella "storico" quale č il migliore
metodo. Posso pensare a strutturare una query di creazione tabella, poi una
query di accodamento e poi una query di eliminazione gestite tutte da codice
sullo stesso recordset basata magari su un controllo sě/no da posizionare
sulla forms ? Cerco di fare le cose piů semplici possibile !
Grazie
Antonio

 ha scritto nel messaggio
news:a4svqj$lmj$1...@pegasus.tiscalinet.it...

La cosa piů semplice č quella di aggiungere un campo alla tabella principale
di tipo Sě/No.
Si chiamera Storico ed č inizializzato a no. Quando vuoi mettere il record a
storico, passi il valore a sě.
Chiaramente, quando devi attingere dalla tabella principale (e quindi i dati
correlati), attingerai solo ai record con campo storico con valore no
Antonio

Newsgroup: it.comp.appl.access
Titolo: estrarre prime due lettere di un campo

ciao
sto cercando di fare una query che, estratte le prime due lettere di un 
campo, se sono "EB" allora deve scrivere Pippo altrimenti Pluto
Poi concatenerei varie combinazioni di lettere (sono finite e non variabili) 
per i vari casi in più IIf  ma per adesso sono fermo qui...
Espr1: IIf(Left$([NomeTabella];2)="EB";"pippo";"pluto")
Mi da errore ma non capisco dove. E' una query di accodamento dove il valore 
è preso dal campo Tabella1.NomeTabella e lo voglio mettere nel campo 
Tabella2.Campo1
Mi sapete dare una mano?
Grazie 1000
cio 

 ciao
mi rispondo da solo
Espr1: IIf(Left([NomeTabella];2)="EB";"pippo";"pluto")
non ci va il dollaro dopo Left!
A presto
cio
Newsgroup: it.comp.appl.access
Titolo: concatenare 2 campi in una tebella (ma non è facile)

Salve a tutti,
è da un po' che non frequento piu' il ng e quindi mi scuso se chiedo
qualcosa di già sentito. Ho questo problema; in una tabella sono stati
imporati dei dati da un file esterno in modo orribile e io devo cercare di
ricompattare due campi:
TitoloII           URL                                        TitoloI
 
www.pinco.pallino.it
               pinco
pallino
 
www.tizio.caio.it
                      tizio
caio
In pratica io dovrei riunire la prima e seconda parte del titolo nello
stesso campo,
per ottenere
TitoloII           URL                                        TitoloI
 
www.pinco.pallino.it
              pinco pallino
 
www.tizio.caio.it
                    tizio caio
Ho pensato a cose del tipo:
TitoloI & TitoloII where URL and TitoloI Is Null
ma ovviamente non è corretto perché non riesco a dirgli di prendere TitoloI
del record precedente a TitoloII.
Aiutatemi e non ditemi di reimportare i dati perché non posso.
Grazie in anticipo.
Bye
Ilaria

...

Non so esiste una soluzione più semplice comunque io utilizzerei i
recordset.
ES.
Sub MettiAPosto()
Dim rst As Recordset, titolo2 As String
Set rst = DBEngine(0)(0).OpenRecordset("TABELLA2")
Do While Not rst.EOF
    rst.MoveNext
    If Not rst.EOF Then
        titolo2 = rst("titolo2")
        rst.MovePrevious
        rst.Edit
        rst("titolo1") = rst("titolo1") & " " & titolo2
        rst.Update
        rst.MoveNext
        rst.MoveNext
     End If
 Loop
 Set rst = Nothing
End Sub
L'esempio presuppone che la tabella sia ordinata nel meodo corretto e cioè
che il record successivo contenga il titolo2 del record precedente.
Ciao Nicola


Grazie 1000, adesso provo subito.
Bye
Ilaria

 tizio caio
Con una query sulla tua tabella:
Nome_Cognome: [TitoloI]&" "&[TitoloII]
pinco pallino
tizio caio
(naturalmente saranno presenti tutti gli altri campi.)
dickie

Newsgroup: it.comp.appl.access
Titolo: memorizzare in campo memo

non riesco a salvare con una query di aggiornamento un casella di testo di
una maschera in un campo memo di una tabella predefinita
grazie
stefano

 ha scritto nel messaggio
news:IJmL5.58727$3K3.1...@news.infostrada.it...

Per quel che ne so, la query di aggiornamento registra il record e non il
campo singolo,
ma forse dovresti indicare meglio la situazione.
Comunque in alcuni casi ho risolto problemi simili con le macro in una forms
che va a memorizzare in un controllo associato al singolo campo di interesse
(macro che copia e incolla). Ripeto che non capisco bene il problema..
Ciao Vittò

 Devo memorizzare i dati presenti in una maschera, con una query di
aggiornamento in una tabella, l'operazione aggiorna tutti i campi della
tabella meno che il campo memo (errore "argomento non valido")
il comando inserito nella riga della query di aggiornamento nella riga
aggiorna a è :
[forms]![nome maschera]![nome casella di testo]
grazie
stefano
Newsgroup: it.comp.appl.access
Titolo: Eseguire query con Decode.

Ciao a tutti,
ho una serie di query scritte con SQL con il comando DECODE...
Adesso devo passarre queste query in Access come posso fare visto che con la
DECODE mi da errore?
Grazie.

 visto che con la DECODE mi da errore?
DECODE non esiste in Access/Jet ma solo in qualche altro sistema
come p.e. MySQL e Oracle. Anche in questi due sistema funzione
differentemente. Alora se è possibile di sostituire DECODE in Access
dipende di quale dialetto di SQL hai usato - gioé in quale senso hai
usato DECODE - e di quale versione di Access usi.
--
cu
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 usato DECODE - e di quale versione di Access usi.
Ciao Karl, la query che io ho è scritta per ORACLE
Uso Access97 sul mio PC, ma potrei adoperare anche AccessXP.
Ciao.

 Uso Access97 sul mio PC, ma potrei adoperare anche AccessXP.
Non ce una sostituzione esatta in Jet SQL.
Con Access per questo normalmente si usa il Select...Case...Case Else
o If...ElseIf...Else di VBA vuol dire codice.
Le possibilità di selezionare qc in Jet SQL sono SWITCH, IIF e CHOOSE.
Ma lavorono differentemente di DECODE. Vedi <F1>. In ogni caso debbi
cambiare i tuoi statement SQL.
--
HTH


 wrote in message
news:akfk0n$1hu5kc$1...@ID-46617.news.dfncis.de...

Ok.
Grazie tante Karl.


ho visto che c'e' in giro una funzione che si chiama choose 
che grosso modo.....
--
a.cara


P.S. scusa non so che effetto possa fare su un SQL 
     poi sopratutto se le tue decode (ma non credo) sono 
     sulla DUAL
--
a.cara

Newsgroup: it.comp.appl.access
Titolo: conferma campo

buona sera a tutti problemma
devo essere sicuro che un campo deve essere  compilato necessariamente, 
provo a usare il seguente codice
If Nz(Me!TELEFONO, "") = "" Then
MsgBox "digita nome"
Me!TELEFONO.SetFocus
Cancel = True
End If
mi esce msgbox per la conferma na sul clic su ok  non mi ritorna sul campo 
ma sulla macr0 di uscita
help help

 ha scritto nel messaggio
news:6Ff1f.417$TJ5....@twister1.libero.it...

Ciao Nikel52,
non ho capito  il discorso del ritorna sul campo  ma sulla macr0 di uscita
:-)
allora creati una hiddenText box su cui sposti il fuoco e poi lo risposti
sul controllo in questione.
Se fai cos' ti diventa pure "rosso dalla vergogna" per non essere stato
compilato :-)
Su lostFocus :
If IsNull(Me.TuaTextBox) Then
    Me.TuaTextBox.BackColor = vbRed
    MsgBox ("Ciccio devi compilare il campo")
    Me.TuaTextBox.BackColor = vbWhite
    Me.hiddentextbox.SetFocus
    Me.TuaTextBox.SetFocus
End If
ti consiglio di dare un'occhio akl Sc dove è stata pubblicata una faq di
@Alex che gestisce i controlli in una form sulla falsa riga dell'esempio che
ti ho postato, ma fatta molto meglio.
ciao, Sandro

 help help
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Import TXT in record MDB

Come posso importare dei file TXT, posizionati in una 
determinata
cartella, in un record di una tabella MDB.
 
Esempio: i file
pippo1.txt e pippo2.txt che stanno 
nella cartella C:\AAA importarli in
T_Clienti.
Ogni TXT e' un record di T_Clienti. 
Il file TXT e' fatto
proprio cosi':
[IDCli]106[/]
[Nome]Pippo[/]
[Cognome]Paulino[/]
[Indirizzo]Via Cassia 24[/]
[Comune]Milano[/]
[email]
pi...@tin.it
[/]
[telefono]879878878878[/]
[Provincia]NA[/]
[CAP]80024[/]
Forse la mia
domanda e' un po' complessa ma sarei
veramente grato se qualcuno mi
potesse dare una mano.
Cordiali Saluti. Marco.
mab...@NOSPAM-yahoo.it
--------------------------------
Inviato via 
http://usenet.iol.it

 Cordiali Saluti. Marco.
Ciao,
devi utilizzare le specifiche di importazione.
Dalla finestra del db tasto destro importa-----> avanzate
Ciao Alessandro

Ciao Alessandro
Ti
ringrazio ma intendevo una soluzione in VBA.
Saluti Marco.
eMail:
mab...@yahoo.it




allora vedi transfertext
se non ti va bene neanche questo vedi l'apertura di un file txt da
codice, ci son ovari metodi di apertura dello stream
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: alt tab

non riesco a far emulare alt tab .
devo passare ad un'altra applicazione aperta .
con sendkeys sembra ignorare l'operazione .
come posso fare ??

 ha scritto nel messaggio
news:39BFAD46...@libero.it...

Guarda nell'help alla voce: Istruzione AppActivate
Ciao.

 news:39BFAD46...@libero.it...




L'id di una applicazione la ricavi con Shell(); avevo fatto una sub che mi
elencava tutti i task attivi, chiaramente quando ti serve qualcosa non la
trovi mai, se hai pazienza...
Ciao.

OK ASPETTO CON ANSIA L'AIUTINO

Newsgroup: it.comp.appl.access
Titolo: Verifica per doppio inserimento non funziona

Buona giornata innanzitutto!
Ho questa istruzione che non effettua il controllo che vorrei:
 
Private Sub PROTOCOLLO_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Dim Rs As DAO.Recordset
 Dim strDlk As String
strDlk = DLookup("[PARTITA IVA]", "[ANAGRAFICA FORNITORI]", "[COD 
FORNITORE]=" & Me.[CONTO FORNITORE].Column(4))
 
Set Rs = CurrentDb.OpenRecordset("SELECT Count([PARTITA IVA]) AS Tot FROM 
[DOCUMENTI FISCALI] GROUP BY[PARTITA IVA], [FATTURA NUMERO] HAVING [PARTITA 
IVA]=" & Chr(34) & strDlk & Chr(34) & " AND [FATTURA NUMERO]=" & Chr(34) & 
Me.[NUM FT] & Chr(34))
If Nz(Rs!Tot, 0) > 1 Then
    MsgBox "Questa fattura è già stata registrata " & Rs!Tot & " volte", , 
"ATTENZIONE"
 
End If
 
While Rs.EOF
 
Exit Sub
 Wend
 
 Set Rs = Nothing
End Sub
 
Funzionava perfettamente fino a quando si attivava nel campo 
NUM_FT_AfterUpdate(), ma ora che il campo PROTOCOLLO chiave primaria, si 
popola solo dopo la seguente istruzione
Private Sub TOTALE_FATTURA_AfterUpdate()
Me.PROTOCOLLO = [ORIGINE] & "." & [PROTOCOLLO NUMERICO] & "." & 
Year([REGISTRAZIONE IVA])
End Sub
 
ovviamente il comando DoCmd.RunCommand acCmdSaveRecord non può eseguirsi.
 
Un aiutino?
Grazie
Giorgia 
 
 

 ha scritto nel messaggio 
news:jg8hc9$uq1$1...@speranza.aioe.org...

La Select Count non è una query aggiornabile, serve solo, in questo caso, a 
contare quanti record soddisfano il criterio.
Eseguirla dopo aver salvato il record non ha ovviamente senso se ho ben 
capito cosa fa il codice.
Esattamente cosa ti proponi?
Ciao,
Carlo 
 
 

 ha scritto nel messaggio 
news:jg8jjo$to6$1...@tdi.cu.mi.it...

Vorrei che mi venisse segnalato se sto inserendo una fattura già registrata.
E il controllo funzionava perfettamente finchè si trovava nell'evento 
DopoAggiornamento del campo NUM_FT ma ho dovuto spostarlo perchè 
DoCmd.RunCommand acCmdSaveRecord  non poteva eseguirsi trovando il campo 
PROTOCOLLO (che è la chiave primaria) vuoto...
 
Giorgia