title: ricerca e inserimento

author: Alessandro Baraldi

text:
LucianoD'antogno ha scritto:
> Salve a tutti,
>
> avrei bisogno di una soluzione che mi permetta di cercare all'iunterno di un
> elenco di vie anche digitando pazialmente la via ricercata (cioè se cerco
> "Lungomare Cristoforo colombo", anche digitando solo Colombo vorrei che mi
> venisse restituita una lista dei record che contengono "Colombo" e tra
> questi selezionare la via che cercavo per inserirla nell'anagrafica.
> Inserendo il codice che segue riesco ad ottenere il filtro che mi serviva...
> ma adesso non ho proprio idea di come fare ad inserire la via che mi serve
> sull'anagrafica del soggetto che sto registrando.
>
> Private Sub indirizzo_Change()
> Dim strR As String
> Dim strSQL As String
> strR = Me!indirizzo.Text
> If Not IsNull(Me!indirizzo.Text) Then
>     strSQL = "SELECT IDindirizzo, indirizzo " & _
>     "FROM [INDIRIZZO] " & _
>     "WHERE (indirizzo Like " & Chr$(34) & "*" & _
>     strR & "*" & Chr$(34) & ");"
>     Me!Elenconominativi.RowSource = strSQL
>     Me!Elenconominativi.Requery
>     Me!indirizzo = strR
>     Me!indirizzo.SetFocus
>     Me!indirizzo.SelStart = 255
> End If
> End Sub
>
> P.S. se avete un idea migliore per la ricerca che faciliti l'iserimento sarò
> ben felice di sperimentarla!!!
> Grazie.
> Luciano.
Direi che la cosa è corretta, ho solo 4 appunti da fare, ma di
pignoleria non funzionali...!
1) Se inserisci un'apostrofo non funziona.
    Per questo invece di usare il CHR(34) userei il singolo apice e
metterei il Replace, se non sbaglio dovrebbe andare...!
   Replace(Testo,"'","''")
2) Questo è solo formale, ma il SelStart=255 sostanzialmente non è
corretto in quanto la TextBox accetta ben oltre 255 caratteri, quindi
l'ideale è di usare il Len....
3)Questa riga è pericolosa
strR = Me!indirizzo.Text
If Not IsNull(Me!indirizzo.Text) Then
Se Me!Indirizzo è null restituisce errore in quanto la variabile
strR(di tipo stringa) non accetta Null, quindi assegnala solo dopo il
controllo...!
If Not IsNull(Me!indirizzo.Text) Then
strR = Me!indirizzo.Text
4)Me!indirizzo = strR a cosa serve visto che non viene toccato...?
Io faccio così:
Ho una Form con origine dati..., quindi ho messo una textBox, e
nell'evento Change scrivo:
Private Sub txtFindFast_Change()
   Me.RecordsetClone.FindFirst "[Descrizione]LIKE '*" & _
                               Replace(Me.txtFindFast.Text, "'", "''")
& "*'"
   If Me.RecordsetClone.NoMatch Then
      Me.RecordsetClone.Bookmark = Me.Bookmark
   Else
      Me.Bookmark = Me.RecordsetClone.Bookmark
      Me.txtFindFast.SelStart = Len(Me.txtFindFast.Text)
   End If
End Sub
Saluti
@Alex


title: ricerca e inserimento

author: cidi

text:
"LucianoD'antogno" <
luxd...@virgilio.it
> ha scritto nel messaggio
news:4599a66f$0$22393$4faf...@reader2.news.tin.it...

Ciao Luciano
prova a cambiare questa riga:


title: ricerca e inserimento

text:
"cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
news:459a5cea$0$16142$4faf...@reader3.news.tin.it...

"WHERE (indirizzo Like "*" & Chr$(34) & "*" & _
    strR & "*" & Chr$(34) & ");"
scusa č partito un colpo :)
Daniele


title: ricerca e inserimento

text:
cidi ha scritto:
> "cidi" <
dadonz...@tin.it
> ha scritto nel messaggio
> news:459a5cea$0$16142$4faf...@reader3.news.tin.it...
> >
> > "LucianoD'antogno" <
luxd...@virgilio.it
> ha scritto nel messaggio
> > news:4599a66f$0$22393$4faf...@reader2.news.tin.it...
> >> Salve a tutti,
> >>
> >> avrei bisogno di una soluzione che mi permetta di cercare all'iunterno di
> >> un elenco di vie anche digitando pazialmente la via ricercata (cioè se
> >> cerco "Lungomare Cristoforo colombo", anche digitando solo Colombo vorrei
> >> che mi venisse restituita una lista dei record che contengono "Colombo" e
> >> tra questi selezionare la via che cercavo per inserirla nell'anagrafica.
> >> Inserendo il codice che segue riesco ad ottenere il filtro che mi
> >> serviva... ma adesso non ho proprio idea di come fare ad inserire la via
> >> che mi serve sull'anagrafica del soggetto che sto registrando.
> >>
> >> Private Sub indirizzo_Change()
> >> Dim strR As String
> >> Dim strSQL As String
> >> strR = Me!indirizzo.Text
> >> If Not IsNull(Me!indirizzo.Text) Then
> >>    strSQL = "SELECT IDindirizzo, indirizzo " & _
> >>    "FROM [INDIRIZZO] " & _
> >>    "WHERE (indirizzo Like " & Chr$(34) & "*" & _
> >>    strR & "*" & Chr$(34) & ");"
> >>    Me!Elenconominativi.RowSource = strSQL
> >>    Me!Elenconominativi.Requery
> >>    Me!indirizzo = strR
> >>    Me!indirizzo.SetFocus
> >>    Me!indirizzo.SelStart = 255
> >> End If
> >> End Sub
> >>
> >> P.S. se avete un idea migliore per la ricerca che faciliti l'iserimento
> >> sarò ben felice di sperimentarla!!!
> >> Grazie.
> >> Luciano.
> >
> > Ciao Luciano
> > prova a cambiare questa riga:
>
> "WHERE (indirizzo Like "*" & Chr$(34) & "*" & _
>     strR & "*" & Chr$(34) & ");"
>
> scusa è partito un colpo :)
>
> Daniele
MMMmmmm a parte il colpo a salve, al quale ormai siamo tutti
abituati... ;-) speriamo siano sono quì nel NG.....
ahahahahahahahahahah
credo che fosse più corretto il suo originale...!
L'asterisco, essendo il Jolly su testo va racchiuso tra i separatori,
quindi la sintassi che
hai suggerito diventerebbe:
*"*testo*"
Il primo asterisco non va bene, quindi togliendolo diventa l'originale
scritto dall'autore.....
In secondo luogo la sintassi è errata, prova a vedere:
"WHERE (indirizzo Like "*" & ....
la stringa finisce con il primo " quindi il carattere * rimarrebbe come
un appeso senza congiuntore di stringa....!
@Alex


title: ricerca e inserimento

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1167745240.7...@h40g2000cwb.googlegroups.com...
cidi ha scritto:


Miiiiiiii ..... per una volta che capita!
non ricordo di aver perso colpi  ;)
però non è da escludere che possa succedere ....sempre più spesso, data
l'età.
^___^
credo che fosse più corretto il suo originale...!
L'asterisco, essendo il Jolly su testo va racchiuso tra i separatori,
quindi la sintassi che
hai suggerito diventerebbe:
*"*testo*"
Il primo asterisco non va bene, quindi togliendolo diventa l'originale
scritto dall'autore.....
In secondo luogo la sintassi è errata, prova a vedere:
"WHERE (indirizzo Like "*" & ....
la stringa finisce con il primo " quindi il carattere * rimarrebbe come
un appeso senza congiuntore di stringa....!
@Alex
Ciao Alex
quello che volevo suggerire è qualcosa del genere:
Like "*" & Nz([Forms]![mMascheraReport]![prodotto1];"*") & "*"
che uso in una query parametrica e funziona .
sbaglio evidente nel modificare i parametri.
Daniele


title: Creare un icona sul desktop

text:
Forse chiedo troppo al VBA ?
Ho bisogno di creare una applicazione di installazione
che risiede sul server centrale.
L' utente vi accede e la apre.
"Lei" crea una serie di directory sul C: locale, ci scarica
dentro i files (e fin qui ... Pure pure) ma poi dovrebbe
riuscire a creare una icona sul desktop che faccia un
collegamento alla applicazione appena scaricata in modo
che le volte successive l' utente cliccando su questa icona
accede al prg, che e' locale.
A mano e' semplice, ma col VBA si potra' fare ?
(Il fatto e' che gli utenti stanno sparsi per tutta Italia ...)
E se poi un domani ho bisogno di cambiare il path dell' icona
lo potro' fare ? (ma questo non e' indispensabile).
Grazie.


title: Creare un icona sul desktop

text:
radicale.002 ha scritto:

Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da solo?
Ce ne sono a tonnellate anche free......a volte non è necessario reinventare
la ruota no?!?!!? :)
--


title: Creare un icona sul desktop

author: Karl Donaubauer

text:
radicale.002 wrote:
> ...
> "Lei" crea una serie di directory sul C: locale, ci scarica
> dentro i files (e fin qui ... Pure pure) ma poi dovrebbe
> riuscire a creare una icona sul desktop che faccia un
> collegamento alla applicazione appena scaricata in modo
> che le volte successive l' utente cliccando su questa icona
> accede al prg, che e' locale.
>
> A mano e' semplice, ma col VBA si potra' fare ?
> (Il fatto e' che gli utenti stanno sparsi per tutta Italia ...)
> ...
Cerchi la definizione e la funzione d'esempio per
"MsoCreateShortcut" sul sito di michka:
http://www.trigeminal.com/code/UsefulOfficeExports.bas
> E se poi un domani ho bisogno di cambiare il path dell' icona
> lo potro' fare ? (ma questo non e' indispensabile).
?
--
Ciao
Karl
*********
Access FAQ:
www.donkarl.com/it


title: Creare un icona sul desktop

author: radicale 004

text:
On 28 Lug, 11:30, Fair87<
roby....@gmail.com
> wrote:
> Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da solo?
> Ce ne sono a tonnellate anche free......a volte non è necessario reinventare
> la ruota no?!?!!? :)
Tu c' hai ragione ...
Il fatto e' che da un lato sono NEGATO a scaricare
programmi da internet : non trovo mai niente e quando
trovo non mi funziona mai un caxo. Pure sfiga, eh ...
Dall' altro, non mi fido tanto dei programmi cosi',
perche' poi se hanno un malfunzionamento qualsiasi
(e per la legge di Murpy l' avranno) chi ce le mette
le mani in un eseguibile fatto poi chissa' da chi
e per quali tipi di macchine ecc ecc ?


title: Creare un icona sul desktop

text:
On 28 Lug, 12:10, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>Cerchi la definizione e la funzione d'esempio per
>"MsoCreateShortcut" sul sito di >michka:
http://www.trigeminal.com/code/UsefulOfficeExports.bas
Mo' ce guardo, grazie !
> ?
No, niente ... Volevo dire :
le icone sul desktop hanno il path scritto dentro, hai
presente no ?
Mi chiedevo se era possibile cambiarglielo con il
VBA senza toccare l' iconcina. Tutto qui. Ma non
ha importanza.


title: Creare un icona sul desktop

author: Riccardo Baldinotti

text:
On 28 Lug, 12:10, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>
> Cerchi la definizione e la funzione d'esempio per
> "MsoCreateShortcut" sul sito di michka:
http://www.trigeminal.com/code/UsefulOfficeExports.bas
>
Chiedo scusa se m'intrufolo.
Mi sono fiondato a cercare l'esempio, l'ho messo in un modulo, ma mi
esce un errore di run-time 53: Impossibile trovare il file "mso9.dll".
Uso A2007 con Vista. Devo modificare qualche riferimento?
E già che ci sono, vorrei chiarire l'uso di:
(stFile As String, stShortcut As String)
si tratta, rispettivamente, del nome del file .lnk e della stringa
"Destinazione" nel menu Proprietà, o non ho capito nulla?
Grazie in anticipo.
Riccardo Baldinotti


title: Creare un icona sul desktop

text:
On 28 Lug, 14:08, Riccardo Baldinotti <
barimo...@gmail.com
> wrote:
> Devo modificare qualche riferimento?
Si, sicuro.
Ma vallo a capire quale ...


title: Creare un icona sul desktop

text:
radicale 004 ha scritto:
>On 28 Lug, 11:30, Fair87<roby....@gmail,com > wrote:
>
>> Ma usare un tool apposta per il deploy? Il classico exe che fa tutto da s=
>olo?
>> Ce ne sono a tonnellate anche free......a volte non =E8 necessario reinve=
>ntare
>> la ruota no?!?!!? :)
>
>Tu c' hai ragione ...
>
>Il fatto e' che da un lato sono NEGATO a scaricare
>programmi da internet : non trovo mai niente e quando
>trovo non mi funziona mai un caxo. Pure sfiga, eh ...
>
>Dall' altro, non mi fido tanto dei programmi cosi',
>perche' poi se hanno un malfunzionamento qualsiasi
>(e per la legge di Murpy l' avranno) chi ce le mette
>le mani in un eseguibile fatto poi chissa' da chi
>e per quali tipi di macchine ecc ecc ?
>
Mah...io a dire il vero utilizzo da tempo, e senza noia alcuna, tool tipo
Tarma installer e altri...altrimenti c'è sempre il pacchetto developer (nn so
come si chiami ora) di office.....
--


title: Creare un icona sul desktop

author: Geppo

text:

Non ho la risposta all'errore che hai riscontrato, però ho questa sub che
può tornarti utile:
NON E' ROBA MIA,  NON RICORDO DA DOVE L'HO ATTINTO:
Sub CreaLink()
    Dim WshShell, strDesktop, oShellLink, oUrlLink
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Collegamento a
Notepad.lnk")
    oShellLink.TargetPath = "Notepad.exe"
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = "Ctrl+Alt+e"
    oShellLink.IconLocation = "notepad.exe, 0"
    oShellLink.Description = "Prova Collegamento a Notepad"
    oShellLink.WorkingDirectory = strDesktop
    oShellLink.Save
    Set WshShell = Nothing
    Set strDesktop = Nothing
    Set oShellLink = Nothing
End Sub
> Riccardo Baldinotti
--
Ciao
Geppo


title: Creare un icona sul desktop

text:
On 28 Lug, 16:58, "Geppo" <c...@tin.it.invalid> wrote:
> Non ho la risposta all'errore che hai riscontrato, però ho questa sub che
> può tornarti utile:
>
> NON E' ROBA MIA,  NON RICORDO DA DOVE L'HO ATTINTO:
>
> Sub CreaLink()
>     Dim WshShell, strDesktop, oShellLink, oUrlLink
>
>     Set WshShell = CreateObject("WScript.Shell")
>
>     strDesktop = WshShell.SpecialFolders("Desktop")
>     Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Collegamento a
> Notepad.lnk")
>     oShellLink.TargetPath = "Notepad.exe"
>     oShellLink.WindowStyle = 1
>     oShellLink.Hotkey = "Ctrl+Alt+e"
>     oShellLink.IconLocation = "notepad.exe, 0"
>     oShellLink.Description = "Prova Collegamento a Notepad"
>     oShellLink.WorkingDirectory = strDesktop
>     oShellLink.Save
>
>     Set WshShell = Nothing
>     Set strDesktop = Nothing
>     Set oShellLink = Nothing
> End Sub
>
> > Riccardo Baldinotti
>
> --
> Ciao
> Geppo- Nascondi testo citato
>
> - Mostra testo citato -
E funziona!
Tra l'altro, leggendola mi ricordo d'aver visto la sub un paio di anni
fa, ma è come tutte le cose di cui dico: "interessante, se mi
servirà..." e poi me ne dimentico.
Comunque la fonte è
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=149
in cui il Mitico ci delizia.
E risponde anche alla domanda di radicale 004, se sia possibile
modificare l'icona o altro.
Credo che possa interessare anche:
5.83 Impostare da VBA l'icona ed il titolo dell'applicazione e l'icona
delle maschere e report
sul Sito Comune.
Grazie mille.
Riccardo Baldinotti


title: Creare un icona sul desktop

author: pablitomf

text:

INNO SETUP.


title: Creare un icona sul desktop

text:
On 29 Lug, 10:51, pablitomf <
pablit...@virgilio.it
> wrote:
> INNO SETUP.
E che vol di ?


title: Creare un icona sul desktop

text:
radicale 004 wrote:
> pablitomf wrote:
>
>> INNO SETUP.
>
> E che vol di ?
 Programmi di setup alternativi

www.donkarl.com/it?FAQ1.34



title: Creare un icona sul desktop

text:
On 30 Lug, 17:22, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>>> INNO SETUP.
>
> > E che vol di ?
>
>  Programmi di setup alternativi
>
www.donkarl.com/it?FAQ1.34
Argh ... Io pensavo fosse una battuta in una
specie di linguaggio in codice !
Sai Pablitomf le risate che si fara' alle mie spalle adesso ?
Sob ... :D


title: Formattazione casella di testo

author: Sefin S.p.A.

text:
Come faccio a formattare in automatico attraverso una routine una casella di
testo eliminando tutti
gli spazi tra le varie righe. In poche parole come faccio a fare questo?
vorrei trasformare la casella di testo da cosě:
- @@@@@@@@@@@@@
-&&&&&&&&&&&&&&&&&
-$$$$$$$$$$$$$$$$$$$$$$$$$$
a cosě
-@@@@@@@@@@@@@@
-&&&&&&&&&&&&&&&&&&
-$$$$$$$$$$$$$$$$$$$$$$$$$$$
Ciao e grazie.


title: Formattazione casella di testo

text:
"Sefin S.p.A." <
sefi...@infinito.it
> ha scritto nel messaggio
news:CkTS9.93305$Ou4.3...@twister2.libero.it...

Ma si tratta di capire se il carattere da eliminare č un Chr(0) o un Chr(10)
o entrambi.....???
Prova con SostStr(<A2K) in A97 devi farti una funzione per farlo.
Se invece si tratta di spazzi allora c'č Trim(F1)
@Alex.


title: Formattazione casella di testo

text: Sono Chr(0) e un Chr(10)


title: Formattazione casella di testo

text:
"Sefin S.p.A." <
sefi...@infinito.it
> ha scritto nel messaggio
news:KabT9.97110$Ou4.3...@twister2.libero.it...
> Sono Chr(0) e un Chr(10)
>
Allora con la Funzione SostString(Spero si chiami così in A2k).
Ricorda che il carattere Testo a capo Chr(10) in realtà serve...!
@Alex.


title: query: aiutoooo!!!!!

author: Luca

text:
dati x misure di tubo (48 , 50 , 60 , 76 , 89 , ecc..) memorizzate nella
tabella "TuttiTubi" (quindi nel tempo ve ne saranno dei doppi , tripli ,
ecc...) vorrei capire come ricavarmi (credo a 1/2 query) una tabella "Tubi"
dove vengono inseriti i valori in ordine crescente e solamente una volta:
esempio=
"TuttiTubi" =
48
60
50
60
76
48
89
"TuttiTubi" =  (vuoto)
dopo la query
"TuttiTubi" =
48
50
60
76
89
Avrei la necessità di ricevere una query di esempio perchè proprio non ci
salto fuori
(se non ti dispiace, rispondi
anche con e.mail)
--------------------------------------------
molte onorevoli grazie a Voi
^____^
Luca


title: query: aiutoooo!!!!!

author: Roberto da casa

text:
"Luca" <
anonimi....@tin.it
> ha scritto nel messaggio
news:lWxF6.1393$9O1....@news1.tin.it...

Non ti rispondo al tuo indirizzo e-mail in quanto è contro una regola di
questo NG.
Se il campo della tabella TuttiTubi che porta le dimensioni del tubo si
chiama MisureTubo, la query che ti serve dovrebbe avere questo codice SQL:
SELECT DISTINCT TuttiTubi.MisureTubo
FROM TuttiTubi
ORDER BY TuttiTubi.MisureTubo;
Se poi con il risultato della query vuoi creare una tabella chiamata Tubi
(ma penso che sia inutile), il codice SQl della query di creazione tabella
dovrebbe essere:
SELECT DISTINCT TuttiTubi.MisureTubo INTO Tubi
FROM TuttiTubi
ORDER BY TuttiTubi.MisureTubo;
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: query: aiutoooo!!!!!

author: Luciano (DOC)

text:
Roberto da casa ha scritto nel messaggio ...
>SELECT DISTINCT TuttiTubi.MisureTubo INTO Tubi
>FROM TuttiTubi
>ORDER BY TuttiTubi.MisureTubo;
Mmmm.....dubito che funga!:-)
Meglio:
INSERT INTO tubi SELECT DISTINCT TuttiTubi.MisureTubo
FROM TuttiTubi
ORDER BY TuttiTubi.MisureTubo;
Saluti.
Luciano
(DOC)


title: query: aiutoooo!!!!!

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9c774g$cf061$1...@ID-86073.news.dfncis.de...

Come query di creazione di una tabella temporanea la mia query funziona
egregiamente.
La tua è invece una query di accodamento, che visto il problema da risolvere
(memorizzare in una tabella temporanea dei risultati di sintesi che cambiano
in continuazione) penso che non abbia molto significato. ;-)



title: query: aiutoooo!!!!!

text:
....uhmmm.....
1) Mi spieghi come e dove inserire il codice SQL in access, passo x passo
come se avessi 3 anni di età? (prego...)
2) Lo scopo finale è memorizzare nella tab."tuttitubi" ogni ordine che farò
da oggi al 2100, mentre PENSAVO (ma se vi è un sistema meno Macchiavellico
accetto suggerimenti (ed esempi) di ogni tipo) di "alimentare" un DBcombo di
VB6 con una tab. "tubi" che non mi elenchi 11 volte il diam.60, 15 volte il
diam.48, 20 volte il diam.89, ecc. ma solo 1 volta ogni diametro inserito da
oggi al 2100.....
3) Mi scuso ancora se chiedo esempi già pronti in casella e.mail, ma
iniziano da 0 sia con access che con VB (sarebbe = anche con solo 1 di
questi) anche una sigla x Voi semplice come "Query" , "SQL" , ecc. diventano
monti insormontabili e NON ti permettono di capire quale e perchè 1,2,3
...comandi non funzionano..... (sob) (in fondo non chiedo un eseguibile (si
dice così? vero?) di un gestionale completo....)
Ringrazio ancora chi avrà la pazienza di rispondermi,
Grazie 1.000 Luca
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:uoDF6.10505$PE.8...@news.infostrada.it...



title: query: aiutoooo!!!!!

text:
"Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
news:uoDF6.10505$PE.8...@news.infostrada.it...
>
> Se poi con il risultato della query vuoi creare una tabella chiamata Tubi
> (ma penso che sia inutile), il codice SQl della query di creazione tabella
> dovrebbe essere:
....uhmmm.....



title: query: aiutoooo!!!!!

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9c774g$cf061$1...@ID-86073.news.dfncis.de...

....uhmmm.....



title: query: aiutoooo!!!!!

text:
"Roberto da casa" <
r.ma...@libero.it
> wrote in message
news:5%FF6.11802$PE.10...@news.infostrada.it...
> Come query di creazione di una tabella temporanea la mia query funziona
> egregiamente.
> La tua è invece una query di accodamento, che visto il problema da
risolvere
> (memorizzare in una tabella temporanea dei risultati di sintesi che
cambiano
> in continuazione) penso che non abbia molto significato. ;-)
Hai ragione circa il funzionamento della tua query, ma non sono daccordo sul
metodo. Quando ho bisogno di usare tabelle di appoggio preferisco accodare
su una tabella che mi sono fatto a manina come dico io piuttosto che
delegare ad Access formati e dimensioni. Ma si sa, ognuno ha la sua scuola
di pensiero.:-)
Saluti.
Luciano
(DOC)


title: query: aiutoooo!!!!!

author: Roberto dal portatile

text:
"Luca" <
anonimi....@tin.it
> ha scritto nel messaggio
news:vjPF6.1617$oY1....@news1.tin.it...
>
> "Roberto da casa" <
r.ma...@libero.it
> ha scritto nel messaggio
> news:uoDF6.10505$PE.8...@news.infostrada.it...
>
> >
> > Se poi con il risultato della query vuoi creare una tabella chiamata
Tubi
> > (ma penso che sia inutile), il codice SQl della query di creazione
tabella
> > dovrebbe essere:
>
> ....uhmmm.....
>
> 1) Mi spieghi come e dove inserire il codice SQL in access, passo x passo
> come se avessi 3 anni di età? (prego...)
Come ho detto nel messaggio precedente, quello che ho postato è il codice
SQL di una query.
Per crearti una query usando il codice SQL devi:
1) Dire ad Access che vuoi creare una nuova query; sul monitor ti comparirà
la griglia di struttura vuota.
2) Dal menu Visualizza scegli il comando Visualizzazione SQL.
3) Svuota di ogni contenuto la finestra che così ti si apre.
4) Digita in questa finestra il codice SQL.
5) Chiudi la finestra e salva la query che hai così creato, dandogli un
nome.
> 2) Lo scopo finale è memorizzare nella tab."tuttitubi" ogni ordine che
farò
> da oggi al 2100, mentre PENSAVO (ma se vi è un sistema meno Macchiavellico
> accetto suggerimenti (ed esempi) di ogni tipo) di "alimentare" un DBcombo
di
> VB6 con una tab. "tubi" che non mi elenchi 11 volte il diam.60, 15 volte
il
> diam.48, 20 volte il diam.89, ecc. ma solo 1 volta ogni diametro inserito
da
> oggi al 2100.....
Il sistema meno Machiavellico è quello di usare esclusivamente Access, senza
disturbare VB6 con tutti gli annessi e connessi. E' nel contesto di Access
che va inserito il mio suggerimento.
> 3) Mi scuso ancora se chiedo esempi già pronti in casella e.mail, ma
> iniziano da 0 sia con access che con VB (sarebbe = anche con solo 1 di
> questi) anche una sigla x Voi semplice come "Query" , "SQL" , ecc.
diventano
> monti insormontabili e NON ti permettono di capire quale e perchè 1,2,3
> ...comandi non funzionano..... (sob) (in fondo non chiedo un eseguibile
(si
> dice così? vero?) di un gestionale completo....)
>
Scusa se ora sarò un pò crudo, a volte la verità non è rose e fiori.
A mio avviso non puoi pensare di usare Access senza averlo prima studiato un
pò. Studiandolo un pò acquisirai anche quel minimo di proprietà di
linguaggio che ti permetterà di capire l'help, il Sito Comune e i messaggi
del NG e permetterai agli altri di capirti.
Quanto devi studiare? Sino a quando capirai e riuscirai a farti capire.
> Ringrazio ancora chi avrà la pazienza di rispondermi,
Penso che di gente che abbia la voglia e la pazienza di darti una mano ne
troverai molta, ma probabilmente nessuno è d'accordo a sostituirsi ad un
manuale o all'help di Access; inoltre penso che nessuno possa sostituirsi a
te nel fare il tuo lavoro. In questo NG si cerca di fare più informazione
che formazione, si cerca poi di dare una mano ad acquisire i concetti più
ostici, e di dare una dritta per la soluzione di problemi specifici.
Ed ora non ti scoraggiare: rimboccati le maniche, la fase di apprendimento
l'abbiamo vissuta tutti e probabilmente, chi più e chi meno, la stiamo
ancora vivendo.
> Grazie 1.000 Luca



title: query: aiutoooo!!!!!

text:
"Luciano (DOC)" <
lucia...@sitocomune.com
> ha scritto nel messaggio
news:9c8rtm$cns7i$1...@ID-86073.news.dfncis.de...
[CUT]
> Hai ragione circa il funzionamento della tua query, ma non sono daccordo
sul
> metodo. Quando ho bisogno di usare tabelle di appoggio preferisco accodare
> su una tabella che mi sono fatto a manina come dico io piuttosto che
> delegare ad Access formati e dimensioni. Ma si sa, ognuno ha la sua scuola
> di pensiero.:-)
> Saluti.
>
> Luciano
> (DOC)
>
Tutto vero!



title: query: aiutoooo!!!!!

text:
Roberto dal portatile ha scritto nel messaggio ...
>Tutto vero!
....tutto falso, dicevano i sofisti!:-)
Saluti.
Luciano
(DOC)
Maaa......com'era la storia della scampagnata in quel di Todi? Il clima
sembra diventare favorevole...:-))


title: Impostare valore variabile da altro codice

text:
Salve a tutti.....
Gradirei sapere se esiste un qualsiasi modo di cambiare/sostituire in
modo permanente il valore di una variabile (formato data) contenuta in
una routine evento di un controllo all'interno di una maschera (es.
maschera1) con il codice di un'altra routine di evento di un pulsante
contenuto in un'altra maschera (es. maschera2).
Es.: Routine controllo in maschera1
omissis
Dim DataScadenza As Date
DataScadenza = #11/1/2012#
Ecco.... come posso dal pulsante presente nella maschera2 cambiare:
#11/1/2012# ??

Spero di esermi spiegato bene.
Distinti saluti a tutti

M7a1x (quello di marte)


text:
M7a1x wrote:
> Gradirei sapere se esiste un qualsiasi modo di cambiare/sostituire
> in modo permanente il valore di una variabile (formato data)
> contenuta in una routine evento di un controllo all'interno di una
> maschera (es. maschera1) con il codice di un'altra routine di
> evento di un pulsante contenuto in un'altra maschera (es.
> maschera2).
> Es.: Routine controllo in maschera1
> omissis
> Dim DataScadenza As Date
> DataScadenza = #11/1/2012#
> Ecco.... come posso dal pulsante presente nella maschera2 cambiare:
> #11/1/2012# ??
>
> Spero di esermi spiegato bene.
> ...

Temo di no - visto le tante risposte.
Non è chiaro cosa vuoi fare e soprattutto perché vuoi farlo.
p.e. "permanente" e "variabile" è una contraddizione.
Prova di descrivere meglio il problema invece del modo
"irregolare" che vuoi usare per risolverlo.

--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


text:
On 17 Ott, 11:45, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> M7a1x wrote:
> > Gradirei sapere se esiste un qualsiasi modo di cambiare/sostituire
> > in modo permanente il valore di una variabile (formato data)
> > contenuta in una routine evento di un controllo all'interno di una
> > maschera (es. maschera1) con il codice di un'altra routine di
> > evento di un pulsante contenuto in un'altra maschera (es.
> > maschera2).
> > Es.: Routine controllo in maschera1
> > omissis
> > Dim DataScadenza As Date
> > DataScadenza = #11/1/2012#
> > Ecco.... come posso dal pulsante presente nella maschera2 cambiare:
> > #11/1/2012# ??
>
> > Spero di esermi spiegato bene.
> > ...
>
> Temo di no - visto le tante risposte.
> Non chiaro cosa vuoi fare e soprattutto perch vuoi farlo.
> p.e. "permanente" e "variabile" una contraddizione.
> Prova di descrivere meglio il problema invece del modo
> "irregolare" che vuoi usare per risolverlo.
>
> --
> Ciao
> Karl
> *********
> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Ciao Karl...  provo a riformulare

nel primo post ho inserito un pezzo di una routine evento, dove è
presente la dichiarazione di una variabile tipo data
e l'assegnazione alla stessa di un valore e fino a quì ci siamo; (la
posto nuovamente):
esempio: Maschera1 su evento apertura:
Dim DataScadenza As Date
DataScadenza = #11/1/2012#
Così come è scritta, dentro la routine, il valore di DataScadenza
rimarrà sempre 11/1/2012 oppure per cambiare il suo valore si deve
intervenire manualmente e modificare la routine che la contiene. Io
vorrei farlo in modo non manuale ma da altro codice
A questo punto la mia domanda è: posso da una routine di un controllo
di un'altra maschera (qualsiasi) cambiare il pezzetto della routine di
maschera1 su evento apertura
da (per esempio): #11/112012# a #12/1/2012# ma attenzione, non voglio
assegnare alla variabile "DataScadenza" un valore diverso, voglio
cambiare il pezzo della riga della routine in modo definitvo; il
risultato alla fine è quasi lo stesso, si cambia il valore alla
variabile ma in modo definitivo ovvero fino a quando si vorrà cambiare
nuovamente (da altra routine). Quindi alla prossima apertura della
maschera1
Considera anche banale l'esempio ma parlando più in generale: è
possibile cambiare una riga di un codice di una routine da un'altra
routine?
Le "infinite" risposte giunte a questo quesito mi stanno dando la
certezza che la cosa sia impossibile da realizzare o forse..... non si
sa mai
Spero di essere stato più chiaro.
Grazie per l'attenzione.

M7a1x


text:
M7a1x wrote:
> ...
> esempio: Maschera1 su evento apertura:
> Dim DataScadenza As Date
> DataScadenza = #11/1/2012#
> Così come è scritta, dentro la routine, il valore di DataScadenza
> rimarrà sempre 11/1/2012 oppure per cambiare il suo valore si deve
> intervenire manualmente e modificare la routine che la contiene. Io
> vorrei farlo in modo non manuale ma da altro codice
> A questo punto la mia domanda è: posso da una routine di un
> controllo di un'altra maschera (qualsiasi) cambiare il pezzetto
> della routine di maschera1 su evento apertura
> da (per esempio): #11/112012# a #12/1/2012# ma attenzione, non
> voglio assegnare alla variabile "DataScadenza" un valore diverso,
> voglio cambiare il pezzo della riga della routine in modo
> definitvo; il risultato alla fine è quasi lo stesso, si cambia il
> valore alla variabile ma in modo definitivo ovvero fino a quando si
> vorrà cambiare nuovamente (da altra routine). Quindi alla prossima
> apertura della maschera1
> Considera anche banale l'esempio ma parlando più in generale: è
> possibile cambiare una riga di un codice di una routine da un'altra
> routine?
> Le "infinite" risposte giunte a questo quesito mi stanno dando la
> certezza che la cosa sia impossibile da realizzare o forse..... non
> si sa mai
> ...

Tecnicamente è possibile p.e. con il metodo ReplaceLine
(vedi <F1>, anche per il metodo Find), però come già
scritto è "irregolare" perché normalmente non si lavora così.

Per cambiare il valore di una variabile non si riscrive
il codice (che dopo si deve ancora salvare) ma si prende
il valore da una fonte aggiornabile, di solito una tabella, p.e.

DataScadenza = DLookUp("NomeCampo", "NomeTabella")

o tramite un Recordset di DAO o un controllo di una maschera ecc.



text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Grazie 1000 Karl....
Ho visto il metodo ReplaceLine e anche il metodo Find..... quello che
non riesco a tracciare è il modulo della maschera interessata;
entrambi i metodi che mi hai segnalato hanno bisogno obbligatoriamente
(giustamente) del dato "espressione" che dovrebbe essere il modulo che
contiene i dati da sostituire.
E' proprio questo che non riesco a stabilire...
Supponiamo che la riga da sostituire e la riga 5 nel modulo della
maschera1, quale sarà il dato "espressione". Il dato espressione deve
essere una variabile tipo modulo oppure devo fare prima riferimento
alla maschera? Mistero
Saluti


text:
M7a1x wrote:
> Karl Donaubauer wrote:
>> ...
>> Tecnicamente è possibile p.e. con il metodo ReplaceLine
>> (vedi <F1>, anche per il metodo Find), però come già
>> scritto è "irregolare" perché normalmente non si lavora così.
>>
>> Per cambiare il valore di una variabile non si riscrive
>> il codice (che dopo si deve ancora salvare) ma si prende
>> il valore da una fonte aggiornabile, di solito una tabella, p.e.
>>
>> DataScadenza = DLookUp("NomeCampo", "NomeTabella")
>>
>> o tramite un Recordset di DAO o un controllo di una maschera ecc.
> ...
> Ho visto il metodo ReplaceLine e anche il metodo Find..... quello che
> non riesco a tracciare è il modulo della maschera interessata;
> entrambi i metodi che mi hai segnalato hanno bisogno obbligatoriamente
> (giustamente) del dato "espressione" che dovrebbe essere il modulo che
> contiene i dati da sostituire.
> E' proprio questo che non riesco a stabilire...
> Supponiamo che la riga da sostituire e la riga 5 nel modulo della
> maschera1, quale sarà il dato "espressione". Il dato espressione deve
> essere una variabile tipo modulo oppure devo fare prima riferimento
> alla maschera?

Se insisti di complicarti la vita... la sintassi sarebbe:

Forms!Maschera1.Module.ReplaceLine 5, "TuaNuovaRigaDiCodice"

La Maschera1 dev'essere aperta (basta invisibile) per poter
salvare la modifica.

Per altri metodi come Find o CountOfLines dove non vuoi salvare
una modifica non è necessario che la maschera è aperta se usi
la sintassi per module di classe:

Form_Maschera1.Module.CountOfLines



text:

> > Access FAQ:
http://www.donkarl.com/it-Nascondi
 testo citato
>
> > - Mostra testo citato -
>
> Grazie 1000 Karl....
> Ho visto il metodo ReplaceLine e anche il metodo Find..... quello che
> non riesco a tracciare è il modulo della maschera interessata;
> entrambi i metodi che mi hai segnalato hanno bisogno obbligatoriamente
> (giustamente) del dato "espressione" che dovrebbe essere il modulo che
> contiene i dati da sostituire.
> E' proprio questo che non riesco a stabilire...
> Supponiamo che la riga da sostituire e la riga 5 nel modulo della
> maschera1, quale sarà il dato "espressione". Il dato espressione deve
> essere una variabile tipo modulo oppure devo fare prima riferimento
> alla maschera? Mistero
> Saluti- Nascondi testo citato
>
> - Mostra testo citato -

Karl.... mistero risolto:

Dim TestoData As String
TestoData = "DataScadenza = #" & DataScadenza & "#"

Forms![Maschera1].Module.ReplaceLine 49, DataScadenza

Grazie ancora per l'aiuto

Saluti

M7a1x


text:

> Access FAQ:
http://www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -

Ok funziona se il codice non è protetto da password, e se volessi
impostare una password al codice?


text:
M7a1x wrote:
> Karl Donaubauer wrote:
>> ...
>> Forms!Maschera1.Module.ReplaceLine 5, "TuaNuovaRigaDiCodice"
> ...
> Ok funziona se il codice non � protetto da password, e se volessi
> impostare una password al codice?

Devi usare un metodo regolare come descritto.

Password o MDE/ACCDE sono due delle ragioni perch�
non si usa questa tecnica in una situazione normale.



text:
On 19 Ott, 23:19, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
> M7a1x wrote:
> > Karl Donaubauer wrote:
> >> ...
> >> Forms!Maschera1.Module.ReplaceLine 5, "TuaNuovaRigaDiCodice"
> > ...
> > Ok funziona se il codice non è protetto da password, e se volessi
> > impostare una password al codice?
>
> Devi usare un metodo regolare come descritto.
>
> Password o MDE/ACCDE sono due delle ragioni perché
> non si usa questa tecnica in una situazione normale.
>
> --
> Ciao
> Karl
> *********
> Access FAQ:
http://www.donkarl.com/it

Karl per il momento va benissimo così!
Ti ringrazio di tutto.
Distinti Saluti
M7a1x


title: Utilizzare moduli standard o di classe per le proprie funzioni e/o subroutines?

author: Michele (Giò)

text:
Buonasera a tutti.
Mi stavo chiedendo, all'enesima revisione di codice che sto operando nel mio db, se tutte le
funzioni e subr. che ho scritto nel mio db hanno motivo di risiedere tutte in moduli standard.
Ho già spostato tutte le routine chiamate dai moduli maschera e report nei relativi moduli e rese
"private", e già qui penso di aver fatto una buona pulizia e ordine.
La mia domanda è: dal momento in cui apro un db, tutti i moduli standard occupano risorse e memoria?
Se così fosse, sarebbe giusto convertire tutto il convertibile in moduli di classe e creare un
oggetto solo al momento del bisogno per poi chiuderlo alla fine? Sto parlando di funzioni e sub
particolarmente grosse  e che utilizzano workspaces, databases e recordsets.
Che ne so, tutte le funzioni dedicate al salvataggio per esempio, potrebbero essere convogliate in
un modulo di classe e creare un oggetto al momento del salvataggio.
Se avete qualche link che spieghi il galateo dei moduli (cosa fare, cosa non fare), sarei lieto di
visitarlo.
Michele
--
---------------------------
Michele (Giò)
joyl...@alice.it


text:
Michele (Giò) ha scritto:
> Buonasera a tutti.
>
> Mi stavo chiedendo, all'enesima revisione di codice che sto operando nel mio db, se tutte le
> funzioni e subr. che ho scritto nel mio db hanno motivo di risiedere tutte in moduli standard.
>
> Ho già spostato tutte le routine chiamate dai moduli maschera e report nei relativi moduli e rese
> "private", e già qui penso di aver fatto una buona pulizia e ordine.
Beh spero che la scelta di farlo sia stata fatta in base a concetti di
programmazione e non di pulizia solamente....
> La mia domanda è: dal momento in cui apro un db, tutti i moduli standard occupano risorse e memoria?
> Se così fosse, sarebbe giusto convertire tutto il convertibile in moduli di classe e creare un
> oggetto solo al momento del bisogno per poi chiuderlo alla fine? Sto parlando di funzioni e sub
> particolarmente grosse  e che utilizzano workspaces, databases e recordsets.
>
> Che ne so, tutte le funzioni dedicate al salvataggio per esempio, potrebbero essere convogliate in
> un modulo di classe e creare un oggetto al momento del salvataggio.
Non fare confusione, prima di partire chiarisciti le idee di cosa sono
le Classi, a cosa servono principalmente e quando è bene usarle.
Ovviamente non è cosa che si può spiegare in 2 righe nel NG....!
Le classi sono oggetti e si usano quando si può avere l'esigenza di
usare funzioni o oggetti contemporaneamente da più punti nello stesso
processo di elaborazione...!
E' una cosa molto più complessa di fare Pulizia....!
> Se avete qualche link che spieghi il galateo dei moduli (cosa fare, cosa non fare), sarei lieto di
> visitarlo.
>
> Michele
>
> --
> ---------------------------
> Michele (Giò)
>
joyl...@alice.it
Questo è un demo molto semplice che può darti un'idea di cos'è, come
si usa e perchè conviene usare una classe:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=157
Anche questo è un bel demo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=155
Questo demo espone i passi successivi alle classi, le interfacce:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=239
Questo è un demo più complesso sulla falsa riga del precedente, ma
decisamente più articolato:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=156
Questo invece è estremamente complesso, ma usa le classi in modo molto
avanzato:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=261
Saluti
@Alex


text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1165959462.1...@j72g2000cwa.googlegroups.com...
Michele (Giò) ha scritto:
> Buonasera a tutti.
> Ho già spostato tutte le routine chiamate dai moduli maschera e report nei relativi moduli e rese
> "private", e già qui penso di aver fatto una buona pulizia e ordine.
Beh spero che la scelta di farlo sia stata fatta in base a concetti di
programmazione e non di pulizia solamente....
Si beh, era una maniera di dire, non mi prendere alla lettera
Questo è un demo molto semplice che può darti un'idea di cos'è, come
si usa e perchè conviene usare una classe:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=157
Anche questo è un bel demo:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=155
Questo demo espone i passi successivi alle classi, le interfacce:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=239
Questo è un demo più complesso sulla falsa riga del precedente, ma
decisamente più articolato:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=156
Questo invece è estremamente complesso, ma usa le classi in modo molto
avanzato:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=261
Saluti
@Alex
Ci avrei scommesso di ricevere una tua risposta.  Io ho imparato a creare una classe quando ho usato
il tuo ClsPerformanceTime, ed essendo incuriosito dal suo funzionamento, sono rimasto affascinato e
ho cominciato a scrivere qualcosina sul mio db. Mi ero fatto una classe che gestiva gli input output
da 2 tabelle semplicemente passando i valori ai Property e lanciando metodi. Una figata, quando
adoperi una classe sembra di lavorare con un prefabbricato di VBA.
Ma tu sei uno dei pochi eletti che conosce i moduli di classe? Sono oggetti così misteriosi? O tutti
alla fine ci avranno a che fare?
Non appena ho un attimo di tempo andrò a curiosare sulle tue classi avanzate.
Da quel che capisco tra le tue righe, la classe offre dei vantaggi quando c'è la necessità di
utilizzare più oggetti nello stesso contesto, cosa molto comoda ma che per il momento mi deve ancora
capitare.
Saluti
Michele


text:
Michele (Giò) ha scritto:
[CUT]
> Ci avrei scommesso di ricevere una tua risposta.  Io ho imparato a creare una classe quando ho usato
> il tuo ClsPerformanceTime, ed essendo incuriosito dal suo funzionamento, sono rimasto affascinato e
> ho cominciato a scrivere qualcosina sul mio db. Mi ero fatto una classe che gestiva gli input output
> da 2 tabelle semplicemente passando i valori ai Property e lanciando metodi. Una figata, quando
> adoperi una classe sembra di lavorare con un prefabbricato di VBA.
Classi ed API sono le cose che mi interessano maggiormente, e che
conosco meglio, per il resto non ho una grande esperienza, quindi
preferisco rispondere a cose sulle quali ho un più dimestichezza.
> Ma tu sei uno dei pochi eletti che conosce i moduli di classe? Sono oggetti così misteriosi? O tutti
> alla fine ci avranno a che fare?
No, le usano in molti, ma non in tanti.
Mi spiego meglio.
Molti, non tutti, di quelli che usano Access per fare applicativi
domestici, si fermano ad una conoscenza superficiale della
programmazione, questo perchè Access di nativo ti mette a disposizione
tanto di già prestabilito.
Quindi non sempre, serve approfondire.
Non stò generalizzando, ma di certo se vai in NG di VB o meglio ancora
VC o C++ , la percentuale di chi usa le classi è altissima, per non
dire il 100%.
Io provengo da VB, quindi ho iniziato con le classi, ma ho smesso di
usarle quando sono passato ad Access, poi ovviamente ho integrato le
cose.
Non sò dirti se tutti le usano, ma di certo chi non le conosce si
perde molto, soprattutto nella semplificazione che si può ottenere
nella gestione degli oggetti.
> Non appena ho un attimo di tempo andrò a curiosare sulle tue classi avanzate.
Auguri..!
;-)
> Da quel che capisco tra le tue righe, la classe offre dei vantaggi quando c'è la necessità di
> utilizzare più oggetti nello stesso contesto, cosa molto comoda ma che per il momento mi deve ancora
> capitare.
>
> Saluti
>
> Michele
@Alex


title: Paradox 7

author: mark

text:
Ciao a tutti
qualcuno sa se č possibile lincare un database Paradox 7 da MSaccess 97
(Dao, Odbc) e come si puo' fare?
Grazie Anticipate da
Marco Dell'Oca
P.S. Vorrei essere utile al newsgroup ma le mie risposte ( quelle che darei
io) ai quesiti  risultano quasi sempre in ritardo o errate. Col tempo
imparerň.


title: Paradox 7

author: Giovanni Albertone

text:
On Wed, 26 Jul 2000 14:53:53 +0200, "mark"
<
marco....@tiscalinet.it
> wrote:
>qualcuno sa se è possibile lincare un database Paradox 7 da MSaccess 97
>(Dao, Odbc) e come si puo' fare?
Si, e' possibile.
Devi giocare un po' con il linguaggio/collating sequence delle tabelle
di Paradox. Ora non ricordo se lo devi settare a "ASCII" oppure
"International 850", ma mi pare che il driver ODBC MS usi per default
ASCII. E' un po' che non uso piu' pdox.
In ogni caso, mi sembra che il formato Pdox 7 sia lo stesso della
versione 5.
Ciao,
Giovanni
---
Inferno e paradiso mi sembrano sproporzionati. Le azioni degli
uomini non meritano tanto - JLBorges


title: Paradox 7

author: Proli

text:
Per Giovanni
Grazie mille per il tuo aiuto.
Marco Dell'Oca


title: suggerimenti

text:
premesso che non sono un esperto di access chiedo a voi consiglio:
devo fare un semplice db che mi possa aiutare nel vedere i
miglioramenti di apprendimento degli animali.
a parte la solita e banale scheda anagrafica, avrei bisogno di sapere
quale,secondo voi, è la soluzione migliore per il mio problema.
alla tabella anagrafica devo poter collegare una (o più tabelle)  che
mi riportino i miglioramenti suddivisi in X punti nei primi 5 anni di
vita...
in pratica voglio poter selezionare l'animale Pippo e vedere la
reattività nel primo anno o nel secondo ecc.
secondo voi è meglio fare una tabella divisa per ogni anno o una
gigante per tutti e cinque?
e se ne facessi una per ogni anno cosa mi suggerite di usare come
chiave primaria
grazie
nicola


title: suggerimenti

author: Sergio MAZZA

text:
<
disgr...@hotmail.com
> ha scritto nel messaggio
news:1185897104.4...@22g2000hsm.googlegroups.com...
premesso che non sono un esperto di access chiedo a voi consiglio:
[risposta]
Ciao disgrazia81 (che soprannome da brivido);
ti segnalo il link dove troverai le poche regole di questo NG:
www.sitocomune.com
 Sezione ICAA - Come comportarsi in questo NG
---omissis---
grazie
nicola
[risposta]
Ciao.
--
Sergio MAZZA


title: Duplica record

author: Mauro

text:
Come posso fare per duplicare un record di una tabella e fare in modo che il
contatore (formato testo) si autoincrementi magari il tutto in seguito
all'evento "Su Clic" di un pulsante?
ringrazio tutti per l'aiuto
Mauro


title: Duplica record

author: Roberto in campagna

text:
"Mauro" <
rip...@libero.it
> ha scritto nel messaggio
news:29D37.6267$Pv.2...@news.infostrada.it...

Qualche precisazione:
1) Il contatore č chiave primaria della tabella?
2) quando inserisci un nuovo record nella tabella, come determini il valore
di questo contatore?
3) come determini il record che vuoi duplicare?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Duplica record

text:
Roberto in campagna ha scritto nel messaggio ...

1)Sģ il contatore č chiave primaria
2)I nuovi record vengono inseriti utilizzando una maschera e il campo
contatore viene incrementato da una formula (presa dal sito comune) situata
nel "ValorePredefinito" del controllo.
3)Per determinare i record che voglio duplicare utilizzo una form che
richiama il record prescelto; nella maschera seguente vengono visualizzate
tutte le informazioni del record ed anche, in una sottomaschera, tutti gli
altri "sottorecord" che mi interessa duplicare.
Praticamente ci sono due tabelle collegate dalla relazione uno a molti ed a
me interesserebbe duplicare sia i dati di una che dell'altra. Nella prima
tabella ho:
IdContatore: chiave primaria duplicati non ammessi(punto 2 sopra); nella
seconda tabella ho: IdContatore1, chiave primaria duplicati non ammessi;
IdContatore2=al contatore della prima tabella, ma chiaramente i duplicati
vengono ammessi(relazione uno a molti).
Ho trovato un aiuto sul sito di Microsoft (Knowledge base su Access 2000),
l'aiuto č quello che corrisponde al codice Q208824, ma chiaramente mi dą
errore nel momento in cui eseguo il comando, in quanto non č possibile avere
due chiavi primarie identiche.
Spero di essere stato abbastanza chiaro.
Ciao Mauro


title: Duplica record

text:
"Mauro" <
mdo...@libero.it
> ha scritto nel messaggio
news:Mqh47.11745$m06.4...@news.infostrada.it...
>
> Roberto in campagna ha scritto nel messaggio ...
> >
> >"Mauro" <
rip...@libero.it
> ha scritto nel messaggio
> >news:29D37.6267$Pv.2...@news.infostrada.it...
> >> Come posso fare per duplicare un record di una tabella e fare in modo
che
> >il
> >> contatore (formato testo) si autoincrementi magari il tutto in seguito
> >> all'evento "Su Clic" di un pulsante?
> >>
> >> ringrazio tutti per l'aiuto
> >>
> >> Mauro
> >>
> >
> >Qualche precisazione:
> >1) Il contatore è chiave primaria della tabella?
> >2) quando inserisci un nuovo record nella tabella, come determini il
valore
> >di questo contatore?
> >3) come determini il record che vuoi duplicare?
> >
> >--
> >
> >Roberto
> >
> >---------------------------------------------
> >il Sito Comune di it.comp.appl.access:
> >
http://www.sitocomune.com
> >---------------------------------------------
> >
> >
> 1)Sì il contatore è chiave primaria
> 2)I nuovi record vengono inseriti utilizzando una maschera e il campo
> contatore viene incrementato da una formula (presa dal sito comune)
situata
> nel "ValorePredefinito" del controllo.
> 3)Per determinare i record che voglio duplicare utilizzo una form che
> richiama il record prescelto; nella maschera seguente vengono visualizzate
> tutte le informazioni del record ed anche, in una sottomaschera, tutti gli
> altri "sottorecord" che mi interessa duplicare.
>
> Praticamente ci sono due tabelle collegate dalla relazione uno a molti ed
a
> me interesserebbe duplicare sia i dati di una che dell'altra. Nella prima
> tabella ho:
> IdContatore: chiave primaria duplicati non ammessi(punto 2 sopra); nella
> seconda tabella ho: IdContatore1, chiave primaria duplicati non ammessi;
> IdContatore2=al contatore della prima tabella, ma chiaramente i duplicati
> vengono ammessi(relazione uno a molti).
>
> Ho trovato un aiuto sul sito di Microsoft (Knowledge base su Access 2000),
> l'aiuto è quello che corrisponde al codice Q208824, ma chiaramente mi dà
> errore nel momento in cui eseguo il comando, in quanto non è possibile
avere
> due chiavi primarie identiche.
>
> Spero di essere stato abbastanza chiaro.
>
> Ciao Mauro
>
Potrei darti una mano a realizzare ciò che ti serve, però mi sembra di aver
capito che tu usi A2000 e quindi di default fai riferimento alle librerie
ADO, che io non conosco, uso solo A97 e quindi sono capace solo a far
riferimento alle librerie DAO.
Se comunque ti interessa (potresti aggiungere ai riferimenti del tuo
database anche le librerie DAO), posta la struttura completa delle due
tabelle e la formula che hai scritto nel Valore predefinito di IdContatore;
precisa inoltre se i record li devi copiare nelle medesime tabelle o in
altre due tabelle.



title: Duplica record

text:
> > Cut
>
> Potrei darti una mano a realizzare ciò che ti serve, però mi sembra di
aver
> capito che tu usi A2000 e quindi di default fai riferimento alle librerie
> ADO, che io non conosco, uso solo A97 e quindi sono capace solo a far
> riferimento alle librerie DAO.
> Se comunque ti interessa (potresti aggiungere ai riferimenti del tuo
> database anche le librerie DAO), posta la struttura completa delle due
> tabelle e la formula che hai scritto nel Valore predefinito di
IdContatore;
> precisa inoltre se i record li devi copiare nelle medesime tabelle o in
> altre due tabelle.
>
> --
> Roberto
>
> ---------------------------------------------
> il Sito Comune di it.comp.appl.access:
>
http://www.sitocomune.com
> ---------------------------------------------
>
>
La tabella1 con il contatore dal lato uno è la seguente:
IdContatore    Contatore
Cliente            Testo
Agente            Testo
Riferimento    Testo
La tabella2 dal lato molti
IdConta1    Contatore
IdContatore    (Testo)-uguale a quello di tabella 1
Materiale     Testo
Costo            Intero Lungo
La struttura mi serve per creare preventivi, quindi di un preventivo
(IdContatore) posso avere n materiali.
Il codice per l'IdContatore (quello preso dal sito comune) è inserito in una
casella di testo all'opzione "Valore Predefinito":
="PR" & Format(Date();"aa") & "-" &
Format(IIf(IsNull(DMax("IdContatore";"Tabella1";"IdContatore like 'PR" &
Format(Date();"aa") &
"-????'"));1;Right(DMax("IdContatore";"Tabella1";"IdContatore like 'PR" &
Format(Date();"aa") & "-????'");4)+1);"0000")
Quindi il mio scopo è quello di duplicare (nelle stesse tabelle) sia i
record di Tabella1 che di Tabella2
Spero di averti chiarito la situazione
Ciao Mauro


title: Duplica record

text:
"Mauro" <
rip...@libero.it
> ha scritto nel messaggio
news:fYv47.15338$m06.6...@news.infostrada.it...
> > > Cut
> >
> > Potrei darti una mano a realizzare ciò che ti serve, però mi sembra di
> aver
> > capito che tu usi A2000 e quindi di default fai riferimento alle
librerie
> > ADO, che io non conosco, uso solo A97 e quindi sono capace solo a far
> > riferimento alle librerie DAO.
> > Se comunque ti interessa (potresti aggiungere ai riferimenti del tuo
> > database anche le librerie DAO), posta la struttura completa delle due
> > tabelle e la formula che hai scritto nel Valore predefinito di
> IdContatore;
> > precisa inoltre se i record li devi copiare nelle medesime tabelle o in
> > altre due tabelle.
> >
> > --
> > Roberto
> >
> La tabella1 con il contatore dal lato uno è la seguente:
>
> IdContatore    Contatore
> Cliente            Testo
> Agente            Testo
> Riferimento    Testo
>
> La tabella2 dal lato molti
> IdConta1    Contatore
> IdContatore    (Testo)-uguale a quello di tabella 1
> Materiale     Testo
> Costo            Intero Lungo
>
> La struttura mi serve per creare preventivi, quindi di un preventivo
> (IdContatore) posso avere n materiali.
>
> Il codice per l'IdContatore (quello preso dal sito comune) è inserito in
una
> casella di testo all'opzione "Valore Predefinito":
> ="PR" & Format(Date();"aa") & "-" &
> Format(IIf(IsNull(DMax("IdContatore";"Tabella1";"IdContatore like 'PR" &
> Format(Date();"aa") &
> "-????'"));1;Right(DMax("IdContatore";"Tabella1";"IdContatore like 'PR" &
> Format(Date();"aa") & "-????'");4)+1);"0000")
>
> Quindi il mio scopo è quello di duplicare (nelle stesse tabelle) sia i
> record di Tabella1 che di Tabella2
>
> Spero di averti chiarito la situazione
>
> Ciao Mauro
Fermo restando che do per scontato che il campo IdContatore di Tabella1 sia
di tipo Testo e non di tipo Contatore.
Se nella maschera principale in cui visualizzi il record da duplicare, il
controllo che è associato al campo IdContatore della Tabella1 si chiama
anche lui IdContatore.
A fronte dell'evento "Su clic" del pulsante di comando che hai inserito
nella maschera principale che visualizza il record da duplicare genera il
seguente codice VBA:
Dim rstTab1 As Recordset
Dim rstTab2 As Recordset
Dim rstTab1bis As Recordset
Dim rstTab2bis As Recordset
Dim MioContatore As String
Set rstTab1 = CurrentDb.OpenRecordset("Tabella1")
Set rstTab2 = CurrentDb.OpenRecordset("Tabella2")
Set rstTab1bis = CurrentDb.OpenRecordset("Tabella1")
Set rstTab2bis = CurrentDb.OpenRecordset("Tabella2")
rstTab1.MoveFirst
Do Until rstTab1.EOF
  If rstTab1!IdContatore = Me!IdContatore Then
    MioContatore = "PR" & Format(Date, "yy") & "-" & _
    Format(IIf(IsNull(DMax("IdContatore", "Tabella1", _
    "IdContatore Like 'PR" & _
    Format(Date, "yy") & "-????'")), 1, _
    Right(DMax("IdContatore", "Tabella1", _
    "IdContatore Like 'PR" & Format(Date, "yy") & _
    "-????'"), 4) + 1), "0000")
    rstTab1bis.AddNew
    rstTab1bis!IdContatore = MioContatore
    rstTab1bis!Cliente = rstTab1!Cliente
    rstTab1bis!Agente = rstTab1!Agente
    rstTab1bis!Riferimento = rstTab1!Riferimento
    rstTab1bis.Update
    rstTab2.MoveFirst
    Do Until rstTab2.EOF
      If rstTab2!IdContatore = rstTab1!IdContatore Then
        rstTab2bis.AddNew
        rstTab2bis!IdContatore = MioContatore
        rstTab2bis!Materiale = rstTab2!Materiale
        rstTab2bis!Costo = rstTab2!Costo
        rstTab2bis.Update
      End If
      rstTab2.MoveNext
    Loop
    Set rstTab1 = Nothing
    Set rstTab2 = Nothing
    Set rstTab1bis = Nothing
    Set rstTab2bis = Nothing
    Exit Sub
  End If
  rstTab1.MoveNext
Loop
Ti ricordo che tutto ciò è scritto per A97 e presuppone quindi i riferimenti
alle librerie DAO.
Prova e facci sapere.



title: Duplica record

text:
"Roberto dal portatile" <
r.ma...@repubblica.it
> ha scritto nel messaggio
news:9iut4v$21r0$1...@stargate1.inet.it...

Funziona tutto!
Grazie mille per l'aiuto. L'unica cosa è che ho dovuto, nei Riferimenti,
aumentare la priorità delle librerie DAO altrimenti non ne voleva sapere di
andare.
Grazie di nuovo
Mauro


title: Duplica record

text:
"Mauro" <
rip...@libero.it
> ha scritto nel messaggio
news:_gU47.4751$Db7.1...@news.infostrada.it...
[CUT]
> Funziona tutto!
> Grazie mille per l'aiuto. L'unica cosa è che ho dovuto, nei Riferimenti,
> aumentare la priorità delle librerie DAO altrimenti non ne voleva sapere
di
> andare.
In effetti lo avevo letto in thread precedenti.
Ma mi ero dimenticato di dirtelo.
>
> Grazie di nuovo
>
> Mauro



title: Associare casele di testo a tabelle differenti nella stessa form

author: Sthepan

text:
Ho una maschera con una struttura a schede quindi dovrei per ogni pagina
creare delle caselle di testo, e fare in modo che peschino i dati un
tabelle differenti, come fare?
ciao Sthepan


text:
"Sthepan" <
sth...@supereva.it
> ha scritto nel messaggio
news:1bmq4rj6h8amb.1...@40tude.net...

Ammesso e non concesso che io abbia ben compreso il tuo problema, in ogni
scheda inserisci una sottomaschera ognuna associata ad una tabella dicersa;
in alternativa inserisci nelle varie schede della caselle di testo NON
associate che popolerai scrivendo nella loro origine controllo una funzione
DLookUp (vedi help).
Ultima ratio creati una query in cui metti in join tuttle le tue tabelle ed
usa tale query come origine record della maschera contenente la struttura a
schede.
Certo è che una maschera può avere un'unica tabella/query come origine
record e quindi le caselle associate di tale maschera possono far
riferimento ai campi di un'unica tabella/query, quindi per risolvere il tuo
problema dovrai ricorrere a soluzioni di cui sopra ti ho dato
un'alternativa.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Aprire più istanze su di una form

author: Paolo A.

text:
è possibile far aprire più volte lo stesso form?
sto sviluppando un autocomposizione che consente all'utente di generare
delle stringhe di ricerca, in cui ha a disposizione diverse strutture
per selezionare i dati (strutture tipo if ... then, select case), per
elaborarli e aggregarli operatori matematici, funzioni Dcount ecc e
generazioni di stringhe Sql. In alcune situazioni avrei bisogno di poter
richiamare la stessa maschera su cui lvoro in una nuova istanza
Es,
ho una maschera per la compilazione della struttura IF .... THEN che
prevede dei controlli per inserire le condizioni, e le azioni da
compiere per condizione vera o falsa. In alcuni casi un azione è quella
di effettuare un'altro IF... THEN (IF nidificati), percui avrei bisogno
di istanziare nuovamente la form su cui stò lavorando e far compilare
un'altra struttura IF THEN.
Volevo provare con gli oggetti UserForm, ma non sono riuscito a capire
come si creano, qualcuno li ha mai usati?
Spero  di essere stato comprensibile
Ciao
Paolo
--
-------------------------------------------------------------------------------
Un giorno le macchine riusciranno a risolvere tutti i nostri problemi.
Ma nessuna macchina sarà in grado di porne uno.
-------------------------------------------------------------------------------


title: Aprire più istanze su di una form

author: Sib

text:
"Paolo A." <
aul...@interlogica.it
> ha scritto nel messaggio
news:3A09750A...@interlogica.it...
> è possibile far aprire più volte lo stesso form?
cut
Sul sito comune c'e' un esempio per i report (Report multipli o qualcosa del
genere). Per le maschere dovrebbe cambiare ben poco.
Ciao, Sib


title: Aprire più istanze su di una form

text:
Sib wrote:

non sono mica riuscito a trovarlo.... sai dirmi qualcosa di più?
ciao



title: Aprire più istanze su di una form

author: Riccardo

text:
Paolo A. <
aul...@interlogica.it
> wrote in message
3A098846...@interlogica.it...
> Sib wrote:
>
> > "Paolo A." <
aul...@interlogica.it
> ha scritto nel messaggio
> > news:3A09750A...@interlogica.it...
> > > č possibile far aprire piů volte lo stesso form?
> >
> > cut
> >
> > Sul sito comune c'e' un esempio per i report (Report multipli o qualcosa
del
> > genere). Per le maschere dovrebbe cambiare ben poco.
> >
> > Ciao, Sib
>
> non sono mica riuscito a trovarlo.... sai dirmi qualcosa di piů?
> ciao
> Paolo
>
>
> --
forse si riferisce alla FAQ:
Using the Same Button(s) on Multiple Forms.
ciao Riccardo


title: Aprire più istanze su di una form

author: Karl Donaubauer

text:
Paolo A. <
aul...@interlogica.it
> schrieb:
> č possibile far aprire piů volte lo stesso form?
> ....
p.e. nel parte di dicciarazione nel modulo del form:
Dim formdinuovo As New NomeDelTuoForm
Nel codice di un evento p.e. click di un button far visibile
un altra istanza:
    With formdinuovo
        .Visible = True
        DoCmd.MoveSize 2000, 2000
    End With
MoveSize č necessario perchč altrimenti sono tutte alla stessa
posizione nel schermo.
--
HTH
Karl
*********
Scusate il mio malissimo Italiano. Faccio solo esercizi qui.
Access-FAQ (Tedesco):
http://www.donkarl.com


title: Aprire più istanze su di una form

text:
qualcuno che non conosco ha scritto:
> Paolo A. <
aul...@interlogica.it
> schrieb:
> > è possibile far aprire più volte lo stesso form?
> > ....
> p.e. nel parte di dicciarazione nel modulo del form:
>
> Dim formdinuovo As New NomeDelTuoForm
Oops, manca qc per conoscere la classe:
Dim formdinuovo As New Form_NomeDelTuoForm
--



title: Aprire più istanze su di una form

text:
Karl Donaubauer wrote:

OK  perfetto.
grazie
paolo



title: Aprire più istanze su di una form

text:
"Riccardo" <
ricc...@free.panservice.it
> ha scritto nel messaggio
news:8uc4m4$ufm$1...@news.panservice.it...
> Paolo A. <
aul...@interlogica.it
> wrote in message
> > Sib wrote:
> > > "Paolo A." <
aul...@interlogica.it
> ha scritto nel messaggio
> > > > č possibile far aprire piů volte lo stesso form?
> > >
> > > cut
> > >
> > > Sul sito comune c'e' un esempio per i report (Report multipli o
qualcosa del
> > > genere). Per le maschere dovrebbe cambiare ben poco.
> > >
> > > Ciao, Sib
> >
> > non sono mica riuscito a trovarlo.... sai dirmi qualcosa di piů?
> > ciao
> > Paolo
> > --
> forse si riferisce alla FAQ:
> Using the Same Button(s) on Multiple Forms.
No, mi riferisco alla sezione download:
"Access 97 - Report dinamici per rappresentazioni a campi incrociati"
(RoDago e Sib)
Sib


title: invia tasti

author: tom

text:
Ciao a tutti,
dovrei implementare un pulsante di comando, dove alla pressione dello
stesso avvio la chiamata tramite una centralina telefonica, dove è
impostato per l'avvio della chiamata da tastiera il tasto F9, se io
dalla maschera che mi sono creato seleziono il campo contenente il num
di telefono e premo F9, la chiamata si avvia, quindi funziona.
Il problema dove sta allora? Il problema sta nel fatto che devo
riuscire a fare la stessa cosa con un pulsante di comando  dove alla
pressione dello stesso seleziono il num di telefono e avvio la chiamata
con F9, ho provato con sendKey "F9", true però la chiamata non si
avvia, come mai? Qualche idea?
Tommy


title: invia tasti

author: EmMeCi - Style

text:
[cut]
F9 = vbKeyF9 0x78 (costante del tasto funzione)
Prova con questa oppure:
SendKeys "{F9}"
--
**********
EmMeCi - Strano...Mavero
**********
Blog Personale:
http://www.setfocus.it

Inviato da X-Privat.Org - Registrazione gratuita
http://www.x-privat.org/join.php


title: invia tasti

text:
con SendKeys "{F9}" non funziona
F9 = vbKeyF9 0x78 (costante del tasto funzione) non capisco voe e come
inserirlo
puoi spiegarmi meglio?


title: invia tasti

text:
[cut]
Private Sub cmd_f9_Click()
SendKeys "{F1}"
End Sub
Se lo provi ti si apre l'help ... se la tua procedura premendo F9 parte,
allora deve partire anche con
Private Sub cmd_f9_Click()
SendKeys "{F9}"
End Sub
se invece con access abilitato non funziona comunque ... non è che hai in
attivo una macro autokeys per caso?



title: invia tasti

author: MA

text:

c'è un piccolo tutorial su
www.accessgroup.it
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: invia tasti

text:
in effetti ho fatto anchio la prova con i vari tasti funzione F1
compreso e mi funziona, se premo il tstao  F9 si avvia la chiamata, ma
se effettuo SendKeys "{F9}" non funziona, boh!!!, non ho macro autokeys
in attivo.


title: invia tasti

text: in quale sezione????


title: invia tasti

text:
tom wrote:
> in quale sezione????
http://www.accessgroup.it/HomeArgomenti.asp?ID=109&Oggetto2=Creare%20una%20barra%20dei%20menů%20personalizzata



title: invia tasti

text:
ho provato anche questa ma non vaaaa...
Tommy


title: invia tasti

text:
"tom" <
ar...@libero.it
> ha scritto nel messaggio
news:1147966259.6...@j55g2000cwa.googlegroups.com...
> ho provato anche questa ma non vaaaa...
>
> Tommy
Riprendendo quello che hai scritto:"...se io dalla maschera che mi sono
creato seleziono il campo contenente il num di telefono e premo F9, la
chiamata si avvia, quindi funziona."
Secondo me devi prima selezionare il numero nella casella di testo, quasi
probabilmente con le proprietą SelStart/SeLength (vedi help attivabile con
ALT-F11 poi F1), e poi inviare l'F9...
Ciao.
--
Sergio MAZZA


title: invia tasti

text:
ho provato anche quello,
il codice che inserisco all'evento click del pulsante è:
   Me.Telefono.SetFocus
   Me.Telefono.SelStart = 0
   Me.Telefono.SelLength = 255
   SendKeys "{F9}", True
ma non funziona lo stesso...
ma ke sarà????
Tommy


title: invia tasti

text:
"tom" <
ar...@libero.it
> ha scritto nel messaggio
news:1147972583.2...@g10g2000cwb.googlegroups.com...


ma ke sarà????
Tommy
[risposta]
Forse il problema è sul controllo che ha il fuoco nel momento che viene
premuto il tasto F9. Tu dici che se selezioni il numero e premi F9 il
programma legge il numero; ma se la selezione la fai da codice, tramite
l'evento "su clic" del bottone, è quest'ultimo che ha il fuoco e l'F9
potrebbe non leggere nulla.
Prova a gestire l'evento "doppio clic" della casella di testo che contiene
il numero inseredoci il codice che seleziona il numero e invia il
SendKeys...
Ciao.
--
Sergio MAZZA


title: invia tasti

author: Tom

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:e4jrnv$su2$1...@area.cu.mi.it...

Ho fatto anche questo ma non si avvia....
Tommy


title: invia tasti

author: Carlo Costarella

text:
"tom" <
ar...@libero.it
> ha scritto nel messaggio
news:1147940212.1...@38g2000cwa.googlegroups.com...

Tommy
[risposta]
Prova con:
Application.Run "utility.wlib_AutoDial", TuoNomeControllo
Ciao, Carlo


title: Arrotondamenti ancora...

author: Rossella Capra

text:
La funzione Format non riguarda solo la visualizzazione di un numero??
L'help in linea dice se non leggo male che il Format non scrive la
formattazione nella cella, ma la visualizza solamente...
In una query se scrivo Format([mionumero],"#.###,00") lui arrotonda in
modo corretto e poi tronca definitivamente, altro che visualizzazione.
Ditemi che non č vero, altrimenti a tutte le vostre indicazioni per
arrotondare l'IVA e gli importi in Euro bisogna aggiungere anche questa.
Le varie prove continuano con altre stranezze che per ora non aggiungo,
sperando che qualcuno smentisca sto' "format", che non mi fa capire piů
nulla... vi saluto
ciao ciao
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Arrotondamenti ancora...

author: Roberto da casa

text:
"Rossella Capra" <
stefan...@tiscalinet.it
> ha scritto nel messaggio
news:2b709cbd307cc711c0a...@mygate.mailgate.org...
> La funzione Format non riguarda solo la visualizzazione di un numero??
> L'help in linea dice se non leggo male che il Format non scrive la
> formattazione nella cella, ma la visualizza solamente...
Leggi un pochino male: quello che tu dici l'help lo riferisce alla proprietà
Formato e non alla funzione Format o Format$.
>
Penso proprio che tu stia confondendo la proprietà Formato con la funzione
Format.
La proprietà Formato agisce solo sulla visualizzazione del dato, ma non
incide sul suo contenuto; la funzione Format invece crea una stringa e ne
determina il valore.
> In una query se scrivo Format([mionumero],"#.###,00") lui arrotonda in
> modo corretto e poi tronca definitivamente, altro che visualizzazione.
In questo caso tu hai usato la funzione Format e quindi hai inciso sul
valore del campo; ma se tu avessi solo impostato a #.###,00 la proprietà
Formato di quel campo, avresti inciso solo nella visualizzazione e no sul
suo valore.
>
> Ditemi che non è vero, altrimenti a tutte le vostre indicazioni per
> arrotondare l'IVA e gli importi in Euro bisogna aggiungere anche questa.
>
Primo perché si vuole mantenere Numerico il campo del risultato e poi perchè
si vuole una precisione nell'arrotondamento che non sempre la funzione
Format ti dà.
> Le varie prove continuano con altre stranezze che per ora non aggiungo,
> sperando che qualcuno smentisca sto' "format", che non mi fa capire più
> nulla... vi saluto
Spero di aver dimunuito e non aumentato la tua confusione circa la funzione
Format e la proprietà Formato. ;-)
(a Roma si dice: stai attenta a non confondere il cioccolato con la cacca)
>
> ciao ciao
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Arrotondamenti ancora...

text:
Ebbene si, ho confuso format con formato...
Ti ringrazio molto, e tra l'altro ti dirň che per fare la conversione
in euro dei miei dati ho usato due dei sistemi letti sul forum.
Con quel format ho perň provato a fare un pň di arrotondamenti e non ho
riscontrato errori.
Forse c'č lo stesso problema della funzione Round?
In ogni caso ti ringrazio, tra l'altro la tua risposta mi ha spiegato
anche altre cose... e che vuoi di piů... meglio un pň di nutella in piů
che m...
ciao e grazie ancora, un forum a dir poco "eccezzionale"!!



title: Arrotondamenti ancora...

text:
"Rossella Capra" <
stefan...@tiscalinet.it
> ha scritto nel messaggio
news:27696ba4e83542d063d...@mygate.mailgate.org...
[CUT]
> Con quel format ho perň provato a fare un pň di arrotondamenti e non ho
> riscontrato errori.
Nella maggior parte dei casi ti restituisce esatti, come avviene usando la
funzione Int, ma ci sono dei valori particolari che ti darebbero sgradite
imprecisioni (d'altra parte non puň essere altrimenti con numeri in base 10
rappresentati in base 2); quindi č sicuramente meglio usare la funzione di
Karl.
>
> Forse c'č lo stesso problema della funzione Round?
Uso A97, che non ha tale funzione, quindi non sono in grado di risponderti.
>
... meglio un pň di nutella in piů che m...
Sono d'accordissimo. :-)
>
> ciao e grazie ancora, un forum a dir poco "eccezzionale"!!
>
Ciao



title: Arrotondamenti ancora...

text:
Roberto da casa ha scritto:
Ciao, Roberto, spero che stai bene.
> "Rossella Capra ha scritto:
> > Con quel format ho però provato a fare un pò di arrotondamenti e non ho
> > riscontrato errori.
>
> Nella maggior parte dei casi ti restituisce esatti, come avviene usando la
> funzione Int, ma ci sono dei valori particolari che ti darebbero sgradite
> imprecisioni ...
Format non sempre arrotonda in senso commerciale in A97 p.e.
?Format(1.125, "#.##")
1.03 ma
Format(1.025, "#.##")
1.02
ecc.
invece in A00:
?Format(1.025, "#.##")
1,03
Sembra che hanno cambiato qc. ma non l'ho testato molto in A00 e AX
perché MS in genere non intende Format() per l'arrotondamento e per
questo possono essere ancora sbagli.
> > Forse c'è lo stesso problema della funzione Round?
>
> Uso A97, che non ha tale funzione, quindi non sono in grado di
risponderti.
La funzione Round di VBA fa problemi differenti.
In genere non arrotonda in senso commerciale ma .5 ai numeri pari. p.e.
?round(1.025,2)
 1,02
?round(1.055,2)
 1,06
ma anche con qualche sbaglio:
?round(1.035,2)
 1,03
--
cu
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Arrotondamenti ancora...

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:a6vih6$h8in7$1...@ID-46617.news.dfncis.de...
> Roberto da casa ha scritto:
>
> Ciao, Roberto, spero che stai bene.
>
Abbastanza bene, grazie.
Questa settimana ho effettuato alcune visite di controllo: sono tutte molto
soddisfacenti, tranne che per una piccola infiammazione al polmone sinistro,
che però era da mettere in conto dopo una operazione come la mia; per il
resto, tranne che per una fastidiosa glicemia fuori norma (che però non ha
niente a che vedere con la mia operazione), sembra che vada tutto bene.
Grazie anche per le tue puntualizzazioni sull'argomento degli
arrotondamenti, d'altra parte in materia sei per tutti noi un insostituibile
punto di riferimento.
[CUT]
> --
> cu
> Karl
> *********
> Access-FAQ (tedesco):
http://www.donkarl.com
Ciao
Roberto


title: Arrotondamenti ancora...

author: Emyr

text:


concordo.
Saluti.
Emanuele.


title: Arrotondamenti ancora...

text:
Ragazzi... grazie, meglio anzi molto meglio dei manuali.
La funzione "Format" e "formato" sull'help non č molto chiara, anche se
io ho proprio fatto confusione.
La mia generazione rifiuta di imparare a memoria, e cosě ogni tanto
anche se non ci sarebbe bisogno si perde una marea di tempo solo per
concetti che a tutti i costi vogliamo (voglio) siano rispondenti
alle nostre idee. Crescendo si cambia, e si capisce che forse non č
necessario andare a fondo di tutte le funzioni se la soluzione ci viene
fornita da un altra formula.
La funzione di Karl ha risolto in modo brillante i miei problemi,
qualcuno giustamente si sta' stancando di questi arrotondamenti.
Intanto vi ringrazio per aver diminuito i miei dubbi.
Il mio programma gestionale č sicuramente migliorato con il forum ed il
Sitocomune.
Grazie ancora
ciao ciao



title: blocco casella di riepilogo

text:
Ciao a tutti.
Dato che ho una casella di riepilogo composta da 52 colonne,volevo
chiedervi se è possibile bloccare la prima colonna in modo che quando
si scorre la lista con le freccette gli altri campi si spostano ma la
prima colonna resta fissa.Per intenderci quello che succede in excel
quando si blocca una colonna.E' impossibile in una casella di
riepilogo?
GRazie a tutti


title: blocco casella di riepilogo

author: Antonio Biso

text:
<
brena.c...@gmail.com
> ha scritto nel messaggio
news:1171365030.4...@p10g2000cwp.googlegroups.com...

E' possibbole, non è possibbole, è impossibbole...
Una di queste tre è falsa
Antonio


title: per ESPERTI link a tabelle da web

text:
salve, vorrei porvi il mio problema:
avrei la necessità di collegarmi da un database client ad un computer server
il server è accessibile via web attraverso uno usernamen e password:
sul server sono presenti 4 mdb ognuno contenente una tabella listino
in base allo username e password il server dovrà fornire il listino
appropriato al client richiedente
                                                    -------------
                username e password   |listino 1
CLIENT ------------------------ |listino 2        Server
                                                    |listino 3
                                                    |listino 4
                                                    -------------
qualcuno di voi mi sà dare qualche dritta?
grazie in anticipo a tutti.


title: Info su numero di record

author: Luigi

text:
Salve a tutti sono Luigi
   Ecco il problema:
   1) facendo l'importazione di un file testo in access, il sistema
crea una tabella.
   2) Access per questo tipo di file importato crea automaticamente
anche una tabella nomefile_erroreimportazione,
   Vi chiedo gentilmente, è possibile estrarre il numero di record, il
totale record della tabella degli errori di importazione, (che è
visualizzato in basso a destra e che appare cliccando sul simbolo
doppia freccia in basso..per intenderci) e aggiungerlo in automatico
in una tabella a parte immettendo in questa tabella anche la data a
cui i dati di importazione fanno riferimento ed il nome della tabella
importata? Cioè ottenere una tabella del genere?
    TabellaTotERRORI costruita ad hoc
    Nome tabella importata     Data          NumeriDiErrorioRecord
         Listino              10-02-2005           144
         Listino              11-02-2005            94
         Listino              13-02-2005           122
         .......              ..........           ...
         ecc.
la tabella importata è la segunete:
 Nome tabella: Listino
    Data      Nome Prodotto  valore inizile     Valore finale
Quantità
10-02-2005     Faldoni             3.400             3.250
10-02-2005    Spillatrice          12.000           13.000
2.000
10-02-2005    Postit               23.000           14.000
...........................
ecc.
listino_erroriImportazione   (Tabella generata automaticamente dal
sistema)
campo      errore                   riga
5         errore convers             1
5         errore convers             3
ecc...
    Records <     > 122 totale records errori
grazie a chi volesse collaborare!!


title: Info su numero di record

text:
"Luigi" <
luigic...@libero.it
> ha scritto nel messaggio
news:565dede1.05021...@posting.google.com...

Non è che abbia capito molto bene cosa tu faccia, comunque un modo veloce
per determinare il numero di record contenuti in una tabella lo puoi
determinare usando la funzione DCount (vedi help).
I record nella tabella TabellaTotERRORI li puoi inserire invece con una
query di accodamento (vedi help).
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: Raggruppamento in maschera

author: Lucky

text:
Riesco a farlo con un report ma non riesco a farlo con le maschere!!!
Ho un corso con all'interno n progetti.
A questo corso partecipano vari allievi che possono essere dentro a più
progetti.
Vorrei in una maschera che si vedessero tutti gli allievi raggruppati per
progetto
CORSO 1 (e questo lo seleziono da combo)
In sottomaschera/e vorrei vedere
Progetto 1
              Tizio
              Caio
              Sempronio
Progetto 2
              Caio
Progetto N
               sempronio
C'è qualche possibilità?
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Raggruppamento in maschera

text:
Lucky wrote:
> Riesco a farlo con un report ma non riesco a farlo con le maschere!!!
> Ho un corso con all'interno n progetti.
> A questo corso partecipano vari allievi che possono essere dentro a
> più progetti.
>
> Vorrei in una maschera che si vedessero tutti gli allievi raggruppati
> per progetto
>
> CORSO 1 (e questo lo seleziono da combo)
>
> In sottomaschera/e vorrei vedere
>
> Progetto 1
>              Tizio
>              Caio
>              Sempronio
> Progetto 2
>              Caio
> Progetto N
>               sempronio
>
>
> C'è qualche possibilità?
>
Se è una sottomaschera
hai i fogli dati secondari
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


title: 1 risposta e 1 correzione e 1 domanda

author: Gianluca

text:
Grazie a tutti dell'aiuto che mi avete dato finora!!
Volevo far sapere a chi ha cercato come me di far pescare ad una query di
selezione un parametro da una casella combinata presente in una maschera che
la stringa criteri va cosě compilata:
Like [Forms]![maschera]![CasellaCombinata]
Vorrei una correzione al codice di questo pulsante che cancella i dati di
una maschera e la chiude, ma se la maschera č vuota da errore come fare? Vi
ringrazio fin d'ora
Private Sub cancella_e_esci_Click()
On Error GoTo Err_cancella_e_esci_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    DoCmd.Close
Exit_cancella_e_esci_Click:
    Exit Sub
Err_cancella_e_esci_Click:
    MsgBox Err.Description
    Resume Exit_cancella_e_esci_Click
End Sub
Ed infine un consiglio:
avendo dei lotti di materiale che puň essere omogeneo o eterogeneo registro
in 2 campi differenti  i prodotti, ma come scrivere il criterio della query
di selezione per far cercare in uno o nell'altro campo se č presente un
determinato prodotto?


title: 1 risposta e 1 correzione e 1 domanda

text:
> Vorrei una correzione al codice di questo pulsante che cancella i dati di
> una maschera e la chiude, ma se la maschera ? vuota da errore come fare? Vi
> ringrazio fin d'ora
>
> Private Sub cancella_e_esci_Click()
If me![campo di una casella di testo della tua maschera] is null then exit sub
'n non il nome della  casella di testo ma l'origine dati. il campo
>
> On Error GoTo Err_cancella_e_esci_Click
>
>     DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
>     DoCmd.Close
>
> Exit_cancella_e_esci_Click:
>     Exit Sub
>
> Err_cancella_e_esci_Click:
>     MsgBox Err.Description
>     Resume Exit_cancella_e_esci_Click
>
> End Sub
>
>
> Ed infine un consiglio:
> avendo dei lotti di materiale che pu? essere omogeneo o eterogeneo registro
> in 2 campi differenti  i prodotti, ma come scrivere il criterio della query
> di selezione per far cercare in uno o nell'altro campo se ? presente un
> determinato prodotto?
ipotizzo un if
tipo
if    il campo della tua query = x  then
il criterio 1
elseif (o else if)  il campo della tua query = Y then
il criterio2
elseif (o else if)  il campo della tua query = z  then
il criterio3
end if
si possono inserire n confronti con n criteri


title: Cerco Office97 Professional con licenza

author: Massimiliano Lodi

text:
Qualcuno avrebbe per caso una versione licenziata dell'Office97 Professional
(quello comprendente Access, per intenderci), che non usa più da vendere ad
un prezzo ragionevole?
L'ho cercata parecchio ma non sono ancora riuscito a trovarla.
Potete rispondermi a questo indirizzo:
lod...@libero.it


title: Dove si trovano le 'specifiche di esportazione' ?

author: RobertoA

text:
Col comando TransferText e' possibile esportare il contenuto di una tabella
su un file di testo
Dopo aver tentato l'esportazione e l'importazione ed aver verificato che
senza definire una 'specifica di esportazione' non andava la procedura, mi
vien da chedermi/vi: ma dove le memorizza Access queste 'specifiche di
esportazione' ?
Vorrei salvarle e trasportarle su altri db
Ciao e grazie
RobertoA


author: Alessandro Cara

text:
RobertoA ha scritto:

MsysImpEX


text:
"Alessandro Cara" <
al...@ay-1asistemi.it
> ha scritto nel messaggio
news:yX9Rl.21815$Ux....@tornado.fastwebnet.it...

Denkio


title: Necessità di tenere un log dettagliato e legge 675 sulla privacy

author: Paolo

text:
Qualcuno ha esperienza o ha risolto il seguente problema?
Devo tenere un log dettagliato delle operazioni svolte, quali
modifiche, quali eliminazioni, chi le ha fatte, la data etc.
All'avvio il programma informa della presenza del log e su cosa esso
registri. Per poter attivare il pulsante di login è necessario
accettare le condizioni elencate, quindi non si può effettuare il
login se prima non si leggono e accettano le avvertenze.
Basta a tutelarsi contro eventuali rimostranze e rimanere in ambito di
legge?
Paolo


author: namor

text:
Paolo ha scritto:
> Qualcuno ha esperienza o ha risolto il seguente problema?
> Devo tenere un log dettagliato delle operazioni svolte, quali
> modifiche, quali eliminazioni, chi le ha fatte, la data etc.
Prova a vedere su
http://www.sitocomune.com/
 sezione Modules 5.22
> All'avvio il programma informa della presenza del log e su cosa esso
> registri. Per poter attivare il pulsante di login è necessario
> accettare le condizioni elencate, quindi non si può effettuare il
> login se prima non si leggono e accettano le avvertenze.
> Basta a tutelarsi contro eventuali rimostranze e rimanere in ambito di
> legge?
> Paolo
Questo dovresti chiederlo a un legale.
Ciao.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Evento chiusura database

author: Rossana

text:
Ciao a tutti,
vorrei dare una certa istruzione (codice) all'evento chiusura del database.
Come definito tale evento?
Grazie mille,
Rossana


title: Evento chiusura database

author: Alessandro Baraldi

text:
Non esiste l'evento che dici.
Per intercettare il tentativo di chiusura si deve ricorrere ad un
trucchetto.
Nell'applicativo si apre una Maschera in modalità Hidden(Nascosta).
Di questa maschera si può intercettare l'evento Unload, ed
eventualmente
bloccarlo.
Questo evento viene scatenato solo quando vi è un tentativo di
chiusura
del DB essendo una Form nascosta.
A quel punto mettici il codice che vuoi.
Ciao
@Alex


title: Evento chiusura database

text:
Grazie mille,
Ciao,
Rossana
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1148745848.6...@u72g2000cwu.googlegroups.com...



title: Ma voi come ridimensionate i form ?

author: Mattia Sarti

text:
Ho postato qualche giorno fà un msg relativo ai problemi di
ridimensionamento form e controlli. Suppongo che sia un problema comune a
tutti quelli che sviluppano e vendono le loro applicazioni: sviluppate a
casa vostra con un monitor da 17" a 1024x768 e poi quando lo portate dal
cliente che ha un monitor 15" a 800x600 come fate a dimesionare le maschere
ed i controlli ?
Io ho provato la procedura presente sul sito comune ma ha qualche problemino
(lentezza ed altro). Ho cercato su internet ma tutto quello che ho trovato
(anche su consiglio del mitico Karl in un post del 18/05/2000) è a pagamento
e ora sono nello sconforto più assoluto.
Ringrazio chiunque sappia aiutarmi.
Aloa    Mattia


title: Ma voi come ridimensionate i form ?

author: RoDAgo

text:
"Mattia Sarti" ha scritto nel messaggio ...

E quanto costerà per gettarti nello sconforto?
Dai fai uno sforzo e acquistati il programmillo.
In ogni caso lo farai pagare ai tuoi clienti!
La qualità si paga.  :-)
> Ringrazio chiunque sappia aiutarmi.
>
> Aloa    Mattia
RoDAgo


title: Ma voi come ridimensionate i form ?

author: Pivo

text: è un problema che ho anch'io


title: Ma voi come ridimensionate i form ?


title: Ma voi come ridimensionate i form ?

author: Silvio Berruti

text:
"Mattia Sarti" <
confm...@libero.it
> ha scritto nel messaggio
news:Oypk6.8162$qx.2...@news.infostrada.it...
> Ho postato qualche giorno fà un msg relativo ai problemi di
> ridimensionamento form e controlli. Suppongo che sia un problema comune a
> tutti quelli che sviluppano e vendono le loro applicazioni: sviluppate a
> casa vostra con un monitor da 17" a 1024x768 e poi quando lo portate dal
> cliente che ha un monitor 15" a 800x600 come fate a dimesionare le
maschere
> ed i controlli ?
Una volta ho avuto la necessità di qualcosa di simile e, sfruttando una
routine presente sul sito comune, ho scritto in un modulo quanto segue:
Private Declare Function apiGetSys Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const SM_CXVSCROLL = 2
Private Const SM_CYHSCROLL = 3
Private Const SM_CYCAPTION = 4
Private Const SM_CXBORDER = 5
Private Const SM_CYBORDER = 6
Private Const SM_CXDLGFRAME = 7
Private Const SM_CYDLGFRAME = 8
Private Const SM_CYVTHUMB = 9
Private Const SM_CXHTHUMB = 10
Private Const SM_CXICON = 11
Private Const SM_CYICON = 12
Private Const SM_CXCURSOR = 13
Private Const SM_CYCURSOR = 14
Private Const SM_CYMENU = 15
Private Const SM_CXFULLSCREEN = 16
Private Const SM_CYFULLSCREEN = 17
Private Const SM_CYKANJIWINDOW = 18
Private Const SM_MOUSEPRESENT = 19
Private Const SM_CYVSCROLL = 20
Private Const SM_CXHSCROLL = 21
Private Const SM_DEBUG = 22
Private Const SM_SWAPBUTTON = 23
Private Const SM_RESERVED1 = 24
Private Const SM_RESERVED2 = 25
Private Const SM_RESERVED3 = 26
Private Const SM_RESERVED4 = 27
Private Const SM_CXMIN = 28
Private Const SM_CYMIN = 29
Private Const SM_CXSIZE = 30
Private Const SM_CYSIZE = 31
Private Const SM_CXFRAME = 32
Private Const SM_CYFRAME = 33
Private Const SM_CXMINTRACK = 34
Private Const SM_CYMINTRACK = 35
Private Const SM_CXDOUBLECLK = 36
Private Const SM_CYDOUBLECLK = 37
Private Const SM_CXICONSPACING = 38
Private Const SM_CYICONSPACING = 39
Private Const SM_MENUDROPALIGNMENT = 40
Private Const SM_PENWINDOWS = 41
Private Const SM_DBCSENABLED = 42
Private Const SM_CMOUSEBUTTONS = 43
Private Const SM_CMETRICS = 44
Public Function AdattaAVideo(f As Form) As Boolean
    On Error Resume Next
    Dim risp, rapporto As Double, fsize As Integer
    Dim ctl As Control
    risp = Val(fGetSysStuff("resolution"))
    rapporto = risp / 640
    For Each ctl In f.Controls
      ctl.Height = ctl.Height * rapporto
      ctl.Width = ctl.Width * rapporto
      ctl.Top = ctl.Top * rapporto
      ctl.Left = ctl.Left * rapporto
      fsize = ctl.FontSize * rapporto
      risp = DMax("DimCarat", "T_DimensioniCaratteri", "[DimCarat] <= val("
& fsize & ")")
      ctl.FontSize = risp
    Next
End Function
Function fGetSysStuff(strWhat As String) As String
' ritorna con "resolution" la risoluzione dello schermo
' ritorna con "windowsize" la dimensione massima ottenibile in finestra
Dim strRet As String
    Select Case LCase(strWhat)
        Case "resolution": strRet = apiGetSys(SM_CXSCREEN) & "x" _
                                        & apiGetSys(SM_CYSCREEN)
        Case "windowsize": strRet = apiGetSys(SM_CXFULLSCREEN) & "x" _
                                        & apiGetSys(SM_CYFULLSCREEN)
    End Select
    fGetSysStuff = strRet
End Function
Uso: nell'evento su apertura della form progettata in 640x480 lancio la
funzione AdattaAVideo(Me).
Per questioni estetiche, è necessario provvedere alla creazione di una
tabella T_DimensioniCaratteri contenente un campo DimCarat riempito con
tutti i valori possibili rappresentati dalle dimensioni in punti dei font
utilizzati.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Ma voi come ridimensionate i form ?

text:
"RoDAgo" <
rodago...@tiscalinet.it
> ha scritto nel messaggio
news:96u8ek$k9k$1...@pegasus.tiscalinet.it...

Lo sconforto ero solo relativo al fatto che non sono in grado di risolverlo
da solo e mi sento un po merdaccia :-)
Comunque mi sa proprio che comprerò qualche cosa. Voi che ne dite: ocx, mde,
dll ??? Cosa compero ?
Aloa e grazie ancora                Mattia


title: Ma voi come ridimensionate i form ?

text:
"Silvio Berruti" <
s...@libero.it
> ha scritto nel messaggio
news:C6Mk6.12738$_N1.2...@news.infostrada.it...
>
> "Mattia Sarti" <
confm...@libero.it
> ha scritto nel messaggio
> news:Oypk6.8162$qx.2...@news.infostrada.it...
> > Ho postato qualche giorno fà un msg relativo ai problemi di
> > ridimensionamento form e controlli. Suppongo che sia un problema comune
a
[cut]
> > ed i controlli ?
>
> Una volta ho avuto la necessità di qualcosa di simile e, sfruttando una
> routine presente sul sito comune, ho scritto in un modulo quanto segue:
> Private Declare Function apiGetSys Lib "user32" _
>     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
>
[cut]
>
> Silvio
>
>
> il sito comune di it.comp.appl.access:
>
http://www.sitocomune.com
>
>
Grazie 1000 dell'aiuto. Solo una domanda che mi è balzata alla mente
rileggendo il mio post: questa procedura deve essere utilizzata su
dimensioni fisse delle form cioè non ridimensiona i controlli nel momento in
cui con il mouse ridimensiono la mia finestra ?
Aloa                    Mattia


title: Ma voi come ridimensionate i form ?

text:
"Mattia Sarti" <
confm...@libero.it
> ha scritto nel messaggio
news:jjMk6.12778$_N1.3...@news.infostrada.it...

Esatto. Quella era una traccia, lascio alla tua fantasia il resto...
--



title: tasto TAB e nuovi record

author: Antonio Di Marco

text:
Come potrei far sě che quando l'ultimo controllo di una maschera č attivo e
pigio il tasto TAB non venga creato un nuovo record ma prenda il fuoco il
primo controllo della maschera ?
Ho provato con il codice sull'evento uscita dell'ultimo controllo ma forse
sbaglio a dichiarare la variabile.
Grazie per l'eventuale suggerimento
Antonio


title: tasto TAB e nuovi record

author: Roberto da casa

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:98mbk7$naa$1...@pegasus.tiscalinet.it...
> Come potrei far sì che quando l'ultimo controllo di una maschera è attivo
e
> pigio il tasto TAB non venga creato un nuovo record ma prenda il fuoco il
> primo controllo della maschera ?
> Ho provato con il codice sull'evento uscita dell'ultimo controllo ma forse
> sbaglio a dichiarare la variabile.
> Grazie per l'eventuale suggerimento
> Antonio
>
>
Come proprietà Sequenza della tua maschera scegli Record corrente.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: tasto TAB e nuovi record

text:
Grazie per il suggerimento, pensavo a chissà quale codice !!!!
Antonio



title: tasto TAB e nuovi record

author: Roberto dal portatile

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:98nmlc$in$1...@lacerta.tiscalinet.it...
> Grazie per il suggerimento, pensavo a chissą quale codice !!!!
> Antonio
>
Nella vita bisogna avere fiducia.
Qualche volta il bicchiere č mezzo pieno e non mezzo vuoto.



title: trovare record libero

text:
CIAO A TUTTI VORREI CHIEDERE AIUTO PER UN QUESITO
COME POSSO FARE AVENDO UN ELENCO DI RECORD AI QUALI HO ASSEGNATO UN NUMERO
DA 10 A 99 A TROVARE UN NUMERO LIBERO APPUNTO COMPRESO DA 10 A 99
GRAZIE IN ANTICIPO
f.ma...@galactica.it


title: trovare record libero

author: Alex

text:
La routine la puoi inserire sull'evento Click di un comando creato per
cercare il primo progressivo libero.
Io la utilizzo per la gestione di codici di prodotti, per non creare sempre
codici nuovi, recupero prima quelli cacellati o vuoi in questo modo, la puoi
inserire così com'è adattando le variabili di scambio con la maschera che
usi.
.......................................................
On Error GoTo Err_AssegnaProgressivo_Click
'Predispone le variabili
Dim RicercaProgressivo as Integer 'Questo è il campo in cui verrà restituito
il Progress.
Dim rst As Recordset
Dim intRecordCount As Integer 'Contiene il numero di record
Dim intCounter As Integer
'imposta il Recordset sulla Form da Clonare
Set rst = Me.TuaMaschera.Form.RecordsetClone
'Controlla che l'ultimo record (EOF) e il primo (BOF) non coincidano
'in quanto il set di record sarebbe vuoto
If (rst.EOF And rst.BOF) = True Then
    Me.RicercaProgressivo = 0
    Exit Sub
End If
' conta quanti record ci sono
rst.MoveLast
intRecordCount = rst.RecordCount - 1
rst.MoveFirst
For intCounter = 0 To intRecordCount
    If intCounter < rst!Progressivo Then 'il campo Progressivo è quello in
cui cercare nella Form
        Me.RicercaProgressivo = intCounter
        Exit For
    End If
    If intCounter = intRecordCount Then
        Me.RicercaProgressivo = intCounter + 1
        Exit For
    End If
    rst.MoveNext
Next intCounter
rst.Close
Set rst = Nothing
Exit_AssegnaProgressivo_Click:
On Error Resume Next
    rst.Close
    Set rst = Nothing
    Exit Sub
Err_AssegnaProgressivo_Click:
    MsgBox Err.Description
    Resume Exit_AssegnaProgressivo_Click
End Sub
Ciao Alex.
--
Posted from
smtp1.libero.it
 [193.70.192.51]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: trovare record libero

author: Antonio Biso

text:
"Alex" <
ik2...@libero.it
> wrote in message
000701c08868$271c0d20$d5391497@ik2zok...
Posso fare l'avvocato del diavolo?
Sì? Sì
> Io la utilizzo per la gestione di codici di prodotti, per non creare
sempre
> codici nuovi, recupero prima quelli cacellati o vuoi in questo modo, la
puoi
> inserire così com'è adattando le variabili di scambio con la maschera che
> usi.
Ti assicuri che questi codici non siano però stati usati e salvati in
qualche storico per cui ti si scombina tutto riassegnandoli?
Che te frega se crei un codice nuovo? Lo fa lui!
> 'Controlla che l'ultimo record (EOF) e il primo (BOF) non coincidano
> 'in quanto il set di record sarebbe vuoto
> If (rst.EOF And rst.BOF) = True Then
>     Me.RicercaProgressivo = 0
>     Exit Sub
> End If
Perchè non if rst.recordcount = 0 then ESCI ?
> ' conta quanti record ci sono
> rst.MoveLast
> intRecordCount = rst.RecordCount - 1
> rst.MoveFirst
Se la tabella non è allegata non c'è bisogno di andare sull'ultimo
> For intCounter = 0 To intRecordCount
>     If intCounter < rst!Progressivo Then 'il campo Progressivo è quello in
> cui cercare nella Form
>         Me.RicercaProgressivo = intCounter
>         Exit For
>     End If
>     If intCounter = intRecordCount Then
>         Me.RicercaProgressivo = intCounter + 1
>         Exit For
>     End If
>     rst.MoveNext
> Next intCounter
> rst.Close
E' tutto molto bello, ma se il recordset non è ordinato in maniera crescente
per il campo progressivo, l'algoritmo non funziona!
Antonio


title: trovare record libero

author: Sergio MAZZA

text:
"F.Marazzi" <
F.Ma...@galactica.it
> ha scritto nel messaggio
news:Bcxc6.73058$lV5.1...@news2.giganews.com...

Non urlare (scrivere in maiuscolo)...
Ciao.


3 miniti di silenzio per gli USA


title: Re: [A2003] cambio di proprietà di campi

author: Ammammata

text:
Ammammata wrote:
> Ho diverse tabelle ...
Ho dimenticato la versione: Access 2003
--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\


author: Bruno Campanini

text:
"Ammammata" <
ammam...@tiscalinet.it
> wrote in message
news:30h50vF...@uni-berlin.de...
> Ho diverse tabelle con i campi numerici impostati a Decimal, Precision 18,
> Scale 2, Decimal places 2
> Vorrei poter cambiare il valore Scale da 2 a 4, in maniera rapida
> Penso a un tool che visualizza i campi in una specie di foglio excel con
> le suddette caratteristiche in colonne diverse per poter passare
> rapidamente da un campo al successivo modificandone il valore...
>
> C'è qualcosa in giro?
Io credo che tu non lo possa fare.
Ma con Access si si è mai sicuri di niente...
Bruno


text:
Ho diverse tabelle con i campi numerici impostati a Decimal, Precision 18,
Scale 2, Decimal places 2
Vorrei poter cambiare il valore Scale da 2 a 4, in maniera rapida
Penso a un tool che visualizza i campi in una specie di foglio excel con le
suddette caratteristiche in colonne diverse per poter passare rapidamente da
un campo al successivo modificandone il valore...
C'è qualcosa in giro?
Grazie



title: Problema con casella di riepilogo

author: Max

text:
Sto praticamente finito una rubrichina in Access per esigenze personali
All'ultimo perň mi sono accorto di un problema che non riesco a risolvere
Le relazioni sono cosě strutturate
Tab1                      Tab2
ID    1-----------oo ID
Cognome                 IDNumero
Nome                      Numero
Dati                         Altro
Telefono
In una maschera di inserimento dati utilizzando una sottomaschera basata su
Tab2 praticamente non ho problemi
Ma utilizzando una seconda form a maschere continue solo per visualizzare ed
eventualmente stampare i dati non posso utilizzare le maschere continue, ho
provato allora ad utilizzare una casella di riepilogo, solo che per ogni
record mi mostra tutti i numeri inseriti anche per gli altri record.
ho provato ad utilizzare alcune funzioni per limitare i record correlati
all'ID di ogni record delle maschere continue (dlookup e altri, senza
risultati)
Mi č venuto anche il dubbio di avere sbagliato le relazioni, qualcuno mi puň
dare un'idea per risolvere il problema


title: Problema con casella di riepilogo

author: songohan

text:
"Max" <
borto...@tiscalinet.it
> ha scritto nel messaggio
news:9p2m5b$g61dl$1...@ID-84832.news.dfncis.de...
