title: codificare il testo in unicode UTF-8

author: RobertoA

text:

Se devi 'scorrere' la stringa basta che fai un ciclo dentro al quale
'osservi' dal primo all'ultimo carattere della stringa stessa
Non l'ho provata ma dovrebbe funzionare, occhio al count che finisca
giusto (alla lunghezza della stringa)
---------------------------------------------
stringa = "peppo pippa puppa"

For count = 1 To Len(stringa)
    Debug.Print Mid$(stringa, count, 1)
    Next count
---------------------------------------------
E Ciao


title: codificare il testo in unicode UTF-8

text:

E la Parte UNICODE...? mi sa che ti è scappato qualche cosa...

@Alex


title: codificare il testo in unicode UTF-8

text:

Veramente ho mostrato solo uno dei modi di scorrere ogni carattere della
stringa sorgente
Poi, il 'cosa' ci si faccia su ogni carattere e' compito del richiedente
Al posto del mio debug.print potrebbe eseguire una roba del tipo

str_dest = str_dest & tlhAsciiToUtf8(Mid$(stringa, count, 1))


title: codificare il testo in unicode UTF-8

author: mario rossi

text:

se servisse a qualcuno ho risolto cosi

ho inserito il codice seguente in un modulo e poi ho richiamato
URLEncode(miavariabilestringa)

se miavariabilestringa contiene per esempio "ciao a tutti à è ì ò ù"
questa funzione converte in UTF8 le ultime 5 vocali accentate

**** codice ****

Private Const CP_UTF8 = 65001
Private Declare Function WideCharToMultiByte Lib "Kernel32" (ByVal CodePage As Long, ByVal dwflags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

Public Function UTF16To8(ByVal UTF16 As String) As String
Dim sBuffer As String
Dim lLength As Long
If UTF16 <> "" Then
    lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, 0, 0, 0, 0)
    sBuffer = Space$(lLength)
    lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, StrPtr(sBuffer), Len(sBuffer), 0, 0)
    sBuffer = StrConv(sBuffer, vbUnicode)
    UTF16To8 = Left$(sBuffer, lLength - 1)
Else
    UTF16To8 = ""
End If
End Function

Public Function URLEncode( _
   StringVal As String, _
   Optional SpaceAsPlus As Boolean = False, _
   Optional UTF8Encode As Boolean = True _
) As String

Dim StringValCopy As String: StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)
Dim StringLen As Long: StringLen = Len(StringValCopy)

If StringLen > 0 Then
    ReDim Result(StringLen) As String
    Dim I As Long, CharCode As Integer
    Dim Char As String, Space As String

  If SpaceAsPlus Then Space = "+" Else Space = "%20"

  For I = 1 To StringLen
    Char = Mid$(StringValCopy, I, 1)
    CharCode = Asc(Char)
    Select Case CharCode
      Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
        Result(I) = Char
      Case 32
        Result(I) = Space
      Case 0 To 15
        Result(I) = "%0" & Hex(CharCode)
      Case Else
        Result(I) = "%" & Hex(CharCode)
    End Select
  Next I
  URLEncode = Join(Result, "")

End If
End Function

**** fine codice ****


title: CollegaCampiMaster

author: Vincenzo

text:
Salve a tutti, ho un problema su una maschera quando vado ad'aprirla
mi chiede di inserire il Campo "Servizio" se rispondo OK mi dà
l'errore (L'impostazione della propietà CollegaCampiMaster ha
provocato il seguente errore: 'L'oggetto non contiene l'oggetto di
automazione'Servizio"
Spero che qualcuno mi possa aiutare.
Grazie in anticipo


title: CollegaCampiMaster

author: Marco Papo

text:
"Vincenzo" <
e.defi...@gmail.com
> ha scritto nel messaggio
news:1180521736.8...@p47g2000hsd.googlegroups.com...


Ciao,
forse hai una sottomaschera in che avevi collegato con il campo servizio.
Tasto dex proprietà sulla sottomaschera, elimina il collegamento con
servizio.


title: CollegaCampiMaster

text:
Marco Papo ha scritto:

Grazie per la risposta,
ho già fatto quello che mi hai consigliato ma questo campo non è
presente.


title: CollegaCampiMaster

text:
"Vincenzo" <
e.defi...@gmail.com
> ha scritto nel messaggio
news:1180596968.2...@p77g2000hsh.googlegroups.com...
Marco Papo ha scritto:

Hai cercato se non esiste un controllo con tale nome nella maschera o nella
query?
Cerca anche nell'editor di VBA con il Find .
Ciao


title: Query da migliorare

author: Franco dellavalle

text:
ciao a tutti
questa query si può scrivere
anche in altro modo?
Perchè anche se funziona, non è tanto bella a vedersi.
Grazie

SELECT First(DettaglioFatture.IdFattura) AS IdFattura, DettaglioFatture.IdCarico, First(DettaglioFatture.NumeroDoc) AS NumeroDoc, First(DettaglioFatture.DataDoc) AS DataDoc, Sum(DettaglioFatture.MioSconto) AS MioSconto
FROM DettaglioFatture
GROUP BY DettaglioFatture.IdCarico, IIf([DettaglioFatture].[MioSconto]<0,-1*[DettaglioFatture].[MioSconto],[DettaglioFatture].[MioSconto])
HAVING (((Sum(DettaglioFatture.MioSconto))<>0));


title: Query da migliorare

text:

Franco... cosa significa BELLA A VEDERSI...?
Da quando si fanno le cose BELLE e non FUNZIONALI...?

Se hai problemi di Performances... è un conto, ma ci spieghi bene la questioe... ma BELLA o MENO... dai su...!!!

@Alex


title: Query da migliorare

text:

ciao Alex
vorrei semplificarla quanto più possibile,

grazie


title: Query da migliorare

text:
Se ti serve la somma di sconto... hai poco da semplificare... dove pensi sia semplificabile... ed in base a quale logica....?
Ha 3 campi in tutto fatico a capire cosa vuoi ottenere.

@Alex


title: Query da migliorare

author: ogrn

text:
SELECT First(DettaglioFatture.IdFattura) AS IdFattura,
DettaglioFatture.IdCarico, First(DettaglioFatture.NumeroDoc) AS NumeroDoc,
First(DettaglioFatture.DataDoc) AS DataDoc, Sum(DettaglioFatture.MioSconto)
AS MioSconto
FROM DettaglioFatture
GROUP BY DettaglioFatture.IdCarico,
IIf([DettaglioFatture].[MioSconto]<0,-1*[DettaglioFatture].[MioSconto],[DettaglioFatture].[MioSconto])
HAVING (((Sum(DettaglioFatture.MioSconto))<>0));

>ciao Alex
>vorrei semplificarla quanto più possibile,

Franco, non c'è molto da fare su questa query.
L'unico miglioramento sintattico è evitare di specificare le tabelle come
prefissi, ma lo puoi fare *solo* se i nomi dei campi sono *unici su tutte*
le tabelle.
Io non lo posso sapere, ma se ti basta questa query che usa una sola
tabella, un esempio di miglioramento puo essere:

SELECT
    First(IdFattura) as IDFattura_,
    IdCarico As IDCarico_,
    First(NumeroDoc) AS NumeroDoc_,
    First(DataDoc) AS DataDoc_,
    Sum(MioSconto) AS MioSconto_
FROM DettaglioFatture
GROUP BY  IdCarico_, IIf([MioSconto_]<0,-1*[MioSconto_],[MioSconto_])
HAVING (((Sum(MioSconto_))<>0));

Il miglioramento è sullo stile degli esercizietti di scuola, nei quali puoi
utilizzare gli alias al posto del nome campo completo.
Però non credo che Access accetti questa sintassi.


title: Query da migliorare

text:

grazie


title: Query da migliorare

text:
Il giorno mercoledì 21 febbraio 2018 22:23:12 UTC+1, caezan ha scritto:

grazie


title: Quali differenze tra ADP 2000 ed ADP 2002?

author: MegaMax

text:
Quali novità ci sono usandi gli ADP 2002 rispetto agli ADP 2000?
Grazie, Max


title: [Tabelle collegate] Mettere il BE su un server internet

author: Mario

text:
Ho sepatarato il mio database in front end e back end.
Il BE contiene le tabelle. Per poterlo sempre consultare,
vorrei registrare un dominio su aruba o simili (aruba
costa poco) ed accedervi tramite il mio FE ovunque
mi trovi. Usando Gestione tabelle collegate non sono
riuscito. Come posso procedere, allora?


author: Marcello

text:
"Mario" <
em...@nospam.it
> ha scritto nel messaggio
news:nbp5b.12633$R32.4...@news2.tin.it...

Ciao non sono sicuro perchè io non ho provato, per certo però potresti
risolvere per il FE utilizzando asp e html, penso che per fare ciò che vuoi
tu dovresti avere la possibilità di mettere le mani sul server dove hai
installato il BE nel tuo caso mi pare di capire aruba smpre che sia
possibile.
Ciao
MArcello


title: Campi Obbligatori

author: LUIGI C.

text:
Buon Giorno A97
Come posso rendere OBBLIGATORI delle caselle presenti in maschera...pena
l'impossibilità di USCIRE con anticipo di un MSGBOX!!!!???
Grazie


title: Campi Obbligatori

author: Carlo Costarella

text:
"LUIGI C." <
luigic...@hotmail.com
> ha scritto nel messaggio
news:ZO5wk.3374$YZ3....@tornado.fastwebnet.it...

La risposta di Giorgia non ti va bene?
Ciao, Carlo


title: connessione a tabelle oracle

author: Giovanni

text:
ciao a tutti,
ho il seguente problema,
ho creato una macro per importare una tabella da Oracle ad Access.
Ho inserito nel campo "Tipo di Database": "Database ODBC", nel campo "Nome
database" la stringa di connessione (es."ODBC;DRIVER={Microsoft ODBC for
Oracle};UID=USER;PWD=USER;SERVER=a1.xxx.it.local;;TABLE=USER.CATEGORY") ma
ogni volta che faccio partire la macro, mi dà il seguente errore "ODBC:
connessione a '{Microsoft ODBC for Oracle}a1.xxx.it.local' non riuscita".
Da cosa può dipendere questo e come è possibile risolverlo
grazie,
giovanni


title: connessione a tabelle oracle

author: George

text:
"Giovanni" <
gio...@libero.it
> ha scritto nel messaggio
news:PxsAa.70842$DN.16...@tornado.fastwebnet.it...

Siamo sicuri che il tuo server DNS sia in grado di risolvere il nome
'a1.xxx.it.local' ?
Ma veramente hai un sottodominio che si chiama xxx?


title: connessione a tabelle oracle

text:
il nome del server è solo un esempio,
se inserisco nella stringa di connessione il nome utente e la password
corretta (tale stringa l'ho presa seguendo le istruzioni della guida di
access) questo errore viene fuori.
Tieni conto che ho provato che, se nel frattempo mi collego ad oracle
(esempio per collegarmi a tabelle non tramite macro. ma tramite l'istruzione
File>Carica Dati Esterni>Collega Tabelle) la macro funziona e non dà
l'errore che vedi sotto.
ciao e grazie,
giovanni
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:bav1bf$jo1$1...@newsreader.mailgate.org...



title: Problemi con carattere apice

author: Enrico Pietrobon

text:
Ciao, sto facendo un aggiornamento da un file txt che contiene codici di
vario tipo, ho questo tipo di problema , nella tabella esistono dei codici
dove all interno ci sono apici ' ,oppure virgolette ", nel momento in cui io
uso la funzione FindFirst per la ricerca e l'aggiornamento di questo codice
con questa  formula
T1.FindFirst "Codice = '" &   RST!Campo1   & "' and BarCode = '" &
RST!Campo2   & "'"
mi appare l'errore 3077 Errore di Sintassi (operatore mancante)
nell'espressione
come fare per far riconoscere come campo record anche questo codice.
Grazie Grazie Grazie
Enrico Pietrobon.


title: Problemi con carattere apice

author: Antonio Biso

text:
Enrico Pietrobon <
enri...@softdream.it
> wrote in message
99f76b$7vt$1...@pegasus.tiscalinet.it...
> Ciao, sto facendo un aggiornamento da un file txt che contiene codici di
> vario tipo, ho questo tipo di problema , nella tabella esistono dei codici
> dove all interno ci sono apici ' ,oppure virgolette ", nel momento in cui
io
> uso la funzione FindFirst per la ricerca e l'aggiornamento di questo
codice
> con questa  formula
>
> T1.FindFirst "Codice = '" &   RST!Campo1   & "' and BarCode = '" &
> RST!Campo2   & "'"
Ti prepari una funzione che prende come parametro una stringa, la scorre, e
la restituisce raddoppiando gli apici se li trova.
cioč fun("L'amico") = "L''amico"
Poi il tuo findfirst lo fai cosě
T1.FindFirst "Codice = '" &   fun(RST!Campo1)   & "' and BarCode = '" &
 RST!Campo2   & "'"
Antonio


title: aprire maschera da un'altra maschera

author: Giancarlo da casa

text:
Ciao a tutti.
Uso A97 e ho 2 tabelle così strutturate:
Anagrafica:
[Id_cognome] contatore, chiave primaria
[Cognome]
...
Ordini:
[Id_cognome] numerico
[oggetto]
...
Le due tabelle sono in relazione tra di loro. Per immettere dati nella
tabella anagrafica utilizzo una maschera.
Quale codice posso associare ad un pulsante per far sì che si apra la
maschera relativa alla tab. Ordini collegata al record che in quel momento è
presente sulla maschera Anagrafica? Il codice che si genera automaticamente
con l'autocomposizione, apre una maschera ordini 'generica', non collegata
all'Id_cognome di Anagrafica.
Spero di essere stato chiaro.
Grazie a tutti.
Giancarlo


title: aprire maschera da un'altra maschera

author: Alessandro Baraldi

text:
"Giancarlo da casa" <
thi...@tin.it
> wrote in message
news:mzNp7.8248$Bk.6...@news1.tin.it...
> Le due tabelle sono in relazione tra di loro. Per immettere dati nella
> tabella anagrafica utilizzo una maschera.
> Quale codice posso associare ad un pulsante per far sě che si apra la
> maschera relativa alla tab. Ordini collegata al record che in quel momento č
> presente sulla maschera Anagrafica? Il codice che si genera automaticamente
> con l'autocomposizione, apre una maschera ordini 'generica', non collegata
> all'Id_cognome di Anagrafica.
> Spero di essere stato chiaro.
> Grazie a tutti.
> Giancarlo
Devi inserire il Criterio nell'istruzione:
Dim strFilter as string
strFilter="CampoPrimKeyTuaForm='" & TxtBoxPrimKey & "'"
DoCmd.OpenForm FormName, , strFilter
CampoPrimKeyTuaForm(Campo Chiave primaria della Form Aperta)
TxtBoxPrimKey      (Relatico controllo TxtBox in cui c'č il campo)
@Alex.
--
Posted from  [146.133.1.30]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: aprire maschera da un'altra maschera

author: Giancarlo Francesconi

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:38e71ec5edacb6270b...@mygate.mailgate.org...
> "Giancarlo da casa" <
thi...@tin.it
> wrote in message
> news:mzNp7.8248$Bk.6...@news1.tin.it...
>
> > Le due tabelle sono in relazione tra di loro. Per immettere dati nella
> > tabella anagrafica utilizzo una maschera.
> > Quale codice posso associare ad un pulsante per far sě che si apra la
> > maschera relativa alla tab. Ordini collegata al record che in quel
momento č
> > presente sulla maschera Anagrafica? Il codice che si genera
automaticamente
> > con l'autocomposizione, apre una maschera ordini 'generica', non
collegata
> > all'Id_cognome di Anagrafica.
> > Spero di essere stato chiaro.
> > Grazie a tutti.
> > Giancarlo
>
Innnazi tutto grazie per la risposta
Non credo di aver capito bene, infatti ho provato, ma non funzia.
> Devi inserire il Criterio nell'istruzione:
> Dim strFilter as string
> strFilter="CampoPrimKeyTuaForm='" & TxtBoxPrimKey & "'"
> DoCmd.OpenForm FormName, , strFilter
> CampoPrimKeyTuaForm(Campo Chiave primaria della Form Aperta)
E' la form principale? Quindi ti riferisci al campo  Id_cognome della
tabella Anagrafica?
> TxtBoxPrimKey      (Relatico controllo TxtBox in cui c'č il campo)
Sempre nella tab principale? Nel mio caso la textbox che visualizza il
controllo si chiama Testo10.
Perciň ho provato a scrivere: strFilter="Id_cognome='" & Testo10 & "'"
Quando faccio click sul pulsante, si apre la maschera di immissione Ordini,
ma non č in relazione con il record visualizzato in quel momento nella
maschera principale.
Grazie
Giancarlo



title: aprire maschera da un'altra maschera

text:
"Giancarlo Francesconi" <
thi...@tin.it
> wrote in message
news:L2Yp7.31$aU1...@news1.tin.it...
> E' la form principale? Quindi ti riferisci al campo  Id_cognome della
> tabella Anagrafica?
> Sempre nella tab principale? Nel mio caso la textbox che visualizza il
> controllo si chiama Testo10.
> Perciň ho provato a scrivere: strFilter="Id_cognome='" & Testo10 & "'"
> Quando faccio click sul pulsante, si apre la maschera di immissione Ordini,
> ma non č in relazione con il record visualizzato in quel momento nella
> maschera principale.
>
Dim strFilter as string
strFilter="Id_cognome=" & Testo10
DoCmd.OpenForm FormName, , strFilter
L'errore forse era nell'utilizzo degli apici, visto che il campo č numerico.
Il tutto va inserito come hai capito nella Form legata all'Anagrafica
Riprova.....



title: aprire maschera da un'altra maschera

author: Roberto da casa

text:
"Giancarlo da casa" <
thi...@tin.it
> ha scritto nel messaggio
news:mzNp7.8248$Bk.6...@news1.tin.it...

Scusami ma la tua affermazione non è esatta; quando viene usato il wizard di
autocomposizione di un pulsante di comando per l'apertura di una maschera,
alla terza finestra del wizard ti viene chiesto se aprendo la maschera
debbono essere mostrati tutti i rcord oppure se la maschera deve trovare
record specifici da visualizzare.
Se scegli questa seconda opzione, e non la prima come hai fatto tu, visto
che le due tabelle sono in relazione tra di loro, e poi rispondi
correttamente anche alle altre domande del wizard, risolvi il tuo problema;
di fatto l'autocomposizione farà automaticamente ciò che Alessandro ti sta
dicendo di fare a manina santa.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: aprire maschera da un'altra maschera

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:UJ_p7.5598$bf.2...@news.infostrada.it...

Ooops! Non me ne ero accorto. :-P
Grazie del suggerimento.
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
Ciao. Giancarlo


title: aprire maschera da un'altra maschera

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:UJ_p7.5598$bf.2...@news.infostrada.it...

Ho in effetti provato come mi dici, utilizzando l'autocomposizione e
giustamente si crea un codice che fa sì che si apra la maschera Ordini
debitamente filtrata in base alla relazione tra le due tabelle. Tutto ciò
però funziona solo quando ci sono record della tab. Ordini già inseriti in
relazione ad un record di Anagrafica. Quando però inserisco un nuovo record
e faccio click per aprire la maschera ordini, questa non si apre già
'collegata' alla maschera Anagrafica e i dati che inserisco risultano non in
relazione con il record in Anagrafica.
Giancarlo



title: aprire maschera da un'altra maschera

text:
"Giancarlo Francesconi" <
thi...@tin.it
> ha scritto nel messaggio
news:JNnq7.16706$Su1.1...@news2.tin.it...
[CUT]
>
> Ho in effetti provato come mi dici, utilizzando l'autocomposizione e
> giustamente si crea un codice che fa sì che si apra la maschera Ordini
> debitamente filtrata in base alla relazione tra le due tabelle. Tutto ciò
> però funziona solo quando ci sono record della tab. Ordini già inseriti in
> relazione ad un record di Anagrafica. Quando però inserisco un nuovo
record
> e faccio click per aprire la maschera ordini, questa non si apre già
> 'collegata' alla maschera Anagrafica e i dati che inserisco risultano non
in
> relazione con il record in Anagrafica.
>
> Giancarlo
>
Non era evidente dal tuo primo messaggio che dovessi adoperare le due
maschere anche per inserire nuovi record contemporaneamente in ambedue le
maschere. Normalmente l'apertura di due maschere in maniera sincronizzata si
usa quasi sempre per problemi di visualizzazione di dati.
Se però le cose stanno come tu dici, ti sconsiglio caldamente di usare due
maschere separate e sincronizzate, ma ti consiglio di usare la tecnica della
maschera/sottomaschera: automaticamente eviterai tutti i mal di pancia di
cui stai soffrendo ed evidenziati nei tuoi messaggi precedenti.
Nella tua maschera Anagrafica, che deve essere con visualizzazione a
Maschera singola, oltre a tutto quello che hai già inserito devi inserire
anche una sottomaschera (con visualizzazione a Maschere continue) che deve
avere come origine record la tabella Ordini.
Così facendo, aprendo la maschera Anagrafica, per ogni record anagrafico,
senza dover far altro, vedrai automaticamente nella sottomaschera tutti i
record ordine ad esso correlati. Inoltre riuscirai, senza alcun problema, ad
aggiungere, modificare o cancellare record sia dalla tabella Anagrafica che
dalla tabella Ordini.
Tecnicamente si può fare l'aggiornamento delle due tabelle anche con due
maschere separate e sincronizzate, ma è molto più complesso.
La prima cosa che dovresti fare, prima di aprire la maschera Ordini, è
quella di verificare  se stai inserendo un nuovo record anagrafico; questo
devi farlo testando la proprietà Me.NewRecord della maschera Anagrafica, e
se l'esito del test è positivo devi salvare nella tabella Anagrafica il
record che è in fase di inserimento con un DoCmd.RunCommand
acCmdSelectRecord; infatti, in una relazione uno-a-molti,  non puoi inserire
un nuovo record sulla tabella del lato molti se prima non hai salvato il
nuovo record della tabella del lato uno.
Risolto questo problema ti si presenta quello di registrare in maniera
automatica la chiave esterna sul nuovo record della tabella Ordini, che deve
coincidere con il valore della chiave primaria del record corrente della
maschera Anagrafica; per far questo devi, a fronte dell'evento "Su corrente"
della maschera Ordini, impostare il Valore predefinito del controllo
associato alla chiave esterna rendendolo uguale al valore del controllo del
record corrente della maschera Anagrafica associato alla chiave primaria
della tabella Anagrafica.
A Roma si dice: ma chi te lo fa fà!
Se usi la tecnica maschera/sottomaschera, tutte le cose di cui al paragrafo
precedente se le fa da solo Access, senza che tu non te ne debba proccupare.



title: aprire maschera da un'altra maschera

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:2Vqq7.8583$Lp6.3...@news.infostrada.it...
[CUT]
Scusami: ho sbagliato a scrivere il comando per salvare un record corrente;
il comando giusto č:
DoCmd.RunCommand acCmdSaveRecord



title: aprire maschera da un'altra maschera

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:2Vqq7.8583$Lp6.3...@news.infostrada.it...

Concordo pienamente! :-)
Grazie.
Giancarlo



title: Controlli

author: Marco Serra

text:
Che succede se fai cosi'?
Tar_Appo=DLookup(...ricerca i valori in una tabella ParametriGenerali...)
TariffaL.DefaultValue = Tar_Appo
TariffaE.DefaultValue = Round(EuroConvert(Tar_Appo, "ITL", "EUR", True), 2)
Ciao
Marco
--
Posted from [212.210.92.253]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Controlli

author: Rob

text:
""Marco Serra"" <
Marco...@ausl.bologna.it
> ha scritto nel messaggio
news:001301c056e3$7b11c160$6702...@internal.ausl.bologna.it...

Purtroppo esattamente la stessa cosa: [#Nome?] :-(.
Cmq grazie per l'interessamento.


title: Si possono confrontare le righe in un report?

author: LucaOZ

text:
Ho un report che mi visualizza le timbrature del personale con ragruppamento
per persona (cognome) e per data.
Capita spesso che un impiegato ha 2, 3 o anche 4 record in una stessa
giornata (entra e esce 2 o 3 volte dalla ditta).
Nel report ho la necessità di andare a sommare le ore di presenza di alcune
persone e per fare questo devo confrontare l'ora di entrata e l'ora di
uscita di alcune righe (quelle con timbratice= A1).
I dati a disposizione sono come in questo esempio:
ID      Data          Impiegato      timbratice      oraentrata
orauscita  tempo
001    07/07/03      Pippo              A1                08.25        12.35
4.10
002    07/07/03      Pippo              A1                13.25        14.33
1.08
003    07/07/03      Pippo              A2                14.00        14.33
0.33
004    07/07/03      Pippo              A2                15.55        18.30
2.35
005    07/07/03      Pluto               A1                 08.25
12.35      4.10
Io dovrei confrontare l'ora di entrata e di uscita della prima riga con
quelle della seconda (cioè solo le righe con timbratice = A1)
Lo posso fare in un report?
Dovrei mettere questo valore nell'intesazione del ragruppamento per
Impiegato in modo da sapere il totale di presenza di quell'impiegato
registrate su quella timbratice.
Ho provato con una formula del tipo:
   " =IIf([timbratice]="A1";(Somma([tempo])))"
però così in pratica controlla il valore del campo timbratice del primo
record di quel gruppo, se il valore è A1 allora mi fa la somma di tempo di
tutte le righe di quel gruppetto. Se invece nel primo record non c'è A1 non
mi somma niente.
Altra cosa: se vado a calcolare il totale di presneza di quella persona
sommando le ore registrate da tutte le timbratrici dovrei confrontare ora di
entrata e di uscita di ogni riga. Per esempio dovrei andare a confrontare le
ore di entrata e uscita di riga 2 e 3 (ci sono 33 minuti sulla timbratrice
A2 contemporanei alla timbratrice A1) e visto che sono contemporanei non
faglieli sommare.
Però dalle varie prove che ho fatto non posso dirgli qualcosa del tipo
  "
=IIf([oraentrataRiga1]<>[oraentratariga2]an[orauscitariga1]<>[orauscitariga2
]";(Somma([tempo])))"
Spero di essere stato chiaro  (ma ne dubito)..
ciao e grazie
Luca


text:
"LucaOZ" <
luc...@libero.it
> ha scritto nel messaggio
news:bejd7u$63k$1...@newsreader.mailgate.org...
> Io dovrei confrontare l'ora di entrata e di uscita della prima riga con
> quelle della seconda (cioè solo le righe con timbratice = A1)
> Lo posso fare in un report?
> Dovrei mettere questo valore nell'intesazione del ragruppamento per
> Impiegato in modo da sapere il totale di presenza di quell'impiegato
> registrate su quella timbratice.
> Ho provato con una formula del tipo:
>    " =IIf([timbratice]="A1";(Somma([tempo])))"
> però così in pratica controlla il valore del campo timbratice del primo
> record di quel gruppo, se il valore è A1 allora mi fa la somma di tempo di
> tutte le righe di quel gruppetto. Se invece nel primo record non c'è A1
non
> mi somma niente.
Hmmm....
ma scusa, se metti nel piè di gruppo timbratrice =Somma(tempo), per ogni
gruppo ti somma solo i tempo di quel gruppo. Se il gruppo non esiste, non ci
sarà nulla.
> Altra cosa: se vado a calcolare il totale di presneza di quella persona
> sommando le ore registrate da tutte le timbratrici dovrei confrontare ora
di
> entrata e di uscita di ogni riga. Per esempio dovrei andare a confrontare
le
> ore di entrata e uscita di riga 2 e 3 (ci sono 33 minuti sulla timbratrice
> A2 contemporanei alla timbratrice A1) e visto che sono contemporanei non
> faglieli sommare.
ALT!
A parte che ti consiglio di separare i quesiti in due thread distinti, il
problema della normalizzazione delle timbrature è molto complicato, almeno
per la mia esperienza, e sicuramente non lo gestisci con una query o con un
report.
In questi casi ci vuole prima una bella passata di codice che fa tutti i
test e prevede tutti i casi anomali e li risolve di conseguenza!!!
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:VYbPa.163320> > Ho provato con una formula del tipo:
> ma scusa, se metti nel piè di gruppo timbratrice =Somma(tempo), per ogni
> gruppo ti somma solo i tempo di quel gruppo. Se il gruppo non esiste, non
ci
> sarà nulla.
Questo posso farlo però nel gruppo ci sono record con trimbatrice=A1 e con
trimbatrice = A2 e io vorrei sommare solo i tempi dove il valore è A1.
Non vorrei raggruppare anche in base alla timbatrice (non vorrei però se
devo lo faccio....).
> In questi casi ci vuole prima una bella passata di codice che fa tutti i
> test e prevede tutti i casi anomali e li risolve di conseguenza!!!
All'inizio speravo di risolverla più facilmente e invece si è rivelato un
bel casino.
Posso fare una passata di codice solo che diventerebbe un po lunghetto
perchè ci sono mille (che numero!! :-))
dicevo ...ci sono mille record e fare tutti i controlli richiede tempo.
Per adesso potresti solo dirmi se si può fare il confronto che dicevo? cioè
=IIf([oraentrataRiga1]<>[oraentratariga2]an[orauscitariga1]<>[orauscitariga2
]";(Somma([tempo])))"
Hai esperienza anche sulle TimeCard?
ciao e grazie ancora
Luca


text:
"LucaOZ" <
luc...@libero.it
> ha scritto nel messaggio
news:bejq6g$tif$1...@newsreader.mailgate.org...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:VYbPa.163320> > Ho provato con una formula del tipo:
> > ma scusa, se metti nel piè di gruppo timbratrice =Somma(tempo), per ogni
> > gruppo ti somma solo i tempo di quel gruppo. Se il gruppo non esiste,
non
> ci
> > sarà nulla.
>
> Questo posso farlo però nel gruppo ci sono record con trimbatrice=A1 e con
> trimbatrice = A2 e io vorrei sommare solo i tempi dove il valore è A1.
E allora non vedo dove fosse il problema...
> > In questi casi ci vuole prima una bella passata di codice che fa tutti i
> > test e prevede tutti i casi anomali e li risolve di conseguenza!!!
>
> All'inizio speravo di risolverla più facilmente e invece si è rivelato un
> bel casino.
> Posso fare una passata di codice solo che diventerebbe un po lunghetto
> perchè ci sono mille (che numero!! :-))
> dicevo ...ci sono mille record e fare tutti i controlli richiede tempo.
Guarda che i programmi servono proprio per automatizzare controlli
complicati.
Una volta scritta la funzione, per complicata che sia, che la applichi su
uno, 1000 o 1 miglione di record, non cambia nulla!
> Per adesso potresti solo dirmi se si può fare il confronto che dicevo?
cioè
>
=IIf([oraentrataRiga1]<>[oraentratariga2]an[orauscitariga1]<>[orauscitariga2
> ]";(Somma([tempo])))"
Non puoi confrontare record diversi nella stessa espressione
>
> Hai esperienza anche sulle TimeCard?
Ho esperienza su controllo anomalie di timbratura...
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:PAePa.162323> >
> > Questo posso farlo però nel gruppo ci sono record con trimbatrice=A1 e
con
> > trimbatrice = A2 e io vorrei sommare solo i tempi dove il valore è A1.
>
> E allora non vedo dove fosse il problema...
Il problema è che nell'intestazione del gruppo non riesco a dirgli di
sommare il tempo solo dei record che hanno valore A1.
> Una volta scritta la funzione, per complicata che sia, che la applichi su
> uno, 1000 o 1 miglione di record, non cambia nulla!
Volevo dire che richiede tempo l'esecuizione di questa funzione; quindi per
avere il report l'utente dovrebbe attendere un po di tempo.
>
=IIf([oraentrataRiga1]<>[oraentratariga2]an[orauscitariga1]<>[orauscitariga2
> > ]";(Somma([tempo])))"
> Non puoi confrontare record diversi nella stessa espressione
Proprio quello che temevo.
ciao
Luca


text:
"LucaOZ" <
luc...@libero.it
> ha scritto nel messaggio
news:bejvv7$8lr$1...@newsreader.mailgate.org...
>
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:PAePa.162323> >
> > > Questo posso farlo però nel gruppo ci sono record con trimbatrice=A1 e
> con
> > > trimbatrice = A2 e io vorrei sommare solo i tempi dove il valore è A1.
> >
> > E allora non vedo dove fosse il problema...
>
> Il problema è che nell'intestazione del gruppo non riesco a dirgli di
> sommare il tempo solo dei record che hanno valore A1.
Crea un campo calcolato nell'origine record del report fatto così
=iif(trombatrice="A1";tempo;0)
e poi fai la somma di questo campo calcolato nel report...
> > Una volta scritta la funzione, per complicata che sia, che la applichi
su
> > uno, 1000 o 1 miglione di record, non cambia nulla!
>
> Volevo dire che richiede tempo l'esecuizione di questa funzione; quindi
per
> avere il report l'utente dovrebbe attendere un po di tempo.
Non credere che ci voglia poi così tanto tempo...
> >
>
=IIf([oraentrataRiga1]<>[oraentratariga2]an[orauscitariga1]<>[orauscitariga2
> > > ]";(Somma([tempo])))"
> > Non puoi confrontare record diversi nella stessa espressione
>
> Proprio quello che temevo.
Scrivendo codice però lo puoi fare...
Antonio


text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:DUfPa.162616$Ny5.4...@twister2.libero.it...
> Crea un campo calcolato nell'origine record del report fatto cosě
> =iif(trombatrice="A1";tempo;0)
> e poi fai la somma di questo campo calcolato nel report...
In effetti posso fare cosě risolvendo facilmente. Inizialmente pensavo di
poter risolvere tutto con un semplice iif in un campo.
Comunque qui si timbra e non si trom...  :-))
> Non credere che ci voglia poi cosě tanto tempo...
Proverň, appena scrivo tutto il codice provo.
ciao
Luca


title: casella combinata che cambia valori in tabella

author: monkeyna

text:
Allora... cerco di essere chiara, il problema è un po' contorto:
ho una maschera che dovrebbe permettere all'utente la SOLA
VISUALIZZAZIONE di dati contenuti in 3 diverse tabelle tra loro
collegate. Selezionati alcuni valori dalla maschera composta di:
3 caselle di testo;
2 caselle di testo dove digitare due date di un intervallo temporale;
1 casella combinata che riepiloga i valori di una colonna di una
tabella,
l'utente dovrebbe premere un pulsante e in base ai valori in quel
momento visulizzati sulla maschera (quindi contenuti nelle caselle di
testo e nella casella combinata) ed ottenere la creazione di un report.
Tutto funziona, il report è perfetto, solo che nella tabella che
contiene la colonna visualizzata come campo di riepilogo della casella
combinata viene modificato il valore e viene sostituito con il valore
selezionato dall'utente.
Penso che ci siano problemi con la query su cui ho costruito la
maschera... cmq una casella combinata che dovrebbe fungere solo da
riepilogo di valori di un campo di una tabella in realtà mi modifica
tali campi.
Spero di essere stata chiara...
grazie in anticipo, Barbara


author: Prometeo

text:
monkeyna ha scritto:

> grazie in anticipo, Barbara
Ciao Barbara
Hai verificato se per caso la casella combinata non sia associata al campo
della tabella?
Cioè nelle proprietà dei dati della casella combinata, la riga [Origine
controllo]deve essere vuota ed in modalità struttura dentro alla casella
combinata devi leggere: [Non associato].
Saluti
Luigi
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
> Cioè nelle proprietà dei dati della casella combinata, la riga [Origine
> controllo]deve essere vuota ed in modalità struttura dentro alla casella
> combinata devi leggere: [Non associato].
> Saluti
> Luigi
mi sono di nuovo persa in un bicchiere d'acqua! Grazie Luigi, ora tutto
funziona alla perfezione! ;)
Barbara


author: MA

text:
Prometeo wrote:
> Saluti
> Luigi
Oilalà...
Chi si rivede...
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


text:
MA ha scritto:
> Prometeo wrote:
> > Saluti
> > Luigi
> Oilalà...
> Chi si rivede...
Ciao Massimiliano
Eh sì, sono sparito per un bel pò, anche se ogni tanto un'occhiata al Ng
l'ho data e oggi colto da irresistibile nostalgia di fine estate ...
Cari saluti a te e a tutto il Newsgroup.



title: Blocccare una form

author: Corrado

text:
E' possibile bloccare una form (non in termini di dimensione ma in termini
di posizione) in access?
Vorrei poter aprire una form ed impedire che l'utente possa spostarla.
Corrado


title: Blocccare una form

text:
"Corrado" <
ne...@iol.it
> wrote in message
news:Dqb0e.16867$
kC3...@tornado.fastwebnet.it

Si, ci sono 2 metodi per farlo:
1)Subcalssare la Form ed imedirne lo spostamento
  la tecnica è complessa, trovi un esempio sul mio sito
  alla sezione [API] FAQ 1.0 o 1.1 a seconda di che versione
  di access usi.

http://www.mantuanet.it/alessandro.baraldi/
2)Metti lo stile bordo a Nessuno, disegni un rettangolo
  a dimensione di Form in rilievo per riprodurre il Bordo
  che verrebbe reso piatto, quindi metti un rettangolo
  Blu in alto ed un pulsantino di chiusura.
Ti consiglio vivamente la 2° per semplicità.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Access97 & Windows XP

author: sd

text:
Salve a tutti,
ieri ho provato per 4/5 volte ad installare Access 97
su un computer con S.O. Windows XP ma
non si installa anche se l0installazione sembra
corretta.
C'è qualche incompatibilità trai due prodotti?
grazie
sdamy


title: Access97 & Windows XP

author: All Eyez On me

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
news:a6n5mq$q4f$1...@pegasus.tiscalinet.it...

io ho sia access97 che accessXp sul pc con windows97 e tutto funziona


title: Access97 & Windows XP

text:
"All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
news:a6nmf4$sba$1...@pegasus.tiscalinet.it...

io intendevo Windows XP con Access 97....


title: Access97 & Windows XP

author: Sib

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
> "All Eyez On me" <
bf-si...@libero.it
> ha scritto nel messaggio
> > "sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
> > > Salve a tutti,
> > >
> > > ieri ho provato per 4/5 volte ad installare Access 97
> > > su un computer con S.O. Windows XP ma
> > > non si installa anche se l0installazione sembra
> > > corretta.
> > >
> > > C'è qualche incompatibilità trai due prodotti?
No
> > io ho sia access97 che accessXp sul pc con windows97 e tutto funziona
> io intendevo Windows XP con Access 97....
Io le ho provate tutte:
A97 su W98/W2000/WXP
Non riesco ad avere problemi.
Qual e' il problema che incontri, che vuol dire non si installa?
Sib


title: Access97 & Windows XP

text:
"Sib" <si...@SPAMMiol.it> ha scritto nel messaggio
news:1PLj8.63233$Ns4.2...@news2.tin.it...

Avevo installato A2K, l'ho tolto e poi ho ripetutamente
provato ad installare A97 ma alla fine non trovo nè l'icona
nè il file msaccess.exe ricercandolo in c:
ciao ciao
sdamy


title: Access97 & Windows XP

text:
"sd" <
sd...@tiscalinet.it
> ha scritto nel messaggio
CUT
> Avevo installato A2K, l'ho tolto e poi ho ripetutamente
> provato ad installare A97 ma alla fine non trovo nè l'icona
> nè il file msaccess.exe ricercandolo in c:
Sei loggato come amministratore, vero?
Sib


title: Riposizionare modulo continuo

text:
Ciao
In un report a modulo continuo prestampato non riesco a riposizionare
il modulo nel punto
preciso della pagina successiva, in pratica dopo aver stampato il
numero massimo delle
righe stampambili  vorrei alzare il modulo di n righe per far si che
si posizioni dove voglio io,
sia nel caso che ci fosse una seconda pagina, sia nel caso che si
voglia stampare un nuovo
report senza doverlo fare a mano
Grazie a tutti


title: Riposizionare modulo continuo

author: Sergio MAZZA

text:
<
cosi...@gmail.com
> ha scritto nel messaggio
news:1ce6765b-19dc-42cf...@h5g2000yqh.googlegroups.com...

Io lo facevo inviando sequenze di codici ESCAPE, compatibili alla
stampante...
Ciao.
--
Sergio MAZZA


title: Riposizionare modulo continuo

text:
On 5 Dic, 11:38, "Sergio MAZZA" <
sergioma...@tiscali.it
> wrote:
> <
cosim...@gmail.com
> ha scritto nel messaggionews:1ce6765b-19dc-42cf...@h5g2000yqh.googlegroups.com...

Grazie Sergio ma nel mio non mi ero accorto che il modulo non è A4 ma
21,5 x 30,4
Ciao


title: MDB rovinati Access 2003

text:
Sono passato da poco alla programmazione con Access 2003.
Sto sviluppando una normale applicazione con maschere e codice VBA.
Durante la normale progettazione (maschere o codice) mi è capito (alcune
volte) che, dopo aver salvato la maschera, non mi si apra più in modalità
normale (Apri) ma solo in progettazione (la maschera...).
Quando provo ad aprirla, Access mi va in errore proponendo di ripartire
compattando il database.
Anche se compatto il database il problema rimane. Per correggere l'anomalia
devo riaprire la form in struttura, fare una modifica e poi salvare!
Vi è mai capitato?
Cosa si può fare per prevenirlo? (Ho paura che una delle prossime volte il
mio metodo di correzione non funzioni e perda parte del lavoro
effettuato)!!!
Grazie
Roberto


title: DLookup: come si usa????

author: alexb

text:
Salve a tutti. ad una mia precedente richiesta mi è stato risposto di
utilizzare la funzione DLookup. Ma come???
In pratica nella maschera ORDINI vorrei inserendo semplicemente il codice
cliente (es. 10) che mi escano i campi NOMECLI, PIVA in automatico.
Scusate la mia ignoranza. Ciao


title: DLookup: come si usa????

author: Antonio Biso

text:
alexb <
a...@tin.it
> wrote in message mVVD6.1558$o3.1...@news2.tin.it...
> Salve a tutti. ad una mia precedente richiesta mi è stato risposto di
> utilizzare la funzione DLookup. Ma come???
>
> In pratica nella maschera ORDINI vorrei inserendo semplicemente il codice
> cliente (es. 10) che mi escano i campi NOMECLI, PIVA in automatico.
Sull'evento dopo aggiornamento del controllo dove inserisci il codice,
chiamato esempio cod_cli scriverai
criterio = "[codice_cliente]='" & cod_cli & "'"
nome_cli = dlookup("[NOMECLI]","tua_tab_dati",criterio)
p_iva  = dlookup("[PIVA]","tua_tab_dati",criterio)
dove p_iva e nome_cli sono i nomi dei controlli sulla maschera.
Due note:
1) il criterio è stato fatto in modo che il valore da confrontare sia
circondato da apici. Questo vale se il valore è di tipo testo. Se è
numerico, allora gli apici non vanno messi.
2) In questo modo si fanno due dlookup. in generale tu potresti volere anche
altri campi e quindi dovresti fare tante altre dlookup. Se la tab_dati è
pesante, il calcolo potrebbe essere eccessivo. Si può risolvere in due modi,
uno mantenendo la struttura della maschera con l'inserimento del codice
cliente in una casella di testo, l'altro usando una combo.
caso 1) utilizziamo il metodo findfirst dei recordset. Puntiamo al record
desiderato che a quel punto ha tutti i valori disponibili senza dover
rieseguire tante volte la ricerca.
set rst = currentdb.openrecordset("Tua_tab_dati",dbopendynaset)
criterio = "[codice_cliente]='" & cod_cli & "'"
rst.findfirst criterio
nome_cli = rst.fields("NOMECLI")
p_iva = rst.fields("PIVA")
... altri campi
rst.close
set rst = nothing
caso 2) Inserisci nella maschera una combo che ha come origine riga una
query sulla tabella dati che prende tutti i campi. Il numero di colonne sarà
quello dei campi selezionati, però la dimensione colonne sarà x cm (x
sufficiente) per il campo codice è 0 cm per tutti gli altri. Al dopo
aggiornamento della combo userai la proprietà column per scrivere tutti i
valori del record scelto cioè
nome_cli = combo.column(1)
p_iva = combo.column(2)
e così via
Antonio


title: DLookup: come si usa????

text:
Scusa ancora ma il dlookup proprio non mi funziona. Allora ho provato con
una combo e mi va bene. ma se per esempio inserisco prima un cod_cliente e
poi lo cambio il campo (nomecli, piva) non si aggiornano più. Ho inserito
l'istruzione anche su modifica. ma niente. solo alcune volte lo cambia.
Grazie



title: DLookup: come si usa????

text:
alexb <
alexb...@libero.it
> wrote in message
9bphos$fto$1...@lacerta.tiscalinet.it...
> Scusa ancora ma il dlookup proprio non mi funziona. Allora ho provato con
> una combo e mi va bene. ma se per esempio inserisco prima un cod_cliente e
> poi lo cambio il campo (nomecli, piva) non si aggiornano più. Ho inserito
> l'istruzione anche su modifica. ma niente. solo alcune volte lo cambia.
> Grazie
Prima di tutto scrivi DOPO il quoting
Non ho capito in che caso non funziona: quello con la casella di testo e
l'uso della dlookup o del recordset?
Che tipo di codice hai scritto e dove?
Antonio


title: Individuare testo in maiuscolo in una stringa

author: Salvatore

text:
Ciao
ho la necessitą di individuare, in una stringa di testo, la posizione
dell'ultima lettera scritta in carattere maiuscolo, tenendo conto che la
parte in maiuscolo costituisce la parte iniziale della stringa.
Grazie
Salvatore


author: ALESSANDRO Baraldi

text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:c2ftpl$3tb$1...@lacerta.tiscalinet.it...
> Ciao
> ho la necessità di individuare, in una stringa di testo, la posizione

Ti devi armare di pazienza ed eseguire un ciclo nella stringa
confrontando il valore ASCII della lettera se compreso tra 65÷90.
Una cosa del genere, prendila con il beneficio d'inventario
non l'ho provata........!
Pubilic Function retLastUP(strIn as string) as integer
    dim intLen as integer
    dim x as integer
    dim intPosUP as integer
    dim s as string
    intLen=Len(strIn)
    for x=1 to intLen
        s=mid$(strIn,x,1)
        If ASC(s)<91 AND ASC(s)>64 then intPosUp=x
    next
    retLastUP=NZ(intPosUp,0)
End Function
Ciao.
@Alex.


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c2fucg$4an$1...@lacerta.tiscalinet.it...

Ciao, Alex e grazie.
Ho modificato leggermente il codice perchè mi interessava interromperlo alla
prima lettera minuscola trovata (dovevo trasformare un prezzario e, per
convenzione, la parte iniziale della voce è scritta tutta in maiuscolo). Il
codice modificato è questo:
Function retLastUP(strIn As String) As Integer
    Dim intLen As Integer
    Dim x As Integer
    Dim intPosUP As Integer
    Dim s As String
    intLen = Len(strIn)
    For x = 1 To intLen
        s = Mid$(strIn, x, 1)
        If Asc(s) > 91 Then
        intPosUP = x
        Exit For
        End If
    Next
    retLastUP = Nz(intPosUP, 0)
End Function
Ho dovuto, poi, con una query eliminare (in certi casi) le virgole ed i
punti finali.
Grazie ancora
Salvatore


text:
"Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
news:c2i4pf$387$1...@lacerta.tiscalinet.it...

Bene, ma a mio avviso hai commesso un'imprudenza:
If Asc(s) > 91 Then
Con questo tipo di controllo non esegui una verifica corretta
ti consiglio di verificare la tabella delle corrispondenze ASCII
per vedere cosa hai preso in considerazione.
Ciao.
@Alex.


text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:c2iabq$8rg$1...@lacerta.tiscalinet.it...
>
> "Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
> news:c2i4pf$387$1...@lacerta.tiscalinet.it...
> >
> > "ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
> > news:c2fucg$4an$1...@lacerta.tiscalinet.it...
> > >
> > > "Salvatore" <
sal...@tiscali.it
> ha scritto nel messaggio
> > > news:c2ftpl$3tb$1...@lacerta.tiscalinet.it...
> > > > Ciao
> > > > ho la necessità di individuare, in una stringa di testo, la
posizione
> > > > dell'ultima lettera scritta in carattere maiuscolo, tenendo conto
che
> la
> > > > parte in maiuscolo costituisce la parte iniziale della stringa.
> > > > Grazie
> > > > Salvatore
[cut]
> >         If Asc(s) > 91 Then
> >         intPosUP = x
> >         Exit For
> >         End If
> >     Next
> >     retLastUP = Nz(intPosUP, 0)
> > End Function
> >
> > Ho dovuto, poi, con una query eliminare (in certi casi) le virgole ed i
> > punti finali.
> > Grazie ancora
> > Salvatore
>
>
> Bene, ma a mio avviso hai commesso un'imprudenza:
> If Asc(s) > 91 Then
> Con questo tipo di controllo non esegui una verifica corretta
> ti consiglio di verificare la tabella delle corrispondenze ASCII
> per vedere cosa hai preso in considerazione.
>
> Ciao.
> @Alex.
Ho controllato, ma non ho riscontrato anomalie nel testo estrapolato.
C'è un errore, nel senso che anche il carattere 91 ( [ ) andava escluso, ma
fortunatamente non era presente nel testo.
In ogni caso dopo il carattere 90 non ci sono elementi validi da prendere in
considerazione, in quanto tutti i segni di punteggiatura più usati (virgole,
parentesi, punti ecc.) hanno anche un codice precedente.
Se ritieni che ci siano altri errori ti sarei grato se me li segnalassi.
Ciao
Salvatore


title: Simbolo Euro

author: Alessandro Galli

text:
Salve a tutti.
Qualcuno sa se esiste la possibilità di mostrare il simbolo dell'euro
anzichè quello della lira
nella formattazione dei campi numerici in Access 97 ?
Grazie
Alessandro Galli
EDS-Italia


title: Simbolo Euro

author: LaLo

text:
"Alessandro Galli" <
us.proge...@sanpaoloimi.com
> ha scritto nel
messaggio news:92vccg$464m$1...@stargate1.inet.it...

Hai provato sulle impostazioni internazionali (oppure opzioni internazionali
su Win2k) del pannello di controllo? Alla voce valuta trovi il simbolo che
la rappresenta.
Ciao
LaLo


title: Simbolo Euro

text:
> Hai provato sulle impostazioni internazionali (oppure opzioni
internazionali
> su Win2k) del pannello di controllo? Alla voce valuta trovi il simbolo che
> la rappresenta.
> Ciao
> LaLo
>
>
Grazie funziona !


title: Re: [qry] prestazioni nell'apertura di una form

text:
"massimo" <n...@send.invalid> ha scritto nel messaggio
news:Xns958ED840...@news.inwind.it...
> Ho una maschera quadro principale. Ho anche una form "viewer" con
> origine dati una query. Se apro la form viewer sulla base di un
> parametro che gli passo da un controllo della maschera principale (ad
> esempio digito "rossi" e mi trova "rossi paolo" "rossi ugo" e
> "rossini diego") e i record sono più di uno, vorrei che aprisse
> un'altra form a maschere continue ("serie") in popup che raccolga
> l'intera selezione. La maschera di popup opera un po' come un browser
> con delle cartelle da visualizzare all'interno della form viewer.
>
> Ho già fatto tutto. Con qualche limite da parte mia.
>
> Nella maschera quadro ho inserito un select case che prima conta i
> record con Dcount in relazione ai criteri (strCriteri) che gli ho
> passato attraverso l'update di un controllo. Poi, dopo aver contato
> i record:
> a. avvisa l'utente se non ne trova;
> b. apre direttamente "viewer" se trova un solo record;
> c. apre "serie" in maschere continue e, sull'attivazione del primo
> controllo, visualizza il record corrispondente aprendo "viewer",
> permettendo all'utente di scegliere anche gli altri record.
>
> Sulla maschera principale ho fatto così...
>     Select Case DCount("*", "qrypass", strCriteri)
>     Case Is = 0
>         MsgBox ("Pratica non presente")
>     Case Is = 1
>         stDocName = "viewer"
>         DoCmd.OpenForm stDocName, acNormal, , strCriteri
>     Case Is > 1
>         stDocName = "serie"
>         DoCmd.OpenForm stDocName, acNormal, , strCriteri
>     End Select
>
> Il limite è la lentezza. In stand alone non ci sono grossi problemi,
> ma si nota il frullare del disco. In multiutenza invece va molto più
> piano. La domanda è... cosa posso fare per migliorare le prestazioni?
Innanzitutto hai strutturato correttamente le tabelle ed indicizzato i
campi in modo adeguato....???
L'indicizzazione è FONDAMENTALE soprattutto nei casi di ricerca...!
> Rimanendo con questa struttura di base (forse un po' arzigogolata)
> potrei fare in modo di ridurre i tempi ricorrendo a una sola funzione
> di aggregazione di domini? E' possibile fare ciò con DAO? In altri
> termini, avete qualche consiglio per mettermi in carreggiata vista la
> mia imbranataggine con recordset e roba varia?
Le funzioni di aggregazione sui Domini iniziano a dare rallentamenti
quando la mole di dati è considerevole.... >20.000 per dire un numero
banale....!!!
In ogni caso se ti serve solo contare l'estrazione di un Reocrdset
in questo modo:
Dim rs as DAO.Recordset
Set rs=CurrentDb.Openrecordset("SELECT COUNT(*) AS Conteggio From
NomeTabella",dbreadonly)
Msgbox "Numero Records = " & rs!Conteggio
Ciao.
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: Differenza tra gg

author: Gianlu

text:
Ciao a tutti
Ho un campo numerico chiamato ORE dove inserisco il numero delle ore di
lavoro auttale di un macchinario es. 125.000, ho un secondo campo numerico
chiamato ORECAMBIO, dove inserisco il numero delle ore che dovranno
trascorrere per il prossimo cambio olio, ho un campo data/ora chiamato
PROSSIMOCAMBIO dove mi dovrebbe apparire la data del prossimo cambio olio in
formato gg/mm/aaaa, non riesco proprio a fargli fare questo calcolo!!!!!
Help


title: Differenza tra gg

author: Alessandro Baraldi

text:
Gianlu ha scritto:

Ovviamente dovrai sommare solo il differenziale delle ore di
funzionamento, e dovrai effettuare la somma del differenziale alla Data di
intervento di manutenzione.
La funzione da usare è DateAdd("h",DifferenzialeOre,DataIntervento)
Ciao
@Alex
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Differenza tra gg

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f2hqmp$l3v$1...@news.newsland.it...
> Gianlu ha scritto:
>
>> Ciao a tutti
>> Ho un campo numerico chiamato ORE dove inserisco il numero delle ore di
>> lavoro auttale di un macchinario es. 125.000, ho un secondo campo
>> numerico
>> chiamato ORECAMBIO, dove inserisco il numero delle ore che dovranno
>> trascorrere per il prossimo cambio olio, ho un campo data/ora chiamato
>> PROSSIMOCAMBIO dove mi dovrebbe apparire la data del prossimo cambio olio
>> in
>> formato gg/mm/aaaa, non riesco proprio a fargli fare questo calcolo!!!!!
>> Help
>
>
> Ovviamente dovrai sommare solo il differenziale delle ore di
> funzionamento, e dovrai effettuare la somma del differenziale alla Data di
> intervento di manutenzione.
>
> La funzione da usare è DateAdd("h",DifferenzialeOre,DataIntervento)
>
Grazie Ale funziona benissimo!!!!
Ciao
Gian
>
>


title: Funzione per leggere Xml

author: RobertoA

text:
Mi consigliate un frammento di codice per leggere efficacemente un xml,
tipo le notifiche e le fatture ricevute che arriveranno da sdi?
Quello che vorrei fare, ad esempio sul file di esempio
IT01234567890_11111_NS_001.xml, e' realizzare una funzione del tipo

dummy=leggi_xml("RiferimentoArchivio/IdentificativoSdi")

Vorrei capire se per arrivare al contenuto del nodo desiderato bisogna
solamente scorrere tutti i nodi precedenti oppure e' disponibile una
funzione specifica per recuperare le informazioni all'interno del file
stesso, fornendo il 'percorso' per arrivare valore del nodo desiderato


title: Funzione per leggere Xml

text:
DOM consente di creare proprio i TAG in modo estremamente efficace e rapido... trovi un sacco di esempi in rete.
Questo i primi che mi sono capitati:
http://www.vbaexpress.com/forum/showthread.php?36004-DOM-Searching-only-the-tags-embedded-within-one-particular-div-tag

https://stackoverflow.com/questions/40282180/vba-dom-get-elements-based-on-attribute

Ovviamne LATEBINDING sulla libreria è obbligo.

Ma anche se carichi il documento come testo integrale con Fso usando ReadAll ed i metodi per fare ricerca...

Chiaramente se leggi il file da VBA devi fare uno scan riga per riga, ed anche questo è un ottimo metodo.

Volendo per gli appassionati di classi... potresti implementare una classe VBA di parsing che, leggendo il file XML espone poi i tags e gli attributi...
Questa ultima opzione di solito non la fa nessuno in vba... ma io farei proprio questa
:-)

@Alex


title: Invio by mail di report

author: Jef

text:
Qundo invio un report per mail con Docmd. sendobject il file allegato è
sempre un xxxxxx.tmp.
Si può dare un nome al file allegato ? nella fattispecie yyy.snp ?
Grazie


title: Invio by mail di report

author: OndaMax

text:
Jef <
j...@libero.it
> wrote in message ...
> Qundo invio un report per mail con Docmd. sendobject il file allegato è
> sempre un xxxxxx.tmp.
>
> Si può dare un nome al file allegato ? nella fattispecie yyy.snp ?
Azz .. non dovrebbe comportarsi così ...
Hai provato a mettere acFormatSNP come output format ?
OndaMax


title: Creazione di una Query su misura!

author: Roberto Bisciaio

text:
SAlve a tutta la ML!
Da qualche giorno mi sto martellando il cervello sulla creazione di una
query che mi consenta di riportare la somma di alcuni campi di  records che
rispondono a un determinato criterio. Esempio:
HO una tabella dove immetto tutti i servizi da fatturare, in un campo
immetto il numero, in un altro campo immetto l'importo, in un altro la data,
etc.... Ora, siccome + records possono avere lo stesso numero di fattura,
VOLEVO COSTRUIRE UNA QUERY DOVE OGNI RECORDS RAPPRESENTI UN NUMERO DI
FATTURA E IL TOTALE DEGLI IMPORTI CHE NELLA TABELLA HANNO LO STESSO NUMERO
DI FATTURA.
Nella speranza che qualcuno mi dia una mano, vi ringrazio immensamente.
--
Posted from
velthur.krenet.it
 [194.143.128.45]
via Mailgate.ORG Server -
http://www.mailgate.org


title: Creazione di una Query su misura!

author: JBad

text:
In article <
2000011220...@velthur.krenet.it
>,
robe...@krenet.it

says...

Devi attivare le formule nella query, dopodichè il campo numero
(anche quello data) andrà impostato a "raggruppamento" e quello importo a
"somma".
Ciao.


title: Impostazioni parametri query: ci sto perdendo la testa!

author: vuLCan Karayan

text:
Ho una tabella cosě strutturata
IDRecord
Mese
Anno
ID Record č un contatore
Mese č un integer 00
Anno č un integer 0000
Se voglio creare una query per i valori inclusi, che so, da 10/2002 a
01/2004 come devo fare?
Ho impostato i criteri con i ">=" ma vengono (ovviamente) ignorati i mesi 2,
3, 4 ecc.
E' una tabella che non mi appartiene e non posso ristrutturarla.
Tnx


author: Karl Donaubauer

text:

Puoi creare un campo calcolato con una data intera:
DateSerial(Anno;Mese;1)
Se ci sono record senza valore per Mese o Anno puoi
evitare un errore con:
IIf([Anno]+[Mese];DateSerial([Anno],[Mese];1))
Come criterio per questo campo anche devi usare date
intere come 1/1/2004 ecc.
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it
 + CISA1, Arezzo, 4+5/6/2005
la prima Conferenza Italiana per Sviluppatori di Access


text:

Risolto.
Potrebbe servire ad altri:
SELECT Schede.IDRecord,
FROM Schede
WHERE (((Schede.Anno)=([Forms]![ImpreseStatusAggiornamento]![Anno1])) AND
((Schede.CodiceMese) Between ([Forms]![ImpreseStatusAggiornamento]![Mese1])
And 12)) OR (((Schede.Anno)>([Forms]![ImpreseStatusAggiornamento]![Anno1])
And (Schede.Anno)<([Forms]![ImpreseStatusAggiornamento]![Anno2])) AND
((Schede.CodiceMese) Between 1 And 12)) OR
(((Schede.Anno)=([Forms]![ImpreseStatusAggiornamento]![Anno2])) AND
((Schede.CodiceMese) Between 1 And
([Forms]![ImpreseStatusAggiornamento]![Mese2])))
ORDER BY Schede.Anno, Schede.CodiceMese;


text:
> Puoi creare un campo calcolato con una data intera:
> DateSerial(Anno;Mese;1)
Grazie Karl, ma mi occorreva un parametro per la query.
Ho risolto con il caro e vecchio algoritmo "foglio e penna" :)
Leggi il mio msg sopra.
Ciao


text:

Se capisco bene cosa fai e per avere un criterio più breve,
puoi cambiare il criterio nel campo calcolato che ho suggerito a:
Between
DateSerial(Forms!ImpreseStatusAggiornamento!Anno1,
Forms!ImpreseStatusAggiornamento!Mese1,1)
And
DateSerial(Forms!ImpreseStatusAggiornamento!Anno2,
Forms!ImpreseStatusAggiornamento!Mese2,1);



text:
Karl Donaubauer wrote:
> vuLCan Karayan wrote:
>>> Puoi creare un campo calcolato con una data intera:
>>> DateSerial(Anno;Mese;1)
>>
>> Grazie Karl, ma mi occorreva un parametro per la query.
>> Ho risolto con il caro e vecchio algoritmo "foglio e penna" :)
>>
>> Leggi il mio msg sopra.
>
> Se capisco bene cosa fai e per avere un criterio più breve,
> puoi cambiare il criterio nel campo calcolato che ho suggerito a:
>
> Between
> DateSerial(Forms!ImpreseStatusAggiornamento!Anno1,
> Forms!ImpreseStatusAggiornamento!Mese1,1)
> And
> DateSerial(Forms!ImpreseStatusAggiornamento!Anno2,
> Forms!ImpreseStatusAggiornamento!Mese2,1);
Certo questo è la versione SQL. Nella visualizzazione
struttura della query devi sostituire , con ;
e togliere l'ultimo ; in ogni caso.


author: Alex NSB

text:

Naturalmente non ho avuto modo di verificare, ma ad occhio direi che non
funziona per ricerche nello stesso anno (tipo da 4/2003 a 11/2003).
Alessandro


text:
> Naturalmente non ho avuto modo di verificare, ma ad occhio direi che non
> funziona per ricerche nello stesso anno (tipo da 4/2003 a 11/2003).
No, Alessandro.
Funziona benissimo.
Sono tre casi OR.


text:
> No, Alessandro.
> Funziona benissimo.
> Sono tre casi OR.
Se vuoi posso inviarti uno ScreenShot della griglia della query per dare
un'occhiata.


text:

Ti ringrazio ma non è il caso: avevo solo dato uno sguardo superficiale al
codice.
Ma sei sicuro che non si faccia prima con qualcosa tipo:
SELECT IDRecord FROM Schede WHERE
Format(Anno,'0000') & Format(Mese,'00') BETWEEN
Format([Forms]![ImpreseStatusAggiornamento]![Anno1], '0000') &
Format([Forms]![ImpreseStatusAggiornamento]![Mese1], '00') AND
Format([Forms]![ImpreseStatusAggiornamento]![Anno2], '0000') &
Format([Forms]![ImpreseStatusAggiornamento]![Mese2], '00');
HTH.
Alessandro


title: da MDE a MDB

author: MauroP

text:
Qualcuno conosce il modo per per tornare da MDE a MDB, ho la necessità di
modificare alcuni report e alcune maschere
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: da MDE a MDB

author: Setec Astronomy

text:
MauroP wrote:
> Qualcuno conosce il modo per per tornare da MDE a MDB, ho la
> necessità di modificare alcuni report e alcune maschere
Il massimo che puoi recuperare e' la "struttura" delle form, niente
codice.
--
I am what I am, I do what I can


title: da MDE a MDB

author: Roberto da casa

text:
"MauroP" <
pal...@integraroma.it
> ha scritto nel messaggio
news:bu6gke$kk5$1...@news.newsland.it...
> Qualcuno conosce il modo per per tornare da MDE a MDB, ho la necessità di
> modificare alcuni report e alcune maschere
>
Non è possibile (fortunatamente).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: non riesco a collegarmi al server mysql

author: Brufaz

text:
Ho scaricato MySQL connector 3.51, configurato con i parametri giusti
(almeno spero), ma ogni tentativo di collegare delle tabelle termina con
il messaggio:
[MySql][ODBC 3.51 Driver]Can't connect to MySQL server on
'
mioserver.esempio.it
' (10060) (#2003)
Potreste suggerirmi cosa provare a fare? Grazie.


title: non riesco a collegarmi al server mysql

author: Silver

text:
Brufaz ha scritto:

dove risiede il server e come è configurato il firewall su quella macchina?
mioserver.esempio.it
 è un server pubblico o è un dns inserito nel tuo
file host?


title: non riesco a collegarmi al server mysql

text:
>
mioserver.esempio.it
 è un server pubblico o è un dns inserito nel tuo
> file host?
C'hai ragione anche tu, valeva la pensa di scrivere direttamente il nome
del server:
mysql5.netsons.org
.
Mi vien da pensare che però loro forse disabilitano l'accesso da remoto. :\
Magari è più opportuna in via preliminare questa domanda: ci sono
controindicazioni a usare Access come front end per un database MySQL
che risiede su un server pubblico?


title: WinFaxPro 10.0 symantec

author: Emyr

text:
Vorrei sapere se qualcuno di voi è riuscito ad integrare access con il
WinfaxPro 10.0 della symantec
personalmente con gli esempi del SDK sono riuscito trovare qualcosa:
Dim ObjWinFaxSend As Object
Set ObjWinFaxSend = CreateObject("Winfax.SDKSend8.0")
ObjWinFaxSend.SetCoverText ("Fax di Prova")
ObjWinFaxSend.SetNumber ("409")
ObjWinFaxSend.AddRecipient
ObjWinFaxSend.SetPrintFromApp (1)
ObjWinFaxSend.Send (0)
DoCmd.OpenReport "fax"
MsgBox "aspetto prima di chiudere"
con questo codice dovrei settare le opzioni per il fax da trasmettere
e poi lui dovrebbe usare come documento il primo che viene inviato al
driver di stampa,
invece lui non fa niente e resta in attesa,
il documento viene inviato allo spool di stampa e quindi eliminato, ma
winfax non fa nulla di visibile.
Suggerimenti?
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

author: Massimiliano

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
> Vorrei sapere se qualcuno di voi è riuscito ad integrare access con il
> WinfaxPro 10.0 della symantec
> personalmente con gli esempi del SDK sono riuscito trovare qualcosa:
Sul sito comune ci sono esempi che funzionano.
Ciao.


title: WinFaxPro 10.0 symantec

text:
On Tue, 25 Feb 2003 11:50:30 GMT, "Massimiliano" <
m...@nospam.it
>
wrote:

ma sono per winfax delrina e fax di windows non quello della symantec,
o sbaglio?
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:onqm5v8b4iif43c8c...@4ax.com...

Non sbagli?
Io uso WinFax PRO 10.02 della Symantec e non sono riuscito a trovare una
soluzione per inviare un fax con VBA; fra l'altro nel CD che mi è stato
fornito non c'è neppure la guida SDK (Software Development Kit) nè tanto
meno il relativo software da installare; non vorrei che esista la versione
Developer e la versione non Developer ed io ho acquistato quest'ultima, per
cui non riesco a realizzare ciò che mi serve.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: WinFaxPro 10.0 symantec

text:
>
>Non sbagli?
>Io uso WinFax PRO 10.02 della Symantec e non sono riuscito a trovare una
>soluzione per inviare un fax con VBA; fra l'altro nel CD che mi è stato
>fornito non c'è neppure la guida SDK (Software Development Kit) nè tanto
>meno il relativo software da installare; non vorrei che esista la versione
>Developer e la versione non Developer ed io ho acquistato quest'ultima, per
>cui non riesco a realizzare ciò che mi serve.
ti confermo, nella 10.02 non c'è nulla, nella 10.00 c'è tutto il SDK
penso tu possa anche scaricarlo dal sito della symantec, oppure se
vuoi te lo spedisco, chissà che in due ci si riesca.
Al momento penso di aggirare il problema (visto che devo mandare una
sola pagina) personalizzando una cover e spedendo quella.
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
> ma sono per winfax delrina e fax di windows non quello della symantec,
> o sbaglio?
Secondo me funzionano.
In fin dei conti si tratta di passare dei parametri DDE abbastanza standard
a una Printer installata da WinFax.
O forse è diversa la tua richiesta?
Ciao.


title: WinFaxPro 10.0 symantec

text:
On Wed, 26 Feb 2003 08:14:10 GMT, "Massimiliano" <
m...@nospam.it
>
wrote:

può anche darsi, però che parametri devo passare via dde e fra l'altro
supporta il dde?
nel SDK ci sono addirittura librerie per interfacciarsi e rifarsi un
programma personalizzato, ma non mi sembra funzionino a dovere, oppure
la documentazione è imprecisa....
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
> può anche darsi, però che parametri devo passare via dde e fra l'altro
> supporta il dde?
Io avevo recuperato l'esempio del S.C. e implementato in qualche .mdb quanto
segue, ha sempre funzionato.
Private Function InviaWinFax(FaxNum As String, NomeRpt As String,
Destinatario As String, Oggetto As String, Nome As String) As Boolean
  Dim strRecipient As String
  Dim DefPrn As String
  Dim lngChannelNumber As Long
  Dim strFaxStatus As String
  On Error GoTo InviaFax_Error
  If Nz(FaxNum) = "" Then
       FaxNum = InputBox("inserisci il numero di fax di " & Destinatario)
       If Nz(Trim(FaxNum)) = "" Then Exit Function
  End If
  DefPrn = GetDefaultPrinter                                'Setta la
stampante WinFax come predefinita
  If Not ChangePrn("WinFax") Then GoTo InviaFax_Exit
  strRecipient = Chr$(34) & FaxNum & Chr$(34) & "," & Chr$(34) & "" &
Chr$(34) & "," & _
    Chr$(34) & "" & Chr$(34) & "," & Chr$(34) & Nome & Chr$(34) & "," &
Chr$(34) & _
    Mid(Trim(Destinatario), 1, 42) & Chr$(34) & "," & Chr$(34) & Oggetto &
Chr$(34) '+ "," + Chr$(34) + "Sales" + Chr$(34) + "," + Chr$(34) + "Billing
Code 08" + Chr$(34) + "," + Chr$(34) + "Fax" + Chr$(34)
  lngChannelNumber = DDEInitiate("faxmng32", "CONTROL")   'Inizializza la
connessione DDE
  strFaxStatus = DDERequest(lngChannelNumber, "STATUS")   'Riceve e setta lo
stato della connessione DDE
   'Attende che il Fax non sia occupato (se necessario)
  While strFaxStatus Like "Busy*"
       strFaxStatus = DDERequest(lngChannelNumber, "STATUS")
  Wend
  lngChannelNumber = DDEInitiate("FAXMNG", "TRANSMIT")    'Setta il Numero
del canale come corrente canale DDE
  DDEPoke lngChannelNumber, "Sendfax", "recipient(" & strRecipient & ")"
  DoCmd.OpenReport NomeRpt, A_NORMAL
  InviaWinFax = True
InviaFax_Exit:
    DDETerminateAll              'Termina tutti i collegamenti
    lngChannelNumber = 0
    ChangePrn (DefPrn)
    Exit Function
InviaFax_Error:
    If Err.Number = 282 Then
        MsgBox ("Attivare il Controller del WinFax")
    Else
        MsgBox Err.Description
    End If
    InviaWinFax = False
    Resume InviaFax_Exit
End Function


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:7bmo5v8suq1dt30lf...@4ax.com...
>
> >
> >Non sbagli?
> >Io uso WinFax PRO 10.02 della Symantec e non sono riuscito a trovare una
> >soluzione per inviare un fax con VBA; fra l'altro nel CD che mi è stato
> >fornito non c'è neppure la guida SDK (Software Development Kit) nè tanto
> >meno il relativo software da installare; non vorrei che esista la
versione
> >Developer e la versione non Developer ed io ho acquistato quest'ultima,
per
> >cui non riesco a realizzare ciò che mi serve.
>
> ti confermo, nella 10.02 non c'è nulla, nella 10.00 c'è tutto il SDK
> penso tu possa anche scaricarlo dal sito della symantec, oppure se
> vuoi te lo spedisco, chissà che in due ci si riesca.
Già qualcuno del NG a suo tempo mi ha inviato il file PDF che contie la
guida in inglese di SDK; leggendola ho però avuto la sensazione che ci sia
qualcosa di supplementare da installare durante l'installazione di Winfax;
ho infatti ho provato ad usare il codice VBA indicato nella guida ma non mi
ha funzionato un tubo, ho sol ricevuto un errore che ora non ricordo più.
> Al momento penso di aggirare il problema (visto che devo mandare una
> sola pagina) personalizzando una cover e spedendo quella.
> Saluti.
> Emanuele.
--



title: WinFaxPro 10.0 symantec

text:
"Massimiliano" <
m...@nospam.it
> ha scritto nel messaggio
news:mH_6a.157293$ZE.46...@twister2.libero.it...

Io ho provuto quanto indicato dal Sito comune dopo aver installato WinFax
PRO 10.02 dell Symantec e non mi ha funzionato un tubo; sono dell'avviso di
Emyr, ovvero sul Sito comune non si fa riferimento a WinFax della Symantec
ma a WinFax della delrina (fra l'altro di una sua versione particolare e
patchata) come è chiaramente indicato nelle righe di commento di una delle
funzioni.
Comunque se tu sei riuscito a farlo funzionare, dicci come hai fatto.



title: WinFaxPro 10.0 symantec

text:
"Roberto da casa"
> Comunque se tu sei riuscito a farlo funzionare, dicci come hai fatto.
Leggi bene il Thread: ho già postato il codice.
Ciao.


title: WinFaxPro 10.0 symantec

text:


devi smarcare sui riferimenti l'automation service di winfax
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
avevo gią risolto creando una copertina personalizzata, ma proverņ
anche il tuo metodo, ti faro sapere
grazie
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
On Wed, 26 Feb 2003 18:22:20 GMT, "Massimiliano" <
m...@nospam.it
>
wrote:
purtroppo non mi funziona
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Massimiliano" <
m...@nospam.it
> ha scritto nel messaggio
news:UBa7a.158765$YG2.4...@twister1.libero.it...

Visto, grazie!



title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:kcbr5v492ppv4rukd...@4ax.com...

OK, Grazie!



title: WinFaxPro 10.0 symantec

text:
"Emyr"
> wrote:
putroppo non mi funziona
Accidenti: è proprio una maledizione  ;-))
Purtroppo non posso aiutarti più di tanto non avendo sottomano il prodotto:
ma sul tuo sistema è installata una stampantina virtuale WinFax?
Considera che il codice che ho postato, con pochissime variazioni funziona
senza problemi anche con ZetaFax e AthosFax.
Spedire parametri DDE alle stampantine Fax è una procedura abbastanza
standard.
Ciao.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:rvfr5vsuckv4rbt6u...@4ax.com...

Penso di aver trovato la soluzione dei problemi.
Per inviare una copertina del fax occorre per prima cosa aggiungere ai
riferimenti del database quello relativo a WinFax Automation Server (ma
questo mi sembra che tu già lo sapessi); l'invio lo oterrai eseguento il
seguente codice VBA:
Dim objWinfaxSend As Object
Dim TestoCopertina As String
Dim NumeroFAX As String
Dim Oggetto As String
Dim A As String
TestoCopertina = "Testo della copertina"
NumeroFAX = "06233206198"
Oggetto = "Oggetto della Copertina"
A = "Nome del destinatario
Set objWinfaxSend = CreateObject("WinFax.SDKSend8.0")
objWinfaxSend.SetCoverText (TestoCopertina)
objWinfaxSend.SetNumber (NumeroFAX)
objWinfaxSend.SetSubject (Oggetto)
objWinfaxSend.SetTo (A)
objWinfaxSend.AddRecipient
objWinfaxSend.Send (0)
Quando esegui questo codice occorre che sia aperta la Gestione messaggi di
WinFax PRO.
Invece per inviare un report chiamato Report1 per fax devi:
1) registrare in un modulo del tuo database le seguenti funzioni:
Declare Function GetProfileSection& Lib "kernel32" _
Alias "GetProfileSectionA" (ByVal lpAppName As String, _
ByVal lpReturnedString As String, ByVal nSize As Long)
Declare Function GetProfileString& Lib "kernel32" _
Alias "GetProfileStringA" (ByVal lpAppName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long)
Declare Function WriteProfileString& Lib "kernel32" _
Alias "WriteProfileStringA" (ByVal lpszSection As _
String, ByVal lpszKeyName As String, ByVal _
lpszString As String)
Public DefaultPrinter As String
Public Function SostCar(s As String, c1 As String, _
c2 As String) As String
Dim pos As Integer
pos = InStr(1, s, c1)
If pos > 0 Then Mid(s, pos) = c2
SostCar = s
End Function
Public Sub SetDefaultPrinter(s As String)
On Error GoTo Esci
Dim x As Long
If IsNull(s) Or s = "" Then Exit Sub
x = WriteProfileString("windows", "device", _
vbNullString)
DoEvents
x = WriteProfileString("windows", "device", s)
DoEvents
Esci:
End Sub
Public Sub ResetDefaultPrinter()
SetDefaultPrinter (DefaultPrinter)
End Sub
Public Function GetDefaultPrinter() As String
Dim x As Integer
Dim buffer As String
buffer = Space$(255)
x = GetProfileString("windows", "device", _
"?", buffer, 255)
GetDefaultPrinter = Left$(buffer, x)
End Function
Queste funzioni le ho copiate sul Sito Comune dal database di esempio
allegato alla FAQ di Carlo Costarella e Lorenzo Coronati intitolata "Gestire
la stampante predefinita".
2) In un altro modulo registra quest'altra funzione:
Public Function InviaWinFax(FaxNum As String, _
NomeRpt As String, Destinatario As String, _
Oggetto As String, Nome As String) As Boolean
Dim strRecipient As String
Dim lngChannelNumber As Long
Dim strFaxStatus As String
On Error GoTo InviaFax_Error
If Nz(FaxNum, "") = "" Then
FaxNum = InputBox("inserisci il numero di fax di " _
& Destinatario)
If Nz(Trim(FaxNum)) = "" Then Exit Function
End If
Dim ss As String
ss = "winfax,WINFAX,LPT1:"
DefaultPrinter = GetDefaultPrinter
Call SetDefaultPrinter(ss)
strRecipient = Chr$(34) & FaxNum & Chr$(34) & _
"," & Chr$(34) & "" & Chr$(34) & "," & _
Chr$(34) & "" & Chr$(34) & "," & Chr$(34) & _
Nome & Chr$(34) & "," & Chr$(34) & _
Mid(Trim(Destinatario), 1, 42) & Chr$(34) & _
"," & Chr$(34) & Oggetto & Chr$(34)
lngChannelNumber = DDEInitiate("faxmng32", "CONTROL")
strFaxStatus = DDERequest(lngChannelNumber, "STATUS")
While strFaxStatus Like "Busy*"
strFaxStatus = DDERequest(lngChannelNumber, "STATUS")
Wend
lngChannelNumber = DDEInitiate("FAXMNG", "TRANSMIT")
DDEPoke lngChannelNumber, "Sendfax", "recipient(" _
& strRecipient & ")"
DoCmd.OpenReport NomeRpt, A_NORMAL
InviaWinFax = True
InviaFax_Exit:
DDETerminateAll
lngChannelNumber = 0
Call SetDefaultPrinter(DefaultPrinter)
Exit Function
InviaFax_Error:
If Err.Number = 282 Then
MsgBox ("Attivare il Controller del WinFax")
Else
MsgBox Err.Description
End If
InviaWinFax = False
Resume InviaFax_Exit
End Function
Che altro non è che la funzione di Massimiliano ma riveduta e corretta.
3) per iviare il fax esegui il seguente codice VBA:
Dim NumeroFAx As String
Dim Dest As String
Dim Ogg As String
Dim Pippo As String
NumeroFAx = "06233206198"
Dest = "Società destinatario del fax"
Ogg = "Oggetto del fax"
Pippo = "Nome Destinatario del fax"
Call InviaWinFax([NumeroFAx], "Report1", _
[Dest], [Ogg], [Pippo])
Quando esegui questo codice VBA occorre che sia aperta la Gestione messaggi
di WinFax PRO.
A me ha funzionato, fammi sapere se a te funziona.



title: WinFaxPro 10.0 symantec

text:
"Massimiliano" <
m...@nospam.it
> ha scritto nel messaggio
news:wB77a.158054$YG2.4...@twister1.libero.it...

Questa routine non funziona per questi motivi:
1) occorre sostituire la riga di codice:
If Nz(FaxNum) = "" Then
con la seguente:
If Nz(FaxNum, "") = "" Then
2) Occorre che esista una funzione chiamata GetDefaultPrinter con la quale
rilevare il nome della stampante, ma tu non ne hai postato il codice.
3) Occorre che esista una funzione chiamata ChangePrn con la quale Settare
la stampante FAX come stampante predefinita, ma tu non ne hai postato il
codice.
4) Il nome reale della stampante FAX usando WinFax PRO di Symantec non è
WinFAx ma WinFax,WINFAX,LPT1:
Ho postato a Emyr una soluzione funzionante.



title: WinFaxPro 10.0 symantec

text:
On Thu, 27 Feb 2003 21:16:41 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>4) Il nome reale della stampante FAX usando WinFax PRO di Symantec non č
>WinFAx ma WinFax,WINFAX,LPT1:
ecco cosa mi mancava........
adesso provo....
comunque mi resta l'amaro in bocca perchč cosě usiamo una chiamate dde
e non l'automazione sdk fornita con l'applicazione che consente di
fare molto di piů.
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
On Thu, 27 Feb 2003 21:16:40 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>A me ha funzionato, fammi sapere se a te funziona.
>
>--
>Roberto
>
>---------------------------------------------
>il Sito Comune d
a me no, mi fa come con l'sdk mi passa attraverso il driver di stampa,
si elimina e non fa null'altro....
io ho xp con sp1 e office xp developer con sp.2 e WinfaxPro10.02
tu su cosa hai provato?
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Roberto da casa"
> Questa routine non funziona per questi motivi:
> 1) occorre sostituire la riga di codice:
>
> If Nz(FaxNum) = "" Then
>
> con la seguente:
> If Nz(FaxNum, "") = "" Then
Ma è la stessa cosa.
> 2) Occorre che esista una funzione chiamata GetDefaultPrinter con la quale
> rilevare il nome della stampante, ma tu non ne hai postato il codice.
>
> 3) Occorre che esista una funzione chiamata ChangePrn con la quale Settare
> la stampante FAX come stampante predefinita, ma tu non ne hai postato il
> codice.
Vero, non ho postato quel codice immaginando che Emyr già utilizzasse le
routine del Sito comune per la stampante predefinita.
> 4) Il nome reale della stampante FAX usando WinFax PRO di Symantec non è
> WinFAx ma WinFax,WINFAX,LPT1:
Farò qualche verifica dai clienti.
Il codice che ho postato funziona perfettamente con WinFax (forse non la
versione 10, ma sicuramente Symantec)
Ciao.


title: WinFaxPro 10.0 symantec

text:
"Massimiliano" <
m...@nospam.it
> ha scritto nel messaggio
news:uYE7a.163450$ZE.48...@twister2.libero.it...
>
> "Roberto da casa"
>
> > Questa routine non funziona per questi motivi:
>
> > 1) occorre sostituire la riga di codice:
> >
> > If Nz(FaxNum) = "" Then
> >
> > con la seguente:
>
> > If Nz(FaxNum, "") = "" Then
>
> Ma è la stessa cosa.
Hai ragione, scusa! :-(
>
>
> > 2) Occorre che esista una funzione chiamata GetDefaultPrinter con la
quale
> > rilevare il nome della stampante, ma tu non ne hai postato il codice.
> >
> > 3) Occorre che esista una funzione chiamata ChangePrn con la quale
Settare
> > la stampante FAX come stampante predefinita, ma tu non ne hai postato il
> > codice.
>
> Vero, non ho postato quel codice immaginando che Emyr già utilizzasse le
> routine del Sito comune per la stampante predefinita.
GetDefaultPrinter è una funzione pubblicata sul Sito Comune nella FAQ per la
gestione della stampante predefinita, ma ChangePrn?
>
> > 4) Il nome reale della stampante FAX usando WinFax PRO di Symantec non è
> > WinFAx ma WinFax,WINFAX,LPT1:
>
> Farò qualche verifica dai clienti.
Quello è il nome che viene usato nella FAQ del Sito Comune per la gestione
della stampante predefinita.
> Il codice che ho postato funziona perfettamente con WinFax (forse non la
> versione 10, ma sicuramente Symantec)
>
> Ciao.
--



title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:hivt5vsfo25dhdn7v...@4ax.com...

Hai ragione; anche a me piacerebbe risolvere co SDK, se non altro per
evitare tutte le rogne della gestione della stampante predefinita, solo che
occorrerebbe conoscere tutte le funzioni SDK disponibili ed i loro
parametri; io qualcuno l'ho indovinato per botta di culo, ma se riuscissi ad
indovinarli tutti giocherei al Superenalotto. :-)
La guida SDK dice:
Viewer SDK functions and parameters - To view the available SDK functions
and parameters, open the Object Browser and select the WFXCTL32 component.
Non ho perň la piů pallida idea di cosa sia l'Object Browser.
Aprendo con Blocco note il file WFXCTL32.REG qualcosa si intravede, ma per
me occorrerebbe sempre avere una sfera di cristallo.
> Saluti.
> Emanuele.



title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:9c0u5vg591utdu2c5...@4ax.com...

A me ha funzionato con Access 97 su Windows ME.
Ma non avevi detto che le copertine dei FAX riuscivi ad inviarle con il
codice VBA che avevi trovato sulla guida SDK, o ho capito male?
E se a manina santa imposti la stampante predefinita con la stampante FAX,
cosa succede??
Prova a lanciare il database di esempio allegato alla FAQ per la gestione
della stampante predefinita che trovi sul Sito Comune; nell'elenco della
casella combinata dovresti vedere l'elenco delle stampanti installate; tu
cosa vedi?
Inoltre, il database di esempio allegato alla FAQ del Sito Comune per la
gestione della stampante predefinita a te funziona?
Se non ti funziona ho paura che il codice in discussione per Windows XP non
vada bene; forse per le Declare: non vorrei che non siano OK come non sono
OK alcune API (come qualche frequentatore mi pare abbia lamentato).
> Emanuele.
--
Roberto
---------------------------------------------



title: WinFaxPro 10.0 symantec

text:
"Roberto da casa" <
> > Vero, non ho postato quel codice immaginando che Emyr già utilizzasse le
> > routine del Sito comune per la stampante predefinita.
> GetDefaultPrinter è una funzione pubblicata sul Sito Comune nella FAQ per
la
> gestione della stampante predefinita, ma ChangePrn?
Magari faccio confusione tra sito Comune e Google  ;-)
Però credo che l'esempio "storico" di Carlo Costarella riporti tutto ... in
ogni caso accuso il colpo per l'omissis.
Ciao.
P.S: Per WinFax farò sapere, ma non ho dubbi sul fatto che quel codice funzi
con Symantec WinFax.


title: WinFaxPro 10.0 symantec

text:
"Massimiliano" <
m...@nospam.it
> ha scritto nel messaggio
news:1uH7a.163865$ZE.48...@twister2.libero.it...
>
> "Roberto da casa" <
>
>
> > > Vero, non ho postato quel codice immaginando che Emyr già utilizzasse
le
> > > routine del Sito comune per la stampante predefinita.
>
> > GetDefaultPrinter è una funzione pubblicata sul Sito Comune nella FAQ
per
> la
> > gestione della stampante predefinita, ma ChangePrn?
>
> Magari faccio confusione tra sito Comune e Google  ;-)
> Però credo che l'esempio "storico" di Carlo Costarella riporti tutto
Esempio di Carlo Costarella?
Dove si trova?
Quello sul Sito Comune è di Giorgio Valsangiacomo.
> ... in
> ogni caso accuso il colpo per l'omissis.
>
> Ciao.
>
> P.S: Per WinFax farò sapere, ma non ho dubbi sul fatto che quel codice
funzi
> con Symantec WinFax.
Sono d'accordo con te; io ho usato la tua soluzione solo che mi sono visto
costretto ad usare le funzioni che ho trovato sul Sito Comune, non sapendo
dove trovare quelle usate da te.
Ho anche dovuto cambiare il nome della stampante; questo però potrebbe
dipendere dal fatto che ho dovuto usare una funzione divera da ChangePrn:
magari per ChangePrn va bene WinFax come nome.



title: WinFaxPro 10.0 symantec

text:
On Fri, 28 Feb 2003 09:31:48 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
>news:9c0u5vg591utdu2c5...@4ax.com...
>> On Thu, 27 Feb 2003 21:16:40 GMT, "Roberto da casa"
>> <
r.ma...@libero.it
> wrote:
>>
>> >
>> >A me ha funzionato, fammi sapere se a te funziona.
>> >
>> >--
>> >Roberto
>> >
>> >---------------------------------------------
>> >il Sito Comune d
>>
>>
>>
>>
>> a me no, mi fa come con l'sdk mi passa attraverso il driver di stampa,
>> si elimina e non fa null'altro....
>> io ho xp con sp1 e office xp developer con sp.2 e WinfaxPro10.02
>> tu su cosa hai provato?
>> Saluti.
>
>A me ha funzionato con Access 97 su Windows ME.
>Ma non avevi detto che le copertine dei FAX riuscivi ad inviarle con il
>codice VBA che avevi trovato sulla guida SDK, o ho capito male?
hai capito bene difatti la mia situazione l'ho risolta così, creando
una copertina personalizzata che sostituisce la lettera con
intestazione e firma e come corpo della lettera uso il testo della
copertina
>E se a manina santa imposti la stampante predefinita con la stampante FAX,
>cosa succede??
già fatto, non fa nulla
>Prova a lanciare il database di esempio allegato alla FAQ per la gestione
>della stampante predefinita che trovi sul Sito Comune; nell'elenco della
>casella combinata dovresti vedere l'elenco delle stampanti installate; tu
>cosa vedi?
>Inoltre, il database di esempio allegato alla FAQ del Sito Comune per la
>gestione della stampante predefinita a te funziona?
quello si
>Se non ti funziona ho paura che il codice in discussione per Windows XP non
>vada bene; forse per le Declare: non vorrei che non siano OK come non sono
>OK alcune API (come qualche frequentatore mi pare abbia lamentato).
probabile, provero l'altra partizione con il 98 e ti farò sapere
>
>> Emanuele.
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
>Hai ragione; anche a me piacerebbe risolvere co SDK, se non altro per
>evitare tutte le rogne della gestione della stampante predefinita, solo che
>occorrerebbe conoscere tutte le funzioni SDK disponibili ed i loro
>parametri; io qualcuno l'ho indovinato per botta di culo, ma se riuscissi ad
>indovinarli tutti giocherei al Superenalotto. :-)
>La guida SDK dice:
>
>Viewer SDK functions and parameters - To view the available SDK functions
>and parameters, open the Object Browser and select the WFXCTL32 component.
>
>Non ho però la più pallida idea di cosa sia l'Object Browser.
>Aprendo con Blocco note il file WFXCTL32.REG qualcosa si intravede, ma per
>me occorrerebbe sempre avere una sfera di cristallo.
>
>> Saluti.
>> Emanuele.
l'object browser è il visualizzatore oggetto di access lo vedi sul
codice vba
li vedi tutti i metodi dopo aver scelto WFXCTL32 come libreria
comunque del manuale di sdk sono presenti tutte le funzioni con tanto
di specifiche se mi dai l'ok ti spedisco il tutto
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
tu che sistema operativo usi?
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:01nu5v0m6ddffd43m...@4ax.com...
> On Fri, 28 Feb 2003 09:31:48 GMT, "Roberto da casa"
> <
r.ma...@libero.it
> wrote:
[CUT]
>
> >E se a manina santa imposti la stampante predefinita con la stampante
FAX,
> >cosa succede??
>
> già fatto, non fa nulla
>
Cosa vuoi dire?
Se come stampante predefinita del tuo sistema imposti la stamapante FAX e
stampi un report stai forse dicendo che il report continua ad essere
stampato sulla stampante del PC invece di andare in output sul modem?
Come è possibile.
> >Prova a lanciare il database di esempio allegato alla FAQ per la gestione
> >della stampante predefinita che trovi sul Sito Comune; nell'elenco della
> >casella combinata dovresti vedere l'elenco delle stampanti installate; tu
> >cosa vedi?
> >Inoltre, il database di esempio allegato alla FAQ del Sito Comune per la
> >gestione della stampante predefinita a te funziona?
>
>
> quello si
>
Se con le Declare e le funzioni dell'esempio del Sito Comune riesci a
modificare l'impostazione della stampante predefinita, allora deve
funzionare.
Fregandotene sia delle funzioni mia che di quelle di Massimiliano, imposta
la stampante predefinita con la stampante FAX ed esegui la stampa di un
report che normalmente stampi sulla stampante di sistema: beh, mi rifiuto di
pensare che il report continua ad essere prodotto sulla stampante di
sistema.
Comunque ti ricordo che perché il tutto funzioni occorre che, al momento che
invii i FAX occorre che il programma FAXMNG32.EXE sia in esecuzione.
> >Se non ti funziona ho paura che il codice in discussione per Windows XP
non
> >vada bene; forse per le Declare: non vorrei che non siano OK come non
sono
> >OK alcune API (come qualche frequentatore mi pare abbia lamentato).
>
>
> probabile, provero l'altra partizione con il 98 e ti farò sapere
>
> >
> >> Emanuele.
>
> Saluti.
> Emanuele.
--
Roberto
---------------------------------------------



title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:u5nu5vosofgbjivki...@4ax.com...

OK! OK trovato e visto.
Quanto al manuale SDK, quello in inglese ce l'ho, me lo ha gentilmente
inviato per posta elettronica non mi ricordo chi; è un file PDF di circa 170
pagine; sino ad ora lo solo sbirciato sommariamente in elettronico: dovrei
stamparlo e studiarlo, solo che i manuali in inglese non mi hanno mai
entusiasmato (sai com'è, oltre a un po' di italiano conosco solo il
romanesco, lingua veramente poco usata nell'informatica).
Quindi se hai, per caso, quello in italiano bene, altrimenti quello in
inglese già ce l'ho.
Comunque nel dare uno sguardo alle funzioni ed ai parametri SDK ho fatto un
piccolo passo avanti; usando SDK, unitamente alla copertina, sono riuscito a
inviare per FAX anche un file di testo; nel caso che ti serva ti invio il
relativo codice VBA:
Dim objWinfaxSend As Object
Dim TestoCopertina As String
Dim NumeroFax As String
Dim Oggetto As String
Dim NomeDestinatario As String
Dim Allegato As String
Dim SocietàDestinatario As String
Allegato = "C:\Documenti\NomeFileTesto.doc"
TestoCopertina = "Questo è il tetso della copertina"
NumeroFax = "06233206198"
Oggetto = "Oggetto della Prova"
NomeDestinatario = "Pinco Pallino"
SocietàDestinatario = "Mascalzoni & C."
Set objWinfaxSend = CreateObject("WinFax.SDKSend8.0")
objWinfaxSend.AddAttachmentFile (Allegato)
objWinfaxSend.SetCoverText (TestoCopertina)
objWinfaxSend.SetNumber (NumeroFax)
objWinfaxSend.SetSubject (Oggetto)
objWinfaxSend.SetTo (NomeDestinatario)
objWinfaxSend.SetCompany (SocietàDestinatario)
objWinfaxSend.AddRecipient
objWinfaxSend.Send (0)
Come vedi la variabile stringa Allegato deve contenere il path completo del
file che vuoi inviare per fax; così facendo WinFax PRO converte il file in
una immagine fax e lo invia automaticamente a seguire alla copertina del
fax.
Ho dovuto aggiungere ai riferimenti del database anche la dll WFXCTRL.DLL:
ho fatto questo agiungendo il riferimento chiamato Symantec WinFax PRO
Controls.
Se volessi mandare via fax un report potresti prima trasformarlo in un file
txt e poi iviarlo usando solo SDK, che, se non sbaglio, era un tuo
obiettivo.
Certo che ora bisognerebbe studiare le innumerevoli possibilità illustrate
nelle 170 pagine del manuale SDK (peccato che l'inglese mi è un po'
antipatico: sarà forse perché in inglese si parla troppo di guerra?).



title: WinFaxPro 10.0 symantec

text:
"Roberto da casa" <
> Esempio di Carlo Costarella?
> Dove si trova?
> Quello sul Sito Comune è di Giorgio Valsangiacomo.
L'esempio di Carlo Costarella è per impostare una stampante come
predefinita...
Ciao: Max


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
> tu che sistema operativo usi?
Cioč i clienti?
Windows 98 e 2000.
Ciao.


title: WinFaxPro 10.0 symantec

text:
On Fri, 28 Feb 2003 14:38:11 GMT, "Roberto da casa"
<
r.ma...@libero.it
> wrote:
>
>"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
>news:01nu5v0m6ddffd43m...@4ax.com...
>> On Fri, 28 Feb 2003 09:31:48 GMT, "Roberto da casa"
>> <
r.ma...@libero.it
> wrote:
>[CUT]
>>
>> >E se a manina santa imposti la stampante predefinita con la stampante
>FAX,
>> >cosa succede??
>>
>> già fatto, non fa nulla
>>
>
>Cosa vuoi dire?
>Se come stampante predefinita del tuo sistema imposti la stamapante FAX e
>stampi un report stai forse dicendo che il report continua ad essere
>stampato sulla stampante del PC invece di andare in output sul modem?
>Come è possibile.
no, viene inviato al driver della stampante virtuale, ma se io
precedentemente ho impostato i parametri del destinatario e gli ho
detto
printfromapp(1)
il fax non viene visto dal controller
>
>> >Prova a lanciare il database di esempio allegato alla FAQ per la gestione
>> >della stampante predefinita che trovi sul Sito Comune; nell'elenco della
>> >casella combinata dovresti vedere l'elenco delle stampanti installate; tu
>> >cosa vedi?
>> >Inoltre, il database di esempio allegato alla FAQ del Sito Comune per la
>> >gestione della stampante predefinita a te funziona?
>>
>>
>> quello si
>>
>
>Se con le Declare e le funzioni dell'esempio del Sito Comune riesci a
>modificare l'impostazione della stampante predefinita, allora deve
>funzionare.
>Fregandotene sia delle funzioni mia che di quelle di Massimiliano, imposta
>la stampante predefinita con la stampante FAX ed esegui la stampa di un
>report che normalmente stampi sulla stampante di sistema: beh, mi rifiuto di
>pensare che il report continua ad essere prodotto sulla stampante di
>sistema.
>
mai detto questo....
funziona tutto a parte il fatto che il controller si rifiuta di vedere
i fax se io prima gli imposto printfromapp(1)
>Comunque ti ricordo che perché il tutto funzioni occorre che, al momento che
>invii i FAX occorre che il programma FAXMNG32.EXE sia in esecuzione.
>
è in funzione
>> >Se non ti funziona ho paura che il codice in discussione per Windows XP
>non
>> >vada bene; forse per le Declare: non vorrei che non siano OK come non
>sono
>> >OK alcune API (come qualche frequentatore mi pare abbia lamentato).
>>
>>
>> probabile, provero l'altra partizione con il 98 e ti farò sapere
>>
>> >
>> >> Emanuele.
>>
>> Saluti.
>> Emanuele.
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
CUT
>
>Quanto al manuale SDK, quello in inglese ce l'ho, me lo ha gentilmente
>inviato per posta elettronica non mi ricordo chi; è un file PDF di circa 170
>pagine; sino ad ora lo solo sbirciato sommariamente in elettronico: dovrei
>stamparlo e studiarlo, solo che i manuali in inglese non mi hanno mai
>entusiasmato (sai com'è, oltre a un po' di italiano conosco solo il
>romanesco, lingua veramente poco usata nell'informatica).
>Quindi se hai, per caso, quello in italiano bene, altrimenti quello in
>inglese già ce l'ho.
>
penso ci sia solo la versione in inglese del 2000

si ma in formato testo perderei le formattazioni
>Certo che ora bisognerebbe studiare le innumerevoli possibilità illustrate
>nelle 170 pagine del manuale SDK (peccato che l'inglese mi è un po'
>antipatico: sarà forse perché in inglese si parla troppo di guerra?).
si parla anche di pace  (image)
il mio obiettivo è i far funzionare il
printfromapp(1)
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
On Fri, 28 Feb 2003 17:51:31 GMT, "Massimiliano" <
m...@nospam.it
>
wrote:

io sul mio ho xp, oggi provo su un 98 se mi da ancora problemi
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:9fm06vgr4kjn0bm0i...@4ax.com...
[CUT]
> >Cosa vuoi dire?
> >Se come stampante predefinita del tuo sistema imposti la stamapante FAX e
> >stampi un report stai forse dicendo che il report continua ad essere
> >stampato sulla stampante del PC invece di andare in output sul modem?
> >Come č possibile.
>
>
> no, viene inviato al driver della stampante virtuale, ma se io
> precedentemente ho impostato i parametri del destinatario e gli ho
> detto
> printfromapp(1)
>
> il fax non viene visto dal controller
>
Devi scusare la mia ignoranza, ma non ho la piů pallida idea di cosa sia
printfromapp(1) e cosa voglia dire " il fax non viene visto dal controller"
[CUT]
> >Fregandotene sia delle funzioni mia che di quelle di Massimiliano,
imposta
> >la stampante predefinita con la stampante FAX ed esegui la stampa di un
> >report che normalmente stampi sulla stampante di sistema: beh, mi rifiuto
di
> >pensare che il report continua ad essere prodotto sulla stampante di
> >sistema.
> >
>
>
> mai detto questo....
> funziona tutto a parte il fatto che il controller si rifiuta di vedere
> i fax se io prima gli imposto printfromapp(1)
>
>
Non sapendo cosa sia e a cosa ti serva printfromapp(1), non sono in grado di
seguire il tuo ragionamento.
[CUT]



title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:ekm06vkv7sqov7tn2...@4ax.com...
[CUT]
> >Se volessi mandare via fax un report potresti prima trasformarlo in un
file
> >txt e poi iviarlo usando solo SDK, che, se non sbaglio, era un tuo
> >obiettivo.
>
> si ma in formato testo perderei le formattazioni
>
Puoi produrre dal report un file PDF ed inviare quello; perň ha poco senso:
se devi usare una stampante virtuale tanto vale che usi quella di WinFax.
[CUT]
> il mio obiettivo č i far funzionare il
>
> printfromapp(1)
Vedi mia rispota al tuo messaggio di oggi delle ore 8:00
Ho cominciato a studiare la guida SDK; mi sarebbe utile avere il file
WFXSDK.ZIP, contiene degli esempi; se ce lo hai mi faresti un favore se me
lo invii.
>
>
> Saluti.
> Emanuele.



title: WinFaxPro 10.0 symantec

text:
printfromapp(1)
serve per indicare a winfax che la successiva stampa inviata al driver
di winfax venga inoltrata con le specifiche precedentemente impostate
Saluti.
Emanuele.


title: WinFaxPro 10.0 symantec

text:
"Emyr" <
fan...@tiscali.it
> ha scritto nel messaggio
news:5r716vkp5sssgsd46...@4ax.com...

Penso proprio che dovrò studiare tutta la guida SDK.
Per ora sto studiando il secondo capitolo parla dei metodi e funzioni del
Send object di WinFax PRO.



title: importazione dati da Staroffice

author: Andrea

text:
ho un problema da apprendista!
non trovo il  modo di importare dati o collegare tabelle a fogli di calcolo
di staroffice.
qualcuno č in grado di "helparmi"
grazie


title: importazione dati da Staroffice

author: HjKlOp

text: Premetto che non uso SO, (versione 6 ??), hai provato con ODBC su file...?