mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Criterio IIF

Ho una casella combinata il cui valore imposta un criterio nella query e vorrei visualizzare i record nulli o i non nulli  ma non tutti e due insieme faccio un esempio:
 
SELECT Documenti.Id_Componente, Documenti.Documento
FROM Documenti
WHERE (((Documenti.Id_Componente)=[Forms]![Componenti]![ID_Componente]) AND ((Documenti.Documento)=IIf([forms]![Componenti]![link] Is Null,"",[forms]![Componenti]![link])));
 
 
Se il link nella maschera non è nullo vedo Id_componente e il valore del campo documento mentre se è nullo la query non mi restituisce nessun record mentre dovrei vedere Id_componente e il campo documento vuoto.In pratica dovrei passare Is Null al posto delle doppie virgolette ""
E' possibile
Grazie

Flavia laid this down on his screen :

Può darsi che non abbia capito bene, ma credo proprio
che quello che vuoi fare non si possa fare.
 
Comunque se una query che porta un criterium dà un
risultato nullo (il criterium non è valido ovvero non
è dato) e si vuole ottenere qualcosa tipo un messaggio
come "No Current Record" si può fare così:
 
=======================================
Private Sub Command0_Click()
Dim RS As Recordset, SQL As String, S As String
 
S = "" ' ovvero un parametro non valido,
       ' che quindi non produce alcun record
 
SQL = "SELECT ID_Ditta, DenDitta "
SQL = SQL & "FROM t_Ditta "
SQL = SQL & "WHERE ID_Ditta='" & S & "';"
 
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
If RS.RecordCount = 0 Then MsgBox "No Current Record"
 
End Sub
======================================
 
Da attivarsi da quella procedura che invia
il codice S che può essere nullo o non valido.
 
Bruno

Salve,
 
Flavia:

WHERE Nz(Documento,"zzz")=Nz([Forms]![Componenti]![link],"zzz")
 
-- 
Ciao
Karl
*********
Access Info: 
https://AccessForever.org
 
Access News: 
https://youtu.be/aKqZX4eE5NA
 
Access DevCon: 
https://www.donkarl.com/devcon
 
Access FAQ: 
https://www.donkarl.com/it
 

 
 
Ho trascurato che ci sono 2 campi nel WHERE. Dovrebbe essere:
 
SELECT Documenti.Id_Componente, Documenti.Documento
FROM Documenti
WHERE Documenti.Id_Componente=[Forms]![Componenti]![ID_Componente] AND
Nz(Documenti.Documento,"zzz")=Nz([Forms]![Componenti]![link],"zzz")


Salve Karl
Grazie funziona perfettamente però ho due domande:
1)perchè usare la funzione NZ che tutti e due i campi sono di testo
2)Perchè usare "zzz" 
Grazie per una tua risposta, Sei il migliore

 2)Perchè usare "zzz"
 
Puoi anche usare "Karl" o "Pippo" invece di "zzz". Si tratta solo di 
utilizzare qualcosa che sicuramente non è presente nei dati del campo, 
ma che è un segno/codice per questa situazione di Null.


 Access FAQ: 
https://www.donkarl.com/it
 
Grazie Mille
Newsgroup: it.comp.appl.access
Titolo: Struttura a aschede che flasha

Nella scheda Impianti di una struttura a schede che visualizza gli impianti
di un cliente ho inserito questo codice
Private Sub Form_Current()
    If IsNull(Me.imp_desc) Then
        Forms![MASTER]![TabCtl72].Pages("Fogli di lavoro").Activate = False
        Forms![MASTER]![TabCtl72].Pages("Tecnico").Enabled = False
        Forms![MASTER]![TabCtl72].Pages("Parti sostituite").Enabled = False
        Forms![MASTER]![TabCtl72].Pages("Manutenzione").Enabled = False
    Else
        Forms![MASTER]![TabCtl72].Pages("Fogli di lavoro").Enabled = True
        Forms![MASTER]![TabCtl72].Pages("Tecnico").Enabled = True
        Forms![MASTER]![TabCtl72].Pages("Parti sostituite").Enabled = True
        Forms![MASTER]![TabCtl72].Pages("Manutenzione").Enabled = True
    End If
End Sub
E tutte le volte che mi sposto su un impianto diverso la struttura a schede
fa un flash non bello da vedere.
Come posso evitarlo ?
Grazie, Alberto

 ha scritto nel messaggio
news:uHz96.19508$lV5.3...@news2.giganews.com...

Hai provato impostanto echo a false?
'----------------
Private Sub Form_Current()
DoCmd.Echo False
    If IsNull(Me.imp_desc) Then
        Forms![MASTER]![TabCtl72].Pages("Fogli di lavoro").Activate = False
        Forms![MASTER]![TabCtl72].Pages("Tecnico").Enabled = False
        Forms![MASTER]![TabCtl72].Pages("Parti sostituite").Enabled = False
        Forms![MASTER]![TabCtl72].Pages("Manutenzione").Enabled = False
    Else
        Forms![MASTER]![TabCtl72].Pages("Fogli di lavoro").Enabled = True
        Forms![MASTER]![TabCtl72].Pages("Tecnico").Enabled = True
        Forms![MASTER]![TabCtl72].Pages("Parti sostituite").Enabled = True
        Forms![MASTER]![TabCtl72].Pages("Manutenzione").Enabled = True
    End If
DoCmd.Echo True
End Sub
'----------------
Se la soluzione funziona ti consiglio di intercettare gli eventuali errori
per ripristinare l'echo...
Ciao.

PERFETTO !!!
Grazie

Newsgroup: it.comp.appl.access
Titolo: Sostituire testo in Word

Salve,
dato il seguente codice:
Private Sub Comando0_Click()
    Dim oApp As Word.Application
    Dim oDoc As Word.Document
    Set oApp = New Word.Application
    Set oDoc = oApp.Documents.Open(Application.CurrentProject.Path &
"\prova1.dot")
    oApp.Visible = True
End Sub
apro un documento word, che contiene un fac-simile, nella quale devo
sostituire la parola "<nome>" con dell'altro testo.
Come faccio ?
Grazie 1000
faf...@tiscalinet.it

 ha scritto nel messaggio
news:JTTG8.4098$z87....@twister2.libero.it...

Prova con:
'------------------------
Dim oApp As Word.Application
Dim oRange As Word.Range
Set oApp = CreateObject("Word.application")
oApp.Documents.Open Application.CurrentProject.Path & "\prova1.dot"
Set oRange = oApp.Documents(1).Content
With oRange.Find
    .Text = "<nome>"
    .Execute
End With
If oRange.Find.Found Then
    MsgBox "Trovato."
    oRange.Select
Else
    MsgBox "non trovato."
End If
oApp.Visible = True
oApp.Activate
'------------------------
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Distribuire programmi

Ciao a tutti, sono in crisi con una distribuzione di un pacchetto da me
creato:
ho fatto un semplice file pippo.mde con access97da distribire su computer
che hanno access 2K o non hanno nemmeno office.
Non ho mai avuto problemi di installazioni ma stavolta non so proprio a chi
rivolgermi :
quando lancio il setup che creo sul mio pc funziona perfettametne ma sui pc
dei clienti mentre si sta instllando mi dice che non puo trovare il file
system.mdw, ho provato a inserirlo nell'installazione ma non me lo lascia
inserire si blocca a metà la creazione del pacchetto.
Non se a qualcuno di voi è mai capitato, qualcuno di voi sa dirmi con
precisione quale sono le opzioni da usare per creare sto famoso paccehtto di
installazione??? Grazie a tutti ne ho davvero bisogno, vi ringrazio
comunque, ciao Marco

 ha scritto nel messaggio
news:wgrP8.54614$5i1.2...@news2.tin.it...

Copia il file system.mdw nella directory windows\system del pc di
destinazione.
Saluti
Marco Dell'Oca
D.M.Software

 inserire si blocca a metà la creazione del pacchetto.
cut
ODE 97 te lo chiede esplicitamente quale file mdw intendi usare, non devi
inserirlo tu a mano.
Che versione di ODE stai usando?
Sib
--
qualita.assicurazione su 
www.cerrinet.it
Il newsgroup sulla Qualita'
Newsgroup: it.comp.appl.access
Titolo: alternativa a ms access

Cerco un prodotto che sostituisca MS Access.
Meglio se free.
Verra' usato per creare maschere di consultazione su dati estratti da
tabelle oracle collegate tramite odbc.
Grazie se vi vorrete segnalare qualche cosa.

 ha scritto nel messaggio
news:b0bh2n$s2u$2...@newsreader.mailgate.org...

E lo vieni a chiedere sul NG di Access..........?????
@Alex.

non credo che tra di voi nessuno ci abbia mai pensato

 tabelle oracle collegate tramite odbc.
Secondo me quello che risparmi con un altro prodotto poi ce lo
impieghi come tempi di sviluppo... fai bene i tuoi conti a usare un
prodotto di cui non conosci i limiti e di cui hai poco supporto
Ciao,
Lorenzo

 ha scritto nel messaggio
news:b0bh2n$s2u$2...@newsreader.mailgate.org...

prova a chiedere su it.comp.os.linux.development
sapranno certamente risponderti meglio!
bye
ringo

 Meglio se free.
Quello che mi fai incazzare della tua richiesta č "meglio se free": ma
secondo te come fanno a vivere i produttori di software standard?
'Azzo ma siete proprio ossessionati dal Freware!
Risposta alla tua domanda: esistono prodotti simili ad Access (certamente
non migliori, al limite il contrario) che possono risolvere i tuoi problemi.
Questi prodotti (Fox-Pro, PowerBuilder, etc.) giustamente Costano.
ciao.



OpenOffice ( 
http://www.openoffice.org
 ), c'č qlc di simile ad Access,
basta sapere dov'č ( ed utilizza qlc di simile al VBA e ai linguaggi
di scipt della microsoft).
E mo che t'ho dato la bicicletta pedala ...... e ce n'č da pedalare.
:-) 
Ho letto di un esperimento in tal senso fatto nel giornale "DEV" di
questo mese: in quel caso si presupponeva un buona conoscenza di Java
(EEJ2, per la precisione) e  ... porca troia non mi ricordo piů di
cosa altro c'era bisogno, .... vabbč tanto lo trovi in edicola  ;-) ,
cmq l'esempio andava nella direzione che sicuramente intendevi tu.
Certo che chiedere 'ste cose in questo NG.... ( "e risponder a cusě
poi" .... fatti i cazzi tuoi , Amanda ... " Ma non stavi facendo
altro" .... avevo cinque minuti.... " Ecco sono passati , adesso puoi
stare zitto" ... 'fanculo gli alter ego...)
Ciao. Fabrizio.
(Access XP (sp2), Win ME, P4 1Ghz, 320 RAM)
Newsgroup: it.comp.appl.access
Titolo: Importazione txt in tabella

Problema:
Ho un file di testo cosě composto:
_______________________________________________________
#Personali
*h:\numega
*h:\VmWare_Linux
*h:\VmWare_Windows
_h:\numega\SofticeSuite-nuss01.zip30/06/20022914963   %
_h:\numega\SofticeSuite-nuss12.zip30/06/20022913042   %
_h:\numega\SofticeSuite-nuss13.zip30/06/2002718414    %
*h:\numega\numega
_h:\VmWare_Linux\VMWare_v3.0_build_1455_and_v3.1_build_1790_for_Linux.zip11/01/2003440
%
_h:\VmWare_Linux\VMWare_v3[1].0_build_1455_and_v3.1_build_1790_for_Linux.zip11/01/2003440
%
_h:\VmWare_Linux\VMware-workstation-3.1.1-1790.i386.rpm11/01/200311503466
%
_h:\VmWare_Windows\VMware_Workstation_v3.2.0.2230keygenDAMN.zip11/01/200328344
%
_h:\VmWare_Windows\vmware-workstation-3.2.0-2230.exe11/01/200318599080  %
_h:\numega\numega\bar.nfo17/05/20022204      %
_h:\numega\numega\file_id.diz09/06/200260        %
_h:\numega\numega\Studio.c1009/06/20022913000   %
_h:\numega\numega\Studio.c1109/06/2002717275    %
_h:\numega\numega\XCV.nfo09/06/20024526      %
*h:\numega\numega\Studio
_h:\numega\numega\Studio\Data.Cab08/06/200229369644  %
_h:\numega\numega\Studio\instmsia.exe08/06/20021513987   %
_h:\numega\numega\Studio\instmsiw.exe08/06/20021526275   %
_h:\numega\numega\Studio\NuMega DriverStudio 2.6
Examples.msi08/06/20021300992   %
_h:\numega\numega\Studio\NuMega SoftICE Driver Suite
2.6.msi09/06/20025240832   %
_h:\numega\numega\Studio\setup.exe09/06/2002102400    %
_h:\numega\numega\Studio\setup.ini09/06/200262729     %
_____________________________________________________________________
Dove 
# = Nome del volume (CD o Cartella)
* = Indica le cartelle solamente
_ = Indica il percorso completo Con il nome del file, la data e la
dimensione del file
_________________________________________________________________________ 
Vorrei importarlo in una tabella di access suddividendo i vari campi 
Volume - Percorso - Nome file - Data file - Dimensione file
perň non ho la minima idea di come fare
Grazie in anticipo.

 ha scritto nel messaggio
news:cyinnl8pjdr6.13...@40tude.net...


Dai un'occhiata nell'help alle voci: Open, Input #,CLose; e ai recordset...
Ciao.
-- 
Sergio MAZZA



Ho provato a vedere quello che mia hai detto perň le istruzioni non sono
chiare, per non dire altro, sopratutto per quanto riguarda i recordset, non
riesco a capire come funzionino e come fare per crearli e gestirli magari
tramite un tasto di una maschera.
Grazie e scusa del disturbo.
Newsgroup: it.comp.appl.access
Titolo: Cur2Str non lo capisco.........

Salve,
sono un buon utilizzatore di Access, ma non so programmare in Visual Basic.Attualmente  ho un problema "tecnico" di una certa urgenza che ho urgenza di risolvere.
Vengo al dunque:
devo trascrivere delle cifre in lettere per poter compilare dei bollettini postali.
Ho scaricato Cur2StrEuro, ma non riesco a capire come posso utilizzarlo nel mio database.
Uso Access 2010.
Io avevo intenzione utilizzare la funzione in una query, per poi associarla ad un report, ma il file scaricato mi da solo un programma chiamato modCurrency2String,  con la funzione EuroCheque, che mi chiede 4 parametri (!).
Non ci ho capito nulla.
Spero nella vostra attenzione e ringrazio tutti anticipatamente

 chiede 4 parametri (!). Non ci ho capito nulla.
 
Da dove hai scaricato questo "Cur2StrEuro"?
Dal sito comune (da quale sezione?) o dove si trova?
 
-- 
Ciao
Karl
*********
Access FAQ: 
www.donkarl.com/it
 
 
 


Per Karl.
Scaricato dal Sito Comune, sezione General, n. 6.63
Grazie per l'interessamento. spero in un aiuto.....

 
 
io la uso in questa maniera. 
Ho il mio valore in euro (es 123.56) e ne traggo la parte intera (quella da convertire in lettere e lo metto in una stringa che sarà il primo parametro da passare a Eurocheque
 
Dim versamento As Double 
Dim TempVers As String, resto As Single, tempVersInLettere As String
Dim NumberValue As String, CaseValue As String, cmblanguage As String
'....
versamento = 123.56
'....
tempVers = Int(versamento)
resto = Round((versamento - Int(versamento)) * 100 ,0)
 
cmblanguage = 1  ' italiano
 
EuroCheque tempVers, sNumberValue, sCaseValue, cmblanguage
  '---- preparo la stringa finale :  CENTOVENTITRE/56
tempVersInLettere = sCaseValue & "/" & resto
 
'....
 
 
chiaramente la stringa finale la passi ad un controllo su qualche maschera o, in alternativa, puoi creare una Funzione che restituisca questa stringa e la puoi usare anche in una query.
 
Ivan
 
 
 
 
 
 

 
 
rileggendo la mia risposta precedente mi sono accorto che non è proprio efficace. Qui ti metto la funzione che avevo utilizzato per usare il tutto semplicemente passandogli un valore numerico. Si potrebbe rendere ancora più snella ma per una buona leggibilità dei passaggi la lascio com'è
 
Function provaCheque(ByRef valoreDaConvertire As Double) As String
    Dim tempVers As String, tempVersInLettere As String
    Dim sNumberValue As String, sCaseValue As String, cmblanguage As String
        tempVers = valoreDaConvertire
                cmblanguage = 1 ' lo metto ma e' opzionale !
        EuroCheque tempVers, sNumberValue, sCaseValue, cmblanguage
        tempVersInLettere = sCaseValue
    provaCheque = tempVersInLettere
End Function
 
 
la puoi chiamare da dove vuoi se la inserisci in un modulo di codice.
 
Ivan


Sei stato prezioso!! Moltissimi grazie.
Come l'hai fatta è molto più semplice da utilizzare.
Non so usare il visual basic (e mi piacerebbe imparare) e in queste situazioni mi incasino moltissimo.
Di nuovo grazie.
 
Raffaele
Newsgroup: it.comp.appl.access
Titolo: Query di eliminazione: non imparerò mai.

Per favore, mi dite dove sbaglio in questa query? Dovrebbe eliminare da Foglio1 tutti i record trovati in qMettiInsieme3:
 
DELETE DISTINCTROW Foglio1.*
FROM Foglio1 LEFT JOIN qMettiInsieme3 ON Foglio1.pIVA = qMettiInsieme3.pIva
WHERE (((qMettiInsieme3.IDop) Is Not Null));
 
Ho anche provato così:
 
DELETE DISTINCTROW Foglio1.*
FROM Foglio1 INNER JOIN qMettiInsieme3 ON Foglio1.pIVA = qMettiInsieme3.pIva;
 
ma niente.
Se invete il contenuto di qMettiInsieme3 va in una tabella tmi3 e faccio così, funziona:
 
DELETE DISTINCTROW Foglio1.*
FROM Foglio1 INNER JOIN tmi3 ON Foglio1.pIVA = tmi3.pIva;
 
Ho controllato e il campo qMettiInsieme3.pIva non ha duplicati.
Grazie a tutti
Riccardo Baldinotti

Salve Riccardo,
 
Barimoste ha scritto:

Forse questo è il problema. ;-)
Siccome non hai rivelato l'enunciato SQL di "qMettiInsieme3" si puo solo 
indovinare che si tratta di una query dove vai qualcosa che rende la 
query (e tutti query seguenti) non aggiornabile, p.e. un raggruppamento, 
funzione di aggreggazione o un DISTINCT.
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 
 
 


Centrato:c'è tutto quello che dici perché serve a raccattare dati da quattro origini difformi. (forse imparerò...)
Grazie.
Riccardo Baldinotti
Newsgroup: it.comp.appl.access
Titolo: X Silvio Berruti - Perdita Lire

 >
Caro Silvio....
Ho provato la tua formula...ma non funziona
calcolando un articolo (1 solo pz.) da 3500 mi da' come listino scontato
56.000 (applicando uno sconto 5% + 5%)....boh
Ti ricordo che gli sconti funzionano bene...e' lo sconto supplettivo che
mi
fa perdere lire....
Ti ricordo che i controlli sconto1 e sconto2 sono numerici...(no
percentuale).....
Grazie per l'eventuale risposta!!!!
Luigi

 Grazie per l'eventuale risposta!!!!
Ciao Luigi,
la risposta te l'ho già data nell'altro thread.
--


Newsgroup: it.comp.appl.access
Titolo: problema con filedialog

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
        .Title = "selezionare l'immagine per il reperto"
        .Filters.Add "immagini", "*jpg; *jpeg; *bmp; *gif*"
        .Filters.Add "tutti i file", "*.*"
        .InitialView = msoFileDialogViewThumbnail
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
non funziona
.filters.add
l'errore è chiamata di routine o metodo non validi
aiuto!!!! 


Che versione di Access stai utilizzando...?
Non sono certo ma mi pare servano i riferimenti alle librerie Office
per il FileDialog...
hai verificato....?
@Alex

Newsgroup: it.comp.appl.access
Titolo: cercare duplicati

Scusate la domanda, ma non so come devo fare,
vengo al dunque:-
Hho una maschera con i campi cognome, nome, data di nascita ecc..
adesso vorrei sapere come devo fare che quando inserisco un cognome il
maschera mi dovrebbe dire se è già inserito oppure lo devo inserire, e anche
se ci sono omonimi. Nello stesso tempo dovrebbe, se esiste gia riempire i
campi vuoti.
Grazie per il prezioso aiuto

 ha scritto nel messaggio
news:Mm9wb.81422$hV.31...@news2.tin.it...

Guarda sulla guida la proprietà : su non in elenco
Daniele

 ha scritto nel messaggio
news:Mm9wb.81422$hV.31...@news2.tin.it...

E le patatine e la pizza no....!
Devi chiarirti le idee, e fare una cosa alla volta.
1)Cercare i Duplicati e chiederti cosa fare....!
2)Se esiste riempi i Controlli associati....!
Prima di tutto il controllo deve avere Priorità, solitamente si sfrutta la
ChiavePrimaria
magari nel tuo caso hai pure CodiceFiscale o P.I.V.A., allora non serve
controllare
Nome Cognome ecc.... perchè sono perforza associati e univoci.
Se non disponi di ChiavePrimaria parlante allora ritengo assurdo controllare
se esiste Alessandro, forse sarà il caso di cercare solo per Cognome,
eventualmente
trovasse il Doppio allora si verifica il Nome.....!
Per questo devi intercettare l'evento Before_Update (Prima di aggiornare)
associato alla
TextBox d'inserimento del Cognome e sfruttare le Funzioni di Aggregazione
sui domini.
Nel tuo caso DlookUp pienamente documentata nell'Help con esempi.
Se questa funzione non restituisce nulla sigifca che non esiste, al
contrario potrai memorizzare
la cosa e successivamente controllare il Nome, sempre prima
dell'aggiornamento....!
Facciamo 1 passo per volta......!
Ciao.
@Alex.
Newsgroup: it.comp.appl.access
Titolo: ...e adesso dopo la MACRON...

Voglio il ritiro a :
Cellino San Marco, o al massimo per respirare aria pure, Montevergine.
ma mi s� che per questa ghiotta ipotesi DeLa e Marino aspetteranno qualche
offerta conveniente su LAST MINUTE.
:)
-- 
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

 :)
OPS sbagliato NG... sorry
;-)


Newsgroup: it.comp.appl.access
Titolo: Elaborare una statistica

Ciao, ho una maschera di inserimento dati.
In questa inserisco dei dati relativi ad un gruppo di persone a seconda
della citta di origine.
Per esempio, seleziono dalla casella combinata Torino ed inserisco tutte le
persone di torino.
Cambio citta, ad esempio Milano ed inserisco coloro che abitano a milano.
In un altra maschera invece vorrei fare una statistica, ovvero per città
quante persone ho inserito nel database.
Devo usare una query per ogni città nella seconda maschera?
Uso Access '03

 ha scritto nel messaggio 
news:SRtYd.32989$Of5....@nntpserver.swip.net...

devi fare una query di raggruppamento nel campo città segli conteggio in 
questo modo avrai
una form con elencate tutte le città con a fianco il numero dei soggetti di 
quella città
ciao.

Newsgroup: it.comp.appl.access
Titolo: elenco fornitori in ordine di importanza

Vorrei avere i seguenti report:
 Un elenco dei fornitori filtrato per anno in cui vengono ordinati per
importo complessivo degli acquisti.
Un elenco dei materiali filtrato per anno e fornitore con i materiali
ordinati per complessivo degli acquisti
Ho tre tabelle : Fornitori, ElencoMateriali, Acquisti
Fornitori
IDFornitore;NomeFornitore;.......
ElencoMateriali
IDMateriali;IDFornitore;NomeMateriale;Prezzo....
Acquisti
IDAcquisti;DataAcquisto;IDMateriale;Quantita
Ho provato con varie strategie comprese le query di raggruppamento ma non
riesco a filtrarle per data.
Qualcuno mi dà una dritta o qualche indizio per intravedere la luce oltre il
tunnel ;-)
Grazie a tutti
Bio

"bio" <c...@zed.met> ha scritto nel messaggio
news:binp8f$cbu$1...@geronimo.keycomm.it...

Hai usato la funzione year?
Antonio

"bio" <c...@zed.met> ha scritto nel messaggio
news:binp8f$cbu$1...@geronimo.keycomm.it...

Hai usato Year(DataAcquisto) raggruppata per le query?

 Hai usato Year(DataAcquisto) raggruppata per le query?
Tsk, tsk, tsk...
3 minuti di ritardo...
Non ci siamo...
Antonio

 ha scritto nel messaggio
news:vnK3b.274876$Ny5.8...@twister2.libero.it...

Dillo al mio newsreader!

 ha scritto nel messaggio
news:ABK3b.274921$Ny5.8...@twister2.libero.it...

Hmmm...
Dicono tutti cosě...
Antonio
Newsgroup: it.comp.appl.access
Titolo: Help me

Ho una maschera "fatture" con i seguenti campi: quantità,quantità1
etc,descrizione, descrizione1 etc, n°giorni, ngiorni1 etc ,prezzo, prezzo1
etc.
Nella maschera c'è un pulsante che apre un'altra maschera "fatturazione" che
restituisce dati da una query.
Come posso accodare questi dati ai campi presenti nella msachera fatture?
Grazie per l'aiuto
Enrico Iervolino

 ha scritto nel messaggio
news:j3kBb.178000$hV.67...@news2.tin.it...
Scrivi un subject più significativo del tuo problema...
Antonio

 ha scritto nel messaggio
news:clkBb.173388$vO5.6...@twister1.libero.it...


 uso questo codice:
Inoltre devi scrivere correttamente DOPO il quoting!!!
Ti consiglio di leggere il post periodico di Roberto "Istruzioni per l'uso
del NG"
Antonio
Newsgroup: it.comp.appl.access
Titolo: Combo Box

Salve e possibile personalizzare l'immagine-pulsante
di una Combo Box?
Grazie

 Grazie
No, ma puoi sempre usare trucchi o artifici....!
Metti la larghezza della Combo=0, di conseguenza
non vedi il Pulsante, come Pulsante metti quello che
vuoi tu, e su evento Click esegui il DropDown della
Combo.
Funziona molto bene per essere un trucchetto.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: Campi sorgente in una form

Salve, scusate la banalità ma sono al mio primo dbase...Ho una form
"Pagamenti", che si riferisce ad una omonima table, fin qui tutto bene: se
inserisco un controllo nella form, posso collegarlo ad uno qualsiasi dei
campi della tabella "pagamenti". Ora, però, vorrei collegare un certo
controllo ad un campo di UN'ALTRA tabella. Non so come fare. Provo a
spiegare l'organizzazione del dbase, peraltro sicuramente molto semplice,
così se qualcuno ha voglia mi può dare qualche dritta. Il db gestisce le
iscrizioni in una scuola: c'è una tabella "anagrafica" che contiene le info
sugli iscritti, con chiave primaria = "ID_Alunno". Per ogni alunno poi, è
necessario tener conto dei pagamenti che ha effettuato, per cui ho inserito
un'altra tabella, "pagamenti", che ha un campo "ID_Alunno" collegato al
campo omonimo della "anagrafica". Fin qui mi sembra di aver fatto giusto.
Ora, nella tabella "pagamenti", non sono presenti campi "nome" e "cognome",
in quanto non ho reputato ce ne fosse necessità. Però nella form
"Pagamenti", collegata alla tabella "pagamenti", vorrei che apparisse il
nome corrispondente all'"ID_Alunno". A naso, mi sembra che dovrebbe essere
possibile, visto che c'e solo un record, nella tabella "Anagrafica", con
quell'"ID_Alunno". Ma come faccio a dire ad Access che voglio quel campo,
corrispondente al record che ha il valore corrente di "ID_Alunno" come
chiave primaria, in una tabella che non è la sorgente, ossia "Anagrafica"
(la "sorgente" è "Pagamenti")?
Grazie mille.
--------------------------------
Inviato via 
http://usenet.iol.it

 ha scritto nel messaggio
news:136Z182Z2Z221Y...@usenet.iol.it...

Se ho capito bene, la soluzione è l'utilizzo della funzione dlookup (vedi
help); quindi se nella form hai un controllo chiamato "NominativoAlunno"
l'origine sarà:
'-----------
=DLookup("[nome] & ' ' [cognome]";"Anagrafica";"[id_alunno]=" & [id_alunno])
'-----------
Ciao.
--
Sergio MAZZA

...purtroppo non posso provare finché non arriverò a casa, però mi sembra
proprio che ci siamo...grazie!


Newsgroup: it.comp.appl.access
Titolo: Su maschere...

Ho costruito una tabella di codifica di una serie di oggetti del tipo
Campo1        Campo2
     A                    Pippo
     B                    Pluto
     C                    Paperino
    ....                    ............
e vorrei che quando in una maschera l'utente digita "A"  in un campo, in un
altro venga richiamato il valore corrispondente nella tabella cioè Pippo,
B ---> Pluto, etc...
Come si fa? (scusate ma sono un quasi neofita...)
Adriano

...

Newsgroup: it.comp.appl.access
Titolo: Help! Opzioni di Avvio

Salve a tutti
ho (innavertitamente) disattivato nelle opzioni dell'avvio del db le voci
riguardanti il menù di scelta rapida e le varie barre degli strumenti.. ora,
anche se vado nelle strutture degli oggetti non ho più menù (per esempio per
le proprietà)
Come faccio per riattivare il tutto?!?
Grazie!

Rob Inh00d wrote:

Strumenti/Avvio.../
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:H1Sz9.17834$Bs5.6...@news1.tin.it...

fai clic sul file pippo.mdb che devi lanciare tenendo premuto il tasto SHIFT
quindi, shift+doppioclic :)
Ciao

Newsgroup: it.comp.appl.access
Titolo: Risultato ripetuto in query

Ciao a tutti
    io devo filtrare dei dati per metterli in un campo Casella Combinata!
Ho fatto la mia bella query, "Estrai tutti i nomi degli alunni che sono
iscritti, che non sono ritirati, e che fanno parte di un determinato corso
(che viene selezionato da un'altra casella combinata.)"!
Tutto bene se non che mi estrae i nomi in maniera esatta ma me li ripete n
volte tante quante volte č presente il corso.
Es:
Io ho una tabella X dove ho IDAllievo e IDCorso perchč un allievo puň
aderire a piů corsi ma poi deve iscriversi a 1 solo corso etc...
Quindi puň capitare che nella tabella X mi trovo "A nel corso 1, 3, 4; B nel
corso 1, 2; C nel corso 1, 5 etc..."
Allora io poi seleziono 1 corso, e poi nell'altra casella combinata
(ALLIEVI) devono venirmi visualizzati appunto solo gli allievi ISCRITTI, non
ritirati e di quel corso. Perň se io scegliessi il corso 1 per esempio, mi
verrebbe visualizzato per esempio il nome A perň per 3 volte "A A A"
Come posso dire visualizzami solo 1 volta 1 nome?
Grazie
            Mik

 ha scritto nel messaggio
news:9se3th$4a4$1...@news.flashnet.it...

normalmente č un problema di collegamento nella query, devi aggiungere un
collegamento, prova collegando i campi che richiami nella maschera tra loro
fino a quando funziona.
io non sono bravo come gli altri della lista, ma normalmente a me cosě
funziona...
spero di esserti stato di aiuto
by
stwe

             Mik
In struttura della query, imposta a valori univoci la proprietà della query.
--
                     Angelo
------------------------------------------------------
Sito comune di it.comp.appl.access
http://www.sitocomune.com
------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Immissione valore parametro

Ho una qry parametrica che chiede all'utente di turno
di inserire un valore (nel caso una data).Come faccio
a cambiare il titolo dell'imput box (Immissione valore parametro) che mi
propone Access?
Ciao
Giuseppe

 ha scritto nel messaggio
news:On82a.221570$AA2.8...@news2.tin.it...

scrivi tra parentesi quadre [inserisci la data] ad esempio
zao

 ha scritto nel messaggio
news:b2b53v$gmc$1...@fata.cs.interbusiness.it...

Sorry ho letto male la domanda.
Non credo proprio sia possibile cambiare il titolo del Inputbox, puoi solo
metterci una stringa dettagliata tra le parentesi quadre che indichi il tipo
di dato da caricare come ho scritto prima.
zao

 ha scritto nel messaggio
news:On82a.221570$AA2.8...@news2.tin.it...

Invece di usare quell'imputbox crei una maschera e lě puoi fare tutto quello
che vuoi,
Ciao
Luigi

Newsgroup: it.comp.appl.access
Titolo: Problema serio Access <-> as/400

Da access 2000 vorrei costruire applicazioni che interagiscano velocemente
con un as/400 sfruttandolo come server.
Non ho travato che driver ODBC. Ma le prestazioni non sono accettabili
quando devo -  ad esempio - emettere una fattura.
Esiste un programma che mi permetta l'interattività da PC a AS/400?
Grazie.
One.Emmedi


Ho avuto esperienze in merito e non mi pare che le prestazione sia
particolarmente degradanti.
Dipende molto dall'as/400 , il modello e la versione del os/400.
Da un pň, dalla V4R4M0 dell'Os400 e con i dirver del client access V4R4M0 le
prestazioni sono accettabilissime.
Saluti
Antonio


Ma esiste un ambiente visuale, magari di terze parti, per la costruzione di
applicazioni che sfruttino il db2/400 dell'as/400 e la flessibilietà
dell'interfaccia di Access 2000.
One.Emmedi

Newsgroup: it.comp.appl.access
Titolo: Query per recuperare record con valori NON immessi in un campo data

Salve a tutti.
spero l'oggetto sia stato chiaro, ma non me ne venivano di migliori :D
Ad ogni modo, il mio problema è scrivere una query che mi recuperi tutti i
record di una tabella che hanno un campo di tipo data vuoto, in cui l'utente
non ha inserito nulla.
ho provato con
SELECT Nome, Indirizzo, Codice, RegistroChiamate.* FROM RegistroChiamate
INNER JOIN Clienti ON registrochiamate.IdCliente=clienti.codice
WHERE registrochiamate.[data appuntamento] = null
ma la query mi restituisce una tabella vuota, nonostante io abbia impostato
a null il valore predefinito del campo "data appuntamento".
Come risolvere questo problema?
Grazie mille a tutti!

ok funziona! grazie!
...
ora però quanto mi piacerebbe capire la differenza... :-)
grazie ancora!

 ha scritto nel messaggio
news:ldG6c.1085$jY1...@tornado.fastwebnet.it...

La differenza che hai usato una sintassi non accettata da SQL (la costante
figurativa Null con l'operatotr =); al limite avresti potuto scrivere:
 registrochiamate.[data appuntamento] Is Null.
Comunque il modo classico è usare in una WHERE la funzione IsNull che
ritorna il valore True se il campo è Null, in caso contrario il valore
False.
Non so che altro io; non ho fatto io le regole dei linguaggi: mi limito ad
applicarlr. ;-)


grazie mille!! gentilissimo!
Newsgroup: it.comp.appl.access
Titolo: principiante e recordset

come faccio in vba a visualizzare a video un recordset?
grazie
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:MABBKILIGBABHCANJ...@intenet.net...

Puoi per esempio utilizzare il controllo DBGrid.
Ciao!
Esteban
Hosted by 
www.seber.it

 come faccio in vba a visualizzare a video un recordset?
in che senso?
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

scusate forse non sono chiaro:
io interrogo il db estraggo un recordset a questo punto voglio fare vedere a
video il risultato della query
come faccio?
spero di essermi spiegato
ciao
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 


 come faccio?
Crea una maschera in modalità maschere continue e imposta la query come
Origine Record.


Newsgroup: it.comp.appl.access
Titolo: Funzione Dcount

Ho utilizzato la funzione Dcount("campo","tabella") inserita in una query
per trovare il numero dei records di tutte le tabelle usate dal DB.
Ora sto trasferendo i miei programmi in Access2002 / Sql Server 2000 e non
riesco a trovare una funzione equivalente che mi calcoli il numero di record
di un dominio.
Qualcuno mi puň aiutare?
Grazie anticipate
Marco Dell'Oca
D.M.Software


Puoi provare ad usare questa istruzione SQL:
- select count(*) from nome_tabella
Roberto Pasqualini

 > Qualcuno mi può aiutare?


Newsgroup: it.comp.appl.access
Titolo: applicazione da access

come posso far diventare un'applicazione di access eseguibile senza access
installato
grazie

 grazie
Sito comune (
www.sitocomune.com
)
Cerca il faqqone.
Sib

Newsgroup: it.comp.appl.access
Titolo: Simulare pressione ENTER

E' possibile simulare la pressione del tasto ENTER su un campo particolare??
Thanks
LuKe

 ha scritto nel messaggio
news:ba2lah$3su$1...@fata.cs.interbusiness.it...

Sull'help prova a dare un'occhiata all'Istruzione SendKeys.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: update percorso file

salve a tutti.
ho necessità di fare un update di un campo di una tabella.
ho questo formato di dati:
\\Server01\cartellaCondivisa1\nomefile.jpg
e vorrei ottenere questo
nomefile.jpg
è possibile farlo con un'istruzione UPDATE o devo  utilizzare codice
DAO?
Grazie

 ha scritto nel messaggio 
news:1167421523....@79g2000cws.googlegroups.com...
salve a tutti.


\\Server01\cartellaCondivisa1\nomefile.jpg
e vorrei ottenere questo
nomefile.jpg

Grazie
beh, per ottenere il nomefile potresti usare una funzione del tipo
-------------------------------------
Function NomeFile(Fullpath As String) As String
NomeFile = Right(Fullpath, InStr(1, StrReverse(Fullpath), "\") - 1)
End Function
-----------------------------------
Sicuramente con DAO mi riuscirebbe più semplice, ma parlo a titolo personale.
Michele

Grazie
prego,
Ciao
-- 
Giorgio Rancati
[Office Access MVP]

giorgio rancati ha scritto:

Grazie..e buon anno a te e a tutto il NG

 SET Campo1=Replace(Campo1,Left(Campo1,instrrev(Campo1,'\')),'')
Grazie Giorgio, senza saperlo mi hai illulinato sull'esistenza di una nuova funzione, InStrRev. Io 
Giravo la stringa con StrReverse ed utilizzavo InStr. Adesso potrň ulteriormente snellire il codice.
Saluti
Michele
PS ma com'č bere una bottiglia di rum che ha 30 anni? Quanto puň valere una bottiglie del genere? 

 Michele
:-)



Beh, i Rum normali mi sembrano già acqua sporca, parlando di quelli commerciali ovviamente. I pezzi 
migliori se li tengono e se li bevono sul posto. Come penso sia per le grappe e i whiskies. Beh i 
whiskies che costano soldi... meritano veramente. Proprio due pianeti diversi dal classico 
commerciale.
Michele
Newsgroup: it.comp.appl.access
Titolo: routine per accodare records in tante tabelle

Salve a tutti in AXP ho un db con 50 tabelle. Ogni giorno ricevo un db che
contiene le stesse 50 tabelle nelle quali sono presenti gli eventuali nuovi
record aggiunti.
Con tante q. di accodamento aggiungo in nuovi records nelle rispettive
tabelle.
Mi chiedevo se era possibile creare una routine che, selezionando tabella X
tabella, faccia 50 q. di accodamento.
Nel sito comune ho trovato un modo X ottenere l'elenco delle tabelle
presenti nel mio db.
SELECT MSysObjects.Name, MSysObjects.Type, MSysObjects.Flags
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((MSysObjects.Flags)=0))
In questo modo ottengo i nomi di tutte le tabelle.
Avevo pensato di sfruttarlo per creare un recordset formato dall'elenco di
tutte le tabelle, quindi creare un ciclo che crea tante q di accodamento X
qanti sono i record del recordset, ma mi incasino sulla sintassi della query
di accodamento.
Avevo pensato ad una cosa del genere:
'--------------------
Sub mio()
Dim dbs As Database
Dim rst As DAO.Recordset, qdf As QueryDef, strSQL As String
Set dbs = CurrentDb
' il recordset X l'elenco delle tabelle
Set rst = dbs.OpenRecordset("SELECT MSysObjects.Name, MSysObjects.Type,
MSysObjects.Flags FROM MSysObjects WHERE (((MSysObjects.Type)=1) AND
((MSysObjects.Flags)=0))")
' inizio il ciclo
Do Until rst.EOF
'la stringa per la q. di accodamento che utilizza il recordset creato in
precedenza
    strSQL = "INSERT INTO" & Chr$(34) & rst!Name & Chr$(34) & "IN
'C:\secondoDB.MDB' SELECT" & Chr$(34) & rst!Name & Chr$(34) & ".* FROM" &
Chr$(34) & rst!Name & Chr$(34)
'creo la query, la eseguo, la cancello e ricomincio
Set qdf = dbs.CreateQueryDef("Q1", strSQL)
DoCmd.OpenQuery ("Q1")
dbs.QueryDefs.Delete qdf.Name
rst.MoveNext
Loop
End Sub
'--------------------------
Secondo voi il procedimento è corretto?
Mi sa che il casino è nella sintassi della query di accodamento!
Potete darmi qualche suggerimento?
Grazie a tutti.
Giancarlo

 ha scritto nel messaggio
news:cdj03j$4gq$1...@balena.cs.interbusiness.it...

Intanto inizia ad inserire gli spazi giusti nella istruzione SQL:
strSQL = "INSERT INTO " & Chr$(34) & rst!Name & Chr$(34) & " IN
'C:\secondoDB.MDB' SELECT " & Chr$(34) & rst!Name & Chr$(34) & ".* FROM " &
Chr$(34) & rst!Name & Chr$(34)
Ciao.
-- 
Sergio MAZZA

Sergio MAZZA ha scritto:


E sostituisci i Chr$(34) con le parentesi quadre, aperta e chiusa.
Se ancora non va fai un "debug.print strSQL" e verifica se la stringa è
costruita bene.
Namor
-- 
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


Grazie. Giancarlo.



Giancarlo
Newsgroup: it.comp.appl.access
Titolo: Trovare Giorni

Scusate ancora,
    Come si puň fare a trovare l'ultimo gg (il piů vecchio) all'interno di
una tabella?
Es:
        01/01/01; 06/01/01; 03/01/01; Etc......
Io devo trovare il secondo (in questo caso) record!
        Stň impazzendo!!

 ha scritto nel messaggio
news:9jrbio$met$1...@news.flashnet.it...

Puoi fare una query con i totali e imposti la data a MAX, anche gli altri
campi a MAX ma la data deve essere il campo piů a sinistra.
Funziona?
Ciao
Arturo

 wrote in message
9jrbio$met$1...@news.flashnet.it...

Io so che in una query puoi utilizzare l'istruzione "Max"
butta un occhio alla guida se puň fare al caso tuo!
Silvia


quindi il piu' recente e non il piu' vecchio!!
ma help lo leggete??????
cmq
in sql:
SELECT Max(CampoData) FROM NomeTabella
in VBA
=Dmax("[CampoData]","NomeTabella")
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------

Newsgroup: it.comp.appl.access
Titolo: da....a.....

Come faccio a fare in modo che clicando su un pulsante in una maschera
automaticamente in tabella vengano creati un determinato numero di
record con un numero progressivo?
Ad esempio:
Nella maschera mi compare CODICE.......... da...............
a..................
Se nella casella A scrivo 120 e nella casella DA scrivo 150, si
dovranno creare in una tabella 31 records, in ognuno dovrà apparire
120, 121, 122, 123, 124.....fino a 150, e in fondo la scritta inserita
nella casella codice:
Ad esempio:
Maschera:
CODICE: abcd
DA: 120
A: 150
Tabella creata in automatico:
n°                                CODICE
120                              abcd
121                              abcd
122                              abcd
123                              abcd
124                              abcd
125                              abcd
.......
150                              abcd
secondo voi è possibile?
Grazie :)

 secondo voi è possibile?
Si, in diversi modi. A parer mio quello più semplice prevede un ciclo in 
cui utilizzi il comando DoCmd.RunSQL.
====================================
Dim nContDa As Integer
Dim nContA As Integer
Dim nCont As Integer
nContDa = Me.controlloDA
nContA = Me.controlloA
DoCmd.SetWarnings False
For nCont = nContDa To nContA
  DoCmd.RunSQL "INSERT INTO nometabella VALUES (" & Me.nCont & ", " & Me.contolloCODICE 
& ")"
Next
DoCmd.SetWarnings True
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 ha scritto nel messaggio 
news:1185282115.5...@r34g2000hsd.googlegroups.com...

Ad esempio:



[risposta]
Possibile; sì! Ma, utile? Boh!
Es.
Dim conta as integer
for conta = me!nomeCasellaDa to me!nomeCasellaA
    currentdb.execute "Insert into nomeTabella (progressivo, codice values 
(" & conta & ",'abdc')"
next
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Zoom

Un Saluto
Uso Access 2003 vovrei modificare il file Utility.mda per avere un carattere 
personalizzato quando uso lo zoom su vari controlli e caselle di testo della 
maschera, ho provato ma non riesco qualcuno sa come fare?
In alternativa un codice globale che mi apra una maschera zoom con una 
combinazione di tasti senza dover inserire la chiamata su tutti i controlli 
della maschera.
Grazie
 
-- 
Ciao a tutti 
 
 

 ha scritto nel messaggio 
news:jt8sd6$39o$1...@nnrp.ngi.it...


 RISOLTO !!!!!!!!!
 
...ehm, interessava anche a me... come hai fatto?
 
Grazie
 
Ciao
 
Silvio

Newsgroup: it.comp.appl.access
Titolo: [REQ] Ottenere in VBA la selezione di un menu a tendina e di una casella combinata

ciao,
ho questo problema, spero che qualcun* possa darmi uan mano
uso access 2000.
in una maschera ho un menu a tendina chiamato committente i cui valori 
vengono definiti da una Rowsource.
QUalcosa tipo: me.committente.rowsource = "select n1,n2,n3 ecc.. "
Prima domanda: vorrei prendere da uno script VBA il valore selezionato.
Se faccio me.committente.value non ottengo quello che vedo nella tendina 
ma n1. Come fare?
Altra questione. Nella stessa maschera ho una casella combinata. Tramite 
lo stesso script VBA vorrei prendere tutte le righe.
Ho cercato di fare quello che è scritto qui: 
http://www.sitocomune.com/forms/forms111.htm
Ma dice ceh ItemData non è uan sua proprietà
Cosa sbaglio?
Grazie.MT


Il controllo ha una colonna associata che è quella che ora prelevi di
Default.
Se vuoi leggere la colonna 2(con Indice 1) devi accedere all'Insieme
Column(Index)
Valore=Me.NomeCombo.Column(Indice)
@Alex

 @Alex
ciao
non va, o forse sto sbagliando qualcosa.
l'origine dati della mia combobox č:
SELECT Nominativi.Num, [Nominativo] & ", " & [via] & " - " & [CAP] & " " 
& [citta] & " (" & [PR] & ")" AS Espr1
FROM Nominativi
ORDER BY Nominativi.Nominativo;
questo fa sě che se seleziono dal menu a tendina un
Mario Rossi, Via Marco Aurelio - 00100 Roma
che nel database Nominativi ha come NUM 100
se chiedo: Committente = Me.Committente.Column(0)
Mi dice che Committente č 100
se chiedo: Committente = Me.Committente.Column(1) mi dice che il valore 
non č valido.
Come posso fare?
MT

 Grazie.MT
Qui finalmente parli di "casella combinata"...
La proprietà ItemData esiste per le combo ma richiede un numero di indice. 
Per farti
un esempio metti un pulsante sulla maschera e sull'evento click scrivi:
Dim i As Integer
For i = 1 To Me.Committente.ListCount
MsgBox Me.Committente.ItemData(i - 1)
Next i
Otterrai tanti msgbox per quante sono le righe della combo.
Da questo ne potrai dedurre un codice per scorrere l'elenco e restituire 
ogni singolo valore.
Altra strada è quella di aprire un recordset basato sulla stessa select che 
alimenta la combo e, via codice, ne fai quello che vuoi.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: controllo immagine e file

Ho realizzato un controllo immagine in una maschera .
Salvo il percorso del file in un campo testo e sull'evento corrente della
maschera si carica l'immagine. Funziona benissimo con i file .jpg, ma avendo
anche altri file, come ad es .mdi all'apertura della maschera mantine in
memoria e quindi visualizza l'ultima immagine .jpg caricata.
Come posso risolvere ?
grazie

 ha scritto nel messaggio
news:2pjkpqF...@uni-berlin.de...

Cosa accosti un file immagine ad un file MIDI non capisco...!!!
In ogni caso su Current invece di impostare
la proprietà Picture leggi il valore del Campo Testo e
se Nullo Immagine.Picture=vbnullstring
In ogni caso se provi con la versione MDE questo non
si verifica.
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 wrote in message
news:ch2btg$mt8$1...@lacerta.tiscalinet.it...

Ora uso:
    Me!ImageFrame.Picture = CurrentProject.Path + [FotoPath]
    Me!ImageFrame.Visible = Not IsNull(Me![FotoPath])
per le immagini . Funziona con .jpg ma con .mdi ripropone l'ultima immagine
.jpg caricata, mentre desidererei che fosse vuota o non visibile (
l'immagine precedente non rispecchia l'immagine mdi).
Uso .mdi perchè è l'unico modo veloce per mettere assieme delle immmagini
.jpg al posto di creare 5 /6 campi path.
Penso si tratti solo di gestire l'errore.
Con MDE ho lo stesso problema.
Grazie

 Grazie
Adesso ho capito.
Io più che gestire l'errore gestirei l'estensione dei
File.
Questa funzione estrae dal Path l'estensione ultimi
caratteri dopo il PUNTO.
Public Function retExtension(strPath) As String
  On Error Resume Next
  Dim posPoint As Integer
  posPoint = InStr(strPath, ".")
  retExtension = UCase(Mid$(strPath, InStr(strPath, ".") + 1, Len(strPath) -
posPoint))
End Function
Ora, leggi e compara:
Dim strExt as string
Me!ImageFrame.Picture = vbnullstring
Me!ImageFrame.Visible =False
If Not IsNull(Me![FotoPath]) then
    strExt=retExtension(CurrentProject.Path + [FotoPath])
    Select Case strExt
        Case "BMP", "JPG", "GIF", ecc......! Occhio ai formati non
supportati
            Me!ImageFrame.Picture = CurrentProject.Path + [FotoPath]
            Me!ImageFrame.Visible =true
        Case "MIDI"
            'Fai quello che vuoi con i midi
       Case else    'se esiste
            'Fai quello che vuoi con Else
    End Select
End If
Ciao.
