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

chi ha realizzato il calcolo del codice fiscale in access 2007?
me lo può passare via mail?

 me lo può passare via mail?
www.sitocomune.com
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access

 
www.sitocomune.com
Pensa un po'!!!
Ed io che credevo che ad ogni release di Access si dovesse riscrivere tutto 
il codice disponibile sul sito comune.....
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 skype:pbsoftsolution
ma è in ADO?

ma è in ADO?
perchè lo vuoi in ADO?  da Access 2007 è ritornato di moda DAO!  ( a 
dire il vero non era mai passato di moda... ma ora è ufficiale!)
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
---------------------------------------- 

 me lo può passare via mail?
come + volte ribadito, il calcolo è "pericoloso", nel senso che in
caso di codice fiscali identici relativi a + persone,
l'amministrazione finanziaria provvede ad emetterli univoci.. cosa
impossibile con il calcolo automatico.

 me lo può passare via mail?
ops
www.accessgroup.it


 dire il vero non era mai passato di moda... ma ora è ufficiale!)
W ADO :-)
Se aggiungo poi che non ho mai utilizzato DAO, ho paura che il tuo cuore 
non reggerà il colpo :-)


 impossibile con il calcolo automatico.
Parole sante.
Aggiungo solamente che, tuttavia, è possibile calcolare tutte le 127 varianti 
omofiscali di ogni codice.


 dire il vero non era mai passato di moda... ma ora è ufficiale!)
ma adesso la domanda mi sorge spontanea:
che differenza c'è tra ADO e DAO ???? intendo in pratica!
Quanto conviene scegliere uno o l'altro?
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Quanto conviene scegliere uno o l'altro?
"....ed ecco, il velo del tempio si squarciň, la terra si aprě inghiottendo 
ogni essere vivente...."
:-)


 ha scritto nel messaggio

Vogliamo il versetto!
Vogliamo il versetto!
Almeno si sappia dove cercare!
Davide (Sib)
-- 
www.gestionedati.com
 

 --
www.gestionedati.com
I versetti sono esattamente:
Matteo 27:50 E Gesù, avendo di nuovo gridato con gran voce, rese lo
spirito.
Matteo 27:51 Ed ecco, la cortina del tempio si squarciò in due, da
cima a fondo, la terra tremò, le rocce si schiantarono,
Matteo 27:52 le tombe s'aprirono e molti corpi dei santi, che
dormivano, risuscitarono;
Matteo 27:53 e, usciti dai sepolcri, dopo la risurrezione di lui,
entrarono nella città santa e apparvero a molti.

 cuore non reggerà il colpo :-)
Io sono il tuo omologo del partito contrario


 l.
Non c'è una vera preferenza tra i due
DAO è più vecchio e + ricco
Per fare alcune cose con ADO (accesso alla struttura delle tabelle) bisogna referenziare anche ADOX
Poi sono guerre di religioni tra chi è + veloce. Microsoft ha avuto un solo cedimento nella preferenza, in Axp.
Non pensare che 
ADO.NET
 abbia a che fare con ADO 

Newsgroup: it.comp.appl.access
Titolo: Collegamento ipertestuale vs stringa

Sto considerando l'alternativa di rappresentare dei
collegamenti a dei files Word in una tabella come
collegamenti ipertestuali piuttosto che come semplici
stringhe. Definisco un campo di testo nella maschera e nel
primo caso scelgo i files mediante una maschera predefinita,
nel secondo caso uso un pulsante di comando per scegliere i
files e poi lancio una Shell. C'e' qualche differenza tra le
due possibilita', in particolare l'occupazione di memoria e'
la stessa?
il barbi

 ha scritto nel messaggio
news:Gkdmb.346926$R32.11...@news2.tin.it...

La struttura dei dati memorizzate in un campo di tipo Collegamento
ipertestuale č divisa in tre parti ed č la seguente:
visualizzatesto#indirizzo#sottoindirizzo
La prima parte (visualizzatesto) e la terza parte (sottoindirizzo) sono
opzionali, per cui la dimensione di un campo di Collegamento ipertestuale
puň cosě risultare piů lunga di qualla di un campo di tipo Testo solo di 2
caratteri: i due caratteri # posti all'inizio ed alla fine dell'indirizzo,
quindi del tutto trascurabile nel decidere il tipo di campo da usare,
decisione che va presa in base ad altri criteri valutativi e alla natura ed
all'uso che si deve fare del dato memorizzato nel campo.
Per maggiori ragguagli leggi cosa dice l'help all'argomento Digitare un
indirizzo per collegamento ipertestuale in visualizzazione Maschera o Foglio
dati.
Uno dei criteri di scelta č la struttura del campo: nel campo di tipo
Collegamento ipertestuale la parte visualizzatesto (che č poi quella che si
visualizza nella casella di testo ad esso associata) puň essere di tipo
descrittivo e diversa dall'indirizzo.
In un campo di tipo collegamento ipertestuale oltre all'indirizzo si puň
memorizzare anche un sottoindirizzo (posizione all'interno del file o della
pagina web), cosa utile, se non indispensabile, se il collegamento riguarda
un URL o un fglio di calcolo.
In un campo di tipo Testo si possomo memorizzare al massimo 256 caratteri,
in un campo di tipo Collegamento ipertestuale si possono memorizzare sino a
2048 caratteri per ognuna delle tre parti, quindi 2048x3; per collegamenti a
pagine web la cosa non č per nulla trascurabile.
Se poi usi un campo di tipo Collegamento ipertestuale solo per memorizzare
l'indirizzo di un file che č sul disco rigido, la differenza sostanziale con
un campo di tipo Testo č di tipo operativo; se in una maschera una casella
di testo č associata ad un campo di tipo Collegamento ipertestuale, per
aprire quel file č sufficiente fare clic con il tasto sinistro del mouse
sulla casella di testo, senza scrivere codice VBA e senza usare pulsanti di
comando.
Spero di averti doto argomaenti sufficienti per decidere, lunghezza del
campo a parte.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Errore nell'aggiunta di un nodo figlio di una TreeView

Perdonatemi ma non riesco proprio a capire cosa sbaglio
Mi da un errore
nella riga
Set TempNode = Me.TVUO.Nodes.Add(sRoot, tvwChild, sNode, sNode)
magari è una sciocchezza ma proprio non la vedo...
P.S. Ho provato senza sRoot e funziona ma non lo mette sotto sRoot
HTH
Luca
Private Sub TreeViewUO()
Dim RecList As ADODB.Recordset
Dim TempNode As MSComctlLib.Node
Dim sNode As String
Dim sRoot As String
Me.TVUO.Nodes.Clear
'Scrive il primo nodo: il cliente
Set TempNode = Me.TVUO.Nodes.Add(, , sRoot, Me.NomeSocietà)
TempNode.Expanded = True
Set RecList = New ADODB.Recordset
sRoot = Me.IDCliente
RecList.Open "SELECT * FROM TabUnitàOrganizzative WHERE IDCliente ='" & 
sRoot & "'", CurrentProject.Connection, adOpenStatic, adLockReadOnly
Do While Not RecList.EOF
    sNode = RecList("IDUo").value
    Set TempNode = Me.TVUO.Nodes.Add(sRoot, tvwChild, sNode, sNode)
    TempNode.Expanded = True
    RecList.MoveNext
Loop
RecList.Close
End Sub 

 Set TempNode = Me.TVUO.Nodes.Add(sRoot, tvwChild, sNode, sNode)
Che errore viene segnalato?
Potresti cortesemente essere più preciso?
Così ad occhi chiusi potrei  solo dirti di controllare l'eventualità che
sRoot ed sNode coincidano per qualche record (anche se non credo).
Fammi sapere.
--
Simplex2
www.mdenittis.it

 ha scritto nel messaggio 
news:d4866d$pmh$1...@canarie.caspur.it...

Nota la mia finezza...
vale un 3d su un newsgroup:
---------- CUT
Set TempNode = Me.TVUO.Nodes.Add(, , sRoot, Me.NomeSocietà)
TempNode.Expanded = True
Set RecList = New ADODB.Recordset
sRoot = Me.IDCliente
-------------CUT
sRoot inizializzato dopo il nodo!
Merito il Nobel dell'informatica...
grazie comunque
Luca P.
Newsgroup: it.comp.appl.access
Titolo: Selezionare il record di una casella di riepilogo

Salve a tutto il NG. Sono un super neofita di Access.
Ho realizzato un piccolo progetto. Ho creato una maschera che filtra dei
record e li visualizza all'interno di una casella di riepilogo.
Ora come faccio a selezionare il record per, ad esempio vederne l'anteprima
in un report?
Vorrei utilizzare un tasto nella maschera a cui su onClick inserisco il
codice tipo:
DoCmd.OpenReport "Rpt_DDT" , ....... ma come posso impostare la condizione?
Grazie, Faber

 ha scritto nel messaggio 
news:cSU4e.1184865$35.43...@news4.tin.it...

Ciao,
una soluzione è quella di crearti una semplice query di visualizzazione, 
drag & drop dei campi che ti interessano e poi nella sezione criteri, in 
corrispondenza del campo della tabella da cui hai tirato fuori i valori del 
combo  scrivi [Forms].[NomeMaschera].[NomeCasellaCombinata].[Value]. Ti 
costruisci 1 report sulla base della tua query ed a questo punto tenendo la 
maschera aperta (dopo aver inserito  pulsante che ti fa il prewiev o la 
stampa del report) selezionare 1 valore del combo box e premi sul 
pulsante...
GAspare 

 ha scritto nel messaggio 
news:MkV4e.744436$b5.33...@news3.tin.it...

La sintassi è questa:
DoCmd.OpenReport "Rpt_DDT", acPreview, , "[IDOrdine] = 
Forms![maschera]![IDOrdine]"
ossia apre il report filtrando i dati dove IDOrdine della maschera 
corrisponde all' IDOrdine del report
Ciao
Roberto 


Tutto fatto. Non funziona. Continua a chiedermi il valore del campo DDT_ID,
su cui ho impostato la condizione.
Vorrei perň essere piů chiaro:
Utilizzando l'esempio del Sito Comune 3.29 "Come creare un controllo di
ricerca" , ho realizzato una Form. Effettuo la ricerca nelle tabelle
digitando in un una casella di testo (quindi pulsante "Cerca...").   nella
casella di riepilogo sottostante mi viene il listato relativo alla ricerca
fatta.
La mia esigenza č di selezionare una delle righe del listato nella casella
riepilogo, e tramite un pulsante, visualizzare un report (o form)
Spero di essere stato piů chiaro, Comunque grazie per la risposta
Faber

 ha scritto nel messaggio 
news:%KW4e.1185546$35.43...@news4.tin.it...

Hai provato la mia soluzione? 

 Faber
Metti in After Update della casella di riepilogo:
DoCmd.OpenReport "Rpt_DDT", acViewPreview, , "[IDOrdine] =" & 
[NomeCasellaRiepilogo]
se in quella è un campo numerico,
DoCmd.OpenReport "Rpt_DDT", acViewPreview, , "[IDOrdine] ='" & 
[NomeCasellaRiepilogo] & "'"
se campo testo.
Ciò che appare come  '"  è dato da  '  " senza spazi,
ciò che appare  "'"  è dato da  "  '  ".
Bruno

 ha scritto nel messaggio
news:3ZW4e.1185616$35.43...@news4.tin.it...

Newsgroup: it.comp.appl.access
Titolo: Lockare un file word o excel

Come posso lockare un file esterno tipo word od excel da codice?
Esiste qualche possibilità tipo Shell()?
Grazie
Alberto

 ha scritto nel messaggio 
news:a9W6e.1224017$35.44...@news4.tin.it...

Ciao,
che intendi per lockare: aprire per caso?
penso che eventualmente lo fai da access: vero?
Gaspare 


Intendo trasformarlo in "sola lettura" senza possibilità di modifica.
In pratica ho una tabella con un campo ole contenente il link ad un 
documento (word od excel).
Il documento può venire aperto e modificato (con inserimento di dati). 
Vorrei poterlo trasformare in documento di sola lettura direttamente da 
access. E' possibile o chiedo troppo????
Grazie
Alberto

 Alberto
Probabilmente Gaspare intendeva chiedere se il documento:
- lo vuoi aprire in sola lettura in alcuni casi;
- vuoi renderlo in sola lettura agendo sulle proprietà del file;
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:a9W6e.1224017$35.44...@news4.tin.it...

Potresti salvare il file in formato .rtf e visualizzarlo tramite il 
controllo richt text box. Questo controllo permette anche la sola lettura. 
Il file .rtf può essere sia collegato, sia incorporato.
Io lo utilizzo per simulare una sorta di licenza all'uso del database.
vtt 


Nell'help in linea (Proprietà Attributes) ti viene spiegato come fare e c'è un esempio...
Ciao.
-- 
Sergio MAZZA

Newsgroup: it.comp.appl.access
Titolo: x BISIO GURU

tu che sei un guru del ng mi puoi aiutare nel capire cio che devo fare nel
mex
"Compattazione archivi, proprietą tabelle, query,etc..."
il sito non mi aiuta molto speravo fosse + semplice
risposta non obbligatoria ma se puoi aiutarmi grazie tante in caso contrario
grazie poche ;-)
ciao

 tu che sei un guru del ng mi puoi aiutare nel capire cio che devo fare nel
secondo me se firmavi Samantha avevi piů fortuna

 ha scritto nel messaggio
news:ahs7d6$3io$1...@lacerta.tiscalinet.it...

E mi biasimi per questo?
Antonio

 ha scritto nel messaggio
news:5wt09.7387$n04.1...@twister2.libero.it...

Ok io cosce niente ma ti posso presentare una mia   amica lei si che di
cosce ne ha tante infatti le misure son quelle di TATIANA
hehehehehhehehehhehe
;-)
saluti a tutti

 cosce ne ha tante infatti le misure son quelle di TATIANA
Access?
Che č access? E' quello quando si entr ?
Antonio


ma tu sai chi č TATINA?????
150 x 200x400
praticamente un cubo che assomiglia ad una sfera ... altro che entrare... lě
entri ma non ne esci piů perche ti perdi e poi dobbiamo chiamare a "chi l'ha
visto?" hehehehehehehe

 ha scritto nel messaggio
news:ai2v9h$t1v$1...@serv1.albacom.net...

Non hai capito...
con questi accordi... io NON so piů cosa sia access...
Antonio

 ha scritto nel messaggio
news:tt819.13274$n04.3...@twister2.libero.it...

Antonio Biso, che simpatico umorista..............
MAssimiliano

 con questi accordi... io NON so piů cosa sia access...
meno male pensavo volessi farti del male anche tu hehehehehe
va bene ti presento samantha ma vedi che rischi l'infarto quando parte non
la fermi +
cosa preferisci fiori o dolcini ... l'importante che poi non dai la colpa a
me ma a LIONES ;-)
Newsgroup: it.comp.appl.access
Titolo: applicazione filtro

Cerco un' anima gentile che mi aiuti a risolvere una impostazione:
Ho creato una maschera per l'inserimento di dati. Vorrei poter applicare il
"filtro in base a maschera"  e il relativo "applica filtro" con semplice
tasto funzione o altro tasto della tastiera, senza ricorrere al mouse e
dover cliccare sui relativi comandi sulla barra degli strumenti. Come si puň
abbinare questi comandi ad uno o piů tasti ?
        Grazie
                                    Arianna

 ha scritto nel messaggio
news:92khj8$o1b$1...@serv1.iunet.it...

una via č l'utilizzo di una macro che chiami un'altra macro
una seconda una macro che chiami una funzione
1.1) in una macro es. mcrFiltro:
Nome macro                Azione                   Comando
FiltroBaseMaschera     EseguiComando     FiltroInBaseAMaschera
ApplicaFiltro               EseguiComando     ApplicaFiltroOrdina
1.2) macro AutoKeys
Nome macro             Azione                Nome macro
combinazione tasti     EseguiMacro       mcrFiltro.FiltroBaseMaschera
combinazione tasti     EseguiMacro       mcrFiltro.ApplicaFiltro
giuseppe

Newsgroup: it.comp.appl.access
Titolo: report enigma

Ragazzi mi è stato dato un db fatto con access, (se lo vogliamo chiamare db,
perchè sembra un foglio execel) perchè da un report inserisco e trovo delle
informazioni.
La cosa che mi sorprende è:
1) Non ci sono tabelle da cui fa il report ma in visualizzazione dati, mi da
i campi (in una tabella delle etichette inserite nel report)
2)Vorrei aggiungere una colonna che contiene un oggeto ole per le immagini
però non me lo fa fare, o meglio il foglio dati non mi permette di
aggiungere una colonna.
3) Siccome non sono un esperto di access e non mi va di rifare un vero db
perchè non mi pagano per questo, mi potete aiutare ?

 perchè sembra un foglio execel) perchè da una maschera  inserisco e trovo


 ha scritto nel messaggio
news:c0m77o$klr$1...@lacerta.tiscalinet.it...
Scrivi un subject più significativo!!!
Antonio

Newsgroup: it.comp.appl.access
Titolo: selezionare record

Vorrei creare una maschera dalla quale, inserendo il codice di un
prodotto(che ho nella tabella e maschera "prodotti" insieme alla
descrizione, il prezzo,.....), riesca ad ottenere la descrizione!!!
Ho provato di tutto ma non ci sono riuscito, aiutatemi per favore!!!
Ciaoooo!!!!

 ha scritto nel messaggio
news:VLcN7.28081$4M2.7...@news2.tin.it...

Prova con DLookUp
;-) >

Newsgroup: it.comp.appl.access
Titolo: Comandi FTP da codice

In attesa della soluzione del postprecedente, ho una curiosità personale da
soddisfare. Esiste la possibilita da dentro il codice VBA di eseguire dei
comandi FTP verso un server? Grazie


Io per questo uso il codice di Dev&Terry:
http://www.mvps.org/access/modules/mdl0037.htm
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: numerazione progressiva

come posso numerare , in maniera progressiva, i record trovati
da una query sulla stampa di un report?
grazie in anticipo Alfonso

 grazie in anticipo Alfonso
Nel sito comune c'era una o due soluzioni. Io ho sempre usato questa:
Creo una tabella Contatore con un solo campo numerico intero lungo, lo
chiamo PROG e lo inizializzo a 1.
I dati da dare in pasto al report li prendo sempre da una query, in cui
aggiungo un campo calcolato fatto cosě:
Prog: conta([UN CAMPO])
dove UN CAMPO č il nome di uno qualunque dei campi della tabella interessata
e conta č una funzione fatta cosě
function conta (x as variant) as long
dim rst as recordset
dim prog as long
set rst = currentdb.openrecordset("Contatore")
prog = rst.fields(0)
rst.edit
rst.fields(0) = prog + 1
rst.update
set rst = nothing
conta = prog
In questo modo conta restituisce il successivo valore del progressivo buono
da assegnare al record e incrementa il progressivo per la prossima chiamata
di funzione.
Infine l'ultimo accorgimento č quello di resettare a 1 la tabella contatore
ad ogni lancio del report. Facile, basta aprire il report per esempio con un
pulsante che, prima di aprire effettivamente il report, rimette a 1 il
valore del campo PROG di Contatore.
Antonio

 da una query sulla stampa di un report?
IMHO, la soluzione + semplice è mettere sul report una text box con valore
=1 e poi impostare running sum = true, senza far casini con codice e tabelle
d'appoggio

 wrote in message
9r3sfs$rc0fq$1...@ID-106197.news.dfncis.de...

E se vuoi questa numerazione anche in una maschera o in un foglio dati?
Antonio


Allora chiaramente devi trovare un'altra soluzione. Per i report mi sembrava
una soluzione efficace e veloce

Newsgroup: it.comp.appl.access
Titolo: Domanda su Ocx





Mi sapete dire il nome di un ocx che consenta di 
scannerizzare, che viene fornito insieme ad access?


 


Grazie per l'aiuto


 




con MSAccess non vengono forniti ocx per la digitalizzazione, forse ti
riferisci a quelli forniti con Win98: imgscan.ocx
imgadmin.ocx
imgedit.ocx
imgthumb.ocx 
-- 
Federico
fluc...@paperino.sitocomune.com
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
mailto:
webm...@sitocomune.com
--------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Unire due query

Ciao a tutti
e' possibile avere in una query queste 2 divise per Id?
cioe': IdCarico per la prima query ed IdCarico_1 per la seconda query
 
 
Grazie.
 
1-
SELECT A.IdCarico
FROM TbCarichi AS A LEFT JOIN DettagliOrdini AS B ON A.IdCarico = B.IdCarico
WHERE (((A.DataCarico) Is Null)) OR (((B.nBan) Is Null) AND ((B.nColli) Is Null)) OR (((B.nBan)=0) AND ((B.nColli)=0))
GROUP BY A.IdCarico
ORDER BY A.IdCarico DESC;
 
2-
SELECT A.IdCarico
FROM TbCarichi AS A LEFT JOIN DettagliOrdini AS B ON A.IdCarico = B.IdCarico
WHERE (((B.nBan) Is Null) AND ((B.nColli) Is Null)) OR (((B.nBan)=0) AND ((B.nColli)=0))
GROUP BY A.IdCarico
ORDER BY A.IdCarico DESC;


ho risolto con iif

Newsgroup: it.comp.appl.access
Titolo: colore bordo maschera

Salve a tutti
qualcuno sa come cambiare il colore e lo spessore del bordo
di una maschera da codice ?
Grazie
      myuser
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 di una maschera da codice ?
Dando per scontato che Me è un riferimento alla form, utilizza
Me.BorderStyle,per cambiare lo stile del bordo.
Che io sappia non è possibile modificare il colore del bordo di una form.
-- 
Gabriele Bertolucci
PBsoft 
www.pbsoft.it
Newsgroup: it.comp.appl.access
Titolo: comando OutputTo

Ciao a tutti.
ho problemi ad utilizzare il comando in oggetto.
Il mio programma  è stato scritto in access97, per necessità ho dovuto 
trasformarlo in access 2003.
il comando docmd.OutputTo mi serve per inviare i listino in formato txt o 
xls.
I problemi nascono con Docmd.SendObject che mi consentiva di allegare il 
listino direttamente sulla mail, ad un certo punto il comando non comincia a 
funzionare più e da il seguente messaggio
"Nessun client di posta predefinito"
Non trovando una soluzione passo ad utilizzare OutputTo che funzionava ma 
adesso mi da il seguente errore:
L'azione OutputTo è stata annullata!!
ma da chi!!!???

 wrote in message 
news:tgTLh.27922$J11.6...@twister1.libero.it...

Da quello stesso che a volte, trovandoti da solo davanti
ad unico computer, ti apre un file in modo esclusivo
inibendo quindi a te l'apertura.
Beh, se non accadessero certi fatti Access potrebbe
anche considerarsi una cosa semi seria...
Bruno 

 ha scritto nel messaggio news:tgTLh.27922$J11.6...@twister1.libero.it...

Queste cose hanno fatto la fortuna di Murphy.
Considera anche altre possibilità:
www.sitocomune.com
 - Sezione General
6.129 Inviare da codice VBA una e-mail con allegati usando Outlook Express
6.88 Inviare e-mail ad una lista di utenti (mailing list) con MSAccess utilizzando il winsock
6.77 Inviare e-mail con MSAccess utilizzando il winsock
6.76 Inviare e-mail con MSAccess utilizzando la libreria mapi32.dll
www.alessandrobaraldi.it
http://www.alessandrobaraldi.it/TabellaFaq.asp?sezione=&top=&descrizione=mail&Note=
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:ettej6$j10$1...@tdi.cu.mi.it...

Newsgroup: it.comp.appl.access
Titolo: OpenRecordset

Utilizzo il codice sottostante per aggiornare il campo descrizione
Conto (DescrizioneCo) dopo l'aggiornamento del campo Conto, in una
maschera legata ad una tabella (PianoDeiConti =>
Gruppo-Conto-Sottoconto). Questo codice, in altri contesti, mi ha
sempre funzionato, ma adesso ho l'esigenza di filtrare il Conto a
seconda del Gruppo. La Query [Q 1012 Conto2] mi fa questo, ma inserita
in quest'istruzione mi da errore run-time 3061 "Parametri
insufficienti. Previsto 1." Vi metto anche l'SQL della Qry:
SELECT [T 1010 PianoConti].Gruppo, [T 1010 PianoConti].Conto, [T 1010
PianoConti].Sottoconto, [T 1010 PianoConti].DescrizioneCo
FROM [T 1010 PianoConti]
GROUP BY [T 1010 PianoConti].Gruppo, [T 1010 PianoConti].Conto, [T 1010
PianoConti].Sottoconto, [T 1010 PianoConti].DescrizioneCo
HAVING ((([T 1010 PianoConti].Gruppo)=[Forms]![Frm 1010
PianoConti]![Gruppo]));
Se tolgo dalla Qry l'Having funziona, ma così no...
Qualcuno mi può dare una mano?
Grazie, questo è il codice:
Private Sub Conto_AfterUpdate()
Dim DB As Database
Set DB = CurrentDb
    Dim rs As Recordset
    Set rs = DB.OpenRecordset("SELECT * FROM [Q 1012 Conto2] WHERE
Conto=" & Chr$(34) & Conto & Chr$(34), dbOpenSnapshot)
    If rs.EOF Then
        DescrizioneCo = ""
        DescrizioneCo.BackColor = vbWhite
        DescrizioneCo.Enabled = True
        DescrizioneCo.Locked = False
        Sottoconto.Enabled = False
        DescrizioneSo.Enabled = False
        Sottoconto = ""
        DescrizioneSo = ""
        Sottoconto.BackColor = 15138815
        DescrizioneSo.BackColor = 15138815
    Else
        DescrizioneCo = rs!DescrizioneCo
        DescrizioneCo.Enabled = False
        DescrizioneCo.Locked = True
        DescrizioneCo.BackColor = 12632256
        Conto.BackColor = 12632256
        Sottoconto.Enabled = True
        DescrizioneSo.Enabled = True
        Sottoconto = ""
        DescrizioneSo = ""
        Sottoconto.BackColor = 15138815
        DescrizioneSo.BackColor = 15138815
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    End If
 
    Set rs = Nothing
    Set DB = Nothing
End Sub
Paolo

 ...
Vedi anche:
www.donkarl.com/it
 FAQ 6.4 Parametri insufficienti
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA) 

Funziona si... 
grazie per il chiarimento...
Ciao
Paolo
Newsgroup: it.comp.appl.access
Titolo: Testo scorrevole.

Buongiorno a tutti,
è possibile inserire del testo "verticalmente" scorrevole in una
textbox di una maschera? In caso di risposta affermativa, si dovrà
usare VB o si ottiene attraverso qualche controllo OCX o ActiveX? Avevo
letto, in proposito, una risposta che rimandava al sito di Lebans ma
non sono riuscito a trovare il riferimento corretto.
Grazie,
NEMO2K

 ha scritto nel messaggio 
news:1132658150.2...@o13g2000cwo.googlegroups.com...
Buongiorno a tutti,
è possibile inserire del testo "verticalmente" scorrevole in una
textbox di una maschera?
si..... ma conviene farlo con una etichetta.
metti la proprietà verticale  a : SI
evento timer della maschera:
Me.Etichetta11.Caption = Right(Me.Etichetta11.Caption, 
Len(Me.Etichetta11.Caption) - 1) & Left(Me.Etichetta11.Caption, 1)
su intervallo timer: 200 oppure la velocità che vuoi
In caso di risposta affermativa, si dovrà
usare VB o si ottiene attraverso qualche controllo OCX o ActiveX? Avevo
letto, in proposito, una risposta che rimandava al sito di Lebans ma
non sono riuscito a trovare il riferimento corretto.
Grazie,
NEMO2K
Daniele 

Grazie Daniele ma,
forse, mi sono spiegato male. Quando parlavo di testo scorrevole in
senso verticale non intendevo che scorresse ruotato di 90° ma che
scorresse una riga alla volta (per intenderci, hai presente i titoli di
coda dei film a tutto schermo?).
Scusa per la domanda poco chiara.
Ciao,
NEMO2K


Lebans ha uno scroller del genere
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Grazie Massimiliano,
ho trovato l'esempio "Scrolling Form Credit 2K" nel sito di Lebans.
Constato, però, che risulta un po' scattoso, insomma poco fluido.
Grazie comunque,
NEMO2K

Newsgroup: it.comp.appl.access
Titolo: domandina facile facile di storia! ^___^

Mi sapete dire a che anno risalgono i primi database?
Non solo in italia ma anche in campo internazionale...
Naturalmente parlo di database in campo informatico... non di archivi
scritti a mano! ^_^
(che in effetti sono i database del passato)
grazie
--
Ciao by Giorno
www.lorenzogodio.com
www.babespoint.com
O tur! cè'n sol 'n po' finok sta matin!

 Ciao by Giorno
Penso che agli inizi si chiamassero archivi e che avessero come supporto le
schede perforate. La data secondo me coincide con quella della nascita
dell'automazione o meccanizzaione che dir si voglia.
I computer ancora non esistevano (tantomeno i PC); le ricerche non si
facevano certo con le query ma con macchine elettromeccaniche che si
chiamavano "selezionatrici" e i report si ottenevono facendo leggere gli
archivi su schede perforate a macchine elettrocontabili chiamate
"tabulatrici" in quanto producevano automaticamente dei tabulati (oggi
diremo appunto report).
Stiamo parlando del XIX secolo, e di un certo signore francese di nome Bull.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Stiamo parlando del XIX secolo, e di un certo signore francese di nome
Bull.
Grazie!

Newsgroup: it.comp.appl.access
Titolo: Aggiornare un Be

Buona Sera a tutti,
è la prima volta che scrivo a questo Ng e mi chiedevo se potevate darmi una
soluzione al mio problema.
Se ho un db composto da Fe e Be normalmente aggiorno l' Fe con un .exe; ma
se devo aggiornare un Be magari perché ho cambiato la struttura di una
tabella già esistente, come faccio ad evitare di modificare dati gia
presenti aggiornati dall' utente periodicamente.
Grazie per la Vostra Attenzione

 ha scritto nel messaggio
news:QWND9.13413$3l.3...@twister1.libero.it...

Vedi se ti può essere utile consultare questo indirizzo
http://www.sitocomune.com/general/general018.htm
--
-------------Ciao, Gianfranco
 <^><^><^><^><^><^><^>
Newsgroup: it.comp.appl.access
Titolo: Calcolo molto complicato

Salve ragazzi ho un calcolo un tantino complicato da effettuare chi può
aiutarmi?
in una query devo calcolare i// tempo trascorso tra due  campi formato
data/ora (es.:18/05/01 10.55) e fin qui tutto ok usando DataDiff, il
problema nasce quando non devo considerare l'intervallo di tempo che và
dalle ore 20.00 alle ore 08.00. Vi riporto qualche esempio:
data1                                data2
risultato in h
18/05/01 10.55                18/05/01 17.55             7
18/05/01 18.01                19/05/01 11.01             6 perché devo
togliere il tempo dalle 20.00 ÷ 08.00
e così via. Troverò qualcuno capace di aiutarmi?
Grazie
--
Massimo Coluzzi
colu...@tin.it
il sito comune di it.comp.appl.access:
www.sitocomune.com

 Massimo Coluzzi
Innanzitutto nel secondo caso il risultato non deve essere uguale 6 ma
uguale a 5 ore (2 ore del 18/05/2001 più tre ore del 19/05/2001).
Se attualmente nell'origine controllo del controllo che deve contenere il
risultato hai scritto:
= DateDiff("h";[ Data1]; [Data2])
scrivi invece:
=IIf(Int([Data2])>Int([Data1]);DateDiff("h";[Data1];[Data2])-12;DateDiff("h"
;[Data1];[Data2]))
Penso che tu sia comunque conscio del fatto che la funzione DateDiff così
scritta ti restituisce la differenza solo tra le ore e trascura totalmente
la presenza dei minuti e che quindi se Data1 è 18/05/2001 10:30 e Data2 è
18/05/2001 11:00 ti restituisce come risultato 1, e il risultato è comunque
1 nel caso in cui Data1 è 18/05/2001 10:00 e Data2 è 18/05/2001 11:30.
Se il risultato lo vuoi in ore e minuti, devi definirti il formato del
controllo che contiene il risultato hh:nn e non usare la funzione DateDiff,
scrivendo nell'origine controllo:
=IIf(Int([Data2])>Int([Data1]);[Data2]-[Data1]-0,5;[Data2]-[Data1])
Se infine il risultato lo vuoi in ore e frazioni di ore, devi definirti il
formato del controllo che contiene il risultato come Standard e scrivere
nell'origine controllo:
=IIf(Int([Data2])>Int([Data1]);([Data2]-[Data1]-0,5)*24;([Data2]-[Data1])*24
)
Sono stato abbastanza capace? Ho passato l'esame? :-))
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:9e5n41$1eta$1...@stargate1.inet.it...



Ho avuto la stessa esigenza, ma tenendo conto anche
delle festivita', dei giorni non lavorativi, delle ferie,
degli orari di lavoro (part-time, turni, ecc.).
La complessita' pero' e' tale che non puo'
essere risolta con una query.
Ci vuole del codice (e parecchio!).
Se vuoi ti mando un mdb con la soluzione.
Ciao. ElioP.
Newsgroup: it.comp.appl.access
Titolo: Urgente - ERRORE Argomento non valido

Ciao a tutti volevo sapere da voi che sapete come posso risolvere questo
ERRORE che si presenta
nella riga:
Set Tabella = DB.OpenRecordset("PGMR_MRP_ARCH_CALEFABB", dbOpenDynaset)
della Private Sub sotto visualizzata dicendomi : ARGOMENTO NON VALIDO
Se potete darmi indicazione vi ringrazio vivamente
ciao LUCA
Private Sub DataA_Exit(Cancel As Integer)
'SB
'Variabili
'***************************************************************************************************
Dim Tabella As Recordset
Dim risposta
Dim NumeroRecord As Recordset
Dim NRec As Recordset
Dim Numero As Integer
'Corpo
'****************************************************************************************************
If IsNull(DataDA) Then
Else
'calcola giorni lavorativi
'*****************
    Set DB = CurrentDb
    Set Tabella = DB.OpenRecordset("PGMR_MRP_ARCH_CALEFABB", dbOpenDynaset)
 
    Set NumeroRecord = DB.OpenRecordset("SELECT Count(*) AS N" _
    & " FROM PGMR_MRP_ARCH_CALEFABB
WHERE(((PGMR_MRP_ARCH_CALEFABB.CDAZIE)='SB')" _
    & " AND ((PGMR_MRP_ARCH_CALEFABB.DATA)>=#" &
[Forms]![Creazione_Efficenza_Mezzi]![DataDA] & "#" _
    & " And (PGMR_MRP_ARCH_CALEFABB.DATA)<=#" &
[Forms]![Creazione_Efficenza_Mezzi]![DataA] & "#)" _
    & " AND ((PGMR_MRP_ARCH_CALEFABB.FGILAV)='N'));", dbOpenDynaset)
 
    GGlav = NumeroRecord!n
'********************
Me!AvantiS.Visible = True
End If
End Sub
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Inviato via 
http://arianna.libero.it/usenet/
Devi specificare il tipo di recordset se DAO o ADO...
Ciao.
-- 
Sergio MAZZA 

LUCA ha scritto:

Ma l'apertura del Recordset Tabella a che serve....???
Perchè apri un sacco di oggetti come DB, Tabella e NumeroRecord e poi
non chiudi nulla...?
La leggibilità del codice che hai scritto è pessima tutto in
maiuscolo rendono veramente ostica la lettura....!
In ogni caso devi formattare le date in modo corretto ISO, in quel modo
JET interpreta la data con il formato anglosassone, quindi effettua
inversione Mese/Giorno di conseguenza se hai passato ad esempio la data
odierna.... da errore in quanto il Mese 13 non esiste...!
@Alex
Newsgroup: it.comp.appl.access
Titolo: Principiante Tabella Valido se... Messaggio di errore

Ciao a  tutti e grazie in anticipo
Ho costruito una tabella con dei valori e nei valori ho inserito
Valido se = is not null
Messaggio di errore = Scrivi l'indirizzo !!!!
Nel costruire poi la maschera teoricamente dovrebbe darmi l'errore se non
inseirsco il dato invecie ho notato che se scrivo e poi lo cancello mi da
l'errore ma se invecie non scrivo niente e vado avanti per inserire altri
dati non mi esce il messaggio ma l'errore di Access
Grazie

 ha scritto nel messaggio
news:kLVbc.107007$Kc3.3...@twister2.libero.it...

Guarda anche la proprieta Richiesto ( Required)
Ciao Nicola

 ha scritto nel messaggio
news:TjWbc.13259$hc5.6...@news3.tin.it...

Ti ringrazio per la risposta ma il rischiesto è si ma il problema è un'altro
... no esce un messaggio visivo
Grazie ancora

 Grazie ancora
Prova a controllare nell'Help la voce:
"Proprietà ValidationRule, ValidationText (Valido se, Messaggio errore)"
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Newsgroup: it.comp.appl.access
Titolo: Memoria insufficiente

Ho un problema su una macro in una maschera: su un pc con word 2000 e
access 97 (solo su quello, poichè ne ho provati altri con la medesima
configurazione) mi da sempre errore di memoria insufficiente nel
momento in cui esegue
oApp.Application.Documents.Open NomeCartella & "\Modulo_primo.doc", ,
, , "pwd", , , "pwd"
Ma se lo apro manualmente, lo stesso file si apre regolarmente.
Da cosa potrebbe dipendere?
CODICE COMPLETO
Private Sub Salva_Click()
    Dim oApp As New Word.Application
    Dim NomeCartella, PercNuovo As String
    Me.Form.Requery
    NomeCartella = Left(CurrentDb.Name, Len(CurrentDb.Name) -
Len(Dir(CurrentDb.Name)))
    PercNuovo = NomeCartella & "Atti\"
    NomeFile = "Atto_" & StripString(Me.mittente.Value) & "_" &
StripString(Me.cedente.Value) & ".doc"
    oApp.Application.Documents.Open NomeCartella &
"\Modulo_primo.doc", , , , "pwd", , , "pwd"
    oApp.Visible = False
    With oApp.ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute
    End With
Grazie a tutti

 ha scritto nel messaggio
news:svjsb0l7n31oolucf...@4ax.com...

Prova a sostituire la dichiarazione:
Dim oApp As New Word.Application
con:
Dim oApp As Word.Application
ed a creare l'oggetto con la funzione CreateObject...
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Codice ignorato!!! :-(

scusate mi accade una cosa strana,
access ignora il seguente codice, anzi diciamo che se la tabella ha almeno
un record lo esegue, altrimenti se ne frega altamente, cosa occorre fare?
grazie 1000
Ssql = "INSERT INTO StoricoPagamenti ( IdStoricoPagamento, Anno, IdServizio,
enti) "
Ssql = Ssql & " SELECT 0, 1980, 1, 1 FROM StoricoPagamenti"
 
CodeDb.Execute (Ssql)
P.S.
un piccolo dettaglio, il database access scrive un sql server 2000, tramite
tabelle collegate in odbc, potrebbe comportare qualche inconveniente questa
architettura?
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 architettura?
Non dovrebbe... a parte tempi un pò più lunghetti, non dovrebbe dar 
problemi... visto che se ci sono record non hai problemi significa che non 
hai neanche problemi di permenni di scrittura sul db. 

 architettura?
Ma cosa sarebbe questa parte SQL...?
SELECT 0, 1980, 1, 1 FROM StoricoPagamenti
Solitamente ci vanno i Nomi dei campi se provengono da SQL
altrimenti la sintassi da usare mi pare possa essere errata.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 @Alex
no alex ti assicuro che è corretto non mi appare nessun messaggio di errore,
semplicemente non lo esegue.
Con quella parte sql miro ad inserire nella tabella StoricoPagamenti 4 campi
con quei determinati valori ossia 0, 1980,1,1, tre valori numerici ed un
anno


 hai neanche problemi di permenni di scrittura sul db
bene


 ha scritto nel messaggio 
news:62Z110Z176Z165Y...@usenet.libero.it...

Ciao,
se il tuo intento č aggiungere un record immettendo i valori 0, 1980 ecc 
semplicemente togli la clausola FROM, č a causa di quella che il codice 
viene eseguito solo se sono gią presenti record nella tabella
Mat. 

 Mat.
ho provato, tutto ok ti ringrazio tantissimo



prego, ciao 

 viene eseguito solo se sono già presenti record nella tabella
Vedo dalla risposta, che quel che dici è ok, ma me la spieghi tecnicamente 
sta cosa? Perchè FORM darebbe questo errore?
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97 e 2000
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
-----------------------------------------------------------------
Il mio motto :
""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." 

 anno
He...He...!
;-)
Visto che non era OK...!
Saluti


 tecnicamente sta cosa? Perchè FORM darebbe questo errore?
Perchè se metti from lui vuole la tabella da cui prendere, senza lui lo
interpreta come valori da inserire (ed è questo il caso)
In ogni caso bravo Potone
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it
Newsgroup: it.comp.appl.access
Titolo: problema con query di unione

ho unito 2 tabelle con l'istruzione sql union, ed ho ottenuto una tabella 
con i seguenti campi
nome cognome telefono
1
2
n
il problema è che non riesco a identificare in modo univoco un record in 
quanto uno dei
record della tabella A potrebbe avere lo stesso id di un record proveniente 
dalla tabella B
è possibile aggiungere alla query un contatore in modo che riesca cosi a 
creare una sezione
IDpersonalizzato per vedere ogni record su una pagina diversa?
grazie.

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


solo una domanda se 2 record hanno lo stesso iD cosa succede? 



io per identificare la provenienza dei record ho inserito un campo che 
riporta proprio la query di origine:
qualcosa del tipo 'qUNO' o 'qDUE' per indicare che viene dal risultato di 
una query o l'altra.
Pensando al tuo problema potresti creare un campo che anteponga all'id un 
carattere Alfa (A,B, ...) diverso per ogni query di origine, eviteresti gli 
id doppi(ma non credo che questo sia un problema) e sopratutto 
identificheresti la provenienza.
Ivan 

 ha scritto nel messaggio
news:440b771d$0$18281$4faf...@reader1.news.tin.it...

Con UNION ALL li visualizzi entrambi.

Newsgroup: it.comp.appl.access
Titolo: Imposta pagina -- per MA

Il seguente codice potrebbe anche funzionare, ma io sono un novellino e non
riesco a farlo funzionare. Credo che dovrei fare una maschera aggiuntiva per
inserire i margini, o sbaglio?
Se per te non è un problema potresti indicarmi una applicazione dove già è
presente questo codice. Per me è più semplice.
Grazie Mille
Michele
Your Message:
Modulo Imposta pagina
Type str_DEVMODE
    RGB As String * 94
End Type
Type type_DEVMODE
    strNomeDispositivo As String * 16
    intVersioneSpec As Integer
    intVersioneDriver As Integer
    intDimensione As Integer
    intDriverExtra As Integer
    lngCampi As Long
    intOrientamento As Integer
    intDimensFoglio As Integer
    intLunghezzaFoglio As Integer
    intLarghezzaFoglio As Integer
    intScala As Integer
    intCopie As Integer
    intOriginePredef As Integer
    intQualitàStampa As Integer
    intColore As Integer
    intDuplex As Integer
    intRisoluzione As Integer
    intOpzioneTT As Integer
    intFascicola As Integer
    strNomeMaschera As String * 16
    lngTitolo As Long
    lngBit As Long
    lngPW As Long
    lngPH As Long
    lngDFI As Long
    lngDFr As Long
End Type
Sub ImpostaPagina(rptNome As String)
    Dim StringaPer As str_DEVMODE
    Dim DM As type_DEVMODE
    Dim strModalitàExtraPer As String
    Dim rpt As report
    Dim Lungh As Integer
    Dim Largh As Integer
    Dim ori As String
    DoCmd.OpenReport rptNome, acDesign
    Set rpt = Reports(rptNome)
    Lungh = Forms!dimensioniFoglio!Lunghezza
    Largh = Forms!dimensioniFoglio!larghezza
    ori = Forms!dimensioniFoglio!Orientamento
           strModalitàExtraPer = rpt.PrtDevMode
           StringaPer.RGB = strModalitàExtraPer
           LSet DM = StringaPer
            DM.lngCampi = DM.lngCampi Or DM.intDimensFoglio Or
DM.intLunghezzaFoglio _
                Or DM.intLarghezzaFoglio
            DM.intDimensFoglio = 256
            DM.intOrientamento = ori
            DM.intLunghezzaFoglio = Lungh * 256
            DM.intLarghezzaFoglio = Largh * 256
            LSet StringaPer = DM
            Mid(strModalitàExtraPer, 1, 94) = StringaPer.RGB
            rpt.PrtDevMode = strModalitàExtraPer
End Sub
Dalla maschera
Private Sub VerificaFoglio_Click()
On Error GoTo Err_VerificaFoglio_Click
    Dim stDocName As String
    ImpostaPagina ("Foglio")
    stDocName = "Foglio"
    DoCmd.OpenReport stDocName, acPreview
Exit_VerificaFoglio_Click:
    Exit Sub
Err_VerificaFoglio_Click:
    MsgBox err.Description
    Resume Exit_VerificaFoglio_Click
End Sub

 Grazie Mille
[CUT]
Sì qui non è contemplata la considerazion dei margini.
Non conosco esempi.
Mi dispiace.
Ma l'help dovrebbe aiutarti molto "PrintMip"
MAssimiliano
Newsgroup: it.comp.appl.access
Titolo: Verificare presenza di un file

Ciao a tutti,
è possibile verificare la presenza di un file all'interno di una cartella indipendentemente dalla sua estensione poiché essa potrebbe essere di svariati formati grafici? In pratica il percorso del file è dato dal path del programma, il nome del file viene composto automaticamente essendo formato da cod articolo e dal suo Id, l'unica incognita è l'estensione. Come posso procedere?
 
Grazie
 
Alfio


scritto al volo...
la seguente routine ti dice se esiste un file con nome pippo in c:
 
adatta il tuo nome file e il tuo percorso di ricerca
 
Sub test()
 
 
MyPath = "c:\"   'cartella dove cercare
myname = Dir(MyPath)
Dim trovato As Boolean
Dim fileDaTrovare As String
fileDaTrovare = "pippo"   'scrivilo senza estensione
 
trovato = False
 
 
Do While myname <> ""
 
     myname = Dir
     If Len(myname) > 3 Then
         If Left(myname, Len(myname) - 4) = fileDaTrovare Then
             trovato = True
 
         End If
     End If
 
Loop
MsgBox trovato
End Sub
 
ciao
BFS

 è possibile verificare la presenza di un file all'interno di una cartella indipendentemente dalla sua estensione poiché essa potrebbe essere di svariati formati grafici? In pratica il percorso del file è dato dal path del programma, il nome del file viene composto automaticamente essendo formato da cod articolo e dal suo Id, l'unica incognita è l'estensione. Come posso procedere?
 
In principio:
 
If Dir("PercorsoENomeDelFileSenzaEstensione.*") > "" Then
     Msgbox "File è presente."
End If
 
Con il percorso del db e CodArt + Id del record corrente sarebbe p.e.
 
If Dir(Currentproject.Path & "\" & Me!CodArt & Me!Id & ".*") > "" Then
...
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
Access Lobby: 
http://www.AccessDevelopers.org
 

 End If
 
ciao Karl...
il tuo codice non mi convince...se per assurdo in c:\ ho un file chiamato:
 
pippo.jjj.txt
 
il tuo codice
 
If Dir("c:\pippo.*") > "" Then
     MsgBox "File è presente."
End If
 
da che il file è presente...che non è vero
 
mentre il mio codice giustamente dice che non è presente
 
che ne dici?
ciao
BFS
 
 

 che ne dici?
 
pippo.jpeg
pippo.tiff
 
-- 
:-)



 
vero...facilmente risolvibile con un instr sull'ultimo "."
 
la tua soluzione cmq non funziona nel mio esempio
ciao
 

 *********
 
Grazie ad entrambi e, personalmente, preferisco la riga suggerita da Karl, semplice ed efficace poiché, nel mio caso, il file da cercare ha una sequenza costante, non avrebbe mai un "." in mezzo, ma solo quello che separa l'estensione dal nome del file.
 
Grazie, in particolar modo a Karl, sempre presente e disponibile, da anni...
 
Alfio

 Grazie ad entrambi e, personalmente, preferisco la riga suggerita da Karl,
se escludi che il codice articolo possa contenere un punto sei salvo 
altrimenti hai un bug nel software
vedi tu
 
ciao
BFS
Newsgroup: it.comp.appl.access
Titolo: Domandone di carattere Access Filosofico

Per gestire l'aggiornamento dei dati tra tabelle ,
Es. Tabella Numeratori a fine anno cliccando il pulsante cambio anno deve
essere accodata nella Tabella Numeratori Storico.
Qui mi e' sorto un dubbio, e' meglio usare le varie query di aggiornamento ,
inserimento , etc .. oppure gestire la cosa  da codice con i recordset ?
Questo mi ha fatto pensare che alcune tabelle mi si aggiornano con i
recordset (vedi la tabella scadenze al momento dell'emissione delle fatture)
, altre si aggiornamno con i campi della form direttamente collegati alla
tabella (modalita' classica di access) , altri si aggirnano con delle query
di aggiornamentoed inserimento (vedi sopra). Non e' che ho fatto un po' di
casino ed e' meglio usare un unica metodologia ?
Scusate per queste farneticazioni filosoficoesikstenziali,
Con questo dilemmone vi saluto e ringrazio per l'attenzione.
--
                Lorenzo
 
http://www.arsdata.it


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

Newsgroup: it.comp.appl.access
Titolo: MDE e A2K2

Access 2002 non permette di creare un file MDE in versione 2000, ma solo in
v.2002, che però non funziona su altri computer con A2K.
Devo per forza reinstallare Access 2000 per distribuire MDE in v.A2K? Come?
Posso mantenere A2K2?
Grazie.
--
Fabio Dalla Villa

Posso mantenere A2K2?
Sì, d'altro canto viste le moltissime implementazioni, pretendere che gli .MDE di A 'XP funzioni a
ritroso sarebbe troppo.
Personalmente trovo già molto interessante il fatto che un p-compilato di A '2000 venga eseguito
perfettamente dalla versione XP.
Ciao, warp