text:
> E gia' e' proprio questo che cercavo
> Mi mancava la FindWindows per acchiappare l'handle di una finestra
> Vedo pero' che vuole il 'class name' della finestra
> E quindi ora il problema si sposta su:
> - data una qualsiasi windows form visibile a schermo, come recuperarne
> il class name?

Quali Elementi CERTI hai per individuare una WindowsForm..?

Se la Form di cui parli è ONTOP, usa un'altro metodo:
Handle=WindowFromPoint(P)
Dove P è il Type PointAPI, e puoi assegnare un X/Y o GetCursorPos(P), in questo caso ricavi l'Handle della Window sotto il Mouse.

Se non hai elementi non trovi l'Handle di nulla... perchè anche Ciclare o Enumerare le WondowsForm aperte e visibili, non serve se poi non la sai individuare con qualche proprietà.

@Alex


title: Come ridimensionare/riposizionare form qualsiasi Windows da codice vba?

author: RobertoA

text:

Lo ShellExecute che uso per avviare il programma estrno, non puo'
restituirmi qualcosa di buono per poi identificarlo tra le altre varie
windows?
Oppure andiamo col titolo, ma quello si sa, puo' essere duplicato


text:
> Lo ShellExecute che uso per avviare il programma estrno, non puo'
> restituirmi qualcosa di buono per poi identificarlo tra le altre varie
> windows?
> Oppure andiamo col titolo, ma quello si sa, puo' essere duplicato

Certo che si...
Come indicato dalla GUIDA:
https://docs.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shellexecutea

ShellExecute, restituisce l'istanza del Processo lanciato, o ProcessID o PID dell'applicazione lanciata.
Da quello enumerando le Windows e confrontando per ognuna il suo Pid si può determinare l'Hwnd del Pid incriminato con GetWindowThreadProcessId

Eccolo 2 esempi:
https://forums.codeguru.com/showthread.php?446691-RESOLVED-How-to-get-handle-of-main-form-using-ProcessID

oppuyre:
https://www.vbforums.com/showthread.php?262384-window-handle-from-process-id

@Alex


text:

La ShellExecute mi restituisce sempre 42
Anche se ne metto tre di fila, sempre 42
Il codice che uso e'

Dim pid As Integer, pid2 As Integer
pid = ShellExecute(1, "open", exe_mio, parametri_per_exe, "", 1)

Ma non dovrebbe ritornarmi il ProcessID dell'applicazione avviata?
Forse sbaglio a lanciare la ShellExecute?


text:
Perché hai dichiarato il più come Integer..?
La guida è chiara... prova ad usare LONG.

@Alex


author: BFS

text:

questo link che ti ha postato alex funziona perfettamente per ricavare
handle dal id

https://www.vbforums.com/showthread.php?262384-window-handle-from-process-id

appena provato
ciao


text:

usando i link postati da alex con questo codice apri il note pad e lo
piazzi in alto sx con 500 di larghezza e 500 di altezza

in un modulo pubblico metti (modifica se 64bit)

     Declare Function SetWindowPos Lib "user32" ( _
     ByVal hwnd As Long, _
     ByVal hWndInsertAfter As Long, _
     ByVal x As Long, _
     ByVal y As Long, _
     ByVal cx As Long, _
     ByVal cy As Long, _
     ByVal wFlags As Long) As Long

crea una maschera con un pulsante

su click del pulsante metti

Dim Pid As Long
         'Lock the window update
         LockWindowUpdate GetDesktopWindow
         'Execute notepad.Exe
         Pid = Shell("c:\windows\notepad.exe", vbNormalFocus)
         If Pid = 0 Then MsgBox "Error starting the app"
         'retrieve the handle of the window
         mWnd = InstanceToWnd(Pid)
         Debug.Print mWnd
         'Set the notepad's parent
    '     SetParent mWnd, Me.hwnd
         'Put the focus on notepad
         'Putfocus mWnd
         'Unlock windowupdate
     '    LockWindowUpdate False

         SetWindowPos mWnd, 0, 0, 0, 500, 500, 0

nel codice maschera:

     Private Declare Function FindWindow Lib "user32" Alias
"FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As
Long
     Private Declare Function GetParent Lib "user32" (ByVal hwnd As
Long) As Long
     Private Declare Function SetParent Lib "user32" (ByVal hWndChild As
Long, ByVal hWndNewParent As Long) As Long
     Private Declare Function GetWindowThreadProcessId Lib "user32"
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
     Private Declare Function GetWindow Lib "user32" (ByVal hwnd As
Long, ByVal wCmd As Long) As Long
     Private Declare Function LockWindowUpdate Lib "user32" (ByVal
hwndLock As Long) As Long
     Private Declare Function GetDesktopWindow Lib "user32" () As Long
     Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As
Long) As Long
     Private Declare Function TerminateProcess Lib "kernel32" (ByVal
hProcess As Long, ByVal uExitCode As Long) As Long
     Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
     Private Declare Function Putfocus Lib "user32" Alias "SetFocus"
(ByVal hwnd As Long) As Long
     Const GW_HWNDNEXT = 2
     Dim mWnd As Long

     Function InstanceToWnd(ByVal target_pid As Long) As Long
         Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
         'Find the first window
         test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
         Do While test_hwnd <> 0
             'Check if the window isn't a child
             If GetParent(test_hwnd) = 0 Then
                 'Get the window's thread
                 test_thread_id = GetWindowThreadProcessId(test_hwnd,
test_pid)
                 If test_pid = target_pid Then
                     InstanceToWnd = test_hwnd
                     Exit Do
                 End If
             End If
             'retrieve the next window
             test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
         Loop
     End Function
     Private Sub Form_Unload(Cancel As Integer)
         'Unload notepad
         DestroyWindow mWnd
         'End this program
         TerminateProcess GetCurrentProcess, 0
     End Sub

testato e funziona
BFS


text:

Provato
Sempre 42 mi ritorna
Parlo dellle righe

Dim pid As Long
pid = ShellExecute(1, "open", "notepad.exe", "", "", 1)
Debug.Print "PID: " & pid


text:

Si, certo, l'esempio consigliato da Alex  funziona
Questo pero' usa SHELL per avviare il programma
E la SHELL ritorna correttamente un valore che poi passato alla
InstanceToWnd ti restituisce l'hWnd da usare per la SetWindowsPos
Io ho sempre provato con la ShelExecute e li mi fermavo perche' non
restituisce l'Hinstance o se la restituisce e' sempre lo stesso numero,
42, strana questa cosa


text:
I
> Si, certo, l'esempio consigliato da Alex funziona
> Questo pero' usa SHELL per avviare il programma
> E la SHELL ritorna correttamente un valore che poi passato alla
> InstanceToWnd ti restituisce l'hWnd da usare per la SetWindowsPos
> Io ho sempre provato con la ShelExecute e li mi fermavo perche' non
> restituisce l'Hinstance o se la restituisce e' sempre lo stesso numero,
> 42, strana questa cosa

Nonostante la guida indichi che ShellExecute restituisce l'istanza, pare non sia così in effetti...
Serve usare ShellExecuteEx per avere l'istanza, come riportato qui:

https://docs.microsoft.com/it-it/windows/win32/api/shellapi/nf-shellapi-shellexecuteexa?redirectedfrom=MSDN

In ognincaso con shell  funziona penso sia più comodo e di semplice implementazione.

@Alex


text:

hai ragione
sembra un valore legato all'applicazione

notepad=42
calcolatrice=2

BFS


text:

Certo, se la Shell lancia il programma e restituisce il pid e' perfetta

Un'altra cosa davvero cusiosa
La InstanceToWnd, come da esempi sopra, mi tornava sempre 0
Controlla di qua, controlla di la', era la FindWindows al suo interno
che ritornava sempre 0 e quindi usciva subito dalla funzione

Controllo il Declare della FindWindow e sembra tutto a posto, due long
come parametri e torna un valore anch'esso long
Do' un'occhiata su internet e salta fuori che in molti siti la
FindWindows ha il declare cosi

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As string, ByVal lpWindowName As string) As Long

Con due stringhe come parametri, non due long
Cambio anch'io, e cambio anche la riga dentro la InstanceToWnd  da
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
in
test_hwnd = FindWindow(vbNullString, vbNullString)

Eeee.. resta d stucco e' un barbatrucco, ora funziona come previsto

Ma che e'? Neanche piu' delle Api possiamo fidarci?
Iniziano a pungerci pure loro?
Qua' vien giu' un pilastro dell'informatica microsoftiana


title: download di un File

author: Blink

text:
Ciao devo scaricare da internet un file (listino) in formato testo, come
prima cosa ho installa l'Ocx InternetTranferProtocol e poi ho usato questo
codice.
    Dim strURL As String
    Dim intFile As Integer
    intFile = FreeFile()
    strURL = "
http://www.prova.it/dati.dat
    internet.OpenURL (strURL)
    Open "c:\NomeFile.txt" For Output As #intFile
    Write #intFile, internet.OpenURL(strURL)
    Close #intFile
 mi succede questo la procedura funziona, l'unicca cosa è che quando il file
è stato scaricato, non rispetta le tabulazioni reali, non so semi sono
spiegato, diciamo che salta qualche spazio, cosi facendo quando lo impoto in
access ottengo un sacco di errori di imortazione, se invece faccio il
download del file nella vecchia maniere ( tasto destro del mouse - salva con
nome) non ottengo nessun errore e l'importazione successiva va a buon
termine.
C'è qualcuno che ha già risolto il problema, magari anche con un altra
procedura ????
Enrico Pietrobn


title: Record filtrato

author: marietto

text:
Ho una maschera di ricerca che me apre un'altra al record desiderato. La
seconda maschera viene aperta giustamente filtrata nel senso che
l'imbutino sulla barra risulta attivo.
Per potermi muovere nuovamente nei miei record devo disabilitare col
mouse l'imbutino.
E' possibile disabilitarlo da codice? Se si come.
Ringrazio anticipatamente


title: Record filtrato

author: Alex

text:
"marietto" <
m...@mar.it
> wrote in message
news:MPG.169e8d364...@news.tiscalinet.it...

Sarebbe bello sapere con che metodo hai filtrato...???
In ogni caso prova così:
Me.FilterOn=False
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Record filtrato

text:
>
> Sarebbe bello sapere con che metodo hai filtrato...???
DoCmd.OpenForm MiaMaschera, acNormal, , ID=x, acFormEdit
> In ogni caso prova così:
> Me.FilterOn=False
Ho provato a metterlo un po' in tutti gli eventi ma la maschera si apre
al primo record.In effetti comincio a pensare che sia un po' un
controsenso.
Comunque ai altre soluzioni?


title: Record filtrato

text:
"marietto" <
m...@mar.it
> ha scritto nel messaggio
news:MPG.169eb5ae9...@news.tiscalinet.it...

Ricapitoliamo.
E' ovvio che con il metodo da te usato la Form si apre con solo 1 record,
quello che
passi come indice ID=x.
Naturalmente se hai i pulsanti di spostamento noterai che sta scritto:
Record 1 di 1 (Filtrati)
Ora, se questo lo vuoi eliminare devi mettere un Pulsante e su evento Click
inserire:
      me.FilterOn=False
      Me.Requery
Se invece vuoi che all'apertura ti mostri tutti i Record devi Omettere la
parte nel Metodo Docmd...:
DoCmd.OpenForm MiaMaschera
--
@Alex
*--------------------------------------------------------------------------*
Alessandro B.
Sito Comune      :
http://www.sitocomune.com
Sito Personale   :
http://digilander.iol.it/ik2zok/
*--------------------------------------------------------------------------*


title: Record filtrato

author: Sergio MAZZA

text:
"marietto" <
m...@mar.it
> ha scritto nel messaggio
news:MPG.169e8d364...@news.tiscalinet.it...

Altra soluzione potrebbe essere il DoCmd.ShowAllRecords...
Ciao.
--
Sergio MAZZA


title: Cambiare il nome dei pulsanti in una msgbox

author: giaconet

text:
Ciao a tutti.
E' possibile cambiare il nome dei pulsanti in una msg box?
E' possibile che si è limitati a OK, Annulla, ecc. e se devo chiedere una
cosa e scrivere Si e No oppure Crea Modifica Cancella, devo crearmi un form
con 3 pulsanti?
Thanx
giaconet


author: stwe

text:
"giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
news:9t8hrq$v1eu$1...@ID-71483.news.dfncis.de...

sull'help c'è tutto quello che ti serve, l'ho capito pure io
by
stwe


author: Massimo

text:
"giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
news:9t8hrq$v1eu$1...@ID-71483.news.dfncis.de...

non sono sicuro ma penso proprio di si.
Max


author: Antonio Biso

text:
giaconet <
giac...@nospam.it
> wrote in message
9t8hrq$v1eu$1...@ID-71483.news.dfncis.de...

La seconda che hai detto...
Antonio


text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:N0QJ7.120755$sq5.5...@news.infostrada.it...

?? L'help me lo sono letto bene, ma proprio non l'ho capito. Mi fai due
righe di codice di esempio? Grazie
Bye
giaconet


text:
"giaconet" <
giac...@nospam.it
> ha scritto nel messaggio
news:9t998k$151hq$1...@ID-71483.news.dfncis.de...

Private Sub Comando7_Click()
On Error GoTo Err_Comando7_Click
Response = msgbox("Vuoi veramente eliminare?", vbYesNo + vbQuestion +
vbDefaultButton2, "Attenzione")
If Response = vbYes Then
    'fai quello che vuoi
Else
    'fai quello che vuoi
End If
Exit_Comando7_Click:
    Exit Sub
Err_Comando7_Click:
    msgbox Err.Description
    Resume Exit_Comando7_Click
End Sub
spero ti aiuti
by
stwe


author: ST

text:
> E' possibile cambiare il nome dei pulsanti in una msg box?
> E' possibile che si č limitati a OK, Annulla, ecc. e se devo chiedere una
> cosa e scrivere Si e No oppure Crea Modifica Cancella, devo crearmi un
form
> con 3 pulsanti?
> Thanx
> giaconet
Sě, si puň:
cerca "ExtendedMsgBox": ExtendedMsgBox-module created by the KPD-Team 2000
in
www.allapi.net
Funziona benissimo.
Permette tra l'altro di personalizzare anche le icone con delle immagini. ma
non ho capito come passargli le immagini. Se ci riesci, fammi sapere.
Ciao
Silvio


text:
"stwe" <
st...@stwe.org
> ha scritto nel messaggio
news:l7YJ7.125155$sq5.6...@news.infostrada.it...
>
[MEGACUT]
Forse mi sono spiegato male. Non volevo cambiare il testo della domanda, ma
proprio quello dei pulsanti.
Far uscire Conferma su un pulsante e Modifica su un altro. Invece di Ok &
Annulla, ecc.
Bye
giaconet


title: somme in query per id senza aggregazione

author: Franco

text:
ho una mascera con origine record da Query (senza aggregazione)
come posso ottenere somme per id senza aggregazione?
ho provato con dsum ma non ottengo il totale raggruppato per id.

grazie per l'aiuto


text:
"Franco" <
Franco.D...@libero.it
> ha scritto nel messaggio
news:4f9139fb$0$1375$4faf...@reader1.news.tin.it...

trovato


title: Query x molte tabelle

author: SuperPippo®

text:
Ciao avrei 2 domande ...
la prima è ...come posso selezionare in una tabella dei record con un
diverso colore ???
e poi come posso fare una query di ricerca che ha come origine 9 tabelle....
ossia che mi faccia la ricerca in tutte ???
grazie...
--
SuperPippo®   [;o))


title: Query x molte tabelle

author: Silvio Berruti

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:1unl7.758$kA5....@news.infostrada.it...
> Ciao avrei 2 domande ...
> la prima è ...come posso selezionare in una tabella dei record con un
> diverso colore ???
In una tabella non mi risulta, lo puoi fare in una maschera.
Vedi Sito Comune x A97, oppure la guida (formattazione condizionale, mi
pare) x A2000
> e poi come posso fare una query di ricerca che ha come origine 9
tabelle....
> ossia che mi faccia la ricerca in tutte ???
Dacci un'idea delle tabelle, delle loro relazioni. La ricerca va fatta su
ogni campo di ogni tabella o su un campo in comune tra tutte?
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Query x molte tabelle

author: CarloCos

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:1unl7.758$kA5....@news.infostrada.it...

Alla prima domanda guarda in
www.sitocomune.com
 alla sezione Form.
Alla seconda. Una strada potrebbe essere quella di fare la ricerca in ogni
singola tabella e accodare il risultato in una tabella di appoggio, fermo
restando l'omogeinicità dei tipi di dati.
Se tutte le tabelle hanno Nome e Cognome per esempio, potresti fare una
query di accodamento per ogni tabella in una tabella di appoggio che abbia i
campi Nome e Cognome. Nella query di accodamento puoi impostare gli stessi
criteri di una query di selezione, solo che il risultato viene accodato ad
una tabella.
Una volta create le query di accodamento puoi eseguire la ruotine seguente:
DoCmd.OpenQuery "MiaQuery1"
DoCmd.OpenQuery "MiaQuery2"
DoCmd.OpenQuery "MiaQuery3....
ecc.
Infine apri la tabella in una maschera o dove vuoi tu e avrai il risultato
completo.
Ti ricordo che dovrai svuotare la tabella di appoggio, magari con una query
di eliminazione, prima di accodarvi i risultati di una nuova ricerca.
Sono possibili altre strade.
Ciao, Carlo


title: Query x molte tabelle

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:fYnl7.951$kA5....@news.infostrada.it...
|
| "SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
| news:1unl7.758$kA5....@news.infostrada.it...
| > Ciao avrei 2 domande ...
| > la prima è ...come posso selezionare in una tabella dei record con un
| > diverso colore ???
|
| In una tabella non mi risulta, lo puoi fare in una maschera.
| Vedi Sito Comune x A97, oppure la guida (formattazione condizionale, mi
| pare) x A2000
|
| > e poi come posso fare una query di ricerca che ha come origine 9
| tabelle....
| > ossia che mi faccia la ricerca in tutte ???
|
| Dacci un'idea delle tabelle, delle loro relazioni. La ricerca va fatta su
| ogni campo di ogni tabella o su un campo in comune tra tutte?
| Silvio
-----------------------
grazie x la risposta ..anche a CarloCos....
per il primo problema ...andrò a vedere  sul Sito Comune...
in quanto al secondo quesito... le tabelle sono 9 e non sono in relazione
tra loro... ed esse contengono dati anagrafici di utenti.... ed hanno una
struttura
e campi uguali tra loro.....
a dir la verità... ho fatto anche  un'unica tabella Totali in cui dopo aver
copiato la struttura ho accodato tutti i dati.... però la soluzione non mi
piace molto... dato che il DB è quasi raddoppiato di grandezza... e poi la
ricerca su quasi 100.000 utenti
è un pò lenta...
quindi se fosse possibile creare una query di ricerca che mi "scandaglia"
sulle nove tabelle...forse è + veloce ???
Grazie...


title: Query x molte tabelle

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:Q23m7.5491$i_1.2...@news.infostrada.it...

Se cerchi in un solo campo, potresti cavartela con 9 DLookup.



title: Query x molte tabelle

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:Bt5m7.6625$i_1.2...@news.infostrada.it...
|
| Se cerchi in un solo campo, potresti cavartela con 9 DLookup.
| Silvio
---------------------------------
caspiterina Silvio... non parlare difficile... supponiamo di fare la ricerca
su un campo Cognome ed un campo Nome... si può fare stò DLookup ???
se non si può... dimmi come fare su un solo campo... che la ricerca la
applico
ad un codice regionale... grazie....


title: Query x molte tabelle

text:
"SuperPippo®" <
ik0...@libero.it
> ha scritto nel messaggio
news:pt8m7.1520$ul3....@news.infostrada.it...

Riporto dall'help:
È possibile utilizzare la funzione DLookup per ottenere il valore di un
determinato campo da un set di record specificato, un dominio. Utilizzare la
funzione DLookup in Visual Basic, in una macro, in una espressione nella
query o in un controllo calcolato di una maschera o di un report.
Sintassi
DLookup(espr, dominio[, criteri])
Esempi:
Dim varX As Variant
varX = DLookup("[NomeSocietà]", "Corrieri", "[IDCorriere] = 1")
oppure
Dim varX As Variant
varX = DLookup("[NomeSocietà]", "Corrieri", "[IDCorriere] = " _
 & Forms!Corrieri!IDCorriere)
La funzione DLookup ritorna il valore del campo (espr) del 1° record
incontrato nella tabella (dominio) in base ai criteri inseriti.
Se nessun record soddisfa i criteri, restituisce Null.
Quindi potresti fare qualcosa tipo:
If Not IsNull(DLookup("[codice regionale]", "Tabella1", "[codice regionale]=
" & Me.[Codice regionale])) then
    MsgBox "Trovato in Tabella1"
End If
If Not IsNull(DLookup("[codice regionale]", "Tabella2", "[codice regionale]=
" & Me.[Codice regionale])) then
    MsgBox "Trovato in Tabella2"
End If
If Not IsNull(DLookup("[codice regionale]", "Tabella3", "[codice regionale]=
" & Me.[Codice regionale])) then
    MsgBox "Trovato in Tabella3"
End If
ecc. ecc.
supponendo che le tabelle contengano tutte un campo che si chiama [codice
regionale].
Rielabora quanto sopra a tuo uso e consumo.



title: Query x molte tabelle

text:
"Silvio Berruti" <
sber...@libero.it
> ha scritto nel messaggio
news:OOjm7.4307$ul3.1...@news.infostrada.it...
| > ---------------------------------
| ecc. ecc.
| supponendo che le tabelle contengano tutte un campo che si chiama [codice
| regionale].
|
| Rielabora quanto sopra a tuo uso e consumo.
|
| --
|
| Silvio
---------------------
grazie... Silvio...mi metto all'opera...almeno con un solo campo è già
qualcosa..
grazie di nuovo... Ciao...


title: Evento RecordExit

author: Al

text:
Salve a tutti!
Stavo consultando l'help in linea di AccXp, quando mi sono imbattuto in una
pagina che riporta l'esistenza dell'evento RecordExit riferito ad un form!
C'è tanto di spiegazioni con esempio!
Mi accingo a provarla su di un form e trovo che NON funziona, semplicamente
perchè NON esiste!
Cioè non è presente negli eventi elencati nella finestrella delle proprietà
del form in modalità di editing, né tra gli eventi dell'oggetto, nella
finestra di Debug, né nei suggerimenti mentre si scrive il riferimento nel
codice!
E così anche per qualche altro evento e proprietà!
Come mai?
Sarebbe stato troppo bello ....
Grazie a tutti
Alb


title: Evento RecordExit

author: Tiziano

text:
"Al"
> Salve a tutti!
> Stavo consultando l'help in linea di AccXp, quando mi sono imbattuto in
una
> pagina che riporta l'esistenza dell'evento RecordExit riferito ad un form!
> C'è tanto di spiegazioni con esempio!
> Mi accingo a provarla su di un form e trovo che NON funziona,
semplicamente
> perchè NON esiste!
Era presente nelle Beta di Access 'XP, poi è stato rimosso dalle versioni
definitive.
Forse dava problemi...
Ciao.


title: Esportazione report di word/excel da Access97 su WXP pro disabilitata

author: Re Artů

text:
Ciao a tutti
Da quanto ho installato il SO WXP PRO nella mia barra degli strumenti i
tasti per l'invio dei report negli altri applicativi office sono
disabilitati. Access segnala che ci sono delle voci mancanti nel registro e
consiglia di installare il programma nuovamente...
Qualcuno sa cosa bisogna controllare/sistemare nel registro?
Grazie
Ciao
Luca


title: Invio di SMS

author: Marco

text:
Salve a tutti, forse la mia domanda potrŕ sembrare molto assurda ma
purtroppo un mio cliente mi ha presentato il seguente problema:
Mi chiedeva se č possibile fare in modo che access invii un sms a un cliente
inserito nella mia tabella clienti o a tutti i clienti, non so se sia
realizzabile o meglio sicuramente si puň fare magari non con access ma con
vb, se sapreste darmi un consiglio ve ne sarei grato.
Grazie a tutti, ciao.
Marco


title: Invio di SMS

author: All Eyez On Me

text:
Marco <
alfalink...@libero.it
> wrote in message
KaIj7.77555$TS4.5...@news2.tin.it...
> Salve a tutti, forse la mia domanda potrà sembrare molto assurda ma
> purtroppo un mio cliente mi ha presentato il seguente problema:
> Mi chiedeva se è possibile fare in modo che access invii un sms a un
cliente
> inserito nella mia tabella clienti o a tutti i clienti, non so se sia
> realizzabile o meglio sicuramente si può fare magari non con access ma con
> vb, se sapreste darmi un consiglio ve ne sarei grato.
> Grazie a tutti, ciao.
> Marco
>
Tempo fa avevo un ocx per l'invio di sms ma funzionava solo per i nokia.
E comunque da un po' di tempo a questa parte i provider telefonici non
permettono più l'utilizzo ti tali funzioni. Mi sembra che solo la wind lo
permetta ancora però devi associarti e ogni 10 sms inviati tramite un tuo
programma ne devi spedire uno via sito internet.
Di più non so.
Ciao, AEOM


title: Invio di SMS

author: ste

text:

Prova volasms-activex, dovrebbe fare al caso tuo...
Lo trovi su
http://www.vola.it/vap/default.htm
 .
Ciao.


title: Non visualizzare riquadro oggetti di Access

author: AntFast

text:
Salve
Durante l'esecuzione di una mia applicazione, � possibile NON far vedere
sul lato sinistro della schermata di Access il riquadro "Tutti gli oggetti
di Access" ?
(dove compaiono tabelle, maschere, report, query, macro)
Il motivo � che alcune di esse sono lanciate dall'applicazione che elabora
il rispettivo
'rowsource', essendo ora a vista  � possibile cliccarci s�, il che causa
errori ...
Ho cercato dappertutto ma non riesco a trovare niente..  :-(
Grazie in anticipo per l'eventuale risposta.
Antonio


author: Karl Donaubauer

text:
AntFast wrote:
> Durante l'esecuzione di una mia applicazione, � possibile NON far
> vedere sul lato sinistro della schermata di Access il riquadro "Tutti
> gli oggetti di Access" ?
> ...

1. Puoi impostarlo nelle opzioni del db:
http://office.microsoft.com/it-it/access-help/HA010235717.aspx#BM2

2. In alternativa puoi usare codice:

DoCmd.NavigateTo "acNavigationCategoryObjectType", ""
DoCmd.RunCommand acCmdWindowHide

3. Esiste il bug che dopo alcuni commandi e metodi
(p.e. TransferDatabase) il riquadro torna (2.) e torna (2.) e ...
Quindi dipende anche di cosa fai nell'applicazione.

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


text:
Grazie molte Karl
Antonio
p.s. Tu fai dei corsi per programmazione in Access ?
Se si, sarei interessato. Grazie ancora.

"Karl Donaubauer"  ha scritto nel messaggio
news:ajgror...@mid.individual.net...



text:
Ciao Antonio,

AntFast wrote:
> ...
> p.s. Tu fai dei corsi per programmazione in Access ?
> Se si, sarei interessato.

Alcuni anni fa facevo molti corsi, ma non mai in Italia.
Adesso solo qualche volta nelle aziende dei clienti in Austria
e Germania o per persone singole nel mio ufficio a Vienna.
Quindi, se una volta... ;-)



title: Aprire un file di Word

text:
Salva a tutti.
Volevo porre un quesito spero semplice.
Io ho dei modelli di documento di word che voglio copiare su un cd e poi
tramite un pulsante in una maschera, aprire un nuovo file in base al
modello.
spero di essere stato chiaro.
grazie gianni


title: Aprire un file di Word

text:
"gi@nni" <
ggv...@libero.it
> ha scritto nel messaggio
news:G9Y78.24868$5M4.7...@twister2.libero.it...

hai pensato ad utilizzare le api di win e mettendo .dot come tipo di file?
non ho provato, ma credo che funzionerebbe se non associ il pulsante a
nessun campo.
by
stwe


title: Aprire un file di Word

author: Sergio MAZZA

text:
"gi@nni" <
ggv...@libero.it
> ha scritto nel messaggio
news:G9Y78.24868$5M4.7...@twister2.libero.it...

Prova cosě:
'-----------
Dim objDoc As Word.Document
Set objDoc = CreateObject("Word.Document")
objDoc.Application.Documents.Open "C:\Programmi\Microsoft
Office\Modelli\Altri documenti\Curriculum elegante.dot"
objDoc.Application.Visible = True
'-----------
Prima inserisci i riferimenti alla libreria di Microsoft Word; da un modulo
aperto, menů strumenti - riferimenti...
Ciao.
--
Sergio MAZZA


title: Aprire un file di Word

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:a3qn84$sm8$1...@canarie.caspur.it...

Sergio ciao, e grazie per la soluzione.
Funziona, ma non č quello che io cercavo.
Io vorrei aprire il file (prova.dot) che si trova sul cd come nuovo
documento.
Con la tua soluzione, invece, apre il file prova.dot in sola lettura.
Ho provato a fare delle modifiche al codice, inserendo la funzione
"template", ma mi sono incartato e non riuscito ad arrivare a nulla.
Tu mi puoi aiutare?
grazie gianni


title: Aprire un file di Word

text:
"gi@nni" <
ggv...@libero.it
> ha scritto nel messaggio
news:GxC88.35439$5M4.1...@twister2.libero.it...
>
> Sergio ciao, e grazie per la soluzione.
> Funziona, ma non è quello che io cercavo.
> Io vorrei aprire il file (prova.dot) che si trova sul cd come nuovo
> documento.
> Con la tua soluzione, invece, apre il file prova.dot in sola lettura.
> Ho provato a fare delle modifiche al codice, inserendo la funzione
> "template", ma mi sono incartato e non riuscito ad arrivare a nulla.
> Tu mi puoi aiutare?
> grazie gianni
>
Secondo me ti apre in sola lettura il file perché risiede su un supporto che
non prevede la scrittura (cd-rom). Prova a copiarlo sul disco fisso e guarda
che succede...
Ciao.
--
Sergio MAZZA


title: Aprire un file di Word

author: fabio

text:

ciao, provo a dare un mio contributo: credo anch'io che accedendo ad un file
da CD tu lo possa aprire solo in lettura. cio' nonostante, provando ad aprire
da access un modello di word salvato su disco fisso ho ottenuto anch'io
l'apertura in sola lettura utilizzando l'istruzione open.
utilizzando invece la sintassi
objDoc.Application.Documents.Add "C:\Programmi\Microsoft
Office\Modelli\Altri documenti\Curriculum elegante.dot"
a me il programma funziona correttamente, cioe' apre un nuovo file di word
basato sul modello passato in stringa.
il tutto mi funziona con entrambe le versioni 97 e 2000 dei due programmi
(fatta salva la corretta impostazione dei riferimenti).
ciao
fabio


title: Aprire un file di Word

text:
Ragazzi grazie di cuore.
L'ultima soluzione di fabio va a meraviglia, anche su cd.
L'unico inconveniente, che quando chiudi il doc ti chiede se vuoi salvare
anche il modello.
Comunque va bene lo stesso.
grazie gianni
"fabio" <
bomba...@tin.it
> ha scritto nel messaggio
news:1104_10...@news.tin.it...



title: password access dimenticata

author: slurp

text:
scusate, ho ritrovato un vecchio database fatto da me in access.
pultroppo ho dimenticato la password
qualcuno sa come fare per aprirlo ????
grazie


title: password access dimenticata

author: Christian

text:
"slurp" <
HH...@JJJ.YT
> ha scritto nel messaggio
news:10%zd.575340$35.24...@news4.tin.it...

Ciao,
usa il programma "Advanced Password Recovery"
Christian


title: password access dimenticata

text:
grazie mille
"Christian" <
vianello....@fastwebnet.it
> ha scritto nel messaggio
news:2j8Ad.59427$C94....@tornado.fastwebnet.it...



title: password access dimenticata

author: Roberto da casa

text:
"Christian" <
vianello....@fastwebnet.it
> ha scritto nel messaggio
news:2j8Ad.59427$C94....@tornado.fastwebnet.it...

Alla maggior parte dei frequentatori di questo NG, che si arrovellano per
proteggere i propri programmi, non è gradito affatto che nel NG si diano
indicazioni di come craccare i database.
>
> Christian
--
Roberto
------------------------------------------------
il Sito Comune di it.comp.appl.access
www.sitocomune.com
-----------------------------------------------


title: password access dimenticata

text:
"Roberto da casa" <
r.masso...@libero.it
> ha scritto nel messaggio
news:eyaAd.5150$_E5.1...@twister2.libero.it...

Senza parole...
Christian


title: utilizzo moduli

text:
Ciao scusate se sono ancora qua a rompere......ma sto realizzando il
mio primo database e incontro mille difficoltà.... il problema che ho
questa volta è il seguente:
Ho creato una tabella con due campi Espr1 ed Espr2....Espr1 è la somma
di valori contenuti in altre tabelle e sono espressi  secondi,millesimi
ora nella colonna Espr2, tramite la "funzione" StringaTempo, contenuta
nel modulo che è ho inserito ne DB (il modulo non l'ho creato io in
quanto non conosco VB!!!) dovrei convertire il valore Espr1 nel formato
hh.mm.ss.dcm (ore.minuti.secondi,millesimi)......Ho provato con una
query utilizzando l'espressione Espr2: StringaTempo ([Espr1]) ma non
funziona, quando vado asd eseguire la qurey mi da "errore di
compilazione nell'espressione della query StringaTempo ([Espr1])"
Qualcuno mi sa dare qualche consiglio?


title: utilizzo moduli

author: Michele (Giò)

text:
<
ant...@virgilio.it
> ha scritto nel messaggio
news:1159550128.4...@k70g2000cwa.googlegroups.com...
Ciao scusate se sono ancora qua a rompere......ma sto realizzando il
mio primo database e incontro mille difficoltà.... il problema che ho
questa volta è il seguente:
Ho creato una tabella con due campi Espr1 ed Espr2....Espr1 è la somma
di valori contenuti in altre tabelle e sono espressi  secondi,millesimi
ora nella colonna Espr2, tramite la "funzione" StringaTempo, contenuta
Se magari ci copi la funzione e un pò esempi di valori da convertire, forse possiamo aiutarti.
Michele


title: utilizzo moduli

text:
>
> Se magari ci copi la funzione e un pò esempi di valori da convertire, forse possiamo aiutarti.
>
> Michele
Questo è il codice della funzione:
Function StringaTempo(secondidcm As Double) As String
' converte un numero che rappresenta secondi,decimicentesimimillesimi
' in una stringa
hh.mm
'ss"dcm
Timing.secondi = secondidcm
StringaTempo = Timing.TimeString_12
End Functio
un valore si esempoi potrebbe essere 75.456 che una volta convertito
deve essere 00.01'15"456


title: utilizzo moduli

author: Alessandro Baraldi

text:
ant...@virgilio.it
 ha scritto:

C'è qualche cosa che non hai capito...!
Quel codice, pare utilizzi una proprietà di un'oggetto Timing che non
ci hai esposto...!
Sarà magari una Classe...???
Quella Funzione così non fà nulla se non restituire un errore cerca
di vedere dove viene istanziata
la classe Timing e cosa c'è dentro...!
@Alex


title: utilizzo moduli

text:
<
ant...@virgilio.it
> ha scritto nel messaggio
news:1159551250.2...@k70g2000cwa.googlegroups.com...




Dunque, provando su un mio modulo, vedo che timing è una variabile non definita. Probabilmente ti
sei dimenticato di inserire un modulo di classe (per esempio ClsTiming, un nome a caso), che fa
funzionare i calcoli, e di dichiarare una variabile a livello di modulo appena sotto a "option
compare database" con il seguente testo:
Dim Timing As New ClsTiming
Prova a vedere se hai tutti i pezzi e casomai riscrivi
Michele


title: utilizzo moduli

text:
>
> Dunque, provando su un mio modulo, vedo che timing è una variabile non definita. Probabilmente ti
> sei dimenticato di inserire un modulo di classe (per esempio ClsTiming, un nome a caso), che fa
> funzionare i calcoli, e di dichiarare una variabile a livello di modulo appena sotto a "option
> compare database" con il seguente testo:
>
> Dim Timing As New ClsTiming
>
> Prova a vedere se hai tutti i pezzi e casomai riscrivi
>
> Michele
Scusate pensavo fosse sufficente quel codice....vi copio tutto il
codice del modulo qui di seguito....
Option Compare Database
Option Explicit
Public Declare Function GetTickCount Lib "Kernel32.dll" () As Long
Dim Timing As New Timing
Function secondi(hhmmssdcm As String) As Double
' converte una stringa hhmmssdcm o
hh.mm
'ss"dcm in un numero che
' rappresenta secondi,decimicentesimimillesimi
If IsNull(hhmmssdcm) Or hhmmssdcm <= "" Then
    hhmmssdcm = "000000000"
End If
If Len(hhmmssdcm) > 9 Then
    Timing.TimeString_12 = hhmmssdcm
Else
    Timing.TimeString_9 = hhmmssdcm
End If
secondi = Timing.secondi
End Function
Function Centesimi(hhmmssdcm As String) As Double
' converte una stringa
hh.mm
'ss"dcm in un numero che
' rappresenta centesimi di secondo
Timing.TimeString_12 = hhmmssdcm
Centesimi = Timing.secondi * 100
End Function
Function StringaTempo(secondidcm As Double) As String
' converte un numero che rappresenta secondi,decimicentesimimillesimi
' in una stringa
hh.mm
'ss"dcm
Timing.secondi = secondidcm
StringaTempo = Timing.TimeString_12
End Function
Function FormatTempo(oreminsecdcm As Double) As String
' converte un numero che rappresenta hhmmssdcm in
'
hh.mm
'ss"dcm
Timing.TimeString_9 = oreminsecdcm
FormatTempo = Timing.TimeString_12
End Function
Function FormatTempoDec(oreminsec As String) As String
' converte una stringa che rappresenta hhmmss,dcm in
'
hh.mm
'ss"dcm
If IsNull(oreminsec) Or oreminsec = "" Then
    FormatTempoDec = String(12, " ")
    GoTo exit_FormatTempoDec
End If
If Len(oreminsec) = 12 Then
    FormatTempoDec = oreminsec
    GoTo exit_FormatTempoDec
End If
Do While InStr(1, oreminsec, ".") <> 0
    Mid(oreminsec, InStr(1, oreminsec, "."), 1) = ","
Loop
FormatTempoDec = FormatTempo(CDbl(oreminsec) * 1000)
exit_FormatTempoDec:
End Function
Function FormatTempoMaster(oreminsecdcm As String) As String
' converte un numero che rappresenta
hh.mm
'ss"dcm in
'                                    hhmmssdcm
'     oreminsecdcm = oreminsecdcm * 1000
Timing.TimeString_12 = oreminsecdcm
FormatTempoMaster = Timing.TimeString_9
End Function
Function VelMedia(secondidcm As Double, kilometri As Double) As Double
' Calcola la media su un percorso espresso in Kilometri
' con un tempo espresso in secondi,dcm
    If secondidcm > 0 Then
        VelMedia = (((kilometri) / (secondidcm / 3600)) * 1000 \ 1) /
1000
    Else
        VelMedia = 0
    End If
End Function
Function Distanza(secondidcm As Double, Velocita As Double) As Double
' Calcola una distanza
    If secondidcm > 0 Then
        Distanza = (Velocita * (secondidcm / 3600)) * 1000
    Else
        Distanza = 0
    End If
End Function
Function TempoMedia(Media As Double, kilometri As Double) As String
    TempoMedia = Mid(StringaTempo((kilometri / Media) * 3600), 1, 11) &
"0"
End Function
Function StringaTempoPulita(StringaTempo As String) As String
Dim i As Integer
StringaTempoPulita = StringaTempo
' elimina gli zeri non significativi da una stringa
'
hh.mm
'ss"dcm
For i = 1 To 7 '    no Len(StringaTempoPulita) per lasciare almeno
secondi e frazioni
    If InStr(i, StringaTempo, "0") = i Then
        Mid(StringaTempoPulita, i, 1) = " "
        Select Case i
            Case 2, 5, 8
                Mid(StringaTempoPulita, i + 1, 1) = " "
                i = i + 1
'            Case 8
'                Mid(StringaTempoPulita, i + 1, 2) = "  "
'                i = i + 2
            Case Else
        End Select
    Else
        Exit For
    End If
Next i
End Function
Public Function Coll(stringa As String, Separator As String) As
Collection
' restituisce da una stringa con separatore di campo
' <,> tutti i campi
Set Coll = New Collection
While InStr(1, stringa, Separator) > 1
    Coll.Add (Mid(stringa, 1, InStr(1, stringa, Separator) - 1))
    stringa = Mid(stringa, InStr(1, stringa, Separator) + 1)
Wend
If stringa > "" Then
    Coll.Add (stringa)
    stringa = ""
End If
End Function
Public Function FirstString(stringa As String, posizione As Integer) As
String
Dim i As Integer
Dim mintInizio As Integer
Dim mintFine As Integer
' restituisce la sottostringa di una stringa con i
' campi compresi fra <.....><.....><.....>
'     posizione         1      2      3
If InStr(1, stringa, "<") = 0 Then
    stringa = "<" & stringa
End If
If InStr(1, stringa, ">") = 0 Then
    stringa = stringa & ">"
End If
mintInizio = 0
mintFine = 0
For i = 1 To posizione
    mintInizio = InStr(mintInizio + 1, stringa, "<")
    mintFine = InStr(mintInizio + 1, stringa, ">")
Next i
FirstString = Mid(stringa, mintInizio + 1, mintFine - mintInizio - 1)
End Function


title: utilizzo moduli

text:
ant...@virgilio.it
 ha scritto:

LA CLASSE TIMING DEVI VEDERE...:!!!!!!!!! questo è solo un Modulo che
istanzia nella 3° riga la classe e poi la usa...!
@Alex


title: utilizzo moduli

text:
<
ant...@virgilio.it
> ha scritto nel messaggio
news:1159552233.5...@k70g2000cwa.googlegroups.com...
>
> Dunque, provando su un mio modulo, vedo che timing è una variabile non definita. Probabilmente ti
> sei dimenticato di inserire un modulo di classe (per esempio ClsTiming, un nome a caso), che fa
Option Compare Database
Option Explicit
End Function
Ti manca sempre il modulo di classe Timing.
Scrivendo "as new Timing" mi vien da pensare che assieme al modulo da dove tu copi sto codice, ci
debba essere un modulo di classe (che ha il simbolo diverso) che si chiama Timing. Lo hai?


title: utilizzo moduli

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:1159551789.8...@k70g2000cwa.googlegroups.com...
ant...@virgilio.it
 ha scritto:
> >
> > Se magari ci copi la funzione e un pņ esempi di valori da convertire, forse possiamo aiutarti.
> >
> > Michele
Alex, dove scrivo io scrivi anche tu...... Abbiamo il filo invisibile che ci collega!
Saluti
Michele


title: utilizzo moduli

text:
<
ant...@virgilio.it
> ha scritto nel messaggio
news:1159550128.4...@k70g2000cwa.googlegroups.com...

Secondo me, invece di utilizzare una miriade di funzioni e classi, se la tua esigenza è convertire
semplicemente come da esempio, usa questa funzione, che si chiama Sec_to_Sess, accetta in ingresso
currency e restituisce stringa (Currency mi sembra più corretto per memorizzare tempi a virgola
fissa)
-----------------------------------------------------------
Function Sec_to_Sess(SecondsIn As Currency) As String
Dim Ore As Long
Dim Min As Long
Dim Sec As Long
Dim Mill As Integer
Dim OreStr As String
Dim MinStr As String
Dim SecStr As String
Dim MillStr As String
SecondsIn = Int(SecondsIn * 1000) / 1000
Ore = Int(SecondsIn / 3600)
Min = Int(SecondsIn / 60) - Ore * 60
Sec = Int(SecondsIn) - Ore * 3600 - Min * 60
Mill = (SecondsIn - Ore * 3600 - Min * 60 - Sec) * 1000
OreStr = Trim(Str(Ore))
MinStr = Trim(Str(Min))
SecStr = Trim(Str(Sec))
MillStr = Trim(Str(Mill))
If Not Len(OreStr) > 1 Then
    OreStr = "0" & OreStr
End If
If Not Len(MinStr) > 1 Then
    MinStr = "0" & MinStr
End If
If Not Len(SecStr) > 1 Then
    SecStr = "0" & SecStr
End If
Do While Not Len(MillStr) = 3
    MillStr = "0" & MillStr
Loop
Sec_to_Sess = OreStr & "." & MinStr & "'" & SecStr & """" & MillStr
End Function
------------------------------------------
Fai un pò di prove per la correttezza dei calcoli, ma dovrebbe essere corretta.
Non puoi utilizzare tempi negativi, il decimillesimo viene troncato, e la conversione si ferma
all'ora nel senso che 86400 in input mi restituisce 24.00'00"000 e non 1gg00.00'00"000
Fammi sapere
Michele


title: utilizzo moduli

text:
> Fai un pò di prove per la correttezza dei calcoli, ma dovrebbe essere corretta.
>
> Non puoi utilizzare tempi negativi, il decimillesimo viene troncato, e la conversione si ferma
> all'ora nel senso che 86400 in input mi restituisce 24.00'00"000 e non 1gg00.00'00"000
>
> Fammi sapere
>
> Michele
Grazie mille....funziona perfettamente....l'unica cosa se è possibile
eliminare gli zeri...(es. 1'15"132 anzichè 00.01'15"132)
P.S. proseguendo con l'apprendimento di access ho notato diversi limiti
aggirabili con VB, che purtroppo non conosco....avete qualche guida da
consigliarmi per apprenderne almeno le basi?
Grazie


title: utilizzo moduli

text:
<
ant...@virgilio.it
> ha scritto nel messaggio
news:1159612488.0...@i42g2000cwa.googlegroups.com...
> Fai un pň di prove per la correttezza dei calcoli, ma dovrebbe essere corretta.
>
> Non puoi utilizzare tempi negativi, il decimillesimo viene troncato, e la conversione si ferma
> all'ora nel senso che 86400 in input mi restituisce 24.00'00"000 e non 1gg00.00'00"000
>
> Fammi sapere
>
> Michele
Grazie mille....funziona perfettamente....l'unica cosa se č possibile
eliminare gli zeri...(es. 1'15"132 anzichč 00.01'15"132)
P.S. proseguendo con l'apprendimento di access ho notato diversi limiti
aggirabili con VB, che purtroppo non conosco....avete qualche guida da
consigliarmi per apprenderne almeno le basi?
Grazie
Per eliminare gli zeri usala cosě, ma non č un gran risultato estetico....
-----------------------------------------
Function Sec_to_Sess(SecondsIn As Currency) As String
Dim Ore As Long
Dim Min As Long
Dim Sec As Long
Dim Mill As Integer
Dim OreStr As String
Dim MinStr As String
Dim SecStr As String
Dim MillStr As String
SecondsIn = Int(SecondsIn * 1000) / 1000
Ore = Int(SecondsIn / 3600)
Min = Int(SecondsIn / 60) - Ore * 60
Sec = Int(SecondsIn) - Ore * 3600 - Min * 60
Mill = (SecondsIn - Ore * 3600 - Min * 60 - Sec) * 1000
If Ore = 0 Then
   OreStr = ""
Else
   OreStr = Trim(Str(Ore)) & "."
End If
If Min = 0 And Ore = 0 Then
   MinStr = ""
Else
   MinStr = Trim(Str(Min)) & "'"
End If
SecStr = Trim(Str(Sec)) & """"
If Mill = 0 Then
   MillStr = ""
Else
    MillStr = Trim(Str(Mill))
    Do While Not Len(MillStr) = 3
       MillStr = "0" & MillStr
    Loop
End If
Sec_to_Sess = OreStr & MinStr & SecStr & MillStr
End Function
------------------------------------------------------
Ricordati che la devi sempre provare.
Per quel che riguarda il testo da leggere, oltre ad una scarrellata sul Sito Comune, io posso
consigliarti, per mia personale esperienza, il manuale della Apogeo
"Costruire applicazioni con Access versioni 2000/2002/2003" di Mike Davis ISBN 88-503-2328-x, ma
forse non č piů in stampa. E' un pň un mattone, ma al caro Mike devo moltissimo di quel che sň.


title: database in access senza usare access???

author: Paolo

text:
Una volta che ho realizzato un applicazione in access, posso farla
funzionare senza aver istallato il programma sul pc??
esistono dei programmi gratuiti per far eseguire l'applicazione senza
l'utilizzo di access??
esistono programmini che trasformano il file in eseguibile??? per cui non
c'č bisogno piu di access???
Saluti
Paolo


author: oliones

text:
Paolo <
bipman...@libero.it
> wrote in message
9i2e3i$rj0$1...@nreadA.inwind.it...
> Una volta che ho realizzato un applicazione in access, posso farla
> funzionare senza aver istallato il programma sul pc??
si
> esistono dei programmi gratuiti per far eseguire l'applicazione senza
> l'utilizzo di access??
no
> esistono programmini che trasformano il file in eseguibile???
non un vero eseguibile
ma istalli la run time (che paghi) e puoi istallarla a TUTTI i clienti
>per cui non
> c'č bisogno piu di access???
si
>
> Saluti
> Paolo
per + informazioni vedi
www.sitocomune.com


author: sdamy

text:
Paolo <
bipman...@libero.it
> wrote in message
9i2e3i$rj0$1...@nreadA.inwind.it...

le applicazioni access non diventano eseguibili quindi
hanno sempre bisogno del motore access,
una "sulozione" consiste nell'acquistare Office Developer
che consente di distribuire il Run-time di Access
a tutti i clienti che vuoi.
saluti
sdamy


title: gestione iscrizioni

author: pensieroso

text:
Sono sempre alle prese con il mio database ma mi pare sempre di aver
dimenticato qualcosa, mica sapreste indicarmi (anche sul sito comune che sto
spulciando tutto) qualcosa del genere per vedere se ho dimenticato qualche
cosa?
Grazie
Gianluca


title: gestione iscrizioni

text:
pensieroso ha scritto:

Scusa Gianluca ma di cosa parli.....???
Mi pare una domanda del tipo:
"Scusate ma dove devo andare per dove dovrei andare ??" ...!!!!!
Mi viene spontaneo farti questa osservazione perchè hai dato per
scontato che
il tuo Gestionale sia l'Oggetto principale di discussione del NG.....
Io che pur vorrei aiutarti, trovo un pò bizzarra e poco comprensibile
la tua richiesta di aiuto.
Ciao
@Alex


title: gestione iscrizioni

text:
>Mi pare una domanda del tipo:
>"Scusate ma dove devo andare per dove dovrei andare ??" ...!!!!!
:-)
>Mi viene spontaneo farti questa osservazione perchè hai dato per
>scontato che
>il tuo Gestionale sia l'Oggetto principale di discussione del NG.....
>
>Io che pur vorrei aiutarti, trovo un pò bizzarra e poco comprensibile
>la tua richiesta di aiuto.
chiedo venia.. effettivamente rileggendo il mio post non è che si capisca
molto...
Il punto è che volevo essere il più generico possibile per non dare
l'impressione di voler "la pappa pronta" e copiare il lavoro altrui.
Piccolo sunto: Sono iscritto alla facoltà di Informatica ed a luglio ho
sostenuto un esame che ho trovato molto interessante, cioè quello di Basi di
dati, ho presentato anche un progetto fatto in Oracle quindi "qualcosina" ne
dovrei capire.
Il punto è che non ho mai creato una "veste grafica" al mio progetto d'esame
e credo che sia una lacuna da dover colmare quindi ho preso la palla in
balzo quando ho sentito che a mio cugino serviva un database per la gestione
degli iscritti nella sua palestra.
All'inizio non sapevo in che ambiente farlo, poi ho pensato che in Access
era meglio (ho valutato vari fattori) ed ho iniziato.
Dopo circa 2 ore mi sembrava di aver finito, dato che in pratica ho solo 2
tabelle, "Iscritti" e "Pagamenti" ma poi mi sono reso conto che ci sono
varie query che mi portano continuamente a modificare le tabelle, inserendo
più campi e che la creazione delle maschere, con relativi pulsanti, non è
semplicissima.
Ora tornando all' oggetto di questo post, avevo chiesto (troppo
ingenuamente) se avevate qualche progetto simile dal quale potevo prendere
spunto e controllare se non avevo omesso qualche funzionalità
fondamentale...
In pratica io avevo pensato che il "mio" gestionale debba consentire di
inserire/modificare l'anagrafica degli iscritti, inserire/visualizzare i
pagamenti per ogni singolo iscritto ed avere una query che indichi tutti gli
abbonamenti in scadenza in un determinato intervallo (settimana in corso).
Potrei aggiungere qualcosa di utile o basta così?
Grazie e scusate per il post precedente
Gianluca
P.S. approfitto per porre una domanda: ho creato una tabella per i corsi che
si svolgono, nel caso in cui ci fosse un corso da dover eliminare, come
faccio ad eliminare il record selezionato (in una casella di riepilogo)?
Dopo aver pensato un pò ho trovato questa soluzione, inserisco un ulteriore
campo (tipo FLAG) e poi scrivo una query che mi restituisce i record che
hanno il FLAG attivo, poi associo l'operazione di eliminazione per quei
record. Altrimenti come potrei fare?


title: gestione iscrizioni

text:
pensieroso ha scritto:

Se si tratta di una palestra devi anche strutturarlo in modo da non
violare la legge 675
sulla Privacy dei dati personali, fai attenzione in quanto essendo un
esercizio pubblico le conseguenze legali potrebbero essere
rilevanti....!
Devi gestire gli abbonamenti, le scadenze, le stampe, gli avvisi di
scadenza, i rinnovi.
Gli allenamenti con scheda personalizzata, la stampa schede di
allenamento....
> Grazie e scusate per il post precedente
> Gianluca
>
> P.S. approfitto per porre una domanda: ho creato una tabella per i corsi che
> si svolgono, nel caso in cui ci fosse un corso da dover eliminare, come
> faccio ad eliminare il record selezionato (in una casella di riepilogo)?
> Dopo aver pensato un pò ho trovato questa soluzione, inserisco un ulteriore
> campo (tipo FLAG) e poi scrivo una query che mi restituisce i record che
> hanno il FLAG attivo, poi associo l'operazione di eliminazione per quei
> record. Altrimenti come potrei fare?
Le tabelle si devono basare su un campo definito PrimaryKey, per
l'univocità del riferimento.
Anche la tua ListBox(casella di riepilogo) verrà popolata con il campo
Bound che sarà la PK.
a quel punto :
Currentdb.Execute "DELETE * FROM NomeTab WHERE [IdPK]=" &
Me.NomeListBox
Ciao
@Alex


title: gestione iscrizioni

text:
>Se si tratta di una palestra devi anche strutturarlo in modo da non
>violare la legge 675
>sulla Privacy dei dati personali, fai attenzione in quanto essendo un
>esercizio pubblico le conseguenze legali potrebbero essere
>rilevanti....!
si, l'avevo pensato (qualcosina ne so in quanto mio padre è agente di
commercio e non mi ricordo il nome ma ha dovuto firmare dei documenti e
garantire che i dati fossero utilizzati solo da lui) ed infatti l'ho fatto
presente a mio cugino il quale mi ha risposto: "basta che ci sia la
password", cmq in ogni caso io avevo intenzione di mettere il minimo,
Cognome, Nome, Data di Nascita, Indirizzo.
>Devi gestire gli abbonamenti, le scadenze, le stampe, gli avvisi di
>scadenza, i rinnovi.
esatto è quello che ho fatto
>Gli allenamenti con scheda personalizzata, la stampa schede di
>allenamento....
no, questo ha detto che non gli interessa, in pratica servirà solo
all'amministrazione.
>Le tabelle si devono basare su un campo definito PrimaryKey, per
>l'univocità del riferimento.
>Anche la tua ListBox(casella di riepilogo) verrà popolata con il campo
>Bound che sarà la PK.
>
>a quel punto :
>
>Currentdb.Execute "DELETE * FROM NomeTab WHERE [IdPK]=" &
>Me.NomeListBox
Grazie, vedo di fare due prove... (ma è VB? esiste online una guida per la
sintassi?)
Saluti
Gianluca


title: gestione iscrizioni

text:
pensieroso ha scritto:
[CUT]
> >Currentdb.Execute "DELETE * FROM NomeTab WHERE [IdPK]=" &
> >Me.NomeListBox
>
> Grazie, vedo di fare due prove... (ma è VB? esiste online una guida per la
> sintassi?)
Come no... Visualizzatore Oggetti dal codice, c'è tutto chiarissimo.
Se non ti metti mano alla programmazione in VBA non sarà facile
affrontare le varie problematiche....
> Saluti
> Gianluca
@Alex


title: Calcolo di una percentuale in base ad una data.

author: Santoni

text:
Premettendo che sono un principiante ho un problema per me invalicabile.
Ho un campo prezzo di vendita (immesso dall'utente) poi
una data di scadenza (calcolata in base alla data di inserimento incrementa
di 60 gg)
e uno di sconto (anch'esso immesso dall'utente).
Vorrei sempre se possibile che venga applicato lo sconto al prezzo di
vendita inserito dall'utente,
al raggiungimento della data di scadenza...
Come posso fare.... avete un suggerimento...
Ciao a tutti e grazie...


text:
"Santoni" <
santo...@tiscali.it
> ha scritto nel messaggio
news:vSSo9.27867$cS4.1...@news2.tin.it...

Creati una query di aggiornamento della tua tabella, nella quale sostituisci
il valore del campo contenente il prezzo di vendita con il prezzo di vendita
scontato che ti calcoli in base al prezzo di vendita ed allo sconto (riga
Aggiorna a: della griglia della query di aggiornamento); naturalmente il
tutto  a condizione (riga Criteri: della griglia della query di
aggiornamento) che la data di scadenza sia uguale o minore alla data odierna
( Date() ) ed il valore del campo sconto sia diverso da zero. Inoltre
aggiorna a zero il campo sconto (altrimenti, ogni volta che lanci la query
di aggiornamento viene scontato il prezzo).
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: una variabile che non so usare.....

text:
Aiuto...sto cercando di capire come funziona....scusate se sono
pedante.
Ho una casella di testo PRO che contiene il valore XX.
Ho 15 caselle di testo che si chiamano FILXX dove XX è la sigla della
provincia. Queste caselle possono essere valorizzate vero o falso.
Ad esempio, supponendo che la città nella casella di testo PRO sia TO
vorrei verificare che la casella di testo FILTO contenga "vero".
Se contiene vero rende visibile la casella PRO (verde) e nasconde la
PRO1 (rossa) e viceversa.
Ho scritto questo codice che sicuramente non è corretto nella
dichiarazione della variabile.
Quallcuno ha due minuti per aiutarmi ?
grazie davvero...tanto !!!
'Verifica la congruità della provincia e visualizza o meno la casella
di ok
Dim Stringa As String
Stringa = "FIL&[PRO]"
If Stringa = "vero" Then
Me.PRO.Visible = True
Me.PRO1.Visible = False
Else
Me.PRO1.Visible = True
Me.PRO.Visible = False
End If


title: una variabile che non so usare.....

author: nuts

text:
ignazio.pilone wrote:
> 'Verifica la congruità della provincia e visualizza o meno la casella
> di ok
> Dim Stringa As String
> Stringa = "FIL&[PRO]"
dovrebbe essere "FIL" & [PRO]
> If Stringa = "vero" Then
If forms!nome_form(Stringa) = "vero" then
o eventualmente
if Me(Stringa) 0 "vero" then
Comunque se il valore delle caselle di testo è "vero" o "falso" perché
non usare checkbox?


title: una variabile che non so usare.....

text:

FUNZIONA PERFETTAMENTE GRAZIE....
Grazie per il suggerimento checkbox ora vado a studiarmelo,
sinceramente non lo conoscevo, anche se in futuro può essere che qual
campo possa variare e quindi rimanga cosi com'è !!!
Ora che ho visto che funziona cerco di far dare i due colori diversi
alla casella PRO e cancello PRO1...
grazie infinite, ciao


title: una variabile che non so usare.....

text:
ignazio.pilone wrote:
> Ho una casella di testo PRO che contiene il valore XX.
> Ho 15 caselle di testo che si chiamano FILXX dove XX è la sigla della
> provincia. Queste caselle possono essere valorizzate vero o falso.
> Ad esempio, supponendo che la città nella casella di testo PRO sia TO
> vorrei verificare che la casella di testo FILTO contenga "vero".
>
> Se contiene vero rende visibile la casella PRO (verde) e nasconde la
> PRO1 (rossa) e viceversa.
> Ho scritto questo codice che sicuramente non è corretto nella
> dichiarazione della variabile.
> ...
> 'Verifica la congruità della provincia e visualizza o meno la casella
> di ok
> Dim Stringa As String
> Stringa = "FIL&[PRO]"
> If Stringa = "vero" Then
> Me.PRO.Visible = True
> Me.PRO1.Visible = False
> Else
> Me.PRO1.Visible = True
> Me.PRO.Visible = False
> End If
Non è chiaro se questa "vero" è una stringa o il valore booleano
Vero = True. Se si tratta di un testo, puoi provare:
If Me("FIL" & Me!PRO) = "vero" Then
    Me!PRO.Visible = True
    Me!PRO1.Visible = False
Else
    Me!PRO.Visible = False
    Me!PRO1.Visible = True
End If
o in alternativa:
Dim blnFlag As Boolean
blnFlag = (Me("FIL" & Me!PRO)="vero")
Me!PRO.Visible = blnFlag
Me!PRO1.Visible = Not blnFlag
Con un valore booleano le due righe importante diventono:
If Me("FIL" & Me!PRO) = True Then
blnFlag = Me("FIL" & Me!PRO)
v.a.
http://www.donkarl.com/it?FAQ6.1
http://www.donkarl.com/it?FAQ6.4
--
Ciao
Karl
*********
Access FAQ:
http://www.donkarl.com/it


title: Collegare in automatico un Back End

author: Carlo Raffi

text:
Salve a tutti, mi chiamo Carlo Raffi e da un po' smanetto con MS Access e
VB.
Volevo chiedervi se qualcuno di voi può darmi una dritta su come collegare
in automatica un database Front End con uno Back End, attraverso una
funzione o procedura, semplicemente dando la path del Back End.
Se qualcuno sa rispondermi glie ne sarò molto grato.
Grazie
Carlo Raffi
raf...@tin.it
--
Posted from
relay.bassilichi.it
 [194.185.86.10]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Collegare in automatico un Back End

author: Piombo

text:
Beh penso che se guardi sul'help della proprietą CONNECT delle TableDef ce
la fai tranquillamente....
Ciao
"Carlo Raffi" <
raf...@tin.it
> wrote in message
000501bfdd0e$8b343b80$4376...@bassilichi.it...
> Salve a tutti, mi chiamo Carlo Raffi e da un po' smanetto con MS Access e
> VB.
>
> Volevo chiedervi se qualcuno di voi puņ darmi una dritta su come collegare
> in automatica un database Front End con uno Back End, attraverso una
> funzione o procedura, semplicemente dando la path del Back End.
>
> Se qualcuno sa rispondermi glie ne sarņ molto grato.



title: Collegare in automatico un Back End

text:
Il 23 Jun 2000 14:29:34 +0200,
raf...@tin.it
 ("Carlo Raffi") ebbe a
dire:
>Salve a tutti, mi chiamo Carlo Raffi e da un po' smanetto con MS Access e
>VB.
>
>Volevo chiedervi se qualcuno di voi può darmi una dritta su come collegare
>in automatica un database Front End con uno Back End, attraverso una
>funzione o procedura, semplicemente dando la path del Back End.
>Se qualcuno sa rispondermi glie ne sarò molto grato.
>
>Grazie
>
>Carlo Raffi
>
raf...@tin.it
>
Sul sito comune (
http://members.xoom.it/it_db_access/
) l'argomento è
trattato in maniera dettagliata, con esempi di codice utile per fare
ciò che ti serve.
Vincenzo Turturro
-----------------------------------------------------
Niuna impresa, per minima che sia,
può avere cominciamento e fine senza queste tre cose:
e cioè senza sapere,
senza potere,
senza, con amore, volere
(Anonimo fiorentino, XIV sec.)
-----------------------------------------------------


title: Traformare le righe in campi ?

author: MarcoS

text:
Devo ricavare da questa Tab, una tabella con tre campi dove nel primo rimane
la prima riga, nel secondo ci và la seconda (Andress), nel terzo la terza
(Phone).
Come posso fare ?
Campo1
Alaska Coca-Cola Bottling Co Juneau
Address: 5452 Shaune Dr, Juneau, AK 99801-9539
Phone:
1.907.780.4474
Coca-Cola Bottling Company
Address: 8046 W Rezanof Dr, Kodiak, AK 99615-6750
Phone:
1.907.487.4546
Coca-Cola Bottling Co Anchorage
Address: 128 W 1st Ave, Anchorage, AK 99501-1646
Phone:
1.907.264.0218
CUT
Grazie 1000 per i suggerimenti
--
Ciao Marco S.
http://digilander.iol.it/santimarco


title: Traformare le righe in campi ?

author: Roberto dal portatile

text:
"MarcoS" <
marco...@libero.it
> ha scritto nel messaggio
news:9gqa6f$gk2$1...@pinco.nettuno.it...

Se la tua tabella si chiama Tab ed è composta da un solo campo chiamato
Campo1.
Se la tabella da ottenere si chiama Tab2 ed ha la seguente struttura:
ID                            Contatore e chiave primaria
RagioneSociale        Testo
Indirizzo                   Testo
Telefono                   Testo
Creati una maschera che contiene solamente un pulsante di comando; a fronte
dell'evento "Su clic" del pulsante di comando genera il seguente codice VBA:
Dim db As Database
Dim rsTab As Recordset
Dim rsTab1 As Recordset
Set db = CurrentDb
Set rsTab = db.OpenRecordset("Tab")
Set rsTab1 = db.OpenRecordset("Tab1")
rsTab.MoveFirst
Do Until rsTab.EOF
    rsTab1.AddNew
    rsTab1!RagioneSociale = rsTab!Campo1
    rsTab.MoveNext
    rsTab1!Indirizzo = Mid(rsTab!Campo1, 10, Len(rsTab!Campo1) - 9)
    rsTab.MoveNext
    rsTab1!Telefono = Mid(rsTab!Campo1, 8, Len(rsTab!Campo1) - 7)
    rsTab1.Update
    rsTab.MoveNext
Loop
rsTab.Close
Set rsTab = Nothing
rsTab1.Close
Set rsTab1 = Nothing
A questo punto apri la maschera e pigia il pulsante di comando.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Traformare le righe in campi ?

text:
Roberto dal portatile <
r.ma...@repubblica.it
> wrote in message
9gqkn1$48r6$1...@stargate1.inet.it...
>
>
> A questo punto apri la maschera e pigia il pulsante di comando.
>
Grazie 1000 Roberto, domani mattina la provo subito poi ti saprò dire.
Per il momento l'ho risolto in questo modo, ma ammetto di non fidarmi molto
del risultato :-))
Dim db As Database, T1 As Recordset, T2 As Recordset, vName As String
Set db = CurrentDb
Set T1 = db.OpenRecordset("US Coca-Cola")
Set T2 = db.OpenRecordset("US Coca-Cola_ok")
T1.MoveFirst
Do Until T1.EOF
  If IsNull(T1!Campo1) Then GoTo ppp_ERR
  vName = Left(T1!Campo1, 5)
  If (vName <> "Addre") And (vName <> "Phone") Then
    T2.AddNew
      T2!Company = T1!Campo1
    T2.Update
  End If
  If (vName = "Addre") Then
  T2.MoveLast
    T2.Edit
      T2!Andress = T1!Campo1
    T2.Update
  End If
  If (vName = "Phone") Then
  T2.MoveLast
    T2.Edit
      T2!Phone = T1!Campo1
    T2.Update
  End If
ppp_ERR:
T1.MoveNext
Loop



title: Traformare le righe in campi ?

text:
Roberto dal portatile <
r.ma...@repubblica.it
> wrote in message
9gqkn1$48r6$1...@stargate1.inet.it...
>
> > Campo1
> > Alaska Coca-Cola Bottling Co Juneau
> > Address: 5452 Shaune Dr, Juneau, AK 99801-9539
> > Phone:
1.907.780.4474
> > Coca-Cola Bottling Company
> > Address: 8046 W Rezanof Dr, Kodiak, AK 99615-6750
> > Phone:
1.907.487.4546
> > Coca-Cola Bottling Co Anchorage
> > Address: 128 W 1st Ave, Anchorage, AK 99501-1646
> > Phone:
1.907.264.0218
>
> Se la tua tabella si chiama Tab ed č composta da un solo campo chiamato
> Campo1.
> Se la tabella da ottenere si chiama Tab2 ed ha la seguente struttura:
> ID                            Contatore e chiave primaria
> RagioneSociale        Testo
> Indirizzo                   Testo
> Telefono                   Testo
Esatto, tutto ok
>
> Dim db As Database
> Dim rsTab As Recordset
> Dim rsTab1 As Recordset
> Set db = CurrentDb
> Set rsTab = db.OpenRecordset("Tab")
> Set rsTab1 = db.OpenRecordset("Tab1")
> rsTab.MoveFirst
> Do Until rsTab.EOF
>     rsTab1.AddNew
>     rsTab1!RagioneSociale = rsTab!Campo1
>     rsTab.MoveNext
>     rsTab1!Indirizzo = Mid(rsTab!Campo1, 10, Len(rsTab!Campo1) - 9)
>     rsTab.MoveNext
>     rsTab1!Telefono = Mid(rsTab!Campo1, 8, Len(rsTab!Campo1) - 7)
>     rsTab1.Update
>     rsTab.MoveNext
> Loop
> rsTab.Close
> Set rsTab = Nothing
> rsTab1.Close
> Set rsTab1 = Nothing
>
> A questo punto apri la maschera e pigia il pulsante di comando.
Non faccio nessuna maschera, lancio direttamente la Function dal modulo.
Funziona, ma ho il problema che certe volte il record Phone non esiste,
quindi dovrebbe lasciare il campo Telefono vuoto.
Mi ero scordato di dirlo ... mia colpa.
La Tab č cosě strutturata:
Campo1:
Alaska
Coca-Cola Bottling Co Juneau
Address: 5452 Shaune Dr, Juneau, AK 99801-9539
Phone:
1.907.780.4474
Coca-Cola Bottling Company
Address: 8046 W Rezanof Dr, Kodiak, AK 99615-6750
Coca-Cola Bottling Co Anchorage"
Address: 128 W 1st Ave, Anchorage, AK 99501-1646
Phone:
1.907.264.0218
Coca-Cola Bottling Co Anchorage"
Address: 240 W 1st Ave, Anchorage, AK 99501-1648
Arkansas
Coca-Cola/Dr Pepper Bottling
Address: 205 E 2nd Ave, Pine Bluff, AR 71601-4495
Phone:
1.501.534.0621
CUT
Ti ringrazio molto Roberto, se hai altri suggerimenti ;-)



title: Traformare le righe in campi ?

text:
"MarcoS" <
marco...@libero.it
> ha scritto nel messaggio
news:9gs747$1hc$1...@pinco.nettuno.it...
>
[CUT]

Beh, la prossima volta raccontacela tutta e non a puntate. ;-)
Se l'ultimo record di Tab in Campo1 contiene il valore "CUT".
Se un gruppo di record puň essere formato da:
1) due soli record (Ragione sociale + Address:)
2) tre record (due record per la Ragione Sociale + Address:)
3) tre record (Ragione Sociale + Address: + Phone:)
4) quattro record (due record per la Ragione Sociale + Address: + Phone:)
Se, nel caso in cui i dati della ragione sociale siano su due record, la
ragione sociale risultante č costituita dai dati del secondo record piů i
dati del primo record.
Prova ad usare questo codice VBA:
Dim DepRagSoc As Variant
Dim DepInd As Variant
Dim DepTel As Variant
DepRagSoc = Null
DepInd = Null
DepTel = Null
Dim db As Database
Dim rsTab As Recordset
Dim rsTab1 As Recordset
Set db = CurrentDb
Set rsTab = db.OpenRecordset("Tab")
Set rsTab1 = db.OpenRecordset("Tab1")
rsTab.MoveFirst
Do Until rsTab.EOF
If Left(rsTab!Campo1, 8) = "Address:" Then
DepInd = Mid(rsTab!Campo1, 10, Len(rsTab!Campo1) - 9)
Else
If Left(rsTab!Campo1, 6) = "Phone:" Then
DepTel = Mid(rsTab!Campo1, 8, Len(rsTab!Campo1) - 7)
Else
If Not IsNull(DepInd) Then
rsTab1.AddNew
rsTab1!RagioneSociale = DepRagSoc
rsTab1!Indirizzo = DepInd
If Not IsNull(DepTel) Then
rsTab1!Telefono = DepTel
End If
rsTab1.Update
DepRagSoc = Null
DepInd = Null
DepTel = Null
End If
If Left(rsTab!Campo1, 3) <> "CUT" Then
If IsNull(DepRagSoc) Then
DepRagSoc = rsTab!Campo1
Else
DepRagSoc = rsTab!Campo1 & " " & DepRagSoc
End If
End If
End If
End If
rsTab.MoveNext
Loop
rsTab.Close
Set rsTab = Nothing
rsTab1.Close
Set rsTab1 = Nothing
Facci sapere.



title: Traformare le righe in campi ?

text:
Roberto dal portatile <
r.ma...@repubblica.it
> wrote in message
9gsinm$2mtu$1...@stargate1.inet.it...
>
>
> Beh, la prossima volta raccontacela tutta e non a puntate. ;-)
Hai perfettamente ragione :-)
> Facci sapere.
Funziona, sei un grande !
Ciao e grazie 1000
Marco S.


title: elenco cap (codici avviamento postale)

author: giorgio

text:
sapete dove si puņ trovare un mdb con i cap italiani?
grz


title: elenco cap (codici avviamento postale)

author: Karl Donaubauer

text:
giorgio wrote:
> sapete dove si può trovare un mdb con i cap italiani?
Non conosco un mdb ma il link ad un file di testo trovi qui:
www.donkarl.com/it?FAQ2.19
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


title: elenco cap (codici avviamento postale)

author: Carlo Costarella

text:
"giorgio" <
va...@vale.it
> ha scritto nel messaggio
news:497f...@extreme.x-privat.org...
> sapete dove si può trovare un mdb con i cap italiani?
> grz
Oltre i consigli di Karl...
Se non vado errato su
www.sitocomune.com
trovi un elenco di comuni con i relativi cap.
Se mastichi di sql qui trovi un db aggiornato:
http://www.italy.fsfeurope.org/it/projects/cap/trovacap.sql.gz
io lo scompatto con winrar.
Infine, per tua cultura, dai un'occhiata a questo link dove potrai scaricare
anche un elenco di CAP e ti farai un'idea su tutto ciò che si è mosso
intorno a questi benedetti CAP:
http://www.italy.fsfeurope.org/it/projects/cap/
Ciao, Carlo


title: elenco cap (codici avviamento postale)

author: miciomao

text:
http://www.poste.it/postali/banchedati/a_index.shtml
Ciao
Alex


title: elenco cap (codici avviamento postale)

text:
"miciomao" <
audi...@tiscali.it
> ha scritto nel messaggio
news:ad581516-47d9-49cc...@v5g2000pre.googlegroups.com...
>
>
http://www.poste.it/postali/banchedati/a_index.shtml
>
> Ciao
> Alex
 Se hai dei soldi da spendere č sicuramente il link piů indicato.
Ciao, Carlo


title: elenco cap (codici avviamento postale)

author: RobertoA

text:
>>
http://www.poste.it/postali/banchedati/a_index.shtml
>>
>> Ciao
>> Alex
>
> Se hai dei soldi da spendere č sicuramente il link piů indicato.
>
Sembra ci sia il ink per i db dei cap anche senza il 'CAP PROFESSIONAL'
Bisogna registrarsi pero'
Ciao
RobertoA


title: elenco cap (codici avviamento postale)

author: Giorgia

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:glq6k3$pba$1...@tdi.cu.mi.it...

>Davvero indecente........
peccato mi sarebbe tornata molto utile...
Giorgia


title: elenco cap (codici avviamento postale)

text:
"RobertoA" <
amor...@tiscalinet.it
> ha scritto nel messaggio
news:4981...@newsgate.x-privat.org...

Sembra...
leggi bene.
Ciao, Carlo


title: elenco cap (codici avviamento postale)

text:
"Giorgia" <
gio...@vitaletrasporti.com
> ha scritto
cut
> peccato mi sarebbe tornata molto utile...
>
> Giorgia
>
Se leggi tutto il post trovi delle alternative altrettanto valide.
Ciao, Carlo


title: elenco cap (codici avviamento postale)

author: Roberto da Parma

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:glsnir$67f$1...@tdi.cu.mi.it...

Io forse non avrò l'elenco aggiornatissimo.....ma un 8000 comuni li ho....e
penso che comunque in giro ci sia qualcosa di aggiornato....io l'avevo in
fin dei conti scaricato... :-)
Ciao
--
Roberto da Parma


title: crm

author: Andrea B

text:
una breve nota...mi ero ripromesso di scrivere dei moduli per il crm sugar,
un applicativo php.
eseguibile in locale e su web. in locale con un analogo applicativo access,
non c'è storia ingìfatti lo sto scrivendo per access. vi faro' sapere
andy


title: crm

author: dino

text:
"Andrea B" <
kaoti...@virgilio.it
> wrote in message
news:452e24e6$0$4580$4faf...@reader2.news.tin.it...

... interessante ... cosa intendi per "non c'e' storia" ? ... non lo conosco
direttamente ma non mi sembra male sugar crm ... alludi alla velocità delle
applicazioni web rispetto a quelle su lan ?
dino


title: crm

text:
"dino" <di...@saur.extint> wrote in message
news:452e3388$0$4573$4faf...@reader2.news.tin.it...
> "Andrea B" <
kaoti...@virgilio.it
> wrote in message
> news:452e24e6$0$4580$4faf...@reader2.news.tin.it...

> ... interessante ... cosa intendi per "non c'e' storia" ? ... non lo
> conosco direttamente ma non mi sembra male sugar crm ... alludi alla
> velocità delle applicazioni web rispetto a quelle su lan ?
>
> dino
>
... preciso: intendevo velocità "bassa" delle applicazione web rispetto a
quelle in rete locale ... e non è nemeno sempre vero.
dino


title: crm

text:
uso sugar sul mio portatile. devo dire che l'ultima
versione non è male, pero' la trovo lenta. sugar viene

utilizzato o da web oppure in locale. e già in
locale è lento. seppur meritevole.

visto il suo funzionamento l'ho clonato su access,
quantomeno nelle idee di fondo, la versione finale utilizzera' dei moduli

differenti, adattabili alla architettura base,
relativi a professioni specifiche

in questo momento ne sto facendo una x la mia
professione (sempre orientata alla vendita), di assicuratore e
consulente

finanziario.

ciao

andy


title: crm

text:
ti diro' di piu', una volta fatto con access lo traduco in gambas, il vba x
linux
andy


title: crm

text:
"Andrea B" <
kaoti...@virgilio.it
> wrote in message
news:4530815f$0$25884$4faf...@reader1.news.tin.it...
> ti diro' di piu', una volta fatto con access lo traduco in gambas, il vba
> x linux
>
> andy
gambas ??? Cavolo, non sapevo nemmeno esistesse una cosa del genere ... in
effetti se esiste la possibilità di portare applicazioni vba su linux la
cosa diventa interessante.
Ciao e buon lavoro.
Dino


title: crm

text:
allora ti dico in breve la mia esperienza...ho due pc su uno xp e sun uno
linux...
database del livello di access su linux ancora non esistono ma ci stanno
arrivando, in sequenza:
openoffice-> modulo database ...non male
kexi-> access like di kde, mancano le macro ed alcune cose ma sta crescendo
velocemente
gambas->, visual basic x linux, permette anche l'utilizzo di databases
sottostanti (mysql, sqlite -che funziona senza server)
rekall->altro clone access, anche programmabile, funziona come frontend x
mysql o altro oppure x database stile *.mdb
ti dico che sto facendo dei programmi da portare su gambas, che come ide x
programmare è velocissimo
cmq access è access
andy


title: Due domande...

author: Andlis

text:
Ciao a tutti.
Dopo molteplici ricerche per i canali "ufficiali", sono rimasto con due
dubbi:
1)Come si fa ad azzerare un contatore in AccessXP?
2)La fantastica funzione per nascondere la finestra database che ho trovato
sul sito del NG non sembra funzionare in AccessXP. C'è un modo per renderla
utilizzabile?
Grazie a quanti vorranno rispondere!
--
Andlis
----------------------
Per rispondere leva l'antani e la blinda.


title: Due domande...

author: Antonio Biso

text:
"Andlis" <
newslett...@uniblindanetcom.it
> ha scritto nel messaggio
news:iKJWb.2301$FJ6....@twister1.libero.it...
> Ciao a tutti.
Una sola risposta: scrivi un subject più significativo!!!
Antonio


title: Due domande...

author: MA

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:MLJWb.2544$Kc3....@twister2.libero.it...

Due risposte:
Una sola risposta: scrivi un subject più significativo!!!
Posta una sola domanda alla volta.
Antonio stai invecchiando.
MAssimiliano


title: Due domande...

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:t5KWb.6354$HO2....@news.edisontel.com...

flag = 0
if iserror(subject) then
  flag = 1
  goto gest_err
elseif error(quoting)
  flag = 2
  goto gest_err
elseif(domande)
  flag = 3
  goto gest_err
else
  risolvi_problema
endif
gest_err:
if flag = 1 then
  msgbox "scrivi un subject più significativo!"
elseif flag = 2 then
  msgbox "scrivi correttamente DOPO il quoting!"
elseif flag = 3 then
  msgbox "scrivi un post per domanda!"
endif
Antonio


title: Due domande...

author: Sergio MAZZA

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:FHMWb.2720$FJ6....@twister1.libero.it...
>
> flag = 0
> if iserror(subject) then
>   flag = 1
>   goto gest_err
> elseif error(quoting)
>   flag = 2
>   goto gest_err
> elseif(domande)
>   flag = 3
>   goto gest_err
> else
>   risolvi_problema
> endif
>
> gest_err:
> if flag = 1 then
>   msgbox "scrivi un subject più significativo!"
> elseif flag = 2 then
>   msgbox "scrivi correttamente DOPO il quoting!"
> elseif flag = 3 then
>   msgbox "scrivi un post per domanda!"
> endif
>
> Antonio
>
Lo posti sul sito comune?
Ciao.
--
Sergio MAZZA


title: Due domande...

text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c0g81e$5ha$1...@canarie.caspur.it...
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
> news:FHMWb.2720$FJ6....@twister1.libero.it...
> >
>
> Lo posti sul sito comune?
La triade non me lo pubblica...
Antonio


title: Scrivere in un campo cliccando su un bottone.

author: medmax

text:
E' possibile scrivere in un campo cliccando su un bottone posto
all'interno di una maschera?
Un'altra domanda, è possibile fare la stessa cosa ma in maschere
differenti? Cioè io creo una maschera BOTTONI dove inserisco i bottoni
e ogni volta che apro la maschera INSERIMENTO che contiene il campo
TESTO schiacciando sul bottone della maschera BOTTONI il campo TESTO
viene riempito.
Ciò sarà possibile con più maschere INSERIMENTO 1...2,3,4 ecc.?
Mantendo la stessa maschera BOTTONI?
Grazie.


author: Gabriele Bertolucci

text:
> E' possibile scrivere in un campo cliccando su un bottone posto
> all'interno di una maschera?
Sì.
> Un'altra domanda, è possibile fare la stessa cosa ma in maschere
> differenti? Cioè io creo una maschera BOTTONI dove inserisco i bottoni
> e ogni volta che apro la maschera INSERIMENTO che contiene il campo
> TESTO schiacciando sul bottone della maschera BOTTONI il campo TESTO
> viene riempito.
Sì.
> Ciò sarà possibile con più maschere INSERIMENTO 1...2,3,4 ecc.?
Sì.
> Mantendo la stessa maschera BOTTONI?
Sì.
> Grazie.
Prego.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


text:
"Gabriele Bertolucci" <in...@REMOVEpbsoft.it> ha scritto nel messaggio news:875ea355bbea8...@news.virgilio.it...

Eh! Eh! 4/4; bravo Gabriele!
Ciao.
--
Sergio MAZZA


text:


Grazie.......Prego
Potreste essere più specifici?
Grazie


text:
> Potreste essere piů specifici?
Facciamo cosě: facci capire tu come possiamo essere piů specifici noi, magari
postando un problema alla volta e circostanziandolo ben bene.
Senza rancore.



title: Problema troppo difficile da risolvere ???

author: Lucky

text:
Buongiorno a tutti.
Vorrei avere un aiuto relativamente a questo problema:
Ho un database per il quale ho composto il codice VBA con il quale creo una
copia di sicurezza
formata da un nuovo file mdb all'interno del quale esporto le tabelle
contenute nel database originario.
Il file si compone nel seguente modo: CopieSicurezza_AAAA_MM_GG__hh_mm_ss.
Ho composto il codice VBA con il quale (dal database originario) importo dal
file mdb (CopieSicurezza) le tabelle salvate.
Purtroppo per�, ogni volta, devo rinominare il file
"CopieSicurezza_AAAA_MM_GG__hh_mm_ss.mdb" in "CopieSicurezza.mdb"
a causa della mia limitatezza nel risolvere il problema.
Vorrei invece poter risolvere il problema nel seguente modo:
aprire, con la funzione "sfoglia", la cartella C:\DB_Copie all'interno della
quale selezionare il file
CopieSicurezza_AAAA_MM_GG__hh_mm_ss.mdb che mi interessa e procedere quindi
con l'importazione delle tabelle salvate.
Data la mia limitatezza nell'affrontare questo problema, qualcuno pu�
aiutarmi, fornendomi il codice VBA da inserire ?
Grazie.
Saluti
Lucky


author: tommaso

text:
Il giorno sabato 22 dicembre 2012 15:53:24 UTC+1, Lucky ha scritto:
> Buongiorno a tutti.
>
> Vorrei avere un aiuto relativamente a questo problema:
>
> Ho un database per il quale ho composto il codice VBA con il quale creo una
>
> copia di sicurezza
>
> formata da un nuovo file mdb all'interno del quale esporto le tabelle
>
> contenute nel database originario.
>
> Il file si compone nel seguente modo: CopieSicurezza_AAAA_MM_GG__hh_mm_ss.
>
> Ho composto il codice VBA con il quale (dal database originario) importo dal
>
> file mdb (CopieSicurezza) le tabelle salvate.
>
> Purtroppo però, ogni volta, devo rinominare il file
>
> "CopieSicurezza_AAAA_MM_GG__hh_mm_ss.mdb" in "CopieSicurezza.mdb"
>
> a causa della mia limitatezza nel risolvere il problema.
>
> Vorrei invece poter risolvere il problema nel seguente modo:
>
> aprire, con la funzione "sfoglia", la cartella C:\DB_Copie all'interno della
>
> quale selezionare il file
>
> CopieSicurezza_AAAA_MM_GG__hh_mm_ss.mdb che mi interessa e procedere quindi
>
> con l'importazione delle tabelle salvate.
>
> Data la mia limitatezza nell'affrontare questo problema, qualcuno può
>
> aiutarmi, fornendomi il codice VBA da inserire ?
>
> Grazie.
>
> Saluti
>
> Lucky

Guarda nella sezione General, l'articolo:
6.104 Compattare tutti i BackEnd dal FrontEnd 2
nel sito comune
http://www.sitocomune.com/

Ciao
Tommaso


text:
Grazie mille Tommaso per il tuo consiglio.
Saluti
Lucky
==========================

"tommaso" <
tommaso...@gmail.com
> ha scritto nel messaggio
news:d11f4ff2-cb37-48c1...@googlegroups.com...
Il giorno sabato 22 dicembre 2012 15:53:24 UTC+1, Lucky ha scritto:
> Buongiorno a tutti.
>
> Vorrei avere un aiuto relativamente a questo problema:
>
> Ho un database per il quale ho composto il codice VBA con il quale creo
> una
>
> copia di sicurezza
>
> formata da un nuovo file mdb all'interno del quale esporto le tabelle
>
> contenute nel database originario.
>
> Il file si compone nel seguente modo: CopieSicurezza_AAAA_MM_GG__hh_mm_ss.
>
> Ho composto il codice VBA con il quale (dal database originario) importo
> dal
>
> file mdb (CopieSicurezza) le tabelle salvate.
>
> Purtroppo per�, ogni volta, devo rinominare il file
>
> "CopieSicurezza_AAAA_MM_GG__hh_mm_ss.mdb" in "CopieSicurezza.mdb"
>
> a causa della mia limitatezza nel risolvere il problema.
>
> Vorrei invece poter risolvere il problema nel seguente modo:
>
> aprire, con la funzione "sfoglia", la cartella C:\DB_Copie all'interno
> della
>
> quale selezionare il file
>
> CopieSicurezza_AAAA_MM_GG__hh_mm_ss.mdb che mi interessa e procedere
> quindi
>
> con l'importazione delle tabelle salvate.
>
> Data la mia limitatezza nell'affrontare questo problema, qualcuno pu�



title: Funzione IsNull su campo tabella

author: Cippalippa

text:
Secondo voi è più corretto fare riferimento al campo di una tabella/query:
    If IsNull([Cognome]) = True Then [Privacy].Value = False
oppure direttamente alla casella testo e checkbox che hanno come origine
dati la tabella/query:
    If IsNull([txtCognome]) = True Then [chkPrivacy].Value = False
Grazie.


title: Funzione IsNull su campo tabella

author: Roberto da casa

text:
"Cippalippa" <
veg...@tin.it
> ha scritto nel messaggio
news:kQLWd.626922$b5.28...@news3.tin.it...

Come dice l'help in linea la funzione IsNull ha la seguente sintassi:
IsNull(espressione)
e l'help definisce  come espressione una "Combinazione di parole chiave,
operatori, variabili e costanti che restituiscono una stringa, un numero o
un oggetto.  ecc. ecc.".
A questo punto è evidente che l'oggetto può essere indifferentemente un
campo o un controllo, tanto più che spesso il nome di un controllo coincide
con il nome del campo cui viene associato.
Ciò premesso, io preferisco indicare il nome della casella di testo per un
problema di uniformità con il fatto che dovrei comunque farlo nel caso in
cui la casella di testo fosse non associata, ciò però non significa che
indicare il nome del campo sia meno corretto.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: linee verticali in corpo report fattura con soluzione 4.6 Stampare un numero N costante di righe per pagina del sito comune.

author: Giuseppe

text:
Buongiorno a tutti.
Se il numero di righe che compongono il report rientra nel numero inserito nel codice, tutto OK; se le supera, mi crea più pagine del necessario e gli articoli successivi alla prima pagina non si vedono.
E' un limite di questa procedura o devo modificare qualcosa?
Grazie.
Giuseppe


text:

Nessuno che mi dia almeno una risposta?
Buona giornata.
Giuseppe


title: RIAIUTO

author: Valerio Valentini

text:
Ciao qualcuno potrebbe riprendere con dei consigli il mio post IIF in una
query del 9/8 che non sono riuscito a risolvere causa l'INTERRUZIONE DI
SERVIZIO di Bisio.
Ciao Grazie a tutti.


title: da access a sql server 2005 express edition

author: TheProf

text:
Ho necessità di passare il db su sql server.
Dato che ho fretta, penasvo ad una soluzione intermedia invece di
trasferire tuto subito.
Secondo voi posso trasferire solo le tabelle sotto sql server e tenere
tutte le maschere e i moduli in access?
Continuerei a lavorare con le vecchie maschere e query senza dover
modificare niente collegando il db sotto sql server come tabelle esterne
(non so se devo collegare le tabelle una per una, ma troverò una
soluzione). In questa fase non mi interessano le prestazioni.
E' un'idea che mi è venuta ora, non ci ho ancora pensato bene, non so
ancora come fare, ma pensate sia fattibile? Funziona?
Sono stato chiaro? Boh, non è chiaro nemmeno per me..... Sto cercando
una soluzione *veloce* per passare a sql senza dover modificare
maschere, query e soprattutto tutti i moduli in VBA dietro le maschere.
--
TheProf


text:
> Ho necessitą di passare il db su sql server.
Bene
> Dato che ho fretta,
Male.
> penasvo ad una soluzione intermedia invece di trasferire tuto subito.
Benino.
> Secondo voi posso trasferire solo le tabelle sotto sql server e tenere
> tutte le maschere e i moduli in access?
Yes.
Utilizza il "SQL Server Migration Assistant for Access" per migrare il BE.
Creati una copia del FE (non si sa mai!!!).
Elimina dal FE tutte le tabelle collegate che hai migrato a SQL Server.
Creati un DSN (puoi anche fare senza).
Collega al tuo FE la nuova sorgente dati tramite ODBC (con o senza DSN).
Buon lavoro.
> Continuerei a lavorare con le vecchie maschere e query senza dover
> modificare niente
Mmmmm.....sono dubbioso.
Ci sono comportamenti differenti tra SQL Server ed Access: non ci metterei
proprio la mano sul fuoco giurando che non dovrai fare alcuna modifica.
> collegando il db sotto sql server come tabelle esterne
> (non so se devo collegare le tabelle una per una, ma troverņ una
> soluzione).
La soluzione si chiama "sorgente dati ODBC".
> In questa fase non mi interessano le prestazioni.
Che, comunque, sono di tutto rispetto :-)
> E' un'idea che mi č venuta ora, non ci ho ancora pensato bene, non so
> ancora come fare, ma pensate sia fattibile? Funziona?
Fattibilissimo. Funziona alla grande.
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution


author: Marco Papo

text:
"TheProf" <
mongolf...@libero.it
> ha scritto nel messaggio
news:474db002$0$4787$4faf...@reader4.news.tin.it...

Ciao,
è un lavoro che sto facendo anch'io, e poichè non tutte le maschere
funzionano correttamente (alcune istruzioni VBA devono essere riscritte, ma
niente di garve), e qualche qualcuna è diventata perfino lentissima (tipo se
usi il trova Ctrl+t per ricercare i record), sto adottando una logica
graduale.
Migro le tabelle per gruppi di attinenza. Testo la parte dell'applicazione
interessata, e quando un utente mi segnala un malfunzionamento sistemo.
Daltronde non si può bloccare l'azienda!!!
Cmq, i risultati ci sono! Dove è necesario puoi migliorare le prestazioni,
solidità, store procedure e trigger, reporting services......
Se hai domande faipure?
--
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.


text:

Guarda su
www.accessgroup.it
c'è nella sezione CISA un interessante articolo di rancati e un webcast mio
--
--
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


author: Simone Calligaris

text:
"TheProf" <

Prova a scaricare questa documentazione:
http://www.alessandrobaraldi.it/DettaglioFaq.asp?IdFAQ=281
Trovi più o meno tutte le dritte che ti servono per sveltire la migrazione.
Saluti.


title: OfficeXPDeveloper

author: Michele

text:
Sapete dirmi cosa significa "Versione run-time di Access 2002" in pratica?
Cioè posso creare un numero infinito di DB da vendere al solo costo del mio
lavoro? In quel caso conviene spendere le 600.000 Lire di differenza
rispetto alla versione pro.
Cito il sito Microsoft alla pagina relativa al prodotto:
"
Caratteristiche e benefici:
...
Runtime di Access 2000 in esenzione da royalty
Ridistribuzione di soluzioni Microsoft Access versione 2002 senza che sia
necessario disporre di Access, grazie all'edizione runtime (non soggetta a
diritti di royalty) di Access.
"
Ciao e grazie, Michele.


title: OfficeXPDeveloper

author: Laura Cerponi

text:
Michele <
mit...@liberox.it
> wrote in message
9u0dte$4bj$1...@nreada.inwind.it...

E' proprio cosi', come del resto in tutte le altre versioni developer


title: Ciclare un Recordest

author: Tom

text:
Ciao a tutti,
utilizzo il seguente codice:
.ActiveDocument.Bookmarks("ElencoProdotti").Select
 SQL = "SELECT * FROM [QDettaglio_Offerta] WHERE IDOfferta=" & Me.IDOfferta
& _
          " ORDER BY Codice, Descrizione;"
    Set Rst = CurrentDb.OpenRecordset(SQL)
    If Not Rst.BOF Then 'se il recordset non è vuoto
        Tbl = Chr$(9) 'Chr$(9) è una tabulazione
        'ciclo sul recordset ed esportazione di tutte le righe
        With Rst
            Totale = 0 '
            .MoveFirst 'posizionati sul primo record
            While Not .EOF 'ripeti fino alla fine del recordset:
                'costruisci la riga da scrivere nel documento:
                'TotRiga = Nz(!Pz) * Nz(!Prezzo)
                Record = "Descrizione:" & " " & !Descrizione & (Chr(13)) &
"Denominazione commerciale:" & " " & _
                         !Denominazione_Commerciale & (Chr(13)) & "Codice
prodotto:" & " " & _
                         !Codice & (Chr(13)) & "Ditta Produttrice:" & " " &
_
                         !Ditta_Produttrice & (Chr(13)) & "Confezione da:" &
" " & _
                         !Pezzi_Confezione & " " & !Descrizione_Confezione &
(Chr(13))
                Wrd.Selection.TypeText Record & vbCrLf 'scrivi la riga
                'Totale = Totale + TotRiga  'somma i totali di ciascun
record
                .MoveNext 'passa al prossimo record
                pausa
            Wend 'Not .EOF
        End With 'Rst
        'chiudi e azzera il recordset
        Rst.Close: Set Rst = Nothing
    Else 'Not Rst.BOF
        Wrd.Selection.TypeText "NESSUN PRODOTTO ." & vbCrLf
    End If 'Not Rst.BOF
tratto dall'esempio Bookmark del sito comune, per popolare un documento word
con i dati filtrati da una query, e fino adesso tutto funziona bene,
la query mi seleziona tutti i records legati ad una determinata offerta e li
scrive nel documento word. Dovendo apportare delle modifiche alla query, nel
senso che devo inserire dei lotti dovrei cambiare il codice di sopra per
ciclare i lotti, nel senso che l'offerta x può contenere n lotti e ogni
lotto può contenre n records. La domanda è come posso cambiare il codice di
sopra affinchè mi cicli prima i lotti e mi scrive tutte le righe del lotto,
e quindi passa al secondo lotto e cosi via..?
Ciao Tommy


title: Ciclare un Recordest

author: Ivan da casa

text:
"Tom" <
ar...@libero.it
> ha scritto nel messaggio
news:wVFcf.31444$65.9...@twister1.libero.it...

Ciao Tommy,
devi aprire un'altro recordset selezionando i lotti, che conterrà la
procedura che hai già scritta.
qualcosa  tipo:
 SQL = "SELECT * FROM [LOTTI] WHERE IDLotto=" & Me.Lotto &
          " ORDER BY qualcheCampoValido;"
    Set RsLotti = CurrentDb.OpenRecordset(SQL)
    If Not RsLotti.BOF Then 'se il recordset non è vuoto
        'ciclo sul recordset ed esportazione di tutte le righe
        With RsLotti
            .MoveFirst 'posizionati sul primo record
            While Not .EOF 'ripeti fino alla fine del recordset:
                [... qui inserisci la procedura che hai già ...]
            Wend
        End With
    End If
...
certamente devi adattare la cosa alla realtà dei tuoi campi, ma il
ragionamento è lo stesso della procedura precedente. Dovrai anche
assicurarti di avere i dettagli 'legati' al LOTTO in esame.
--
... spero di esserti stato d'aiuto,
Ivan


title: Ciclare un Recordest

text:
"Ivan da casa" <
ivanSENZAQ...@tin.it
> ha scritto nel messaggio
news:4373ccfb$0$27595$4faf...@reader1.news.tin.it...

no così non funziona, perchè il mio recordeset è filtrato tramite
L'IDOfferta, e mi esce fuori questo risultato:
IdOfferta    NumLotto    Descrizione    ecc..
    1                1                .....
    1                1                .....
    1                2                .....
    1                2                .....
e cosi via
quindi dovrei aprire un ciclo sul NumLotto e mi esporto tutte le righe del
lotto n. 1, quindi passo al lotto n. 2 e mi esporto le righe del lotto n. 2
e cosi via fino alla fine, invece la soluzione che mi hai dato tu funziona
nel caso in cui dovrei applicare il filtro al singolo lotto, qualche altro
aiuto
Tommy


title: Collegamento ad immagini in un report

author: Marco

text:
Salve,
dovrei visualizzare delle immagini in un report in modo dinamico, cioe' in
pratica memorizzare la path ed il nome del file in una variabile e quindi
visualizzare immagini diverse senza memorizzarle nel database (si tratta di
una anagrafica articoli (con un gif dello schema di ogni articolo).
Non ho capito come passare questo parametro, qualcuno mi puo' aiutare?
Grazie, Marco.


title: Collegamento ad immagini in un report

author: ElioP

text:

Se le gif di ogni articolo sono diverse una dall'altra
(mi sembra ovvio)
non devi memorizzarle in una variabile.
Il path e il nome del file devono
essere memorizzate in un campo "Nomefile" di tipo Testo
di ogni record.
Nella form "Anagrafica articoli" inserisci il controllo
legato al campo "Nomefile" e lo aggiorni
recor per record.
(Al massino puoi memorizzare in una variabile
il percorso, ad es. "C:\Miodb\Immagini\" inserendo
nel campo Nomefile solo l'effettivo nome del file
(ad es. "Foto333.bmp")
Per quanto riguarda il report, nell'evento SuFormattazione,
concateni la variabile Percorso al nome del file e assegni:
Me!Immagine.Picture = Percorso & Me!Nomefile
Ciao.


title: OT Traduzione FAQ 2.25

author: Karl Donaubauer

text:
*************************
2.25 Get the week number
Problem
You have a date (or a date field) and want to get its week number.
Solution
You can use the following expression e.g. as control source
of a calculated control:
=DatePart("ww"; MyDateField)
In VBA:
DatePart("ww", MyDateField)
In the online help you can find the description of further parameters
of the DatePart function, which allow you to define the first day of
the week and the first week of the year according to your standards.
In Europe the standard is given by ISO 8601:
=DatTeil("ww";MyDateField;2;2)
in VBA:
DatePart("ww", MyDateField, vbMonday, vbFirstFourDays)
Similar possibilities to obtain the week number are offered by
the Format function:
Format(MyDateField, "ww")
Caution!
There's a known bug that for some years causes a wrong week
number for the last monday of the year. See the description at:
http://support.microsoft.com/?kbid=200299
If this could be relevant to your application then you should use
the workaround presented in the KB article.
***********************
--
cu
Karl
*********
Access FAQ:
www.donkarl.com/it
 + CISA1, Arezzo, 4+5/6/2005
la prima Conferenza Italiana per Sviluppatori di Access


title: OT Traduzione FAQ 2.25

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3b4vmkF...@individual.net...
[CUT]
>
> You can use the following expression e.g. as control source
> of a calculated control:
> =DatePart("ww"; MyDateField)
Con la versione in italiano di Access bisogna scrivere nell'origine
controllo:
=DatePart("ii"; MyDateField)
>
> In VBA:
> DatePart("ww", MyDateField)
Naturalmente per il VBA va bene cosě.
[CUT]
>
> Similar possibilities to obtain the week number are offered by
> the Format function:
> Format(MyDateField, "ww")
OK per VBA, ma con il generazione di espressioni e la versione italiana di
Access occorre scrivere:
Format(MyDateField; "ii")
[CUT]
>
> --
> cu
> Karl
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: OT Traduzione FAQ 2.25

author: sv

text:
Karl Donaubauer ha scritto:

> Problem

> Solution






2.25 Ottenere il numero della settimana
Problema
Hai una data (o un campo data), e vuoi ottenerne il numero della settimana.
Soluzione
Puoi utilizzare la seguente espressione, p. e., come  “Origine controllo”
di un controllo calcolato:
=DatePart("ii"; MioCampoData)
In VBA:
DatePart("ww", MioCampoData)
Nell’help online puoi trovare la descrizione di ulteriori parametri della
funzione DatePart, che ti permette di definire il primo giorno della
settimana, e la prima settimana dell’anno relativi ai tuoi standard.
In Europa lo standard è dato dall’ISO 8601:
=DatePart("ii";MioCampoData;2;2)
in VBA:
DatePart("ww", MioCampoData, vbMonday, vbFirstFourDays)
Uguali possibilità, per ottenere il numero della settimana sono offerte
dalla funzione Format:
Format(MioCampoData, "ww")
Attenzione!
Vi è un bug conosciuto che su certi anni, produce un numero di settimana
errato per l’ultimo lunedì dell’anno. Vedi la descrizione su:
http://support.microsoft.com/?kbid=200299
Se questo potrebbe essere importante per la tua applicazione, dovresti
utilizzare l’artificio presentato nell’articolo della KB.
Nota ("ii" nel controllo, "ww" in VBA)
PS: Ho inviato già due e-mail al tuo indirizzo. La prima era la risposta
ad una tua precisa "curiosità"; la seconda, di oggi, ti informavo su
qualcosa. Mi ritorna un testo, tutto in tedesco incomprensibile.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: OT Traduzione FAQ 2.25

text:
sv wrote:
> ...
> PS: Ho inviato già due e-mail al tuo indirizzo. La prima era la
> risposta ad una tua precisa "curiosità"; la seconda, di oggi, ti
> informavo su qualcosa. Mi ritorna un testo, tutto in tedesco
> incomprensibile.
Prima chiedi una conferma di lettura (o come si chiama nella
verisione .it del OE) e poi ti deplori se viene una in tedesco. ;-)
Sono arrivati tutti e due come ti mostrano le conferme e certo
ti ringrazio molto per gli informazioni e indicazioni.
Un'altra domanda:
Come si chiama il segno in un check box che indica il Sì o No?
In inglese si chiama check o checkmark, ma in italiano?



title: OT Traduzione FAQ 2.25

author: MA

text:
"Karl Donaubauer" <
NoS...@donkarl.com
> ha scritto nel messaggio
news:3b5690F...@individual.net...
> sv wrote:
>> ...
>> PS: Ho inviato già due e-mail al tuo indirizzo. La prima era la
>> risposta ad una tua precisa "curiosità"; la seconda, di oggi, ti
>> informavo su qualcosa. Mi ritorna un testo, tutto in tedesco
>> incomprensibile.
>
> Prima chiedi una conferma di lettura (o come si chiama nella
> verisione .it del OE) e poi ti deplori se viene una in tedesco. ;-)
> Sono arrivati tutti e due come ti mostrano le conferme e certo
> ti ringrazio molto per gli informazioni e indicazioni.
>
> Un'altra domanda:
> Come si chiama il segno in un check box che indica il Sì o No?
> In inglese si chiama check o checkmark, ma in italiano?
Casella di spunta
MAssimialino


title: OT Traduzione FAQ 2.25

text:
Karl Donaubauer ha scritto:
> sv wrote:
> > ...
> > PS: Ho inviato già due e-mail al tuo indirizzo. La prima era la
> > risposta ad una tua precisa "curiosità"; la seconda, di oggi, ti
> > informavo su qualcosa. Mi ritorna un testo, tutto in tedesco
> > incomprensibile.
> Prima chiedi una conferma di lettura (o come si chiama nella
> verisione .it del OE) e poi ti deplori se viene una in tedesco. ;-)
> Sono arrivati tutti e due come ti mostrano le conferme e certo
> ti ringrazio molto per gli informazioni e indicazioni.
Hai ragione,ma siccome mi erano arrivate prima come "Letto", non capivo la
novità.
> Un'altra domanda:
> Come si chiama il segno in un check box che indica il Sì o No?
> In inglese si chiama check o checkmark, ma in italiano?
La casella, la chiamiamo "casella di controllo"
Il segno che è una specie di "v", e sta ad indicare proprio la parola
"visto", la chiamiamo "spunta".
