title: Ordinare maschera filtrata in ADP

text:
> > Hai provato ad aprire la maschera sempre senza recuperare alcun record,
> > quindi applicare un ServerFilter e fare un requery della maschera?
> > Pensi che potrebbe fare al caso tuo?
>
> Scusa, non ho capito.
Dunque. Sono andato a ricontrollare del codice che io e Gionata abbiamo
scritto qualche mese fa per un ADP abbastanza grosso.
Nel caso nostro non c'era la necessità di aprire una maschera filtrata,
perciò, per rispondere alle esigenze del cliente riguardo alle ricerche,
abbiamo scelto la via delle Query By Form.
Con questo sistema, quando andiamo a fare una ricerca nei dati e vogliamo
aprire dunque una maschera con un filtro su queti, abbiamo fatto il seguente
test:
- se la maschera è chiusa allora la apriamo con un DoCmd a cui passiamo la
condizione di where complessa a piacere
- se la maschera è già aperta, ci creiamo un riferimento ad essa (come
AccessObject) ed andiamo ad impostare la proprietà ServerFilter
Un'alternativa potrebbe essere quella di aprire sempre la maschera in
aggiunta dati e, alla bisogna, modificare la sua proprietà ServerFilter.
Non so quale delle due soluzioni sia più performante.



title: Ordinare maschera filtrata in ADP

author: Sib

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > devo ordinare una maschera in base a un campo data.
> > ho provato a ordinare direttamente il recordset e sembra funzionare, il
> > problema pero' sorge nel momento in cui cerco di aprire la maschera
filtrata
> > tramite l'istruzione docmd, mi dice che il nome "MiaTabella" non e' un
> > prefisso valido per il campo.
cut
> Non passare il nome della tabella nella wherecondition, se nella tua query
> hai campi con nome uguale ma di diverse tabelle usa degli alias.
> Se questa è la tua Query
> ------------------------
> SELECT *
> FROM Cienti
> ORDER BY Codice
> ------------------------
> e imposti la wherecondition uguale a Codice > 100
>
> Access la trasforma in questo modo
> ------------------------
> SELECT *
> FROM (SELECT * FROM Clienti) AS DRVD_TBL
> WHERE Codice > 100
> ORDER BY Codice
> ------------------------
>
> La cosa è logica perchè deve comporre la clausola WHERE ma i riferimenti
> alle tabelle originali vanno a farsi friggere.
Non lo sapevo.
comunque devo dire che uso questo codice:
    stDocName = "Abbonamenti"
    stLinkCriteria = "[IDCliente]=" & Me![IDCliente]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
come vedi non c'e' riferimento alla tabella.
Il codice SQL della maschera e' questo:
SELECT Abbonamenti.IDAbbonamento, Abbonamenti.IDCliente,
Abbonamenti.DataAbbonamento, Abbonamenti.DataScadenza, Abbonamenti.Sospeso,
Anagrafica.RagioneSociale FROM Abbonamenti INNER JOIN Anagrafica ON
Abbonamenti.IDCliente = Anagrafica.IDCliente
Forse quindi modificando questo SQL potrei risolvere il problema?
Sib


title: Ordinare maschera filtrata in ADP

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
cut
> Access la trasforma in questo modo
> ------------------------
> SELECT *
> FROM (SELECT * FROM Clienti) AS DRVD_TBL
> WHERE Codice > 100
> ORDER BY Codice
> ------------------------
>
> La cosa è logica perchè deve comporre la clausola WHERE ma i riferimenti
> alle tabelle originali vanno a farsi friggere.
>
> Ciao Giorgio
qual e' il metodo piu' immediato per vedere la sintassi delle istruzioni
effettivamente inviate al server sql da access?
Sib


title: Ordinare maschera filtrata in ADP

author: Gabriele Bertolucci

text:
> qual e' il metodo piu' immediato per vedere la sintassi delle istruzioni
> effettivamente inviate al server sql da access?
Puoi utilizzare SQL Profiler. Registri una traccia attività monitorando le
operazioni che ti servono.
Poi stoppi la registrazione e vedi quello che è successo.



title: Ordinare maschera filtrata in ADP

author: Giorgio Prx

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:7xMqb.430636$R32.14...@news2.tin.it...

Io ho Office Xp Developer in cui vengono forniti i tools amministrativi di
Sql Server, tra questi c'è Sql Profile che intercetta e visualizza tutti i
comandi che arrivano al server (quando non capisci certi comportamenti è
illuminante).
Da Access non saprei come fare.
Ciao Giorgio


title: Ordinare maschera filtrata in ADP

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:ltMqb.430608$R32.14...@news2.tin.it...
> "Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel
messaggio
> > "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
[CUT]
> Non lo sapevo.
> comunque devo dire che uso questo codice:
>
>     stDocName = "Abbonamenti"
>     stLinkCriteria = "[IDCliente]=" & Me![IDCliente]
>     DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> come vedi non c'e' riferimento alla tabella.
> Il codice SQL della maschera e' questo:
>
> SELECT Abbonamenti.IDAbbonamento, Abbonamenti.IDCliente,
> Abbonamenti.DataAbbonamento, Abbonamenti.DataScadenza,
Abbonamenti.Sospeso,
> Anagrafica.RagioneSociale FROM Abbonamenti INNER JOIN Anagrafica ON
> Abbonamenti.IDCliente = Anagrafica.IDCliente
>
> Forse quindi modificando questo SQL potrei risolvere il problema?
Ciao Sib
Si non c'è riferimento alla tabella però rimane il problema di assegnare
un'alias al campo da ordinare.
Tu hai questa Query
----------------------------------------
SELECT
     Abbonamenti.IDAbbonamento,
     Abbonamenti.IDCliente,
     Abbonamenti.DataAbbonamento,
     Abbonamenti.DataScadenza,
     Abbonamenti.Sospeso,
     Anagrafica.RagioneSociale
FROM Abbonamenti
            INNER JOIN Anagrafica ON
           Abbonamenti.IDCliente = Anagrafica.IDCliente
ORDER BY  Abbonamenti.DataScadenza
-------------------------------------------
Quando apri il form con  DoCmd.OpenForm stDocName, , , stLinkCriteria Access
la trasforma così
----------------------------------------
SELECT * FROM (
SELECT
     Abbonamenti.IDAbbonamento,
     Abbonamenti.IDCliente,
     Abbonamenti.DataAbbonamento,
     Abbonamenti.DataScadenza,
     Abbonamenti.Sospeso,
     Anagrafica.RagioneSociale
FROM Abbonamenti
            INNER JOIN Anagrafica ON
           Abbonamenti.IDCliente = Anagrafica.IDCliente
)  AS DRVD_TBL
WHERE    IDCliente=2
ORDER BY  Abbonamenti.DataScadenza
-------------------------------------------
Come vedi L'Order By  è sbagliata perché fa riferimento a una tabella che
non esiste nella prima FROM , per risolvere assegni un'alias a DataScadenza
e imposti l'order by sull'alias, praticamente dopo aver assegnato l'alias e
tolto l'ordinamento al campo DataScadenza vai in fondo alla griglia di
composizione e aggiungi un nuovo campo digitando il nome dell'alias, togli
la spunta output e imposti l'ordinamento.
Il Risultato SQL è Questo
----------------------------------------------
SELECT
     Abbonamenti.IDAbbonamento,
     Abbonamenti.IDCliente,
     Abbonamenti.DataAbbonamento,
     Abbonamenti.DataScadenza AS DataScad,
     Abbonamenti.Sospeso,
     Anagrafica.RagioneSociale
FROM Abbonamenti
            INNER JOIN Anagrafica ON
           Abbonamenti.IDCliente = Anagrafica.IDCliente
ORDER BY DataScad
---------------------------------------------
e access nella OpenForm lo trasformerà in
--------------------------------------------
SELECT * FROM (
SELECT
     Abbonamenti.IDAbbonamento,
     Abbonamenti.IDCliente,
     Abbonamenti.DataAbbonamento,
     Abbonamenti.DataScadenza AS DataScad,
     Abbonamenti.Sospeso,
     Anagrafica.RagioneSociale
FROM Abbonamenti
            INNER JOIN Anagrafica ON
           Abbonamenti.IDCliente = Anagrafica.IDCliente
)  AS DRVD_TBL
WHERE    IDCliente=2
ORDER BY DataScad
--------------------------------------------
Adesso tutto funziona correttamente.
(Contrariamente ad Access in Sql Server si possono usare gli alias nella
Order By
ma non si possono usare per i campi calcolati)
Ciao Giorgio


title: Ordinare maschera filtrata in ADP

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
cut
> > Forse quindi modificando questo SQL potrei risolvere il problema?
>
> Ciao Sib
>
> Si non c'è riferimento alla tabella però rimane il problema di assegnare
> un'alias al campo da ordinare.
cut

Molte grazie.
io pensavo che l'orderby venisse racchiuso nelle parentesi mentre invece
capisco che viene completamente rielaborata l'istruzione.
Ciao
Sib


title: Ordinare maschera filtrata in ADP

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
cut
> > qual e' il metodo piu' immediato per vedere la sintassi delle istruzioni
> > effettivamente inviate al server sql da access?
>
> Io ho Office Xp Developer in cui vengono forniti i tools amministrativi di
> Sql Server, tra questi c'è Sql Profile che intercetta e visualizza tutti i
> comandi che arrivano al server (quando non capisci certi comportamenti è
> illuminante).
> Da Access non saprei come fare.
Non c'e' problema, anch'io ho OXP developer.
grazie.
grazie molte anche a Gabriele.
Ciao
Sib


title: Ordinare maschera filtrata in ADP

text:
"Sib" <sedav...@SPAMtiscali.it> ha scritto nel messaggio
news:7M6rb.436960$R32.14...@news2.tin.it...
> "Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel
messaggio
> > "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
[CUT]
>
Ciao Sib
Volevo solo aggiungere che creando una vista e inserendola come origine
record "SELECT * FROM Vista ORDER BY DataScadenza" il problema non si
presenta. Personalmente creo le viste solo se sono utili a più form in altro
caso preferisco assegnare l'origine record direttamente al form interessato
(come nel tuo caso).
Ciao Giorgio


title: come avere una percentuale esatta?

author: Cecilia

text:
Nel mio file c'è una colonna di importo storico sulla quale devo calcolare
una percentuale del 5%.
Ho visto che il risultato di access è sempre diverso dal totale che in
realtà dovrebbe apparire (se faccio il calcolo in excel viene giusto).
Quindi volevo sapere se esiste un modo per avere gli importi esatti in
access.
grazie
Cecilia


title: come avere una percentuale esatta?

author: Max

text:
Cecilia <
alr...@tin.it
> wrote in message
_54xa.104151$3M4.2...@news1.tin.it...

cosa vuol dire che l'importo non è esatto?
Ciao Max


title: come avere una percentuale esatta?

text:
> cosa vuol dire che l'importo non è esatto?
sine_die_5%: Somma(Int(([importo_euro]*(5/100))))
questa è la formula che ho scritto nella query
ES: importo ? 3.162,95 - il 5% che devo addebitare è ? 158,15
ma in access il risultato è ? 155,00
E' sbagliata la formula?
Ceci


title: come avere una percentuale esatta?

text:
Cecilia <
alr...@tin.it
> wrote in message
On5xa.104640$3M4.2...@news1.tin.it...

scusa ma perchè metti int? cosi facendo fai la somma dei soli interi dei
vari importi ed ottieni degli errori.
 Max


title: come avere una percentuale esatta?

text:
il punto interrogativo l'ha trasformato l'email in invio x' sarebbe EURO ma
stai tranquillo che non ci sono simboli nella formula.
Pura e schietta la formula che ti ho scritto
ceci


title: come avere una percentuale esatta?

text:
Cecilia <
alr...@tin.it
> wrote in message
SS5xa.104816$3M4.2...@news1.tin.it...

nella formula hai scritto:
sine_die_5%: Somma(Int(([importo_euro]*(5/100))))
questo vuol dire che fai la somma degli interi del 5% degli importi
cioč se tu ha un valore 53 il risultato di questa formula č 2 e non 2,65
come č esatto
se togli quell'int ti troverai con degli importi calcolati corretti.
Ciao Max


title: come avere una percentuale esatta?

text:
> se togli quell'int ti troverai con degli importi calcolati corretti.
>
> Ciao Max
>
>
GRAZIE 1000
BACIONI
KISS
BESOS
CECI


title: salvataggio record

author: Alessio Coppola

text:
Salve Gente
vorrei porvi un quesito che per voi sarà di sicuro una stupidiggine.
ho creato un database in access 2000 ho creato una serie di caselle
combinate in cui andando ad inserire un codice nella casella associata mi
mostra la descrizione dello stesso codice..esempio :
se scrivo il codice "R04" nella casella associata mi mostra "Lombardia"...
fin qui tutto okay, ma nel momento in cui chiudo la maschera su cui lavoravo
mi vado ad accorgere che il record da me immesso non viene registrato come
dovrebbe, ovvero salva tutti i campi "normali" ma quelli delle caselle
combinate ed associate non li salva....come posso fare per bypassare questo
tipo di problema?
Un sentito ringraziamento a tutti quelli che potranno essermi di aiuto......
C. Alessio


title: salvataggio record

author: Emyr

text:
On Thu, 21 Nov 2002 00:01:57 GMT, "Alessio Coppola"
<
coppola...@tin.it
> wrote:
>Salve Gente
>
>vorrei porvi un quesito che per voi sarą di sicuro una stupidiggine.

come origine dati della casella associata scrivi il nome di un campo
dove registrare il valore
Saluti.
Emanuele.


title: EXCEL da Access Copiare foglio tra due cartelle

author: MarcoMac

text:
Ciao a tutti.
Sto cercando di fare una cosa apparentemente semplice:
con un pulsante lanciare una stored procedure che manda il risultato ad un
file excel aggiungendo un nuovo foglio al file. Per fare questo ho provato
as usare entrambi i metodi
TransferSpreadsheet  e OutputTo acStoredProcedure senza successo. Il
problema č che
1) TransferSpreadsheet  ha bisogno che il foglio di destinazione sia
presente nel file (e mi crea il foglio con il nome della sp);
2) OutputTo acStoredProcedure sovrascrive il file di destinazione.
Quello che volevo arrivare a fare era creare lo spool in un Temp.xls e
copiare il foglio dal Temp.xls al file Raccolta.xls, accodandolo agli
esistenti, dopo averlo rinominato.
Per rinominarlo non c'č problema in quanto ci sono riuscito ma per copiare
un foglio???.
Ps. Se qualcuno avesse una soluzione piů semplice o piů funzionale č
assolutamente gradita!!!
Ciao
MarcoMac
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: vai a controllo.........principiante....

author: Fabio

text:
Ciao a tutti,
all'apertura di una form dovrei andare direttamente al controllo [data], è
possibile con 2 righette
di codice(semplice semplice).
ciao a tutti


author: Sergio MAZZA

text:
"Fabio" <
f.par...@mail.sirio.it
> ha scritto nel messaggio
news:9dpfvs$o5eu$1...@news01.it.net...

E' possibile con una riga di codice semplice semplice: Me!data.SetFocus;
ovviamente devi inserire questa istruzione nell'evento "su apertura" della
maschera...
Ciao.


text: Grazie molte............


text:
No scusatemi, mi sono spiegato male....
pensavo fosse sufficiente così, ma la mia necessità è quella  che dopo aver
inserito un
nuovo record, mi passi direttamente al controllo [data].
con l'istruzione     "Me!data.SetFocus" mi ci va solo all'apertura.........
ciao e spero di essermi spiegato bene!!
Fabio


author: MegaMax

text:
"Fabio" <
f.par...@mail.sirio.it
> ha scritto nel messaggio
news:9dqluv$osu7$1...@news01.it.net...
> No scusatemi, mi sono spiegato male....
> pensavo fosse sufficiente cosě, ma la mia necessitŕ č quella  che dopo
aver
> inserito un
> nuovo record, mi passi direttamente al controllo [data].
> con l'istruzione     "Me!data.SetFocus" mi ci va solo
all'apertura.........
usa l'evento "dopo inserimento" della maschera


title: Cambiare campo con enter !

author: PinOs

text:
Uè,
vi espongo il mio problemino:
1 - ho creato una tabella
2 - ho creato con lo wizard di Access 2000 una pagina web per l' inserimento
dati.
Bè...quando sono nei campi l'unico modo per passare al successivo è il tasto
TAB , se schiaccio "enter" il cursore  resta sempre nello stesso campo e
continua a scrivere lì !
Come faccio a dirgli che con ENTER deve passare al campo successivo ?
Secondo punto (mi è venuto adesso) sempre dalla pagina web...come posso
dirgli di modificare i dati immessi solo quando seleziono il pulsante save e
non invece ogniqualvolta entro nel campo e modifico anche una sola lettera
???
Un salutone e un grazie assai.
Giuse


title: Totali fattura a fondo pagina

author: FC & C.ny

text:
Ciao a tutti,
nella mia fattura (o meglio mio report), vorrei che i totali della fattura
mi venissero posizionati a fondo pagina e nel caso la fattura è composta di
più pagine, mi venga posizionato alla fine dell'ultima pagina.
Confido in voi e grazie 1000
Cataldo Formaro


title: Totali fattura a fondo pagina

author: Maurizio

text:
"FC & C.ny" <
formaro...@inwind.it
> ha scritto nel messaggio
news:fjb69.63120$lu5.1...@twister1.libero.it...

L'ng a sua volta mi rispose così
Private Sub PièDiPaginaPagina_Format(Cancel As Integer, FormatCount As
Integer)
If Page = Pages Then 'l'ultima pagina
else
end if
Naturalmente i campi devranno essere inseriti nel Piè di paginapagina
Maurizio


title: Totali fattura a fondo pagina

text:
"Maurizio" <
calma2...@libero.it
> ha scritto nel messaggio
news:yIc69.63489$lu5.1...@twister1.libero.it...
> "FC & C.ny" <
formaro...@inwind.it
> ha scritto nel messaggio
> news:fjb69.63120$lu5.1...@twister1.libero.it...
> > Ciao a tutti,
> > nella mia fattura (o meglio mio report), vorrei che i totali della
fattura
> > mi venissero posizionati a fondo pagina e nel caso la fattura č composta
> di
> > piů pagine, mi venga posizionato alla fine dell'ultima pagina.
> > Confido in voi e grazie 1000
> > Cataldo Formaro
> >
> L'ng a sua volta mi rispose cosě
> Private Sub PičDiPaginaPagina_Format(Cancel As Integer, FormatCount As
> Integer)
> If Page = Pages Then 'l'ultima pagina
> else
> end if
> Naturalmente i campi devranno essere inseriti nel Pič di paginapagina
> Maurizio
>
>
Grazie Maurizio!
Inserisco il codice (per intero senza modifiche) a fronte dell'evento
corrente della pagina oppure?
saluti CF


title: Attendere la fine di un file eseguibilie

author: Filippo

text:
Ho copiato la routine dal sito comune che permettere di attendere la fine di
un file eseguibile.
La uso in quanto vorrei aprie adobe e un volta chiuso fare delle operazioni
di ricerca file.
Adobe si apre tranqullamente ma quando lo vado a chiudere access si blocca
come se andasse in loop infinito e devo forzare la chiusura.
Uso Win2000 pro.
Vi ringrazierei tanto se sapete qualcosa a riguardo(lo so che oggi sto
veramente esagerando).
Di seguito riporto la procedura
Comando19_click
RunAppAndWait "C:\Programmi\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe", 1
end sub
Option Compare Database
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" _
      (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
      ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
      (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFF
Public Sub RunAppAndWait(FileName As String, WindowsStyle As Integer)
   'Autore: AntoGal
   'avvia un'applicazione e sospende il thread chiamante finchè
   'il processo non termina
   'Accetta:
   ' FileName = nome del file eseguibile
   ' WindowsStyle = modalità di visualizzazione finestra
   ' (costante di Access, vedi la funzione Shell)
   Dim hProg As Long
   hProg = Shell(FileName, WindowsStyle)
   If hProg Then WaitOnProgram (hProg) 'chiama solo se tutto ok
End Sub
Private Sub WaitOnProgram(idProg As Long)
   'codice valido solo per Win32
   Dim hProc As Long, iret As Long
   hProc = OpenProcess(SYNCHRONIZE, False, idProg)
   If hProc <> vbNull Then
      iret = WaitForSingleObject(hProc, INFINITE)
      CloseHandle hProc
   End If
 MsgBox ("Finito")
End Sub


text:
"Filippo" <
flo...@virgilio.it
> ha scritto nel messaggio
news:w0nBa.18285$g92.3...@news2.tin.it...

Vorrei aggiungere che uso A97 e la riga dove si blocca il processo è :
iret = WaitForSingleObject(hProc, INFINITE)
nella procedura waitonprogram.
Grazie di nuovo.


text:
"Filippo" <
flo...@virgilio.it
> ha scritto nel messaggio
news:w0nBa.18285$g92.3...@news2.tin.it...

Puoi provare con script WSH.
Es.
'-------------
Dim WshShell, oExec As Integer
Set WshShell = CreateObject("WScript.Shell")
oExec = WshShell.Run("c:\winnt\system32\calc.exe", , -1)
MsgBox oExec & ", Chiusa"
Set WshShell = Nothing
'-------------
Ciao.
--
Sergio MAZZA


text:
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:bb52d2$4ad$1...@canarie.caspur.it...

Purtroppo ho scoperto che entrambe le procedure funzionano ma non con Adobe
non parte.
Si blocca proprio con quello che mi serve...
Grazie comunque e se vi viene in mente qualcosa fatemi sapere...
Ciao Filippo Mazzella.


text:
"Filippo" <
flo...@virgilio.it
> ha scritto nel messaggio
news:yuoBa.11850$pR3.2...@news1.tin.it...
> Purtroppo ho scoperto che entrambe le procedure funzionano ma non con
Adobe
> non parte.
> Si blocca proprio con quello che mi serve...
> Grazie comunque e se vi viene in mente qualcosa fatemi sapere...
>
> Ciao Filippo Mazzella.
>
Io ho provato così e funziona:
'--------
Dim oWshShell, oExec As Integer
Set oWshShell = CreateObject("WScript.Shell")
oExec = oWshShell.Run("AcroRd32.exe" & " C:\Documenti\nomeFile.pdf", , -1)
MsgBox oExec & ", Chiusa"
Set oWshShell = Nothing
'--------
Ciao.
--
Sergio MAZZA


title: Segnalazione sito

author: Gianluca Vianello

text:
www.joshua2000.com
per programmi, idee o per la funzione che cercate.
--
Posted from ro...@www.asteweb.com.129.94.212.in-addr.arpa [212.94.129.118] (may be forged)
via Mailgate.ORG Server -
http://www.mailgate.org


title: File MDE

author: Berti Simone

text:
Vorrei sapere cosa sono... dove posso trovare qualcosa in merito?
Saluti Simone


title: File MDE

author: TT

text:
"Berti Simone" <
berti...@tiscali.it
> ha scritto nel messaggio
news:sR9mc.201434$rM4.8...@news4.tin.it...
> Vorrei sapere cosa sono... dove posso trovare qualcosa in merito?
>
> Saluti Simone
>
>
Ciao
Il file mde è un mdbcon i moduli compilati.
Il file mde non permette la modifica del codice, la modifica di report,
maschere. Se provi a fare un mdb e lo converti noterai che non è abilitata
la
visualizzazione struttura e che non puoi neanche madificare i moduli.
Dove puoi travare  qualcosa in merito? bo, ma non capisco il motivo.
Ciao ciao
TT


title: File MDE

text:
> Ciao
> Il file mde è un mdbcon i moduli compilati.
> Il file mde non permette la modifica del codice, la modifica di report,
> maschere. Se provi a fare un mdb e lo converti noterai che non è abilitata
> la
> visualizzazione struttura e che non puoi neanche madificare i moduli.
>
Grazie mille
> Dove puoi travare  qualcosa in merito? bo, ma non capisco il motivo.
>
> Ciao ciao
> TT
>
>
non sapendo cosa fosse non volevo far perdere troppo tempo... visto che la
spiegazione poteva essere lunga...
grazie d nuovo e ciao


title: Browse For Folder

author: PinoDue

text:
Ciao a tutti,
Utilizzo questa funzione presa dal sito comune per salvare, funziona, solo
che non mi salva nella
cartella selezionata ma in quella che la precede.
Grazie Pino
Dim bInf As BROWSEINFO
Dim RetVal As Long,PathID As Long,RetPath As String,Offset As Integer
' impostazione degli elementi della struttura
bInf.hOwner = Me.hWnd
bInf.lpszTitle = " ==== Stringa visualizzata nel browser ====="
bInf.ulFlags = BIF_RETURNONLYFSDIRS
' Mostra il "Browse For Folder" dialog
PathID = SHBrowseForFolder(bInf)
RetPath = Space$(512)
' Recupero il path
RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
If RetVal Then
   Offset = InStr(RetPath, Chr$(0))
   MsgBox "Il folder selezionato è :" & Chr$(10) & Chr$(10) & _
   Left$(RetPath, Offset - 1), vbInformation
Else
   MsgBox "Selezionato Tasto Annulla", vbInformation
End If
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Browse For Folder

author: Roberto da Parma

text:
"PinoDue" <
ho...@msn.it
> ha scritto nel messaggio
news:gl434s$lb5$1...@news.newsland.it...
> Ciao a tutti,
> Utilizzo questa funzione presa dal sito comune per salvare, funziona, solo
> che non mi salva nella
> cartella selezionata ma in quella che la precede.
>
> Grazie Pino
>
> Dim bInf As BROWSEINFO
> Dim RetVal As Long,PathID As Long,RetPath As String,Offset As Integer
>
> ' impostazione degli elementi della struttura
> bInf.hOwner = Me.hWnd
> bInf.lpszTitle = " ==== Stringa visualizzata nel browser ====="
> bInf.ulFlags = BIF_RETURNONLYFSDIRS
>
> ' Mostra il "Browse For Folder" dialog
> PathID = SHBrowseForFolder(bInf)
> RetPath = Space$(512)
>
> ' Recupero il path
> RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
>
> If RetVal Then
>   Offset = InStr(RetPath, Chr$(0))
>   MsgBox "Il folder selezionato č :" & Chr$(10) & Chr$(10) & _
>   Left$(RetPath, Offset - 1), vbInformation
> Else
>   MsgBox "Selezionato Tasto Annulla", vbInformation
> End If
>
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it
>
>
Io non uso questo codice ma cosě a sensazione....prova a togliere il -1....
Bisognerebbe poi vedere come č scritto il modulo BROWSEINFO...
Ciao
--
Roberto da Parma


title: Browse For Folder

text:
Roberto da Parma ha scritto:

> Ciao
Il -1. -2  ecc..  mi toglie le lettere davanti al nome del file
Questo č il resto del codice  ( non ti farebbe niente passarmi il tuo
codice cosě lo provo)
'Dichiarazioni per selettore Cartelle
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As
Long
Public Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    LParam As Long
    iImage As Long
End Type
Public Const BIF_RETURNONLYFSDIRS = &H1
Public Const BIF_DONTGOBELOWDOMAIN = &H2
Public Const BIF_STATUSTEXT = &H4
Public Const BIF_RETURNFSANCESTORS = &H8
Public Const BIF_BROWSEFORCOMPUTER = &H5000
Public Const BIF_BROWSEFORPRINTER = &H8000
Grazie  Ciao



title: Browse For Folder

text:
PinoDue ha scritto:
> Ciao a tutti,
> Utilizzo questa funzione presa dal sito comune per salvare, funziona, solo
> che non mi salva nella
> cartella selezionata ma in quella che la precede.
> Grazie Pino
> Dim bInf As BROWSEINFO
> Dim RetVal As Long,PathID As Long,RetPath As String,Offset As Integer
> ' impostazione degli elementi della struttura
> bInf.hOwner = Me.hWnd
> bInf.lpszTitle = " ==== Stringa visualizzata nel browser ====="
> bInf.ulFlags = BIF_RETURNONLYFSDIRS
> ' Mostra il "Browse For Folder" dialog
> PathID = SHBrowseForFolder(bInf)
> RetPath = Space$(512)
> ' Recupero il path
> RetVal = SHGetPathFromIDList(ByVal PathID, ByVal RetPath)
> If RetVal Then
>    Offset = InStr(RetPath, Chr$(0))
>    MsgBox "Il folder selezionato è :" & Chr$(10) & Chr$(10) & _
>    Left$(RetPath, Offset - 1), vbInformation
> Else
>    MsgBox "Selezionato Tasto Annulla", vbInformation
> End If
Risolto, passo la soluzione per chi s'intoppa come me

la riga che passa la directory    Left$(RetPath, Offset - 1),
vbInformation
che sarebbe poi questa   Folders=Left$(RetPath, Offset - 1)
gli ho aggiunto la barra  Folders=Left$(RetPath, Offset - 1) &""
Pino



title: ot-Metadati in DTS di SQL Server

author: Sib

text:
Salve a tutti,
come molti sanno, OXP ODE include SQL server per developer.
ora aprendo l'enterprise manager e andando nella cartella DTS e poi in
metadati mi viene restituito un errore piuttosto strano, (proprieta' o
metodo non supportato dall'oggetto).
Inutile dire che non e' cosa che abbia toccato io, e' roba ms d'origine.
Pero' mi sembra strano che possa trattarsi di un baco perche' e' troppo
immediato e facile da individuare per esserlo.
a qualcuno capita qualcosa di simile?
potrebbe dipendere da una installazione andata a male?
puo' essere una qualche dll da registrare?
Sib


title: ot-Metadati in DTS di SQL Server

author: Giorgio prx

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:dNMK9.15302$TC5.4...@twister1.libero.it...

Ciao Sib, qualcosa del genere è capitata anche a me, ho cambiato le
proprietà della sicurezza in internet (la pagina metadati lavora come una
una pagina ASP o XML). Prova a personalizzare il livello di sicurezza nella
sezione Controlli e Plug-In Activex impostando chiedi conferma nelle varie
sottosezioni. in questo modo puoi intercettare quale è il controllo di
protezione che interdice il funzionamento della pagina.
Ciao Giorgio.


title: ot-Metadati in DTS di SQL Server

text:
"Giorgio prx" <
giorgio...@tiscalinet.it
> ha scritto nel messaggio
> "Sib" <si...@SPAMiol.it> ha scritto nel messaggio
> > come molti sanno, OXP ODE include SQL server per developer.
> > ora aprendo l'enterprise manager e andando nella cartella DTS e poi in
> > metadati mi viene restituito un errore piuttosto strano, (proprieta' o
> > metodo non supportato dall'oggetto).
> > Inutile dire che non e' cosa che abbia toccato io, e' roba ms d'origine.
> > Pero' mi sembra strano che possa trattarsi di un baco perche' e' troppo
> > immediato e facile da individuare per esserlo.
> > a qualcuno capita qualcosa di simile?
> > potrebbe dipendere da una installazione andata a male?
> > puo' essere una qualche dll da registrare?
> >
> Ciao Sib, qualcosa del genere è capitata anche a me, ho cambiato le
> proprietà della sicurezza in internet (la pagina metadati lavora come una
> una pagina ASP o XML). Prova a personalizzare il livello di sicurezza
nella
> sezione Controlli e Plug-In Activex impostando chiedi conferma nelle varie
> sottosezioni. in questo modo puoi intercettare quale è il controllo di
> protezione che interdice il funzionamento della pagina.
ti ringrazio del suggerimento.
provo e ti faccio sapere.
Sib


title: Messaggio per numero doppio

author: Piero

text:
ciao a tutti
ho una tb con un campo mionumero
di tipo numerico
intero lungo
richiesto no
indicizzato no

ora vorrei pur permettendo di
inserire un numero già inserito
avere cmq un messaggio
di avviso p.e. "attenzione: numero già inserito!!!"

Grazie


title: Messaggio per numero doppio

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:51df9b19$0$1380$4faf...@reader1.news.tin.it...

vorrei modificare questo criterio affinchè tenga conto dell' idcliente
In (SELECT [mioRiferimento] FROM [TbCarichi] As Tmp GROUP BY
[mioRiferimento] HAVING Count(*)>1 )
grazie


title: Messaggio per numero doppio

author: Riccardo Baldinotti

text:
Piero ha scritto:

Potresti, sull'evento DopoAggiornamento della casella in cui inserisci il
"mionumero", scrivere:
If Not IsNull(DlookUp("[mionumero]","[TbCarichi]","[mionumero]=" &
Me!miacasella)) Then
Msgbox "attenzione: numero già inserito!!!"
End If

--
Riccardo Baldinotti
http://riccardobaldinotti.wordpress.com

http://rikky.netii.net

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Messaggio per numero doppio

text:
"Riccardo Baldinotti" <
riccardo....@qualcosa.it
> ha scritto nel
messaggio news:kroqt6$mid$1...@news.newsland.it...

grazie Riccardo
ottimo!!!
non ci avevo pensato


title: Messaggio per numero doppio

author: Bruno Campanini

text:
Piero presented the following explanation :

Questa in BeforeUpdate della scheda
(per gli amanti del brivido...)
====================================
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim SQL As String, RS As Recordset
Dim TableName As String, FieldName As String

TableName = "t_Nomi"
FieldName = "Nome"

SQL = "SELECT " & TableName & "." & FieldName & ", "
SQL = SQL & "Count(" & TableName & "." & FieldName & ") "
SQL = SQL & "AS CountOfDups FROM " & TableName & " "
SQL = SQL & "GROUP BY " & TableName & "." & FieldName & " "
SQL = SQL & "HAVING (" & TableName & "." & FieldName
SQL = SQL & ")=[" & FieldName & "];"
Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

If RS.RecordCount > 0 Then
    RS.MoveLast
    If MsgBox("Duplicazione nel campo " & FieldName & _
        " (" & RS!CountOfDups & " valori già esistenti)." & _
        vbCrLf & "Si conferma l'inserimento?", _
        vbYesNo + vbDefaultButton2) = vbNo Then
        Cancel = True: Undo
    End If
End If

End Sub
===========================================

Bruno


title: Messaggio per numero doppio

text:
"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:51e03fd9$0$1349$4faf...@reader2.news.tin.it...

Grazie Bruno
ci provo


title: Messaggio per numero doppio

text:
cut
> Questa in BeforeUpdate della scheda
>> (per gli amanti del brivido...)
>> ====================================
>> Private Sub Form_BeforeUpdate(Cancel As Integer)
>> Dim SQL As String, RS As Recordset
>> Dim TableName As String, FieldName As String
>>
>> TableName = "t_Nomi"
>> FieldName = "Nome"
>>
>> SQL = "SELECT " & TableName & "." & FieldName & ", "
>> SQL = SQL & "Count(" & TableName & "." & FieldName & ") "
>> SQL = SQL & "AS CountOfDups FROM " & TableName & " "
>> SQL = SQL & "GROUP BY " & TableName & "." & FieldName & " "
>> SQL = SQL & "HAVING (" & TableName & "." & FieldName
>> SQL = SQL & ")=[" & FieldName & "];"
>> Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
>>
>> If RS.RecordCount > 0 Then
>>    RS.MoveLast
>>    If MsgBox("Duplicazione nel campo " & FieldName & _
>>        " (" & RS!CountOfDups & " valori gi� esistenti)." & _
>>        vbCrLf & "Si conferma l'inserimento?", _
>>        vbYesNo + vbDefaultButton2) = vbNo Then
>>        Cancel = True: Undo
>>    End If
>> End If
>>
>> End Sub
>> ===========================================
>>
ciao Bruno
ho errore di sintassi (operatore mancante) nell'espressione della query
'Fatture.numerofattura'


title: Messaggio per numero doppio

text:
Piero explained :

> ciao Bruno
> ho errore di sintassi (operatore mancante) nell'espressione della query
> 'Fatture.numerofattura'

Non so che dirti.
Io non ho alcun errore.

Bruno


title: Messaggio per numero doppio

text:
"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:51e7b50b$0$1368$4faf...@reader1.news.tin.it...

ciao Bruno
ho errore in questo punto



title: Messaggio per numero doppio

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:51e7dac9$0$1341$4faf...@reader2.news.tin.it...

può essere che ho errore perchè in FieldName io ho un numero
anzichè una stringa?
FieldName As String


title: Messaggio per numero doppio

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:51e7e7a0$0$1340$4faf...@reader2.news.tin.it...

no, ho come tipo campo testo


title: Messaggio per numero doppio

text:
"Piero" <
Pi...@Piero.Libero.it
> ha scritto nel messaggio
news:51e7e880$0$1330$4faf...@reader2.news.tin.it...

l'errore è perchè poi avevo messo uno spazio nella nome della tb,
ma cmq non va bene, perche' qualsiasi numero inserisco, risulta che esiste
già


title: Messaggio per numero doppio

text:
Piero laid this down on his screen :

> l'errore è perchè poi avevo messo uno spazio nella nome della tb,
> ma cmq non va bene, perche' qualsiasi numero inserisco, risulta che esiste
> già

Prova con questa:
=====================================
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim SQL As String, RS As Recordset
Dim TableName As String, FieldName As String, VarTypeSeparator As
String

TableName = "t_Nomi"
FieldName = "Codice"

SQL = "SELECT " & TableName & "." & FieldName & ", "
SQL = SQL & "Count(" & TableName & "." & FieldName & ") "
SQL = SQL & "AS CountOfDups FROM " & TableName & " "
SQL = SQL & "GROUP BY " & TableName & "." & FieldName & " "
SQL = SQL & "HAVING (" & TableName & "." & FieldName

Select Case VarType(Controls(FieldName))
    ' Text
    Case vbString
        SQL = SQL & ")='" & Controls(FieldName) & "';"
    ' Number
    Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbBoolean,
vbDecimal
        SQL = SQL & ")=" & Controls(FieldName) & ";"
    ' Date
    Case vbDate
        SQL = SQL & ")=#" & Format(Controls(FieldName), "mm/dd/yyyy") &
"#;"
End Select

Set RS = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)

If RS.RecordCount > 0 Then
    RS.MoveLast
    If MsgBox("Duplicazione nel campo " & FieldName & _
        " (  [" & Controls(FieldName) & "]   " & RS!CountOfDups & "
valori già esistenti)." & _
        vbCrLf & "Si conferma l'inserimento?", _
        vbYesNo + vbDefaultButton2) = vbNo Then
        Cancel = True: Undo
    End If
End If

End Sub
==============================================

Bruno


title: Messaggio per numero doppio

text:
"Bruno Campanini" <
brun...@libero.it
> ha scritto nel messaggio
news:51e828e8$0$1376$4faf...@reader1.news.tin.it...

Ciao Bruno
questa funziona..


title: Query eslusiva

text:
Salve ...
E' possibile impostare un query  che attraverso l'unione di due tabelle,
  consenta di filtrare soltanto i record che non hanno corrispondenza
tra i campi unione. Mi spiego meglio:
Tabella A            Tabella B
   ID. Key --join-->  ID. key
   Campo1             CampoA
   ...                ....
   CampoN             CampoZ
La Query dovrebbe filtrare soltanto i record della Tabella A che non
hanno nessuna corrispondenza con la Tabella B "escludendo" i record con
i campi Key uguali.
Grazie per l'eventuale tempo dedicatomi.
Cosimo


title: Query eslusiva

author: Roberto da casa

text:
"Alfa61" <
lc....@alice.it
> ha scritto nel messaggio
news:442d91ce$0$2276$4faf...@reader4.news.tin.it...
> Salve ...
>
> E' possibile impostare un query
eventualmente UNA query e non UN query
>  che attraverso l'unione di due tabelle,
>   consenta di filtrare soltanto i record che non hanno corrispondenza
> tra i campi unione. Mi spiego meglio:
>
> Tabella A            Tabella B
>    ID. Key --join-->  ID. key
>    Campo1             CampoA
>    ...                ....
>    CampoN             CampoZ
>
> La Query dovrebbe filtrare soltanto i record della Tabella A che non
> hanno nessuna corrispondenza con la Tabella B "escludendo" i record con
> i campi Key uguali.
Creati una query con l'Autocomposizione ricerca dati non corrispondenti.
>
> Grazie per l'eventuale tempo dedicatomi.
Prego
>
> Cosimo
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: Query eslusiva

author: Silver

text:
Alfa61 ha scritto:
> Salve ...
>
> E' possibile impostare un query  che attraverso l'unione di due tabelle,
>  consenta di filtrare soltanto i record che non hanno corrispondenza tra
> i campi unione. Mi spiego meglio:
>
> Tabella A            Tabella B
>   ID. Key --join-->  ID. key
>   Campo1             CampoA
>   ...                ....
>   CampoN             CampoZ
>
> La Query dovrebbe filtrare soltanto i record della Tabella A che non
> hanno nessuna corrispondenza con la Tabella B "escludendo" i record con
> i campi Key uguali.
>
devi impostare il join che include tutti i record della tab A e solo
quelli uguali della Tab B.
nella query includi tabellaB.ID e nei criteri del campo inserisci "is null"


title: problema apertura 2 volte stesso db

text:
a volte capita che accidentalmente aprono 2 volte lo stesso db
so che c'è un modo per sapere se nella lista processi di windows quel db è
già aperto vorrei che se il db è aperto ma ridotto a icona massimizzasse a
tutto schermo quello anzichè aprire un altra istanza dello stesso db.
qualcuno di voi a idea di come fare?
Grazie mille a tutti.


title: problema apertura 2 volte stesso db

author: David

text:
"Simba883" <
simb...@libero.it
> ha scritto nel messaggio
news:420b2647$0$32338$5fc...@news.tiscali.it...

nei post precedenti è stato trattato fai una ricerca


title: regolo xd

text:
Come da oggetto stamattina non riesco piu ad aprire il file di acces,
mi da questo messaggio
Il modulo di gestione del database di microfost acces non è riuscito a
trovare l'oggetto ' MSysDbi ' Assicurarsi che l'oggetto esista e che
il nome del percorso siano digitati correttamente.
come posso risolvere il problema, nel file ci sono dati importanti e
purtroppo il bekup lo fatto il 13/12/07 quindi perderei 2 giorni di
dati irrecuperabili
Grazie Ardu


title: regolo xd

author: Sergio MAZZA

text:
<
ar...@stockmobili.it
> ha scritto nel messaggio
news:d997dba1-f9a9-493b...@i29g2000prf.googlegroups.com...


Grazie Ardu
[risposta]
(curiosità) Ma l'oggetto: "regolo xd" che significa?
Ciao.
--
Sergio MAZZA


title: regolo xd

author: Marco Papo

text:
<
ar...@stockmobili.it
> ha scritto nel messaggio
news:d997dba1-f9a9-493b...@i29g2000prf.googlegroups.com...


Grazie Ardu
Ciao,
Leggi questo link:
www.donkarl.com/it?FAQ1.27
--
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici.


title: regolo xd

author: Massimo Piubelli

text:

Come fai a non saperlo... Sergio...
regolo xd è il programma non fatto ovviamente dalla microfost che consente di fare i bekup dei database di acces!!!!
;-)
Ciao,
Max


title: regolo xd

text:
"Massimo Piubelli" <massim...@accessgroup.it.invalid> ha scritto nel
messaggio news:fk9hvs$fj4$1...@tdi.cu.mi.it...
Come fai a non saperlo... Sergio...
regolo xd è il programma non fatto ovviamente dalla microfost che consente
di fare i bekup dei database di acces!!!!
;-)
Ciao,
Max
[risposta]
E io che pensavo fosse il compilatore...
Ciao.
--
Sergio MAZZA


title: Query SQL modificata

author: DPZ

text:
Salve a tutti. Vengo subito al problema...
Ho la necessità di lanciare una query tramite una form contenente delle
caselle combinate che contengono a loro volta i valori ricercati. Nello
specifico ho sei caselle combinate che corrispondono a sei livelli di
approfondimento della query.
L'utente può sia indicare tutti e sei livelli (e questo l'ho risolto molto
facilmente) sia decidere quali siano le corrispondenze.
Per mia praticità (mi risulta molto più semplice!) scrivo sempre le query in
SQL e lascio ad Access il compito di ritradurle.
Il problema è proprio questo :-(((((
Nella mia query devo inserire per forza di cose una condizione OR.
Per farvi capire meglio:
.....((litotipi.[1_LIVELLO])=Forms![Ricerca per
litotipo]!CasellaCombinata20) OR Forms![Ricerca per
litotipo]!CasellaCombinata20 IS NULL) AND........
Se eseguo la query appena creata (scivendola in Visualizzazione SQL)
funziona alla grande e rapidamente, ma una volta chiuso l'editor delle
query........Ecco il problema!!! Access traduce la query scritta in sql
secondo i suoi schemi, generando un SQL lunghissimo che si traduce in un
tempo computazionale inaccettabile (ho provato con soli trenta record!!!).
La mia domanda è se esiste un metodo per lanciare questa query senza farla
reinterpretare da Access.
Grazie anticipatamente.
Saluti, DPZ
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Query SQL modificata

author: ALESSANDRO Baraldi

text:
"DPZ" <
dan...@libero.it
> ha scritto nel messaggio
news:151Z24Z204Z177Y...@usenet.libero.it...

I problemi possono derivare da molti fattori:
1)Usi gli INDICI....?
2)Una query Compilata è sempre più veloce.
3)Passa alla Query i parametri invece che riscrivere l'SQL
Ciao
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------


title: chiarimenti sulla stampa di una query a campi incrociati

author: Odino Saur

text:
ciao a tutti
mi sfugge come fare un report partendo da una query a campi incrociati:
indendo dire un report che sia "strutturalmente" simile all'output di una
query a campi incrociati
si puņ fare? come? dove trovare un esempio?


text:
"Odino Saur" <
no...@rispondo.org
> ha scritto nel messaggio
news:b7oc1r$m3t$1...@grillo.cs.interbusiness.it...
> ciao a tutti
>
> mi sfugge come fare un report partendo da una query a campi incrociati:
> indendo dire un report che sia "strutturalmente" simile all'output di una
> query a campi incrociati
> si può fare? come? dove trovare un esempio?
Vai sul Sito Comune (link qui sotto) e nella Sezione Reports leggi la FAQ di
RoDAgo e Sib intitolata "Report dinamici per rappresentazioni a campi
incrociati".
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


text:
> Vai sul Sito Comune (link qui sotto) e nella Sezione Reports leggi la FAQ
di
> RoDAgo e Sib intitolata "Report dinamici per rappresentazioni a campi
> incrociati".
ops.. mi era sfuggito!
ti ringrazio


title: Operazioni su un insieme

author: markann

text:
Ciao a tutti
Dim ctl As Control
   For Each ctl In Forms("Maschera").Controls
      If TypeOf ctl Is TextBox Then
          ctl.Enabled=False
      End If
   Next ctl
La domanda è:
Perchè non si può settare la proprietà Enabled?
Quella scritta ce l'ho aggiunta io, il menù IntelliSense non la da
disponibile.
Ciao a tutti
--------------------------------
Inviato via
http://usenet.libero.it


title: Operazioni su un insieme

text:
Il 09 Dic 2002, 00:14,
mar...@libero.it
 (markann) ha scritto:
> Ciao a tutti
> Dim ctl As Control
> For Each ctl In Forms("Maschera").Controls
> If TypeOf ctl Is TextBox Then
> ctl.Enabled=False
> End If
> Next ctl
> La domanda è:
> Perchè non si può settare la proprietà Enabled?
> Quella scritta ce l'ho aggiunta io, il menù IntelliSense non la da
> disponibile.
> --------------------------------
Come non detto, io mi aspettavo la proprietà sul menù, ed invece si imposta
ugualmente anche se sul menù non compare.
Chiedo scusa a tutti se vi ho fatto perdere tempo nel leggere il mio post
precedente.
Ciao



title: Ancora help in linea!!

author: Charlie TS

text:
Scusate ragazzi,
ogni tanto mi ripresento con lo stesso problema.
Dopo aver concluso un'applicazione per la gestione di un centro
cardiologico, sono arrivato al punto di dover cominciare l'elp in
linea con relativo manuale. (Era forse il caso di farlo progredendo
con il lavoro? voi vome vi regolate?)
Ho iniziato piů volte con il Workshop ma mi sono arenato nell'ID
Argomento Guida che dovrebbe comparire in ogni form (al limite anche
nei controlli) non capendo come creare il file indice nel workshop.
Sapete se esiste una documentazione in italiano, o qualche esempio
passo per passo sulla rete?
Grazie a tutti,
Carlo TS


title: Ancora help in linea!!

author: Alessandro Nazzani

text:
Qualcuno in questo NG (non ricordo chi) ha segnalato un po' di tempo fa
HelpScribble che puoi trovare al seguente indirizzo:
http://www.jgsoft.com/helpscr.html
Secondo me è incredibilmente più semplice da usare del Workshop; costa
qualcosa ma credo che valga la pena. E' possibile scaricare una
versione demo ma comunque funzionante.
HTH
Alessandro
In article <
38db2d96...@news.spin.it
>,
ca...@spin.it
 (Charlie TS) wrote:
> Scusate ragazzi,
> ogni tanto mi ripresento con lo stesso problema.
> Dopo aver concluso un'applicazione per la gestione di un centro
> cardiologico, sono arrivato al punto di dover cominciare l'elp in
> linea con relativo manuale. (Era forse il caso di farlo progredendo
> con il lavoro? voi vome vi regolate?)
>
> Ho iniziato più volte con il Workshop ma mi sono arenato nell'ID
> Argomento Guida che dovrebbe comparire in ogni form (al limite anche
> nei controlli) non capendo come creare il file indice nel workshop.
> Sapete se esiste una documentazione in italiano, o qualche esempio
> passo per passo sulla rete?
>
> Grazie a tutti,
> Carlo TS
Sent via Deja.com
http://www.deja.com/
Before you buy.


title: Ancora help in linea!!

author: AK

text:
Credo che tu abbia bisogno della guida basata sul contesto. Ha fatto crepare
anche me. Le risposte esaustive finalmente le ho trovate presso il sito
http://msdn.microsoft.com/whorkshop
  che finalmente, passo passo, ha risolto
il problema. Non esiste una vera guida per chi scrive guide . Semplicemente
ridicolo.
Ricorda che le guide devono nascere non quando il programma č terminato e
poi sfrutta al massimo i TOOL TIPS e l'evento mousemove. Comunque tutto
questo č in CHM
Auguri
Alessandro
Charlie TS <
ca...@spin.it
> wrote in message 38db2d96...@news.spin.it...
> Scusate ragazzi,
> ogni tanto mi ripresento con lo stesso problema.
> Dopo aver concluso un'applicazione per la gestione di un centro
> cardiologico, sono arrivato al punto di dover cominciare l'elp in
> linea con relativo manuale. (Era forse il caso di farlo progredendo
> con il lavoro? voi vome vi regolate?)
>
> Ho iniziato piů volte con il Workshop ma mi sono arenato nell'ID



title: esportazione in excel

author: ciroteo

text:
Quando esporto una query in un foglio excel oltre a perdere alcuni formati
dei campi data/ora, le celle appaiono tutte come testo a capo. Qualcuno
conosce il modo di ottenere un testo allineato normalmente con le colonne
che si adattano al contenuto?
forse è un probl excel, ma derivando i dati da access forse c'è qualche
opzione da settare nel trasferimento dati.


title: esportazione in excel

text:
ciroteo wrote:
> Quando esporto una query in un foglio excel oltre a perdere alcuni
> formati dei campi data/ora, le celle appaiono tutte come testo a
> capo. Qualcuno conosce il modo di ottenere un testo allineato
> normalmente con le colonne che si adattano al contenuto?
>
> forse č un probl excel, ma derivando i dati da access forse c'č
> qualche opzione da settare nel trasferimento dati.
Hai provato a leggere direttamente i dati con excel?
Ciao.
--
Sergio MAZZA


title: esportazione in excel

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ck3ssf$6sq$1...@canarie.caspur.it...
> ciroteo wrote:
> > Quando esporto una query in un foglio excel oltre a perdere alcuni
> > formati dei campi data/ora, le celle appaiono tutte come testo a
> > capo. Qualcuno conosce il modo di ottenere un testo allineato
> > normalmente con le colonne che si adattano al contenuto?
> >
> > forse è un probl excel, ma derivando i dati da access forse c'è
> > qualche opzione da settare nel trasferimento dati.
>
> Hai provato a leggere direttamente i dati con excel?
>
> Ciao.
>
> --
> Sergio MAZZA
>
>
dovrei imparare l'automazione, perchè se la query contiene delle formule
calcolate il foglio excel le perde.
...


title: esportazione in excel

text:
ciroteo wrote:
> dovrei imparare l'automazione, perchè se la query contiene delle
> formule calcolate il foglio excel le perde.
> ...
L'automazione, nel mio suggerimento, non c'entra nulla; devi solo leggere
(da excel) la tabella/query e salvarla come "contenuto dinamico".
Diversa è la storia se vuoi tenere anche le formule dei campi calcolati, che
comunque una esportazione non mantiene in nessun caso.
Se hai bisogno di effettuare dei calcoli con dati access su fogli excel, le
formule le lasci su excel e colleghi il foglio alla base dati access...
Ciao.
--
Sergio MAZZA


title: esportazione in excel

text:
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:ck5qoi$ni8$1...@canarie.caspur.it...

hmhmhm ........ buona idea questa!
grazie sergio.


title: query: criterio di selezione

author: Gabriele Romagnoli

text:
Un saluto a tutti.
Non riesco a risolvere un problema (forse mi sto perdendo in un bicchiere
d'acqua) ma dopo tanti tentativi ho gettato la spugna.
Situazione:
sogg.    docum.    datsca        datchi
A          10            31/12        10/01
B          12            30/11        12/12
C           14            31/12        10/01
C            14            31/01
D            9            31/10        10/11
Dovrei estrarre i record dove i soggetti/docum. il campo datchi non sia
null.
Dall'esempio suddetto dovrei estrarre: A 10; B12; D 9.
Non dovrei estrarre C 14 in quanto in un record il campo datchi ha un valore
null.
Ringrazio in anticipo chiunque vorra' aiutarmi.
Gabriele


title: query: criterio di selezione

author: Ivan

text:
"Gabriele Romagnoli" <
rom...@tiscalinet.it
> ha scritto nel messaggio
news:a4p4m6$7ep$1...@pegasus.tiscalinet.it...

una possibile soluzione .....
ho creato una query (qNomeCheVuoiTu) e do per scontato che la tabella da cui
estrai i dati si chiami
provaPerNewsgroup
incolla questo codice nella zona SQL della query in visualizzazione
struttura
SELECT provaPerNewsgroup.sogg, provaPerNewsgroup.docum,
provaPerNewsgroup.datsca, provaPerNewsgroup.datchi
FROM provaPerNewsgroup
WHERE ((Not (provaPerNewsgroup.datchi) Is Null));
se ti guardi come Access la trasforma in STRUTTURA capirai che sarà molto
semplice da ripetere in altri casi simili.
van


title: query: criterio di selezione

author: nwrr

text:
Gabriele Romagnoli ha scritto:

select *
from nome tabella
where(   (not (isnull(sogg))  and  (not (isnull(docum))   and     (not
(isnull(datchi))  )
tutti e tre i campi non devono avere valori null
datsca da come dici invece per tale campo ti va bene anche il null
se panche questo basta aggiungere con un and


title: query: criterio di selezione

author: OndaMax

text:
Ivan wrote in message ...
> SELECT provaPerNewsgroup.sogg, provaPerNewsgroup.docum,
> provaPerNewsgroup.datsca, provaPerNewsgroup.datchi
> FROM provaPerNewsgroup
> WHERE ((Not (provaPerNewsgroup.datchi) Is Null));
Ciao Ivan ...
Così però mi pare che non escluda il famoso record C14 che ho l'impressione
che Gabriele non voglia includere nei dati risultanti. Forse ho capito male
ma quello che intende fare è escludere tutti i dati di C perchè è presente
il valore Null anche su uno solo dei suoi elementi. Se così fosse non basta
una Query soltanto ....
Salvo quindi miei limiti di comprensione, potrebbe organizzarsi con due
query distinte ...
- Creare una Query1 di selezione che estragga "sogg" e i valori Null di
"datchi".
- Creare una Query2 che estragga i dati dalla tabella originale messa in
LEFTJOIN sui campi "sogg" con la Query1 che ha creato prima. Su questa
stessa Query2 dovrebbe aggiungere il campo "sogg" della Query1
(rinominandolo, senno' s'incazza). Sotto il nuovo campo, sui criteri, mette
Is Null.
Escludendo così i "sogg" che hanno corrispondenze sulla Query1 dovrebbe
ottenere il risultato che cerca ...
OndaMax


title: query: criterio di selezione

author: Dario Fantoni

text:
"Gabriele Romagnoli" <
rom...@tiscalinet.it
> ha scritto nel messaggio
news:a4p4m6$7ep$1...@pegasus.tiscalinet.it...

Separando il problema in due (Divide et Impera !!!)
abbiamo da un lato la necessità di vedere se esiste uno o più record
con DatChi null cioè:
         SELECT Sogg FROM Tabella WHERE DatChi is null;
Quindi riestrarre da Tabella tutti quei record che non abbiano
il campo Sogg con valore appartenente all'insieme precedente
e quindi:
         SELECT *
         FROM Tabella
         WHERE Sogg NOT IN ( SELECT Sogg
                                                 FROM  Tabella
                                                 WHERE DatChi is null; )
l'output che si ottiene è:
Sogg Docum         DatSca     DatChi
A         10             31/12             10/01
B         12             30/11             12/12
D         9               31/10             10/11
Dovrebbe essere quello che ti serve... (sempre ch'io abbia capito bene la
tua domanda)
Ciao.
Dario


title: OT costo MS SQL SERVER

author: All Eyez On me

text:
Ciao a tutti,
come funzionano le licenze sql server e quanto costano?
per una rete con 15 posti di lavoro quando bisogna spendere in licenze?
Ciao, AEOM


title: OT costo MS SQL SERVER

text:
"All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
news:1TlIa.209420$g92.4...@news2.tin.it...

Questa domanda mi incuriosisce da ignorante in materia, nel
senso che lo uso al lavoro ma non mi sono mai preoccupato
del risvolto licenze...!
Credevo che installato su di un Server in Rete poi realizzando
dei FE connessi al Server fosse sufficiente........!!!!!!!!
Pensa un pò che s'impara....!
@Alex.


title: OT costo MS SQL SERVER

text:
"@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
news:KWlIa.102355$Ny5.2...@twister2.libero.it...

magari è come dici tu ma dalla valanga di siti che ho letto, ci sono un
milione di divcersi costi in base a processori del server, numero di accessi
client etc.
un bel mistero
ciao, AEOM


title: OT costo MS SQL SERVER

author: AMR-Giuseppe

text:
"All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
news:pZlIa.209476$g92.4...@news2.tin.it...
>
> "@Alex" <
ik2...@libero.it
> ha scritto nel messaggio
> news:KWlIa.102355$Ny5.2...@twister2.libero.it...
> >
> > "All Eyez On me" <in...@FUCK-LAMERbfsistemi.com> ha scritto nel messaggio
> > news:1TlIa.209420$g92.4...@news2.tin.it...
> > > Ciao a tutti,
> > >
> > > come funzionano le licenze sql server e quanto costano?
> > > per una rete con 15 posti di lavoro quando bisogna spendere in
licenze?
> > >
> > > Ciao, AEOM
> >
> > Questa domanda mi incuriosisce da ignorante in materia, nel
> > senso che lo uso al lavoro ma non mi sono mai preoccupato
> > del risvolto licenze...!
> > Credevo che installato su di un Server in Rete poi realizzando
> > dei FE connessi al Server fosse sufficiente........!!!!!!!!
> >
> > Pensa un pň che s'impara....!
> >
> > @Alex.
> >
>
> magari č come dici tu ma dalla valanga di siti che ho letto, ci sono un
> milione di divcersi costi in base a processori del server, numero di
accessi
> client etc.
> un bel mistero
>
> ciao, AEOM
>
>
SQL server 2000  standard edition  5 licenze client
"solo"  1.600,00  EURI !!!!!!
per 10 licenze il doppio
per 15 il triplo , e cosě via   poi si tratta .......................
Ciao Giuseppe


title: OT costo MS SQL SERVER

text:
"AMR-Giuseppe" <
amrma...@tin.it
> ha scritto nel messaggio
news:HHnIa.210191$g92.4...@news2.tin.it...

ma dai! non puň costare piů di Oracle, sei sicuro?
ciao, AEOM


title: OT costo MS SQL SERVER

author: mino

text:
All Eyez On me ha scritto:
> Ciao a tutti,

> Ciao, AEOM
prova a dare un'occhiata a MYSQL che è completamente gratuito.
inoltre c'è una versione ridotta di SQL Server che è gratuita. non dirmi
dove e come si trova x' non lo so ma se non ricordo male c'è già qulache
post precedente che tratta l'argomento.
ciao
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: OT costo MS SQL SERVER

text:
"mino" <
news...@libero.it
> ha scritto nel messaggio
news:bcu9bb$f98$1...@news.newsland.it...

MYSQL l'ho già visto ma non mi piace, voglio sfruttare l'abbinata ADP SQL
SERVER,
la versione ridotta ce l'ho è MSDE ma non mi serve visto che i posti di
lavoro sono molti
Ciao, AEOM


title: Query in sequenza su report

text:
due queries di cui la seconda a campi incrociati che mi rappresenta un
riassunto della categorie inserite nella prima.
Vorrei accodare il report della seconda al report della prima. Non
posso inserire la query a campi incrociati come sottoreport, nè ho
capito come inserire eventuali controlli che riportino i dati della
seconda query solo DOPO che siano apparsi quelli della prima.
Dove trovo una soluzione che mi metta sulla buona strada?
Grazie infinite
Stefano
--
ciao
Stefano


title: Winsock

text:
Salve a tutti,
ho un problema con il Controllo ActiveX Winsock.
Ho creato, sul mio computer, dove c'è installato Visual Studio, un programma
per inviare e-mail da Access, e fin qui tutto ok.
Il problema è che gli altri computer della rete devono poter usare questo
stesso programma, ma visto che sugli altri pc della rete non c'è installato
Visual Studio, di conseguenza non è registrato neanche il controllo ActiveX
in questione.
Domanda:
COME POSSO USARE SU TUTTI I PC QUESTO CONTROLLO SENZA CHE PERO' IO DEBBA
INSTALLARE SUI CLIENT DELLA RETE VISUAL STUDIO?
GRAZIE A TUTTI
[W98, ACCESS 97 PRO]


title: Winsock

author: MA

text:

Non urlare!!!
Registra solo l'ocx. Per come fare fare guarda su
www.sitocomune.com
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.libero.it


title: Winsock

author: giorgio prx

text:
"Giovanni_A" <
artig...@deejaymail.it
> ha scritto nel messaggio
news:wgQua.105350$DT4.3...@twister1.libero.it...

Ciao Giovanni
Copi il controllo nella cartella in cui di solito hai i controlli ocx o Dll
o Vbx ecc , apri un prompt di dos, ti posizioni nella cartella in cui hai
copiato il controllo e scrivi C:\Windows\System\RegSvr32 Nomecontrollo.ocx
In questo modo viene registrato.
Ciao Giorgio.


title: DIAL UP via ACCESS...help me !

author: SuperCiccio

text:
Riprovo a formulare la domanda: da una msk di access vorrei selezionare un
nominativo da un archivio RUBRICA TELEFONICA, e premendo un pulsante far
partire la chiamata al numero corrispondente, quindi parlarci....
Ho bisogno di hardware particolare ? Mi basta qualche controllo (OCX) da
aggiungere alla maschera ?
Alla fine quello che vorrei realizzare è qualcosa tipo un "call center"
Vi prego aiutatemi, ciao.
scic...@libero.it


title: DIAL UP via ACCESS...help me !

author: Federico Luciani

text:

ti basta fare un autocomposizione pulsante
scegliere Varie e Composizione automatica
poi ti guardi il codice generato e lo modifichi secondo le
tue esigenze.
se non ci capisci niente, modifica la riga:
Set PrevCtl = Screen.PreviousControl
con
Set PrevCtl =
me("nomeDelControlloCheContieneIlNumeroDiTelefono")
Bye
--
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


title: DIAL UP via ACCESS...help me !

text:
Federico Luciani wrote:
> SuperCiccio wrote:
> > Riprovo a formulare la domanda: da una msk di access vorrei selezionare un
> > nominativo da un archivio RUBRICA TELEFONICA, e premendo un pulsante far
> > partire la chiamata al numero corrispondente, quindi parlarci....
> > Ho bisogno di hardware particolare ? Mi basta qualche controllo (OCX) da
> > aggiungere alla maschera ?
> > Alla fine quello che vorrei realizzare è qualcosa tipo un "call center"
> > Vi prego aiutatemi, ciao.
> >
scic...@libero.it
>
> ti basta fare un autocomposizione pulsante
> scegliere Varie e Composizione automatica
> poi ti guardi il codice generato e lo modifichi secondo le
> tue esigenze.
> se non ci capisci niente, modifica la riga:
> Set PrevCtl = Screen.PreviousControl
> con
> Set PrevCtl =
> me("nomeDelControlloCheContieneIlNumeroDiTelefono")
Dimenticavo
naturalmente devi avere un modem



title: concatenare stringhe in una query ....

author: Cristian

text:
e' tanto banale che non riesco a trovare l'errore.
Un campo della query è il risultato fra l asomma di due campi stringa.
Ovvero:
DESCRIZIONE ARTICOLO: [CAMPO1]+" "+[CAMPO2]
Funziona solo nel caso in cui entrambi i campi contengano dei dati.
Nel caso in cui CAMPO2 sia vuoto il campo DESCRIZIONE ARTICOLO viene creato
vuoto.
In questo modo io perdo dei dati.
Qualcuno mi sa dire dove sbaglio.....
Grazie
Cristian


title: concatenare stringhe in una query ....

author: JBad

text:
In article <97e1o4$1ts$
1...@fe1.cs.interbusiness.it
>,
lu...@italymail.com

says...

Prova a usare l'operatore & invece di +
DESCRIZIONE ARTICOLO: [CAMPO1] & " " & [CAMPO2]
Ciao
--
JBad


title: concatenare stringhe in una query ....

author: Antonio Biso

text:
Cristian <
lu...@italymail.com
> wrote in message
97e1o4$1ts$1...@fe1.cs.interbusiness.it...
> e' tanto banale che non riesco a trovare l'errore.
> Un campo della query è il risultato fra l asomma di due campi stringa.
>
> Ovvero:
> DESCRIZIONE ARTICOLO: [CAMPO1]+" "+[CAMPO2]
>
> Funziona solo nel caso in cui entrambi i campi contengano dei dati.
> Nel caso in cui CAMPO2 sia vuoto il campo DESCRIZIONE ARTICOLO viene
creato
> vuoto.
DESCRIZIONE ARTICOLO: nz([CAMPO1];"") & " " & nz([CAMPO2];"")
Antonio


title: www.ebankgame.com your bank of game's

text:
www.ebankgame.com
 your bank of game's
www.eBankGame.com
 (w w w .eBankGame . c o m )
As you might or might not known that Taiwan earthquake has caused most
of supplier are experiencing the serve problem to process the gold.
However, eBankGame is always stay line with all the game players to
help you guys to enjoy the game at any time. We provide Gold Farmer
service for you to own the gold with little bit expense. Your expense
will be more valuable by take one action and gain multiple purposes.
The service is focus on gold farming for your character in the game by
using professional human player to taking tasks and gain reputation in
the game in order to gain the gold for you (We do not apply any plug-
in or Bots on your character). Meanwhile your character will be
improved 1-15 power leveling which depends on your original level
(this aspect is not available for Level 60).
www.eBankGame.com
 (w w
w .eBankGame . c o m)
1.The Fastest Delivery Speed on all Servers in 1-8 hours since your
payment arrives.If the deliver is delayed over 8 hours, you will get
5% extra gold for the late.Or you can request a refund.
2.Special Discount Servers.Sometimes, there will be some servers,
with
special discounts, with extremely NICE PRice on some certain servers.
3.Perfect Service.24 hours service with various contact methods: MSN,
ICQ, Online Chat on Web homepage,Welcome to
www.eBankGame.com
If any problem, please contact us asap!
Happy shopping!
Sincerely,
www.eBankGame.com
E-mail:ebankg...@gmail.com
MSN:ebaga...@msn.com
ICQ:468873592
Choose your game
World of Warcraft EU
World of Warcraft US
Lord of The Rings EU
Lord of The Rings US
Lineage II
EverQuest2
Guild Wars
Final Fantacy XI
Runescape 2
RFO Online
Dungeons & Dragons Online
Eve Online
Star Wars Galaxies
go to
www.eBankGame.com


title: controllo access simile a Gantt

author: Davide

text:
Salve a tutti!!
mi chiedevo se esiste un controllo activex utilizzabile in Access simile ad
una griglia tipo Gantt e con la possibilità di modificare i dati associati a
tale controllo direttamente dal controllo..
..mi servirebbe per un pannello di controllo che rappresenta le prenotazioni
di un albergo, con i giorni in colonne e i mesi in righe.
Grazie a chi vorrà rispondermi, sono ben accetti anche consigli
sull'utilizzo di strade alternative..
Saluti
Davide


title: controllo access simile a Gantt

text:

Creati una tabella temporanea on the fly
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: controllo access simile a Gantt

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:cUGQe.34368$TR5....@news.edisontel.com...
> Davide wrote:
>> Salve a tutti!!
>> mi chiedevo se esiste un controllo activex utilizzabile in Access
>> simile ad una griglia tipo Gantt e con la possibilità di modificare i
>> dati associati a tale controllo direttamente dal controllo..
>> ..mi servirebbe per un pannello di controllo che rappresenta le
>> prenotazioni di un albergo, con i giorni in colonne e i mesi in righe.
>>
>> Grazie a chi vorrà rispondermi, sono ben accetti anche consigli
>> sull'utilizzo di strade alternative..
>>
>> Saluti
>>
>> Davide
>
> Creati una tabella temporanea on the fly
..scusa ma nn ho capito in che modo dovrei utilizzarla questa tabella.
grazie
Davide



title: controllo access simile a Gantt

text:
Davide wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:cUGQe.34368$TR5....@news.edisontel.com...
>> Davide wrote:
>>> Salve a tutti!!
>>> mi chiedevo se esiste un controllo activex utilizzabile in Access
>>> simile ad una griglia tipo Gantt e con la possibilità di modificare
>>> i dati associati a tale controllo direttamente dal controllo..
>>> ..mi servirebbe per un pannello di controllo che rappresenta le
>>> prenotazioni di un albergo, con i giorni in colonne e i mesi in
>>> righe.
>>>
>>> Grazie a chi vorrà rispondermi, sono ben accetti anche consigli
>>> sull'utilizzo di strade alternative..
>>>
>>> Saluti
>>>
>>> Davide
>>
>> Creati una tabella temporanea on the fly
>
> ..scusa ma nn ho capito in che modo dovrei utilizzarla questa tabella.
>
> grazie
>
> Davide
sto andando via ci risentiamo domani



title: controllo access simile a Gantt

author: Alessandro Baraldi

text:
"Davide" <
davide.di...@libero.it
> wrote in message
news:EOGQe.115986$
fm.76...@news4.tin.it

Non apprezzando particolarmente gli OCX sono abituato
a risolvere in altri modi le cose.
Per generare dei Gantt c'è un demo sul SC nella sezione
Report, che con poche modifiche diventa flessibile e
personalizzabile.
Costo=0
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: controllo access simile a Gantt

text:
>> Salve a tutti!!
>> mi chiedevo se esiste un controllo activex utilizzabile in Access simile
>> ad
>> una griglia tipo Gantt e con la possibilità di modificare i dati
>> associati a
>> tale controllo direttamente dal controllo..
>> ..mi servirebbe per un pannello di controllo che rappresenta le
>> prenotazioni
>> di un albergo, con i giorni in colonne e i mesi in righe.
>>
>> Grazie a chi vorrà rispondermi, sono ben accetti anche consigli
>> sull'utilizzo di strade alternative..
>>
>> Saluti
>>
>> Davide
>
> Non apprezzando particolarmente gli OCX sono abituato
> a risolvere in altri modi le cose.
> Per generare dei Gantt c'è un demo sul SC nella sezione
> Report, che con poche modifiche diventa flessibile e
> personalizzabile.
>
> Costo=0
>
> Ciao
> @Alex
>
..grazie per la risposta ..
Davide


title: controllo access simile a Gantt

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:eAHQe.34374$TR5....@news.edisontel.com...

ok grazie..
Davide


title: controllo access simile a Gantt

text:
Davide wrote:
> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
> news:eAHQe.34374$TR5....@news.edisontel.com...
>> Davide wrote:
>>> "MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
>>> news:cUGQe.34368$TR5....@news.edisontel.com...
>>>> Davide wrote:
>>>>> Salve a tutti!!
>>>>> mi chiedevo se esiste un controllo activex utilizzabile in Access
>>>>> simile ad una griglia tipo Gantt e con la possibilità di
>>>>> modificare i dati associati a tale controllo direttamente dal
>>>>> controllo.. ..mi servirebbe per un pannello di controllo che
>>>>> rappresenta le prenotazioni di un albergo, con i giorni in
>>>>> colonne e i mesi in righe.
>>>>>
>>>>> Grazie a chi vorrà rispondermi, sono ben accetti anche consigli
>>>>> sull'utilizzo di strade alternative..
>>>>>
>>>>> Saluti
>>>>>
>>>>> Davide
>>>>
>>>> Creati una tabella temporanea on the fly
>>>
>>> ..scusa ma nn ho capito in che modo dovrei utilizzarla questa
>>> tabella.
>>>
>>> grazie
>>>
>>> Davide
>>
>> sto andando via ci risentiamo domani
>>
>
> ok grazie..
>
> Davide
Tu vuoi vedere quali camere sono impegnate da oggi ad un mese.
Bene creati una tabella temporanea con un ciclo for che ha come nome campo
il valore di dateadd(Tuadata)+ il valore del ciclo.
Dopo riempirla è un attimo
a quel punto la tua tabella la puoi visualizzare in una combobox



title: controllo access simile a Gantt

text:
"MA" <
mas...@massimilianoamendola.it
> ha scritto nel messaggio
news:x%TQe.34479$TR5....@news.edisontel.com...

ok ci provo grazie..
Davide



title: AIUTO: Collegamento ipertestuale

author: Citra

text:
Ciao a tutti!
Ho creato un db con il campo E-mail dove ho assegnato erroneamente a tutti i
record inseriti (1122!!) il valore di collegamento ipertestuale.
Ora mi legge le mail come
http://mario...@tin.it
 e non mailto:..... il
dramma è che anche se rimposto il avlore del campo e-mail come testo, mi
mantiene http://
Come faccio a togliere il collegamento?????


title: AIUTO: Collegamento ipertestuale

author: AK

text:
ci sono tanti sistemi sia da codice che da query. dipende da quanto sei
esperto.
per fare la cosa il più velocemente possibile visto che si tratta di
chirugia esportati la tabella in excel
dopo nella cella di fianco usa la funzione SOSTITUISCI relativamente alle
prime 7 lettere e poi un CONCATENA con mailto: ecc
fatta la modifica reimporta in access
Ho fatto la verifica e in soli 32 secondi 60.000 record sono stati
modificati
saluti AA
Citra <
m.ba...@seicom.it
> wrote in message
96218405...@tango.comm2000.it...



title: AIUTO: Collegamento ipertestuale

text:
opsss SOSTITUISCI già implica il CONCATENA quindi questa seconda funzione è
inutile
sorry



title: AIUTO: Collegamento ipertestuale

author: Basjlico

text:
On Wed, 28 Jun 2000 11:25:12 +0200, "Citra" <
m.ba...@seicom.it
>
wrote:
>Ciao a tutti!
>Ho creato un db con il campo E-mail dove ho assegnato erroneamente a tutti i
>record inseriti (1122!!) il valore di collegamento ipertestuale.
>
>Ora mi legge le mail come
http://mario...@tin.it
 e non mailto:..... il
>dramma è che anche se rimposto il avlore del campo e-mail come testo, mi
>mantiene http://
>
>Come faccio a togliere il collegamento?????
Puoi usare una istruzione Do...loop per scorrere il recordset ed una
delle tante funzioni di manipolazione delle stringe per moficare
quello che vuoi. Cerca nella guida mid, left e right.
Con queste funzioni puoi separare http:// dal resto e sostituirgli
mailto: nel giro di qualche secondo.


title: Msde....taroccato?

author: ultrareflex

text:
Salve a tutti......
Ho installato il potentissimo (se funzionasse potrei forse dirlo!) MSDE che
è compreso nel CD di office2000 professional. Ora mi domando.....ma è
taroccato o cosa?
Funziona solo con l'esempio di Northwind.
E' solo per provarlo? non si possono creare databases all'interno del
server?
Dopo averlo installato mi chiede id e password che NON ho.........
Qualcuno sa spiegarmi il perchè?
Grazie a tutti
Ultra


title: Msde....taroccato?

author: George

text:
"ultrareflex" <
lew...@tin.it
> ha scritto nel messaggio
news:7nWOa.5277$it4.1...@news1.tin.it...

Cero che puoi crearli.
E' evidente, però, che devi crearli tu!
La password non c'è. C'è un solo utente definito (sa) senza password.
Ciao.


title: Msde....taroccato?

author: OneEDP

text:
"ultrareflex" <
lew...@tin.it
> ha scritto nel messaggio
news:7nWOa.5277$it4.1...@news1.tin.it...

in microsoft.public.it.sql c'è una valanga di rispote serie
Ciao


title: Msde....taroccato?

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:behctg$da3$1...@newsreader.mailgate.org...

Dunque grazie per il tuo post George....solo che facendo creazione guidata
database SQL server da utilizzare per il database mi dà sempre lo stesso
cavolo di errore:
Impossibile effettuare la connessione
SQLState: 01000
Errore di SQL Server:
11001 impossibile effettuare la connessione
SQLState: 08001
Errore di SQL server: 11
Che accidenti vorrebbe farmi sapere ? :)
Ho messo sa come id e non ho messo pass ma nulla!
Altre idee??
Grazie mille
Ultra


title: Msde....taroccato?

text:
"ultrareflex" <
lew...@tin.it
> ha scritto nel messaggio
news:ENWOa.10195$qa5.2...@news2.tin.it...

... che non hai fatto partire il serve SQL. Solo questo.
Vedi una serie di altri post precedenti!


title: Msde....taroccato?

text:
"George" <
giorgio.ben...@libero.it
> ha scritto nel messaggio
news:behdq9$euo$1...@newsreader.mailgate.org...
>
> ... che non hai fatto partire il serve SQL. Solo questo.
> Vedi una serie di altri post precedenti!
Il SQLserver Manager è attivo e funzionante visto che la prova del Northwind
funziona perfettamente.
Quello che non mi permette è di creare un db all'interno dell'SQL (MSDE)
Grazie.
Ultra


title: importazione da file.txt : conversione tipo campi

author: Enrico Virginio

text:
Ho la necessità di importare nel mio DB dei dati che però mi vengono forniti
con un file in formato testo; nulla di così difficile alla fine, visto che
usando l'autocomposizione importazione testo riesco perfettamente ad immettere
i dati nei campi della tabella che voglio...(grazie anche al tracciato records
fornitomi dal mio cliente...);
il problemone è che un particolare campo che nella mia tabella è settato a
valuta EURO non riesce ad importare correttamente il valore presente nel file
.txt: e questo perchè il dato è tipo numerico, senza virgola e quindi senza
decimali;
esempio
000012524
però il cliente m'ha detto che il valore è decimale (ma dove???)e che le ultime
due cifre rappresentano i decimali !!!(quindi 125,24)
Chiedo quindi se è possibile in fase di importazione dati nella tabella
convertire quel valore in decimale con la virgola. Visto che dovrebbe
rappresentare il prezzo in Euro di un prodotto...
Grazie mille
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


author: Emyr

text:


sui post precedenti ci sono esempi per importare i dati da file di
testo molto brevi ed efficenti: io tempo fa avevo fatto così:
premetto che ci sono metodi più brevi ma ti devi rileggere i post
precedenti:
Private Sub importaive_Click()
On Error GoTo Err_importaIVE_Click
Dim fs, f, f1, fc, s, agg, lis, posizione, nomefile
Set fs = CreateObject("Scripting.FileSystemObject")
posizione = dicidirectory("Illumina")
lis = False
If posizione <> "" Then
    Set f = fs.GetFolder(posizione)
    Set fc = f.Files
    nomefile = dicinome("Illumina")
    For Each f1 In fc
        If f1.Name = nomefile Then lis = True
    Next
End If
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM metelIVE")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim Riga, cerca, vecchio, nuovo As Variant
If lis Then
 Set f = fs.OpenTextFile(posizione & nomefile, ForReading)
 Riga = (f.readline)
 Do While f.atendofstream = False
    Riga = (f.readline)
    cerca = UCase("" & RTrim(Left(Riga, 19)))
    rs.FindFirst ("codice=""" & cerca & """")
    If rs.NoMatch = True Then
        rs.AddNew
        rs![codice] = cerca
        rs![DESCRIZIONE] = Mid(Riga, 33, 43)
        rs![prezzocarico] = Val(Mid(Riga, 100, 9)) / 100
        rs![codicebarre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    Else
        rs.Edit
        rs![DESCRIZIONE] = Mid(Riga, 33, 43)
        rs![prezzocarico] = Val(Mid(Riga, 100, 9)) / 100
        rs![codicebarre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    End If
 Loop
 f.Close
 MsgBox "Importazione completata"
Else
    MsgBox ("File " & dicidirectory("Illumina") & dicinome("Illumina")
& " non trovato")
End If
rs.Close
Set db = Nothing
Exit Sub
Err_importaIVE_Click:
    MsgBox "Errore durante l'importazione dei dati:     Riga= " & Riga
    Exit Sub
End Sub
Saluti.
Emanuele.


title: [OT] Nuova versione di AccessGroup.it

author: MA

text:
Salve a tutti,
volevamo avvisarvi che tra pochi giorni ci saranno diversi cambiamenti
tecnici di Accessgroup.it.
Non cambia lo spirito per�, diffusione di conoscenza di Access e altro in
maniera del tutto gratuita, in pieno spirito community.
Vi ricordo che lo spirito di community prevedrebbe anche vostri contributi
con articoli e commenti.. ;-)
In ogni caso stiamo mettendo su una newsletter che avvisi quando i sono
nuovi articoli e/o eventi, basta registrarsi
Ciao ci vediamo come al solito su AccessGroup.it


title: SitoComne, Modules, voce 5.5, problema a funzionare?

author: Riccardo Baldinotti

text:
Ho scaricato il file CDialog.zip dalla voce in oggetto.
Cliccando sui pulsanti della maschera che si apre all'avvio del file
.mdb, non succede nulla.
Sono io che non ho capito?
Oppure potrebbe essere che uso A2000 con un'applicazione per A97?
Già che ci siamo, mi succede spesso la cosa seguente.
Quando apro un file per versioni precedenti, A mi chiede se voglio
convertirlo o aprirlo. Se scelgo la seconda mi dice che non posso fare
modifiche; "poco male, posso farle in seguito", pensa l'ingenuo,
senonché la volta successiva A, che evidentemente è permaloso, non mi
pone più la domanda, limitandosi a ribadire acidamente (...) che non
posso fare modifiche.
Eccheddiamine!
Saluti a bassa voce perché il mal di gola...
Riccardo Baldinotti


text:
Riccardo Baldinotti wrote:
> Ho scaricato il file CDialog.zip dalla voce in oggetto.
> Cliccando sui pulsanti della maschera che si apre all'avvio del file
> .mdb, non succede nulla.
> Sono io che non ho capito?
> Oppure potrebbe essere che uso A2000 con un'applicazione per A97?
Guarda i riferimenti
>
> Già che ci siamo, mi succede spesso la cosa seguente.
> Quando apro un file per versioni precedenti, A mi chiede se voglio
> convertirlo o aprirlo. Se scelgo la seconda mi dice che non posso fare
> modifiche; "poco male, posso farle in seguito", pensa l'ingenuo,
> senonché la volta successiva A, che evidentemente è permaloso, non mi
> pone più la domanda, limitandosi a ribadire acidamente (...) che non
> posso fare modifiche.
> Eccheddiamine!
lancia Access e poi
Apri
>
> Saluti a bassa voce perché il mal di gola...
> Riccardo Baldinotti
Rimettiti
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Fare Click con il Mouse

author: Caspariello

text:
Buonasera,
vediamo se riesco a spiegarmi.......
vorrei far in modo di muovere il mouse automaticamente su una posizione
dello schermo e fare click.
Dopo tante peripezie ho trovato la funzione API
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As
Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal
dwExtraInfo As Long)
Premesso che non ho capito tutte la variabili in esso contenute, riesco
comunque a spostare il puntatore dove voglio.
Mi resta comunque il problema di : Come faccio a fargli fare click in
automatico??????
Bohhhhhhhhh, mi aiutate (trattatemi da ignorante in materia perché lo sono).


title: Fare Click con il Mouse

author: Sergio MAZZA

text:
"Caspariello" <
caspa...@libero.it
> ha scritto nel messaggio
news:tHAH7.70627$sq5.3...@news.infostrada.it...

Non entro nel merito della funzione; stai forse sviluppando un'applicazione
demo? Altrimenti non mi spiego il perché devi muovere automaticamente il
mouse in un punto stabilito e fare clic.
Se non è così potresti prendere in considerazione un'altra via; cioè
rispondendo alla domanda: "quali sono le condizioni che devo soddisfare per
scatenare la routine VBA nell'evento 'su clic' di quel controllo?".
La routine VBA la potresti eseguire senza necessariamente cliccare sul
controllo, inserendola in un modulo e richiamandola quando ti serve...
Ciao.
--
- - - - - - - - - - - - - - -
Sergio MAZZA
- - - - - - - - - - - - - - -


title: Fare Click con il Mouse

text:
Sergio MAZZA <
sergi...@tiscalinet.it
> wrote in message
9sr23d$gt6$1...@canarie.caspur.it...

Ti ringrazio per l'attenzione e ti spiego il mio problema che è per così
dire "indiretto". A lavoro mi capita spesso di utilizzare macro
(generalmente in excel) unicamente per interagire con programmi di
reportistica in ambiente web o altro, al fine di risparmiare tempo.
Non posso quindi agire direttamente ma utilizzare comandi quali il sendkeys.
Ho però una difficoltà non riesco ad attivare la finestra di questo
programma sul web a meno di fare click su di esso e poi trasmettere i vari
sendkeys


title: Fare Click con il Mouse

text:
"Caspariello" <
caspa...@libero.it
> ha scritto nel messaggio
news:JJDI7.96399$sq5.4...@news.infostrada.it...
>
> Ti ringrazio per l'attenzione e ti spiego il mio problema che è per così
> dire "indiretto". A lavoro mi capita spesso di utilizzare macro
> (generalmente in excel) unicamente per interagire con programmi di
> reportistica in ambiente web o altro, al fine di risparmiare tempo.
> Non posso quindi agire direttamente ma utilizzare comandi quali il
sendkeys.
> Ho però una difficoltà non riesco ad attivare la finestra di questo
> programma sul web a meno di fare click su di esso e poi trasmettere i vari
> sendkeys
>
Scusa ma non ho capito; quante applicazioni sono coinvolte?
Perché se da Excel devi "pilotare" un'applicazione che non supporta OLE, di
solito sono applicazioni scritte per Win 3.11, puoi utilizzare i comandi
DDE; sempre che non sia un'applicazione Dos...



title: Come esportare il contenuto di tabelle collegate?

author: MegaMax

text:
Domandona :-)
Come faccio a creare una funzione che mi esporti struttura e contenuto di
tutte le tabelle di un DB?
Il problema mi nasce con le tabelle collegate, se uso docmd.trasnferDB su
una tabella collegata Access mi fa una copia del collegamento.
Io invece vorrei esportare tutto il contenuto.
Esiste un modo semplice?
Potrei usare delle query... ma è complicato, perchè io vorrei creare una
funzione che mi esporti tutti i dati di tutte le tabelle dal db corrente ad
un'altro.
Usando TransferDB l'ho fatto, ma mi sono imbattuto nel problema sopra
descritto.
Qualcuno ha delle idee?
Intanto posto il codice, nel caso possa servire a qualcuno :-)
Sub ExportDB(destinazione As String)
'questa funziona ha un problema: se nel db corrente c'è una tabella
collegata allora viene esportato il collegamento, e non il contenuto della
tabella.
Dim nuovoDB As Database
Dim nomeDB As String
Dim Merr As String
Dim obj As AccessObject, dbs As Object
'genero il nome del nuovo DB
On Error GoTo ErrCart
Merr = "Errore durante la generazione del nome del DB da esportare,
CONTATTARE L'AMMINISTRATORE DI SISTEMA"
nomeDB = destinazione
If Right(nomeDB, 1) <> "\" Then nomeDB = nomeDB & "\"
nomeDB = nomeDB & "Backup " & EliminaCaratteriIllegali(Now()) & ".mdb"
'lo elimino nel caso esistesse già
On Error Resume Next
Kill nomeDB  'elimino il vecchio file, nel caso esista già
'creo il nuovo DB
On Error GoTo ErrCart
Merr = "Errore durante la creazione del DB da esportare, CONTATTARE
L'AMMINISTRATORE DI SISTEMA"
Set nuovoDB = DBEngine.Workspaces(0).CreateDatabase(nomeDB, dbLangGeneral)
'lo creo
nuovoDB.Close 'lo chiudo, altrimenti non lo posso usare con transfertDB
Set nuovoDB = Nothing
'esporto le tabelle
Merr = "Errore durante l'esportazione dei dati, CONTATTARE L'AMMINISTRATORE
DI SISTEMA"
Set dbs = Application.CodeData
For Each obj In dbs.AllTables
If
obj.name
 <> "MSysAccessObjects" And _

obj.name
 <> "MSysAccessXML" And _

obj.name
 <> "MSysACEs" And _

obj.name
 <> "MSysIMEXColumns" And _

obj.name
 <> "MSysIMEXSpecs" And _

obj.name
 <> "MSysObjects" And _

obj.name
 <> "MSysQueries" And _

obj.name
 <> "MSysRelationships" Then
     Debug.Print "Inizio trasferimento " &
obj.name
     DoCmd.TransferDatabase acExport, "Microsoft Access", nomeDB, acTable,
obj.name
,
obj.name
, False 'ci esporto i dati
     Debug.Print "Fine trasferimento " &
obj.name
     Debug.Print
  End If
Next obj
'lo compatto per essere sicuro che sia il più piccolo possibile
'Merr = "Errore durante la compattazione del DB con i dati esportati,
CONTATTARE L'AMMINISTRATORE DI SISTEMA"
'If Dir(nomeDB & ".new") <> "" Then Kill nomeDB & ".new"  'se esiste già il
DB col nome nuovo lo elimino
'DBEngine.CompactDatabase nomeDB, nomeDB & ".new"
'If Dir(nomeDB & ".vec") <> "" Then Kill nomeDB & ".vec"  'se esiste già il
DB col nome "vecchio" lo elimino
'Name nomeDB As nomeDB & ".vec"                           'cambio nome al BE
vecchio (non compattato)
'Name nomeDB & ".new" As nomeDB                           'metto il nome
giusto al BE compattato
'If Dir(nomeDB & ".vec") <> "" Then Kill nomeDB & ".vec"  'elimino il DB non
compattato
'LA COMPATTAZIONE DA DEI PROBLEMI! MI TOGLIE L'ACCESSO ESCLUSIVO ALL'FE,
QUINDI NON LA FACCIO FIN CHE NON CAISCO IL PROBLEMA
On Error Resume Next
MsgBox "Esportazione dati riuscita"
Exit Sub
ErrCart:
Resume ErrCartR
ErrCartR:
On Error Resume Next
  nuovoDB.Close
  MsgBox Merr
End Sub
Public Function EliminaCaratteriIllegali(str As String) As String
Dim Data As String
On Error Resume Next
Data = Replace(str, "/", "_", , , vbTextCompare) 'elimino
Data = Replace(Data, "\", "_", , , vbTextCompare) 'i caratteri che non si
Data = Replace(Data, ".", "_", , , vbTextCompare) 'possono usare per i
Data = Replace(Data, ":", "_", , , vbTextCompare) 'nomi dei files
Data = Replace(Data, "*", "_", , , vbTextCompare)
Data = Replace(Data, "?", "_", , , vbTextCompare)
Data = Replace(Data, "=", "_", , , vbTextCompare)
Data = Replace(Data, "<", "_", , , vbTextCompare)
Data = Replace(Data, ">", "_", , , vbTextCompare)
Data = Replace(Data, "|", "_", , , vbTextCompare)
Data = Replace(Data, """", "_", , , vbTextCompare)
Data = Replace(Data, " ", "__", , , vbTextCompare) 'Inoltre elimino gli
spazi
EliminaCaratteriIllegali = Data
End Function


author: Roberto - Syd

text:
"MegaMax" <
fe...@polaris.it
> ha scritto nel messaggio
news:a8uml9$mep$1...@newsreader.mailgate.org...

Mi sembra di capire che tu voglia fare una copia del DB che contiene le
tabelle che sono collegate al Front End, quindi mi sembra più facile fare la
copia del file .mdb piuttosto che fare l'export di tutti gli oggetti, per
fare la copia del file .mdb puoi usare questa istruzione:
FileCopy "c:\TuaDir\DBTabelle.mdb",  "c:\TuaDir\Backup\DBTabelle.mdb"
Ciao Roberto - Syd


text:
> Mi sembra di capire che tu voglia fare una copia del DB che contiene le
> tabelle che sono collegate al Front End,
Mi leggi nel pensiero... :-)
> quindi mi sembra più facile fare la
> copia del file .mdb piuttosto che fare l'export di tutti gli oggetti, per
> fare la copia del file .mdb puoi usare questa istruzione:
> FileCopy "c:\TuaDir\DBTabelle.mdb",  "c:\TuaDir\Backup\DBTabelle.mdb"
Potrei... ma questo comporta dei problemi: se il DB è aperto da altri utenti
che lo stanno usando rischio di fare una copia di un DB che poi non riesco a
leggere, cioè, magari sono a metà di una lunga query di aggiornamento... il
DB potrebbe non godere molto, o semplicemente potrebbe risultarne una copia
non valida.
Mentre se riuscissi ad esportare tutti i dati delle tabelle con metodi
interni al DB non dovrei avere problemi del genere, almeno credo.
Grazie comunque.
ciao, Max


title: campo memo da casella combinata a scelta multipla

author: lorenzo medici

text:
Un saluto a tutto il newsgroup ed un ringraziamento alla vostra
disponibilità che mi sta permettendo da assoluto neofita di creare un
DB per esigenze di lavoro molto apprezzato dai miei colleghi. Vengo al
dunque: ho un campo memo la cui compilazione intendo agevolare con
frasi predisposte che ho messo in tabella e poi visualizzo con una
casella combinata a scelta multipla un semplice bottone di comando ne
dispone il "trasferimento" al campo memo.
Questo è il codice del bottone (elaborato grazie a post diversi):
Private Sub inserisci_Click()
If Me.anamnesi.ItemsSelected.Count > 0 Then
    Dim VoceSelezionata
    For Each VoceSelezionata In Me.anamnesi.ItemsSelected
       [Forms]![cartella visita]![sottomaschera visite]![Dati
anamnesi] = [Forms]![cartella visita]![sottomaschera visite]![Dati
anamnesi] & " " & Me.anamnesi.ItemData(VoceSelezionata)
    Next
Else
    MsgBox "Nessun elemento selezionato."
End If
End Sub
Funziona egregiamente ma non mi consente di aggiungere testo libero
tra un attach e l'altro, infatti il testo aggiunto  liberamente viene
inesorabilmente cancellato dal successivo trasferimento, qualche
suggerimento?
Per ultimo il campo sembra tenere in memoria i vari attach fino a che
non sposto il focus e lo ristabilisco, sapreste dirmi perchè e come
rimediare.
Sperando di non abusare della vostra pazienza, un cordiale saluto.


author: Alessandro Cara

text:


Ma questo e' un controllo associato?
--
a.cara
Togli qualcosa dall'email


text:


Si è un controllo associato ad una tabella [visita] e presente in una
sottomaschera [sottomaschera visite].
Qualche possibile soluzione?
Comunque grazie per l'attenzione!
Lorenzo


text:
lorenzo medici wrote:
[cut]
> >Ma questo e' un controllo associato?
>
> Si è un controllo associato ad una tabella [visita] e presente in una
> sottomaschera [sottomaschera visite].
> Qualche possibile soluzione?
Ho provato il tuo codice (ho solo cambiato il nome del controllo) e sembra
funzionare perfettamente.
questo e' quello che ho fatto
1) selezionato da casella 3 elementi
2) attivo bottone i valori vengono portati
3) inserisco direttamente su controllo memo
4) selezione altro elemento
5) il memo contiene i 4 elementi piu' il testo inserito
6) vado su altro record e poi torno indietro
7) il controllo contiene esattamente quanto in 5
E' questa la sequenza che a te "non" si verifica?



text:


Esattamente dal punto 4 della sequenza che hai esposto, dopo che ho
inserito direttamente del testo e poi selezionato un altro elemento lo
porto sul campo memo quest'ultimo elemento va a ricongiungersi coi
precedenti cancellando inesorabilmente quanto inserito direttamente.
Un altro comportamento anomalo è che se cancello dal campo memo i 3
elementi precedentemente inseriti, vado alla combinata dove seleziono
un solo elemento avro nel campo memo i primi 3 precedentemente
inseriti e già cancellati più il 4° selezionato per ultimo.
Per me è un bel rompicapo!
Lorenzo


text:
lorenzo medici ha scritto:

uhmmm................
se puoi mandami la form sulla e-mail. Sono comvinto che c'e'
qualcosa nella definizione del controllo che non va, potrebbe
essere "lungo" da verificare via "scriviconferenza"
--
a.cara
togli qualcosa dall'email


title: R: CTRL+G

author: Harry Evans

text:
Nell'evento controlli se sei in sviluppo o se sei in runtime, visto che
mentre sviluppi penso non ti serva proprio vedere se funziona il grassetto:
if SysCmd( acSysRuntime) then
    ' fa grassetto
else
    ' esegue normalmente il debug
endif:
Andrea Sciamanna <andrea.s...@libero.it.cancellami> wrote in message
8pptok$5p1$1...@serv1.iunet.it...
> Sempre affascinato dal controllo Rich Text, sto realizzando un'interfaccia
> per la creazione di documenti formattati.
> Ho sono messo, per ora, i classici bottoni per il grassetto, il corsivo,
> ecc...
>
> Visto che sono abituato ad utilizzare molto anche la tastiera, nell'evento
> Keypress del controllo ho gestito il CTRL+G, CTRL+S, CTRL+C,
rispettivamente
> per il grassetto, il sottolineato e il corsivo.
> Ora c'č un problema. Le ultime due combinazioni funzionano, la prima no
> perchč, giustamente, si apre Visualbasic (CTRL+G, in Access97 e precedenti
> apriva la finestra d'esecuzione immediata, mentre ora, quella finestra, č
> all'interno di Visual Basic).
>
> Distribuendo l'applicazione posso disattivare i tasti speciali e
fregarmente
> dell'inconveniente, ma, mentre sviluppo, ho bisogni che quei tasti siano
> attivati: come faccio a by-passare solo il CTRL+G?
>
>


title: Funzione. Non funziona in Visualizzazione e stored

author: Signorpietro

text:
Progetto di Access. I dati sono su un server SQL.
    Ho trova una funzione che identifica l'user di win2000.
    L'archivio del personale è composto da un campo in particolare che
identifica l'ufficio da cui dipende l'impiegato.
    Non riesco ad utilizzare la funzione in parola all'interno di
Visualizzazioni o StoredProcedure.
    Se non riesco a fare questo, come posso unire il l'archivo "CodiciUffici"
con il campo sopra indicato in modo che un determinato ufficio possa
consultare solo il suo personale dipendente?????
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Unire piu' espressioni

text:
ciao a tutti

vorrei unire queste espressioni in una sola:

1-IIf(([nColli]=0 Or IsNull([nColli])) And ([Quantità]=0 Or IsNull([Quantità])) And ([Prezzo]=0 Or IsNull([Prezzo]));1;0)

2-IIf(([nColli]=0 Or IsNull([nColli])) And ([Quantità]=0 Or IsNull([Quantità]));2;0)

3-IIf(([nColli]=0 Or IsNull([nColli])) And ([Prezzo]=0 Or IsNull([Prezzo]));3;0)

4-IIf([nColli]=0 Or IsNull([nColli]);4;0)

5-IIf([Quantità]=0 Or IsNull([Quantità]);5;0)

6-IIf([Prezzo]=0 Or IsNull([Prezzo]);6;0)

grazie.


title: Unire piu' espressioni

text:

Vediamo se riesco a tradurmele:
Per te, 0 o Null vale ugualmente;
Se non c'è nulla compilato: 1
se è compilato solo il Prezzo: 2
se è compilata solo la Quantità: 3
se sono compilatei Pezzo e Quantità: 4
se sono compilati Colli e Prezzo: 5
se sono compilatei Colli e Quantità: 6

Ho capito bene?
Riccardo Baldinotti


title: Unire piu' espressioni

text:

ciao Riccardo
si


title: Unire piu' espressioni

text:

Dopo averti scritto mi è sembrato che ti abbiano risposto in un altro messaggio, è così?
Altrimenti ci ragiono su.


title: motore di ricerca flessibile in access

text:
è possibile creare un motore di ricerca flessibile se ad esempio inserisco
la parola pippo e pluto
cosi                               pippo pluto escono tutti i record con
pippo o pluto  o entrambi
se inserisco "pippo pluto" escono i soli record con quella esatta stringa un
po come google
avete un esempio già fatto? c'è magari sul sito comune e non lo visto?
Grazie a tutti.


title: compattare database ad ogni chiusura???

author: Gobbo

text:
Ciao a tutti......
volevo chiedere se e come si può far si che si compatti e ripristini il DB
ad ogni chiusura??? e inoltre,una curiosità:facendo il DB ho provato molti
comandi o routine d'evento che poi in realtà non utilizzo,rimangono comunque
nel DB anche se non servono??? se si come posso richiamare tutto quello che
non serve ed eliminarlo???
Ciao e Grazie!!!


title: compattare database ad ogni chiusura???

author: Antonio Ganci

text:

Per compattare un database ho trovato questo nell'help:
Osservazioni
È necessario che il file di origine non sia il database corrente oppure un
file aperto da un altro utente, in quanto richiamando questo metodo il file
viene aperto in modalità esclusiva.
Esempio
Nell'esempio riportato di seguito viene compattato e ripristinato un
database, viene creato un file registro se il file di origine è danneggiato
e viene restituito un valore Boolean se il ripristino è stato eseguito in
modo corretto. Perché questo esempio possa funzionare, è necessario passare
i percorsi e i nomi di file del file di origine e di destinazione.
Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.
    ' Trap for errors.
    On Error GoTo error_handler
    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)
    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function
' Return False if an error occurs.
error_handler:
    RepairDatabase = False
End Function


title: compattare database ad ogni chiusura???

author: Carlo Costarella

text:
"Gobbo" <
cich...@yahoo.it
> ha scritto nel messaggio
news:nG%e9.72668$ub2.1...@news1.tin.it...

Se usi Access Xp dalle opzioni scegli Generale e poi spunta Compatta alla
chiusura.
Per pulire il codice dalle routine inutilizzate fai così:
apri il modulo della maschera interessata...posizionati nella sezione
dichiarazioni (dove trovi Option Compare Database) fai click sulla casella a
discesa ("(dichiarazioni)") in alto a destra. Se qui oltre a sub e funzioni
trovi qualcosa tipo Comando_51Click, puoi cancellarlo senza problemi. Ci
clicchi e cancelli la routine che ti verrà mostrata. Per rivedere l'elenco
devi riposizionarti nella sezione dichiarazioni.
In pratica l'elenco mostra tutto quello che puoi cancellare, che non ha
riferimenti nei controlli della maschera. Attento a non cancellare eventuali
sub o function da te inserite.
Ciao,Carlo