mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: copia record in altra maschera

ho una maschera in cui scrivo una serie di dati in diverse caselle
di testo. Vorrei far sě che questi dati venissero automaticamente
copiati in un'altra maschera che contiene parzialmente i dati della
prima. Credo che con VBA si possa fare, ma non sono molto pratico.
Grazie a tutti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:bad2988ff6d32eb521a...@mygate.mailgate.org...

Non sono sicuro di aver capito, ma se le origini dati delle maschere sono in
qualche modo relazionate prova a guardare l'help di DLookup
Ciao,
Paolo

 ha scritto nel messaggio
news:bad2988ff6d32eb521a...@mygate.mailgate.org...

La seconda maschera si basa su un'altra tabella? Se sě, esegui una query di
accodamento che, basandosi sulla prima maschera accodi i dati sulla tabella
in questione.
Ciao, Salvatore

Newsgroup: it.comp.appl.access
Titolo: orientamento sottomaschera

Ciao a tutti
la domanda è di quelle rapide:
è possibile avere una sottomaschera in formato
foglio dati con un orientamento del tipo basso - alto
(cioè con lo spazio per il nuovo record all'inizio
della serie di record già presenti in una sottomaschera)?
sarebbe qualcosa di speculare al comando
orientamento destra - sinistra (o sinistra - destra)
presente nelle proprietà della maschera.
grazie a tutti 

 grazie a tutti
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 ha scritto nel messaggio 
news:fctj2g$4dt$1...@tdi.cu.mi.it...






grazie per la risposta precisa e concisa

Newsgroup: it.comp.appl.access
Titolo: Numero Massimo di Controlli in una maschera di Access

Salve,
č la prima volta che scrivo in un newsgroup, spero di non fare errori.
Io sto costruendo un progetto di Access (2003), collegato a un database 
MSDE2000; creando piů di 700-800 controlli in una maschera (lo so che sono 
tanti...),  esce un errore di runtime che mi avverte che non č possibile 
inserire ulteriori controlli. E' un limite di Access? Sul sito Microsoft ho 
trovato come limite (per Access 2007) il valore 754...
Maru 

 il valore 754...
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

"Marsilio" <
.tin.it...

Potresti inserire parte dei controlli in una sottomaschera.
Ciao: Oscar

 ha scritto nel messaggio 
news:66jnrlF...@mid.individual.net...


> tanti...),  esce un errore di runtime che mi avverte che non è possibile

Newsgroup: it.comp.appl.access
Titolo: Principiante - report-

Salve a tutti,
ho un piccolo db con il quale mi stampo delle fatture.
Con questo evento rendo visibile una "X" su di una casella riferita al 
trasporto.
Private Sub Report_Open(Cancel As Integer)
app = Forms("mas_vendite").trasporto
If app = "MITTENTE" Then
  XMITTENTE.Visible = True
ElseIf app = "DESTINATARIO" Then
  XDESTINATARIO.Visible = True
ElseIf app = "VETTORE" Then
  XVETTORE.Visible = True
End If
End Sub
Come posso fare ad aggiungere altri controlli...per es.
-se il cliente è "PIPPO" allora rendi visibile il controllo 1 e 2
- se il cliente è "PLUTO" rendi visibile il controllo 3 e 5.
Non so se mi son spiegato, speriamo.
Grazie a tutti 


'quì nascondi tutti i controlli
xmittente.visible=0
xdestinatario.visible=0
...
...
pippo.visible=0
pluto.visible=0
'quì accendi quelli che ti servono
select case app
    case is = "Mittente"
            XMittente.visible=-1
   case is = "Destinatario"
            XDestinatario.visible=-1
   case is ....
           ..............
   case is = "pippo"
          controllo1.visible=-1
          controllo2.visible=-1
   case is = "pluto"
         controllo3.visibe=-1
         controllo5.visible=-1
end select
se ho capito quello che intendi questo potrebbe essere il sistema.
Ciao

 Grazie a tutti
'quě nascondi tutti i controlli
xmittente.visible=0
xdestinatario.visible=0
...
...
pippo.visible=0
pluto.visible=0
'quě accendi quelli che ti servono
select case app
    case is = "Mittente"
            XMittente.visible=-1
   case is = "Destinatario"
            XDestinatario.visible=-1
   case is ....
           ..............
   case is = "pippo"
          controllo1.visible=-1
          controllo2.visible=-1
   case is = "pluto"
         controllo3.visibe=-1
         controllo5.visible=-1
end select
se ho capito quello che intendi questo potrebbe essere il sistema.
Ciao
Ciao Grazie!!
Ci provo!
Fabio

Newsgroup: it.comp.appl.access
Titolo: Copia/Incolla su maschera con campi non visibili

Mi sono accorto per caso che se favvio Copia/Incolla di una riga su una
nuova riga, da maschera continua, i campi non visibili vengono lasciati
vuoti.
E' una cosa molto grave, a meno che non ho preso un abbaglio. Come si può
evitare?
--
Ciao, Sandrobi
------------------
Se la tua email è fasulla, ti invito a leggere qui:
http://wiki.news.nic.it/AntiSpam

 ha scritto nel messaggio 
news:437f234a$0$13255$4faf...@reader2.news.tin.it...



In che modo? Con Runcommand mi pare che faccia la stessa cosa!
Sandrobi

 Sandrobi
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 No, caricando il rst peso con la pk messa in memoria
Scusa, mi puoi spiegare meglio?
Grazie
Sandrobi

 Sandrobi
Creati una funzioncina che facci aquello che vuoi
vedi qual'č il record corrente, individui la primary key
ti apri il recordset e lo incolli dove vuoi
Se hai selezionato piů record puoi usare seltop

Newsgroup: it.comp.appl.access
Titolo: Memorizzare valore casella

Salve
Ho una maschera con al'interno una casella di testo denominata:
MESSAGGIO_POSTA
su click eseguo il seguente codice:
Dim DBS As Database, rst As Recordset
Set DBS = CurrentDb
Set rst = DBS.OpenRecordset("EVENTI", dbOpenDynaset)
With rst
    .AddNew
    ![UTENTE] = Environ("Username")
    ![DATA] = Now()
    ![MESSAGGIO] = me.MESSAGGIO_POSTA
    .Update
End With
rst.Close
va tutto bene ma mi segnala errore sulla riga :
![MESSAGGIO] = me.MESSAGGIO_POSTA
non riesco a passargli il valore della casella di testo....forse la
sintassi non č giusta.....
Grazie
Ciao
Giorgio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao Giorgio,
se questa routine si trova nel codice della maschera che contiene la 
casella di testo MESSAGGIO_POSTA prova:
![MESSAGGIO] = me.MESSAGGIO_POSTA.text
se invece è da un'altra parte:
![MESSAGGIO] = Forms!NomeMaschera!MESSAGGIO_POSTA.text
non sarebbe male sapere anche l'errore segnalato.
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
http://accessdaziacin.spaces.live.com
----------------------------------------> 

 non sarebbe male sapere anche l'errore segnalato.
Ciao
la casella di testo si trova nella stessa maschera dove eseguo il codice
inserendo:
![MESSAGGIO] = me.MESSAGGIO_POSTA.text
Non funziona
l'errore che visualizza è :
ERRORE DI RUNTIME 8125
IMPOSSIBILE FARE RIFERIMENTO AD UNA PROPRIETA' O AD UN METODO
PER UN CONTROLLO A MENO CHE NON ABBIA LO STATO ATTIVO.


 Non funziona
HO SBAGLIATO:
ERRORE DI RUNTIME 2185
Scusate
Ciao
Giorgio


 --

Newsgroup: it.comp.appl.access
Titolo: Penna ottica - lettore

orrei sapere dal NS se conoscete un modo per poter collegare ad una penna
ottica un DB di Access
Grazie.

 ottica un DB di Access
Per quanto ne so, le penne ottiche piu' diffuse lavorano in emulazione
tastiera, per cui quando leggono un codice e come se tu lo digitassi.
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: ODBC, MDB e multiutenza.

Salve a tutti.
Ho letto qua e la' nel n.g. ma non ho trovato una risposta che mi
soddisfacesse.
Ho fatto un programma tipo registratore di cassa che utilizza un file
access 2000 (mdb) per registrare i pagamenti.
Mi si pone ora il problema di fornire due casse che registrano sullo
stesso file (sito in una della due casse).
Mi e' venuta in mente la soluzione ODBC su MDB.
Problema: finche' si tratta di interrogare il database per avere dei
resoconti tutto ok. Quando devo aggiungere un nuovo record la cassa che
arriva seconda si trova impossibilitata ad aggiungere la registrazione.
Errore comunicato ODBC: operazione non riuscita ( Errore '3146').
Potreste darmi qualche dritta al riguardo?
Per 'interagire' col DB utilizzo DAO e comandi diretti in SQL tramite il
metodo 'Execute'. 
Grazie a tutto il n.g.
	Mauro

 ha scritto nel messaggio 
news:pan.2005.02.01....@tin.it...

Gestisci l'errore 3146.
Per esempio aumentanto di una unità l'ID.
Ciao, Carlo 

 Ciao, Carlo
Ciao 
	Mauro
Newsgroup: it.comp.appl.access
Titolo: Differenze istruzioni esecuzioneSQL

Salve a tutti
Vorrei sapere la differenza (in prestazioni e come portabilità del codice) 
esistente tra
DoCmd.RunSQL
e
CurrentProject.Connection.Execute
quando è meglio utilizzare una piuttosto che l'altra tenendo presente che 
alcune tabelle sono in un BE access ed altre sono collegate ad un database 
esteno via ODBC.
Grazie a tutti. 

 ha scritto nel messaggio
news:45c4e031$0$36013$4faf...@reader4.news.tin.it...

Partendo dal presupposto che non si può parlare di prestazioni in questo
caso...
e sapendo che nel caso di BE(JET) o di BE(connessi via ODBC) è meglio DAO
direi che
la scelta dovrebbe cadere su una 3° opzione.
Currentdb.Execute ....
Quando parli di portabilità del codice dovresti chiarire meglio... hai
intenzione di rendelo
scalabile su altre piattaforme di sviluppo...?
Se devi rimanere su Access puoi usare Execute membro dell'oggetto Database
DAO oppure
RunSQL, ma l'uso del metodo EXECUTE membro di Connection(ADO) forse potrebbe
essere
l'ultima scelta...!
Le differenze tra i 3 sistemi sono più che altro a livello di transazioni
non di prestazioni.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


Scusa la mia ignoranza ......
Mi spieghi la differenza fra CurrentProject.Connection.Execute e
Currentdb.Execute?
Grazie 

 Grazie
ADO(per il 1°) e DAO(per il 2°) e sinceramente spiegarti la differenza č un
pň pesante...!


Newsgroup: it.comp.appl.access
Titolo: Cambio funzione su maschere e viceversa

Ho creato una maschera con due sottomaschere che agiscono su rispettive
tabelle relazionali e la maschera master e le sottomaschere sono con
proprietą dati non modificabili (solo lettura) e mi stą bene.
Vorrei perņ da pulsante di comando potere cambiare la proprietą di ogni
singola maschera o anche di tutte e tre, da sola lettura a modifica dati e
poi uscendo tornare in solo lettura. E' possibile? Come, Grazie.

 poi uscendo tornare in solo lettura. E' possibile? Come, Grazie.
Presumo ti basti accedere alla proprietà AllowEdit della
Maschera Master e delle Child.
I miei dubbi derivano dalla non conoscenza di come hai gestito
la cosa ad ora, ma ti basta un controllo Interruttore(On/Off)
e su DopoAggiornamento :
Me.AllowEdit=Me!Interruttore
Me!SubForm1.Form.Allowedit=Me!Interruttore
Me!SubForm2.Form.Allowedit=Me!Interruttore
Ovviamente ho forse un pò semplificato la cosa ma così funziona...!
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:8f25fffe26a5a2e13f...@mygate.mailgate.org...

Si mi basterebbe il codice per il pulsante della maschera master e delle
child rispettivamente, grazie.

 child rispettivamente, grazie.
E' proprio quello che ti ho scritto....!!!
Provalo.
Ciao
@ALex

Newsgroup: it.comp.appl.access
Titolo: Stampa file Pdf 2^puntata

Riposto il Msg.
Qualcuno conosce la sintassi per stampare un file pdf da VBA. Mi spiego:
conoscendo il path del file da stampare vorrei eseguire la
funzione che solitamente si ottiene tramite il tasto destro del mouse
"stampa" che stampa direttamente il file senza aprirlo.
Un grazie anticipato a chi rispondera'.
(Ma vedo che siete pochini, i guru che dicono a proposito ?).
Bye :o)

 ha scritto nel messaggio
news:J_uz8.33715$8D3.9...@news1.tin.it...

Funzione PrintAll
Buon lavoro.

 ha scritto nel messaggio
news:zbDz8.37291$W9.8...@twister2.libero.it...

Ti ringrazio della risposta ma sfortunatamente per me
l'help da access non conosce la funzione Printall
saresti cosi' gentile da darmi qualche info in + ?
grazie.
bye :o)

 bye :o)
Newsgroup: it.comp.appl.access
Titolo: ADP - Stored Procedures

Buon pomeriggio a tutti.
Come evidenziato dai miei numeroso 3D sull'argomento sto cercando di
capire qualcosa sui progetti adp. Adesso sono alle prese con le stored
procedures che un po' ho capito, usato ma mi chiedo : esiste qualcosa
tipo autocomposizione o bisogna scrivere tutto a mano ?
Esistono esempi , documentazione a proposito ?
(non ho dubbi in proposito , ma dove li trovo ?)
Grazie+
MArco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:0633e25241d174afa47...@mygate.mailgate.org...

Ciao Marco,
purtroppo autocomposizioni non ce ne sono... con le versioni piů recenti di
Access puoi costruirti alcuni tipi di SP in modo "visuale"  ma per la
maggiorparte devi andare a mano...
Oltre al BOL che ti ho indicato prima, fonte primaria di informazioni, che
andrebbe letto prima di ogni altra cosa
ti segnalo:
http://www.mssqlcity.com/Links.htm
se poi sei interessato ai problemi della sicurezza (e chi non lo č oggi?)
http://www.sqlsecurity.com/DesktopDefault.aspx
purtroppo sono tutti in inglese.... per domande specifiche su SQL Server ti
segnalo anche il ng Microsoft di SQL microsoft.public.it.sql dove una
schiera di super professionisti  sapranno risolverti anche le domande piů
difficili...
Ciao
Cinzia

 maggiorparte devi andare a mano...
Gentilissima
Ciao


Newsgroup: it.comp.appl.access
Titolo: Esportazione di un report in un file HTML

Salve a tutti
In Access2000 sto utilizzando la riga di comando
DoCmd.OutputTo acOutputReport, "nomeReport", acFormatHTML, "C:\prova.HTML"
per esportare il report "nomeReport" in un file 'prova.HTML'.
Tutto OK.
Ultimamente su alcuni pc con WindowsXP capita che il precedente comando
porta al seguente messaggio d'errore: impossibile trovare il file.
Ma il file può anche non essere presente, il messaggio compare ugualmente.
Anzi, se il file è già presente, il file viene cancellato.
Cosa succede?
Grazie


Ciao Giuliano,
probabilmente l'utente non ha i permessi necessari per scrivere in C:\
-- 
Cinzia
---------------------------------------
|  
http://www.riolab.org
  |
---------------------------------------

 ha scritto nel messaggio
news:452e0350$0$12384$5fc...@news.tiscali.it...

Newsgroup: it.comp.appl.access
Titolo: Fotografie.....

Salve a tutto il News le ferie sono finite ......purtroppo è si ricomincia
con il lavoro è che gli hobby......
Bene il problema mi è comparso dopo le ferie mi è venuta la felice idea di
crearmi un db che memorizzasse le foto...... tutto ok, ma come al solito
cerco sempre di uscire dallle norme è creare qualcosa di nuovo, ma come
sempre vado a sbattere contro un muro.
Ho creato il db,ma vorrei creare nella maschera principael un bottone di
comando che automaticamente mi caricasse la foto nel db senza doverla prima
caricare nella tabella principale, ho provato cosi...
Docmd.selectObjet,"Nomecampo","Percorso foto"......
ma sono sbatuto.....
è Possibile fare questo??
Grazie a tutti .
Gianni.

...

Se fossi in te scaricherei anzitutto dal s.c. gli esempi di gestione immagini: sono molto semplici
però ti indirizzano in maniera (+/- poi dipende dalle vedute) giusta.
Ciao, warp

 ha scritto nel messaggio
news:akl5sk$on4$1...@fe1.cs.interbusiness.it...

Grazie , Warp ma sono andato a vedere non è che in fondo ci ho capito
niente.........
Ciao Gianni.

 ha scritto nel messaggio
news:3d6e1...@news.bluewin.ch...

Caro Gianni,
dovresti usare la funzione commondialog che gestisce le finestre "Apri File"
di windows. Da li selezionarti il file da riportare come stringa di testo da
immagazzinare in una tabella .
La stringa poi la devi utilizzare con la proprieta  .picture che ti carica
l' immagine dalla stinga corrispondente:
es
me.oggetto.picture= casella di testo dove si trova la stringa
Mi sembra(correggetemi se sbaglio) che sul sito c'è un esempio che utilizzi
il modulo commndialog.
Fammi sapere se lo trovi se no ti devo postare magari quello che utilizzo io
quando mi libero un attimo.
Ciao
Mak
P.s Saluti anche da parte mia a tutti quelli che hanno finito le ferie e
hanno 2500 messaggi da rileggere.

niente.........
Dedicaci un pò di tempo, vedrai che non sono niente di che...
Newsgroup: it.comp.appl.access
Titolo: Duplicati

Ciao Ng, ho due tabelle, ognuna delle quali contieno un campo "numero",
nelle tabelle ci sono dei valori, non presenti nell'altra tabella od anche
presenti
Come posso fare ad unire i queste 2 tabelle in una sola, ma non avendo
valori doppi?
Esempio
Tab 1
1
5
6
7
8
9
10
Tab 2
1
5
10
11
18
90
45
35
Dovrei ottenere tab 3 con solo questi valori: 1,5,6,7,8,9,10,11,18,90,45,35.
(1,5,10 Sono doppi, e vanno riportati una sola volta e non due).
Come posso fare?
Scusatemi se non mi sono spiegato bene, ma č piu difficile da dire che da
fare.
Grazie Nadir

 Grazie Nadir
Se il campo si chiama Numero e le due tabelle si chiamano rispettivamente
Tab1 e Tab2, creati una query unione che abbia il seguentw codice SQL:
SELECT Tab1.Numero
FROM Tab1
UNION SELECT Tab2.Numero
FROM Tab2;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 valori doppi?
SELECT Tabella1.numero FROM Tabella1
UNION
SELECT Tabella2.numero FROM Tabella2
WHERE NOT (Tabella2.numero IN
(SELECT Tabella1.numero FROM Tabella1));
--
Matteo Palmieri
Cybercreations - 
www.cybercreations.it
Newsgroup: it.comp.appl.access
Titolo: Report\Stringhe nel registro di configurazione

Curiosando qua e la per il registry ho notato sotto
HKEY_LOCAL_MACHINE\Software\Microsoft\Office\9.0\Access\ReportFormat  le
seguenti stringhe:
HTML                                   html,SOA_RptToHtml,1,HTML (*.html),1
MICROSOFT EXCEL          xls,SOA_RptToBIFF, Biff5,Microsoft Excel (*.xls),0
MS-DOS Text                       txt,SOA_RptToAscii,1,MS-DOS Text (*.txt),0
Rich Text Format                   rtf,SOA_RptToRTF,Rich Text Format,Rich
Text Format (*.rtf),0
Snapshot Format                    snp,,1,Snapshot Format (*.snp),0
Sembrano quasi quasi le opzioni con le quali Access ti consente di salvare o
esportare i record.
Prima di tentare...qualcuno ritiene che inserendo dei riferimenti che ne so
a Word o Acrobat si riesca a salvare anche in altri formati???
E se si ci dovrebbero essere altri interventi nel registry?
Qualcuno ci ha mai provato??
Ciao a tutti e grazie
Eddie

 Eddie
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------

 funzia.
Che pirla......non ci avevo pensato che sono le librerie a fare le
conversioni...pero' sai come spesso accade con winzozz, sembra che una cosa
non si possa fare di default, poi se ci arrivi da un'altra parte riesci.
Mi chiedevo se ci fosse qualche settaggio nascosto che impedisse il
salvataggio in .Doc.
Pare che nella prossima versione sia possibile, ma non ho voglia di spendere
2 miliones, sopratutto non ho voglia di sottostare al nuovo IdKey
Registration
Grazie
Eddie


 salvataggio in .Doc.
Secondo me hai dato troppo ascolto agli utenti "SOLO LINUX".
Windows avra' anche i suoi difetti, ma non si e' mai sentito parlare di
settaggi nascosti, e poi le cose o si possono fare o non si possono fare,
non e' che le fai o non le fai di "default".
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


  Hai RAGIONE :-))
  Visto che mi sto divertendo con linux e (dio bono) se conosci anche un po
di C te la cavi che è una
  meraviglia e ti sembra di poterci fare quello che vuoi, ogni tanto tendo a
comportarmi allo stesso modo con
 Windows.Permettimi pero' di contraddirti su una cosa.
Non è vero che windows non ha dei settaggi nascosti: Se conosci a MENADITO
il registro non li ha, ma se non sai come
metterci le mani windows non ti permette di modificare tante tante tante cos
e.
Se sei solo un utente ti becchi quello che windows ha impostato che tu possa
fare. Non credi???
Ciao
Eddie
Newsgroup: it.comp.appl.access
Titolo: barra superiore

ciao a tutti, c'è un modo per escludere il funzionamento dei tasti in alto a
dx della finestra principale di access? praticamente quello di
ingrandimento, riduzione e chiusura? non quelli della finestra interna, sia
chiaro ma quelli della finestra di access, quella principale. grazie a tutti

 ha scritto nel messaggio
news:H6Mf9.82957$ub2.1...@news1.tin.it...

Direi che una soluzione potrebbe essere quella di aprire le maschere in
modalità pop up e a scelta obbligatoria.
Se ti servono informazioni, fammi sapere.
RB

Newsgroup: it.comp.appl.access
Titolo: importazione dati da VB

salve, in un progetto particolare ho la necessità di importare dati da un
file non sequenziale, quindi ho scritto codice in VB.
La stringa che mi interessa importare in una tabella access 2k è composta
SEMPRE da 4 lettere e 7 numeri, quindi il codice è :
        If Format(Left(v2, 4), "@@@@") & CStr(Val(Right(v2, 7))) = v2 Then
        etc...etc
ho notato che se il numero comincia da zero non mi importa la stringa.
Ho provato anche con CDbl ma non cambia, qualcuno ha qualche suggerimento ?
Grazie anticipatamente

per meglio comprendere...la sub completa è :
Dim v1 As String
Dim v2 As String
Dim mysql As String
    If Mid(txtRec2, 12, 1) <> " " Then Exit Sub
    If Mid(txtRec2, 24, 1) <> " " Then Exit Sub
    v2 = Trim(Mid(txtRec2, 13, 11))
    If Len(v2) = 11 Then
        If Format(Left(v2, 4), "@@@@") & CStr(Val(Right(v2, 7))) = v2 Then
'Ex Val
        v1 = txtRec1
            mysql = "insert into [P-C_Import_ASCo] (pc,ct1) VALUES (" &
Apici(v1) & "," & Apici(v2) & ")"
            DoCmd.SetWarnings False
            DoCmd.RunSQL mysql
        End If
    End If

ho notato
che se il numero comincia da zero non mi importa la stringa.
.
Al posto
del CStr prova ad utilizzare il Format$
Format$(Right(v2, 7), "0000000")
.
OndaMax
--------------------------------
Inviato via 
http://usenet.iol.it
 

 wrote in message
CJGj8.61984$Ns4.2...@news2.tin.it...

NoBuono= false
for i = 1 to len(v2)
  if i <= 4 and isnumeric(mid(v2, i, 1)) then
    NoBuono = true
    exit for
  end if
  if i > 4 and not isnumeric(mid(v2, i, 1)) then
    NoBuono = true
    exit for
  end if
next i
if NoBuono = false then 'importa la stringa
Antonio
Newsgroup: it.comp.appl.access
Titolo: arrotondamento_solo_per_difetto

è possibile arrotondare alle 100lire solo per difetto
100.456 --- 100.400
345.889 --- 345.800
avete qualche idea da suggerirmi
ciao,Paolo

 ha scritto nel messaggio
news:lgX86.202$sn5....@twister1.tin.it...

Guarda il 3d 'Arrotondamento' del 5/1 di Claudia G
Ciao
LaLo

 345.889 --- 345.800
x = x-(x-int(x))
Lo so, lo so: č contorta...
Paolo

 wrote in message
JIY86.2721$em1.1...@news.chello.be...

Piů che altro č sbagliata: quei punti sono proprio punti, non virgole, non
abbiamo decimali...
Antonio


Piů che altro toglie i numeri dopo la virgola e non arrotonda alle centinaia
per difetto.
Ciao
LaLo

 wrote in message
lgX86.202$sn5....@twister1.tin.it...

Int(100456/100)*100
Ciao
Claudio

Grazie, ho visto il post e risolto il problema
ciao,Paolo

 abbiamo decimali...
Mi sa che hai ragione: io per lavoro ho la configurazione colla virgola per
le migliaia e i punti per i
decimali e ho visto fischi per fiaschi.
Allora la formula dovrebbe essere int(x/100)*100
Come?... E' contorta?!?!......
Paolo

 Come?... E' contorta?!?!......
C'è di peggio...
Antonio

Newsgroup: it.comp.appl.access
Titolo: Colore sfondo casella combinata

Come posso impostare automaticamente il colore di sfondo di una
casella combinata (all'interno di una maschera)a seconda che la
colonna associata della combo contenga il valore numerico 1, 2 o 3?
grazie



su access00 vedi formattazione condizionale su combo...
o via codice vedi istruzione if then e proprietą back color (colore di
sfondo
Saluti.
Emanuele.

On 9 Jan 2002 02:59:13 -0800, 
med...@lombardiacom.it
 (Ezio) wrote:

Forse con FORMATO  - Formattazione Condizionale , se hai solo tre
valori.
Oppure con SELECT CASE e impostando forecolor e backcolor, tipo se x =
1-> forecolor xxxx e backcolor yyy
2> etc
Max

Newsgroup: it.comp.appl.access
Titolo: Maschere in funzione dell'utente

    Ciao a tutti. C'è la possibilità di aprire una stessa maschera e
nascondere i campi a secondo dell'utente che entra nel DB ?
    Grazie antivipatamente
--
Ferrante Luigi

 wrote in message
news:XMw88.36537$om6.9...@news1.tin.it...

Certo che si.
Devi però obbligare l'utente ad effettuare un LOGIN e in seguito
fare la gestione UTENTI.
All'apertura della Form verifichi l'utente e la relativa autorizzazione
e applichi il criterio a i controlli.
Io ho una Tabella nel BE "Login" in cui ho inserito KRIPTATI 3 campi
1)NumeUtente
2)Password
3)TipoAutorizzazione
In base a queste faccio +/- tutto.
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Funzionamento di RUNSQL

SELECT Count(anagrafe.codice) AS numcli, settori.descrizion
FROM anagrafe INNER JOIN settori ON anagrafe.settore = settori.codice
WHERE (((anagrafe.codice) Like "C*" And (anagrafe.codice) Not Like
"*L"))
GROUP BY settori.descrizion
ORDER BY settori.descrizion;
Ho tentato di trasformare questa select in un formula, x averla a
portata di mano senza richiamare sempre la query ed ho provato con
Runsql; ho sbattuto il naso contro una miriade di errori.
Non conosco il linguaggio sql di solito mi limito a creare query con
la visualizzazione struttura (infatti ne ho troppe), avete una dritta?
Grazie.


Scusatemi, è una query di selezione, ed un vecchio post di Roberto
 (solo le query di comando possono essere eseguite con il metodo
RunSQL)
mi ha già risposto.
Sono troppo ignorante!
Giuro che mi stampo questa e la studio
http://www.accessgroup.it/Bld_HTML/home.asp
(nei preferiti l'ho rinominata tempo fa "guida oro!").
Ciao

Newsgroup: it.comp.appl.access
Titolo: pulsante per creare collegamenti

ho letto su qst ng varie soluzioni.anche sul sito comune ma non sono
riuscito a trovare niente che f al mio caso.
il problema è il seguente.fatto una tabella con un semplice id aggiungo tipo
5 campi (coll.ipertestuale).
nella ispettiva maschera inserisco tutti e 5 i campi con affiancati 5
pulsanti.vorrei ke quando clicco sul pulsante mi si apra il classico sfoglia
di win e mi inserisca il collegamento al file scelto.una volta inserito
cliccando sul campo direttamente dovrebbe aprirsi la foto,il txt o l'exe su
cui ho creato il colleg.
al momento ho fatto i 5 campi come oggetto ole 5 nella maschera clicco con
il tasto desto per sceglierre coll.ipertestuale .ecc.ecc.
la mia soluzione mi sembra scomoda banale e lontana dalla scelta
giusta.ditemi voi
c'è il modo di fare una macro o qlcs del genere.
vi ringrazio
ps.vi
 anticipo ke non conosco affatto vb,per mia sfortuna...ciao

 ha scritto nel messaggio
news:W3kEc.26289$GQ3.6...@twister2.libero.it...

Ho risposto al tuo precedente messaggio, però senza VBA con Access non si va
molto lontano.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:qHtEc.27234$c_1.8...@twister1.libero.it...

si scusate per la replica ma ho vuto un problemino con internet e non c'ho
capito molto.grazie..

Newsgroup: it.comp.appl.access
Titolo: somma per data.

Non ho capito: mi faresti un esempio concreto sia per le query sia per VBA.
GRAZIE


es.
tabella1
campo: data  -> data/ora
campo: importo -> Valuta
SELECT datepart("m",data) as mese, sum(importo) as totaleMese
FROM tabella1
GROUP BY datepart("m",data)
ciao
Andrea Papi 

 grazie, appena avrň un pň di tempo per provare ti farň sapere se sono
riuscito
Lino
Newsgroup: it.comp.appl.access
Titolo: Troppi Iif Concatenati

ciao
ho una query  contenente 14 IIf Concatenati e mi dice Espressione troppo 
complessa... Come posso fare ad aggirare il problema? Devo fare un modulo 
Case?
L'espressione è di questo genere:
Espr1: IIf(Left([NomeTabella];2)="AA";"PIPPO"; 
IIf(Left([NomeTabella];2)="BB";"PLUTO"; 
IIf(Left([NomeTabella];2)="CC";"PAPERINO";eccetera...
Le parentesi finali sono giuste, mi dice solo che è troppo complessa...
Grazie 1000
cio

 ha scritto nel messaggio news:gf91e2$c62$1...@aioe.org...

Guarda nell'help la funzione Switch

 ha scritto nel messaggio news:gf91e2$c62$1...@aioe.org...

Creati una funzione dove gli passi il nome del campo come parametro e gli 
fai restituire la stringa che ti serve:
es.
Function Paperopoli(chi as String) As String
    Select case chi
        case "AA"
            Paperopoli = "PIPPO (non c'é)"
        case "BB"
            Paperopoli = "PLUTO (neanche lui)"
        case "CC"
            Paperopoli = "PAPERINO (sì)"
        case Else
            Paperopoli = ""
    End Select
End Function
Nel campo ci scrivi:
nomeCampo: Paperopoli(Left([NomeTabella];2))
Ciao.
-- 
Sergio MAZZA 

 fai restituire la stringa che ti serve:
ciao
ho fatto cosě, ma ho fatto fare il left al modulo, funziona lo stesso e ho 
scritto nel campo Paperopoli([NomeTabella]) direttamente, funziona che č una 
meraviglia!! Grazie 1000
cio
Newsgroup: it.comp.appl.access
Titolo: Formattazione Condizionale non perfetta con A2003

Salve a tutti.
Ho applicato colori di sfondo e colori di testo diversi a seconda del
contenuto,  a delle caselle di testo in maschera  continua: tutto bene con
A2000
finchè non ho fatto girare il file sotto A2003: all'apertura della maschera
le caselle con formattazione condizionale non si vedono neanche!, poi, con
il passaggio del mouse su
queste caselle piano piano il loro corretto contenuto appare , altrimenti
sono
lampeggianti e con colori stranissimi .
Mi potete aiutare?

Gaetano Di Zanni ha scritto:

http://support.microsoft.com/?id=555033
-- 
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 ha scritto nel messaggio
news:2g0sjhF...@uni-berlin.de...

Grazie Tantissime, Karl!
Ti sono veramente grato, ma puoi cortesemente tradurre in italiano quanto
dice la Microsoft?
Grazie ancora.

 Grazie ancora.
Karl fa già tantissimo, non chiediamogli pure questo.
Sintomo
quando aprite una maschera che contiene un controllo con formattazione
condizionale in formato continuo o foglio dati, la maschera va in un un
loop infinito di redraw/repaint.
Soluzione
1.Apri la maschera in struttura e assicurati che il controllo con
formattazione condizionale non tocchi o si sovrapponga ad un altro
controllo. 
2. Se la prima soluzione non elimina il bug, controlla l’Origine del 
controllo. Se esso è un'espressione, passala ad una query utilizzata quale
Origine record della Maschera, creando un nuovo campo nella query.
Utilizza questo nuovo campo come Origine del controllo con formattazione
condizionale. Esempio: se la l’Origine è "= Date ()", apri la query usata
come Origine Record della maschera e crea un nuovo campo: "MyDate":Date()"
nella query. Nel controllo con formattazione condizionale, scegli "MyDate"
come Origine( invece di "=Date()" ). Nota: se l’Origine Record della
maschera è una tabella, crea una query basata sulla tabella e aggiungi il
nuovo campo alla query.
3. Se non è possibile inserire l’espressione nella query di origine, forza
un ricalcolo immediato utilizzando il seguente codice sull’evento Activate
della maschera:
Private sub Form_Activate
Me.recalc
End Sub
--
rgrds
SC
-- 
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:c7fpn0$3ei$1...@news.newsland.it...

GRAZIE TANTISSIME!!!
Newsgroup: it.comp.appl.access
Titolo: problema strano con date in query

ho la seguente SQL che mi da strani problemi:
UPDATE [R CartellenonNotificate - accompagnatorie] SET [R
CartellenonNotificate - accompagnatorie].DataScadenzaNotifica =
DateSerial(Year(Date()+30),Month(Date()+30)+1,-1)
WHERE ((([R CartellenonNotificate -
accompagnatorie].DataScadenzaNotifica)<Date()));
mi da il seguente errore: "espressione non digitata correttamente o troppo
complessa ecc...."
la cosa mi sembra dovuta al fatto che la tabella che contiene il campo
DataScadenzaNotifica è una tabella collegata di MySql
qualcuno sa darmi qualche spiegazione o qualche soluzione alternativa
ciao a tutti
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


era un problema con un tipo di campo di mysql che invece di int era
smallint. il campo che era interessato non era ovviamente
DataScadenzaNotifica che è impostato come data.
ciao a tutti e scusate per l'eventuale disturbo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.appl.access
Titolo: scusate :  ancora sui recordset

 
Set rstMag = CurrentDb.OpenRecordset("select descrizione,cod_nazione from
t_magazzino", dbOpenDynaset, dbReadOnly)
MsgBox strsql
rstMag.MoveFirst
Do While Not rstMag.EOF
    MsgBox (rstMag.RecordCount & " " & rstMag.Fields(1) & " " &
rstMag.Fields(2))
rstMag.MoveNext
Loop
rstMag.Close
Il codice mi da' un errore nella stampa di rstMag.Fields(2)
cioč, se voglio stampare solo il primo campo non ci sono problemi
ma all'aggiunta del secondo mi dice che non trova l'elemento
Dove e' l'errore?
Grazie
Gino
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Gino
L'indicizzazione dei campi del recordset comincia da zero, per cui l'indice
fields(2) corrisponde al terzo campo, ma nel tuo recordset ce ne sono solo
due. Ti consiglio però di usare una sintassi più leggibile, ad es:
rstMag!descrizione & " " & rstMag!cod_nazione
Ciao
Galliano.

Newsgroup: it.comp.appl.access
Titolo: Creare una maschera per le ricerche....

Sto realizzando un archivio di una piccola biblioteca (5000 titoli
circa) ed ho il problema di realizzare una maschera che consenta
ricerche anche sulle stringhe e parti di stringhe. La funzione filtro
in base a maschera che già esiste è un po' macchinosa ed inoltre di
non immediato utilizzo per persone digiune di computer. Nessuno ha un
po' di codice d'esempio che possa adattare al mio database?
Grazie 

 wrote in message
news:1a6i7to8qdmejdnuh...@4ax.com...

Hai due strade: una query con condizione "where miocampo like '*testo*'" o
usare la funzione instr(). Dipende da come hai costruito la tua maschera.
Saluti.
lucia...@sitocomune.com

 ha scritto nel messaggio
news:1a6i7to8qdmejdnuh...@4ax.com...

Prova a dare un'occhiata alla soluzione che ho dato ad alnor nel thread
"Filtrare con parole chiave" da lui aperto il 29/01/2001 alle 13:01, magari
ci trovi delle idee.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: eseguire due istruzioni  Left Outer Join

una query sulle vendite mi stampa gli articoli completi di descrizione 
(memorizzata
nella tabella magazzinoarticoli )  tramite l'istruzione:
TabellaVendite  LEFT OUTER JOIN   magazzinoarticoli  ON
tabellavendite.Articolo = magazzinoarticoli.codice   ;
un'altra query mi estrae i colori disponibili ( memorizzati in tabella
magcolori) :
magazzinoarticoli  LEFT OUTER JOIN MagColori ON MagColori.CodiceArti
==magazzinoarticoli.codice
Posso annidare  ( o concatenare )le due query e stampare così  gli articoli 
con la
descrizione e il colore ?
Ho provato la seguente QUERY , ma stampa sempre e solo  il primo
colore che trova nella tab. magcolori , per tutti gli articoli:
TabellaVendite  LEFT OUTER JOIN  (magazzinoarticoli  LEFT OUTER JOIN
MagColori ON MagColori.CodiceArti ==magazzinoarticoli.codice ) ON
tabellavendite.Articolo = magazzinoarticoli.codice
Grazie per eventuali suggerimenti
Ciao

"Micky"  ha scritto nel messaggio news:imau9m$6l4$1...@nnrp-beta.newsland.it...
una query sulle vendite mi stampa gli articoli completi di descrizione
(memorizzata
nella tabella magazzinoarticoli )  tramite l'istruzione:
TabellaVendite  LEFT OUTER JOIN   magazzinoarticoli  ON
tabellavendite.Articolo = magazzinoarticoli.codice   ;
un'altra query mi estrae i colori disponibili ( memorizzati in tabella
magcolori) :
magazzinoarticoli  LEFT OUTER JOIN MagColori ON MagColori.CodiceArti
==magazzinoarticoli.codice
Posso annidare  ( o concatenare )le due query e stampare cosě  gli articoli
con la
descrizione e il colore ?
Ho provato la seguente QUERY , ma stampa sempre e solo  il primo
colore che trova nella tab. magcolori , per tutti gli articoli:
TabellaVendite  LEFT OUTER JOIN  (magazzinoarticoli  LEFT OUTER JOIN
MagColori ON MagColori.CodiceArti ==magazzinoarticoli.codice ) ON
tabellavendite.Articolo = magazzinoarticoli.codice
Grazie per eventuali suggerimenti
Ciao
___________Risposta:
(T1 LEFT JOIN T2 ON T2.campo = T1.Campo)
LEFT JOIN T3 ON T1.campo = T3.Campo
MA

 MA
grazie

Newsgroup: it.comp.appl.access
Titolo: Problema con un criterio in una query

Non sono tanto esperto di access e ho bisogno di un consiglio su una query
di un database da me ideato.
Ho creato una query con un criterio  [forms]![nome maschera]![nome campo]
che mi filtra i dati in base ad un dato immesso nel campo della maschera. Il
problema è che con questo criterio mi viene filtrato solo il dato richiesto
io vorrei che eventualmente digitando * mi filtrasse tutti i dati, e che
scrivendo solo una parte del dato (es 12), nel campo, mi filtrasse tutti i
dati che contengono quella parte ( es. 1200 0412, 56129 ecc..).
Ciao.

 ha scritto nel messaggio
news:DxL%b.46263$IT2.1...@news4.tin.it...

Nel criterio della query scrivi:
Like "*" & [forms]![nome maschera]![nome campo] & "*"
Ciao
Salvatore
Newsgroup: it.comp.appl.access
Titolo: Cespiti e Ammortamenti !

Buongiorno a tutti
Ho il seguente "problemino" e magari saprete darmi un mano a risolverlo.
Piano piano sto elaborando un sistema in Access che, utilizzando DB di un
software gestionale, mi da dei risultati esteticamente migliori e
soprattutto facilmente variabili in base alle necessità.
In questi giorni sono arrivato ai "cespiti" e relativi "Ammortamenti".
Nella tabella DB originaria ho:
Anno Acquisizione del cespite
Valore iniziale
Quote di ammortamento annuo
La mia domanda a cui spero possiate dare risposta:
Ho la necessità di avere una tabella in cui:
               ... 97 98 99 00 01 ...
Cespite A   20 20 20 20
Cespite B   10 10 10 10 10
Cespite C   30 -- -- -- --
Cespite D   -- -- -- -- --
Avrei inoltre necessità che si possano vedere in report solo i primi 5 anni
da oggi e i successivi 5.
Scusate se sono stato troppo lungo nell'esporre e soprattutto nel caso fosse
troppo complesso, un grazie come se fosse cosa fatta :-)
Grazie e buona Pasqua.
Luigi


wrote:
Quello che ti serve è una query a acampi incorciati.Puoi usare i
valori di descrizion del Cespite:>Cespite A,Cespite B e così via come
riga,l'anno come colonna e il valore come valore.
Per il rport puoi applciar eun filtro sulla query a campi incorciati
del tipo:
between (year(date())-5) AND (year(date())+5) 
Ciao


Grazie lo collaudo subito :-)
Buona Pasqua
Luigi
Newsgroup: it.comp.appl.access
Titolo: non trova il modulo

Ciao a tutti e buon rientro.
Ecco il mio problema.
Il mio solito DB, č un mese che ci lavoro.
Dovevo fare delle modifiche al mio programma, perchč richieste.
Prima di rivoluzionare il tutto ho fatto una copia del DB.
Quindi ora mi ritrovo con un DBvecchio che continua a funzionare.
Quello nuovo invece crea dei problemi.
1)I pulsanti di comando non aprono piů le maschere, mi compare una scritta
con la dicitura "Impossibile trovare il modulo".
2)Se voglio usare l'autocomposizione pulsante di comando, mi lascia seguire
tutta la procedura, ma poi il pulsante non funziona. Stessa scritta di
prima.
Le modifiche apportate andavano a toccare solo una maschera (che ho
eliminato) ed alcune query.
Non ho cambiato i nomi di nessun oggetto, ho solo aggiunto alcuni calcoli.
Ho preferito farlo su una copia del DB per evitare problemi.
La Maschera1 eliminata, era la copia perfetta di un'altra, con dei parametri
di ricerca
Non dovendo utilizzarla piů ho eliminato la query e la relativa Maschera1.
Ma una volta avviato il DB, aprendo altre Maschere, continua a dirmi che
esiste anche una Maschera1 che non viene piů trovata. Ma io dico cosa vuole,
questa era una Maschera fine a se stessa, doveva solo indicarmi una lista di
dati e basta, non interagiva con niente altro.
Sono andata a vedere la lista delle Form, e qui sorpresa ritrovo il nome
della mia Maschera1 cancellata.
Cercando di visualizzarla, ovviamente non trovo niente. Dove cavolo ho
sbagliato, o forse cosa non ho cancellato.
Grazie anticipatamente a chi legge questo papiro.
Saluti Alessia
PS. Ringrazio tutti quelli che hanno risposto alle mie altre richieste e che
io probabilmente ho dimenticato di rispondere.

"Alessia" disse
[cut]

[cut]
La spiegazione non e' particolarmente chiara, comunque se "non trova il
modulo" vuol dire che non lo trova, quindi:
1) Verifica il codice collegato all'evento SuClick dei pulsanti che non
funzionano
2) Verifica di non avere usato nomi di funzione duplicati o nomi riservati
di Access
3) Compatta e ricompila tutti i moduli
4) Se tutto questo non porta a nulla l'ultima spiaggia č creare un nuovo db
vuoto, importare tutti gli oggetti e ricompilare tutti i moduli.
Tutto questo sempre ammesso che il codice del db non contenga errori.
Ciao, Sib
Newsgroup: it.comp.appl.access
Titolo: Errore operatore mancante nell' espressione - un dramma

Private Sub MostraRecord_Click()
Dim rst As DAO.Recordset
    Set rst = Forms!MascheraAziende.RecordsetClone
    rst.FindFirst "PIVA = " & Elenco0
    Forms!MascheraAziende.Bookmark = rst.Bookmark
    DoCmd.Close acForm, "MscCercaAzienda"
End Sub
Questa č la riga di codice incriminata
rst.FindFirst "PIVA = " & Elenco0
mi viene segnalato l' errore
"operatore mancante nell' espressione"
Ma non riesco a capire cosa manca...
Se posiziono il cursore de mouse su Elenco0 mi fa vedere il valore che
ha in quel momento, mentre sul campo PIVA no.
Cosa posso fare?
Geazie mille

 rst.FindFirst "PIVA = " & Elenco0
Il campo partita iva sarà sicuramente testuale e non numerico, quindi prova:
rst.FindFirst "PIVA = '" & Elenco0 &"'"
Ciao
Davide
-- 
http://www.gestionedati.com
"...perchè non esistono saggi per nascita."
(Ptahhotep, 2640 ac) 

Davide
Grazie non ci avevo pensato....
Newsgroup: it.comp.appl.access
Titolo: gestione formattazione condizionale con codice

nella formattazione condizionale le condizioni possono essere al
massimo 3.
Se voglio aumentarle dovrei gestire tutto via codice, ma come posso (se
si può) farlo?
Cioè quale evento posso sfruttare?
grazie

 grazie
Guarda nei post precedenti se n'č parlato anche la settimana scorsa
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

grazie
Prego
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

in un report....

 in un report....
A fronte dell'evento "Su formattazione" della sezione che contiene la
casella di testo da formattare verifica con delle If il valore della casella
di testo ed in base all'esito dei confronti imposta il colore, lo stile, il
corpo, il font e quant'altro ritieni opportuno per formattare a tuo
piacimento la casella di testo.


scusa se rompo con cose imbecilli...
ma non riesco a capire come cambiare lo sfondo della casella di
testo!!!
nome.casella.di.testo.___________    non trovo da nessuna parte
fillcolor...
(scusa ma non ho la guida in linea... avevo un manuale ma l'ho prestato
e non è più tornato)

cioè io su format ho inserito quest'if
If SommaDiDurata > 5 Then
  Me.SommaDiDurata.
End If
ma non so più continuare....
Inoltre sommadidurata è un campo che deriva dal raggruppamento di vari
record e nè è la somma...
Quindi nn va bene per i miei scopi perchè il controllo dev'essere
effettuato sulla somma finale...


me.tuocontrollo.backcolor = Rgb(0,0,0)


effettuato sulla somma finale...
Spero che ti sia capito da solo, di certo io non ho capito nulla di questo
tuo ragionamento; visto che questo codice VBA lo devi generare a fronte
dell'evento "Su formattazione" della sezione del report che contiene la
casella di testo SommaDiDurata, il confronto verrà fatto subito prima della
sua stampa e se la stampa avviene nel pié di pagina report il confronto
secondo me avverrà sul totale finale come serve a te.


ci rinuncio...
tutti i campi sommadidurata diventano rossi se solo una volta la
condizione è verificata...
grazie lo stesso


non rinunciare
sommadidurata è presente nella query? o lo fai solo a livello di maschera?


 ha scritto nel messaggio
news:NM0hf.50745$65.14...@twister1.libero.it...
[CUT]
Dimenticavo di ripristinare lo sfondo nel caso in cui non si verificasse la
condizione; prova cosě:
If Me!SommaDiDurata > 5 Then
    Me!SommaDiDurata.BackColor  = 255
Else
    Me!SommaDiDurata.BackColor  = 16777215
End If
altrimenti dopo la prima volta in cui si verifica la condizione lo sfondo di
quella casella resterebbe sempre rosso.


grazie lo stesso


grazie roberto e ma...
ho risolto tutto...
siete grandi!
ciao
Newsgroup: it.comp.appl.access
Titolo: Controllo su esistenza di un file

Come posso fare per verificare se un file, che passo come parametro ad un
eseguibile, esiste sul disco prima di lanciare l'esecuzione?
Ho un bottone che lancia, all'interno di un archivio di files, la
visualizzazione di tali files word. vorrei implementare un controllo che
verifica la reale esistenza del file prima di lanciare MS word con il file
come parametro.
ES: nome del file = pippo.doc
sse esiste "c:\pippo.doc" allora esegui "c:\programmi\office\msword.exe
c:\pippo.doc"
grazie in anticipo.
Arrigo

 eseguibile, esiste sul disco prima di lanciare l'esecuzione?
Usa FileSystemObject.
Un esempio:
Public Function TestFile(strFilePath) As Boolean
    Dim oFSO As FileSystemObject
    Set oFSO = New FileSystemObject
    TestFile = oFSO.FileExists(strFilePath)
    Set oFSO = Nothing
End Function
La funzione restituisce True se il file passato come parametro esiste oppure
False se non esiste...
--
Matteo Palmieri
Cybercreations - 
www.cybercreations.it

 come parametro.
[...]
    In generale:
        If (Len(Dir(nomefile))=0) Then
            ' nomefile NON esiste.
        Else
            ' nomefile esiste.
        End If
    Riguardo invece la questione dell'apertura di file Documenti di Word
penso ti convenga sfogliare l'archivio del ng sul Sito comune o su Google:
 
http://www.sitocomune.com
 
http://groups.google.com
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------