text:
On 1 Dic, 00:23, "geppo" <c...@tin.it.invalid> wrote:
> Io non riesco a riprodurre il problema perchè a me funzia.
ok, puoi dirmi come salvi i dati? Precisione singola o doppia?
>
> Secondo me c'è qualche impostazione che ci sfugge.
Sicuramente!
> Ad esempio hai detto (riporto testualmente):
> ===================================================
> I due campi vengono pescati dalla query che segue. Nella tabella, i
> valori sono impostati a numerico con precisione doppia, sebbene quando
> io calcolo i valori li salvo in tabella con comando
> cdbl(format(valore;0,000) ossia troncandoli. Quindi, x spiegarmi, apro
> la tabella, seleziono il valore, questo valore è proprio a 3 cifre.
> ===================================================
>
> Forse il problema è proprio nella modalita' in cui salvi dati.
La modalità con cui salvo i dati dici.... Dunque io chiedo all'utente
di inserire un costo di materia prima in una tabella chiamata listino.
Nella tabella materie prime inserisco i dati per avere il costo finito
dell'articolo (... non sto a raccontarvi il giro dell'orso... cioè se
volete ve lo racconto ma solitamente sono troppo prolissa)
In una query calcolo il costo di oggi, il margine e lo salvo.
Domani rientro, calcolo il nuovo costo, e confronto il margine di ieri
e di oggi. Il margine che salvo è sempre il + alto. A questo punto
tabello il valore, tramite query di aggiornamento, quella famosa query
che calcola mettendo cdbl(format(valore;0,000).
Quando ho salvato i dati tramite query di aggiornamento, faccio il
requery della maschera direttamente da tabella... quindi in questi
passaggi c'è qualche cosa che lo confonde.
On 30 Nov, 18:59, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> > ok,
> > probabilmente festeggiare un compleanno a base di prosecco, prima di
> > testare quanto da te suggeritto, non è il massimo...
>
> None (rafforzativo di no). Su una form continua non  mi risulta che si
> possa formattare un controllo, a meno di usare le format conditions
> (stanno li per questo), poiche', su quel tipo di form, non abbiamo un
> insieme, o se preferisci "array", di oggetti diversi. Se modifichi gli
> attributi di un controllo questi sono propagati su tutta la colonna.
>
> Ma la roba che hai scritto la avevi gia' testata?
No, ho una cosa simile su un maschera singola, logicamente funziona.
Però domani voglio provare da vba fare questo:
assegno il recordsource alla maschera
tramite recordsetclone scorro i campi uno per uno
assegno la formattazione al singolo controllo, uno x uno
Credo possa funzionare... dopo un bel pò di c4v0li amari!
Domani provo e ti faccio sapere!
> [OT] Che  gli racconto stasera alla mia consorte?
:D Io il mio l'ho portato a cena!!!!
Ciao
Samantha
3824


title: Convertire campo numerico in campo testo

author: Alessandro Cara

text:
esseAemme wrote:
[cut]
>
>> [OT] Che  gli racconto stasera alla mia consorte?
>
> :D Io il mio l'ho portato a cena!!!!
Ristorante di prima classe immagino.
E ti ha chiesto cosa avevi fatto durante il giorno?
La cosa che vuoi fare temo non funzionera'. Se cerchi sui messaggi
vecchi trovi un bel po' di disperati con il problema di formattazione o
assegnazione di valori su controlli calcolati in maschere di tipo
"continuo".
--
ac
y-1=x


author: esseAemme

text:
On 2 Dic, 21:57, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> esseAemme wrote:
>
> [cut]
>
> >> [OT] Che  gli racconto stasera alla mia consorte?
>
> > :D Io il mio l'ho portato a cena!!!!
>
> Ristorante di prima classe immagino.
? e da cosa lo deduci?
La tua consorte mangia esclusivamente in ristoranti di prima classe?
> E ti ha chiesto cosa avevi fatto durante il giorno?
Essendo Lui una persona intelligente, evita accuratamente di
chiedermelo. Quando mi fa una domanda, scendo sempre troppo nel
tecnico, e non lo mollo +.
Qui c'è l'usanza che chi compie gli anni, porti i pasticcini,
prosecco, quel che si voglia l'importante è festeggiare!!!! Da te no?
>
> La cosa che vuoi fare temo non funzionera'. Se cerchi sui messaggi
> vecchi trovi un bel po' di disperati con il problema di formattazione o
> assegnazione di valori su controlli calcolati in maschere di tipo
> "continuo".
Appena ho un attimo faccio altre prove. Provo a creare una form
continua direttamente dalla tabella, senza passare da query, e vediamo
se la formattazione lavora correttamente
> --
> ac
> y-1=x


text:
esseAemme wrote:
> On 2 Dic, 21:57, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
> wrote:
>> esseAemme wrote:
>>
>> [cut]
>>
>>>> [OT] Che  gli racconto stasera alla mia consorte?
>>> :D Io il mio l'ho portato a cena!!!!
>> Ristorante di prima classe immagino.
> ? e da cosa lo deduci?
>
> La tua consorte mangia esclusivamente in ristoranti di prima classe?
No fa quasi sempre quello che voglio io.Forse e' per questo che non ci
frequentiamo molto?
>
>> E ti ha chiesto cosa avevi fatto durante il giorno?
> Essendo Lui una persona intelligente, evita accuratamente di
> chiedermelo. Quando mi fa una domanda, scendo sempre troppo nel
> tecnico, e non lo mollo +.
>
> Qui c'è l'usanza che chi compie gli anni, porti i pasticcini,
> prosecco, quel che si voglia l'importante è festeggiare!!!! Da te no?
Da noi si festeggia 365gg all'anno, si salva solo il 29 Febbraio.
>
>> La cosa che vuoi fare temo non funzionera'. Se cerchi sui messaggi
>> vecchi trovi un bel po' di disperati con il problema di formattazione o
>> assegnazione di valori su controlli calcolati in maschere di tipo
>> "continuo".
> Appena ho un attimo faccio altre prove. Provo a creare una form
> continua direttamente dalla tabella, senza passare da query, e vediamo
> se la formattazione lavora correttamente
Uhmmm..... niente e' mai scontato ma non trovi che la cosa sia
leggermente "alogica"? Il recordset e' una entita' che fornisce dati,
che provenga da query o tabella non dovrebbe fare molta differenza.
>> --
>> ac
>> y-1=x
>
--
ac
y-1=x


text:
On 3 Dic, 14:48, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> >> La cosa che vuoi fare temo non funzionera'. Se cerchi sui messaggi
> >> vecchi trovi un bel po' di disperati con il problema di formattazione o
> >> assegnazione di valori su controlli calcolati in maschere di tipo
> >> "continuo".
> > Appena ho un attimo faccio altre prove. Provo a creare una form
> > continua direttamente dalla tabella, senza passare da query, e vediamo
> > se la formattazione lavora correttamente
>
> Uhmmm..... niente e' mai scontato ma non trovi che la cosa sia
> leggermente "alogica"? Il recordset e' una entita' che fornisce dati,
> che provenga da query o tabella non dovrebbe fare molta differenza.
Concordo pienamente, io sono qui che mi arrovello (-> esiste in
italiano?) la testa per capire cosa accade realmente!!!
Ho tempo fino a mercoledì, x fare test, a tempo perso! Ti terrò
aggiornato.
Buon lavoro
Samantha
3824


title: Recuperare dati da pagine WEB

author: Pisinho

text:
Salve,
forse � gi� stato discusso ma non trovo il thread, � possibile da codice VBA
recuperare dei dati in pagine WEB pubblicate su Internet ?
Di sicuro si pu� fare, avete qualche HowTo o link per imparare la tecnica ?
grazie mille.


title: Recuperare dati da pagine WEB

author: pablitomf

text:
On 15 Dic, 12:37, "Pisinho" <
pisi...@gmail.com
> wrote:
> Salve,
> forse è già stato discusso ma non trovo il thread, è possibile da codice VBA
> recuperare dei dati in pagine WEB pubblicate su Internet ?
>
> Di sicuro si può fare, avete qualche HowTo o link per imparare la tecnica ?
>
> grazie mille.
c'è un mio demo...
http://www.accessgroup.it/HomeArgomenti.asp?ID=120&Oggetto2=Recuperare%20DATI%20da%20SERVER%20REMOTO
credo sia quello che cerchi.


title: Recuperare dati da pagine WEB

text:
>c'� un mio demo...
>ttp://
www.accessgroup.it/HomeArgomenti.asp?ID=120&Oggetto2=Recuperare%20DATI%20da%20SERVER%20REMOTO
>redo sia quello che cerchi.
Grazie ma vorrei prelevare un determinato valore , le pagine di cui parlo
hanno diversi valori e devo recuperarne un apio nello specifico.
Qualcuno diceva che le pagine devono essere formattate in una certa maniera,
immagino parlasse di valori di variabili o cose del genere.
Se avete qualche altra idea, comunque ti ringrazio per la risposta.
Saluti


title: Recuperare dati da pagine WEB

author: Antonio

text:
"Pisinho" <
pis...@gmail.com
> ha scritto nel messaggio
news:4b27...@news.x-privat.org...

Allego un pezzo di codice di un'applicazione che avevo scritto diverso tempo
fa e che serviva a leggere le mails da un server Outlook Web Access. Non
conoscevo la struttura con cui lavorava OWA, quindi avevo dovuto
"inventarmi" delle tecniche a dir poco sconclusionate, ma forse puoi trarne
qualche spunto per il tuo problema.
Tieni presente che quando ti trovi con Internet Explorer sulla pagina di un
sito, puoi selezionare "Visualizza" e poi "Origine" e cos� vedi il codice
HTML della pagina visualizzata. Con un po' di inventiva e tanta voglia di
giungere ad un risultato, aiutandoti anche col codice qui sotto, otterrai
sicuramente quello che desideri.
Dim Arco1 as String, Arco2 as String, Arco3 as String
Dim Buffer As String * 10240
Dim BytesLetti As Long
Dim HandleInternet As Long
Dim HandleHTTP As Long
Dim RispHTML As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Dim OggettoWebBrowser1 As SHDocVw.WebBrowser
Dim OggettoWebBrowser2 As SHDocVw.WebBrowser
Dim DocumentoHTML As MSHTML.HTMLDocument
Dim ElementoDelDocumento As MSHTML.HTMLDocument
Dim FrameDelDocumento As MSHTML.HTMLFrameElement
Dim ElencoMails As IHTMLElement
Dim Allegati As MSHTML.HTMLLinkElement
Dim TabellaDelDocumento As MSHTML.HTMLTable
Dim Rigaditabella As MSHTML.HTMLTableRow
Dim CellaDiTabella As MSHTML.HTMLTableCell
    Set OggettoWebBrowser1 = Me.WebBrowser1.object
    Set OggettoWebBrowser2 = Me.WebBrowser2.object
    OggettoWebBrowser1.navigate "sito che vuoi visitare", &H8
    Do While OggettoWebBrowser1.Busy Or _
            OggettoWebBrowser1.readyState < 4
        DoEvents
    Loop
    Set DocumentoHTML = Me.WebBrowser1.object.Document
    Set FrameDelDocumento = DocumentoHTML.frames(1).Document
    Set ElencoMails = FrameDelDocumento.getElementById("dvcontents")
    Arco1 = ElencoMails.all(10).innerHTML
    Totmailselezionate = 0
    i = 1
ripetiloop:
    j = InStr(i, Arco1, "</TR>")
    If j = 0 Then GoTo fineloop
    Arco2 = Mid$(Arco1, i, j - i + 5)
    i = j + 5
    j = 1
    k = InStr(j, Arco2, " id=")
    If Mid$(Arco2, k + 4, 10) = "unselected" Then GoTo ripetiloop
    If Mid$(Arco2, k + 4, 8) <> "selected" Then
        MsgBox "Non trovate le parole chiave 'selected' e 'unselected'", ,
Titoloapplicazione
        Exit Sub
    End If
    j = j + k + 12
    k = InStr(j, Arco2, " id=")
    If Mid$(Arco2, k + 4, 4) <> "http" Then
        MsgBox "Non trovata la parola chiave 'id=http'", ,
Titoloapplicazione
        Exit Sub
    End If
    j = k + 4
    k = InStr(j, Arco2, " ")
    If k = 0 Then
        MsgBox "Il nome del messaggio � irregolare", , Titoloapplicazione
        Exit Sub
    End If
    Totmailselezionate = Totmailselezionate + 1
    If Totmailselezionate > UBound(MailSelezionate) Then
        MsgBox "Selezionati troppi messaggi", , Titoloapplicazione
        Exit Sub
    End If
    MailSelezionate(Totmailselezionate) = Mid$(Arco2, j, k - j)
    GoTo ripetiloop
fineloop:
    Indice = 1
prosegui:
    OggettoWebBrowser1.navigate MailSelezionate(Indice), &H8
    Do While OggettoWebBrowser1.Busy Or _
            OggettoWebBrowser1.readyState < 4
        DoEvents
    Loop
modosingolo:
'Stop
    Do While OggettoWebBrowser2.Busy Or _
            OggettoWebBrowser2.readyState < 4
        DoEvents
    Loop
    Set DocumentoHTML = Me.WebBrowser2.object.Document
    DettaglioMail = ""
    Set TabellaDelDocumento = DocumentoHTML.getElementById("tblHeader")
    Set Rigaditabella = TabellaDelDocumento.rows(0)
    Set CellaDiTabella = Rigaditabella.cells(3)
    DettaglioMail = DettaglioMail & "Inviato:    " &
CellaDiTabella.innerText & vbCrLf
    Set ElementoDelDocumento = DocumentoHTML.getElementById("_trFromText")
    DettaglioMail = DettaglioMail & "Da:          " &
ElementoDelDocumento.innerText & vbCrLf
    Mittente = ElementoDelDocumento.innerText
    Set ElementoDelDocumento = DocumentoHTML.getElementById("_trToText")
    DettaglioMail = DettaglioMail & "A:            " &
ElementoDelDocumento.innerText & vbCrLf
    Set ElementoDelDocumento = DocumentoHTML.getElementById("_trCcText")
    DettaglioMail = DettaglioMail & "Cc:           " &
ElementoDelDocumento.innerText & vbCrLf
    Set ElementoDelDocumento =
DocumentoHTML.getElementById("_trSubjectText")
    DettaglioMail = DettaglioMail & "Oggetto:   " &
ElementoDelDocumento.innerText & vbCrLf
    Oggettodeldocumento = ElementoDelDocumento.innerText
    Set ElementoDelDocumento = DocumentoHTML.getElementById("_tdAttachWell")
    DettaglioMail = DettaglioMail & "Allegati:   " &
ElementoDelDocumento.innerText & vbCrLf
    StringaAllegati = ElementoDelDocumento.innerText
    Set FrameDelDocumento = DocumentoHTML.frames(0).Document
    DettaglioMail = DettaglioMail & vbCrLf &
FrameDelDocumento.body.innerText & vbCrLf
'Stop
    TitoloDellaMail = "[e-mail] " & CellaDiTabella.innerText & " " & _
            Mittente & ": " & Oggettodeldocumento
'    TitoloDellaMail = Left$(TitoloDellaMail, 250)
    Set rst1 = Mascheraaddestramento.RecordsetClone
    TitoloDellaMail = Left$(TitoloDellaMail, rst1.Fields("Titolo").Size)
    Set rst1 = Nothing
e cos� via ....
Ciao
Antonio


title: Recuperare dati da pagine WEB

author: Sergio MAZZA

text:
"Pisinho" <
pis...@gmail.com
> ha scritto nel messaggio
news:4b27...@news.x-privat.org...
>
> Grazie ma vorrei prelevare un determinato valore , le pagine di cui parlo
> hanno diversi valori e devo recuperarne un apio nello specifico.
> Qualcuno diceva che le pagine devono essere formattate in una certa
> maniera, immagino parlasse di valori di variabili o cose del genere.
>
> Se avete qualche altra idea, comunque ti ringrazio per la risposta.
>
> Saluti
Fai un esempio concreto.
In generale; se sai cosa cerchi esegui il download, in una variabile, del
codice HTML e (es.) con la funzione Instr() lo cerchi.
Se devi ottenere un valore che � contenuto da un tag HTML (es.) � contenuto
in una cella di una tabella, se la tabella � unica puoi "rintracciarla"
facendo riferimento al DOM (Document Object Model) all'unico oggetto Table
presente nelle Tables. Meglio se la tabella � identificata dall'opzione ID;
utilizzi la funzione GetElementById per ottenere l'oggetto Table e poi ti
leggi le celle fino ad arrivare a quella contenente il valore.
La condizione ottimale � che il tag HTML contenente il valore sia
identificato da un ID; otterresti il valore con un sol colpo di
GetElementById.
Il lavori di ricerca si complica se:
- il codice HTML non � scritto bene (es. tag non chiusi)
- la pagina contiente Frame o IFrame
- il valore � visualizzato da un oggetto Flash o similari
- il valore � una immagine
- la pagina web � dinamica e cambia il contenuto
- etc. etc.
Ciao.
--
Sergio MAZZA


title: Recuperare dati da pagine WEB

text:
On 15 Dic, 14:32, "Pisinho" <
pisi...@gmail.com
> wrote:
> >c' un mio demo...
> >ttp://
www.accessgroup.it/HomeArgomenti.asp?ID=120&Oggetto2=Recuperare%20DAT.
..
> >redo sia quello che cerchi.
>
> Grazie ma vorrei prelevare un determinato valore , le pagine di cui parlo
> hanno diversi valori e devo recuperarne un apio nello specifico.
> Qualcuno diceva che le pagine devono essere formattate in una certa maniera,
> immagino parlasse di valori di variabili o cose del genere.
>
> Se avete qualche altra idea, comunque ti ringrazio per la risposta.
>
> Saluti
La funzione che ti ho suggerito, tira fuori il codice html della
pagina... nel caso dell'esempio una data, ma in caso di un'altra
pagina, tirerebbe fuori il codice sorgente della pagina stessa,
inclusi quindi i dati a te utili... bisognerà a quel punto solo fare
un pharse della variabile per trovare quel che cerchi... tipo instr


title: Recuperare dati da pagine WEB

text:
> - etc. etc.
Ops... abbiam detto la misma cosa... ;)


title: Recuperare dati da pagine WEB

text:
"pablitomf" <
pabl...@virgilio.it
> ha scritto nel messaggio
news:603dae5b-3dfd-41ac...@m16g2000yqc.googlegroups.com...
>> - etc. etc.
>
> Ops... abbiam detto la misma cosa... ;)
Come disse il Principe: "..abbundadum abbundandis..."...
Ciao.
--
Sergio MAZZA


title: Recuperare dati da pagine WEB

text:
pablitomf ha scritto:
[cut]
> un pharse della variabile per trovare quel che cerchi... tipo instr
quindi oltre alle "farse" si puo' trovare anche roba seria?
--
ac


title: Recuperare dati da pagine WEB

text:
On 18 Dic, 12:47, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

dipende dal sito... ;)


title: Recuperare dati da pagine WEB

text:
On 18 Dic, 12:47, Alessandro Cara <
alessandro.c...@ay-1anetwork.it
>
wrote:

ops... una "h" :D


title: Impossibile creae MDE

author: Mik Mark

text:
Ciao a tutti,
    io ho diviso il DB, e ora provo a creare il file .mde !
Mi è sempre funzionato, ma ora mi dice "impossibile creare il file .mde",
cosa potrebbe essere?
Mik


title: Impossibile creae MDE

author: danieleni

text:


hai provato a creare il file mde da access senza alcun database
aperto?


title: Impossibile creae MDE

author: Emyr

text:
On Thu, 17 Jan 2002 12:22:07 +0100, "Mik Mark"
<
marcheso...@trentino.net
> wrote:

c'è qualche errore nel codice prova con compila sui moduli
Saluti.
Emanuele.


title: Impossibile creae MDE

text:
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:etfd4ug56c43lcefh...@4ax.com...

Grazie!
    Non mi ero accorto di aver fatto un ctrl c per copiare un pezzo di
codice e invece di copiare ho scritto c!
Scusate il disturbo
        Mik


title: Carattere non carattere ?

author: miciomao

text:
Salve a tutti
ho creato un applicativo in ACC97 per la manipolazione delle stringhe.
In poche parole si fà un copia testo da una pop-up web si incolla su
una casella si preme un pulsante ed il testo nella casella sottostante
è bello e formattato, pronto per essere postato su un forum.
Nella stringa processata però ho un carattere maledetto che non riesco
ad intercettare e togliere (il classico rettengolino nero). Alcuni
riesco ad eliminarli con Chr(9) ma altri rimangono e mi fanno un
ritorno a capo una volta postati su web.
Di seguito riporto l'esempio del mio problema, lo spazio che c' è tra
il testo ed il numero
è la mia maledizione, sembrano 3 o 4 spazi invece è un' ENTITA' sola.
Qualcuno conosce il nome di questo Null ?????
Tecnologia ionica	5


title: Carattere non carattere ?

author: Panathos

text:
miciomao ha scritto:
> Nella stringa processata però ho un carattere maledetto che non riesco
> ad intercettare e togliere (il classico rettengolino nero). Alcuni
>
> Qualcuno conosce il nome di questo Null ?????
Non so il nome e non vedo il carattere, però -se nel vba di Access 97
non ci sono funzioni di search & replace- devi fare un ciclo su tutto
il testo, estrarre il singolo carattere, e "unirlo" ad una nuova
stringa se il valore ASCII numerico è nel range che ti è utile (per
questo c'è la funzione val(), da usare con chr().
Per scoprire il codice di quel carattere, puoi usare un editor che ti
dica la corrispondenza. Io uso pspad (
www.pspad.com
), che è freeware e
piuttosto ben carrozzato.
Fai un copia/incolla del carattere ed andandoci a sinistra col cursore,
nella barra di stato vedi il carattere ed il corrispondente codice
ASCII.
ciao,
Panathos.


title: Carattere non carattere ?

text:
Risolto con una bella pulizia di vbCrLf antecedente al processo
se la effettuo prima tutto mi torna normale ma se la faccio dopo
quel maledetto persiste. :P
Cmq ho provato a cercarlo in ASCII
ma è come se fosse inselezionabile
guarda incredibile  :\
Però tuto ok adesso
Grazie 1000 Panathos, mi tiro giù anche il programmino che mi hai
consigliato


title: Record attuale

author: Maurizio

text:
Buonasera, sono ancora io(Maurizio) a chiedere un ulteriore suggerimento.
Spego velocemente. COn la funzione "conteggio(*)" ottengo il numero totale
dei record, peň coněme faccio a sapere in che record mi trovo?? Per farla
brve come faccio a visualizzare "sono al record n di nn" senza attivare i
pulsanti di spostamento?
Grazie e scusate
Maurizio


title: Record attuale

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:2K2M9.28741$TC5.8...@twister1.libero.it...

Innanzitutto io non utilizzerei CONTEGGIO, visto che devi accedere a DAO
sfruttando il RECORDSETCLONE della Form....!
NumRecord=Me.RecordsetClone.RecordCount
RecAttuale=Me.RecordsetClone.AbsolutePosition+1 (+1 mi pare perchč dovrebbe
partire da 0)
Se usi A2000 o XP devi inserire i riferimenti DAO 3.6
@Alex


title: Problema visualizzazione snapshot

author: Gianluigi Agostini

text:
Buongiorno.
Utilizzo A97 sr2 in rete mista win2000/w98. Creo dei file *.snp da un report
che è sostanzialmente una fattura da due tabelle: testata e righe testata.
Mi capita che in w98 su alcuni snapshot nella prima pagina viene
visualizzata solo la testata, e le righe compaiono solo dalla seconda pagina
in poi, mentre stampandolo va tutto bene. Lo stesso snapshot visualizzato su
w2000 mostra correttamente tutte le righe. Ho cercato di capire se il
problema si presentasse ad esempio per gli snapshot generati su w2000 e
visualizzati in w98, o comunque di trovare una causa apparente, senza
riuscirvi. Quando però il problema si presenta, tutti i pc w98 visualizzano
sbagliato e tutti i pc w2000 visualizzano corretto.
Grazie per l'aiuto
--
Gianluigi Agostini


title: Vaglia telegrafico....

author: C.E.T. s.a.s.

text:
Salve Signor Davide,
mi hanno avvisato che le poste non hanno consegnato il vaglia telegrafico a
Lei destinato ( destinatario non corretto ) ed hanno riaccreditato
l'importo.
Mi riconferma i dati per favore ?
Lunedě rinnovo le disposizioni di pagamento.
Buon proseguimento,
Ciro Esposito


title: Vaglia telegrafico....

author: Silvio Berruti

text:
"C.E.T. s.a.s." <
kran...@aruba.it
> ha scritto nel messaggio
news:9iprep$51m$1...@fe2.cs.interbusiness.it...

Strano che il Biso non abbia commentato...
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: report posso modificare i margini ?

author: cp-soft

text:
Ciao mi chiamo Pietro.
Io vorrei stampare il bollrttino postale e mi serve una pagina più grande
dei formati disponibili in elenco.
Come posso fare???
Un grazie e un ciao per tutti  Pietro.


title: report posso modificare i margini ?

author: Salvatore

text:
"cp-soft" <
cp-...@tiscali.it
> ha scritto nel messaggio
news:br40o3$ttf$1...@lacerta.tiscalinet.it...
> Ciao mi chiamo Pietro.
> Io vorrei stampare il bollrttino postale e mi serve una pagina piů grande
> dei formati disponibili in elenco.
> Come posso fare???
> Un grazie e un ciao per tutti  Pietro.
>
>
La dimensione della pagina č legata alla stampante che utilizzi.
Se hai una stampante in formato A4 le dimensioni massime (margini compresi)
sono di 21 x 29,7 cm.
Se devi stampare su dimensioni maggiorni devi usare una stampante in A3
(fino a 42 cm) o un plotter.
Ciao
Salvatore


title: MI5 Persecution: But why? 2/8/95 (4530)

text:
>Very unstructured, no proof whatsoever. So why should anyone
>take it seriously? If I said to you, "my next door neighbour eats
>babies", how much credibility would you attach to that?
Well, cos it's true. I was hoping that someone "in the know" would
appear and make some self-revealing comments, but that hasn't
happened. Everyone's keeping quiet. What a pity.
>>This is an agglomeration of articles and replies previously
>>posted to Usenet, so it's a bit hard to read. This posting
>>describes a campaign of character assassination initiated
>Who's character is being assassinated? It isn't clear from the post.
>Are we talking about Grenville Janner? I thought he was a spook
>himself? He's certainly able to hold his own on the issue you cite.
Mine, mainly. The reason for putting that episode at the top
of the posting is that they tried to kill two birds with one stone
at the Beck trial - they simultaneously put words into the mouth
of their invented "witness" to smear Janner, and repeated exactly,
word-for-word, stuff which had been said by and about me.
That was the only occasion (the only one recognizable to me,
anyway) when they went after another target at the same time.
And it's quite lucky they did that - because it could give some
pointers to who they might be.
Presumably there are people still around who were involved in
that trial, and know what happened. Beck might be dead, but the
"witness" would still be around, as would Beck's solicitor.
>>by a group of people or agency within the UK. Although
>>they have never presented their identity, you can draw
>>your own conclusions on that point. There aren't many
>>people with the technical resources and contacts in
>>society to make feasible the sort of deliberate attack
>>on an individual which is described in this article.
>
>There aren't _any_ as far as I am aware.
I'm afraid there are.
>>The most disturbing part of the whole episode is the
>>participation of British institutions and their members, fully
>>comprehending what they do, in what is an act of attempted
>>murder against a British citizen.
>
>The whole society, in fact. From the top to the bottom. They
>wouldn't be trying to tell you to kill yourself by any chance,
>would they?
You got it. I'm a popular guy.
>>After the trial Janner said that "now he knew what it felt like
>>to be a victim of Beck's"; but, it wasn't Beck who set up the
>>attempted character assassination on Janner; the fact that they
>>took a side-swipe with their verbatim repetition shows
>>where the real source is to be found.
>
>The newspapers?
Well, your guess is as good as mine. But what newspaper would
send a team after someone for five years? I don't think so,
somehow. Of course they could, but it wouldn't be in their
commercial interest.
You'd have to look at a corporate entity which would indulge in
activity of this type, and the nature of the contacts they have
narrows down the search.
>>The goons behind the molestation are lower than the paedophiles
>>they use to convey their propaganda - they use the same
>>strategy of covert abuse, but there is nobody to check their
>>actions, or to bring these criminals to justice.
>
>Ummm.. Janner is a Barrister, a journalist who writes on a wide
>variety of issues, and a long-standing Labour MP. If he's unjustly
>smeared, he's more that capable of setting the record straight.
Janner blamed Beck for the invention. He didn't say anything about
it having any other origin. Even had he suspected any other source,
he could hardly have pointed the finger without some evidence.
>You say that the media is making similar allegations about you in
>relation to this issue? So, you're accused of child abuse, amd
>the allegation was reported in the media, I assume.
I've been accused of many things although that wasn't one of them.
Most of them have been yelled in my face by people on the street
in London at some time or other. Bit difficult to misinterpret
when that happens.
>What exact;y are they saying about you? (Respond here please. I'm
>leaving the UK tomorrow, so I can't read e-mail.)
It changes with time. Every so often, they sing a new song;
so at one point the allegation was homosexuality, at another
is was low intelligence, then it degenerated into sexual abuse.
<snip>
>>They invaded my home with their bugs, they repeated what I
>>was saying in the privacy of my home, and they laughed that it
>>was "so funny", that I was impotent and could not even communicate
>>what was going on. Who did this? Our friends on BBC television,
>>our friends in ITN, last but not least our friends in Capital
>>Radio in London and on Radio 1.
>
>How do you know this? Just from what you hear on the radio?
I can't remember if this was mentioned in the "regular" posting,
but on a few occasions they set me up with people nearby to talk
about me, or more correctly, to talk about somebody who
(in their minds) "resembles" me, with actually naming me.
One such occasion was a coach trip to Europe in June 1992.
The "set up" comprised a guy talking to a vacant giggling female
about "this bloke", who was never named. Apparently "they"
(also never named) "found somebody from his school",
"they" "got" him at his house and at a neighbours, and at
a B&B where their target was for one night.
Apart from that, yeah, from "what I hear on the radio". And
from what I see on TV. (I wouldn't be doing my job as a
mentally ill person properly if the TV and radio weren't
talking to me, now, would I?)
>>Oh yeah, I can see it now. All of them banding together, in a united
>>effort against one man. So ITN, the BBC, and Capital all decide to sit
>>round the table and they come up with idea of breaking into someones
>>house, putting bugs everywhere, listening in to his conversation, and
>>shoving it out on the news everyday.
>
>But why would they do this? What possible reason would they have?
But why get at anybody? Victimisation is the pastime practised against
other people; as the scorpion said to the frog, "it's in my nature".
>Are you aware that what you describe is also a common symptom of people
>who are suffering from a psychiatric illness? Have you been to your
>doctor and told him about this?  Did he prescribe any medication?  Have
>you been taking it, or have you stopped?
Yes, Yes, and Yes respectively. Still taking it. Doing quite well actually.
>>This someone has nothing to do with
>>politics, or business, or entertainment, just an ordinary Joe Bloggs who
>>seems to be extremely paranoid.
>
>Usually a clinical symptom rather than proof of a conspiracy in such
>matters.
>>How did they do this? I'll give you an example. About a year ago,
>>I was listening to Chris Tarrant (Capital Radio DJ among other
>>pursuits) on his radio morning show, when he said, talking about
>>someone he didn't identify, "you know this bloke? he says we're
>>trying to kill him. We should be done for attempted manslaughter"
>>which mirrored something I had said a day or two before.
>>Now that got broadcast to the whole of London - if any recordings
>>are kept of the shows then it'll be there.
>
>And this is supposed to mean... what? Chris Tarrant is in on this plot
>to kill you? It sure sounds like a joke to me. When you start to get
>ill, the mind often makes connections that seem logical and lucid to
>you, but do not to the rest of the world. This is one of those connections.
>They are usually known as delusions.
This is the problem, and there doesn't seem to be any way around it.
If a clearly sane person reported this persecution, you might believe
him, but probably you'd tell him to go see a doctor to "verify his
sanity". If someone with the illness of which you could argue these
things to be symptomatic says these things, again, you might believe
him, but it would be unlikely - the easiest route is the one you are
taking in the above paragraph. The only way I can convince you of what
I am saying is by giving precise details of what, when, how - and for
most of that stuff is based solely on memory.
To prove it would require an admission from somebody, or else hard
proof in the shape of physical evidence such as tape recordings.
Of course, I don't have that.
>The idea of a "pattern", and the notion that if anyone could look
>through your eyes they would see the same thing is very indicative of
>the onset of a psychiatric illness. Schizophrenia and manic depression
>have similar symptoms. I'm not trying to be disrespectful here.
>This may be an illness and it can be managed by the use of medication.
>If it _isn't_ treated, it can lead to terrible tragic consequences.
I'm quite aware what the symptoms would be, and that the reality
corresponds to those symptoms.
But if anything, that is an argument which could convince you of
the truth of what I'm saying. If they deliberately set out to
simulate the symptoms of schizophrenia - in other words, if they
know through observation that their target is either suffering
from the illness, or is on the borderline and could be pushed in
with an appropriate stimulus, then they can feel safe in what
they do, since once you are registered as suffering from the
illness, people will assign less credibility to assertions that
persecution is based in reality.
That this can happen, and people collude by silence, is absolutely
horrifying. It is all the more horrifying that it can happen in a
country such as Britain which has no history of repression.
Perhaps its happening in the UK is due to the arrogant assumption
of moral superiority on the part of those in the media and others
involved - we won the last war and we can keep harping on about
German and Japanese war crimes, so we can do whatever we like and
we'll be right, up to and including destroying the lives of our
citizens (as long as we're not caught doing it).
>>That is the level it's at - basically they show they're listening
>>to what you're saying at home, they show they're listening to you
>>listening to them
>
>But why? And why you? Do you realize how much it would cost to keep
>one person under continuous surveillance for five years? Think about
>all the man/hours. Say they _just_ allocated a two man team and a
>supervisor. OK., Supervisor's salary, say, £30,000 a year. Two men,
>£20,000 a year each. But they'd need to work in shifts -- so it would
>be six men at £20,000 (which with on-costs would work out at more like
>£30,000 to the employer.)
>
>So, we're talking £30,000 x 6. £180,000. plus say, £40,000 for the
>supervisor. £220,000. Then you've got the hardware involved. And
>any transcription that needs doing. You don't think the 'Big Boss'
>would listen to hours and hours of tapes, do you.
>
>So, all in all, you couldn't actually do the job for much less than
>a quarter million a year. Over five years. What are you doing that makes
>it worth the while of the state to spend over one and a quarter million
>on you?
Those are pretty much the sort of calculations that went through my
head once I stopped to consider what it must be costing them to
run this little operation.
The partial answer is, there have been periods when the intensity has
been greater, and times when little has happened. In fact, for much
of 1993 and the first half of 1994, very little happened. Although
I don't think that was for reasons of money - if they can tap into
the taxpayer they're not going to be short of resources, are they?
The more complete answer is in the enormity of what they're doing.
When countries kill their own people, as a rule, they get found
out and all hell breaks loose. This isn't some para shooting
Irish teenagers in the back. This is something which permeates
English society, which they are ALL responsible for, and which
they cannot escape responsibility for.
Relative to the cost to British pride of seeing their country
humiliated for the persecution of their own defenceless citizens,
isn't is worth the cost of four or five people to try to bring
things to a close in the manner they would wish? To the
government a million or two is quite honestly nothing - if they
can convince themselves of the necessity of what they're doing,
money is not going to be the limiting factor.
>>What possible reason? I guess because they think it's amusing to do
>>so.
>
>What? Spend a quarter mil. a year to amuse themselves? And why not
>change every now and again? Why keep watching you? (Unless you _are_
>doing something, and I don't think you are, though you may have some
>deep, dark secret in your past.)
See the above.
=============================================================
>>I'm going to try to rationalise what you're telling us. I can think of three
>>possible explanations for what you are experiencing.
>>Another possibility is that you are developing some kind of paranoia. There's
>>no stigma attached to this; we're all paranoid to some extent, although
>>perhaps not to the extent that a doctor would call us paranoid. I think
>>paranoia is quite a straightforward explanation here - you really do believe
>>that all these things are aimed at you; you see people everywhere trying to
>>get at you. Logic suggests that this cannot really be the case.
>I think the evidence leans towards this explanation myself. Why not
>try soc.support.depression and see what some of the people there have
>to say about this? Just to get some more perspective on your perspective,
>so to speak?
Sure, it "leans" towards it. But please at least admit there is a
POSSIBILITY of it being very real. And once you've done that, can
you come up with some thoughts on methods of proof? I may be missing something
in my assessment - there may be a way of proving it, in the face of non-
cooperation from the "players".
4530
--
Posted via a free Usenet account from
http://www.teranews.com


title: Codici a barre

author: Guidone

text:
Buongiorno.
Vorrei poter utilizzare un lettore di codici a barre per inserire in una
casella di testo una form una stringa con numerosi caratteri numerici. Non
riesco a trovare nulla di utile (quantomeno dove ho cercato...).
Qualcuno mi puņ fornire aiuto ?
Grazie in anticipo.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Codici a barre

text:
Correggo l'errore, scusate.
Buongiorno.
Vorrei poter utilizzare un lettore di codici a barre per inserire in una
casella di testo DI una form una stringa con numerosi caratteri numerici.



title: Codici a barre

author: Karl Donaubauer

text:
Guidone wrote:
> Vorrei poter utilizzare un lettore di codici a barre per inserire in
> una casella di testo una form una stringa con numerosi caratteri
> numerici. Non riesco a trovare nulla di utile (quantomeno dove ho
> cercato...).
Non si sa dove hai cercato. Forse non qui:
Codici a barre
www.donkarl.com/it?FAQ8.3
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Codici a barre

text:
Karl Donaubauer ha scritto:
> Guidone wrote:
> > Vorrei poter utilizzare un lettore di codici a barre per inserire in
> > una casella di testo una form una stringa con numerosi caratteri
> > numerici. Non riesco a trovare nulla di utile (quantomeno dove ho
> > cercato...).
> Non si sa dove hai cercato. Forse non qui:
> Codici a barre
>
www.donkarl.com/it?FAQ8.3
Grazie per il suggerimento. Segnalo comunque che il link al sito
http://edvmix3.ub.tu-berlin.de/~skalweit/software/barcode/index.html
non funziona (per lo meno in questo momento: 404 not found).



title: Codici a barre

text:
Guidone wrote:
> Karl Donaubauer ha scritto:
> ...
>> Codici a barre
>>
www.donkarl.com/it?FAQ8.3
>
> Grazie per il suggerimento. Segnalo comunque che il link al sito
>
http://edvmix3.ub.tu-berlin.de/~skalweit/software/barcode/index.html
> non funziona (per lo meno in questo momento: 404 not found).
Grazie. Il link era di una università (tu-berlin).
Sembra che l'autore (Dirk Skalweit) abbia finito le studie. ;-)



title: Invio messaggio con FILE ALLEGATO da VBA

author: Luciano

text:
Un saluto al NG.
C'è qualcuno che mi suggerisce la possibilità
di allegare un file ad una e-mail tramite codice VBA ?
Grazie per le eventuali risposte.  - Luciano


title: Menù di sistema personalizzati in Runtime

author: Ewebb - Fabio Ortile

text:
File-Modifica-Inserisci... ecc...
E' possibile in una applicazione distribuita con il RunTime togliere i menu
di sistema e personalizzarli a proprio piacimento?
Questo per aprire le proprie maschere, ecc... senza dover essere troppo
legati.
Grazie


author: vuLCan Karayan

text:
> E' possibile in una applicazione distribuita con il RunTime togliere i
menu
> di sistema e personalizzarli a proprio piacimento?
Certo.
Seleziona di non visualizzarli e imposta i tuoi come predefiniti...
Ciao.


title: grafico

author: steafno cicognani

text:
ai guru di access
anche una risposta negativa andrebbe bene..
ho una funzione in una query che mi calcola dei valori
a = (b+d)/c
 ora č possibile poter avere nel grafico pensando costanti b e d
valori di un record una proiezione di "a" al variare di c?
grazie a chi mi risponderŕ


title: grafico

author: Roberto da casa

text:
"steafno cicognani" <
stefanoc...@infinito.it
> ha scritto nel messaggio
news:4a7641de.0307...@posting.google.com...
> ai guru di access
>
> anche una risposta negativa andrebbe bene..
>
> ho una funzione in una query che mi calcola dei valori
> a = (b+d)/c
>  ora è possibile poter avere nel grafico pensando costanti b e d
> valori di un record una proiezione di "a" al variare di c?
>
> grazie a chi mi risponderà
Il grafico si limita a rappresentare graficamente una serie di valori
contenuti in una tabella o in una query, ma non mi risulta che faccia
proprio la proiezione dei dati in esse contenuti.
Creati tu, tramite codice VBA, una tabella temporanea nei cui record i
valori del campo "a" varia al variare del campo "c", quindi usa tale tabella
per determinare l'origine riga del grafico.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: grafico

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message news:<TWRMa.142938$
lK4.3...@twister1.libero.it
>...
> "steafno cicognani" <
stefanoc...@infinito.it
> ha scritto nel messaggio
> news:4a7641de.0307...@posting.google.com...
> > ai guru di access
> >
> > anche una risposta negativa andrebbe bene..
> >
> > ho una funzione in una query che mi calcola dei valori
> > a = (b+d)/c
> >  ora è possibile poter avere nel grafico pensando costanti b e d
> > valori di un record una proiezione di "a" al variare di c?
> >
> > grazie a chi mi risponderà
>
> Il grafico si limita a rappresentare graficamente una serie di valori
> contenuti in una tabella o in una query, ma non mi risulta che faccia
> proprio la proiezione dei dati in esse contenuti.
> Creati tu, tramite codice VBA, una tabella temporanea nei cui record i
> valori del campo "a" varia al variare del campo "c", quindi usa tale tabella
> per determinare l'origine riga del grafico.
Grazie per le delucidazioni ...
ora mi indirizzo in questa direzione
stefano


title: access in tilt AIUTO!!!

text:
Ciao a tutti
Vorrei un consiglio urgente per ripristinare access dell'ufficio dove
lavoro.
Ho windows nt 4.0 e access 97.
All'improvviso non si apre più access. Quando lancio il programma (non
un'applicazione) mi da errore.
Ho provato a disistallarlo e a reistallarlo ma alla fine dell'installazione
mi dice: "impossibile creare SYSTEM.MDW attivare l'amministratore gruppi di
lavoro". Provo poi a creare system.mdw con wrkgadm.exe ma dice "errore
durante il cambiamento del database del gruppo di lavoro".
Che cosa è successo? Come si risolve?
Marco


title: utilizzare funzione con parametri in query

author: ciroteo

text:
Ciao a tutti, attraverso una gogolata sui post precedenti ho trovato un
paio di funzioni relative al calcolo della mediana.
Ecco io non ho mai usato delle funzioni nelle query, e siccome non mi
funzionano (mi viene chiesto il parametro della tabella di origine)
volevo capire il funzionamento delle funzioni all'interno delle query,
o viceversa attraverso i controlli calcolati.
posto la funzione giusto per esaustività del discorso:
Public Function fctnMedian(strTable As String, strField As String) As
Variant
'Code sample from Accessory
http://www22.brinkster.com/accessory
    Dim dbs As DAO.Database, rst As DAO.Recordset, booEven As Boolean
'You must add a reference to the DAO Object Library too
    Set dbs = DBEngine(0)(0)
    'Set rst = dbs.OpenRecordset("SELECT * FROM " & strTable & " ORDER
BY " & strField)
    Set rst = dbs.OpenRecordset("SELECT * FROM Risposta1 ORDER BY " &
strField)
    If rst.EOF = False Then
        rst.MoveLast
        booEven = (rst.RecordCount Mod 2 = 0) 'Is there an even number
of records in the recordset?
        rst.PercentPosition = 50 'Rounds down if there is an even
number of records...
        fctnMedian = rst.Fields(strField)
        If booEven Then
            rst.MoveNext
            fctnMedian = (fctnMedian + rst.Fields(strField)) / 2 '...so
take the average of the this and the next value up
        End If
    End If
    rst.Close
    Set rst = Nothing
    Set dbs = Nothing
End Function
Se inserisco in una query : SELECT fctnMedian([risposta1],[risposta])
AS Espr1
FROM Risposta1;
mi chiede il parametro risposta1 (che è il nome della query)


text:
ciroteo ha scritto:

che ahimè conteneva valori pari a zero e mi restituiva errore ...
sembra funzionare bene su valori > di zero.


author: Alessandro Baraldi

text:
ciroteo ha scritto:
[CUT]
> Se inserisco in una query : SELECT fctnMedian([risposta1],[risposta])
> AS Espr1
> FROM Risposta1;
> mi chiede il parametro risposta1 (che è il nome della query)
Passato così non è il nome di una Query che dovrebbe essere un
parametro fisso di tipo stringa, ma un riferimento ad un campo, che
ovviamente non trova:
Prova così, sperando che [risposta] sia un campo della Query...!
SELECT fctnMedian("risposta1";[risposta]) AS Espr1
FROM Risposta1;
Ho un dubbio sull'uso del ";" al posto della ","......
@Alex


author: giorgio rancati

text:
"ciroteo" <
matteo...@gmail.com
> ha scritto nel messaggio
news:1158752649.5...@k70g2000cwa.googlegroups.com...
>Ciao a tutti, attraverso una gogolata sui post precedenti ho trovato un
>paio di funzioni relative al calcolo della mediana.
>Ecco io non ho mai usato delle funzioni nelle query, e siccome non mi
>funzionano (mi viene chiesto il parametro della tabella di origine)
>volevo capire il funzionamento delle funzioni all'interno delle query,
>o viceversa attraverso i controlli calcolati.
>posto la funzione giusto per esaustività del discorso:
>Public Function fctnMedian(strTable As String, strField As String) As
>Variant
[CUT]
>Se inserisco in una query : SELECT fctnMedian([risposta1],[risposta])
>AS Espr1
>FROM Risposta1;
>mi chiede il parametro risposta1 (che è il nome della query)
Ciao Ciroteo,
dal codice della funzione si può comprendere che i parametri di ingresso
sono il nome della tabella/Query e il nome di un campo di essa.
quindi anche se ha poco senso la sintassi è questa.
----
SELECT fctnMedian("risposta1","risposta") AS Espr1
FROM Risposta1
----
ha poco senso perchè questa query rende tante righe quante sono quelle di
Resposta1 e tutte con lo stesso valore.
Ciao
--
Giorgio Rancati
[Office Access MVP]


text:
giorgio rancati ha scritto:

infatti questo è il problema che sto affrontando adesso.
se vuoi sorprendermi con una fantastica funzione mediana sai che sono
pronto a tutto!!!
:-)


text:
"ciroteo" <
matteo...@gmail.com
> ha scritto nel messaggio
news:1158763639....@d34g2000cwd.googlegroups.com...
>infatti questo è il problema che sto affrontando adesso.
>se vuoi sorprendermi con una fantastica funzione mediana sai che sono
>pronto a tutto!!!
>:-)
ciao Ciroteo,
la funzione mi sembra Ok, è il modo in cui tu la utilizzi che non ha senso.
Dovresti prima chiarire cosa hai bisogno con un esempio di dati a
disposizione e il risultato che vuoi ottenere.
:-)



text:
giorgio rancati ha scritto:

Scusa Giorgio, non avevo visto la risposta.
Sto utilizzando Google ed ho poca dimestichezza.
La funzione ora funziona, solo che resta il problema di come
generalizzarla, (vedi nuovo post sull'argomento) Purtroppo essendo
stata creata con due parametri rischio di non poterla utilizzare sempre
in tutte le query o report che voglio.
Grazie intanto x l'attenzione.


title: Nomi sezioni report

author: Sandrobi

text:
Sottopongo alla vostra attenzione solo una curiosit�....
Ho notato che i nomi predefiniti delle sezioni nei report a volte contengono
la parola Sezione e a volte no. Ad esempio il Nome Elemento per
l'intestazione di pagina a volte � "SezioneIntestazionePagina" e a volte
"IntestazionePagina".
C'� un motivo? E si creano problemi se assegno nomi diversi a questi
elementi, tipo Pippo o Pluto, a parte il fatto che non � pi� evidente a cosa
si riferiscono?
--
Ciao, Sandrobi


title: date gg/mm/aaaa in istruzione sql

author: Nao

text:
ciao :)
altro problema sempre con il docmd.runsql "query..".
ho una tabella con un campo data
se faccio "insert into tabella(data) values(#04/02/2005#)"
e poi apro la tabella la data e' diventata 02/04/2005
e' un problema di formato non italiano immagino..ma come lo risolvo? vi
risulta anche a voi sto problema?
grazie ciaoo


title: date gg/mm/aaaa in istruzione sql

author: ALESSANDRO Baraldi

text:
"Nao" <
na...@sdasdas.com
> ha scritto nel messaggio
news:u7SMd.830541$35.31...@news4.tin.it...

Formato ISO
Format(TuoCampoData, "\#yyyy\-mm\-dd\#")
Oppure
Format(TuoCampoData, "mm/dd/yyyy")
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: date gg/mm/aaaa in istruzione sql

text:
ALESSANDRO Baraldi wrote:
>
> Formato ISO
> Format(TuoCampoData, "\#yyyy\-mm\-dd\#")
>
> Oppure
> Format(TuoCampoData, "mm/dd/yyyy")
>
ok ho risolto...ma non capisco una cosa: Format(TuoCampoData,
"mm/dd/yyyy") dovrebbe formattarmi la data in mese/giorno/anno
giusto?..come mai invece poi nella tabella me la ritrovo
giorno/mese/anno (come la voglio io ovviamente) ?


title: VBA Code Print a colori

author: OneEDP

text:
Esite un VBA Code Print a colori freeware?
Grazie


title: Application.FileSearch ...qualcuno ha risolto questo rompicapo?

text:
"Sergio MAZZA" <
sergioma...@tiscali.it
> wrote in message
<news:clo27o$d7h$
1...@canarie.caspur.it
>...
> Prova con:
> - aggiungere .NewSearch ad ogni nuova ricerca;
> - mappare la risorsa (tasto destro su "Risorse di rete" - Connetti unità
di
> rete) invece di utilizzare il percorso di rete;
> Es.(dopo aver mappato la risorsa di rete come z:\)
> Set fs = Application.FileSearch
> With fs
>     .NewSearch '<-- nuova ricerca
>    .LookIn = "Z:\" '<-- risorsa mappata
>     .SearchSubFolders = True '<-- se vuoi una ricerca in tutte le
> sottocartelle
>    .FileName = "cmd*.*"
>    If .Execute > 0 Then
>        MsgBox "There were " & .FoundFiles.Count & _
>        " file(s) found."
>        For i = 1 To .FoundFiles.Count
>            MsgBox .FoundFiles(i)
>        Next i
>    Else
>        MsgBox "There were no files found."
>    End If
> End With
> Ciao.
I files non vanno cercati sulla risorsa di rete, ma su disco locale.
Il percorso di rete era solo per vedere il funzionamento della
routine. Quindi non mi serve mappare la risorsa..
Inoltre le proprietà NewSearch e SearcSubFolders le avevo già
impostate..
Ripeto: in rete funziona tutto a meraviglia, in locale.. nisba!!


text:
"Claudio70" <
mere...@libero.it
> wrote in message
news:42a6a97e$0$17083$5fc...@news.tiscali.it...

Scusate mi sono scordato di dire che utilizzo windows 2000 server!!!
bye


author: Sergio MAZZA

text:
"Claudio70" <
mere...@libero.it
> ha scritto nel messaggio news:42a6a97e$0$17083$5fc...@news.tiscali.it...
> I files non vanno cercati sulla risorsa di rete, ma su disco locale.
> Il percorso di rete era solo per vedere il funzionamento della
> routine. Quindi non mi serve mappare la risorsa..
> Inoltre le proprietą NewSearch e SearcSubFolders le avevo gią
> impostate..
> Ripeto: in rete funziona tutto a meraviglia, in locale.. nisba!!
>
Ho cercato i messaggi precedenti ma non li ho trovati e non riesco a ricordare tutto il problema; ma che tipo di errore ti
restituisce?
Ciao.
--
Sergio MAZZA


title: domande....

author: nadime

text:
ciao a tutti sono nuovo del ng e vorrei porvi dei quesiti dato che sono
ancorra inesperto di access
premetto dicendo che ho fatto un db con più tabelle, query, maschere e
report.
tutto sommato è riuscito benino ma non riesco a risolvere questi problemi.
1. con il comando ingrandisci e popup ho fatto in modo che le maschere
all'apertura riempiano lo schermo, però questo mi comporta che quando vado a
fare una ricerca su più tabelle inserendo tramite maschera, ottenuto il
risultato tramite query, quando mando l'output dei risultati su excel,
essendo la maschera in popup non mi fa apparire excel. per visualizzare il
file.xls allora devo chiudere il db e quindi controllare.
2. con un pulsante di comando devo stampare un report che potrebbe anche
essere di 100 pagg. dato che a me possono servire ad esempio solamente 2
pagg. vorrei far comparire la finestra per selezionare le opzioni si stampa,
ma inutile dirlo non ci riesco anche perchè non conosco il comando adeguato.
Detto questo vi ringrazio per quanto potrete aiutarmi e spero talvolta di
poter anche ricambiare l'aiuto.


title: domande....

text:
"nadime" <
nap...@hotmail.com
> wrote in message
news:9n0ej8$182k$1...@newsreader1.mclink.it...

1)Puoi non utilizzare il Popup, ma se proprio proprio, prima di lanciare
Excel
da codice modifichi la proprietà Popup=False, alla chiusura di Excel la
Ripristini
Non mi piace proprio ma....
2)Nei menù dell'anteprima di stampa puoi inserire Imposta Pagina (Che fa
esattamente quello che cerchi) seguendo Visualizza-->Barra degli
strumenti-->
Personalizza-->Comandi-->File-->Imposta Pagina, trascina sulla barra
Report.
Alex.
--
Posted from  [62.98.24.152]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: domande....

author: napome

text: grazie per i preziosi suggerimenti, a buon rendere


title: backup ....

author: Francesco

text:
Che strategia utilizzate per fare il backup del DB ?
- Copiate solo le tabelle ? O tutto il db ?
- Su che unità ? CD riscrivibile ? Altro Hard-disk ? Unità ZIP ? ......
E sopratutto come la mettete in pratica ?
GRAZIE
FrA


title: backup ....

author: Emyr

text:
On Sun, 10 Feb 2002 16:26:21 GMT, "Francesco" <
web...@wappi.com
>
wrote:

dipende dal grado di sicurezza voluto e dal tipo di hardware posseduto
si copiano solo i dati...
Saluti.
Emanuele.


title: backup ....

text:
Ciao ! Mi daresti qualche dritta su come copiare i dati ?
Emyr <
fan...@lavoro.com
> wrote in message
439d6u474um2o3fu1...@4ax.com...



title: backup ....

author: Antonio Biso

text:
Francesco <
web...@wappi.com
> wrote in message
4XC98.52258$5M4.1...@twister2.libero.it...
> Ciao ! Mi daresti qualche dritta su come copiare i dati ?
Cominciamo prima di tutto con la dritta che si scrive DOPO il quoting...
Antonio


title: backup ....

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
e%L98.56244$nI1.1...@twister1.libero.it...

A parte questi dettagli sull'impostazione del msg al NG ,  mi potete dare
qualche suggerimento e/o consiglio (magari fare anche qualche esempio) ?
Grazie. Ciauz!


title: backup ....

text:
Francesco <
web...@wappi.com
> wrote in message
MGW98.2286$tv6....@twister1.libero.it...
> Antonio Biso <
ch...@etruria.net
> wrote in message
> e%L98.56244$nI1.1...@twister1.libero.it...
> > Francesco <
web...@wappi.com
> wrote in message
> > 4XC98.52258$5M4.1...@twister2.libero.it...
> > > Ciao ! Mi daresti qualche dritta su come copiare i dati ?
> >
> > Cominciamo prima di tutto con la dritta che si scrive DOPO il quoting...
> >
> > Antonio
> >
> >
>
> A parte questi dettagli sull'impostazione del msg al NG ,  mi potete dare
Per te saranno dettagli!
> qualche suggerimento e/o consiglio (magari fare anche qualche esempio) ?
Non ho letto il primo messaggio (i dettagli non mi garbavano); prova a
ripostare il tutto!
Antonio


title: backup ....

text:
Antonio Biso <
ch...@etruria.net
> wrote in message
EP8a8.5428$Jo.1...@twister2.libero.it...

Ok riposto il msg cercando di stare attento ai dettagli ! Grazie cmq .....


title: backup ....

text:
On Sun, 10 Feb 2002 22:59:12 GMT, "Francesco" <
web...@wappi.com
>
wrote:

supponendo che gli archivi siano su un file separato per comodità di
gestione...
Dim strpath As String
strpath = Application.CurrentProject.Path & "\Dati" &
Application.CurrentProject.name
On Error GoTo Err_fine_Click
If MsgBox("Esco dal Programma", vbYesNo, "Fine") = vbYes Then
    FileCopy strpath, left(strpath, Len(strpath) - 4) & " " &
Weekday(Date) & ".mde"
    DoCmd.Quit
End If
Saluti.
Emanuele.


title: Aggiornare una listbox durante la digitazione del filtro.

author: PIERRE

text:
Salve
Ho utilizzato il codice VBA pubblicato sul vostro "Sito Comune" dal titolo
come da oggetto
(sezione Forms di Emanuele Cesena, Lorenzo Coronati), ma sono incappato per
caso in
un'errore causato dalla presenza di un accento all'interno del campo usato
per la ricerca,
p.es
.: CITTA', MUGGIO' ecc. danno l'errore di run-time 3077 operatore
mancante
(i dati sono scritti tutti in maiuscolo poichè estratti da un'altro
programma con tale formato).
Si può risolvere senza modificare i dati di origine?
Grazie
P.s. sono un principiante


author: Alessandro Cara

text:

pregasi raddoppiare l'apice i.e.
x=replace(valorecontrollo,"'","''")
select * from tabella where campocitta = x
P.S. non conosco quella routine e quindi non posso essere piu' preciso
--
a.cara
Togli qualcosa dall'email


author: Pierre

text:
> > La presenza di un accento all'interno del campo usato per la ricerca,
> >
p.es
.: CITTA', MUGGIO' ecc. danno l'errore di run-time 3077 operatore
> > mancante
> > (i dati sono scritti tutti in maiuscolo poichè estratti da un'altro
> > programma con tale formato).
> >
> > Si può risolvere senza modificare i dati di origine?
> >
> > Grazie
> >
> > P.s. sono un principiante
>
> pregasi raddoppiare l'apice i.e.
>
> x=replace(valorecontrollo,"'","''")
> select * from tabella where campocitta = x
> P.S. non conosco quella routine e quindi non posso essere piu' preciso
>
> --
> a.cara
> Togli qualcosa dall'email
Il codice che utilizzo per la ricerca del record è il seguente
Private Sub MyListBox_AfterUpdate()
' Find the record that matches the control.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[BREVE] = '" & Me![MyListBox] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Selezionando nella MyListBox il record contenente l'accento
incontro l'errore già descritto.
Saluti


text:
Pierre wrote:
>
> > > La presenza di un accento all'interno del campo usato per la ricerca,
> > >
p.es
.: CITTA', MUGGIO' ecc. danno l'errore di run-time 3077 operatore
> > > mancante
> > > (i dati sono scritti tutti in maiuscolo poichè estratti da un'altro
> > > programma con tale formato).
> > >
> > > Si può risolvere senza modificare i dati di origine?
> > >
> > > Grazie
> > >
> > > P.s. sono un principiante
> >
> > pregasi raddoppiare l'apice i.e.
> >
> > x=replace(valorecontrollo,"'","''")
> > select * from tabella where campocitta = x
> > P.S. non conosco quella routine e quindi non posso essere piu' preciso
> >
> > --
> > a.cara
> > Togli qualcosa dall'email
>
> Il codice che utilizzo per la ricerca del record è il seguente
>
> Private Sub MyListBox_AfterUpdate()
> ' Find the record that matches the control.
>
>     Dim rs As Object
>
>     Set rs = Me.Recordset.Clone
>     rs.FindFirst "[BREVE] = '" & Me![MyListBox] & "'"
>     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
>
> End Sub
x= replace(Me![MyListBox],"'","''")
 rs.FindFirst "[BREVE] = '" & x & "'"
cosi' dovrebbe andare
parto dal presupposto che usi una versione > di a97.
Se non e' cosi' la funzione replace purtroppo non c'e'
anche questa dovrebbe andare bene
rs.FindFirst "[BREVE] = " & chr(34) & Me![MyListBox] & chr(34)
oppure questa
rs.FindFirst "[BREVE] = " & """  & Me![MyListBox] & """



text:
> > Il codice che utilizzo per la ricerca del record è il seguente
> >
> > Private Sub MyListBox_AfterUpdate()
> > ' Find the record that matches the control.
> >
> >     Dim rs As Object
> >
> >     Set rs = Me.Recordset.Clone
> >     rs.FindFirst "[BREVE] = '" & Me![MyListBox] & "'"
> >     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> >
> > End Sub
> x= replace(Me![MyListBox],"'","''")
>  rs.FindFirst "[BREVE] = '" & x & "'"
> cosi' dovrebbe andare
> parto dal presupposto che usi una versione > di a97.
> Se non e' cosi' la funzione replace purtroppo non c'e'
>
> anche questa dovrebbe andare bene
> rs.FindFirst "[BREVE] = " & chr(34) & Me![MyListBox] & chr(34)
> oppure questa
> rs.FindFirst "[BREVE] = " & """  & Me![MyListBox] & """
> --
> a.cara
> Togli qualcosa dall'email
Ho utilizzato la seconda soluzione, idonea per A02:
rs.FindFirst "[BREVE] = " & chr(34) & Me![MyListBox] & chr(34)
Problema risolto!
Grazie infinite
--
p.albiero


title: espelli pkzip acc/97

author: tommy

text:
Su esplora risorse se faccio click con il tasto sinistro del mouse sul
cd
 rom e poi destro appare il menu, tra le opzioni esiste una voce espelli.
 se faccio click si apre lo sportellino del cd rom.
anche se faccio sulla lettera del pkzip il disco esce dal lettore (se
 inserito). bene.
 Come faccio da una maschera di access con un pulsante ad espellere un
disco
caricato nel pkzip?
 La lettera del drive pkzip è la E.
Geronimo mi ha detto:
 Per il CDROM usi MCISendString della libreria winmm.dll
per altre periferiche di storage usi la chiamata alla funzione del Kernel
DeviceIoControl.
Come devo fare?
In che senso uso la libreria.?
In che senso la funzione del kernel


title: Oggetto OLE - Access avanzato

author: Landers (P)

text:
Qualcuno sa dirmi dove vengono temporaneamente memorizzati gli oggetti OLE
di un campo OLE?
Spiego perchč:
Ho creato una tabella con un campo OLE, nel quale devo inserire un'equazione
con Equation editor.
Lo faccio in questo modo, posizionandomi sul campo OLE:
- premo "TastoDestro" e scelgo "Inserisci oggetto"
- nella maschera che appare scelgo "Documento di Microsoft Word".
- a questo punto si apre Word, e da lě aziono l'equation editor e scrivo la
mia formula.
- Per uscire, chiudo Word e nel campo della tabella trovo scritto "Documento
di Microsoft word".
Fin qui tutto bene.
Infatti funziona tutto perfettamente, anche la stampa del report riporta
correttamente la formula.
Ho perň questi problemi da risolvere:
1) Se sposto il Database su un altro pc, gli oggetti OLE non funzionano
(preciso che l'oggetto OLE non č collegato, ma incorporato).
Specifico Nel campo OLE della tabella installata sul secondo pc, leggo
ancora il testo "Documento di Microsoft Word", ma se faccio doppio click sul
campo, a volte si apre word ma le formule non ci sono piů, e a volte mi da
errore di comunicazione con server OLE; inoltre se stampo il report oltre
che metterci un secolo ad aprirsi, non stampa le formule.
DOMANDA: devo copiare sul secondo PC anche qualche tabella "temp"? (Dove
vengono messe le formule: nel DB access o in qualche documento word?).
2) Nel PC di origine (dove tutto funziona...) l'oggetto OLE ha questo
inconveniente: non č
ridimensionabile in stampa, e di conseguenza nasce il problema di formattare
correttamente la pagina in funzione dell'altezza dell'oggetto OLE (ad
esempio, se le formule stanno su una riga, va tutto bene, se invece constano
di 4 righe, la formula viene cmq correttamente scritta, ma si sovrappone al
testo del record successivo (proprio perchč non si ridimensiona il controllo
OLE in base al suo contenuto, come invece succede per un normale controlo di
testo che fa "slittare" piů sotto il testo del record successivo).
DOMANDA: esiste un modo per ovviare a questo inconveniente?
3) sempre sull'oggetto OLE di cui sopra, che codice devo scrivere nella
routine di un tasto che ha la seguente etichetta: "Inserisci formula"?
(cioč, vorrei che il tasto aprisse Word come nuovo oggetto OLE ( meglio,
direttamente equation editor se possibile)
Dei tre problemi, mi urge di piů il primo.
Uso Access 2000 su S.O. XP home edition.
Scusate la lungaggine del msg, ma volevo essere il piů chiaro possibile.
Grazie.
Landers.


title: Gestione errori

author: Luc --

text:
In una maschera ho inserito un pulsante che da codice apre due query di
accodamento.
Sto cercando di intercettare l'errore nel caso ci sia una violazione di
chiave ma non riesco nonostante
On error goto Violazione
a far deviare il tutto su msgbox " bla bla bla" ma mi compare sempre una
maschera con
"Impossibile accodare tutti i record nella query di accodamento. ecc. ecc.
si/no/?"
E questo mi succede due volte (una per ogni docmd.query)
Ho provato a traformare Docmd.query in Docmd.RunSQL
Risultato: Mi compare solo una volta la finestra di Access e poi, finalmente
mi va sulla mia MSGBOX.
Come posso evitare che compaia?
Grazie
                 Luciano
_________________________________________________________________
Scarica GRATUITAMENTE MSN Explorer all'indirizzo
http://explorer.msn.it/intl.asp
--
Posted from [195.62.170.252] by way of
f73.law3.hotmail.com
 [209.185.241.73]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Gestione errori

author: Arturo

text:
> Come posso evitare che compaia?
Secondo me la risolvi se all'inizio del codice metti:
DoCmd.SetWarnings False
Ciao
Arturo


title: Gestione errori

text:
Perň facendo cosě non vedo neanche il mio messaggio!!
_________________________________________________________________
Scarica GRATUITAMENTE MSN Explorer all'indirizzo
http://explorer.msn.it/intl.asp
--
Posted from [195.62.170.252] by way of
f132.law3.hotmail.com
 [209.185.241.132]



title: MALEDETTO ACCESS 2000

author: PippoCalippo

text:
Qualcuno sa indicarmi come risolvere questo problema?
Ho Access 2000 e mi si apre con questa bella scritta "Impossibile trovare il
file, il file non esiste o il percorso non è corretto......................"
Io mi chiedo: "Ma chi cazzo ti ha chiesto di aprire un file?" Apriti e basta
Vabbè, provo ad aprire un file (creato con il 97), me lo converte (tutto Ok)
e lo apre in una improbabile modalità che mi impedisce di fare la benchè
minima modifica. Le opzioni visualizzate nella barra degli strumenti (quella
che normalmente ha File, modifica, Visualizza, formato ecc......) sono tre,
File, finestra e ?
Dati questi problemi ho pensato, chissenefrega di usare il 2000, torno al
mio 97!
I M P O S S I B I L E !!!!!!!!!
Non è possibile disinstallare office 2000, mi si blocca la rimozione.
Qualcuno sa spiegarmi il perchè e/o cosa devo fare?
CIAO


title: Query a campi incrociati

author: ftrek

text:
Ragzzi ho un problema con una query di cui all'oggetto.
Premetto che normalmente con le altre query per inserire dei criteri di
ricerca non faccio altro che mettere nel campo "criteri" il riferimento al
controllo dell maschera di ricerca e cosě ottengo la definizione dell query
che mi interessa.
Il problema č che nel fare la stessa cosa con una query a campi incrociati
mi esce un errore che il modulo Jet di Access non riconosce il controllo.
Chi mi sa dare una soluzione???
Grazei in anticipo
Francesco


title: Query a campi incrociati

author: Roberto da casa

text:
"ftrek" <
ftrek...@supereva.it
> ha scritto nel messaggio
news:c4e3b3$2gri0e$1...@ID-112569.news.uni-berlin.de...
> Ragzzi ho un problema con una query di cui all'oggetto.
> Premetto che normalmente con le altre query per inserire dei criteri di
> ricerca non faccio altro che mettere nel campo "criteri" il riferimento al
> controllo dell maschera di ricerca e così ottengo la definizione dell
query
> che mi interessa.
> Il problema è che nel fare la stessa cosa con una query a campi incrociati
> mi esce un errore che il modulo Jet di Access non riconosce il controllo.
> Chi mi sa dare una soluzione???
>
> Grazei in anticipo
> Francesco
In una query a campi incrociati parametrica è OBBLIGATORIO (per le altre
query è opzionale) esplicitare il tipo dati di tutti i parametri. A tale
scopo, apri la griglia di struttura della query e dal menu Query seleziona
il comando Parametri... ; nella fiinestra di dialogo che si aprirà indica il
tipo dati di tutti i parametri. Per maggiori dettagli leggi sull'help
l'argomento Dichiarazione PARAMETERS.
Se la query a campi incrociati fosse basata su una query di selezione
parametrica, il tipo dati dei parametri andrebbe naturalmento esplicitato
per la query di selezione parametrica e non per la query a campi incrociati.
Resta il fatto che sarebbe bene esplicitare sempre il tipo dati dei
parametri: per maggiori dettagli leggi sull'help l'argomento Ottimizzazione
delle prestazioni delle query.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Come avere la classica griglia dati da interrogazione sql?

author: RobertoA

text:
Come ottenere in Access lo stesso effetto delle griglie editabili
disponibili in altri ambienti di sviluppo, ad esempio la TrueGrid del
Visual Basic?
Bastava impostare una stringa sql e la griglia si popolava dei campi
restituiti dal db, magari permettendo la modifica dei campi,
l'ordinamento e la selezione sulle varie colonne?
Form continua? Foglio dati?
Vorrei realizzare una schermata che permetta di lanciare delle
interrogazioni sql al db sottostante e, se sono delle select,
visualizzarne il risultato
Un po' quello che faceva il Visdata, l'esempio di codice fornito col
Visual Basic dalla versione 3 in poi


author: BFS

text:

se non ti serve che i risultati siano editabili io ho una form
recuperata non so da dove che fa quanto dici...scrivi una strinca sql e
lui in una listview ti mosra i risultati

https://postimg.org/image/jdhmpuf5p/

se ti basta te la mando in mail
ciao


text:

Si dall'immagine credo sia quello che vorrei ottenere
Metti una stringa sql, clicchi e sul db viene eseguita l'operazione inserita
Se select restituira' righe, se update/insert/delete non si vedra'
niente (il numero righe modificate/inserite/eliminate)
Come fare per darci un'occhiata?


text:

se la mail è valida te lo mando li

ciao


text:

Si e' buona

AMOROSIK at TISCALINET puntin IT


author: pfm

text:

potresti mandarla metterla disponibile? potrebbe essere utile!
GRAZIE


text:

pfmarro  gmail     com


text:

Si, ho visto anche la richiesta precedente
Solo che non essendo 'roba mia' aspettavo che BFS ti facesse sapere
Se ha spedito a me non credo abbia problemi anche con altri
Magari non vede il ng, prova a scrivergli direttamente


text:

grazie ma il suo indirizzo non lo vedo


text:

Sull'intestazione suoi messaggi c'e' un     bfs at nospamtin it
Credo che eliminando il nospam rimanga l'indirizzo corretto
Come confermato dal terzo messaggio che si vede qua

https://groups.google.com/forum/#!topic/it.comp.appl.access/wTmbm8sQz0Y


text:

scusa non avevo visto la tua richiesta
te l'ho mandata in mail
non è un lavoro mio quindi potete condividerlo tranquillamente
ora che ricordo era sul cd di un vecchio libro Programmare Access con
SQL Server della mondadori

ciao


text: Grazie molte!!!


title: cambio colore interruttore su evento keyUp o Keydown

author: Gaetano Di Zanni

text:
Ciao a tutti.
Non riesco ad ottenere il cambio del colore di sfondo di un interruttore a
seconda del suo stato, tasto giu o tasto su.
Trovo solo la proprietą forecolor (sul carattere) peraltro non funzionante.
Mi funziona solo sull'evento Got_Focus (attivato), vorrei che funzionasse
appunto su keydown o keyUp.
Ho Access2000 e Win XP


author: MA

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:4200ff65$0$6320$5fc...@news.tiscali.it...

Devi lavorare con le etichette.
Specialeffect per incassarla o tenerla a raso
backcolor per lo sfondo
forecolor per la caption
fontbold per il grassetto
fontBiso per il grasso
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:ju7Md.239$hd4...@news.edisontel.com...

Ciao MA,
ci provo.
Bella quella del fontBiso.....
ma non conosci me... sono sui 105!
Grazie!!


text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:420106aa$0$32344$5fc...@news.tiscali.it...

Ma non conosci Biso.
Si narra che solo la capoccia sia sui 105...
peccato, tutta quella roba sprecata...
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:gP7Md.246$hd4...@news.edisontel.com...

Sono in buona compagnia dunque!
il fatto č che i miei 105 sono di molto grasso e poco cervello,
penso che per il Biso, che non conosco di persona ma di fama, sia da stimare
il contrario!
Senti MA, mi fai un esempio: come fai a far assumere a una etichetta le
"sembianze" di un interruttore?
Voglio dire su evento click vorrei che mi rimanesse incassata e colorata
fino a quando non clicco su un'altra etichetta appartenente allo stesso
gruppo di opzioni in cui vige l'esclusiva (o una o l'altra o l'altra ancora
(sarebbero 6 etichette che dovrebbero sostituire 6 interruttori appartenenti
allo stesso gruppo) e tieni conto che sull'evento click aggiungo un
record....
Ti ringrazio dell'help.
(ah.. avessi il cervello vostro...)


text:
>> >> > Ciao a tutti.
>> >> > Non riesco ad ottenere il cambio del colore di sfondo di un
>> >> > interruttore
>> > a
>> >> > seconda del suo stato, tasto giu o tasto su.
>> >> > Trovo solo la proprietà forecolor (sul carattere) peraltro non
>> >> > funzionante.
>> >> > Mi funziona solo sull'evento Got_Focus (attivato), vorrei che
>> > funzionasse
>> >> > appunto su keydown o keyUp.
>> >> > Ho Access2000 e Win XP
>> >> >
>> >> Devi lavorare con le etichette.
>> >> Specialeffect per incassarla o tenerla a raso
>> >> backcolor per lo sfondo
>> >> forecolor per la caption
>> >> fontbold per il grassetto
>> >> fontBiso per il grasso
>> >> MAssimiliano
>> >>
>> > Ciao MA,
>> > ci provo.
>> > Bella quella del fontBiso.....
>> > ma non conosci me... sono sui 105!
>> > Grazie!!
>> Ma non conosci Biso.
>> Si narra che solo la capoccia sia sui 105...
>> peccato, tutta quella roba sprecata...
>> MAssimiliano
>>
> Sono in buona compagnia dunque!
> il fatto è che i miei 105 sono di molto grasso e poco cervello,
> penso che per il Biso, che non conosco di persona ma di fama, sia da
> stimare
> il contrario!
Dici???
beh è vero non lo conosci di persona.
> Senti MA, mi fai un esempio: come fai a far assumere a una etichetta le
> "sembianze" di un interruttore?
> Voglio dire su evento click vorrei che mi rimanesse incassata e colorata
> fino a quando non clicco su un'altra etichetta appartenente allo stesso
> gruppo di opzioni in cui vige l'esclusiva (o una o l'altra o l'altra
> ancora
> (sarebbero 6 etichette che dovrebbero sostituire 6 interruttori
> appartenenti
> allo stesso gruppo) e tieni conto che sull'evento click aggiungo un
> record....
> Ti ringrazio dell'help.
> (ah.. avessi il cervello vostro...)
Se vuoi ti posso dare quello di Pablitomf, è usato pochissimo, praticamente
nuovo.
Se vuoi similare il gruppo di opzioni devi tenere una variabile globale che
ti ricorda
quale deve essere quella selezionata.
Oh prendilo con le molle perchè ci sto pensando ora.
Hai un campo in cui stivi l'etichetta che deve rimanere selezionata e quindi
un controllo nascosto "Selezionato"?
Bene,
Metti come valore tag (lo trovi nelle proprietà dei controllli)
ai controlli che interessano "Gruppo"
su click dell'etichette ci metti il nome in selezionato
e call Seleziona
sub Seleziona()
Dim ctl as control
For each ctl in me.controls
    if ctl.tag = "gruppo" then
        if
ctl.name
 = me.selezionato then
            ctl.backcolor =vbred
            ctl.specialeffect = 1
          end if
    end if
next
End sub
MAssimilaino


author: ALESSANDRO Baraldi

text:
"Gaetano Di Zanni" <
gaetano...@tiscali.it
> ha scritto nel messaggio
news:4200ff65$0$6320$5fc...@news.tiscali.it...
> Ciao a tutti.
> Non riesco ad ottenere il cambio del colore di sfondo di un interruttore a
> seconda del suo stato, tasto giu o tasto su.
> Trovo solo la proprietà forecolor (sul carattere) peraltro non
funzionante.
> Mi funziona solo sull'evento Got_Focus (attivato), vorrei che funzionasse
> appunto su keydown o keyUp.
> Ho Access2000 e Win XP
Dai un'occhiata al Demo della sezione [FORMS]
1.31 Generare Menù POPUP Temporanei RUNTIME(UPD)
L'ho Updatato ieri.
Lasciando perdere la sezione dei Menù Popup trovi
in alto l'uso delle Label e delle loro proprietà Grafiche
per Emulare l'effetto MouseOver.
Lo ritengo un buon Demo nel tuo caso in quanto è versatile,
programmabile e ottimizzato per non perdere tempo.
Ovviamente in quel caso l'effetto è diverso dal tuo, ma come
ti ha detto Massimiliano ti basta modificare il valore da assegnare
alla proprietà SpecialEffect, e farlo eseguire su Evento Click
invece che MouseMove.
E' utile l'uso di variabili STATIC e di un'unica Funzione Centrale
per evitare di usare variabili Globali e dover creare codice troppo
dispersivo.
Vedi tu se può aiutarti.
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:3B8Md.270$hd4...@news.edisontel.com...

Grazie MA
mi metto subito al lavoro...
Circa il cervello di Pablitomf.... beh, probabilmente è più nuovo il mio!
Ciao! e grazie


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:420117d6$0$6316$5fc...@news.tiscali.it...

Ecco un altro a cui il cervello fa molti chilometri....
il mio in confronto è sempre in garage!
Grazie Alex!


text:
>> @Alex (Alessandro Baraldi)
>> --------------------------------------------------------------------------
> -
>>
http://www.sitocomune.com/
>>
http://www.mantuanet.it/alessandro.baraldi/
>> --------------------------------------------------------------------------
> -
> Ecco un altro a cui il cervello fa molti chilometri....
Noi quest'espressione la usiamo per dire tutt'altro.
Almeno credo che tu non volessi sindacare sulle virtů
del cervello di Alessandro.
MAssimiliano


text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:oR8Md.281$hd4...@news.edisontel.com...
> >> @Alex (Alessandro Baraldi)
>
>> -------------------------------------------------------------------------
-
> > -
> >>
http://www.sitocomune.com/
> >>
http://www.mantuanet.it/alessandro.baraldi/
>
>> -------------------------------------------------------------------------
-
> > -
> > Ecco un altro a cui il cervello fa molti chilometri....
>
> Noi quest'espressione la usiamo per dire tutt'altro.
> Almeno credo che tu non volessi sindacare sulle virtů
> del cervello di Alessandro.
> MAssimiliano
>
Nella maniera piů assoluta: naturalmente volevo dire che i vostri cervelli,
e quello di Alex ,sono sempre in funzione! e si vede!
Un caloroso saluto, unito al desiderio di conoscervi tutti, magari durante
una pizzata... come dice Pablitomf...
Ciao!!


text:
> -
>> > -
>> > Ecco un altro a cui il cervello fa molti chilometri....
>>
>> Noi quest'espressione la usiamo per dire tutt'altro.
>> Almeno credo che tu non volessi sindacare sulle virtů
>> del cervello di Alessandro.
>> MAssimiliano
>>
> Nella maniera piů assoluta: naturalmente volevo dire che i vostri
> cervelli,
> e quello di Alex ,sono sempre in funzione! e si vede!
> Un caloroso saluto, unito al desiderio di conoscervi tutti, magari durante
> una pizzata... come dice Pablitomf...
> Ciao!!
>
Alessandro, adesso la gira a pizza, ma secondo me voleva dire proprio
quello..
;-P
MAssimiliano


author: Alessandro Baraldi

text:
"MA" <
mas...@massimilianoamendola.it
> wrote in message
news:Y2lMd.394$
hd4...@news.edisontel.com
[CUT]
> Alessandro, adesso la gira a pizza, ma secondo me voleva dire proprio
> quello..
>
> ;-P
> MAssimiliano
Un vero giocoliere...!
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Impaginazione report

author: Cecio

text:
Ciao a tutti!
Ho creato un report con una sezione "classica" costituita da
Intestazione
Corpo
Pie di pagina
che mi crea un elenco di dati del tipo
intestaz
dati1
totali1
intest
dati2
totali2
ecc
Accade che in alcune circostanze i totali vadano nella pagina nuova...
Questo a me non sta bene ma non so come fare per obbligare il programma a
far andar etutto nella pagina successiva.
Mi potete dare un suggerimento?
Grazie!
Ciao


title: Impaginazione report

author: CIDI

text:
"Cecio" <
marco...@virgilio.it
> ha scritto nel messaggio
news:48d3a562$0$40315$4faf...@reader5.news.tin.it...

struttura report: ordinamento e raggruppamento
stampa sezione unita: gruppo intero
Ciao
Daniele


title: Impaginazione report

text:
?
>
> struttura report: ordinamento e raggruppamento
> stampa sezione unita: gruppo intero
>
> Ciao
> Daniele
>
>
Ottimo suggerimento ! Grazie!
Anche se A2007 è leggermente diverso...ma non avevo specificato la
versione... comunque ho risolto grazio al consiglio.
In A07 bisogna entrare nella sezione ord e raggr. (in basso) selezionare il
gruppo che si vuole mantenere unito, premere su "altro" per visualizzare
tutte le opzioni e selezionare l'indicazione: mantieni l'intero gruppo su
una sola pagina. Il gioco è fatto!
Ciao grazie e alla prox!
Guido


title: barcode 2d data matrix

author: anna

text:
Qualcuno di voi ha trovato un activex freeware per stampare (report di
access 2010)
dei barcode 2d data matrix?
esistono altri metodi?
grazie


title: barcode 2d data matrix

text:

io uso delle api di google

https://developers.google.com/chart/infographics/docs/qr_codes#overview

ciao
BFS


title: barcode 2d data matrix

text:

se invece vuoi essere indipendente da tutto...
ecco l'algoritmo da tradurre in vba

http://www.swetake.com/qr/qr1_en.html

ciao
BFS


title: barcode 2d data matrix

text:
"BFS"  ha scritto nel messaggio
news:4fed6d59$0$1378$4faf...@reader2.news.tin.it...

se invece vuoi essere indipendente da tutto...
ecco l'algoritmo da tradurre in vba

http://www.swetake.com/qr/qr1_en.html

ciao
BFS

Non sono in grado....
io ho trovato un pratico ActiveX ma è una demo
mi chiedevo se esiste qualcosa di freeware
ciao e grazie


title: barcode 2d data matrix

text:
Il 29/06/2012 09:59, anna ha scritto:

se è per uso non commerciale

http://strokescribe.com/en/price.html

vedo che la versione free aggiunge una piccola scritta vicino al codice
generato. C'è pure un esempio di codice vba

la versione commerciale parte da 15 dollari...mi pare poco no?

ciao
BFS


title: barcode 2d data matrix

text:
se è per uso non commerciale

http://strokescribe.com/en/price.html

vedo che la versione free aggiunge una piccola scritta vicino al codice
generato. C'è pure un esempio di codice vba

la versione commerciale parte da 15 dollari...mi pare poco no?

ciao
BFS

Direi che va benissimo ....
grazie BFS


title: barcode 2d data matrix

text:

rettifico
incuriosito ho scaricato il controllo e l'ho provato.
nella versione free viene accodato al testo dal lettore la scritta
"strokescribe.FREE"
quindi se codifichi il QR con la scritta ABCD
il risultato della lettura è   ABCD.strokescribe.FREE

ma per 15 dollari la versione commerciale è un affare visto i formati
che suppporta questo controllo e la semplicità di utilizzo. (3 righe di
codice)

ciao
BFS


title: Codice fiscale

author: pompeo

text:
Salve gente,
c'è qualcuno che saprebbe postarmi il codice da inserire in un forms di
access, che alla pressione di un bottone mi generi il codice fiscale di una
persona?
Sono graditi esempi, links e ogni informazione utile.
Grazie anticipate a chiunque possa aiutarmi.
--
                         \ | /
                         (@ @)
----------------------O00-(_)-00O--------------------
--------------------------/|\------------------------
-------------------- Medialine S.r.l. ---------------
------------- Information Service & Network ---------
-------------------
pom...@mline.it
 -----------------
          Scrivimi :<mailto:
pom...@mline.it
>


title: Codice fiscale

author: Pleiadi

text:
pompeo ha scritto nel messaggio <10ojsrn$5a8$
1...@fe2.cs.interbusiness.it
>...
>Salve gente,
>c'è qualcuno che saprebbe postarmi il codice da inserire in un forms di
>access, che alla pressione di un bottone mi generi il codice fiscale di una
>persona?
>Sono graditi esempi, links e ogni informazione utile.
>Grazie anticipate a chiunque possa aiutarmi.
Sul sito comune trovi quello che cerchi.
Alfio


title: Codice fiscale

text:
Grazie per avermi risposto, ma a me serve la generazione del codice non il
controllo della sua esattezza!
Pleiadi <
za...@libero.it
> wrote in message
Gr8x4.5275$i%1.5...@news.infostrada.it...



title: Codice fiscale

author: sib

text:
pompeo scrive
> Grazie per avermi risposto, ma a me serve la generazione del codice non il
> controllo della sua esattezza!
Scusa, ma non e' molto diverso generare e controllare, ma se non vuoi
mettere mano al VBA mi sa che non c'e' molto da fare.
Sib
--
------------------------------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access
------------------------------------------------------
4000 anni fa', il saggio egizio Ptahhotep scrisse:
"... perche' non esistono saggi per nascita."
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Codice fiscale

author: Rox

text:
> Scusa, ma non e' molto diverso generare e controllare, ma se non vuoi
> mettere mano al VBA mi sa che non c'e' molto da fare.
MOOOOOLTO diverso!!
Il controllo è solo la verifica di un checksum
La generazione segue molte altre regole.
Il avevo fatto un programmino in Clipper/Fivewin che generava il cod.
fiscale. Appena ho tempo lo trasformo in Access. Se qualcuno vuole provarci
prima, me lo faccia sapere. Oltre al programma sorgente serve ovviamente la
tabella dei Comuni e Stati esteri con il codice Belfiore che posso allegare.
harry...@tin.it


title: Codice fiscale

author: RoDAgo

text:
pompeo scrisse...
> Salve gente,
> c'è qualcuno che saprebbe postarmi il codice da inserire in un forms di
> access, che alla pressione di un bottone mi generi il codice fiscale di
una
> persona?
> Sono graditi esempi, links e ogni informazione utile.
> Grazie anticipate a chiunque possa aiutarmi.
Creati una form, inserisci questi controlli:
txtcognome
txtnome
cbosesso (casella combinata con Elenco valori M;F)
CasComb (casella combinata legata alla tabella comuni per la scelta dello
stesso)
txtDataNascita
TxtCodFis (è il controllo che accogliera il codice fiscale creato).
Beccate stò codice schiaffalo dentro un pursante e buon lavoro!!
    Dim Temp        As String
    Dim Vocali      As String
    Dim Consonanti  As String
    Dim I           As Integer
    Dim AppoNum     As Long
    Dim TempNum     As Long
    Dim TxtCodFis   As String
    Dim Cognome$, Nome$, Sesso$, Provincia$
    Dim DataNascita As Date
'Verifica i dati nei controlli della form
If IsNull(txtcognome) Then
    MsgBox ("Inserire il Cognome!")
    Exit Sub
End If
If IsNull(txtnome) Then
    MsgBox ("Inserire il Nome!")
    Exit Sub
End If
If IsNull(cboSesso) Then
    MsgBox ("Inserire il Sesso!")
    Exit Sub
End If
If IsNull(CasComb) Then  'Casella combinata legata alla tabella Comuni che
contiene Codice, Provincia e Descrizione del comune stesso
    MsgBox ("Inserire il Comune!")
    Exit Sub
End If
    If IsDate(txtDataNascita) = False Then
        MsgBox "La data di Nascita non e' valida."
    Else
    TxtCodFis = ""
    Cognome$ = txtcognome
    Nome$ = txtnome
    Sesso$ = cboSesso
    DataNascita = txtDataNascita
    Provincia$ = Trim(CasComb)
    '
    ' RICAVO IL COGNOME (123)
    '
    Cognome$ = StrConv(Cognome$, vbUpperCase)
    Vocali = ""
    Consonanti = ""
    For I = 1 To Len(Cognome$)
        If InStr("AEIOU", Mid(Cognome$, I, 1)) Then
            Vocali = Vocali + Mid(Cognome$, I, 1)
        ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(Cognome$, I, 1)) Then
            Consonanti = Consonanti + Mid(Cognome$, I, 1)
        Else
            ' E' uno spazio, un apostrofo o altro che non va considerato
        End If
       If Len(Consonanti) = 3 Then Exit For
    Next
    If Len(Consonanti) < 3 Then Consonanti = Consonanti + Left(Vocali, 3 -
Len(Consonanti))
    If Len(Consonanti) < 3 Then Consonanti = Consonanti + String(3 -
Len(Consonanti), "X")
    TxtCodFis = Consonanti
    '
    ' RICAVO IL NOME (456)
    '
    Nome$ = StrConv(Nome$, vbUpperCase)
    Vocali = ""
    Consonanti = ""
    For I = 1 To Len(Nome$)
        If InStr("AEIOU", Mid(Nome$, I, 1)) Then
            Vocali = Vocali + Mid(Nome$, I, 1)
        ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(Nome$, I, 1)) Then
            Consonanti = Consonanti + Mid(Nome$, I, 1)
        Else
            ' E' uno spazio, un apostrofo o altro che non va considerato
        End If
    Next I
    If Len(Consonanti) >= 4 Then
        ' isolo la prima, terza e quarta consonante
        Consonanti = Left$(Consonanti, 1) & Mid$(Consonanti, 3, 2)
    ElseIf Len(Consonanti) = 3 Then
        ' Va bene cosi'
    Else
        ' Aggiungo le vocali
        Consonanti = Left$(Consonanti & Vocali, 3)
        ' se non basta, aggiungo le X
        If Len(Consonanti) < 3 Then Consonanti = Left$(Consonanti & "XXX",
3)
    End If
    TxtCodFis = TxtCodFis & Consonanti
    '
    'Anno di nascita (78)
    '
    TxtCodFis = TxtCodFis + Right(Format$(Year(DataNascita), "0000"), 2)
    '
    'Mese di nascita(9)
    '
    TxtCodFis = TxtCodFis & Mid$("ABCDEHLMPRST", Month(DataNascita), 1)
    '
    'Giorno di nascita(0A)
    '
    If UCase(Sesso$) = "F" Then
        TxtCodFis = TxtCodFis & Format$(Day(DataNascita) + 40, "00")
    Else
        TxtCodFis = TxtCodFis & Format$(Day(DataNascita), "00")
    End If
    '
    'Località di nascita (BCDE)
    '
    TxtCodFis = TxtCodFis & Provincia$
    '
    'Ultima lettera (F)
    '
    'Controllo caratteri pari
    TempNum = 0
    I = 1
    Do
        ' I DISPARI
        AppoNum =
InStr("B1A0KKPPLLC2QQD3RRE4VVOOSSF5TTG6UUH7MMI8NNJ9WWZZYYXX", Mid(TxtCodFis,
I, 1))
        TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
        I = I + 1
        If I > 15 Then Exit Do
        ' I PARI
        AppoNum =
InStr("A0B1C2D3E4F5G6H7I8J9KKLLMMNNOOPPQQRRSSTTUUVVWWXXYYZZ", Mid(TxtCodFis,
I, 1))
        TempNum = TempNum + ((AppoNum - 1) And &H7FFE) / 2
        I = I + 1
    Loop
    TempNum = TempNum Mod 26
    TxtCodFis = TxtCodFis & Mid$("ABCDEFGHIJKLMNOPQRSTUVWXYZ", TempNum + 1,
1)
    ' Ecco qui il codice bello finito
        Me![txtcodicefiscale] = TxtCodFis
          End If
Ciao da RoDAgo


title: Codice fiscale

text:
> Sono graditi esempi, links e ogni informazione utile.
> Grazie anticipate a chiunque possa aiutarmi.
Io Utilizzo la seguente funzione cod$ alla quale passo come variabili il
cognome (co$), il nome (no$), il codice della citta' (cy$) prelevato da una
combo che a sua volta e' "alimentata" dalla tabella comuni scaricabile dal
sito comune di ICAA, e il sesso (sx$)
'************INGRESSO FUNZIONE*****************
Function cod$(co$, no$, cy$, nt$, sx$)
co$ = UCase$(co$)
no$ = UCase$(no$)
cy$ = UCase$(cy$)
sx$ = UCase$(sx$)
'--------- ELABORAZIONE COGNOME -------------
nominativo co$, 1 ' quest'ultimo: 1 è un flag che indica che sto passando il
cognome
'--------- ELABORAZIONE NOME -------------
nominativo no$, 0  ' quest'ultimo: 0 è un flag che indica che sto passando
il nome
'--------- ELABORAZIONE DATA -------------
codata nt$, sx$
'----------------- ELABORA LETTERA DI CONTROLLO-------------------
ok$=co$ + no$ + nt$ + cy$
miocontrollo ok$
'-----------------------------------------------------------
cod$ = co$ + no$ + nt$ + cy$ + ok$
End Function
'*************************************************************
Sub nominativo(a$, flag)
  noaccenti a$ ' trasforma le vocali accentate in vocali non accentate
  L = Len(a$)
  For i = 1 To L  'ciclo di scansione che separa le vocali dalle consonanti
    ch = Mid(a$, i, 1)
    vc = InStr("AEIOU", ch)
    If vc Then
        vocale = vocale + ch
        Else If ch >= "A" AND ch <= "Z" then consonante = consonante + ch
    EndIf  ' cosi' vengono eliminati anche gli spazi ed eventuali apostrofi
  Next
  Select Case Len(consonante)
    Case Is > 3
      If flag Then a$ = Left(consonante, 3) Else a$ = Left(consonante, 1)+
Mid(consonante, 3, 2)
    Case Is = 3
      a$ = consonante
    Case Is < 3
      a$ = Left(consonante + vocale + "XXX", 3)
  End Select
End Sub
Sub noaccenti(a$)   '(modifica lettre accentate)
    w$ = "": L = Len(a$)
    For i = 1 To L
        ch$ = Mid$(a$, i, 1)
        If ch$ >= "À" And ch$ <= "Å" Then ch$ = "A"
        If ch$ >= "È" And ch$ <= "Ë" Then ch$ = "E"
        If ch$ >= "Ì" And ch$ <= "Ï" Then ch$ = "I"
        If ch$ >= "Ò" And ch$ <= "Ö" Then ch$ = "O"
        If ch$ >= "Ù" And ch$ <= "Ü" Then ch$ = "U"
        w$ = w$ + ch$
    Next
a$ = w$
End Sub
Sub codata(d$, s$)
    If s$ = "M" Then s1 = 0 Else s1 = 40
    ReDim mese$(12)
    mese$(1) = "A": mese$(7) = "L"
    mese$(2) = "B": mese$(8) = "M"
    mese$(3) = "C": mese$(9) = "P"
    mese$(4) = "D": mese$(10) = "R"
    mese$(5) = "E": mese$(11) = "S"
    mese$(6) = "H": mese$(12) = "T"
    anno$ = Right$(d$, 2)
    gior = Val(Left$(d$, 2))
    gior = gior + s1: giorno$ = Format$(gior, "00")
    mes = Val(Mid$(d$, 4, 2))
    d$ = anno$ & mese$(mes) & giorno$
End Sub
Sub miocontrollo(ok$)
    ReDim d(26)
    d(0) = 1: d(1) = 0: d(2) = 5: d(3) = 7
    d(4) = 9: d(5) = 13: d(6) = 15: d(7) = 17
    d(8) = 19: d(9) = 21: d(10) = 2: d(11) = 4
    d(12) = 18: d(13) = 20: d(14) = 11: d(15) = 3
    d(16) = 6: d(17) = 8: d(18) = 12: d(19) = 14
    d(20) = 16: d(21) = 10: d(22) = 22: d(23) = 25
    d(24) = 24: d(25) = 23
' calcolo lettera di controllo
For i = 1 To 15
    If i \ 2 = i / 2 Then pari = True Else pari = False
    ch = Asc(Mid(ok, i, 1))
    v = ch + 65 * (ch > 64 And ch < 91) + 48 * (ch > 47 And ch < 58)
    If pari Then tot = tot + v Else tot = tot + d(v)
Next
ok = Chr(tot Mod 26 + 65)
End Sub
Cosi' io calcolo il codice fiscale
Buon lavoro, ciao
Santini


title: Codice fiscale

text:
>     ' RICAVO IL COGNOME (123)
>     '
>     Cognome$ = StrConv(Cognome$, vbUpperCase)
>     Vocali = ""
>     Consonanti = ""
>     For I = 1 To Len(Cognome$)
>         If InStr("AEIOU", Mid(Cognome$, I, 1)) Then
>             Vocali = Vocali + Mid(Cognome$, I, 1)
>         ElseIf InStr("BCDFGHJKLMNPQRSTVWXYZ", Mid(Cognome$, I, 1)) Then
>             Consonanti = Consonanti + Mid(Cognome$, I, 1)
>         Else
>             ' E' uno spazio, un apostrofo o altro che non va considerato
>         End If
>        If Len(Consonanti) = 3 Then Exit For
>     Next
>     If Len(Consonanti) < 3 Then Consonanti = Consonanti + Left(Vocali, 3 -
> Len(Consonanti))
>     If Len(Consonanti) < 3 Then Consonanti = Consonanti + String(3 -
> Len(Consonanti), "X")
>     TxtCodFis = Consonanti
>
> Ciao da RoDAgo
Scusa se mi permetto, ma la routine per ricavare le lettere dal cognome a
mio avviso ha un bug.
Mi spego: se l'utente nella form inserisce un cognome tipo Ali' o Bue'
(cioe' con la vocale accentata veramente e non con la vocale seguita
dall'apostrofo) quando la converti in maiuscolo (Cognome$ =
StrConv(Cognome$, vbUpperCase) ) ti ritrovi con la A con la L e con la i
maiuscola accentata (codice ANSI 204). Nel ciclo For... Next vengono prese
in considerazioni solo le vocali non accentate quindi la i maiscola
accentata non viene inclusa nella variabile Vocali e alla fine ti ritrovi
con un cognome codificato come LAX anziche' il corretto LAI (stesso dicasi
per Bue' che diventerebbe BUX anziche' BUE)
Ciao da Santini


title: Codice fiscale

text:
Nunzio scrisse...
cut...
> Scusa se mi permetto, ma la routine per ricavare le lettere dal cognome a
> mio avviso ha un bug.
Porca di quella miseriaccia maiala!!!
Hai pienamente ragione!!!
Vatti a fidare delle StrConv !!!!
Per fortuna di Alě non c'č ne tantissimi in Italia, posso ancora modificare
la routine senza che i miei clienti si incazzino per codici errati.
Per chi avesse inserito il codice da me postato basta modificare :
    Cognome$ = StrConv(Cognome$, vbUpperCase)
in
    Cognome$ = StrConv(noaccenti(Cognome$), vbUpperCase)
utilizzando il codice noaccenti elargito da Nunzio.
> Ciao da Santini
Ciao e tante grazie
RoDAgo


title: Cerco database per ore di progettazione.

text:
Avrei bisogno di un DB per inserire e gestire ore di progettazione per avere
un resoconto mensile per ogni disegnatore.
Spero di contraccambiare in qualche modo.
Grazie.


author: lbo dal portatile

text:
>Avrei bisogno di un DB per inserire e gestire ore di progettazione per avere
>un resoconto mensile per ogni disegnatore.
un consiglio al volo.  se devi fare operazioni di somma, media ecc.
con le ore ti consiglio di farlo con un foglio excel, che riesce a
trattare questo tipo di operazioni.
access "non riesce" a sommare le ore.  per access non esiste la
quantita', diciamo, 35 ore.  esiste la data/ora corrispondente a 35
ore dopo la sua data/ora zero, e cioe' le ore 0 del 01/01/100, cioe'
ancora le 11:00 del 02/01/100.
nei vecchi messaggi e sul sito comune dovresti trovare altre
informazioni in merito.  sostanzialmente devi trattare le date/ore
come stringhe, scomporle, effettuare le operazioni, calcolarti i
riporti ecc..
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/


title: Buon 2k a tutti.-

author: Gisco

text:
Auguro a tutto il ng un anno pieno di felicità e di soddisfazioni.
Gisco


title: Buon 2k a tutti.-

author: Rodago

text:
Happy New Year!!!!
Ciao da RoDAgo
Gisco ha scritto nel messaggio ...



title: Buon 2k a tutti.-

author: Alessandro Toia

text:
Buon Anno a tutti quanti.
Gisco <
gios...@iol.it
> wrote in message
Ws2b4.2882$Oo1....@news.infostrada.it...



title: orario di lavoro

author: Alessandro

text:
ho la necessità di creare un database che mi gestisca l'orario di lavoro
AIUTOOOOOOOOOOOOOOOOOOOOOOOOOO


title: orario di lavoro

author: Roberto da casa

text:
"Alessandro" <
alen...@tin.it
> ha scritto nel messaggio
news:9ivp8p$7hv$1...@nreadA.inwind.it...
> ho la necessità di creare un database che mi gestisca l'orario di lavoro
> AIUTOOOOOOOOOOOOOOOOOOOOOOOOOO
>
Auguri!!!
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: orario di lavoro

author: Sergio MAZZA

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:mVK47.3472$Db7.1...@news.infostrada.it...
>
> "Alessandro" <
alen...@tin.it
> ha scritto nel messaggio
> news:9ivp8p$7hv$1...@nreadA.inwind.it...
> > ho la necessità di creare un database che mi gestisca l'orario di lavoro
> > AIUTOOOOOOOOOOOOOOOOOOOOOOOOOO
> >
>
> Auguri!!!
Dalla campagna eri più "malleabile"; il ritorno in città ti ha indurito il
cuore...
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
Ciao.


title: orario di lavoro

author: Roberto dal portatile

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:9j0kdp$t96$1...@canarie.caspur.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:mVK47.3472$Db7.1...@news.infostrada.it...
> >
> > "Alessandro" <
alen...@tin.it
> ha scritto nel messaggio
> > news:9ivp8p$7hv$1...@nreadA.inwind.it...
> > > ho la necessità di creare un database che mi gestisca l'orario di
lavoro
> > > AIUTOOOOOOOOOOOOOOOOOOOOOOOOOO
> > >
> >
> > Auguri!!!
>
> Dalla campagna eri più "malleabile"; il ritorno in città ti ha indurito il
> cuore...
>
> Ciao.
>
Probabilmente l'aria bucolica mi è congeniale. :-))
