mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: giustificare in un campo memo / testo

Per Access 97.
Ciao e gazie a tutti in anticipo.
Ripropongo il quesito.
Mi piacerebbe poter giustificare un campo testo/memo in un report o
maschera, č possibile ?
giustificato cosě:
parole, parole, parole, parole,
parole, parole, parole, parole,
parole, parole, parole, parole,
parole, parole, parole, parole,
parole, parole, parole, parole,
parole, parole, parole, parole.
Grazie ancora
                    Bruno

                     Bruno
Teoricamente non è possibile, ma in realtà
si può fare, solo è molto complesso.
Ti può servire l'esempio di Lebans che
fa esattamente ciò che chiedi.
www.lebans.com
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.appl.access
Titolo: disabilitare msgbox

ho un report che alla chiusura ha una msgbox che chiede se eseguire una
determinata operazione
ho anche una macro che chiude il report ed apre una maschera
quando lancio la macro mi compare il msgbox citato sopra, solo che in quel
caso vorrei disabilitarlo
ho provato a settare "imposta avvisi=no" nella macro, ma non funziona
cosa potrei usare ?
grazie
Pierpaolo

 ha scritto nel messaggio
news:kJoya.206881$K35.4...@news2.tin.it...

Ma il messaggio è generato automaticamente da Access?
Se si, cosa dice?
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Se si, cosa dice?
nono è un mio msgbox() che chiede se resettare o meno una lista
l'avevo fatto pensando di chiedere di eseguire una query ogni volta che si è
chiuso (e quindi stampato) questo report
ora ho messo un bottone nella toolbar "modifica dati" che usando una macro
chiude il report ed apre una maschera dove modificare i dati del report, per
poi ritornare al report
solo che giustamente questa macro chiudendo il report mi fa comparire quel
msgbox(), che in questo caso non serve
infatti il setwarnings credo funzioni solo con gli avvisi di sistema di
access, non con i msgbox()
sto provando ad usare una variabile "chiudiSenzaAvvertire" settata di
default a FALSE, e settata a true nel caso venga lanciata la macro
in tal caso prima del msgbox() potre mettere un "if chiudisenzaavvertire =
false then.."
ma per ora sto solo facendo danni :))
Pierpaolo

 ha scritto nel messaggio
news:uopya.207329$K35.5...@news2.tin.it...

Allora leva il msgbox dalla macro.
SunRex


il msgbox() si trova nell'evento close del report, in vba
cmq ho risolto facendo prima aprire la maschera, poi chiudere il report,
dalla macro
e prima del msgbox(), in vba, ho messo
If Not FormIsOpen("mioReport") Then
msgbox(..)
e grazie x la funzione formisopen trovata sul sitocomune :)
Pierpaolo
ps: cmq un equivalente di setwarnings false x i msgbox() farebbe sempre
comodo conoscerlo!

Salve a tutti,
volendo automatizzare il lancio
di processi di una maschera avrei
la necessità di disabilitare tutti
i msgbox("mimiop")....
è possibile?
grazie!
ringo
P.S.: il setwarning non agisce sui msgbox :-(
Newsgroup: it.comp.appl.access
Titolo: OutPutTo malfunzionante

Buonasera,
DoCmd.OutputTo acOutputReport, "Stampa_Fattura", acFormatSNP, 
"c:\Stampa_Fattura.snp"
genera il seguente messaggio
"il formato definito per l'output dell'oggetto corrente non è disponibile"
vi sono già dei precedenti ?
Con gli altri formati di output nessun problema.
Utilizzo XP SP2 e A03
Saluti.
Michele

 ha scritto nel messaggio
news:H_ojf.15088$S6.2...@twister2.libero.it...

Puoi provare la soluzione che uso io per lo stesso problema con Access XP:
Al posto di acFormatSNP, prova a scrivere "Formatosnapshot", così come l'ho scritto
io, virgolette comprese e rispettando la maiuscola; oppure prova "(*.snp)" sempre con
tutte le virgolette. Funziona anche la combinazione dei due:
"Formatosnapshot(*.snp)".
Non chiedermi il perchè di tutto ciò: qualcuno deve aver fatto confusione in sede di
traduzione :)
--
Ciao
Galliano.


http://groups.google.com/group/microsoft.public.it.office.access/msg/782f2726ccecb3e1
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+ Conferenza Italiana per Sviluppatori di Access (CISA)

 ha scritto nel messaggio
news:B6qjf.1094$5Z...@news.edisontel.com...

Grazie.


Grazie
Newsgroup: it.comp.appl.access
Titolo: funzione campo progressivo su query

Ho provato la funzione "Come si può ottenere il totale progressivo di un
campo in una query?" di Roberto su "sitocomune".
dopo aver importato il modulo dal db di esempio al mio database cerco di
compilare il modulo stesso, ma mi appare l'errore:
"errore di compilazione" tipo definito dall'utente non definito
e viene selezionata in blu la dicitura: RS As DAO.Recordset
appartenente alla seconda riga (dim) della funzione
io non sono pratico di VBA, mi aiutate?
p.s. la guida dice:
Tipo definito dall'utente non definito
Quando in Visual Basic vengono creati tipi di dati personalizzati, è
necessario definirli prima in un'istruzione Type...End Type oppure in una
libreria degli oggetti o libreria dei tipi registrate correttamente. Cause e
soluzioni dell'errore:
  a.. È stata dichiarata una variabile o un argomento con un tipo di dati
non definito oppure è stato specificato un nome di classe o di oggetto
sconosciuto.
Definire un nuovo tipo di dati utilizzando l'istruzione Type in un modulo.
Se si desidera creare un riferimento a una classe, questa deve essere
riconosciuta dal progetto. Se viene fatto riferimento a una classe del
programma, il progetto deve includere un modulo di classe con il nome
specificato. Controllare l'ortografia del nome del tipo o dell'oggetto.
  a.. Il tipo che si desidera dichiarare è incluso in un altro modulo, ma è
stato dichiarato come Private.
Spostare la definizione del tipo in un modulo standard in cui può essere
Public.
  a.. Il tipo è valido, ma la libreria degli oggetti o dei tipi in cui è
definito non è registrata in Visual Basic.
Visualizzare la finestra di dialogo Riferimenti, quindi selezionare la
libreria degli oggetti o dei tipi adeguata. Se, ad esempio, nella finestra
di dialogo Riferimenti non viene attivata la casella di controllo degli
oggetti di accesso ai dati (DAO), i tipi Database, Recordset e TableDef non
saranno riconosciuti e i relativi riferimenti nel codice genereranno questo
errore.
Per ulteriori informazioni, selezionare l'elemento desiderato e premere F1
(in Windows) oppure AIUTO (in Macintosh).
che vuol dire?
grazie


La funzione fa riferimento alla libreria Microsoft DAO quindi, se come
sembra usi una versione di Access successiva ad Access 97, aggiungi al tuo
database i riferimenti a tale libreria.
[CUT]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
grazie, adesso funziona.
Newsgroup: it.comp.appl.access
Titolo: form e caselle di riepilogo

Nel corpo di una form ho messo una combobox che mi fà una ricerca su una
lista di nominativi.
Ho anche inserito tre caselle di riepilogo (casella1,casella2,casella3) non
associate, la cui origine riga è data da una select su altre tabelle (ogni
casella di riepilogo ha una select diversa).
Una volta che inserisco un nominativo, con un requery sulle caselle di
riepilogo mi si compilano i dati che mi interessano (se il nominativo
appartiene al gruppo1 si riempie la casella1, e così via).
Fin qui tutto ok.
Quello che non riesco a fare è sull'evento doppioclic della casella di
riepilogo dove si vedono i dati, mi si apra un'altra form che contiene il
dettaglio delle informazioni (la casella associata è quella relativa al
nominativo, che non può essere una chiave primaria univoca)
Ringrazio per l'interessamento
Ciao Mauro

 wrote in message
R8Co8.85458$1S3.2...@twister1.libero.it...

Vedi proprietà column della casella di riepilogo
Antonio

nominativo, che non puň essere una chiave primaria univoca)
Cos'e' nello specifico che non riesci a fare?
Sai come risalire alla riga selezionata della listbox?
Se hai errori nel codice, postalo!
Bai
--
Lorenzo Coronati
--
<<cazzo ma come siamo "simpatici " eh ?>>
(Enrico Virginio, 17/03/2002)
--

Newsgroup: it.comp.appl.access
Titolo: [OT] cercasi Alessandro Cara

Scusate scusate scusate se il messaggio non è pertinente!
ma io cerco una persona che per me è un mito,
spero che sia lui e che risponda al messaggio:
 
Buongiorno caro Cara!! :)
Spero che sia tu il magnifico baffone che mi ricordo 
perché ho smosso addirittura mio nipote che sta 
in svezia per scovarti!
Dimmidisìììì!!! 
Bacioni
Sonia


 
ciao Sonia!
alex.c...@gmail.com
 
-- 
ac (x=y-1)
Aborro il Killfile
(La violenza e' l'ultimo rifugio degli incapaci -Salvor Hardin-)


non ci credo...ce l' ho fatta!!!
ti mando una mail, baci!!



Il solito LATRIN LOVER... 
 
Ops... la R è di troppo...!!!!
 
Ciao Alessandro
 
@Alex

 Ops... la R � di troppo...!!!!
No. No. la R ci sta tutta.
Ma e' solo "imprinting" (ha iniziato a lavorare con me, ormai quasi 
trent'anni fa, ora, se non si e' mossa, sta "abbastanza" vicino a te)
 
Ciao Alex


Ehehehehe....
 
Mi sto annoiando...!
 
Ciao a tutti.
@Alex
Newsgroup: it.comp.appl.access
Titolo: E' possibile da una query ottenere un risultato a scalare ?

buongiorno a tutti.
Oggi ho questo problema.
Ho una query che mi filtra da tabella gli "interventi" in base a determinate condizioni.
Questi "interventi" hanno "data" e "costo".
Dovrei predisporre un report che mensilmente, oltre a farmi vedere i singoli interventi, per ciascuno mi sottragga a scalare il "costo" da un valore iniziale di inizio anno che per comodità ipotizzo sia pari a 100.000(budget).
Secondo voi è possibile ?
Grazie infinite a chiunque porti valore aggiunto e un saluto particolare ai miei angeli custodi che sempre mi aiutano...

> Secondo voi è possibile ?
è la "SommaProgressiva"  se fai una ricerca trovi certamente abbondantissima documentazuine.
 
 
La tua è un po particolare perchè parti a discendere da un valore noto
ma io consiglio ancora la classica somma salvo poi detrarre il valore della Somma dai tuoi 100.000
 
Se hai una tabella di nome "Tabe" con i campi di nome
data - DataOra
costo - Numerico
 
con questa arrivi al tuo risultato,
attento pero,  se hai 2 date uguali ti da dei problrmi
[code]
SELECT 
T.data, 
T.costo, 
(SELECT Sum(Tabe.Costo) AS SC FROM Tabe WHERE (Tabe.data<=T.data);) AS Prog
FROM 
Tabe AS T
ORDER BY 
T.data
;
[/code]

 [/code]
 
grazie infinite per il codice, più tardi lo provo (ora ho altre mille attività), domanda da incompetente 1:
-se mi da problemi con date uguali che mi si presentano praticamente sempre, posso utilizzare il numero progressivo (progr) dell'intervento ?
-domanda da incompetente 2: il codice come posso inserirlo nella query? cioè mi spiego meglio. Devo trasformare in sql la query e inserire lì o nei criteri ?
grazie infinite, scusami per i sicuri errori concettuali.

 -domanda da incompetente 2: il codice come posso inserirlo nella query? cioè mi spiego meglio. Devo trasformare in sql la query e inserire lì o nei criteri ?
 
Domanda 1  
Si è molto molto molto meglio inserire il numero progressivo
 
Domanda 2
Quello è gia il codice SQL della query solo che io ( per vizio mio ) lo scrivo andando a capo
 
.
Newsgroup: it.comp.appl.access
Titolo: leggere l'errore ODBC con DAO

Vorrei controllare l'errore di una INSERT su una tabella MySQL collegata 
tramite ODBC (se c'e' chiave duplicata devo fare altre cose)
Se faccio:
strap="INSERT INTO TABELLA ..."
docmd.runSQL (strap)
Mi chiede [OK] per conferma dell'inserimento di un record e poi mi 
segnala A VIDEO che ha avuto dei problemi.
Per togliere la conferma inserimento ho messo un DoCmd.SetWarnings False 
poi ho controllato l'errore cosi'
strap="INSERT INTO TABELLA ..."
    On Error GoTo Err_Locked
    DoCmd.RunSQL (strap)
    Exit Sub
Err_Locked:
    On Error GoTo 0
    Debug.Print Err.Number
    Debug.Print Err.Description
Il problema e' che non viene stampato nessun errore.
Come posso leggere l'errore su una INSERT su MySQL ?
Grazie
Marco

 Marco
Ciao Marco,
penso che tu lo possa fare usando querydef  piů o meno cosě:
Salva la tua query INSERT Into ... in una Query diciamo Query1
Dim qdef as querydef
  On Error GoTo Err_Locked
set qdef = currentDb.Querydefs("query1")
qdef.execute dbfailonerror
exit sub
Err_Locked:
  Debug.Print Err.Number
   Debug.Print Err.Description
 exit sub
saluti
Cinzia

Funziona a meraviglia.
Grazie 1000
Marco
----------------------------
Per la cronaca il codice risolutivo e' = al tuo tranne la createquerydef:
strap="INSERT INTO ....."
   On Error GoTo Err_Locked
    Set qdef = CurrentDb.CreateQueryDef("", strap)
    qdef.Execute dbFailOnError
   On Error GoTo 0
Exit Sub
Err_Locked:
   Debug.Print Err.Number
    Debug.Print Err.Description
   On Error GoTo 0
  Exit Sub
------------------------------------


Newsgroup: it.comp.appl.access
Titolo: [Sito Comune] Aggiornato

...
-- 
Federico
--------------------------------------
Sito Comune di it.comp.database.access
 ed ora
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

               Attenzione all'anti-spam XXX
Una delle cose che mi hanno piu' colpito in America e' come i genitori
ubbidiscano ai figli.
		-- Edward, Duca di Windsor

 Ripeto, sempre che non dia fastidio...
se vuoi te lo mando, ma non capisco dove sta il problema a
scaricarselo!
-- 
Federico
--------------------------------------


               Attenzione all'anti-spam XXX
All'opera bisogna andarci con un vestito intonato?
		-- Da it.hobby.umorismo

 :-)
A proposito di linux...
The UNIX Guru's View of Sex:
$unzip;strip;touch;finger;mount;fsck;more;yes;umount;sleep
:-D
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************
Newsgroup: it.comp.appl.access
Titolo: aprire un db con shift da codice

Salve a tutti.
Attualmente accedo ad un file mdb da codice (access2000) con la funzione
getobject, dopodichè manipolo moduli, form e relativo codice, proprietà,
ecc. Ho la necessità di accedere ad un'altro Mdb il quale apre un form
all'avvio, per cui pensavo di accedere al file simulando la pressione del
tasto shift evitando così l'apertura automatica di form, ecc., ma... non ho
idea del come si fa, sempre che da codice sia possibile....
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Grazie
Secondo me ti conviene all'apertura Modificare la
property("AllowBypassKey"),
chiudere, riaprire, ed alla chiusura ripristinarla......!!!
E' la cosa più semplice.
@Alex.

Newsgroup: it.comp.appl.access
Titolo: controllo calendario

Desidero avere delucidazioni relative al controllo calendario.
in una maschera ho un campo data che io vorrei aggiornare attraverso il
controllo calendario.
in pratica ho il campo data standard e vorrei che quando viene cliccato mi
compaia il controllo calendario (scelgo la data) e dopo la scelta della data
scompaia per passare all'inserimento del campo successivo.
Io riesco a riferirlo al campo desiderato ma non riesco a fare l'automatismo
compare/scompare
Ringrazio anticipatamente per le risposte
Spagno

spagno wrote:

il controllo ha la Proprietą Visibile
ad un pulsante potresti aggiungere il seguente codice:
If Me!ocxCalendario.Visible = True Then
    Me!ocxCalendario.Visible = False
Else
    Me!ocxCalendario.Visible = True
End If
giuseppe

Newsgroup: it.comp.appl.access
Titolo: tabelle collegate: data in formato testo

Buongiorno, sono nuovo ed avrei un grosso problema. Ho una database
access che punta (con una tabella collegata) ad una base di dati dove
ci sono dei campi data in formato testo (tipo 010208). Ho la necessità
di poter usare nel mio DB questi dati in formato data per poter fare
delle analisi temporali. Per la cronaca la tabella a cui si collega
cambia ogni giorno per cui non posso importarmela ogni volta. Nono so
se sono stato chiaro. Grazie in anticipo a chi vorrà aiutarmi.

 se sono stato chiaro. Grazie in anticipo a chi vorrą aiutarmi.
Crea una query in cui aggiungi un campo calcolato per convertire il testo
in formato data:
miadata:dateserial(val(right$(datatesto,2)),val(mid$(datatesto,3,2)),val(left$(datatesto,2)))
Ed usa la query al posto della tabella. Ovviamente non avrai la
possibilitą di modificare le date nella tabella originale visto che nella
query sono calcolate, per farlo dovresti gestire il tutto via VBA da una
maschera.
Ciao.
-Marco-
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
FUNZIONA GRAZIE MILLE.
P.S.: non ho bisogno di modificare le date perchè devo solo poterle
leggere ed analizzare.
Newsgroup: it.comp.appl.access
Titolo: TextBox.Value Textbox.text

 
          Ciao a tutti,
una domanda forse banale.
Qualcuno sa dirmi che differenza esiste tra le proprieta' Value e Text di un
controllo TextBox. Ho visto solamente che sono definiti come 2 tipi
differenti ma per il resto....
Massimiliano
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


il valore text lo utilizzi in fase di analisi del
testo contenuto e digitato all'istante, di solito
nell'evento tastogiu' e differisce in questa fase dal valore value
bye :o)

Newsgroup: it.comp.appl.access
Titolo: Problema con date in grafico

ciao
ho un grafico originato da una query che se nei criteri del campo data della 
query metto:
Between #01/01/2004# And #31/12/2004#
query e grafico mi restituiscono correttamente i dati, ma se nei criteri 
della query metto:
Between [Dal] And [Al]
la query mi restituisce correttamente i dati, ma il grafico mi dà il 
seguente messaggio di errore:
"Il modulo di Gestione di database Microsoft Jet non riconosce '[Dal]' come 
nome di campo o espressione valida"
Avrei bisogno di parametrizzare i risultati del grafico. Come posso fare?
grazie

 ha scritto nel messaggio 
news:qr6Ld.791496$35.30...@news4.tin.it...

Sostituisci [Dal] [AL] con due funzioni che restituiscano un valore di tipo 
data.
Public Function DataDal() As Date
Dim im As String
im = InputBox("Inserisci la data di partenza nel formato gg/mm/aaaa", "Data 
Dal", Date)
If IsDate(CDate(im)) Then
DataDal = CDate(im)
Else
MsgBox "Inserire una data valida"
End If
End Function
Public Function DataAl() As Date
Dim im As String
im = InputBox("Inserisci la data finale nel formato gg/mm/aaaa", "Data Al", 
Date)
If IsDate(CDate(im)) Then
DataAl = CDate(im)
Else
MsgBox "Inserire una data valida"
End If
End Function
Il Between [Dal] And [AL] diventano
Between DataDal() And DataAl()
In alternativa e più semplicemente prova con:
Between "#" & [DAL] & "#" And "#" & [AL] & "#"
La prima soluzione ti permette di mostrare una finestra di dialogo più 
professionale.
Ciao, Carlo
Newsgroup: it.comp.appl.access
Titolo: Visibilità variabili

Salve, ho un problema con le variabili e la loro visibilità nei moduli.
Avrei bisogno che alcune variabili dichiarate in una maschera fossero
visibili anche da altre maschere.
Esempio:
Nelle dichiarazioni generali di una maschera ho scritto:
Public GblQry As String
L'evento click di un tasto di questa maschera tramite un bel po di codice
riempie la variabile con una stringa.
Poi metto il comando:
DoCmd.OpenForm "pippo"
desidererei poter utilizzare il valore di GblQry nell'evento "su apertura"
della maschera pippo. Ma la variabile è sempre e irrimediabilmente vuota...
Come si fa a creare delle variabili che "sopravvivano". Basta la
dichiarazione Public o mi sto sbagliando?
Se qualcuno mi risponde prima di domani mattina posso andare avanti con il
lavoro... altrimenti ci perdo un'altra mezza giornata...
Grazie.
Simone.
P.S. mi sono anche letto l'help e mi sembra che ciò che ho fatto sia
corretto... ma non funziona!

 ha scritto nel messaggio
news:98m8k1$12q$1...@news.mclink.it...

Creati un Modulo Access, dalle il nome che ti pare ed all'interno scrivici
appunto:
Public GblQry As String
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

Newsgroup: it.comp.appl.access
Titolo: Implementare ricerca nella cas. di riepilogo

Save a tutti,
stò utilizzando una CASELLA DI RIEPILOGO
con selez.multipla per selezionare delle città
da un elenco con molti record.
Vorrei sapere se esiste un modo per aiutare la
ricerca della città. Adesso devo usare la barra di scorrimento
per ricercare una città.
Vorrei che scrivendo per esempio la lettera
"V" il puntatore andasse a puntare alla prima
città che inizia per "V"..
grazie
ciao ciao
sdamy

 wrote in message
news:9uaobh$nbs$1...@pegasus.tiscalinet.it...

Con la Casella di riepilogo non saprei, ma se tu utilizzassi una Bella
ComboBox o Casella Combinata sarebbe automatico, lo fa da se...!
Interessante sarebbe però che appena riceve il Focus si espandesse...!
Prova ad inserire perciò su Evento Attivato
Me.CboBox.DropDown
Ciao @Alex
-- 
Posted from  [62.98.29.190] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


wrote:

Se non ricordo male sia nelle caselle di riepilogo che nelle caselle
combinate dovrebbe eseere presente la proprietà "completamento
automatico" da impostare a true

 automatico" da impostare a true
Ricordi parzialmente bene, solo con le COMBO-BOX è fattibile, le List-BOX
o Casella di riepilogo non ha la possibilità di scrittura in quanto LISTA.
Ciao.
@Alex
-- 
Posted from  [62.98.48.251] 

Newsgroup: it.comp.appl.access
Titolo: OT : Controllo parità codice barre ricette SSNN

Salve a tutti,
qualcuno di voi sa come verificare la validità di un numero riportato sulle 
ricette del SSNN?
Si tratta in realtà di due gruppi di numeri, il primo a 5 cifre e il secondo 
a 10 cifre di cui l'ultima rappresenta il controllo di parità. Il controllo 
di parità calcolato per i codici Ean a 8 o 13 cifre non sempre è valido per 
questo tipo di codice a barre.
Grazie mille
--
Nina 

 ha scritto nel messaggio 
news:476b76d3$0$16022$5fc...@news.tiscali.it...

prova a vedere su questo sito 
http://www.codiceabarre.it
sicuramente troverai quello che cerchi.
ciao - Daniele 

 ha scritto nel messaggio 
news:fkg4mi$ou5$1...@tdi.cu.mi.it...

Grazie Daniele,
adesso mi collego al sito e spero di trovare qualcosa, anche se mi pare di 
capire che il codice di cui parlo non sia un codice a barre comune (tipo Ean 
8 o Ean 13 per i quali ho trovato l'algoritmo).
Ciao,
--
Nina 

 sicuramente troverai quello che cerchi.
Daniele, il sito che hai suggerito č di proprietą di un'azienda che si
occupa di cartellonistica industriale e sicurezza aziendale.
Non vedo come questo sia legato ai codici a barre.
Intendevi forse dire a Nina che puņ fare un'autonoma ricerca tramite
Google?
-- 
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

Mi rispondo da solo perché ho detto una castroneria!!!!!
A causa di un errore di digitazione, avevo utilizzato l'indirizzo
www.codiciabarre.it
 invece di 
www.codiceabarre.it
 dove invece si può
trovare proprio quello che Nina stava cercando.
Per farmi perdonare posto anche un indirizzo diretto:
http://www.codiceabarre.it/bccode32.htm


Il calcolo della parità nel codice 32 si applica a codici di 9 caratteri, il numero progressivo della ricetta ne ha 10! 


Newsgroup: it.comp.appl.access
Titolo: Funzione somma in un campo non associato

Ciao a tutti,
sto realizzando un database per uso personale ed ho questo problema: in una 
maschera ho 5 campi tra cui 1 dove viene messo l'importo che puo essere 
positivo o negativo. Poi ho altri due campi NON associati: il primo deve 
sommare tutti i valori positivi dell'importo ed il secondo tutti i valori 
negativi dell'importo, cosa devo fare?
Grazie per l'aiuto
Maxus68 

 Maxus68
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Raggruppamento per mese

Ciao a tutti
Allora io ho dei clienti che hanno più fatture in un mese e devo raggruppare
i miei dati per mese come posso fare?
la tabella è composta con:
IDCliente Data Documento Importo

 wrote in message
news:v_Hy6.627$zT.2...@news.infostrada.it...

Ordina per data ed estrai filtrando la data con day(), year().

 ha scritto nel messaggio
news:v_Hy6.627$zT.2...@news.infostrada.it...

Se la tua tabella si chiama Tabella2, creati una query di raggruppamento che
ha il seguente codice SQL:
SELECT Tabella2.IDCliente, Year([DataDocumento])*100+Month([DataDocumento])
AS Mese, Sum(Tabella2.Importo) AS SommaDiImporto
FROM Tabella2
GROUP BY Tabella2.IDCliente,
Year([DataDocumento])*100+Month([DataDocumento]);
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
v_Hy6.627$zT.2...@news.infostrada.it...

Raggruppa per month([data documento])
Antonio
Newsgroup: it.comp.appl.access
Titolo: contatore

eliminando tutti i campi di una tabella come fare per ripartire da uno col 
contatore?
Grazie
Carlo 

 contatore?
Si fa prima a fare una nuova tabella con il solo contatore.
Non so se ti rendi conto di cio che hai detto!
Interpretando: risposta--> compatta e ripristina data base
Considerazione: Ma cosa te ne importa? il contatore in genere non si usa 
per avere una sequenza stretta.
-- 
ac
y-1=x


Elimini tutti i campi... beh non tutti il contatore lo vuoi tenere...?
Teniamolo... magari teniamo anche l'altri... chissà che servano...!
Ora fai una tabella uguale a quella a quella di prima ma senza dati...
Li il contatore parte da UNO...!
Questa è una Query di Creazione Tabella:
SELECT *.VecchiaTabella
INTO NuovaTabella
FROM VecchiaTabella
WHERE 1=0
Ora se la vuoi rinominare la rinomini .... con il nome della Vecchia dopo
averla ELIMINATA...!
Elimina...
    DROP TABLE
        oppure:
    Sub DeleteObject([ObjectType As AcObjectType = acDefault], [ObjectName])
        Membro di Access.DoCmd
        oppure:
    DbEngine(0)(0).Tabledefs(NomeTabella).Delete
Rinomina:
    Sub Rename(NewName, [ObjectType As AcObjectType = acDefault], [OldName])
        Membro di Access.DoCmd
        Oppure(da provare):
    DbEngine(0)(0).Tabledefs(NomeTabella).Name=NuovoNome
ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:fkc57e$nq3$1...@aioe.org...

effetto "Cara"?
;-))
Daniele

Newsgroup: it.comp.appl.access
Titolo: flaggare controllo si/no all'uscita

Ciao a tutti,
all'apertura di una maschera, chiedo una pwd: vorrei che se la pwd fosse 
giusta (vedrï¿œ poi come fare il controllo) il record sia editabile, 
altrimenti non lo sia.
Oppure mi servirebbe rendere immodificabile il dd a parte i nuovi 
inserimenti che si possono fare.
Pensavo di mettere un si/no (che chiamerï¿œ blocca) nella tabella e 
flaggarlo ad ogni uscita dall'inserimento effettuato da maschera: 
imposto in "su corrente"... ï¿œ giusto?
Poi se il flag blocca ï¿œ si, imposto Allowedits su False altrimenti su True.
Faccio poi una maschera protetta da pwd che userï¿œ per resettare il flag 
blocca (impostarlo su off) ed ottenere la maschera editabile!
E' un casino'
Avete altre idee?
Grazie mille!
Marco

 Marco
-- 
Ciao
Geppo 

 end if
Ma cavolo... cosï¿œ semplice?
Provo e faccio sapere!
Grazie ancora!
Marco
Newsgroup: it.comp.appl.access
Titolo: IsNull AND IsNull?

Io devo testare se una maschera non ha nemmeno un controllo valorizzato, ma
non riesco a trovare la sintassi corretta per mettere in AND più istruzioni
IsNull.
Non ditemi di fare una if nidificata di 12 livelli...
Attendo suggerimenti.
Grazie
Ilaria

 wrote in message
news:9o7fd0$vgo$1...@newsfeed.cineca.it...

Non ti dico, non preoccuparti.
Se usi un ciclo
dim ctl as Control
dim ncount as integer
For each Ctl in Me.Controls
 if typeof ctl is textbox then
  if ctl="" then ncount=ncount+1
 end if
next
'ncount contiene il numero di txtbox vuote.
In realtà io utilizzerei la funzione isNothing che trovi pubblicata
sul Sito Comune per verificare il valore del controllo, ma dovrebbe
funzionare anche così.
@Alex. 
-- 
Posted from  [146.133.1.30] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sul Sito Comune per verificare il valore del controllo, ma dovrebbe
non l'ho trovato; in che sezione è?
Thanks
Ilaria

 non l'ho trovato; in che sezione è?
Adesso non mi ricordo, ma appena forse ora che faccio mente locale è
su MVPS.org
Ciao @Alex.


 >
grazie, andava bene anche prima, non mi ricordavo dei controlli nascosti...
;-)
Scusa e grazie ancora
Ilaria


Sezione General nella FAQ intitolata "E' possibile testare se un valore sia
"logicamente" nullo a prescindere dal tipo dato?"
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Ho provato anch'io ad utilizzarla e funziona egregiamente con l'unica
particolarita' rispetto a quanto citato nella FAQ che nel caso di variabile
Boolean risponde True per valori della variabile False e non True.
Bye
--
Andrea

Newsgroup: it.comp.appl.access
Titolo: Anteprima Report

Ciao,
ho un problemino.
Ho due maschere. La prima chiama la seconda tramite un pulsante di apertura. 
Entrambe le maschere vengono aperte in formato AcDialog (DoCmd.openform 
"Prova" , AcDialog).
Nell'ultima maschera c'è un pulsante che apre un report in anteprima.
Il report che viene aperto appare in secondo piano rispetto le maschere e 
non in primo piano come dovrebbe (le maschere sono davanti al report) e non 
c'è modo di portare in primo piano il report.
Tutto ciò non avviene se le maschere vengono aperte normalmente e non in 
modalità "AcDialog".
Qualcuno mi sa dire perchè e come risolvere il problema.
Grazie
Gianna 

 ha scritto nel messaggio
news:d8k81j$2ob$1...@fata.cs.interbusiness.it...

Il perchè è dovuto al fatto che le form aperte in modalità Dialogo
sono Popup a scelta obbligatoria.
Per risolvere potresti chiudere sequenzialmente le Form una volta
aperto il Report.
Ovviamente non conosco la tua esigenza di tenerle aperte, ma se
fosse d'obbligo, allora rendile NON VISIBILI, apri il Report, e solo
alla chiusura del Report le rendi VISIBILI....!
Fai qualche prova in base alle tue reali esigenze.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Aiuto!!

Spero di non dire troppe cialtronerie....
Primo: sono al mio primo Dbase e NON ho mai frequentato corsi di Access!!!
Iniziamo.....
Acces 97, 3 tabelle: Commesse, Rubrica, Contatti
In una maschera per l'immissione dati della tabella Commesse (e, se
possibile, anche direttamente nella tabella) dovrei fare in modo che, quando
si seleziona in una casella di riepilogo il nome della ditta committente
(preso da Rubrica con il proprio ID progressivo), nella casella adicente con
il nome del conatto (preso dall'omonima tabella) sia possibile selezionare
solo i contatti corrispondenti alla ditta scelta:
Cioe' se nella casella di riepilogo Ditta scelgo "microsoft", nella casella
di riepilogo Contatto posso solo scegliere "Bill" e non avere la lista di
tutti i contatti!!
C'e' un modo per farlo da principianti??? Mi serve per capire se sono
stupido io oppure se ho bisogno di approfondire maggiornmente la conoscenza
con un corso (che lo so che non fa mai male, ma se lo facessi sarebbe solo
per cultura personale...).
Grazie e scusatemi per la prolissita'!!!!

 tutti i contatti!!
Immagino che la "casella adiacente" di cui parli sia una casella combinata,
la cui origine riga sia una query sulla tabella contatti che pesca tutti i
nomi dei contatti. Invece tu metterai in questa query un criterio WHERE sul
campo ditta in modo che sia uguale alla seguente espressione
like iif(isnull([forms]![tuaform]![ditta]);"*";[forms]![tuaform]![ditta])
Antonio

......
Grazie, provero' a fare come consigliato, anche se non ho capito molto
bene!!! ;-)
Se va male tornero' a farmi sentire...... Ciao!!

Newsgroup: it.comp.appl.access
Titolo: Gestione porta RS232

Buonasera,
ho la necessita' di aprire un collegamento sulla porta COM1 (in sola 
scrittura) per l'invio di semplici stringhe di testo.
 
Ho provato aprendo il file in questo modo
 
Open "com1: 19200,n,8,1" for output as #1
 
print  #1, stringa
 
con hyperterminal il collegamento funziona regolarmente ma non riesco a 
trovare un metodo funzionante per la mia procedura
 
qualcuno sa dirmi dove stia l'errore??
 
Grazie a tutti
Marco67
 
-- 
 
 
 
 
G.L. Informatica
Via B. Buozzi 74/B Grosseto
tel. 0564/411.318 - fax 0564/070.848
http://www.glinformatica.it
 
 
 


 
argomento trito e ritrito...googola
 
ciao

Per quello che hai scritto non puoi chiedere aiuto... essendo una invenzione che ti tecnico con Access ed il VBA ha poco a che vedere...
 
Leggi questo:
 
http://www.riolab.org/index.php?option=com_content&view=article&id=140:comunicazione-con-la-porta-seriale-rs232&catid=46:access&Itemid=69
 


 
 
In realtà, se ben ricordo, con i vecchi linguaggi Basic si pilotava proprio 
in quel modo la Seriale...
 
Saluti. 
 
 


Veramente dal Vb3 in poi c'era il vbx e poi l'ocx gia' pronto
A colpi di api si andava ancora prima
Comunque l'esempio su Riolab fornito sopra funziona perfettamente
Non ho mai provato ma forse anche tirando su il mscomm.ocx, dopo averlo 
registrato da sistema operativo, magari ti aggiunge il controllino sulla 
toolbox
 

 Comunque l'esempio su Riolab fornito sopra funziona perfettamente
 
 
Certo che funziona.
 
Saluti.
Newsgroup: it.comp.appl.access
Titolo: x Giorgio Rancati - Errore out of memory su aggiornamento tabella

Ciao Giorgio, ho seguito il tuo consiglio e ho provato il tuo codice anche
se ho letto di utilizzare i cursori in casi estremi, perchè richiedono molte
risorse. Nelle opzioni Avanzate ho dovuto impostare 0 sul numero massimo
record predefinito. Mi analizzava solo i primi 10000 record. Non riesco a
passare @strWhere come parametro. E' possibile passare un parametro nella
dichiarazione del cursore?.
ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int, @Ogni int,
@chrSelezionato as nvarchar(25), @strWhere nvarchar(255))
AS
Declare @Id Int
set @strWhere=N'NArea=1'
DECLARE Privati_Cursor CURSOR LOCAL SCROLL FOR
SELECT ID FROM TPrivati WHERE (@strWhere)
OPEN Privati_Cursor
FETCH NEXT FROM Privati_Cursor
INTO @Id
WHILE @@FETCH_STATUS = 0
BEGIN
   UPDATE TPrivati
      SET Selezionato=@chrSelezionato
   WHERE  ID=@Id
   SET @DaSelezionare=@DaSelezionare-1
   IF @DaSelezionare=0
      BREAK
   FETCH RELATIVE @Ogni FROM Privati_Cursor
   INTO @Id
END
CLOSE Privati_Cursor
DEALLOCATE Privati_Cursor
Ciao
Fabio


[CUT]
Ho visto che a te interessa imporre un filtro per 4 campi, ovvero [NArea],
[IdRegione], [IdProvincia], [IdComune]
quindi potresti passare i 4 valori e comporre la tua Where in Questo modo
-----------------------
 ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int, @Ogni int,
 @chrSelezionato as nvarchar(25), @NArea int, @IdRegione int, @IdProvincia
int, @IdComuneint)
AS
DECLARE Privati_Cursor CURSOR LOCAL SCROLL FOR
SELECT ID FROM TPrivati
WHERE NArea=CASE WHEN @NArea Is Null THEN NArea ELSE @NArea END
  AND IdRegione=CASE WHEN @IdRegione Is Null THEN IdRegione ELSE @IdRegione
END
  AND IdRegione=CASE WHEN @IdRegione Is Null  THEN IdRegione ELSE @IdRegione
END
  AND IdProvincia =CASE WHEN @IdProvincia Is Null  THEN IdProvincia ELSE
@IdProvincia END
  AND IdComuneint=CASE WHEN @IdComuneint Is Null  THEN IdComuneintELSE
@IdComuneint END
--------------------
Se la tua estrazione dei nomiativi può essere casuale (e non ogni x nomi)
puoi fare a meno del cursore
----------------------
 ALTER PROCEDURE StoredProcedure3 (@DaSelezionare int,
 @chrSelezionato as nvarchar(25), @NArea int, @IdRegione int, @IdProvincia
int, @IdComuneint)
AS
SET ROWCOUNT @DaSelezionare
SELECT * FROM TPrivati
WHERE NArea=CASE WHEN @NArea Is Null THEN NArea ELSE @NArea END
  AND IdRegione=CASE WHEN @IdRegione Is Null THEN IdRegione ELSE @IdRegione
END
  AND IdRegione=CASE WHEN @IdRegione Is Null  THEN IdRegione ELSE @IdRegione
END
  AND IdProvincia =CASE WHEN @IdProvincia Is Null  THEN IdProvincia ELSE
@IdProvincia END
  AND IdComuneint=CASE WHEN @IdComuneint Is Null  THEN IdComuneintELSE
@IdComuneint END
ORDER BY NEW_ID()
SET ROWCOUNT 0
--------------------
Ciao Giorgio
Newsgroup: it.comp.appl.access
Titolo: riproposizione problema su pulsante x pag successiva o precedente

Scusate se ripropongo il problema ma non ci riesco.
In una maschera continua ho l'esigenza di inserire due pulsanti (PGSu
e PGGiu) per spostarmi avanti e indietro nelle pagine della maschera.
Ho inserito in testa al modulo della maschera la variabile
Dim iPage As Byte
e sul pulsante PGSu:
iPage = iPage + 1
DoCmd.GoToPage iPage
mentre sul pulsante PGGiu
If iPage > 0 Then
iPage = iPage - 1
DoCmd.GoToPage iPage
Else
MsgBox "Sei già alla prima pagina"
End If
Cliccando il pulsante PGGiu una volta non succede nulla, se lo clicco
la seconda volta esce il msg "il numero di pagina specificato come
argomento dell'azione VaiAPagina o nel metodo GotoPage non esiste in
questa maschera"; se clicco sul pulsante PGGiu in qualsiasi pagina mi
trovi, esce il messaggio del msgBox.
Come deve cambiare questi codici?
Grazie.
Giuseppe.

[CUTTONE]
Scusate se ripropongo il problema ma non ci riesco.
Come deve cambiare questi codici?
-------------------
In una demo che pubblicati tempo fa su Accessgroup c'è qualcosa che può 
esserti utile... guardatelo tu però :D
http://www.accessgroup.it/HomeArgomenti.asp?ID=56&Oggetto2=Personalizza%20maschera%20da%20codice%20VBA
-- 
---
Ciao
Pablitomf
FORZA NAPOLI - - - SEMPRE!
Tifosi Napoletani, gente fantastica
http://it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
 

 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Grazie Plabitomf sicuramente in quell'esempio c'è quel che mi serve,
però ho problemi con il file.
Nonostante tenga premuto il pulsante maiuscolo all'apertura del file,
non riesco a vedere la struttura della maschera e del database.
Inoltre utilizzo Access 2007 e all'apertura del file mi chiede di
aggiornarlo alla nuova versione. In entrambi i casi mi dice che ci
sono riferimenti mancanti a dei file .ocx. Inoltre tutti  i pulsanti
della maschera non hanno nessun effetto.
E' un problema mio o cìè qualcosa che non va al file. Mi fai sapere
per favore.
Grazie.
Giuseppe.

 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Scusa Pablitomb
Ho abbassato, il livello di protezione Access 2007 e ora il file
funziona, ma non riesco a vedere la struttura del database e a capire
come hai fatto a far in  modo che è possibile con i pulsanti a
spostarsi tra le pagine della maschera.
Attendo tue notizie.
Ciao.

 Tifosi Napoletani, gente fantasticahttp://
it.youtube.com/watch?v=gUqFHOXrK-M&feature=related
Annullamento dei due post precedenti.
Ora riesco a vedere anche la struttura del database.
Spero di riuscire a ottenere lo stesso risultato.
Cmq non disdegno un aiuto alla prima soluzione, che forse con i dovuti
aggiustamenti è più semplice.
Grazie Pablitomf. Scusa i post errati ma ho da poco installato Access
2007.
Giuseppe.
Newsgroup: it.comp.appl.access
Titolo: Quale prg di grafica ?

Quale mi consigliate di usare e comprare tra Paint Shop Pro, Photoshop e
Fireworks ? tenendo conto soprattutto conto che sono un quasi novello in
grafica, mi servirà per grafica web e fotoritocco al 50%, il costo di
Photoshop è alto ma se ne vale la pena...FireWorks è meno caro ma ci
entrerebbe nel budget anche Flash5, Psp lo lascio ad intuito come ultima
spiaggia ma dipende dai vostri consigli...insomma datemi una dritta!
Ciao e Grazie a tutti!

 ha scritto nel messaggio
news:Sx5k8.17222$%g7.4...@twister2.libero.it...

Scusate ho sbagliato gruppo!

Newsgroup: it.comp.appl.access
Titolo: forse OT collegarsi a database locale da sql server

Ciao,
provo a chiedere aiuto qui :-)
utilizzo per lavoro delle applicazioni che girano su sql server.
Vorrei utilizzarle per interrogare un database fatto in access 2007 che 
però è nel mio pc.
Mi sembra che debbo aggiungere alla eventuale query che faccio, una 
stringa nella quale specifico appunto di collegarsi al database in 
questione.
Purtroppo non riesco a rintracciare questa stringa :-/
Qualche anima pia?
:-D

 ha scritto nel messaggio 
news:MPG.235949933...@nntp.aioe.org...

[risposta]
Prova questo:
www.sitocomune.com
 Sezione Tables
1.19 Collegare un client Access97 a SQL Server via ODBC
Ciao.
-- 
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: Maschera: controllo con indirizzo e-mail

Salute a tutti,
in una maschera ho un campo che contiene un indirizzo di posta elettronica,
vorrei fare in modo che cliccandoci sopra mi apra Outlook Express e mi
posizioni l'indirizzo sull'invia a.
Questo senza modificare il collegamento ipertestuale col destro....devo
creare una routine o qualsiasi altra cosa che sia automatica.
Grazie Luca


www.donkarl.com/it
 FAQ 4.27 E-mail con indirizzo da casella di testo
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

 -- 
Ho provato il metodo inserendo la riga di codice in un pulsante e
modificando il nome con quello della casella di testo che contiene
l'indirizzo e-mail:
mi restituisce il seguente messaggio: errore di run time 2185: impossibile
fare riferimento ad una proprietą o ad un membro per un controllo che non
abbia lo stato attivo.
Ho provato a cliccare all'interno della casella di testo prima di premere il
pulsante ma continua a darmi lo stesso messaggio....
Grazie Luca.

 > -- 
Scusa tutto OK!
Grazie

 Grazie
Mi puoi spiegare come hai fatto? Anch'io avrei la stessa esigenza. Nella 
sessiona anagrafica del db che ho creato ho anche due caselle di testo che 
si riferiscono ad indirizzo di posta elettronica ed indirizzo web, 
formattate a collegamento ipertestuale.
Non riesco a capire come devo mettere in pratica la Faq di Karl in modo da 
fare aprire automaticamente il prg di posta elettronica quando per esempio 
clicco su 
robe...@robort.it
 . Si può fare senza l'uso di pulsanti ma 
solamente cliccando sopra all'indirizzo di posta o indirizzo web? come?
Grazie.
Roberto

 ha scritto nel messaggio
news:edrcil$1ug$1...@balena.cs.interbusiness.it...

io ho utilizzato un pulsante
Newsgroup: it.comp.appl.access
Titolo: Recuparare parametri ODBC da dentro ACCESS

Salve,
ho un applicazione che utilizza tabelle su un server MsSql connesse tramite 
ODBC.
La stessa applicazione con database identico ma di nome diverso, e a volte 
su un server diverso viene utilizzata da svariati utenti.
Mi occorrerebbe poter "leggere" il server a cui si riferisce la connessione 
ODBC con la quale sono linkate le tabelle.
Mi riesce perfettamente recuperare il nome della connessione ODBC a cui fa 
riferimento ogni tabella.
Come faccio a fare il passaggio ulteriore?
Sapendo il nome della connessione ODBC ricavare (non so da dove o come) il 
nome del server e gli altri parametri?
Grazie
Simone

 ha scritto nel messaggio
news:fa212v$2l82$1...@newsreader1.mclink.it...

La stringa di connessione sarà una cosa simile(Semplificata):
DRIVER={SQL Server};SERVER=NomeServer;DATABASE=NomeDB
Secondo te come fai a sapere qual'è il Server....??
Function GetServer(strConnection As String) As String
    Dim inS As Integer
    inS = InStr(sConn, "SERVER=") + Len("SERVER=")
    GetServer = Mid$(sConn, inS, InStr(inS, sConn, ";") - inS)
End Function
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------

 ha scritto nel messaggio 
news:fa22jm$o3d$1...@aioe.org...

Forse non mi sono spiegato.
Se eseguo questa query:
           select name, foreignname,connect from msysobjects where connect 
is not null
ottengo nel campo connect la stringa di connessione che, almeno nel mio 
caso, è questa:
           DSN=NomeDSN;APP=Microsoft Office 
2003;WSID=NomeDelMioPC;DATABASE=NomeDelDataBase
come vedi il nome del server non c'è! e dovrei sapendo NomeDSN recuparare il 
nome del server specificato nel DSN configurato...
Le tabelle sono collegate tramite collegamento "manuale" (=collega tabella) 
da dentro access perché ho bisogno di farci riferimento direttamente con 
svariate maschere che "puntano" direttamente sulle tabelle.
In alternativa potresti suggerirmi un modo per collegare run-time le tabelle 
dentro access con una connessione DSN less.
Ciao
Simone 

 dentro access con una connessione DSN less.
qui alla funzione "LinkTableDAO" trovi un esempio
http://www.webservertalk.com/archive136-2004-8-361865.html
e' la prima che mi e' capitato di trovare ma sicuramente nei siti di 
riferimento del NG trovi tutto quello che cerchi
www.sitocomue.com
www.alessandrobaraldi.it
www.donkarl.com/it
www.accessgroup.it
e puoi provare anche su
www.mvps.org
gli indirizzi li ho scritti a memoria spero siano tutti corretti
-- 
ac
y-1=x
Newsgroup: it.comp.appl.access
Titolo: istruzione if else ...

ciao a tutti
 
è possibile riassumere queste due istruzioni in una sola?
 
if me!IdProdotto.Column(8)<>""  then
Me!IdConfezione=me!IdProdotto.Column(5)
Else
Me!IdConfezione=me!IdProdotto.Column(2)
end if
 
if me!IdProdotto.Column(8)="" and  me!IdProdotto.Column(2)="" 
Me!IdConfezione= 2
end if
 
grazie

io intravedo 2 modi:
 
1°
If Me!c8 <> "" Then
    Me!cc = Me!c5
Else
    Me!cc = Nz(Me!c2, 2)
End If
 
2°
If Me!c8 <> "" Then
    Me!cc = Me!c5
ElseIf ((Me!c8 = "") And (Me!c2 = "")) Then
    Me!cc = 2
Else
    Me!cc = Me!c2
 
 
pero valuta se non ti potrebbero arrivare problemi dalla ambiguità
che esiste fra il Null e le stringhe di lunghezza zero
 
eventualmente al posto di:  
If Me!c8 <> "" .........
mettici:
If Len(Me!c8 & "") > 1 ......
eccetera
 
 
Facci sapere


grazie Mancini
 
e se fosse cosi'
 
if len(IdProdotto.Column(8)<>"")>1 then
va column(5) se è vuota column(2) se è vuolta Me!IdConfezione=2
 
come va impostata?
grazie


Si ma perdonami : mi sembra di rilevare una falla.
 
che succede se idProdotto.column(8) e idProdotto.column(5) 
sono ambedue diverse da "" ? (presuppongo l' assenza di valori null). 
 
Succede che comunque la idConfezione prende il valore 
IdProdotto.Column(5)
 
E' normale ? Va bene cosi' ?