mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: modifica del MSG di errore predefinito

ho letto da qualche parte che è possibile modificare il messaggio di errore
quando, inserendo un record da una mascera da il messaggio chiave ripetuta
oppure manca il riferimento nella tabella principale
p.e.
tab  ANAGR chiave codice
tab. AZIANDA chiave idazienda
tab  PRESENZE chiave =>data ;tipo presenza;codice;idazienda
se inserisco nella tab PRESENZE un record con codice che non risulta in
ANAGR mi da errore......
se inserisco un codice con le medesime chiavi della tab. PRESENZE mi da
errore.......
e possibile sostituire tali errori predefiniti con messagii personalizzati
grazie


wrote:

evento on error
gestione errori personalizzata
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: trasformare un query aggiornamento  in codice vba

Ciao buona sera a tutti nel mio db access  sono pieno di query, macro che 
per fortuna mi fanno
funzionare il mio programma  ora chiedo a voi se è possibile trasformare un 
query  in codice vba
e cosi posso alleggerire la ricerca Esempio ho questa query
 
UPDATE AVIS SET AVIS.N_DONAZ = [N_DONAZ]+1, AVIS.UltimaDonazione = 
Forms!AggiornaDonazioni!DateDonazioni, AVIS.LUOGO = "CAORLE", 
AVIS.DataModifica = [Forms]![AggiornaDonazioni]![DateDonazioni], AVIS.TIP0 = 
"INTERO"
WHERE (((AVIS.S_N)="S" Or (AVIS.S_N)="s"));
 
come si trasforma in codice
 
Grazie Grazie Diego
 
 


http://lnx.accessgroup.it/community/vba/conversione-sql-in-vba.html
 
Tommaso

 come si trasforma in codice
 
Ci sono vari metodi e modi, p.e. puoi provare questo:
 
Currentdb.Execute = "UPDATE AVIS" & _
    " SET N_DONAZ = [N_DONAZ]+1" & _
    " , UltimaDonazione = " & clng(Forms!AggiornaDonazioni!DateDonazioni) & 
_
    " , LUOGO = 'CAORLE'" & _
    " , DataModifica = " & clng(Forms!AggiornaDonazioni!DateDonazioni) & _
    " , AVIS.TIP0 = 'INTERO'" & _
    " WHERE S_N= 'S'"
 
"S" Or "s" non serve, perché JET non se prende cura di maiuscolo o 
minuscolo.
 
-- 
Ciao
Karl
*********
Access FAQ: 
http://www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: Giorni Feriali e Festivi

Ciao a tutti,
è possibile sapere se un giorno dell'anno è feriale o festivo.
Il problema non è tanto nei sabati e domenica (funzione weekday) ma nelle
varie festività sparse qua e la.
Qualcuno di voi ha già affrontato questo problema?
Ciao e grazie
--
*--- Frank ---*
Togliere NO-SPAM per rispondere

varie festività sparse qua e la.
ti devi fare una tabella apposita, anno per anno, dove metterai anche
Pasquetta e la festa patronale del comune, e controllarla.
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


Io mi farei una tabella che contiene in un campo data tutte le festività
"sparse qua e la" (magari ci metterei dentro quelle dei prossimi 20 anni) e
poi con una DLookup.......
Roberto

Qualcuno si è già divertito a fare una cosa simile.
Download:
 
http://members.xoom.it/_XOOM/it_db_access/tips09.htm


E hai proprio ragione
Roberto

poi con una DLookup.......
a sto punto come la vedi una bella funzioncina apposita IsHoliday che
esegue una query sql, così evitiamo dilucap che è lenta?
function IsHoliday(d as date) as boolean
dim ssql
dim rst
ssql = "SELECT Count(*) FROM tFestivi WHERE Giorno = #" & format(d,
"yyyy/mm/dd") & "#"
set rst = currentdb.openrecordset(ssql)
IsHoliday = (rst(0)>0)
end function


 end function
Penso che è meglio
Roberto

 wrote in message


Mi sembra ci sia un errore nell'intervallo in cui può cadere il lunedì di
Pasqua o sbaglio??
La parte di funzione è:
...
   'intervallo in cui può cadere il Lunedì di Pasqua
   DayMax = DateValue("20/4/" & Anno)
   DayMin = DateValue("20/3/" & Anno)
   If WeekDay(d) = 2 And d <= DayMax And d >= DayMin Then
      If d = (Pasqua(Anno) + 1) Then
         Festivo = True
         Exit Function
      End If
   End If
   Festivo = False
    'intervallo in cui può cadere il Lunedì di Pasqua
   DayMax = DateValue("20/4/" & Anno)
   DayMin = DateValue("20/3/" & Anno)
   If WeekDay(d) = 2 And d <= DayMax And d >= DayMin Then
      If d = (Pasqua(Anno) + 1) Then
         Festivo = True
         Exit Function
      End If
   End If
   Festivo = False
...
Il range 20/4 (anno) non vale per quest'anno (2000) in cui Pasqua era il
23/4
Dico bene???
Ciao


Newsgroup: it.comp.appl.access
Titolo: Qual'è il migliore ?

Ciao a tutti ...
Ho bisogno di imparare ad usare MS ACCESS 2000 ...
Dove posso scaricare il MIGLIOR manuale ???
Ciao e
GRAZIE
Dave

 ha scritto nel messaggio
news:N7SD7.14643$7A4.9...@news.infostrada.it...

www.sitocomune.com
sezione manuali
e trovi ottimi consigli su cosa acquistare
by
stwe

 Dove posso scaricare il MIGLIOR manuale ???
L'unico gratis di buon livello lo trovi aprendo access e premendo F1.
Sib

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

Mi potete fare avere le Faq del newsgroup?????
Grazie!!!
Ugo

 Ugo
RoDAgo
Newsgroup: it.comp.appl.access
Titolo: Sottomaschera su cui non riesco a scrivere

Tenendo conto che sto smanettando quasi ininterrottamente dalle 10
modificando un applicativo non iniziato ex-novo da me e che probabilmente
quindi che la soluzione possa essere piuttosto banale, vedete un po' dove
potrei andare a cercare per risolvere questo problema.
Ho una maschera con relativa sottomaschera.
La maschera non è associata ma c'è un controllo che contiene un certo valore
chiave.
La sottomaschera viene filtrata da origine record con una query su questo
valore chiave (niente master-secondari quindi)
Ora...
Se apro questa query (mettendo un valore chiave di esempio) e provo a
scrivere ci riesco.
Se apro la maschera che poi sarà sottomaschera (anche qui inserendo
manualmente quando me lo chiede un valore chiave) e provo a scrivere ci
riesco.
Se provo a scrivere nella sottomaschera da dentro la maschera principale non
mi permette di farlo.
Altre info:
proprietà consenti modifiche della sottomaschera è Sì
proprietà bloccato dei controlli della sottomaschera è No
La tabella su cui dovrei andare a scrivere è in relazione uno a molti, lato
molti, con un'altra tabella che però non coinvolgo per nulla e comunque i
record su cui vorrei scrivere sono già creati.
Dove potrebbe stare l'inghippo?!?!?!
Antonio

 ha scritto nel messaggio
news:HmM%a.246988$Ny5.7...@twister2.libero.it...

La maschera principale, che ribadisco non era associata, aveva la proprietà
consenti modifiche a No.
Nell'help si legge:
È possibile utilizzare la proprietà AllowEdits per impedire la modifica di
tutti i dati visualizzati da una maschera.
Ora, mi sta bene che vengano bloccate le modifiche sulla form principale, ma
la sottomaschera non dovrebbe ereditare questa proprietà, visto che ha anche
un altro recordsource...
Invece pare che sia così, in quanto prima che maschera la sottomaschera è un
controllo della form principale e quindi eredita la proprietà...
Mah...
Antonio

 potrei andare a cercare per risolvere questo problema.
Mi viene il sospetto: il vero Antonio Biso non postava mai di Domenica!
;-))
Ciao.

 ha scritto nel messaggio
news:QWS%a.247712$Ny5.7...@twister2.libero.it...

il vero Antonio Biso normalmente non posta mai di domenica, tranne quando si
vede costretto dalle circostanze a passare il weekend di ferragosto in
ufficio, nella valle di lacrime lucana, sigh, sobb...
E poi dai, il quesito posto non era poi cosě trollato...
Antonio
P.S.
Trollato? Ho inventato un neologismo!!!!

 E poi dai, il quesito posto non era poi cosě trollato...
Beh, sai ... meglio controllare  ;-)
Ciao.

 Beh, sai ... meglio controllare  ;-)
E poi il clone non č bbono, io avevo anche trovato la soluzione al
quesito!!!
Antonio

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

 suoi controlli escluso il suo controllo sottomaschera.
Intendevi dire la proprietà enabled degli altri controlli?
Comunque sì, avevo capito fosse così, però è una palla...
Antonio
Newsgroup: it.comp.appl.access
Titolo: impostare da vba le propietà opzioni tastiera di un db

come si puņ impostare la propieta che si trova in
strumenti -->opzioni -->tastiera --> con tasti di direzione passa a
vorrei impostarla  a carattere sucessivo
da codice in modo che anche se l'utente ha acces con impostazione settata a
camposucessivo lui va a carattere sucesivo.
Grazie
Stefano Kabisa
Buone vacanze a chi le fa
Io mi concedo solo abbacchio Domenica.
Gli ospedali non chiudono mai ....

 come si può impostare la propieta che si trova in

Non so se sia possibile direttamente ...
In ogni caso ho fatto un giro sul registro e ho trovato che si tratta di una
chiave
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Access\Settings\Arrow Key
Behavior
il 9.0 si riferisce ad Acc 2k
Il problema e' che, a quanto ricordo, Access carica le impostazioni
all'avvio e non le rilegge piu'
Per questo forse dovresti ricorrere a qualcosa di esterno che faccia il
cambio prima di lanciare Access.
Per modificare le chiavi da codice c'e' se non ricordo male qualcosa sul
sito comune
HTH
Ciao Nicola

 ha scritto nel messaggio
news:wGMdc.52787$rM4.2...@news4.tin.it...

Grazie proverò
stefano Kabisa
Newsgroup: it.comp.appl.access
Titolo: prendere nota del controllo attivo per riposizionarmi dopo un requery

come prendo nota del controllo che ha il focus per rimettere il focus sullo stesso controllo dopo un requery?
 
grazie.

 focus sullo stesso controllo dopo un requery? 
 
Screen.ActiveControl 
 
per il controllo come oggetto
 
o
 
Screen.ActiveControl.Name
 
 
per il nome come stringa.
 
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: verificare se esiste il controllo

ciao a tutti
vorrei verificare in una 
function pubblica MiaFunctionProva(frm As Form)
ecc. ecc.
se esiste un controllo.
 
Ho provato anche con
Public Function EsisteOggetto(OggSTR As String, Optional IngType As AcObjectType = acForm) As Boolean
 
Ma anche se esiste (Il controllo) non me lo rileva.
 
Grazie.


ciao Alex
 
Public Function EsisteOggetto1(OggSTR As String, Optional IngType As AcObjectType = acForm) As Boolean
 
 ' da richimare con p.e.: If EsisteOggetto(“Anagrafe”,  acTable) = True Then
 
  Dim Tipo As AccessObject
  On Error Resume Next
  Select Case IngType
    Case acDataAccessPage
      Set Tipo = CurrentProject.AllDataAccessPages(OggSTR)
    Case acForm
      Set Tipo = CurrentProject.AllForms(OggSTR)
    Case acMacro
      Set Tipo = CurrentProject.AllMacros(OggSTR)
    Case acModule
      Set Tipo = CurrentProject.AllModules(OggSTR)
    Case acReport
      Set Tipo = CurrentProject.AlIReports(OggSTR)
    Case acStoredProcedure
      Set Tipo = CurrentData.AllStoredProcedures(OggSTR)
    Case acDiagram
      Set Tipo = CurrentData.AllDatabaseDiagrams(OggSTR)
    Case acServerView
      Set Tipo = CurrentData.AllViews(OggSTR)
    Case acQuery
      Set Tipo = CurrentData.AllQueries(OggSTR)
    Case acTable
      Set Tipo = CurrentData.AllTables(OggSTR)
    Case Else
       Err.Raise 1
  End Select
  EsisteOggetto1 = (Err.Number = 0)
  Err.Clear
 
End Function
 
========================
Function fctMEmail(frm As Form)
 
ecc. ecc.
 
  If EsisteOggetto("IdFor") = True Then
    If Not IsNull(frm!IdFor) Then
      IdVar = "," & frm!IdFor
 
    End If
 
  End If
  IdVar = Nz(frm!IdCli, 0) & IdVar
 
  strSQL = "SELECT TbEmail.Email, TbxEmail." & strForm & " As Doc, " & Opzione & " As A" _
    & " FROM TbEmail" _
    & " INNER JOIN TbxEmail ON TbEmail.IdEmail = TbxEmail.IdEmail" _
    & " WHERE TbEmail.IdCli IN(" & IdVar & ")" _
    & " ORDER BY TbEmail.Email;"
 
  Debug.Print strSQL
 
  DBEngine(0)(0).QueryDefs("QryEmail").Sql = strSQL

Quella Funzione l'ho scritta io, in un mio progetto... ma come vedi non scende a livello di Controllo, ma sono gli OGGETTI DEL DATABASE, quindi puoi testare se esiste una FORM un REPORT ecc...
 
Se vuoi controllare esista un controllo in una Maschera... devi usare un'altro metodo...
 
Esempio questo ad esempio:
Function ControlExists(ControlName As String, FormCheck As Form) As Boolean
   Dim strTest As String
   On Error Resume Next
   strTest = FormCheck(ControlName).Name
   ControlExists = (Err.Number = 0)
End Function
 
@Alex


fantastico
grazie
Newsgroup: it.comp.appl.access
Titolo: Ripristina finestra

Allo scopo di non consentire per una FORM:
 - il ridimensionamento
 - la riduzione
 - la chiusura
corrispondenti ai tre pulsanti sul margine sinistro della finestra, su che
cosa
bisogna agire ?
Ho già provato provato ad impostare le proprietà della FORM :
[Pulsanti ingrandimento/riduzione]
[Pulsanti chiusura]
ma il Pulsante "Ripristina Finestra" rimane sempre attivo.
Grazie per l'aiuto

 Grazie per l'aiuto
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Scusami, ma cosa è il pulsante "Ripristina finestra"?


 wrote in message
EfOF9.38898$2B1.1...@twister2.libero.it...

Mi riferisco al pulsante centrale tra la "X" di chiusura e "_" di riduci a
icona sulla estrema dx
Cosimo

 Cosimo
Dopo aver impostato a Nessuno la proprietą Pulsanti ingrand./riduzione della
tua maschera quel pulsante ti compare ancora?
Mi sembra veramente strano!!
Ma che versione di Access usi?


Newsgroup: it.comp.appl.access
Titolo: cambiare le tabelle collegate

ho un gestionale che funziona in rete. Esso è composto da un db dove 
risiedono tutte le tabelle, ed un db dove risiede tutto il resto, front-end, 
collegato alle tabelle del primo.
capita spesso di dovere colsultare dati relativi all'anno precedente il 
problema è quindi:
è possibile che un utente qualunque in rete possa collegarsi, dinamicamente, 
alle tabelle dell'archivio dell'anno precedente o comunqeu di un anno 
diverso da quello in corso?
Ringrazio anticipatamente
Pippo Messineo

 Pippo Messineo
Prego
Ciao
Max

Trovato e ti ringrazio adesso vedo se riesco a farlo funzionare
Ciao
Pippo
"Massimo Piubelli" <massim...@accessgroup.it.invalid> ha scritto nel 
messaggio news:eo6h2t$o8u$1...@tdi.cu.mi.it...

Newsgroup: it.comp.appl.access
Titolo: far blinkare una label mentre eseguo query

salve
 
in una maschera ho messo un pulsante per eseguire una serie di query che richiedono parecchio tempo.
 
e' possibile inserire una label nella maschera che faccia un blink?
 
come posso fare?
 
Grazie


nel evento su timer della tua form metti
 
Me.Etichetta1.Visible = Not Me.Etichetta1.Visible
dove etichetta1 è l'etichetta che vuol far blinkare
 
e metti intervallo timer 0
 
 
alla pressione del pulsante che avvia le query
metti
 
Me.TimerInterval = 100
 
 
alla fine della esecuzione del tuo codice rimetti a zero l'intervallo
 
Me.TimerInterval = 0
Me.Etichetta1.Visible=true
 
 
 
ciao
BFS
 
 
 
 
 
---
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com
 
 


Metti un DoEvents tra una Query e l'altra... e segui quanto detto da BFS.
 
@Alex


grazie ho provato ma essendo che le query impiegano tanto tempo il blink e' solo prima e dopo l'esecuzione 
 
come eseguire query asincrone?

 come eseguire query asincrone?
 
Avevo il sospetto... ma è da provare.
Proverei a mettere un Repaint su Current... come ultima prova.
 
Non si possono eseguire Query SINCRONE, con DAO... ma con ADO si... anche se rallentano.
 
https://stackoverflow.com/questions/21933099/running-multiple-async-queries-with-adodb-callbacks-not-always-firing
 
 
Oppure apri un RECORDSET e cicli tutti i Records ed effettui le AZIONI record per record... con ovvi rallentamenti, ma funziona.
 
@Alex


Intendevi "..Non si possono eseguire Query ASINCRONE, con DAO.." ?
 


Si certo... il concetto arriva anche senza l'Alfa privativo... spero.
 
@Alex

Alfa privativo?
 

 Alfa privativo?
 
Si è una cosa da maniaci... ma tant'è...
 
https://it.wikipedia.org/wiki/A_(prefisso)
 
 
(A)SINCRONO... la A prima la parte successiva di efficacia, quindi nega il senso.
 
@Alex


Treccani o Treggatti?

 Treccani o Treggatti?
 
TrePiedi
 
@Alex

Newsgroup: it.comp.appl.access
Titolo: specificare numero di decmali in ALTER TABLE

qualcuno mi sa dire come posso specificare il  numero di decimali 
nell'istruzione di creazione campo qui sotto?
    db.Execute "ALTER TABLE MovimentiMagazzino " & "ADD COLUMN qta float;"
Grazie. 


Siccome non si tratta di una proprietï¿œ di JET ma di Access non
ï¿œ possibile di impostarla con SQL.
Dopo che hai creato il campo puoi usare p.e.
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Set tdf = db.TableDefs("MovimentiMagazzino")
Set fld = tdf.Fields("qta")
Set prp = fld.CreateProperty("DecimalPlaces", dbByte, 2)
fld.Properties.Append prp
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 � possibile di impostarla con SQL.

Newsgroup: it.comp.appl.access
Titolo: Argomento non valido

Buondě a tutti
Premetto che non sono un espertone access
Ma veniamo al problema:
come č
-         su una maschera ho una Casella di Testo in cui vengono compilate
delle note
-         la stringa non deve essere lunga piů di 200 caratteri
-         un pulsante "Inserisci"  nella stessa maschera accoda la stringa
in una tabella
-         campo della tabella (tipo dati = Testo / Dimensione campo = 200)
-         sullo stesso pulsante "Inserisci" c'č un controllo per la
lunghezza:
If Len(note.Value) < 200 ecc.
Cosa succede
-         Se la stringa č maggiore di 200 tutto ok la condizione viene
rilevata compare un msg ecc.
-         Sela stringa č breve minore di circa 100 (non ho ancora rilevato
esattamente il confine) tutto ok la stringa viene accodata
-         Se la stringa č lunga da 100 a 200 compare l'errore: "Errore di
run-time '3001'  Argomento non valido"
WINDOWS 2000
ACCESS 2000 SP-3
Per quanto non ne campisco molto di access la cosa mi sembra davvero strana
Voi cosa ne pensate?
Di giŕ Grazie!
Saluti
robi

 robi
Ho fatto delle prove con questo codice:
If Len(Me.Testo2) < 200 Then
ecc....
modificando solo "Value",
e non ho riscontrato nessune errore.
Ciao, Carlo


grazie ma a me non funziona
si comporta come prima
prima non l'ho detto ma l'errore lo da sulla query di accodamento non sul
controllo
forse è più chiaro se posto un pezzo di codice
.......
tipofile = CStr(det_tipo([Forms]![Inserisci]![nome]))
If (tipofile <> "errore" And Me.creatore <> "" And Me.descestesa <> "" And
Me.descbreve <> "" And Me.basetoporif <> "" And Me.datains <> "" And
Me.scalaacqui <> "" And Me.ambiter <> "" And Me.manutentore <> "") Then
If Len(Me.creatore) < 50 And Len(Me.descbreve) < 50 And Len(Me.descestesa) <
200 And (Me.hyperlink <> "" Or Len(Me.hyperlink) < 200) And (Me.notevarie <>
"" Or Len(Me.notevarie) < 255) Then
    filedb = getfilename([Forms]![Inserisci]![nome])
    percorsodb = getpath([Forms]![Inserisci]![nome])
DoCmd.RunSQL "INSERT INTO LAYER (nome_file, percorso_file, descrizione,
scala_acquisizione, descrizione_estesa, data_mento, base_topo_rif,
ambito_territoriale, hyperlink, notevarie, Formato, tipo, scala_min,
scala_max, FK_manutentore, FK_creatore_dato ) " _
& "SELECT '" & filedb & "' AS Espr1, '" & percorsodb & "' AS Espr2,
[Forms]![Inserisci]![descbreve] AS Espr3, [Forms]![Inserisci]![scalaacqui]
AS Espr4, [Forms]![Inserisci]![descestesa] AS Espr5,
[Forms]![Inserisci]![datains] AS Espr6, [Forms]![Inserisci]![basetoporif] AS
Espr7, [Forms]![Inserisci]![ambiter] AS Espr8,
[Forms]![Inserisci]![hyperlink] AS Espr9, [Forms]![Inserisci]![notevarie] AS
Espr10, [Forms]![Inserisci]![formato] AS Espr11, [Forms]![Inserisci]![tipo]
AS Espr12, [Forms]![Inserisci]![scala_min] AS Espr13,
[Forms]![Inserisci]![scala_max] AS Espr14, MANUTENTORI.ID_manutentore,
CREATORE_DATO.ID_creatore_dato FROM MANUTENTORI, creatore_dato WHERE
(([MANUTENTORI]![cognome_manutentore]=[Forms]![Inserisci]![manutentore]) AND
([CREATORE_DATO]![NOME]=[Forms]![Inserisci]![creatore]));"
    Else
    MsgBox "ATTENZIONE: uno dei campi ha una lunghezza maggiore di quella
consentita"
.......................
Newsgroup: it.comp.appl.access
Titolo: Utilizzo dei colori da codice VB

Ciao a tutti,
volevo chiedere se esiste una tabella dei colori con relativi codici in
formato RGB.
Ho realizzato la seguente procedura per colorare del testo diversamente in
base ad un determinato risultato.
********inizio***********
Private Sub Form_Current()
Dim valore
Dim Rosso As Long, verde As Long, Blu As Long
Rosso = RGB(255, 0, 0)
verde = RGB(0, 150, 0)
Blu = RGB(0, 0, 255)
valore = Cornice50.Value
Select Case valore
Case 1
Me!msgcli.ForeColor = Blu
msgcli = "CLIENTI"
Case 2
Me!msgcli.ForeColor = verde
msgcli = "IDRAULICI"
Case Else
Me!msgcli.ForeColor = Rosso
msgcli = "SELEZIONARE TIPO"
End Select
End Sub
********fine**********
Siccome volevo usare dei colori un po' piů belli che i classici colori ,
quindi usare le relative sfumature dei vari colori mi chiedevo se esiste una
tabella o un modo per sapere il codice nel formato : RGB(0, 150, 0).
Ciao a tutti , con simpatia.

per conoscere il colore è sufficiente andare sule proprietà di un testo di
una maschera e selezionare la voce COLORE PRIMO PIANO e cliccare sui ....
Comparirà una finestra con i colori più usati.
Cliccando sul pulsante COLORI PERSONALIZZATI avremmo un estensione della
tabella colori dove vengono specificati i parametri per il VERDE,ROSSO,BLU
per la tonalità scelta.
Sarà sufficiente riportare tali valori nei rispettivi campi della formula :
RGB(0, 150, 0)
Ciao a tutti.
Mi sono autorisposta questa volta.
Con simpatia.  Marco.

Newsgroup: it.comp.appl.access
Titolo: Like '%01'

ciao ragazzi!!!!
Ho un problema con l'operatore LIKE
Questo č il passo della query in questione 
WHERE (([Riepilogo#1].Data) Like '160101'))
finchč uso l'operatore LIKE cosě non ci sono problemi e mi restituisce
il risultato esatto della query ma se uso
WHERE (([Riepilogo#1].Data) Like '%01'))
la query non mi restituisce nulla...
con ASP questo metodo lo uso e funzia ma adesso non capisco perchč non
funzia.... sapete consigliarmi???
Grazieeeee
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Michel Foschi wrote:
[CUT]
Ti abbiamo gia' risposto, non ti basta un solo thread??

 Ho un problema con l'operatore LIKE
E NO CICCIO!!!
Ma che fai?!??!
Ce stai a pià in giro?
Hai già proposto il quesito e ti abbiamo già risposto!!!
CHE VOLEMO FA?!?!
Antonio

Scusa ma MAILGATE fa le bizze ho postato il mex e non me lo ha visualizzato
per delle ore...pensavo che la procedura fosse fallita ...
scusate ero in buona fede !!!
:)

--------------------------------
Inviato via 
http://usenet.libero.it

Newsgroup: it.comp.appl.access
Titolo: Report in Word??

Una banalissima questione: come faccio a inserire in un file Word un grafico
appartenente a un qualsiasi report creato con Access 97? L'opzione "Pubblica
con MS Word" mi permette di esportare (in formato Rich Text Format) solo le
parti di testo, ma non i grafici in sè.
Quasi quasi mi vergogno di porre questo quesito... ma proprio non riesco!!!


Hai provato con il copia/incolla?
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Accesso condiviso a DB Access in rete

Salve.
Sto sviluppando un'applicazion in PowerBuilder che si appoggia a un DB
Access ma quando tento di accedere ai dati da più utenti contemporaneamente
mi ritrovo con una situazione alquanto strana.
Se, ad esempio, in una tavola ho 15 record e accedo dalla postazione 1
aggiungendone un 16°, se tento di accedere dalla postazione 2 mi presenta
solo i 15 record iniziali.
Come se al momento della connessione al DB crease una copia del DB ad uso
personale di ogni utente aggiornandola di volta in volta separateamente.
Non ho grossa esperienza di gestione DB (tanto meno Acess) per cui non ho
idea di quali siano le impostazioni adatte per risolvere una problematica di
questo genere.
Qualcuno può essermi d'aiuto?
Grazie in anticipo.
Renzo


Il problema è senz'altro nella connessione PowerBuilder --- Ms Jet, binomio
a mio avviso piuttosto inedito.
Ma perchè non utilizzi SyBase SQL dato che sviluppi in Power Builder?
Saluti.

 Renzo
SQL per Power Builder, non Access... ;-)
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Dovrei avere risolto dato che stupidamente non avevo capito che dopo ogni
Update di una tavola devo forzatamene fare un "Commit" (avevo lavorato in
passato con SQLServer e questo problema non si poneva :-/ ).
Grazie comunque per l'interessamento.
Per quanto riguarda l'altra questione (Sybase SQL) ti rispondo in privato
che esula dal contesto. :P
Saluti.
Renzo
Newsgroup: it.comp.appl.access
Titolo: Numero campi in Tabella

Ciao a tutti, amici! Utilizzo Access 2003, e ho una tabella,
l'Anagrafica, che contiene molti campi (circa 105, di cui 5 di tipo
testo da 200 caratteri). La tabella è destinata a contenere al massimo
20.000 records. Vorrei sapere se ci sono dei limiti nel n° di campi da
inserire per tabella. Grazie anticipatamente per le risposte o i
suggerimenti ; )


Vedi il paragrafo sulle tabelle qui: 
http://www.donkarl.com/it?FAQ1.4
In riguardo al numero massimo di caratteri per record non importa
il valore che imposti nella proprietà "Dimensione campo" ma contano
solo dati veramente presente nei campi + qualche byte di overhead
per l'organizzazione.
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 

Grazie Karl!

 ha scritto nel messaggio 
news:640c54c0-561c-4da3...@8g2000prt.googlegroups.com...

Scusami ,  ma che senso ha utilizzare un Database relazionale
se inserisci più  di cento campi in una tabella , usa più tabelle poi le 
metti in relazione
ti evita la ridondanza dei dati  ed è tutto più snello e funzionale
Ciao Giuseppe 

Beh, sì, hai ragione, però considera che la maggior parte sono campi
numerici che fanno riferimento all'ID di altre tabelle. Es: Via è un
numero che punta alla tabella Vie. Non è che scrivo la stringa della
Via per ciascuno. Purtroppo i dati da considerare sono moltissimi, e
alcuni, come le note personali, il codice fiscale, il passaporto ecc
ecc. devono essere alfanumerici. Tu, come ridurresti il n° di questi
campi?

 campi?
per esempio creando la tabella indirizzi e la tabella docIdentita, da 
relazionare con la Anagrafica; da quello che hai scritto sopra IMHO č 
proprio un caso da normalizzare
ciao

Interessante..! Ho sempre pensato che fosse buona regola creare
relazioni per quei dati che si ripetono diverse volte nella stessa
tabella, come ad esempio il nome della città o delle vie. Inutile
scrivere per ogni record il nome esteso: molto meglio scegliere da un
elenco l'ID giusto: si risparmia spazio e si evitano errori. Però non
capisco a cosa serva creare una relazione per per dati che su quella
tabella vengono riportati UNA sola volta, come ad esempio il Codice
Fiscale, la Partita Iva, le Note personali. ecc. Oppure a cosa serva
creare una tabella indirizzi.. per velocizzare l'inserimento forse?
Certo che dovrei mettere mano su tutto il database! Io mi ci metto,
anche, basta che mi esponiate i vantaggi! Grazie 1000!  ; )

Newsgroup: it.comp.appl.access
Titolo: Confronto doppioni 2 DB diversi....

salve a tutti... volevo sapere se è possibile
fare un confronto tra 2 Db di Access 97- 2000
il primo DB contiene 110.000 record
il secondo 12.000
per cercare dei doppioni... chiaramente utilizzando un
campo univoco come il Codice Fiscale....
Grazie....
grazie a tutti...Ciao..

 grazie a tutti...Ciao..
Nei wizard delle query c'č una ricerca duplicati.
ciao MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Funzione DMax sconosciuta

<><><Funzione 'DMax sconosciuta nell'espressione di convalida o nel valore
predefinito di 'MiaTabella.MioContatore like'.><><><
Per favore, chi mi sa dire il perchè o come posso risolvere questo problema.
Ho gia aggiunto il rif. a DAO 3.51 Object Library
grazie anticipatamente

predefinito di 'MiaTabella.MioContatore like'.><><><
Come si chiamano la TuaTabella e il TuoContatore su cui fai
l'espressione ?
Ciao. Fabrizio

"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:vj2bqukss8s10o2sr...@4ax.com...

Tabella è denominata -----> Mia Tabella
composta da:
ID------------------------->Contatore
MioContatore------------->Testo
su MioContatore al valore predefinito copio la formula che sopra riporto
ciao

ciao
Ma dove ? in tabella  o in maschera : a me in tabella non funzia ma in
maschera si
Ciao. Fabrizio

 Ciao. Fabrizio
Credevo dovessi introdurre la formuna nella tabella?
Mi scuso........SONO UN'IMBRANATO
Ciao e grazie

Credevo dovessi introdurre la formuna nella tabella?
Ti funzia adesso in maschera ?
Ciao. Fabrizio

"Fabrizio" <fabrizio...@SPAMtiscalinet.it> ha scritto nel messaggio
news:4k5bqu0c0p2rcfr3p...@4ax.com...

una meraviglia
ciao, Gainfranco egrazie ancora

Newsgroup: it.comp.appl.access
Titolo: Azzeramento Progressivo

Ciao a tutti,
ho questo problema: ho una tabella che contiene i dati sanitari dei pazienti
col relativo numero di cartella clinica composto dal contatore automatico di
access, però ad ogni inizio di anno nuovo il progressivo automatico deve
riparartire da zero! Alla luce di ciò come posso attuare questa modifica, o
per lo meno posso crearmi un campo parallelo che segua la stessa numerazione
del progressivo ma che al cambiamento di anno riparta da zero?
Grazie infinite in anticipo e già che ci siamo Buon 2006 a tutti! ;o)
Francesco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Francesco
C'è un esempio sul 
www.sitocomune.com
, mi pare sia un contatore per
fatture.
Ciao.
-Marco-
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 C'è un esempio sul 
www.sitocomune.com
, mi pare sia un
Sez. GENERAL
Faq  6.17 Numerazione crescente per fatture ed altro.
Ciao, cld 


Grazie infinite!

Newsgroup: it.comp.appl.access
Titolo: me.bookmark + me.recordsettype

Mi chiedevo se è possibile usare in un progetto di access  me.bookmark
+ me.recordsettype
Mi spiego,
ho necessità di modificare il recordsettype di un recordset collegato
ad una maschera e nello stesso tempo
di ritornare al recordset precedente alla midifica del recordsettype.
In pratica:
dim rsbookmark as variant
rsbookmark = me.bookmark
me.recordsettype = 4       '  (precedentemente è impostato a 3)
me.bookmark = rsbookmark
la cosa strana è che se eseguo tutto ciò in debug, funziona alla
perfezione ma, se eseguita normalmente,
la maschera ritorna al record di apertura, in pratica non riconosce il
bookmark.
Qualcuno ha già avuto questo problema?
Esiste qualcosa di alternativo al bookmark?
Grazie in anticipo a tutti
Marco Dell'Oca


Ho trovato che in questo modo funziona meglio:
    dim rsbookmark as variant
    rsbookmark = Me.Recordset.AbsolutePosition
    Me.RecordsetType = 3
    DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, rsbookmark
Esiste qualche soluzione migliore?
Dell'Oca Marco

Newsgroup: it.comp.appl.access
Titolo: Casella combinata: selezionare i valori con le frecce, possibile?

Ciao a tutti.
Ma si può fare in modo che quando si va su una casella combinata sia
possibile selezionarne i valori agendo sulle frecce up e down? Un po'
come avviene per la casella di riepilogo...
Thanx
giaconet

 ha scritto nel messaggio
news:atksv0$3a6k$1...@ID-71483.news.dfncis.de...

Si, però prima devi aprire l'elenco da cui operare la scelta.
Se la casella combinata si chiama MiaCombo, a fronte dell'evento "Su
attivato" della casella combinata genera il seguente codice VBA:
Private Sub MiaCombo_GotFocus()
Me!MiaCombo.Dropdown
End Sub
Così facendo, quando sposterai (con il tasto Tabulazione o Invio) il fuoco
sulla casella combinata si aprirà l'elenco; con i tasti up e down ti sposti
sulla riga da selezionare; premi il tasto Invio.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Mi sembra un'ottima idea. Grazie
Bye
giaconet

Newsgroup: it.comp.appl.access
Titolo: Di nuovo SOMMA....

Salve a tutto il NG
Questo è un problema già proposto qualche post fa.
Qualcuno del NG  (Roberto) mi aveva dato una mano proponendo una soluzione
che
funziona ma non fa esattamente quello che volevo: provo a spiegarmi meglio
Ho una Query, ottenuta da varie tabelle con campi tipo questi:
MarcaAuto, CilindrataAuto, NomeAuto, PrezzoAcquisto, PrezzoVendita, Ricavo
Vorrei raggruppare in un unico record, i record contenenti lo stesso
valore MarcaAuto (esempio: tutte FIAT) And CilindrataAuto (esempio tutte
quelle con 1000 cc), sommando PrezzoAcquisto, PrezzoVendita, Ricavo.
E' possibile o sto dicendo una fesseria?
Ciao a tutti e Grazie
Giampaolo


In modalità struttura della query, raggruppa e somma dove vuoi; puoi anche
contare
E' + semplice di quanto credi.
ciao MAsssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.appl.access
Titolo: come evidenziare documenti già fatturati

ciao a tutti
Ho in dettaglio fattura una combo "descrizione" da query d'unione tra 
TbDescrizione e TbDescrizioneDoc.
Nella prima ho  NomiProdotto nella seconda un'elenco Documenti.
Ho poi aggiunto in TbDescrizioneDoc il campo "Fatturata" Si/No.
Ora vorrei inserire un codice in dopo aggiornamento della Combo 
"Descrizione"
per farmi vedere se un documento č stato inserito o meno, magari spuntandomi
la casella di controllo nella TbDescrizioneDoc e in piů formattandomi il 
contenuto del
campo descrizione (con un colore qualsiasi) dove sono riportati gli estremi 
del documento inserito.
E'gradito un vostro suggerimento in alternativa.
Grazie. 

 Grazie.
sinceramente non mi è chiaro cosa fai
da quello che leggo metti insieme prodotti e documenti corretto?
come ritieni di verificare che un documento è stato fatturato? ci sarà una 
tabella con un riferimento a cosa?
da un primo esame bastava mettere nella query di unione anche il campo 
Fatturata (e gestire un campo vuoto per la descrizione nella query di 
unione) ma poi dici di voler spuntare questo campo nella tabella e a questo 
punto non capisco più se il flag lo metti tu in un altro documento oppure 
intendi che se non è flaggato vuoi flaggarlo in quel momento. Nella seconda 
ipotesi però come faresti a distinguere quali documenti sono flaggati e 
quali no (per il colore del campo descrizione)?
ciao
Max 

che se non è flaggato vuoi flaggarlo in quel momento.
Siccome non ho ancora trovato una buona soluzione
ho inserito nella TbDescrizioneDoc un campo "Fatturata" si/no
che spunto manualmente per ricordarmi il documento che ho già fatturato.
Ora sono aperto a qualsiasi soluzione.
Grazie ancora

Newsgroup: it.comp.appl.access
Titolo: Scansione insieme di record

Salve, volevo un'informazione.
Come faccio a scandire in VBA (access 2000) un set di record?
Ho bisogno di esaminare un insieme di record ottenuti da una query
(query1) che contiene due campi (campo1, campo2).
Devo verificare il valore di campo1 di ogni record e in base a quel
valore eseguire determinate cose.
Grazie
Giovanni
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 valore eseguire determinate cose.
Apri un recordset basato sulla query e lo scorri con
do until rst.eof
loop
Parole chiave openrecordset movefirst movenext fields
Antonio

Di seguito ti invio una funzione che fa al caso tuo.
Public Function LeggiQRY() As Variant
    Dim DBS As Database
    Set DBS = CurrentDb
    Dim Tab01 As Recordset
    Set DBS = CurrentDb
    Set Tab01 = DBS.OpenRecordset("NomeQRY")
    Tab01.MoveFirst  '  Si posiziona al primo record
    While Not Tab01.EOF  ' Cicla finchè non si raggiunga la fine della
Tabella o Query
         Tab01.Edit    ' Metodo per modificare un record
         If Tab01![NomeCampo] = Valore Then
            ***********************************
            * Operazioni da effettuare
            ***********************************
         End if
         Tab01.Update   ' Aggiorna record corrente
         Tab01.MoveNext   ' Sposta al record successivo
    Wend
    Tab01.Close   ' Chiude la tabella
End Function
Saluti da Nico
Newsgroup: it.comp.appl.access
Titolo: copia nella clipboard

Salve
Qualcuno potrebbe indicarmi il codice, da applicare ad un pulsante, che
permette di:
  1.. selezionare e copiare il contenuto (testo) di una casella di testo
nella cilpboard
ringrazio anticipatamente e auguro a tutti Buon Anno
Gigi

 nella cilpboard
www.donkarl.com/it
 FAQ 6.15 Copiare un testo su o dalla clipboard
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)

Newsgroup: it.comp.appl.access
Titolo: DB da vedere

Ciao, sono un neofita di access (anche se è un annetto che lo uso), vi
chiedo se esiste un sito da cui si possono scaricare dei database gia fatti,
anche mezzi database, in modo da vedere come vongono gestiti i dati da
espreti del lavoro.
Grazie ciao NAdir

 ha scritto nel messaggio
news:9gds39$ubg$1...@nreadA.inwind.it...

Fossi in te, se non lo hai già fatto, farei una full immersion nei tre
database forniti con Access: Northwind, Ordini e Soluzioni.
Quindi mi farei una passeggiata nel Sito Comune (link qui sotto) e farei il
download di tutti i database scaricabili.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9gds39$ubg$1...@nreadA.inwind.it...


 nell'acqua, ho avuto la stessa risposta di roberto,
1°) in questo NG č regola rispondere dopo i messaggi;
2°) non definirei la risposta di Roberto un buco nell'acqua: se sei andato a
vedere nei dettagli come sono fatti i 3 DB di esempio, se ti sei guardato
con attenzione tutti gli esempi del Sito Comune (DB pronti e routine che
risolvono problemi particolari), non credo che tu possa definirla un buco
nell'acqua.
Comunque, se hai proposte da fare o suggerimenti in merito, troverai molte
orecchie disposte ad ascoltare.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

Una domanda che non ha niente di MsAccess,sei forse il Silvio Berruti che ha
vinto i 200 metri alle olimpiadi di Roma nel 1960?
Grazie per la risposta
Voltolini Luigi


guardi che non voglio offendere nessuno,
anzi! devo ringraziare particolarmente Roberto per i suoi aiuti che ha dato
a molti miei dilemmi, senza di lui in particolare, molte cose sarebbero
rimaste un deficit.
Un buco nell'acqua nel senso che oltre a quelli citati, non ho trovato
altro, idee, procedimenti, soluzioni anche bizzarre ecc.
la curiosità su access, a volte fa diventare affamati di stuzzichini :-)

 wrote in message
5dJW6.5935$Cq5.2...@news.infostrada.it...

Quello era Livio ...
OndaMax

 ha scritto nel messaggio
news:wKOW6.9971$Cq5.3...@news.infostrada.it...

Esatto, e non siamo neanche parenti.


 ha scritto nel messaggio
news:AvOW6.6503$nG2....@news1.tin.it...

Ok.
Ci sono inoltre da guardare i link presenti sul Sito Comune.

Newsgroup: it.comp.appl.access
Titolo: Fare partire un'applicazione ad un'ora determinata

Salve, ho una maschera "menu" constantemente aperta e vorrei che ad una
determinata ora
del giorno (per esempio alle 12) mi si apra un'applicazione oppure un
salvataggio dati su dischetto.
Ho scritto il seguente codice su Timer ma  non funziona e non sò il perché.
    Dim .....
    If Time = TimeValue("16:50") Then
        SourceFile = "C:\\Dati\Pippo.mdb"
        Destination1File = "A:Pippo.mdb"
        FileCopy SourceFile, DestinationFile
        FileCopy SourceFile, Destination1File
    End If
...
Grazie per l'aiuto
Giorgio
--
------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access

...



     Ti ringrazio per la risposta super rapida
Ciao
Giorgio


Newsgroup: it.comp.appl.access
Titolo: gestire il fonts e dimensione carattere in un testo di una email

dovrei poter decidere la dimensione e il fonts utilizzato per alcune parti
di un testo di una email inviata da access con sendonject o con winsock
direttamente, sapete dirmi come posso fare?
Grazie a tutti.

 ha scritto nel messaggio
news:brs73h$9g8$1...@lacerta.tiscalinet.it...

XML
MAssimiliano

 MAssimiliano
hai un esempio da farmi? solo XML non mi dice niente..... ;(
Grazie in anticipo.

 ha scritto nel messaggio
news:brs7ru$a1b$1...@lacerta.tiscalinet.it...

XML č un file che ha all'interno tutte le info sulla formattazione del
documento.
Microsoft sta spingendo molto su questo standard.
Trovi le info sul sito M$.
Perň tu hai bisogno di inviare e ricevere il file in formato html per
poterlo formattare.
Io per esempio blocco i file html perchč mezzo di virus.
Quindi non leggerei la tua mail.
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Formattazione campo testo

Buonasera amici del NG,
ho la necessità di formattare con una query un campo testo
"CODICE_BARRE" di dimensione campo 20 in un campo testo di dimensione
campo 13, allineato a sinistra.
E' importante che i codici a barre inferiori a 13 cifre non siano
preceduti da zeri, ad esempio il codice a barre "80103378" non deve
essere formattato in "0000080103378" ma deve restare 80103378
allineato a sinistra.
La query la debbo poi esportare in un file di testo.
Spero di essere stato chiaro e ringrazio per il prezioso aiuto.
Leonardo

 ha scritto nel messaggio 
news:e7228e3e-74f3-4367...@x35g2000hsb.googlegroups.com...

Leonardo
La funzione CInt() dovrebbe fare al caso tuo...se poi devi riconvertire in 
stringa CStr()
Ciao
-- 
Roberto da Parma 

 ha scritto nel messaggionews:e7228e3e-74f3-4367...@x35g2000hsb.googlegroups.com...

ciao Roberto,
non riesco a mettere a frutto il tuo consiglio:
hai la possibilità di indicarmi di preciso la funzione da scrivere nel
campo "Codice_Barre" della query?
grazie molte comunque

 grazie molte comunque
select cstr(clng(campodaformattare)) from NomeTabella
-- 
Ciao
Geppo 

 - Mostra testo citato -
grazie Geppo
ciao

 - Mostra testo citato -
Scusami Geppo,
i codici a barre di 8 cifre me li formatta correttamente,
ma quelli di 13 cifre me li da come #Errore!
grazie per l'aiuto

 grazie per l'aiuto
usa "cdbl" invece di "clng"
cstr(cdbl(campo))
-- 
Ciao
Geppo 

 ha scritto nel messaggio 
news:e7228e3e-74f3-4367...@x35g2000hsb.googlegroups.com...

Leonardo
[risposta]
Ma il campo che vuoi formattare che tipo è? Numerico o Testo? E perché lo 
dovresti formattare (incolonnare a sinistra) nella query?
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:e7228e3e-74f3-4367...@x35g2000hsb.googlegroups.com...

è un campo Testo.
Lo debbo formattare in quanto lo debbo poi esportare come file di
testo(.txt).
saluti e grazie Sergio

 ha scritto nel messaggio 
news:88e745be-6f84-4924...@59g2000hsb.googlegroups.com...
è un campo Testo.
Lo debbo formattare in quanto lo debbo poi esportare come file di
testo(.txt).
saluti e grazie Sergio
[risposta]
Se il file di testo dovrà essere rielaborato (es. importato, letto e 
stampato, etc. etc.) l'allineamento del testo, nel file, non serve.
Lo farai tramite l'applicazione che rileggerà i dati del file...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Sintassi corretta in dmax()

Ciao
avrei necessità di trovare il numero di bolla più alto in base
all'anno in corso ed al fornitore
selezionato, ho provato con la funzione dmax() ma non riesco a trovare
la corretta sintassi,
DMax("NumBolla", "Ordini", "Year([Data]) = " & year(date()) and
[codfor] = Val(Me.fornitore.Column(0))

 [codfor] = Val(Me.fornitore.Column(0))
Premesso che se la stai usanto in VBA van bene le virgole altrimenti ci
vogliono i punti e virgola : 
Se Val(Me.Fornitore.Column(0) � un numero:
DMax("NumBolla", "Ordini", "Year([Data]) = " & year(date()) & " and
[codfor] = " & Val(Me.fornitore.Column(0))
Se invece � una stringa : 
DMax("NumBolla", "Ordini", "Year([Data]) = " & year(date()) & " and
[codfor] = " & chr(34) & Val(Me.fornitore.Column(0) & chr(34))
-- 
Ciao
Pablitomf
----------------------------
http://www.accessgroup.it/
----------------------------
Non mi fido molto delle statistiche, perch� un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
è un numero ora funziona ma ho dovuto aggiungere una parentesi alla
fine
grrrazzzzzieeeeeeee
Newsgroup: it.comp.appl.access
Titolo: Confronto valore record  successivo (o precedente ? ).

Buongiorno, ho una tabella titoli cosi strutturata:
 
Titolo; Data; Valore; chek
 
Fiat    26/01/13    1
Fiat    27/01/13    2
Fiat    30/01/13    1
Fiat    02/02/13    2
Fiat    05/02/13    3
Mps    05/02/13    1
Mps    06/07/13    2
Mps    08/02/13   3
Mps    15/02/13    4
Mps    16/0213    1
Unicredit    31/01/13    1
Unicredit    01/02/13    2
Unicredit    05/02/13    3
Unicredit    08/02/13    1
Unicredit    09/02/13    2
 
Vorrei tramite codice, editare la tabella, e valorizzare il campo chek,
con il testo "+" se Valore � > = del Valore del record successivo (o 
precedente ? ) per ogni singolo titolo;
con il testo "-" se Valore � < del Valore del record successivo (o 
precedente ? ) per ogni singolo titolo;
in modo da ottenere questo risultato:
 
Fiat    26/01/13    1    -
Fiat    27/01/13    2    +
Fiat    30/01/13    1    -
Fiat    02/02/13    2    -
Fiat    05/02/13    3    +
Mps    05/02/13    1    -
Mps    06/07/13    2    -
Mps    08/02/13   3     -
Mps    15/02/13    4    +
Mps    16/0213      1    -
Unicredit    31/01/13    1    -
Unicredit    01/02/13    2    -
Unicredit    05/02/13    3    +
Unicredit    08/02/13    1    -
Unicredit    09/02/13    2    +
 
Grazie 
 
 

 Grazie
 
 
sub controllo()
' apre database corrente
dim db as database
set db = currentdb
' recordset
dim rs as recordset
set rs = db.openrecordset("titoli")
 
rs.movenext
rs.movefirst
dim nValorePrec as integer
 
  nvalorePrec = rs!valore
  rs.movenext ' tralascio il primo Check
do 
  ' confronto il valore del record precedente
 
  '> Vorrei tramite codice, editare la tabella, e valorizzare il campo chek,
  '> con il testo "+" se Valore è > = del Valore del record successivo (o 
  '> precedente ? ) per ogni singolo titolo;
  '> con il testo "-" se Valore è < del Valore del record successivo (o 
  '> precedente ? ) per ogni singolo titolo;
   rs.edit
 
   if nValorePrec >= rs!valore then
      rs!check ="+"
   else
      rs!check ="-"
   endif
   rs.Update
 
   ' carico il valore del record corrente per il successivo
   nValorePrec = rs!Valore
   rs.movenext
   if rs.eof
      exit do
   endif
loop
end sub