mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: In un ciclo resettare il contatore

Salve a tutti,
ho la testa altrove e non riesco a risolvere questo problema, confido in un
aiuto previa ca**iata
Ho una tabella in cui c'č un valore pippo che si ripete n volte e un campo
in cui dover .edit un progressivo.
Al variare di pippo n deve ripartire.
Mi spiego con un esempio
Forza Napoli 001
Forza Napoli 002
Forza Napoli 003
Abbasso Juve 001
E cosě credo di essermi bruciato l'aiuto del buon Biso (lo so ma č stato piů
forte di me)
MAssimiliano

 MAssimiliano
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 > E cosě credo di essermi bruciato l'aiuto del buon Biso (lo so ma č stato
piů


 > > MAssimiliano
devo intervenire dopo che la tabella è già tutta creata e ha lasciato vuoto
solo quel campo.
Ora vedo se fa al caso mio
MAssimiliano

 MAssimiliano
Non ero ancora arrivato quaggiù e già sapevo che avrei detto la stessa
cosa...
Antonio
P.S.
Va beh giusto perchè è natale
set rst = currentdb.openrecordset("select tab.* from tab order by
tab.pippo")
rst.movefirst
cont = 0
app = "FORZA JUVE"
do until rst.eof
  curr = rst.fields("pippo")
  if curr <> app then
    cont = 1
  else
    cont = cont + 1
  end if
  rst.edit
  rst.fields("prog") = cont
  rst.update
  rst.movenext
  app = curr
loop

 Condoglianze
Perchč?
<cut>
--
rgrds
SC


 Perchč?
AHA AHA AHA HAHAH AHHAA HA
SEI CIRCONDATO!!!!!
HE EHHE EHE HEHEE EHEHE
Antonio


Beh quando subisci continui furti sei convinto che i ladri siano più degli
onesti e ti vedi circondato.
Ma non solno loro la normalità, loro sono una distorsione del sistema.
E poi noi abbiamo visto il calcio serio. Abbiamo avuto Lui (non quello che
Biscardi sbatte sotto i riflettori oggi)
MAssimiliano


Funziona che è una meraviglia. Per puro scrupolo ho provato a settare le
condizioni al contrario
ma mi ha restituito un grave errore
"Ms Access ha compiuto un'operazione non valida e sarà terminato,
lei sarà immediatamente arrestato, si consegni senza fare resistenza"
Vedi anche Access lo dice.
Un grazie di cuore
MAssimiliano

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

qualcuno sa il codice per disabilitare la tastiera o il singolo tasto ?


In che senso?
In una maschera potresti impostare la proprietà Consenti modifiche a No,
oppure disabilitare un singolo controllo impostando Abilitato=No e
Bloccato=Sì.
X disabilitare un singolo tasto potresti intercettarlo, in ogni controllo,
con una routine del tipo:
Private Sub TuoControllo_KeyPress(KeyAscii As Integer)
  If KeyAscii = CodiceDelTastoDaDisabilitare Then KeyAscii = 0
End Sub
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
Newsgroup: it.comp.appl.access
Titolo: Old Value su Form Error

In un mio ordigno ho una text box associata in cui permetto all'utente di
modificare la quantità riferita ad un ordine.Il campo è di tipo numerico.Per
evitare spiacevoli sorprese prima di ogni salvataggio cerco di intercettare
se la stringa inserita è numerica.Ho utilizzato per restringere la
possibilità di digitazione ai soli numeri una funzione di Ale Baraldi ma mi
sono accorto che con alcuni caratteri non funziona.In particolare con "-"
(code ASCII 45) che si trova pericolosamente vicino alla tastierina numerica
ma anche & | \ etc etc.Quindi ho pensato di intercettare l'errore "E' stato
immesso un ..non valido etc etc " con la seguente routine.Vorrei
ripristinare il valore precedente usando Me.Ordinato=Me.Ordinato.OldValue ma
mi ritorna errore.Che mi consigliate?
SunRex
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 2113 Then
    MsgBox "Hai inserito un carattere non valido." & Chr(13) & "Ti ricordo
che puoi inserire solo numeri.", vbInformation
    Response = acDataErrContinue
   Exit Sub
End If
End Sub
La funzione di @Alex
Public Function CkDgtNumber(KeyAscii As Integer, nMin As Integer, nMax As
Integer) As Integer
nMin = 0
nMax = 250
   CkDgtNumber = 30
   If KeyAscii >= 48 + nMin And KeyAscii <= 48 + nMax Then CkDgtNumber =
KeyAscii
   Select Case KeyAscii
      Case 44, 45
         CkDgtNumber = KeyAscii
      Case vbKeyBack, vbKeyTab, vbKeyClear, vbKeyReturn
         CkDgtNumber = KeyAscii
      Case vbKeyEscape, vbKeyDelete, vbKeyNumlock
         CkDgtNumber = KeyAscii
End Select

 ha scritto nel messaggio
news:lkvCe.171384$75.74...@news4.tin.it...

Forse non hai visto bene la Funzione....!!!
Quando dici "Non funziona..." dovresti leggere il codice legato alle varie
condizioni del CASE della funzione stessa, come ti capiterà di vedere
leggendola con maggiore attenzione prevede anche
Case 44,45
che se non ricordo male sono +/- proprio perchè un numero per sfigato
possa essere può avere un SEGNO che potrebbe essere negativo.
Se, nel tuo caso, questo non deve essere previsto elimina il Case 44,45
invece di frapporre controlli inutili a posteriori è una cosa decisamente
più
utile e semplice..........!
Le funzioni prima di usarle è bene Studiarle per capirle altrimenti non si
impara nulla.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 impara nulla.
Ogni tanto un cazziatone fa bene.
Sunrex



Ciao,
quello non è un "cazziatone" ma un "sano" consiglio di chi programma da 
tempo e che quindi potrebbe fregarsene di dartelo...guardarlo in senso 
"positivo" come un'incentivo a migliorare -> essere umili è la prima cosa da 
imparare in questo settore...poi viene access, vba etc... ;-)
Buona domenica :-)
Gaspare 

 ha scritto nel messaggio
news:MFvCe.171502$75.74...@news4.tin.it...

Ma infatti è in quel senso che l'ho preso :)
SunRex


Allora sei sulla strada giusta ! ;-)
Newsgroup: it.comp.appl.access
Titolo: Docmd.maximize

Salve..Avrei una domandina da porre: con il 
comando "Docmd.Maximize",immesso all'apertura di una maschera, mi 
permette di visualizzare la maschera a tutto schermo..Ma, nella barra 
in alto della maschera, mi compare la casella "Ripristina", che se 
selezionata, mi fa diventare la maschera alla sua grandezza 
naturale..Anche se ho già tolto ogni proprietà in merito, disabilitato 
ogni casella dei comandi ed ogni tasto di ridimensionamento o chiusura, 
mi compare sempre quella casella "Ripristina"...Come posso fare per 
evitare che appaia?Grazie 1000 anticipatamente!
-- 
Alby
Inviato da 
www.mynewsgate.net

Alby ha scritto:

DOvrebbe esserci un'impostazione possibile (o in combinazione con altre)
nella formattazione della maschera; in alternativa puoi usare:
MinMaxButton=0 sull'apertura maschera.
TANNHAUSER
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.appl.access
Titolo: OpenReport





Salve 


ho uno stesso report che deve stampare dati da 

diverse query. Dalla documentazione del metodo 
OpenReport dell'oggetto DoCmd sembrerebbe che basti passare come terzo parametro 
il nome della query, ma non funziona.


Inoltre se nella routine di gestione dell'evento 
Open del Report cerco di leggere la proprietà RecordSource, questa non riflette 
quanto passato da OpenReport.


 


Qualcuno sa aiutarmi?


Grazie e tanti auguri


 


 


Const report_name As String = 
"R_stampa_ordini_giallo_rosso_blu"
Dim rec_source As String


 


  Select Case col
     
Case Rosso
        rec_source = 
"q_righe_ordini_in_RSOR"
     Case 
Giallo
        rec_source = 
"q_righe_ordini_in_RSOG"
     Case 
Blu
        rec_source = 
"q_righe_ordini_in_RSOB"
  End Select


 


  DoCmd.OpenReport report_name, 
acViewPreview, filter_name, where_condition


 


 


Private Sub Report_Open(Cancel As 
Integer)


 


Dim rec_source As String


 


  rec_source = Me.RecordSource
  

  If rec_source = "q_righe_ordini_in_RSOR" Then
    
col = Rosso
    Me.Lbl_OrdPrev.Caption = "Ordine n°"
  
ElseIf rec_source = "q_righe_ordini_in_RSOG" Then
    col = 
Giallo
    Me.Lbl_OrdPrev.Caption = "Ordine n°"
  
ElseIf rec_source = "q_righe_ordini_in_RSOB" Then
    col = 
Blu
    Me.Lbl_OrdPrev.Caption = "Preventivo n°"
  
Else
    err_msg (programming)
    Cancel = 
True
    Exit Sub
  End If
  
  Select 
Case col
    Case Rosso
      
Me.Lbl_1.Visible = True
      Me.Lbl_2.Visible = 
True
      Me.Lbl_3.Visible = 
True
      TB_impgiacenza.ControlSource = 
[impgiagenza]
      TB_impordini.ControlSource = 
[impordini]
      TB_impdaordinare.ControlSource = 
[impdaordinare]
    Case 
Else
      Me.Lbl_1.Visible = 
False
      Me.Lbl_2.Visible = 
False
      Me.Lbl_3.Visible = 
False
      TB_impgiacenza.ControlSource = 
""
      TB_impordini.ControlSource = 
""
      TB_impdaordinare.ControlSource = 
""
  End Select




CUT 
quella che devi passare e la parte dell'sql relativa al WHERE e non
l'intera stringa SQL quindi puoi solo impostare dei criteri diversi.
altrimenti prova aq cambiare la proprietą recordsource del report
metttendo la stringa SQL che ti serve
Saluti.
Emanuele.

Newsgroup: it.comp.appl.access
Titolo: Query impazzita?

Ho una query abbastanza complessa basata su 4 tabelle e composta da 32
colonne (di cui 14 formule) X 14 righe.
Mi succede che un criterio scritto in una colonna, me lo trovo
improvvisamente e senza che io abbia fatto nulla, spostato in un'altra.
Da cosa dipende e cosa posso fare?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Ah dimenticavo ...
i record analizzati sono 45000 ma non mi sembra eccessivamente lenta (tempo
di risposta 4- 5 sec al massimo)

Newsgroup: it.comp.appl.access
Titolo: funzione che inserite 2 date resitutisce il numero dei giorni lavorativi

esiste una funzione che inserite 2 date resitutisce il numero dei giorni
lavorativi contenuti nelle 2 date specificate?
Grazie.


Non esiste una funzione preconfezionata in Access. Ci puoi arrivare
comunque...
consulta 
www.sitocomune.com
 sezione "General" argomento "Conteggio dei
giorni lavorativi tra due date" e troverai la soluzione.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Elenco files *.gz di una directory in una casella di riepilogo

Ciao a tutti,
A97, avrei bisogno di elencare tutti i file di una determinata
estensione che si trovano in una determinata directory... dentro in
una casella di riepilogo. Su questa poi ci farei una mia sub
sull'evento doppio click che si prende il nome del file dalla casella
di riepilogo.
Ma come faccio ad elencare i file dentro la casella di riepilogo ?
Qualche esempio ?
Grazie.
Ganimede Dignan.


La ricerca non č il tuo forte...?
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=165
inserisci il controllo dell'estensione chiaramente.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 inserisci il controllo dell'estensione chiaramente.
Si l'avevo trovato... ma non ho capito come usarlo, qualche esempio
pratico ?
Grazie.

Si l'avevo trovato... ma non ho capito come usarlo, qualche esempio
pratico ?
Grazie.
Mi sà che più di un esempio pratico ti serve la pappa pronta....?
;-)
Metti questo codice in un Modulo bas...!
Public Function FillListFiles(ctl As Access.ListBox, Startpath As string)
    Dim MyPath As String
    Dim MyName As String
    ctl .RowSource = ""
    MyPath = Startpath
    MyName = Dir(MyPath)
    Do While MyName <> ""
        With ctl
            If Mid$(strIN, InStrRev(strIN, ".") + 1, Len(strIN))="gz" Then
                    .RowSource = .RowSource & MyName & ";"
            End if
        End With
        MyName = Dir
    Loop
    ctl.RowSource = Left(ctl.RowSource, Len(ctl.RowSource) - 1)
End Function
Quindi dalla tua maschera su LOAD lo richiami così:
Call FillListFiles(Me.NomeListBox, "C:\Programmi\"
ciao


 Call FillListFiles(Me.NomeListBox, "C:\Programmi\"
Grazie 1000, ora ho capito.
Bye.
Ganimede Dignan.
Newsgroup: it.comp.appl.access
Titolo: Aiuto con Query e campi

Ciao a tutti..
Ho il seguente Problema:
In una maschera Magazzino, ho un campo (Disponibilità) calcolato come
differenza del resultato di una Query e quello di un campo di un'altra
tabella
Es:  Disponibilità = QtaAcquistata - risQuery
Ora io vorrei copiare il valore di questo campo (Disponibilità) in un campo
di una tabella Prodotti...
Come posso fare???
Aiuto

 ha scritto nel messaggio
news:HauAa.34809$lK4.1...@twister1.libero.it...

Devi creare una query di aggiornamento del campo, che prenda come valore
nella riga "aggiorna a", il campo calcolato nella tua maschera, ad es.
        [Forms]![TuaMaschera]![Disponibilità]
Poi devi lanciare l'esecuzione della query o con un tasto, o in seguito ad
un evento come "su corrente" o "su chiusura".
Tuttavia...
questo tipo di approccio contrasta con l'idea che è alla base stessa che ha
portato all'enorme successo dei database relazionali: avere nelle tabelle
solamente i pochi ed univoci dati di partenza, ed ottenere tutto il resto
dinamicamente mediante l'opportuno uso di relazioni tra le tabelle stesse e
formule di estrazione sui domini.
Ci sono una marea di motivi che potrebbero disallineare il valore del campo
memorizzato "Disponibilità", rispetto ai valori che lo hanno originato,
quindi devi costruirti una query od una funzione che ne restituisca il
valore dinamico (ed attuale), ogni volta che lo devi visualizzare, stampare,
ecc...
L'unico problema potrebbe essere quello della lentezza, che dovrà essere
superato strutturando opportunamente le chiavi e le tabelle stesse del
database.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: E-mail

Ho un problema che non so come affrontare.
Mi viene richiesto, in corrispondenza di un determinato evento, di inviare
una e-mail.
E' possibile, dall'interno di una procedura in access?
E quali sono le istruzioni relative?
Poi magari comincio ad arrangiarmi con l'help...
Grazie
***mauro

 ha scritto nel
messaggio news:RTRnc.233820$rM4.9...@news4.tin.it...

_______________________________
Prova a vedere "SendObject"
ciao
Riccardo
Newsgroup: it.comp.appl.access
Titolo: margini di stampa

Saluti a tutti e ringraziamenti a chi volesse darmi una mano:
il mio livello e'medio basso
Dunque ho un normale database di anagrafica e devo stampare delle tessere 
prestampate con spazi
gia' predefiniti, ci sono 3 tessere per ogni foglio e le anagrafiche distano 
tra loro ( quindi il corpo del report ) 9.8 cm
Non riesco ad azzerare i margini di stampa ( li mette in automatico da 
imposta pagina  anche se li azzero )
quindi non riesco a stampare 3 anagrafiche per foglio , cioe'con la distanza 
giusta tra le tessere ne stampo solamente 2
perdendo una tessera e ovviamente sballando tutte le altre
Il problema e' che sicuramente esco dai margini ma non riesco a stampare 3 
tessere per foglio con distanza tra loro 9,8 cm
Ho provato dal menu' opzione --> generale a mettere a 0 i margini di stampa 
ed anche da imposta pagina ( alla fine il margine inferiore lo mette in
automatico a 11,68)
Puo' essere un problema di stampante ? devo personalizzare il foglio e non 
lasciare A4
Ringrazio in anticipo chi volesse darmi una mano


I margini dell'area di stampa sono dettati dalla stampante e non puoi
superarli
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 superarli
Ringrazio per la risposta :
Ma se devo stampare  3 tessere a distanza tra loro di 9,8 cm ( totale 29,4 
cm) e un foglio A4(quello delle tessere) e' di 29,7 cm
per quale motivonon dovrei riuscirci ?
la stampante supporta naturalmente il formato a4 ed io in excel riesco con 
lo stesso tipo di problema( azzero i margini ) , perche non con access ??
Grazie ancora

Newsgroup: it.comp.appl.access
Titolo: Partita IVA spagnola

Qualcuno sa come è fatto l'algoritmo di controllo per la partita IVA
spagnola ?
Ed eventualmente anche di altri stati europei ?
Su un sito europeo
(
http://europa.eu.int/comm/taxation_customs/vies/it/faqvies.htm
)
ho trovato questa FAQ che tratta l'algoritmo di controllo della partita IVA
come
un segreto di stato !?!
Q11: È possibile conoscere gli algoritmi usati dagli Stati membri per
costruire il numero di partita IVA?
La Commissione europea non può divulgare tali algoritmi. Comunque, la
struttura del numero di partita IVA è esposta nella tabella qui sotto:
          ...
      ES-Spagna
     ESX9999999X
     1 block of 9 characters
(The first and last characters may be alpha or numeric; but they may not
both be numeric.)
          ...
Se serve io ho trovato l'algoritmo per una delle possibili VAT inglesi.
Se qualcuno può aiutami lo ringrazio fin d'ora.
Grazie in anticipo
Ever

 ha scritto nel messaggio 
news:lNDHd.93264$C94....@tornado.fastwebnet.it...

Hai pensati di iscriverti a un NG spagnolo?
Prova su uno di questi:
es.comp.bd.ms-access
es.comp.lenguajes.visual-basic
Ciao, Carlo 

 es.comp.lenguajes.visual-basic
Si necesitas aiudo para escribir en español llamame.
Saludos.
Luciano 

 Saludos.
La finisci di parlare romanesco???
MAssimiliano 

 ha scritto nel messaggio
news:359m7dF...@individual.net...


 programma
Per la traduzione di singole parole puoi utilizzare traquillamente
http://translate.google.com/translate_t
Se invece vuoi una mano a scrivere un msg di senso compiuto postalo in
italiano e vedo di tradurtelo.
Saluti.
Luciano

Newsgroup: it.comp.appl.access
Titolo: impostare anno corrente diverso dal solare

Salve sono Fanciullo,
a scuola mia usiamo l'anno scolastico che è diverso dall'anno solare o 
finanziario.
quindi 2008/09 corrisponde all'anno
1 settembre 2008 - 31 agosto 2009.
Quesito:
In una maschera, evento apertura, vorrei creare un codice che imposti il 
valore di
una casella di testo a 2008/09
se la data odierna (date)  è compresa nell'intervallo 01/09/2008 e 
31/08/2009.
Non so come muovermi nel codice nemmeno logicamente.
Grazie

 ha scritto nel messaggio 
news:48d52a2a$0$18146$4faf...@reader3.news.tin.it...

non serve fare il confronto con la data odierna, l'anno scolastico dal 1 
settembre al 31agosto.
corrisponderà a 2008/09. ogni anno dovresti cambiare ugualmente le date.
tanto vale metterci due caselle di testo, formato data in cifre, InizioAnno 
e FineAnno.
da nascondere se vuoi con un pulsante.
visualizzando soltanto l'anno in una terza casella, AnnoScolastico, con 
origine controllo:
=Format([InizioAnno];"yyyy/") & "" & Format([FineAnno];"yy")
Ciao
Daniele

 Grazie
prego
-- 
Ciao
Geppo 

Ringrazio CIDI e Geppo.
La soluzione di Geppo č piů performante perché al qualsiasi cambio della 
data dell'orologio di windows
corrisponde un aggiornamento automatico della casella di testo che contiene 
2008/09 senza dover preoccuparsi
del tempo che passa. Magari fosse cosě per tutto.......ciao
Newsgroup: it.comp.appl.access
Titolo: Chiedo consiglio x evitare ridondanza (xfavore)

Ciao,
ho un problema su come evitare le ridondnze sulla gestione dei numeri di
serie di alcuni prodotti.Illustro il problema:
Ho piu' tipi di prodotto (es: bullone, chiavi, viti.....ecc.) e per ognuno
avro' dei numeri di serie; quindi ho una tabella "prodotti" che elenca i
tipi , e una tabella "dettaglio prodotti" che per ogni tipo riporta il
numero di serie, ed è cosi' strutturata:
-IDdettaglio(non ammette duplicati);
-IDProdotto(ammette dupl.);
-numero di serie(ammette duplicati);
Quindi potro' avere x lo stesso tipo di prodotto un solo seriale,che
pero'potra' essere usato su un altro tipo di prodotto.
Come potrei evitare che un seriale non si ripeta x lo stesso tipo di
prodotto?
Vi prego consigliatemi voi....
Forse è un po' stupida come domanda , ma perdonatemi, è poco tempo che
faccio questo tipo di lavoro ...  :-|
Grazie ,ciao
a presto

 prodotto?
Per la tabella "dettaglio prodotti" creati un indice formato dall'insieme
dei campi IDProdotto e numero di serie e a questo indice imposta a Si la
proprietà Univoco.
Così facendo Access si rifiuterà di inserire record che abbiano questi due
campi con un valore uguale a quelli di record già presenti in tabella. Ti
avvertirà con un suo messaggio standard.
Se poi vuoi gestirti in maniera personalizzata questo possibile errore, a
fronte dell'evento "Prima di aggiornare" della maschera con cui inserisci i
nuovi record nella tabella "dettaglio prodotti" vai a verificare, tramite
delle funzioni DLookup, se esistono record che contengono quei valori nei
due campi incriminati, e se esistono prendi  i provvedimenti del caso,
compreso quello di annullare la registrazione del record.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Grazie Roberto,
Hai risolto il mio ennesimo dilemma... !!!:-)
Newsgroup: it.comp.appl.access
Titolo: Casella combinata: Problemi

Salve a tutto il n.g.
Ho la necessità di creare una maschera con in totale 7 caselle di testo di
cui le prime 4 combinate.
Queste prime quattro caselle dovranno lavorare su tre tabelle collegate tra
loro tramite relazione, mi dovranno effettuare le seguenti ricerche:
La prima dalla tabella anagrafica mi dovrà far scegliere il fornitore
desiderato;
La seconda dalla tabella fattura, il numero fattura desiderato del fornitore
precedentemente selezionato;
La terza sempre dalla tabella fattura, la data della fattura precedentemente
selezionata;
La quarta sempre dalla tabella fattura, l'importo della fattura selezionata.
Con le altre tre caselle rimanenti, dovrò immettere, data acconto, importo
acconto e modalità (assegno o contante) Queste tre caselle fanno riferimento
alla tabella acconti.
Morale, trovo il fornitore desiderato, con la seconda combo trovo le
relative fatture di quel fornitore ma non riesco a selezionarne nemmeno una,
dove sbaglio? Come mi consigliate di procedere per risolvere il tutto?
Grazie.
Rob.

 ha scritto nel messaggio
news:64Sre.4401$b5.2...@news3.tin.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Forms legi queste tre
mie FAQ:
1) 3.72 Sincronizzare in una maschera due o più caselle combinate tra loro
in gerarchia
2) 3.73 Sincronizzare in una maschera due o più caselle combinate tra loro
NON in gerarchia
3) 3.77 Sincronizzare in una maschera due o più caselle combinate ASSOCIATE
tra loro in gerarchia.
Penso che da queste tre FAQ troverai degli spunti per risolvere il tuo
problema.
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel 
messaggio news:4USre.3941$yM4....@twister2.libero.it...


 Rob.
[CUT]


 ----------------------------------------------------
Ricapitoliamo. Le prime 4 combo, mi danno la possibilità di selezionare;
Fornitore, N. Fattura, Data Fattura e Importo Fattura. Dopo aver
visualizzato questi quattro parametri, ho la necessità di immettere dei
dati; Data Acconto, Importo Acconto e Modalità Acconto (contanti o assegno).
Come posso proseguire?


 ----------------------------------------------------
Ricapitoliamo. Le prime 4 combo, mi danno la possibilità di selezionare; 
Fornitore, N. Fattura, Data Fattura e Importo Fattura. Dopo aver 
visualizzato questi quattro parametri, ho la necessità di immettere dei 
dati; Data Acconto, Importo Acconto e Modalità Acconto (contanti o assegno).
Come posso proseguire?
Grazie per l'attenzione.
Rob.

 Rob.
-- 


Non ho capito nulla di quanto riporti quì sotto, troppo tecnico per le mie 
conoscenze. Comunque grazie ugualmente.
Roberto.

Newsgroup: it.comp.appl.access
Titolo: BrowseFolder partendo da una cartella specifica

Ho la necessità di selezionare BrowseFolder non partendo dal Desktop ma da
una cartella specifica (Es: C:\Windows\System32).
Qualcuno conosce come si modifica la funzione BrowseFolder affinchè si
riesca a farlo ?
Grazie in anticipo a chiunque volesse aiutarmi.
    Mauro

OpenFile.lpstrInitialDir = "C:"
o quello che vuoi ... inseriscilo nel codice.
saluti,
strano..mavero

Newsgroup: it.comp.appl.access
Titolo: copiare un numero con due decimali

Buonasera a tutti,
avrei bisogno di un aiutino...
In una maschera ho un campo il cui risultato è rappresentato da un numero 
decimale tipo 1,75.
Premetto che il risultato (1,75) scaturisce dal calcolo di una query (per 
es.: UNO: [DUE]/4)
Il contenuto di questo campo, che chiamerò "pippo", devo trasferirlo in un 
altro campo della stessa maschera, che chiamerò "pluto".
Ho provato, invano, a farlo utilizzando il seguente codice:
 
me.pippo = me.pluto
 
Dove sbaglio ?
Grazie a chiunque voglia darmi una mano.
Buonaserata a tutti. 
 

Ometti un sacco di informazioni nella tua esposizione... oltre che a confondere con i Nomi PIPPO PLUTO...
 
1° Sei in Maschera Singola/Continua o Foglio Dati...?
2° Il Controllo Pippo è Associato ad un Campo CALCOLATO...? 
3° Non dici quale segnalazione di anomalia ottieni... abbiamo capito come operi in parte ma cosa accade...?
4° Che FieldType hanno i Campi che generano il Calcolo...?
 
RISPOSTE:
1° Se sei in maschere continue/Datasheet devi fare attenzione a come operi, solo il RECORD ATTIVO è gestibile... quindi quel comando è pericoloso.
 
2° Se Pippo è il Campo CALCOLATO, come tu stesso affermi, mi aspetto che il controllo PIPPO della Maschera sia associato al Campo Pippo calcolato in Query, ... quindi NON PUOI ASSEGNARLO se è un Calcolato...!
Immagino tuttavia tu abbia fatto confusione...?
 
 
3° Dando per scontato che il punto 2 sia frutto di Errore descrittivo... che errore ottieni...?
 
4° è una questione di Chiarezza Matematica dal momento che parli di 2 decimali... e credo tu sappia che se non hai optato per un ARROTONDAMENTO... rischi di avere soprese con i decimali facendo le divisioni... come dovresti sapere i Numeri FLOATINGPOINT(Virgola mobile) espongono ad errori di arrotondamento e di conseguenza alla propagazione dell'errore.
Per questo in casi in cui l'arrotondamento potrebbe essere un problema si usano Type NON FLOATING... come il DECIMAL.
 
@Alex
Newsgroup: it.comp.appl.access
Titolo: Documentazione sui Report

Mi potreste segnalare un sito internet dove procurarmi una
buona documentazione sulla creazione e gestione dei report
con Microsoft Access 2000 dato che quella fornita da
Microsoft non e' a mio avviso sufficiente.
Sapete se ci sono pure libri al riguardo ?
Grazie

 Grazie
Ciao.
--
Sergio MAZZA



Anche se è della Microsoft, hai provato a dare uno sguardo al database di
esempi scaricabile dal Sito Comune (link qui sotto), Sezione Reports, dalla
FAQ intitolata "Esempi di utilizzo dei reports"?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Criterio x ricerca contemporanea su stringa vuota e non

Salve a tutti,
Ho creato una tabella (ID, Nome, Note) e una query (che si avvia con un
pulsante dalla form "MricercaAvanzata") che in base al campo "CCnote" della
form "MricercaAvanzata" tira fuori tutti i record filtrati per "Note" della
tabella.
Nei criteri della query (nel campo "Note") ho inserito
Like "*" & [Forms]![MricercaAvanzata]![CCnote] & "*"
e in questo modo riesco a fare un'ottima ricerca, ma solo tra le note con
almeno un carattere di descrizione. Infatti il problema nasce quando il
campo Note della tabella e' vuoto. Infatti l'istruzione di sopra non va bene
e per estrarre i record dovrei inserire
Is Null
In questo modo funziona e riesco a estrarre SOLO i record della tabella con
le Note nulle
Allora ho pensato di risolvere il tutto definitivamente usando come
criterio:
IIf([Forms]![MricercaAvanzata]![CCnote]="";Is Null;Like "*" &
[Forms]![MricercaAvanzata]![CCnote] & "*")
...Che non vuole funzionare neanche a forza!
Sicuramente mi sfugge qualcosa. Spero che qualcuno possa dirmelo.
Grazie in anticipo.
Iacopo

 ha scritto nel messaggio
news:bbn0mt$p57$1...@news.flashnet.it...

Nella query elimina i criteri al campo Note; inserisci un campo calcolato
creato in questa maniera:
NoteBis: Nz([Note]; "zzzzzz")
e nei criteri di tale campo calcolato scrivi:
Like "*" & [Forms]![MricercaAvanzata]![CCnote] & "*"
In alternativa vai sul Sito Comune (link qui sotto) e nella Sezione General
leggi la FAQ di Federico Luciani intitolata "Visualizzare tutti i records
con una query parametrica".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:bbn0mt$p57$1...@news.flashnet.it...

Per gestire i campi nulli faccio in questo mondo:
stringa = Trim(stringa) & " "
in questo modo la stringa nulla si riempie di uno spazio e cosě lo frego!
Daniele

 ha scritto nel messaggio
news:alEDa.62580$lK4.1...@twister1.libero.it...

Funziona! Veramente una furbata per risolvere il problema.
Grazie mille Roberto e grazie anche a Daniele per i vostri utili
suggerimenti.
Bye Iacopo
Newsgroup: it.comp.appl.access
Titolo: Ricerca record in due tabelle

Salve a tutti, dovrei risolvere un problema: trovare un articolo da un
codice aggiuntivo, mi spiego meglio.
Io ho una tabella1
codice_art
qta ordinata
una seconda tabella2 (dove sono contenuti i dati)
codice_art
descrizione
e una terza tabella3 con (dove sono contenuti altri dati)
codice_art
tipo codice
codice aggiuntivo
nella tabella1 io inserirò il codice a 6 cifre e la quantità ordinata,però
io dovrei cercate un articolo tramite il codice aggiuntivo, inserendo almeno
i primi 8/9 caratteri (il codice aggiuntivo è di circa 12/13 caratteri) e
poi inserirlo nell' elenco da cui sono partito. Quello che dovrei avere è
codice_art   descrizione                codice aggiuntivo
123456       |articolo1                 | 1234567890123
se io volessi chiamare il codice 9874563210123 (13 nr o anche meno) access
mi dovrebbe restituire il codice a 6 e quindi dovrei avere
codice_art   descrizione                codice aggiuntivo
123456       |articolo1                 | 1234567890123
456789       |articolo2                 | 9874563210123
Il collegamento della tabella1 con la tabella2, sono riuscito a farlo, in
pratica io inserisco il codice a 6 cifre, Access mi restituisce la
descrizione poi inserisco la quantità e passo alla seconda riga, il problema
è inserire il codice aggiuntivo e avere il codice a 6 cifre.
Grazie in anticipo e arrivederci
Axel


Newsgroup: it.comp.appl.access
Titolo: nascondere il database di access

salve ragazzi volevo un aiuto per nascondere il database di access e far 
vedere esclusivamente le maschere. Ho visto una demo player mp3 scritta 
in access formato mde che lanciandola appare solo il player sapetec ome 
si fa
grazie


Guarda qui:
http://www.donkarl.com/it/FAQ/FAQ1Fondamentali.htm#1.11
-- 
Ciao
Geppo
Newsgroup: it.comp.appl.access
Titolo: creare una query d'unione in VBA

Ciao a tutti vi chiedo un aiuto per il seguente problema:
Ho 2 database identici come struttura ma con dati diversi, li devo unire in
un unico database unendo i dati.
Avevo pensato di creare una rotine automatica che facesse l'unione dei 2
database nel seguente modo:
Scorrendo le tabelle (per ognuna ho tre nomi) tipo:
DB1_Nometabella (Origine)
DB2_Nometabella (Origine)
DB3_Nometabella (Destinazione)
Con una query d'unione (UBiotop) unisco le due tabelle d'origine
SELECT sic_biotop.* FROM sic_biotop
UNION SELECT zps_biotop.* FROM zps_biotop;
Con una query di agiornamento vado a popolare la tabella di destinazione.
INSERT INTO biotop SELECT UBiotop.* FROM UBiotop;
Purtroppo non risco a unire le 2 query in un unica query, cioè una query di
aggiornamento accetta come sorgente una query d'unione (UBiotop) ma non
accetta una select tipo SELECT sic_biotop.* FROM sic_biotop UNION SELECT
zps_biotop.* FROM zps_biotop;
A questo punto ho il seguente problema: Come posso creare una tabella
d'unione generica da codice che cambia in base al nome delle tabbelle
d'origine?
CreaQuery "Generica" (SELECT sic_"Nometabella".* FROM sic_"Nometabella"
UNION SELECT zps_"Nometabella".* FROM zps_"Nometabella";)
per poi eseguire il popolamento
Docmd.runnSQL "INSERT INTO Nometabella SELECT Generica.* FROM Generica;"
Spero di essere stato abbastanza chiaro.
Ciao e grazie.

 INSERT INTO biotop SELECT UBiotop.* FROM UBiotop;
Questa si chiama query di accodamento, non di aggiornamento
Supponiamo che le tabelle si chiamino
TBL1_ORIG1...TBLN_ORIG1
TBL1_ORIG2...TBLN_ORIG2
TBL1_DEST... TBLN_DEST
docmd.setwarnings false
for each tbl in currentdb.tabledefs
  if right(
tbl.name
,5) like "orig*" then
      app = "insert into " & left(
tbl.name
,len(
tbl.name
)-5) & "DEST"
      app = app & " select " & 
tbl.name
 & ".* from " & 
tbl.name
      docmd.runsql app
  end if
next
docmd.setwarnings true
Dovrebbe andare ma controlla
Antonio
Newsgroup: it.comp.appl.access
Titolo: Stessa maschera query diverse???

Buon giorno a tutti!!
Il mio problema consiste in questo. Ho una maschera che si appogia su tre
query praticamente identiche solo che una mi fa vedere tutti i record, una
mi fa vedere solo i record che hanno un campo si/no "vistato" e l'ultima mi
va vedere solo quei record che hanno il campo si/no non vistato.
Come si fa (con tre pulsanti ad esempio) a fare partire la stessa maschera
con le tre diverse query alternativamente???? Altrimenti dovrei fare tre
maschere uguali per le tre query, ma mi sembra un po' stupido!
grazie a tutti!!!

 ha scritto nel messaggio
news:B2UA6.13659$r67.3...@news2.tin.it...

Dovrebbe essere sufficiente assegnare a Su click di ciascun pulsantino la
variazione del recordsource della maschera, puntandolo su ogni query ed
eseguendo un requery subito dopo.
Qualcosa del tipo:
Me.RecordSource = "Q_Tutti"
Me.Requery
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 ha scritto nel messaggio
news:rnUA6.6394$xC3.1...@news.infostrada.it...


 Grazie!! Anche per la rapidita'!!
Prego.
Ma rispondi dopo il quoting, cioč dopo i messaggi a cui rispondi; a questo
proposito, ti ricordo di andarti a leggere il messaggio che invia
periodicamente Federico Luciani "[INFO] ..."


 ha scritto nel messaggio
news:B2UA6.13659$r67.3...@news2.tin.it...

Fermo restando il suggerimento di Silvio, che è superOK e pertinente con il
tuo quesito, prova ad eliminare tutte e tre le query e, con i tre pulsanti
di comando, prova a settare tre filtri diversi per la tua maschera che a
questo punto avrà come origine record direttamente la tabella su cui
attulmente sono basate le query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 > maschere uguali per le tre query, ma mi sembra un po' stupido!
[CUT]
Se proprio si vuole essere "sofisticati" si puo' costruire una mascherina
che richieda in input il valore del campo si/no e lo passi come parametro
alla query che se lo aspetta.
Se campo=vero -> mostra i record con spunta
Se campo=falso -> mostra i record senza spunta
Se campo vuoto -> mostra tutti i record
CIAO :-)
Luciana
Newsgroup: it.comp.appl.access
Titolo: Comando SQL per ottenere la struttura di una tabella

Salve,
sto usando python e la connessione ad un db ms-access attraverso un'origine
dati già costruita.
Vorrei sapere qual è il comando SQL per conoscere:
- le tabelle esistenti in quel DB
- la struttura di una tabella (mi bastano i nomi dei campi e i loro tipi)
mi ricordo che con Oracle era sufficiente un SHOW TABLES (per il primo
punto) e un DESCRIBE TABLE (per il secondo).
In Access come si fa?
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/



 In Access come si fa?
In Jet-SQL non esiste niente di simile.
Per accedere alla struttura delle tabelle puoi ricorrere ai modelli ad oggetti 
esposti da DAO o ADOX
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


select * from msys...
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 select * from msys...
Scusa Massimiliano, ho provato a fare una ricerchina sulle tabelle di sistema 
e quelle nascoste; mi pare di avere capito che la tabella MSysObjects contiene 
anche i nomi delle tabelle, ma non sono riuscito a capire come fare per evidenziare 
i record corrispondenti in quella tabella.
Inoltre, nelle suddette tabelle non sono riuscito a trovare niente di interessante 
relativamente alla struttura delle tabelle.
Puoi darmi qualche info in piů?


"PBsoft" <in...@REMOVEpbsoft.it> ha scritto nel messaggio

http://www.sitocomune.com/download/TableMap.zip
Cosa intendi dicendo che in Jet non esiste niente di simile?
Sib
-- 
http://www.gestionedati.com
 

 
per la strutura tabelle come hai gia' detto puoi ottenerla solo via DAO 
o ADOX. Sulla msysobjects basta osservare il campo type. 6 per le tab 
collegate, 1 per le tab locali (e flags = 0)
--
ac

 punto) e un DESCRIBE TABLE (per il secondo).
cfr sib (Davide)
se poi ti e' sufficiente un "report":
strumenti-->analizza-->analizzatore
e puoi fare il reporting di tutto cio' che ti serve
--
ac

 Cosa intendi dicendo che in Jet non esiste niente di simile?
Frena. Io ho detto che in Jet-SQL non esiste niente del genere.
vivaAccess ha postato chiedendo uno statement SQL per ottenere la struttura 
delle tabelle, ma in Jet-SQL non esiste niente di simile a quanto da lui 
riportato per Oracle.
Con Access devi utilizzare DAO (come nell'esempio che mi hai inviato) oppure 
ADOX.


PBsoft wrote:
p.s.: e type = 4 per le collegate via ODBC
--
ac

 oppure ADOX.
Il fatto č che lui non sta usando jet (infatti non usa access), per accedere 
al file mdb sta usando, come dicevi tu, un driver odbc o simili, nel qual 
caso tutto dipende dal driver che sta usando.
Ciao
Sib
-- 
http://www.gestionedati.com
Newsgroup: it.comp.appl.access
Titolo: Controllo duplicati e messaggio inserimento record.

Ho una maschera con il controllo cognome ed altri campi identificativi. Vorrei che una volta digitato il cognome, prima di passare al nuovo campo, venga eseguito un controllo se il cognome digitato sia già presente nel db, aprendo il risultato in una maschera pop up e chiedendomi se annullare l'inserimento oppure proseguire nonostante il cognome sia già presente.
 
Ho un'unica maschera [Rubrica] con relativa tabella.
 
Come posso fare?
 
Mi sono bloccato......
 
Private Sub RAG_SOCIAL_BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("RAG_SOCIAL", "Rubrica", _
    "RAG_SOCIAL_COGNOME = " & Chr$(34) & Me!RAG_SOCIAL & Chr$(34))) _
    And Me!RAG_SOCIAL <> Nz(Me!RAG_SOCIAL.OldValue) Then
 
    If MsgBox(Me!RAG_SOCIAL & " Già esiste vuoi aggiungerne un'altro?.", vbYesNo, "Duplicato!") = vbYes Then
    Forms![Rubrica].[NOME].SetFocus
 
    'DoCmd.GoToRecord , , acGoTo
    Else
    Cancel = True
    End If
 
End If
End Sub  
 
Saluti a tutti e grazie in anticipo.


Ragazzi un piccolo aiuto ... datemi una dritta.
Grazie

Newsgroup: it.comp.appl.access
Titolo: Come ottenere un totale in una query

Se ad esempio ho un campo con No o SI come risposta come faccio a fare 
un report o una query con il conteggio? Ad esempio 1234 si 1132 No?
Chiaramente dato che i campi sono decine mi interessa farlo in 
automatico e non campo per campo...
Grazie Mille Angelo

 ha scritto nel messaggio 
news:4b708932$0$1130$4faf...@reader3.news.tin.it...

SELECT ABS(SUM(TuoCampo)) as TuocampoAlias FROM TuaTabella
Newsgroup: it.comp.appl.access
Titolo: arrotondamento cifre decimali in un campo calcolato

in una maschera a visualizzazione a maschere continue che origina da
una query ho una casella di testo (campo calcolato) che fa la
differenza fra il peso rilevato la prima volta ed il peso nel record
corrente. la formula di calcolo me l'ha suggerita "Roberto da casa" in
un nostro precedente scambio di messaggi
=IIf([peso]<>0;Val([Peso]-Val(DLookUp("Peso";"Q_VISITA";"Paziente_fk="&[Paziente_fk])));Null)
funziona perfettamente tranne che per un arrotondamento dei decimali,
per esempio : 
90,00 - 86,30 = 3,00
90,00 - 86.80 = 3,00
90,50 - 86,50 = 3,00
90,50 - 87,30 = 2,00
 ho provato a definire formato (standard) e cifre decimali=2 della
casella di testo;
 a trasferire la formula in un nuovo campo della query e a definire
formato (standard) e cifre decimali =2 , ma non succede niente
qualcuno sa aiutarmi?
grazie 
oscar

 90,50 - 87,30 = 2,00
E rieccoci qui a parlare di impostazioni internazionali :-)
Il problema, nel tuo caso, presumo sia che l'istruzione Val tenta di capire
dove si trovi un numero all'interno di una stringa, interrompendosi nella sua
ricerca al primo carattere che non riconosca essere parte di un numero. Nel tuo
caso, la virgola!
Però non mi tornano gli esempi da te riportati... Nel primo caso dovrebbe
convertire 86,30 in 86, fare 90-86 e quindi restituire 4. Nel secondo dovrebbe
convertire 86.8 in 86,8, fare 90-86,8=3,2, e quindi restituire 3, e così via.
Comunque, per capire se il problema è quello, prova a sostituire alla funzione
Val la funzione di conversione CDec, e fammi sapere che effetto fa.
Ciao. Claudio.

 oscar
Prova cosě, togliendo le funzioni Val:
=IIf([peso]<>0;([peso]-(DLookUp("Peso";"Query1";"Paziente_fk=" &
[Paziente_fk])));Null)
non dovrebbe effettuarti alcun arrotondamento; come formati del controllo
calcolato e del controllo Peso usa Fisso.
Ti consiglio che il campo Peso sia in Precisione doppia invece che in
Precisione singola, altrimenti in casi limite potresti avere piccoli errori
di arrotondamento.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------



cosi' funziona perfettamente anche se lascio formato standard (pensi
vada bene o e' necessario impostarlo su fisso?)
pero' adesso ho un dubbio: ho fatto 2 prove mettendo la tua ultima
formula sia nella casella di testo della maschera (come era in
origine) che nel nuovo campo della query che da' origine alla maschera
(come nel secondo tentativo) e funzionano tutte e due .
quale pensi sia migliore come opzione?
ciao e grazie di nuovo
oscar

On Sat, 12 Oct 2002 19:16:02 GMT, "Claudio" <cld@NOSPAM&COsupereva.it>
wrote:

ho provato a sostituire brutalmente Val con CDec ed access non me lo
accetta 
grazie oscar

 oscar
--

Newsgroup: it.comp.appl.access
Titolo: prb esportare report su word

Ciao e grazie per aver letto questo messaggio,
dovendo allegare ad un msg email un report, lo esporto (tramite il
pulsante esporta nella toolbar) in formato WORD, ma le "caselle di
controllo" o "checkBox" utilizzate all'interno del report non vengono
reportate nel file WORD.
Come posso risolvere questo problema?
A presto
Roberto
Sent via Deja.com 
http://www.deja.com/
Before you buy.


  Salvandolo, ad esempio, in formato Snapshot (.snp). Chi lo riceve potra'
poi stamparlo o visualizzarlo cosi' come tu lo vedi, utilizzando lo Snapshot
viewer che e' scaricabile gratuitamente dal sito della M$ (se hai Access2000
lo trovi sul CD di installazione).
  Altra soluzione (un po' piu' macchinosa ma sempre free) e' quella di
'stampare su file' il report utilizzando il driver di una stampante
PostScript. Il file PS risultante, potra' essere poi spedito, visualizzato e
stampato con GhostView (lo trovi facilmente sulla rete). OSS: con
GhostScript puoi anche trasformare il file da PS a PDF (anche se...).
  Acquistando il programma Acrobat della Adobe e generando un file PDF
(visualizzabile poi con il programma free 'Acrobat Reader').
  Non mi viene in mente altro, ciao.

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

salve a tutti,
e' possibile ordinare una tabella
a seconda del contenuto dei campi?
es: supponiamo di avere all'interno dei campi
     le lettere dell'alfabeto.
     voglio ordinare le lettere a mio piacimento
     non so... prima la G poi la A poi F e cosi' via
forse e' una richiesta assurda ma.... non si sa mai
Grazie Marco

 ha scritto nel messaggio
news:9gnm5t$opa$1...@pinco.nettuno.it...

La prima cosa che mi viene in mente è crearsi una funzione che ti
restituisce un valore in base al "peso" che vuoi dare al carattere.
Es.
'--------------
Function faciteAmuina(testo As String) As Integer
Select Case Left(testo, 1)
    Case "a", "A"
        faciteAmuina = 2
    Case "b", "B"
        faciteAmuina = 1
    Case "c", "C"
        faciteAmuina = 4
    Case Else
        faciteAmuina = Asc(Left(testo, 1))
End Select
End Function
'--------------
Ciao.
Newsgroup: it.comp.appl.access
Titolo: Non in Elenco

Ho un pb con access97: ho una casella combinata non associata contentente 2
colone:Descrizione e IDPreventivo. Voglio fare in modo che, scrivendo un
valore di descrizione non presente nella casella combinata, questo venga
inserito automaticamente nella casella combinata: qualcuno sa come fare?ho
provato con la proprietà non in elenco ma nn funziona!
Grazie
Yuri
--------------------------------
Inviato via 
http://usenet.libero.it

 provato con la proprietą non in elenco ma nn funziona!
Hai settato solo in elenco nelle proprietą della casella combinata?
E' proprio questa la funzione
ciao MAssimiliano



Si ho settato Solo in Elenco a Si , ma quando scrivo nella casella un valore
non presente mi compare il messaggio " Il testo immesso non corrisponde ad
una voce in elenco" e non me lo inserisce!!!
Grazie
Yuri


 provato con la proprietą non in elenco ma nn funziona!
Dove lo deve inserire?
L'origine riga da dove viene?
Sib


Voglio fare in modo che, scrivendo un valore di descrizione inesistente
nella casella combinata, questo venga aggiungo automaticamente alla casella
combinata in modo da impostaree il campo descrizione della sottomaschera al
valore appena inserito nella casella combianta.
L'origine riga sono 2 campi IDPRev e Descrizione di una tabella contente
IDPrev,IDArt,Riga come chiave.
Spero di essere stato chiaro


 Spero di essere stato chiaro
Meglio.
in un caso come questo devi fare cosi':
-impostare a si' la proprieta' solo in elenco
-creare un codice per l'evento sunoninelenco
    -inserire: domanda di conferma
    -gestire il messaggio (response)
    -inserire un codice che carichi il nuovo record (newdata) nella tabella
in origine riga
fammi sapere se c'e' qualcosa che non sai fare.
Sib