title: query che richiama una funzione

author: notax

text:
Come da un esempio sul sitocomune ho cercato di chiamare una funzione
per leggere o scrivere una variabile tramite una query.
IIf([tipo]="R",setrigprec([COCNrdellariga])   ok funziona per ogni
riga di tipo "R" mi memorizza COCNrdellariga
IIf([tipo]="C",getrigprec()    esegue la lettura una sola volta e poi
basta
dove sbaglio ?
QUERY:
SELECT Qry_UnioneRigheCommenti.COCTipoOrdine,
Qry_UnioneRigheCommenti.COCNrOrdine,
Qry_UnioneRigheCommenti.COCNrDellaRiga, Qry_UnioneRigheCommenti.tipo,
IIf([tipo]="C",getrigprec(),[COCnrdellariga]) AS mio,
IIf([tipo]="R",setrigprec([COCNrdellariga]),0) AS mioNO, *
FROM Qry_UnioneRigheCommenti
ORDER BY Qry_UnioneRigheCommenti.COCTipoOrdine,
Qry_UnioneRigheCommenti.COCNrOrdine,
Qry_UnioneRigheCommenti.COCNrDellaRiga;
CODICE:
Option Compare Database
Option Explicit
Public intRigPrec As Integer
Public Function setRigPrec(nRigPrec As Integer)
   intRigPrec = nRigPrec
End Function
Public Function getRigPrec() As Integer
   getRigPrec = intRigPrec
End Function
grazie Claudio


title: query che richiama una funzione

author: Alessandro Baraldi

text:
"notax" <
cbal...@libero.it
> wrote in message
news:b5ad03ce.05040...@posting.google.com

In realtà stai cercando di fare tutt'altro che quanto esposto
dall'Esempio del SC, in cui la Funzione era usata come WHERE
Conditions se non erro.
Tu vuoi avere una ciclicità della Funzione con il valore precedente
pertanto non può andare così come stai facendo.
Per fare quello che chiedi devi perforza passare un Parametro
alla Funzione getRigPrec altrimenti non verrà rieseguita.
In pratica passa pure il parametro della riga attuale, ma
no lo usi:
Public Function setRigPrec(nRigPrec As Integer)
    intRigPrec = nRigPrec
 End Function

Public Function getRigPrec(nRigPrec As Integer) As Integer
    getRigPrec = intRigPrec
End Function
Quindi la tua Query:
QUERY:
 SELECT Qry_UnioneRigheCommenti.COCTipoOrdine,
 Qry_UnioneRigheCommenti.COCNrOrdine,
 Qry_UnioneRigheCommenti.COCNrDellaRiga, Qry_UnioneRigheCommenti.tipo,
 IIf([tipo]="C",getrigprec([COCNrdellariga]),[COCnrdellariga]) AS mio,
 IIf([tipo]="R",setrigprec([COCNrdellariga]),0) AS mioNO, *
 FROM Qry_UnioneRigheCommenti
 ORDER BY Qry_UnioneRigheCommenti.COCTipoOrdine,
 Qry_UnioneRigheCommenti.COCNrOrdine,
 Qry_UnioneRigheCommenti.COCNrDellaRiga;

Prova così.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: query che richiama una funzione

author: Roberto da casa

text:
"notax" <
cbal...@libero.it
> ha scritto nel messaggio
news:b5ad03ce.05040...@posting.google.com...

Se il tuo problema è quello in una query di far riferimento ad un campo del
record precedente, vai sul Sito Comune e nella Sezione Queries e se usi
Access 97 fai il down load della database di esempi allegato alla FAQ
intitolata "2.6 Esempi di utilizzo e creazione di queries in Access 97"
oppure, se usi una versione successiva di Acces, quello allegato alla FAQ
intitolata "2.18 Esempi di creazione ed utilizzo delle queries per Access
2000 e versioni di Access successive".
Apri il database di esempi scaricato, seleziona il Topic intitolato
"Referring to a Field in the Previous or Next Record", pigia il pulsante di
comando Show Example; ti verranno mostrati 4 esempi di ciò che ti serve: ti
consiglio di NON usare i due relizzati tramite una DLookup.
Per maggiori dettagli di come sono stati realizzati gli esempi vai al link:
http://support.microsoft.com/default.aspx?id=101081
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


title: query che richiama una funzione

text:
grazie per le risposte.
Ho risolto utilizzando il suggerimento di Alex
Claudio


title: vb e query

author: carlo

text:
come faccio a prelevare un record da una query tramite visual basic?
Dim corrente As Database
    Dim origine As QueryDef
    Set corrente = CurrentDb()
    Set origine = corrente.OpenRecordset("query da aprire", dbOpenDynaset)
    ???
        caselladitesto.value=corrente![campo]
    corrente.Close
    Me.Refresh
grazie carlo


title: vb e query

author: Esteban

text:
"carlo" <
c.zanattoA...@operativo.net
> wrote in message
news:qO1R6.112$Ww....@news2.tin.it...

caselladitesto.value = origine![campo]
Ciao!
Esteban
Hosted by
www.seber.it


title: vb e query

author: Antonio Biso

text:
carlo <
c.zanattoA...@operativo.net
> wrote in message
qO1R6.112$Ww....@news2.tin.it...

Mah... se ti serve un unico valore usa le funzioni sui domini, tipo DLookup
Antonio


title: vb e query

text:
> > Dim corrente As Database
> >     Dim origine As QueryDef
> >
> >     Set corrente = CurrentDb()
> >     Set origine = corrente.OpenRecordset("query da aprire",
dbOpenDynaset)
> >
> >     ???
caselladitesto.value = origine![campo]
> >
> >     corrente.Close
> >     Me.Refresh
questo mi da errore su dbOpenDynaset


title: vb e query

text:
> Mah... se ti serve un unico valore usa le funzioni sui domini, tipo
DLookup
puoi farmi un esempio?
grazie carlo


title: vb e query

author: Roberto dal portatile

text:
"carlo" <
c.zanattoA...@operativo.net
> ha scritto nel messaggio
news:qO1R6.112$Ww....@news2.tin.it...

Se la query non usa parametri,
Dim corrente As Database
Dim origine As Recordset
Set corrente = CurrentDb()
Set origine = corrente.OpenRecordset("query da aprire")
Me!NomeCaellaDiTesto = origine!NomeCampo
.......
origine.Close
Set origine = Nothing
corrente.close
Setcorrente = Nothing
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: vb e query

text:
> Dim corrente As Database
> Dim origine As Recordset
> Set corrente = CurrentDb()
> Set origine = corrente.OpenRecordset("query da aprire")
> Me!NomeCaellaDiTesto = origine!NomeCampo
> .......
> origine.Close
> Set origine = Nothing
> corrente.close
> Setcorrente = Nothing
continua a darmi:
parametri insufficienti: previsto 2
quando tento di settare origine......


title: vb e query

text:
"carlo" <
c.zanattoA...@operativo.net
> ha scritto nel messaggio
news:wg4R6.433$Ww....@news2.tin.it...

Beh, io ti avevo precisato che la mia soluzione avrebbe funzionato solo nel
caso in cui la tua query non usasse parametri, ma dall'errore che ricevi è
evidente che la tua è un query di selezione parametrica.
Ed allora ciò che devi fare lo trovi scritto sul Sito Comune (link qui
sotto), Sezione Queries, nella FAQ di Federico Luciani intitolata "Aprire
una query parametrica da codice VBA".



title: vb e query

text:
carlo <
c.zanattoA...@operativo.net
> wrote in message
qm3R6.316$Ww....@news2.tin.it...
>
> > Mah... se ti serve un unico valore usa le funzioni sui domini, tipo
> DLookup
>
>
> puoi farmi un esempio?
L'help č fatto abbastanza bene.
comunque queste funzioni permettono di ricavare il valore di un certo campo
(primo parametro) su un dominio che č una tabella o una query salvata
(secondo parametro) eventualmente con certi criteri (terzo parametro)
Antonio


title: query di accodamento "speciale"

text:
Ciao a tutti,
la domanda che vi pongo č questa:
si puņ fare una query di accodamento che prenda i dati da una tabella (es.
Tabella1) di un database (es. DBaccess1) di Access e li accodi in una
identica tabella come struttura ma residente in db oracle ?
Io penso che sia da utilizzare i DSN e forse altro ma non ho capito come...
Grazie,
Axel_4


title: query di accodamento "speciale"

author: OndaMax

text:
"Axel_4" ha scritto nel messaggio ...
> si può fare una query di accodamento che prenda i dati da una tabella (es.
> Tabella1) di un database (es. DBaccess1) di Access e li accodi in una
> identica tabella come struttura ma residente in db oracle ?
Non so con Oracle, ma con altre piattaforme è sufficiente collegare tramite
ODBC la tabella di destinazione ed accoda normalmente.
Presuppongo che debba funzionare allo stesso modo ... credo.
Marco


title: query di accodamento "speciale"

text:



>Marco
Come pensavo,
Grazie,
Ale
--------------------------------
Inviato via
http://usenet.iol.it


title: AIUTO PROBLEMA setup wizard

author: gianfire

text:
Il setup wizard della microsoft è molto limitato e mal funzionante.
Qualcuno di voi utilizza (non per sentito dire) un prodotto di terze parti
del quale ha già comprovato l'esatta e corretta funzionalità?
Ho provato installshield e create installer ma entrambi i prodotti vogliono
sapere file x file tutto quello che si vuole installare e a parte l'mdb
creato non ho la benchè minima idea quali file dovrebbero essere inseriti,
quali chiavi di registro ecc, per fare installare il runtime di access.
grazie
Gianfire


title: AIUTO PROBLEMA setup wizard

text:
Il setup wizard di Access2000 della microsoft è molto limitato e mal
funzionante. (non installa l'icona, non installa il modulo graph, non
installa piu' instanze di access)



title: AIUTO PROBLEMA setup wizard

author: Michele Amato

text:
gianfire <
nos...@nospam.it
> wrote in message
WQX07.5680$D03.2...@news.infostrada.it...
> Il setup wizard della microsoft č molto limitato e mal funzionante.
>
> Qualcuno di voi utilizza (non per sentito dire) un prodotto di terze parti
> del quale ha giŕ comprovato l'esatta e corretta funzionalitŕ?
>
> Ho provato installshield e create installer ma entrambi i prodotti
vogliono
> sapere file x file tutto quello che si vuole installare e a parte l'mdb
> creato non ho la benchč minima idea quali file dovrebbero essere inseriti,
> quali chiavi di registro ecc, per fare installare il runtime di access.
>
> grazie
> Gianfire
>
Io uso Install Maker della Wise. Mi trovo benissimo e costa relativamente
poco. Perň non posso darti gran suggerimenti perchč io non distribuisco la
run-time di Access bensě una add-in (per poter usare la quale uno deve avere
installato giŕ Access).
Se non hai problemi a leggere in inglese ti consiglio questi NG:
microsoft.public.access.developers.toolkitode
microsoft.public.access.devtoolkits
Mi rendo conto che non č un gran aiuto, ma č anche meglio di niente ;-)
HTH
Michele Amato
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sul mio sito
http://maengineering.20m.com
č possibile trovare del materiale relativo ad Access
scritto da me, sia freeware che shareware
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}


title: AIUTO PROBLEMA setup wizard

author: warp

text:
"gianfire"
> Il setup wizard della microsoft è molto limitato
ODE '97 era decisamente più flessibile, da non credere! :-/
>e mal funzionante.
Boh, ho fatto diverse installazioni pure col 2000 e a mio parere funziona.
Tieni presente però che non uso Activex  (only API)
> Qualcuno di voi utilizza (non per sentito dire) un prodotto di terze parti
> del quale ha già comprovato l'esatta e corretta funzionalità?
>
> Ho provato installshield e create installer ma entrambi i prodotti
vogliono
> sapere file x file tutto quello che si vuole installare e a parte l'mdb
> creato non ho la benchè minima idea quali file dovrebbero essere inseriti,
> quali chiavi di registro ecc, per fare installare il runtime di access.
All'atto pratico è meglio lasciar perdere, soprattutto col 2000 che installa
un mare di roba.
Comunque credo che legalmente tu possa usare solo Setup Wizard.
Ciao, warp


title: AIUTO PROBLEMA setup wizard

text:
si vede che nei tuoi progetti non usavi l'ado 2.6 e non avevi grafici dentro
ti assicuro che riportarli è un gran casino
hai trovato un modo di fare inserire dal setupwiz all'installazione un icona
della tua applicazione nel menù programmi?
"warp" <
war...@libero.it
> ha scritto nel messaggio
news:vN217.8851$D03.2...@news.infostrada.it...



title: AIUTO PROBLEMA setup wizard

text:
gianfire ha scritto nel messaggio ...
>si vede che nei tuoi progetti non usavi l'ado 2.6
Vero, non usiamo ADO con ms-jet.
> non avevi grafici dentro
Quelli li usiamo e funzionano bene.
Non č che hai toccato la libreria 1033 del Runtime?
>ti assicuro che riportarli č un gran casino
>
>hai trovato un modo di fare inserire dal setupwiz all'installazione un icona
>della tua applicazione nel menů programmi?
Incredibile che non si possa vero? :-(
Ma la cosa piů seccante č che non si possano creare chiavi di registro personalizzate in fase
d'installazione.
Ciao, warp


title: creare copie di backup da codice

text:
Buon giorno a tutti e Buona Madonna, vorrei porre un problema al NS
sperando di trovare la soluzione adeguata, avrei necessità di creare
dal frontend di un db le copie di backup del backend ho provato a farlo
con il transfer database ma mi crea il backup delle tabelle collegate
...sapreste aiutarmi per favore?
Grazie anticipatamente a tutti quelli che mi daranno una mano
cordialmente
Diego


title: creare copie di backup da codice

author: Brown

text:
diegoci...@hotmail.com
 ha scritto:

come intendi fare backup ?
copiare tutto il file mdb BE e creare un nuovo file BE_backup.mdb oppure
copiare solo le tabelle del BE nel FE ??
ciao
-Brown-


title: creare copie di backup da codice

text:
"diegocicirello" <
diegoci...@hotmail.com
> wrote in message
news:1134047635.8...@g49g2000cwa.googlegroups.com

Per fare un BCK ti basta aprire una maschera non associata, o
preoccuparti di non avere nessun Dataset aperto con il BE, quindi
non fai altro che usare la funzione FileCopy, nel caso tu voglia
copiarlo e poi cancellare dall'originale i dati, la funzione Name
nel caso la tua gestione sia di avere in una Folder un BE vergine
da usare come Base per il nuovo anno..!
A quel punto sposti il BE(rinominandolo ma lasciando l'estensione)
in una Folder_Storico, fai una copia del BE(Vergine) nella Folder
AnnoCorrente ed hai finito....!
Ovviamente occorre prevedere una gestione dei BCK.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: creare copie di backup da codice

text:
no Brown vorrei copiare solo il backend a parte magari in una cartella
a se stante tipo "cartella storico"


title: creare copie di backup da codice

text:
grazie per la dritta alessandro vedro' di riuscire a combinare
qualcosa!
ciao Diego


title: creare copie di backup da codice

text:
anche se a dirla tutta, alessandro, mi interesserebbe principalmente
salvare giornalmente il backend dal momento che si presume che ogni
giorni ci siano state effettuate delle modifiche e lasciare il backend
originale collegato al frontend


title: creare copie di backup da codice

text:
"diegocicirello" <
diegoci...@hotmail.com
> wrote in message
news:1134051026.6...@g14g2000cwa.googlegroups.com

Pensavo ad un discorso annuale di storicizzazione....!
Allora devi predisporre una Folder BCK, e sovrascrivere il BE
facendo un FileCopy, ricorda di farlo dopo aver sconnesso tutti
i Dataset, e nel caso di Multiutenza è un pò più problematico.
Io sinceramente se fosse possibile scriverei uno script in VBS
e lo farei eseguire come TaskScheduled alla mezzanotte(sempre che
l'applicativo non venga usato anche di notte), sono 2 righe di codice
e ti basta impostare l'esecuzione quotidiana dello Scheduled.



title: creare copie di backup da codice

author: Carlo Costarella

text:
<
diegoci...@hotmail.com
> ha scritto nel messaggio
news:1134047635.8...@g49g2000cwa.googlegroups.com...


cordialmente
Diego
Ciao Diego
forse questa procedura che ti posto potrebbe fare al caso tuo:
utilizzo una soluzione che si serve di comandi dos (un file .bat) creata "on
the fly" che permette di creare una cartella e di copiarvi dentro un
database.
in una routine:
Dim ret
ret = Shell(CreaFileBat, vbHide)
Private Function CreaFileBat() As String
Dim MioCarattere As String, MiaFrase As String
MioNomeFile = MiaDir & "\FineAnno" & Year(Date) & ".bat"
Open MioNomeFile For Output As #1
Print #1, "c:" & vbCr
Print #1, "CD\" & vbCr
Print #1, "CD TuaCartellaDiLavoroConDBFE" & vbCr
Print #1, "MD " & Year(Date) & vbCr
Print #1, "COPY NomeDbBE.mdb C:\TuaCartella\" & Year(Date) & "\NomeDbBE.mdb"
& vbCr
Print #1, "EXIT" & vbCr
Close #1
CreaFileBat = MioNomeFile
End Function
MiaDir è una variabile stringa che mi restituisce il percorso del BE. Per
fare questo tutto dipende da come la vuoi ricavare. Qualche post più in alto
Alex ha proposto una soluzione facile ed elegante.
In pratica la funzione crea al volo un file di testo con tutte le istruzioni
da eseguire, gli da una estensione.bat e lo salva nella cartella di lavoro
del db in uso. Shell esegue il file .bat appena creato, in modo invisibile.
Ovviamente possono esserci altre strade...
Ciao, Carlo


title: Intestazione di pagina in sottomaschera

author: Giulio Severini

text:
Hocreato una sottomaschera con le intestazioni e i piè di pagina ma
quando vado ad aprire la form principale non me le visualizza, mi
visualizza solo il corpo. Come devo fare?
Grazie.


title: Intestazione di pagina in sottomaschera

author: Gaspare

text:
[CUT]
Sottomaschera visualizzazione "foglio dati" -> ci ho azzeccato?
Alla prossima
Notte :-)
Gaspare
P.S. grazie per il db...cosa ne devo fare? non utilizzo mai codice degli
altri...


title: Intestazione di pagina in sottomaschera

text:
>quando vado ad aprire la form principale non me le >visualizza, mi
>visualizza solo il corpo. Come devo fare?
Fammi indovinare -> è una sotto-maschera visualizzazione righe...vero?


title: Intestazione di pagina in sottomaschera

text:
[CUT]
>quando vado ad aprire la form principale non me le >visualizza, mi
>visualizza solo il corpo. Come devo fare?
Ciao,
immagino già cosa hai combinato...prova a vedere se hai fatto andare fuori
dai margini intestazione e piè di pagina ;-)


title: Intestazione di pagina in sottomaschera

text:
RISOLTO - Basta inserire 'Intestazione e piè di MASCHERA' invece che
di PAGINA.


title: Ado e stored procedure progetto ADP

author: Francesco

text:
Ho la necessità di richiamare tramite ADO una Stored Procedure
Dinamica, che ha un parametro di Input e due di OUTPUT.
Ho provato a fare così, ma non mi ritorna niente.
ALTER PROCEDURE sp_EstraiDati (
@sCodiceCliente Int,
@sNumeroVisite int OUTPUT,
@sTotalePagato int OUTPUT)
AS
SELECT @sSQL = ' SELECT  @SommaImporto =  SUM(ImportoVisita),
@nNumeroVisite = Count(*)  FROM  [dbo].[TabVisite]               WHERE
  (CodiceCliente = ''' + CONVERT(VARCHAR, @sCodiceCliente) + ''')'
EXEC @sSQL
RETURN
E questa è la funzione di richiamo:
Private Sub FormLancia()
Set cmd = New ADODB.Command
With cmd
   .Name = "Visite"
   .CommandText = "sp_EstraiDati"
   .CommandType = adCmdStoredProc
   .NamedParameters = True
   .Parameters.Append .CreateParameter("@sCodiceCliente", adInteger,
adParamInput,,2)
   .Parameters.Append .CreateParameter("@sNumeroVisite", adInteger,
adParamOutput)
   .Parameters.Append .CreateParameter("@sTotaleVisite", adInteger,
adParamOutput)
   .ActiveConnection = CurrentProject.Connection
End With
cmd.Execute , , adExecuteNoRecords
SommaSconto = cmd("@sNumeroVisite")
SommaIva = cmd("@sTotaleVisite")
End Sub
Dove sbaglio ??
Grazie.


title: Ado e stored procedure progetto ADP

author: Ungi

text:
"Francesco" <
francov...@tin.it
> ha scritto nel messaggio
news:79217c6f.04092...@posting.google.com...

Ho dato una velocissima occhiata al codice.
Prima di eseguire la stored dovresti dare un valore al parametro
@sCodiceCliente in questo modo:
Cmd.Parameters("@sCodiceCliente").Value = nnn
Fai una prima prova e vediamo
Ungi


title: Ado e stored procedure progetto ADP

author: giorgio rancati

text:
"Francesco" <
francov...@tin.it
> ha scritto nel messaggio
news:79217c6f.04092...@posting.google.com...

Ciao Francesco,
L'Sql dinamico eseguito con la EXE non vede le variabili dichiarate nella
Sp.
Prova così
--------------------
ALTER PROCEDURE sp_EstraiDati (
@sCodiceCliente Int,
@sNumeroVisite int OUTPUT,
@sTotalePagato int OUTPUT)
AS
SELECT  @SommaImporto =  SUM(ImportoVisita),
        @nNumeroVisite = Count(*)
FROM  [dbo].[TabVisite]
WHERE CodiceCliente = @sCodiceCliente
RETURN
----------------------
Perchè converti in Varchar  @sCodiceCliente ?
Ciao Giorgio


title: Ado e stored procedure progetto ADP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message news:<cjf284$m30$
1...@lacerta.tiscalinet.it
>...

La Stored Procedure così come l'hai impostata l'avevo già verificata è
mi funziona.
Ho il problema di rendere dinamica la Stored per avere più flessibità
in determinate condizioni, e anche per capire le potenzialità
dell'oggetto.
In pratica quella che mi hai esposto, deve diventare dinamica. E'
possibile ?
Grazie.


title: Ado e stored procedure progetto ADP

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message news:<cjhupn$r9v$
1...@lacerta.tiscalinet.it
>...
> "Francesco" <
francov...@tin.it
> ha scritto nel messaggio
> news:79217c6f.04093...@posting.google.com...
> > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
>  news:<cjf284$m30$
1...@lacerta.tiscalinet.it
>...
> > > "Francesco" <
francov...@tin.it
> ha scritto nel messaggio
> > > news:79217c6f.04092...@posting.google.com...
>  [CUT]
> > La Stored Procedure così come l'hai impostata l'avevo già verificata è
> > mi funziona.
> > Ho il problema di rendere dinamica la Stored per avere più flessibità
> > in determinate condizioni, e anche per capire le potenzialità
> > dell'oggetto.
> >
> > In pratica quella che mi hai esposto, deve diventare dinamica. E'
> > possibile ?
> > Grazie.
>
> Ciao,
> si è possibile utilizzando la Stored procedure sp_executesql
> es..
> -------------------------------------------
> ALTER PROCEDURE sp_EstraiDati (
> @sCodiceCliente Int,
> @sNumeroVisite int OUTPUT,
> @sTotalePagato int OUTPUT)
>
> AS
>
> DECLARE @SQLString NVARCHAR(500)
> DECLARE @ParmDefinition NVARCHAR(500)
>
>
> SET @SQLString=
>     N'SELECT  @sTotPagato =  SUM(ImportoVisita),
>               @nNrVisite = Count(*)
>       FROM    [dbo].[TabVisite]
>       WHERE   CodiceCliente = @sCodCli'
>
> SET @ParmDefinition=
>     N'@sCodCli int ,
>       @sTotPagato numeric(18,2) OUTPUT ,
>       @nNrVisite int OUTPUT'
>
> EXECUTE sp_executesql @SQLString, @ParmDefinition,
>                       @sCodCli = @sCodiceCliente,
>                       @sTotPagato=@sTotalePagato OUTPUT,
>                       @nNrVisite=@sNumeroVisite OUTPUT
>
>
> RETURN
> -----------------------
>
>
> Ciao Giorgio
Funziona.Grazie
Vorrei sapere alcune cose:
perchè hai usato N'
perche hai usato nVarChar e non varchar
e per ultimo,come fare per inserire al tuo esempio un parametro di
input del nome della tabella ?
Ciao.


title: Ado e stored procedure progetto ADP

text:
"Francesco" <
francov...@tin.it
> ha scritto nel messaggio
news:79217c6f.04100...@posting.google.com...
> "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in message
news:<cjhupn$r9v$
1...@lacerta.tiscalinet.it
>...
> > "Francesco" <
francov...@tin.it
> ha scritto nel messaggio
> > news:79217c6f.04093...@posting.google.com...
> > > "giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> wrote in
message
> >  news:<cjf284$m30$
1...@lacerta.tiscalinet.it
>...
> > > > "Francesco" <
francov...@tin.it
> ha scritto nel messaggio
> > > > news:79217c6f.04092...@posting.google.com...
> >  [CUT]
[CUT]
>
> Funziona.Grazie
>
> Vorrei sapere alcune cose:
> perchè hai usato N'
> perche hai usato nVarChar e non varchar
i parametri della sp_executesql  devono essere costanti unicode quindi
nVarchar, la N davanti alla stringa indica che il suo contenuto è unicode.
Per maggiori informazioni cerca sp_executesql dal manuale in linea
scaricabile nella lingua che vuoi da
---------------
SQL Server 2000 Books Online (Updated 2004)
http://www.microsoft.com/sql/techinfo/productdoc/2000/books.asp
--------------
> e per ultimo,come fare per inserire al tuo esempio un parametro di
> input del nome della tabella ?
be, questo è semplice dai
-------------------------------
ALTER PROCEDURE sp_EstraiDati (
@sCodiceCliente Int,
@sNomeTabella nVarchar(100),
@sNumeroVisite int OUTPUT,
@sTotalePagato int OUTPUT)
AS
DECLARE @SQLString NVARCHAR(500)
DECLARE @ParmDefinition NVARCHAR(500)
SET @SQLString=
    N'SELECT  @sTotPagato =  SUM(ImportoVisita),
              @nNrVisite = Count(*)
      FROM    '+@sNomeTabella+'
      WHERE   CodiceCliente = @sCodCli'
SET @ParmDefinition=
    N'@sCodCli int ,
      @sTotPagato numeric(18,2) OUTPUT ,
      @nNrVisite int OUTPUT'
EXECUTE sp_executesql @SQLString, @ParmDefinition,
                      @sCodCli = @sCodiceCliente,
                      @sTotPagato=@sTotalePagato OUTPUT,
                      @nNrVisite=@sNumeroVisite OUTPUT
RETURN
-----------------------------
Ciao Giorgio


title: bypass shift key e password database

author: Ascorbic

text:
Salve a tutti.
Ho scaricato dal sito comune il file bypasskey che permette di
bypassare il tasto shift all'avviamento del db (lo rende
inefficiente). Ora dovrei far girare questa semplice funzione su un db
che ha la password... alla riga segnalata con <<######## mi torna un
errore 3103 - password errata... ma come devo fornire la password alla
funzione? grazie a tutti
--------------------------------------------
Public Function BypassKey(bolVal As Boolean, Optional strMdb As
String) As Boolean
'Autore: Federico Luciani dal sito comune del newsgroup di
it.comp.app.access
'Accetta:
'bolVal = True: abilita; False: disabilita
'strMdb = [Opz.] percorso+nome del database
'Restituisce: True l'operazione e' stata eseguita correttamente
On Error GoTo bypass_Err
    Dim wrk As Workspace
    Dim dbs As Database
    Set wrk = DBEngine.Workspaces(0)
    If strMdb = "" Then
        Set dbs = CurrentDb()
    Else
        Set dbs = wrk.OpenDatabase(strMdb)  <<########
    End If
    dbs.Properties("AllowBypassKey") = bolVal
    BypassKey = True
    Set dbs = Nothing
    Set wrk = Nothing
    Exit Function
bypass_Err:
    If Err = 3270 Then
        Dim prp As Property
        Set prp = dbs.CreateProperty("AllowBypassKey", dbBoolean,
True)
        dbs.Properties.Append prp
        Resume
    Else
        BypassKey = False
    End If
End Function
---------------------------------------
ciao.


title: bypass shift key e password database

author: Alessandro Baraldi

text:
"Ascorbic" <
portaz_...@hotmail.com
> wrote in message
news:eh1ds1pm6ll5578ll...@4ax.com
> Salve a tutti.
>
> Ho scaricato dal sito comune il file bypasskey che permette di
> bypassare il tasto shift all'avviamento del db (lo rende
> inefficiente). Ora dovrei far girare questa semplice funzione su un db
> che ha la password... alla riga segnalata con <<######## mi torna un
> errore 3103 - password errata... ma come devo fornire la password alla
> funzione? grazie a tutti
>
[CUT]
>
>
> ciao.
Ovviamente se il DB è protetto da PWD devi passargliela.
Nel metodo OpenDatabase il 3° parametro è la Password:
Set db = acc.DBEngine.OpenDatabase(strDb, False, False, strPWD)
Per chiarezza dai un'occhiata al Demo di Karl:
6.19 Passare la password del database
http://www.donkarl.com/it/
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: bypass shift key e password database

text:
On Thu, 12 Jan 2006 16:47:32 +0000 (UTC), "Alessandro Baraldi"
<
ik2...@libero.it
> wrote:
>"Ascorbic" <
portaz_...@hotmail.com
> wrote in message
>
news:eh1ds1pm6ll5578ll...@4ax.com
>
>> Salve a tutti.
>>
>> Ho scaricato dal sito comune il file bypasskey che permette di
>> bypassare il tasto shift all'avviamento del db (lo rende
>> inefficiente). Ora dovrei far girare questa semplice funzione su un db
>> che ha la password... alla riga segnalata con <<######## mi torna un
>> errore 3103 - password errata... ma come devo fornire la password alla
>> funzione? grazie a tutti
>>
>[CUT]
>>
>>
>> ciao.
>
>
>Ovviamente se il DB è protetto da PWD devi passargliela.
>
>Nel metodo OpenDatabase il 3° parametro è la Password:
>
>Set db = acc.DBEngine.OpenDatabase(strDb, False, False, strPWD)
giusto, grazie.
>
>Per chiarezza dai un'occhiata al Demo di Karl:
>
>6.19 Passare la password del database
>
http://www.donkarl.com/it/
>
>Ciao
>@Alex
ciao.


title: Access e MySql

author: Alessandro

text:
Sto usando MSaccess97 come frontend e MySql come server e mi succede una
cosa strana.
Quando inserisco dei dati mi compare la scritta #Cancellato# o #Deleted# mi
pare di aver letto da qualche parte che č un problema conosciuto, ma non so
se si puo' risolvere.
C'é qualcuno che mi puo' aiutare?
Grazie Alessandro


title: Valori duplicati nel report

author: pippo

text:
Ho realizzato un report che si poggia su una query per la selezione dei
primi 4 valori di una tabella
a questo punto il report stampa 4 volte il primo valore, 4 volte ilsecondo 4
il terzo e 4 il quarto
vorrei che stampasse ogni valore una sola volta .. come risolvere?


title: Valori duplicati nel report

author: Sergio MAZZA

text:
"pippo" <
pi...@pippo.it
> ha scritto nel messaggio news:M7XTe.28713$O6.18...@news3.tin.it...
> Ho realizzato un report che si poggia su una query per la selezione dei primi 4 valori di una tabella
>
> a questo punto il report stampa 4 volte il primo valore, 4 volte ilsecondo 4 il terzo e 4 il quarto
>
> vorrei che stampasse ogni valore una sola volta .. come risolvere?
>
Fai un raggruppamento su quel campo...
Ciao.
--
Sergio MAZZA


title: eliminare record doppi

author: Zef

text:
ciao a tutti,
ho una tabella articoli con n record codificati (ID_CodArt)
il problema č che alcuni record sono duplicati
e quindi non posso inserire una chiave primaria
oltre al problema piů grave di avere codici duplicati
come posso eliminare i record con ID doppio
lasciando ovviamente il primo a caso?
i record sono centinaia....
grazie
Zef


title: eliminare record doppi

author: ALESSANDRO Baraldi

text:
"Zef" <
zefbo...@libero.it
> ha scritto nel messaggio
news:mkhf70tfm80iq2ima...@4ax.com...

L'autocomposizione ti aiuta rendendoti disponibile un Wizzard per
creare una Query di Ricerca Duplicati.
Con questa Query poi fai una Qry di Eliminazione.
P.S. Fatti copia della Tabella nel caso sbagliassi qualche operazione.
@Alex.


title: eliminare record doppi

text:
>> come posso eliminare i record con ID doppio
>> lasciando ovviamente il primo a caso?
>> i record sono centinaia....
>
>L'autocomposizione ti aiuta rendendoti disponibile un Wizzard per
>creare una Query di Ricerca Duplicati.
>Con questa Query poi fai una Qry di Eliminazione.
vedo solo ora ... causa ponte Pasquale ...
grazie della dritta, non ci avevo proprio pensato,
ciao, Zef


title: Tabelle collegate

author: Enrico Cannoni

text:
E' possibile creare tabelle collegate con percorsi relativi anzichè
assoluti. Possibilmente senza codice VBA.
Grazie e ciao Enrico


title: Tabelle collegate

author: Antonio Biso

text:
"Enrico Cannoni" <
mal...@libero.it
> ha scritto nel messaggio
news:1JJm9.41516$Eu.9...@twister1.libero.it...
> E' possibile creare tabelle collegate con percorsi relativi anzichč
> assoluti. Possibilmente senza codice VBA.
Tua definizione di percorsi relativi ed assoluti!
Antonio


title: Tabelle collegate

author: SimonenomiS

text:
"Enrico Cannoni" <
mal...@libero.it
> wrote in news:1JJm9.41516$Eu.939747
@
twister1.libero.it
:
> E' possibile creare tabelle collegate con percorsi relativi anzichè
> assoluti. Possibilmente senza codice VBA.
  Se con 'relativi' intendi 'relativi alla posizione del front end' allora
la cosa è fattibile.
  Se con  'Possibilmente senza codice VBA' intendi dire che non conosci VBA
e che non intendi imparare ad usarlo allora la cosa non è fattibile. ;-) In
caso contrario ti basta modificare un poco - o forse potrebbe andarti già
bene così - la routine che trovi nel sito comune
(
http://www.sitocomune.com/
 , Sezione Tables: Riallegare tabelle...).
  Ciao.
--
http://digilander.libero.it/winses


title: Tabelle collegate

text:
POnendo il file interfaccia e quello con le tabelle all'interno della stessa
cartella, ad esempio Pippo, a sua volta i C il percorso assoluto è
C:\Pippo\Tabelle.mdb e se sposto la cartella pippo nel disco D non funziona
più il collegamento. Per relativo intendo che il file Interfaccia.mdb e
Tabelle.mdb devono essere dentro la stessa cartella, indifferentemente che
io le sposti in C o in D.
Grazie e ciao
"Enrico Cannoni" <
mal...@libero.it
> ha scritto nel messaggio
news:1JJm9.41516$Eu.9...@twister1.libero.it...



title: Tabelle collegate

author: Emyr

text:
On Thu, 03 Oct 2002 20:50:49 GMT, "Enrico Cannoni" <
mal...@libero.it
>
wrote:
>POnendo il file interfaccia e quello con le tabelle all'interno della stessa
>cartella, ad esempio Pippo, a sua volta i C il percorso assoluto č
>C:\Pippo\Tabelle.mdb e se sposto la cartella pippo nel disco D non funziona
>piů il collegamento. Per relativo intendo che il file Interfaccia.mdb e
>Tabelle.mdb devono essere dentro la stessa cartella, indifferentemente che
>io le sposti in C o in D.
>Grazie e ciao
>
>"Enrico Cannoni" <
mal...@libero.it
> ha scritto nel messaggio
>news:1JJm9.41516$Eu.9...@twister1.libero.it...
>> E' possibile creare tabelle collegate con percorsi relativi anzichč
>> assoluti. Possibilmente senza codice VBA.
>> Grazie e ciao Enrico
>>
>>
>
' ricollega le tabelle su evento open della maschera solo se una
tabella non trova il riferimento al db ancora valido
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
On Error GoTo errore
Set rs = db.OpenRecordset("SELECT * FROM Ditta")
rs.Close
Set db = Nothing
Exit Sub
errore:
Dim strpath As String
strpath = Application.CurrentProject.Path & "\Dati" &
Application.CurrentProject.name
Dim tabelle As TableDef
On Error Resume Next ' in caso di errori continua
For Each tabelle In db.TableDefs ' scorre le tabelle dell'archivio
    If tabelle.Connect <> "" Then
        tabelle.Connect = ";DATABASE=" & strpath  ' se la tabella č
esterna la ricollega al file indicato
        tabelle.RefreshLink
    End If
Next
Set db = Nothing
Saluti.
Emanuele.


title: conteggio parole

author: Massimo

text:
Sale ragazi avrei bisogno di una funzione che mi facesse il conteggio delle
parole. Esiste?
Esempio:
Se nel campo COLLOCAZIONE inserisco "sss" vorrei che nel campo affianco mi
venisse fuori 3
COLLOCAZIONE                   TOTALE
sss                                                      3
ss                                                        2
s                                                          1
ssss                                                      4
Si può fare?
Grazie a tutti


title: conteggio parole

text:
"Massimo" <
m.rom...@tiscali.it
> ha scritto nel messaggio
news:fse8c.117063$O31.5...@news4.tin.it...

C'é la funzione Len (vedi help) ma ti conta i caratteri, spazi e
punteggiatura compresi...
Ciao.
--
Sergio MAZZA


title: conteggio parole

text:
"Massimo" <
m.rom...@tiscali.it
> ha scritto nel messaggio
news:fse8c.117063$O31.5...@news4.tin.it...
> Sale ragazi avrei bisogno di una funzione che mi facesse il conteggio
delle
> parole. Esiste?
> Esempio:
> Se nel campo COLLOCAZIONE inserisco "sss" vorrei che nel campo affianco mi
> venisse fuori 3
E allora vuoi contare le lettere, non le parole!!!
Antonio


title: conteggio parole

author: knives

text:
"Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
news:TTf8c.86613$Kc3.2...@twister2.libero.it...

Salve e scusate se non mi faccio i bellini miei!
e se davvero volessimo contare le parole? c'è una funzione o dovremmo
inventarci cose tipo conta " "?
ciao


title: conteggio parole

text:
"knives" <x@x.x> ha scritto nel messaggio
news:RRm8c.97698$z23.4...@news3.tin.it...
>
> > E allora vuoi contare le lettere, non le parole!!!
> >
> > Antonio
> >
> >
> Salve e scusate se non mi faccio i bellini miei!
> e se davvero volessimo contare le parole? c'è una funzione o dovremmo
> inventarci cose tipo conta " "?
Mi pare, ma non sono sicuro, che ci sia qualcosa dal A2000 in poi, oppure
c'è qualcosa sul sitocomune...
Antonio


title: conteggio parole

author: Claudio(BS)

text:
Antonio Biso ha scritto:
[CUT
]
>
>
> Mi pare, ma non sono sicuro, che ci sia qualcosa dal A2000 in poi, oppure
> c'è qualcosa sul sitocomune...
>
Tempo fa mi ero scritto una funzioncina che faceva proprio quello (tipo
il tokenize del C).
Se a qualcuno interessa la vado a cercare e la posto qui.
byez
--
Claudio(BS)
per rispondere aggiungi claudio


title: conteggio parole

text:
oK GRAZIE proprio questo cercavo. Intendevo lettere e non parole.
Grazie.
Ma in access come si cercano tutte le funzioni che ci sono, dove sono
elencate?
--
Cordiali Saluti
Massimo Romanello (Reparto Tecnico)
www.web4u.it
"Sergio MAZZA" <
sergi...@tiscalinet.it
> ha scritto nel messaggio
news:c3rsej$loh$1...@canarie.caspur.it...



title: conteggio parole

author: Popi

text:
"knives" <x@x.x> wrote in message news:<RRm8c.97698$
z23.4...@news3.tin.it
>...
> "Antonio Biso" <
ch...@etruria.net
> ha scritto nel messaggio
cut
> Salve e scusate se non mi faccio i bellini miei!
> e se davvero volessimo contare le parole? c'è una funzione o dovremmo
> inventarci cose tipo conta " "?
Beh, se nel linguaggio che usi
non è previsto un qualcosa che
ti serve tu che fai? Rinunci o
ti rimbocchi le maniche?
Public Function ContaParole(Testo As String) As Integer
    Dim ParoleContate As Integer

    ParoleContate = 0
    While (Testo > "")
        Testo = LTrim(RTrim(Right$(LTrim(RTrim(Testo)) & " ",
Len(LTrim(RTrim(Testo)) & " ") - InStr(LTrim(RTrim(Testo)) & " ", "
"))))
        ParoleContate = ParoleContate + 1
    Wend

    ContaParole = ParoleContate

End Function
       Popi
¥ The Bad Habits ¥

rlu...@yahoo.com


title: conteggio parole

text:
"Massimo" <
m.rom...@tiscali.it
> ha scritto nel messaggio
news:buz8c.123494$O31.5...@news4.tin.it...
> oK GRAZIE proprio questo cercavo. Intendevo lettere e non parole.
> Grazie.
> Ma in access come si cercano tutte le funzioni che ci sono, dove sono
> elencate?
>
> --
>
Per favore (una regola di questo NG) scrivi alla fine del messaggio, come
faccio io; grazie.
Trovi tutto nell'help in linea (F1)...
Ciao.
--
Sergio MAZZA


title: barra dei menu personalizzata sparita come farla tornare?

text:
Mi sapete dire come posso far tornare una barra dei menu personalizzata che
è sparita e non si sà dove sia finita per un computer con installato il
runtime di access?
Grazie.


title: Controllo sequenza contatore

author: Robibg

text:
ho impostato un campo contatore autoincrementante, se cancello un
record ovviamene il  numero associato a quel campo non e' piu'
utilizzato.
A me servirebbe avere alla fine una sequenza es. da 1 a 10 con tutti i
valori. se cancello il 2 ad es. non posso avere 1 ..3.4.5.6.7.8.9.10.11
come faccio alla fine dell'inserimento ad avvisare l'utente che manca
il valore 2 ed in gen altri tipi di valori che non sono in sequenza da
1 a n?


title: Controllo sequenza contatore

author: PBsoft

text:
> ho impostato un campo contatore autoincrementante, se cancello un
> record ovviamene il  numero associato a quel campo non e' piu'
> utilizzato.
Diciamo che non hai avuto modo di verificare che fosse utilizzato di nuovo,
visto che si tratta di un tipo Long e che, prima di tutto incrementa da 1
al valore massimo per il tipo, poi fa lo stesso con i negativi, partendo
dal -1 e decrementando ogni volta.
Se hai idea di quale sia il range di valori rappresentabili con un long,
allora capirai che difficilmente ti capiterà di vedere un valore cancellato
e poi riutilizzato.
> A me servirebbe avere alla fine una sequenza es. da 1 a 10 con tutti i
> valori. se cancello il 2 ad es. non posso avere 1
> ..3.4.5.6.7.8.9.10.11
> come faccio alla fine dell'inserimento ad avvisare l'utente che manca
> il valore 2 ed in gen altri tipi di valori che non sono in sequenza da
> 1 a n?
Non devi utilizzare il tipo contatore di Access. Quello non serve per quello
che vuoi ottenere tu.
A te serve un campo di tipo Long da gestire tramite codice VBA.
Per evitare i "buchi" nella numerazione puoi gestire il tutto da VBA, ma,
prima di consigliarti su come fare ad avvisare l'utente della presenza di
tali "buchi", mi viene da pensare se sia il caso di avvisare l'utente o,
piuttosto, di riparare tacitamente. Difficile dirlo senza sapere qual'è il
tuo problema specifico.
===
"Liberalizziamo l'elenco dei CAP"
http://www.petitiononline.com/freecap/petition.html
===
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution


title: Query particolare (campo contenente caratteri maiuscoli)

text:
Salve a tutti.
Ho una tabella con 3 campi :
Nome , Cognome , Ind_email
Da tale tabella dovrei estrapolare , dal campo Ind_email , tutti gli
indirizzi di posta digitati in maiuscolo.
In sostanza dovrei poter essee in grado di ottenere un output del
tipo :
Nome           Cognome            Ind_email
Giorgio         Gialli                   Giorgio...@posta.dominio
Carla            Blu                     cArl...@posta.dominio
In pratica tutti quei records il cui campo Ind_email contiene almeno
un indirizzo di posta con anche solo un carattere maiuscolo oppure
tutti maiuscoli.
Spero di essermi spiegato ( forse male , spero di no :-)  )
Grazie in anticipo .


author: Carlo Costarella

text:
<
n...@operamail.com
> ha scritto nel messaggio
news:69de0ce3-08ff-46a1...@t7g2000yqa.googlegroups.com...

Se la finalità è quella di riportare in minuscolo tutta la stringa ti basta:
in una query
LCase([TuoCampoTesto])
Ciao, Carlo


text:
On 17 Mar, 07:35, "Carlo Costarella" <
carlocoslib...@libero.it
> wrote:
> <
n...@operamail.com
> ha scritto nel messaggionews:69de0ce3-08ff-46a1...@t7g2000yqa.googlegroups.com...
>
>
>
>
>
> > Salve a tutti.
> > Ho una tabella con 3 campi :
> > Nome , Cognome , Ind_email
>
> > Da tale tabella dovrei estrapolare , dal campo Ind_email , tutti gli
> > indirizzi di posta digitati in maiuscolo.
>
> > In sostanza dovrei poter essee in grado di ottenere un output del
> > tipo :
>
> > Nome           Cognome            Ind_email
> > Giorgio         Gialli                   Giorgio.GIA...@posta.dominio
> > Carla            Blu                     cArla....@posta.dominio
>
> > In pratica tutti quei records il cui campo Ind_email contiene almeno
> > un indirizzo di posta con anche solo un carattere maiuscolo oppure
> > tutti maiuscoli.
>
> > Spero di essermi spiegato ( forse male , spero di no :-)  )
>
> > Grazie in anticipo .
>
> Se la finalità è quella di riportare in minuscolo tutta la stringa ti basta:
> in una query
> LCase([TuoCampoTesto])
>
> Ciao, Carlo- Nascondi testo citato
>
> - Mostra testo citato -
Grazie per la risposta.
La finalità e' quella di trovare tutti gli indirizzi digitati in
maiuscolo ( facenti parte del campo Ind_email ) non ho necessità di
convertirli.
E' possibile ?
Grazie di nuovo


author: Karl Donaubauer

text:
n...@operamail.com
 wrote:
> Ho una tabella con 3 campi :
> Nome , Cognome , Ind_email
>
> Da tale tabella dovrei estrapolare , dal campo Ind_email , tutti gli
> indirizzi di posta digitati in maiuscolo.
>
> In sostanza dovrei poter essee in grado di ottenere un output del
> tipo :
>
> Nome           Cognome            Ind_email
> Giorgio         Gialli                   Giorgio...@posta.dominio
> Carla            Blu                     cArl...@posta.dominio
>
> In pratica tutti quei records il cui campo Ind_email contiene almeno
> un indirizzo di posta con anche solo un carattere maiuscolo oppure
> tutti maiuscoli.
Nella query crea un campo calcolato:
StrComp(LCase([Ind_email]);[Ind_email];0)
con criterio:
1
--
HTH
Karl
*********
Access FAQ:
www.donkarl.com/it


text:
On 17 Mar, 09:21, "Karl Donaubauer" <
NoS...@donkarl.com
> wrote:
>
n...@operamail.com
 wrote:
> > Ho una tabella con 3 campi :
> > Nome , Cognome , Ind_email
>
> > Da tale tabella dovrei estrapolare , dal campo Ind_email , tutti gli
> > indirizzi di posta digitati in maiuscolo.
>
> > In sostanza dovrei poter essee in grado di ottenere un output del
> > tipo :
>
> > Nome           Cognome            Ind_email
> > Giorgio         Gialli                   Giorgio.GIA...@posta.dominio
> > Carla            Blu                     cArla....@posta.dominio
>
> > In pratica tutti quei records il cui campo Ind_email contiene almeno
> > un indirizzo di posta con anche solo un carattere maiuscolo oppure
> > tutti maiuscoli.
>
> Nella query crea un campo calcolato:
>
> StrComp(LCase([Ind_email]);[Ind_email];0)
>
> con criterio:
>
> 1
>
> --
> HTH
> Karl
> *********
> Access FAQ:
www.donkarl.com/it-
 Nascondi testo citato
>
> - Mostra testo citato -
E' proprio cio' che volevo.
Grazie molte


title: aggiornare tabella da maschera

text:
una maschera mi apre una query di selezione da Tabella1.
Tramite un tasto vorrei aprire una nuova maschera relativa a Tabella2
in cui alcuni dati provengano dal record scelto ed altri sono da
completare a mano.
Non riesco a trovare il modo di inserire "automaticamente" i dati dei
campi già noti.
Dove devo smanettare?
Grazie in anticipo

--
ciao
Stefano


title: aggiornare tabella da maschera

author: MA

text:
"stef@no"  ha scritto nel messaggio
news:mn.e3217dbb24...@libero.it...

_______Risposta:

Dim F1 as access.Form
Dim F2 as access.Form

Set F1 = Forms("Form1")
Set F2 = Forms("Form2")

F2!testo1 = f1!testo1
F2!testo2 = f1!testo2

MA


title: aggiornare tabella da maschera

text:
> _______Risposta:
>
> Dim F1 as access.Form
> Dim F2 as access.Form
>
> Set F1 = Forms("Form1")
> Set F2 = Forms("Form2")
>
>
> F2!testo1 = f1!testo1
> F2!testo2 = f1!testo2
>
> MA

chiarissimo, funziona (ovviamente)!
A vantaggio di quelli a cui spero questo thread possa essere utile
aggiungo che Form2 deve essere aperta prima dell'inserimento altrimenti
verrà generato il messaggio "Impossibile trovare la maschera 'Form2' a
cui si fa riferimento nel codice di Visual Basic."
Grazie infinite.

--
ciao
Stefano


title: Argomento

author: mayfly

text:
Ma di che tratta questo NG?
Access?
Saluti


title: Argomento

author: Gianni Barberi

text:
no, sono i famosi "programmi dell'accesso" non più sulla RAI
mayfly <
may...@tiscalinet.it
> wrote in message
81kk36$d5b$1...@aquila.tiscalinet.it...



title: definire un RecordsetClone da usare in tutto il modulo della form

author: Arold

text: è possibile ? come devo definirlo? grazie.


author: Roberto dalla campagna

text:
Arold <
simb...@libero.it
> wrote in message
bia8ql$71a$1...@lacerta.tiscalinet.it...
> è possibile ? come devo definirlo? grazie.
Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


author: namor

text:
Arold ha scritto:
> definire un RecordsetClone da usare in tutto il modulo della form
> è possibile ? come devo definirlo? grazie.
Devi dichiarare la variabile (tipo recordset) a livello di modulo, fuori
dalle sub, subito dopo Option Explicit e Option Compare ... (se li hai).
Poi la inizializzi con Set variabile=Me.RecordsetClone quando apri la
maschera, e lo puoi usare in tutte le sub.
Scegli bene l'evento in cui mettere l'inizializzazione, non so se il
RecordsetClone è disponibile in tutti gli eventi che si verificano durante
l'apertura della maschera.
Ricordati di distruggerlo (Set variabile=Nothing) quando chiudi la
maschera.
Namor
--

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


title: Statistica record

author: Ludo

text:
Ciao a tutti,
Ho creato un maschera di inserimento nominativi per città.
In un altra ho creato una maschera continua dove per ogni nominativo
inserito nella maschera di inserimento, si creava automaticamente nella
maschera continua il campo relativo alla citta e accanto quello relativo al
numero di nominativi inseriti per quel tipo di città.
Per quanto riguarda i campi città li inserisce automaticamente, ma appena
muovo la rotella del mouse il primo campo sparisce. Non capisco perchè.
Per quanto riguarda il conteggio sono fermo Non saprei come fare.


title: Statistica record

author: Davide Scilabra

text:
Ludo ha scritto:

Attenzione: muovendo la rotellina si passa al record successivo, il che
rende normale l'improvvisa evaporazione di dati. Per la seconda risposta
lascio campo libero a qualcuno più esperto di me.
Davide


title: Ado Addnew

text:
ciao a tutti i buoni samaritani,

ho due tabelle dai campi infiniti (nel senso di molti campi) aperti con ado
vorrei sapere se esiste un sistema che mi permatta di fare una addnew ed una successiva update dei campi senza doverli citare  uno ad uno del tipo:

rs!1 = ab!1
rs!2 = ab!2

e cosi via

i campi sono veramente tanti (un duecento a tabella) e dai nomi veramente astrusi e rischierei sicuramente, oltre che di farmi venire due attributi grossi, di commettere qualche errore di sintassi.

Insomma esiste un metodo per dire for each del primo rs ponilo uguale a for each del secondo ab e poi .update?

grazie mille a chi mi risponde.


title: Ado Addnew

author: Bruno Campanini

text:
ziob...@gmail.com
 formulated on Thursday :

rs.Edit
For i = 1 to 200
    rs(i) = ab(i)
Next
rs.Update

Coc DAO funziona, e penso anche con ADO.

Bruno


title: Ado Addnew

author: Marco Pizzamiglio

text:
ziob...@gmail.com
 ha scritto:

Quindi devi copiare tutto un record di una tabella in un'altra tabella.
Perchè non usi una query di accodamento?
Ciao.
-Marco-

--

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


title: Ado Addnew

text:

Ciao Bruno,

ora ci provo ma mi sembra cosi semplice che mi sento un pirla se funziona e non ci ho pensato..

ti faccio sapere...

grazie


title: Ado Addnew

text:
Il giorno venerdì 12 luglio 2013 08:13:40 UTC+2, Marco Pizzamiglio ha scritto:
>
ziob...@gmail.com
 ha scritto:
>
>
>
> > ciao a tutti i buoni samaritani,
>
> > ho due tabelle dai campi infiniti (nel senso di molti campi) aperti con
>
> ado
>
> > vorrei sapere se esiste un sistema che mi permatta di fare una addnew ed
>
> una successiva update dei campi senza doverli citare  uno ad uno del tipo:
>
>
>
> > rs!1 = ab!1
>
> > rs!2 = ab!2
>
>
>
> > e cosi via
>
> > i campi sono veramente tanti (un duecento a tabella) e dai nomi veramente
>
> astrusi e rischierei sicuramente, oltre che di farmi venire due attributi
>
> grossi, di commettere qualche errore di sintassi.
>
> > Insomma esiste un metodo per dire for each del primo rs ponilo uguale a
>
> for each del secondo ab e poi .update?
>
> > grazie mille a chi mi risponde.
>
>
>
>
>
> Quindi devi copiare tutto un record di una tabella in un'altra tabella.
>
> Perchï¿½ non usi una query di accodamento?
>
> Ciao.
>
> -Marco-
>
>
>
>
>
> --
>
>
>
> questo articolo e` stato inviato via web dal servizio gratuito
>
>
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it

Ciao,

non posso fare come dici perchè prima devo valutare i due record ed in base ad alcune valutazione decido se scrivere oppure no.

grazie comunque


title: Controllo su un campo data che avvisa se la data è gia' inserita

author: Benny

text:
Buon anno a tutti. Causa crash totale di sistema, ho perso le discussioni
precedenti. Desideravo sapere una cosa:
ho un database per la gestione familiare di 6 camere. con due tabelle
collegate 1 a molti. La prima contiene l'elenco delle camere (6 in tutto),
la seconda i dati delle prenotazioni. La prenotazione avviene inserendo la
data di arrivo (campo data/ora) e quella di partenza. E' possibile
realizzare un controllo grazie al quale, inserendo ad esempio la data di
prenotazione, se questa data è già occupata PER QUELLA CAMERA, mi avvisi in
qualche maniera? Spero di essere stato chiaro :-)) ma se così non fosse,
posso esserlo ancora di più! L'esempio presente sul Sito Comune non si
confà...


author: Roberto da casa

text:
"Benny" <
benn...@tele2.it
> ha scritto nel messaggio
news:T0Twf.293$sK3...@nntpserver.swip.net...

Vai sul Sito Comune (link qui sotto) e nella Sezione General leggi la mia
FAQ intitolata "6.209 In una agenda realizzata con Access verificare che un
nuovo appuntamento non si accavalli con impegni precedenti"; penso che possa
essere utile alla soluzione del tuo propblema: naturalmente va adattata in
quanto verifica che non ci siano accavallamenti di orari per lo stesso
giorno, mentre a te occorre verificare che non ci sino accavallamenti di
date per la stessa camera: il principo è lo stesso (uso di una funzione
DCount) e le modifiche da fare non sono complesse.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: dot matrix printer cpf-136ra!!

author: Gianni

text:
Salve a tutti, chi mi può dare un aiuto!!!
Ho trovato per pochi soldi una stampante ad aghi  Dot Matrix Printer
CPF-136-Ra, ma non conosco il Drive di istallazione visto che la marca non e
decifrabile, c'è qualcuno che ha adoperato questa stampante? C'è qualche
drive compatibile?
Grazie!!!


title: dot matrix printer cpf-136ra!!

author: Paolo

text:
> Ho trovato per pochi soldi una stampante ad aghi  Dot Matrix Printer
> CPF-136-Ra, ma non conosco il Drive di istallazione visto che la marca non
e
> decifrabile, c'č qualcuno che ha adoperato questa stampante?
Cerca info su quella stampante su qualche motore di ricerca, magari usando
anche l'ID FCC, se ce l'ha.
Ciao!
Paolo


title: funzione help..........

author: Fabio

text:
ciao a tutti, ho gia' inviato questo msg ma non ho avuto risposta, cosě ci
riprovo......
non č che qualche anima buona mi invia il file della giuda di A2000,visto
che il mio
stranamente č in inglese????
Grazie a tutti e scusate la ripetizione del msg!!!


title: Imparare access

author: Danbow

text:
Salve a tutti.
qualche tempo fa ho iniziato a lavorare un pò con access e in modo
molto autodidatta, e perciò sicuramente con tanti errori, mi sono
crato alcuni db che mi servono per il mio lavoro; gestione ordini e
clinti, fatture, e via dicendo.
Ho fatto tutto però usando query e macro, mai usato moduli o
linguaggio specifico. Ora mi piacerebbe imparare a fare qualcosa di un
po più complesso e che giri più velocemente;potete consigliarmi
qualche testo o sito o qualcos'altro dove possa trovare informazioni
che mi possano aiutare ad imparare questo?
grazie anticipate per la risposta
Danilo


title: Imparare access

author: leev

text:
Danbow ha scritto:

Io ho access 2000 e ai tempi avevo comprato la guida complete di
Mondadori, che è partner della microsoft, e anche quella di Apogeo.
Adesso, dipende dalla versione di Acess che hai, ma sicuramente di
queste due case editrici trovi dei manuali completi che ti possano
soddisfare.
Ti sconsiglio quei libricini quick start o altre cose del genere.
Senza un aiuto esterno, comunque, non è cosa semplice.
Questo usenet potrà darti una mano quando leggendo e rileggendo i tuoi
testi non troverai comunque risposta alle tue domande. A me è
capitato, e ai tempi, non sapevo quasi neanche cosa fosse internet e
non avevo nessuno a cui rivolgermi. Una tragedia!!!
In bocca al lupo.


title: Imparare access

author: ciroteo

text:
"Danbow" <
thed...@yahoo.it
> ha scritto nel messaggio
news:1160819087....@f16g2000cwb.googlegroups.com...
Salve a tutti.
qualche tempo fa ho iniziato a lavorare un pň con access e in modo
molto autodidatta, e perciň sicuramente con tanti errori, mi sono
crato alcuni db che mi servono per il mio lavoro; gestione ordini e
clinti, fatture, e via dicendo.
Ho fatto tutto perň usando query e macro, mai usato moduli o
linguaggio specifico. Ora mi piacerebbe imparare a fare qualcosa di un
po piů complesso e che giri piů velocemente;potete consigliarmi
qualche testo o sito o qualcos'altro dove possa trovare informazioni
che mi possano aiutare ad imparare questo?
grazie anticipate per la risposta
Danilo
Ma qui!
Intanto benvenuto. Ti posso suggerire di approfondire le tue conoscenze
seguento attivamente il newsgroup, anche le discussioni degli altri
partecipanti possono essere un ottimo sussidio didattico.
Poi non posso evitare di consgliarti  le risorse di questo newsgroup ... il
sito comune , accessgroup e i siti di alcuni guru del gruppo.
www.sitocomune.com
www.accessgroup.it
e i link che trovi in essi!


title: Imparare access

text:
ciroteo (nospam) ha scritto:
> "Danbow" <
thed...@yahoo.it
> ha scritto nel messaggio
[CUT]
> Ora mi piacerebbe imparare a fare qualcosa di un
> po più complesso e che giri più velocemente;potete consigliarmi
> qualche testo o sito o qualcos'altro dove possa trovare informazioni
> che mi possano aiutare ad imparare questo?
>
> grazie anticipate per la risposta
>
> Danilo
>
>
> Ma qui!
> Intanto benvenuto. Ti posso suggerire di approfondire le tue conoscenze
> seguento attivamente il newsgroup, anche le discussioni degli altri
> partecipanti possono essere un ottimo sussidio didattico.
> Poi non posso evitare di consgliarti  le risorse di questo newsgroup ... il
> sito comune , accessgroup e i siti di alcuni guru del gruppo.
I tuoi suggerimenti sono senz'altro validi e li sottoscrivo in pieno,
Ciroteo ma se Danbow è un neofita, come me, e ne ha la possibilità,
meglio che si compra anche un buon testo (almeno uno).
^_*


title: Imparare access

author: Alessandro Cara

text:

beh, anche F1,e alt+F11 ? F1, non e'male
--
ac


title: Imparare access

text:
[CUT]
> >
> beh, anche F1,e alt+F11 ? F1, non e'male
> --
> ac
Azz, questi non li conoso, in che libreria li vendono?
(ghghghghghg)
^___________^


title: Imparare access

text:

Costano un po' cari e li danno a persone conosciute.
Che so, se mi fai un bonifico di un 500 euri posso vedere di farteli avere.
--
ac


title: Imparare access

text:
Alessandro Cara ha scritto:
> Costano un po' cari e li danno a persone conosciute.
> Che so, se mi fai un bonifico di un 500 euri posso vedere di farteli avere.
> --
Azz, questa la vedo adesso, ora capisco..., il collegamento...,
dall'altra parte.....
uhauhahuauhhuhuhua
^__________^
Ri-buona domenica
ore 20.00 SI CHIUDEEEEEEEEEEEEEEEEEEEEEE!!!


title: Imparare access

author: Andrea B

text:
leggi le riviste, tutti i messaggi del gruppo, gli help di access.
qualche buon libro su access e il visual basic prenditelo da internet con
emule
andy
ps.il
 massimo che puo' fare č sbattere sopra la testa alle routine e ai
programmi
solo in qel modo potrai riuscire.


title: Imparare access

text:
Andrea B ha scritto:
> leggi le riviste,
Hai qualche titolo da suggerire? Non sapevo neanche esistessero...
tutti i messaggi del gruppo, gli help di access.
> qualche buon libro su access e il visual basic prenditelo da internet con
> emule

SSSSSSSSSSSSSSSSSSSSS......................
[Cut]
^______^


title: Imparare access

text:
"leev" <
le...@fastwebnet.it
> ha scritto nel messaggio
news:1161013615.9...@m73g2000cwd.googlegroups.com...

istigazione ... al compimento di illeciti ...
mi dissocio!
:-)


title: Imparare access

text:
> istigazione ... al compimento di illeciti ...
> mi dissocio!
> :-)
E' evidente, tutti si
dissociano...................................................................
(sono i puntini di sospensione che,...mah...)


title: Dropdown, NewRecord

text:
È possibile utilizzare il metodo Dropdown per forzare la discesa dell'elenco
nella casella combinata quando si è in presenza esclusivamente di un record
nuovo.
la mia maschera frmInterventi
con 3 cmbox cboInterventi, cboComune, cboVia
vorrei che le tre combobox visualizzassero l'elenco di discesa
quando ho lo stato attivo su una di esse solo in presenza di un record
nuovo.
ciao, pizz


title: Dropdown, NewRecord

text:
"Paolo" <***
bjh...@tin.it
> ha scritto nel messaggio
news:l6IH9.42624$qF1.1...@news2.tin.it...

Se la casella combinata si chiama MiaCombo, a fronte dell'evento "Su
attivato" genera il seguente codice VBA:
Private Sub MiaCombo_GotFocus()
If Me.NewRecord Then
    Me!MiaCombo.Dropdown
End If
End Sub
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Comportamento inspiegabile!!!

author: Simone

text:
Ho scritto in po' di codice per riallegare le tabelle connesse in odbc ogni
volta che il progetto parte... ma succede una cosa inspiegabile:
Dim TabellaLog As String
Dim TblNazioni As TableDef
Dim DbLocal As Database
Dim connessione As String
Dim cc As String
connessione =
"ODBC;DSN=xxx;DB=xxx;HOST=xxx;SERV=xxx;SRVR=xxx;PRO=xxx;UID=xxx;PWD=xxx"
cc = StrConnessione() '<--- Questa funzione rende la stringa di connessione
*ESATTAMENTE*
                                        uguale alla stringa contenuta nella
variabile connessione
Set DbLocal = CurrentDb()
Set TblNazioni = DbLocal.TableDefs("nazioni")
TblNazioni.Connect = cc                '<-------- questo NON funziona
TblNazioni.Connect=connessione   '<--------- questo funziona (si apre la
finestra del collega tabella ODBC)
TblNazioni.RefreshLink
End Sub
Tengo a precisare che la stringa definita il locale e quella resa da
StrConnessione() sono ASSOLUTAMENTE uguali. Sia come lunghezza sia come
contenuto.
Non č che devo passare la stringa alla proprietą connect in maniera
particolare visto che č stata creata in maniera "dinamica"?
Simone


title: Importazione dati da Excel e relazioni

author: Hyperpoint

text:
Premetto che sono principiante di Access e ho questo problema. Ho
cercato su sito comune e su questo newsgroup messaggi simili, ma o non
li ho cercati con i termini giusti oppure non li ho trovati.
Ho creato un database di nominativi su due tabelle. Una con il nome e
l'indirizzo (chiamata ANAGRAFICA) e l'altra con la città - provincia e
CAP (chiamata GEOGRAFICA).
Le ho collegate con una relazione uno a molti (una città -> molti
clienti).
Il problema è che devo importare da excel un foglio con altri
nominativi e non so come importarli senza spezzare le relazioni
attuali e evitando di duplicare i records di Geografica.
C'è un modo per creare delle query o macro che permettano di
aggiornare le città in geografica che non sono presenti e di legare i
nuovi records in geografica?
Grazie
HyperPoint


title: Come togliere il fuoco da tutti i controlli di una sottomaschera?

author: Pippo

text:
La situazione e' la seguente.
Ho una form che contiene una sottomaschera. All'interno della
sottomaschera sono presenti diverse textbox. All'apertura, la
proprieta' Enabled viene settata a False per tutti i controlli.
Nella form e' presente un pulsante sul cui evento on click fa
partire del codice che verifica lo stato dei controlli della
sottomaschera. Se Enabled = True, allora setta Enabled a False
per tutti i controlli e viceversa.
Il tutto funziona correttamente tranne che in un caso: se, dopo
aver settato a True la proprieta' Enabled di tutti i controlli
della sottomaschera clicco su uno di essi(dandodogli dunque lo
stato attivo), solo per tale controllo NON posso piu' modificare
la proprieta' Enabled.
Anche settando il fuoco sull'oggetto che contiene i controlli
(la subform), il problema non si risolve perche' rimane memorizzato
da qualche parte che in quella subform una textbox aveva lo stato
attivo. Solo chiudendo e riaprendo la maschera tutti i controlli
perdono lo stato attivo, ma tale soluzione e' assolutamente impraticabile
per me.
Il mio problema allora e': come posso togliere lo stato attivo
da TUTTI i controlli della subform dopo che uno di essi ha gia'
acquisito tale stato?


author: Roberto dalla campagna

text:
"Pippo" <
miae...@miaemail.it
> ha scritto nel messaggio
news:eEKBe.70063$h5.29...@news3.tin.it...

Sposta il fuoco su un controllo della maschera principale che non sia il
controllo sottomaschera.
--
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


author: Carlo Costarella

text:
"Pippo" <
miae...@miaemail.it
> ha scritto nel messaggio
news:eEKBe.70063$h5.29...@news3.tin.it...

Invece di ciclare sui controlli della sottomaschera è sufficiente abilitare
o disabilitare l'intera sottomaschera:
If Me.TuaSottomaschera.Enabled = False Then
Me.TuaSottomaschera.Enabled = True
Else
Me.TuaSottomaschera.Enabled = False
End If
Ciao, Carlo


text:
"Roberto dalla campagna" <
r.masso...@libero.it
> ha scritto nel messaggio news:2wLBe.238$a5....@twister2.libero.it...
> "Pippo" <
miae...@miaemail.it
> ha scritto nel messaggio
> news:eEKBe.70063$h5.29...@news3.tin.it...
[cut]
> Sposta il fuoco su un controllo della maschera principale che non sia il
> controllo sottomaschera.
grazie roberto, ma purtroppo non funge perche' access tiene in memoria da qualche parte
che il controllo taldeitali della subform e' attivo anche se togli il fuoco passandolo
ad un controllo della maschera principale.
se voglio adottare questa soluzione, devo proprio trovare il modo di togliere
lo stato attivo dall'ultimo controllo della subform che lo ha avuto.
altrimenti mi sfruttero' la proprieta' locked e giocero' con il colore di sfondo dei
controlli per far comprendere all'utente quando un record e' in modalita' solo
lettura od in modalita' modifica.


text:
"Carlo Costarella" <
carloantoni...@virgilio.it
> ha scritto nel messaggio news:a3MBe.70458$h5.29...@news3.tin.it...
[cut]
> Invece di ciclare sui controlli della sottomaschera è sufficiente abilitare o disabilitare l'intera sottomaschera:
> If Me.TuaSottomaschera.Enabled = False Then
> Me.TuaSottomaschera.Enabled = True
> Else
> Me.TuaSottomaschera.Enabled = False
> End If
se la sottomaschera ha enabled = false, poi come faccio eventualmente
a scorrermi i record?


author: sv

text:
Pippo ha scritto:


Prova a fare prima un requery della maschera e poi spostare il fuoco su un
controllo della maschera principale come suggerisce Roberto.
--
rgrds
SC
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


text:
"Pippo" <
miae...@miaemail.it
> ha scritto nel messaggio
news:hTVBe.167148$75.71...@news4.tin.it...

Sì hai ragione.
Nell'esempio seguente uso un pulsante "Comando151" che ha la caption
impostata su "Disabilita" e si trova nella maschera principale:
Private Sub Comando151_Click()
Call DisabilitaControlli
End Sub
Private Sub AbilitaControlli()
On Error Resume Next
Dim ctr As Control
If Me.Comando151.Caption = "Abilita" Then
    Me.Comando151.Caption = "Disabilita"
For Each ctr In Me.TuoNomeSottomaschera.Controls
    With ctr
        If .ControlType = 109 Or .ControlType = 106 Or .ControlType = 111
Then
        .Locked = False
        End If
        End With
Next
Else
Call DisabilitaControlli
End If
End Sub
Private Sub DisabilitaControlli()
On Error Resume Next
Dim ctr As Control
If Me.Comando151.Caption = "Disabilita" Then
    Me.Comando151.Caption = "Abilita"
For Each ctr In Me.TuoNomeSottomaschera.Controls
    With ctr
     If .ControlType = 109 Or .ControlType = 106 Or .ControlType = 111 Then
     .Locked = True
     End If
    End With
Next
Else
Call AbilitaControlli
End If
End Sub
Così funziona alla grande.
Ciao, Carlo


title: Onorevoli grazie a Antonio Biso

author: Luca

text:
Onorevoli grazie a Antonio Biso
Elevo un'inno di ringraziamento all'illuminato Antonio Biso
che mi sottratto dal "buio" dell'ignoranza completa....
Lode a tè
--
N.B. Se non ti dispiace, rispondimi anche con una mail
        (togli lo SMAMMA dall'indirizzo)
^___^ molte onorevoli grazie
Ciao Luca :-)


title: Onorevoli grazie a Antonio Biso

author: Letizia

text:
"Luca" <cfsy...@tinSMAMMA.it> wrote:
>Onorevoli grazie a Antonio Biso
>
>Elevo un'inno di ringraziamento all'illuminato Antonio Biso
>
>che mi sottratto dal "buio" dell'ignoranza completa....
>
>Lode a tè
A giudicare dai risultati, non sono lezioni di grammatica quelle che
ti ha dato... :-)
--
Letizia


title: Onorevoli grazie a Antonio Biso

author: Luciano (DOC)

text:
"Letizia" <
let...@freemail.it
> wrote in message
news:v19d7to93n4jfgefd...@4ax.com...
> A giudicare dai risultati, non sono lezioni di grammatica quelle che
> ti ha dato... :-)
Invece credo di si...ha preso a parlare proprio come lui!!!:-)))
Saluti.
lucia...@sitocomune.com


title: Onorevoli grazie a Antonio Biso

text:
"Luciano \(DOC\)" <
lucia...@sitocomune.com
> wrote:
>"Letizia" <
let...@freemail.it
> wrote in message
>news:v19d7to93n4jfgefd...@4ax.com...
>
>> A giudicare dai risultati, non sono lezioni di grammatica quelle che
>> ti ha dato... :-)
>
>Invece credo di si...ha preso a parlare proprio come lui!!!:-)))
<evil grin>
--
Letizia


title: Onorevoli grazie a Antonio Biso

text:
....vai a far del bene....
PS. inoltre in Italiano si usa "impartire lezioni" non "dare lezioni" ,
non ho nepppure trovato il significato di "prendere a parlare"
;-P
Ciao Luca


title: Onorevoli grazie a Antonio Biso

author: Antonio Biso

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
mJxd6.84687$lV5.1...@news2.giganews.com...

Ha ha ha...
stai rosicando perchè a TE', non danno gli onorevoli grazie!!!
Antonio


title: Onorevoli grazie a Antonio Biso

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:zu0e6.73363$ew1.4...@news.infostrada.it...
> Ha ha ha...
> stai rosicando perchè a TE', non danno gli onorevoli grazie!!!
TE non TE' (senza accento)....
Saluti.
lucia...@sitocomune.com


title: Onorevoli grazie a Antonio Biso

text:
Luciano (DOC) <
lucia...@sitocomune.com
> wrote in message
GSae6.91049$lV5.1...@news2.giganews.com...
>
> "Antonio Biso" <
ch...@etruria.net
> wrote in message
> news:zu0e6.73363$ew1.4...@news.infostrada.it...
>
> > Ha ha ha...
> > stai rosicando perchè a TE', non danno gli onorevoli grazie!!!
>
> TE non TE' (senza accento)....
L'aveva scritto lui te', io gli ho rifatto il verso, rosicone!!!
Antonio


title: Onorevoli grazie a Antonio Biso

author: Lbo

text:
>> TE non TE' (senza accento)....
>
>L'aveva scritto lui te', io gli ho rifatto il verso, rosicone!!!
seee, per me l'hai scritto perché credevi che fosse giusto...
--
non studio non lavoro non guardo la tv
non vado al cinema non faccio sport
----------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Onorevoli grazie a Antonio Biso

text:
Lbo <
L...@NOSPAM.blunet.it
> wrote in message
3a7a1abc...@news.edisons.it...
> >> TE non TE' (senza accento)....
> >
> >L'aveva scritto lui te', io gli ho rifatto il verso, rosicone!!!
>
> seee, per me l'hai scritto perché credevi che fosse giusto...
Pppprrrrr !!!
Antonio


title: Onorevoli grazie a Antonio Biso

text:
"Antonio Biso" <
ch...@etruria.net
> wrote in message
news:P3ve6.83854$ew1.5...@news.infostrada.it...
> > >> TE non TE' (senza accento)....
> > >
> > >L'aveva scritto lui te', io gli ho rifatto il verso, rosicone!!!
> >
> > seee, per me l'hai scritto perché credevi che fosse giusto...
>
> Pppprrrrr !!!
Si, si, dicono tutti cosi'....:-))))
Saluti.
lucia...@sitocomune.com


title: maschera visualizzazione/inserimento

author: Nicola

text:
ho una maschera con 5 controlli nn abilitati, quindi di sola lettura. ho
creato un pulsante NUOVO RECORD, come faccio ad abilitare i 5 controlli in
modo che mi permetta l'inserimento dei dati?
grazie a tutti x le eventuali risposte
Nicola


title: maschera visualizzazione/inserimento

author: Vazim

text:
In data Mon, 27 Oct 2003 22:54:00 GMT, Nicola ha scritto:
> ho una maschera con 5 controlli nn abilitati, quindi di sola lettura. ho
> creato un pulsante NUOVO RECORD, come faccio ad abilitare i 5 controlli in
> modo che mi permetta l'inserimento dei dati?
Nella Sub del pulsance ci metti:
Me.Controllo.Enabled = True
per i cinque controlli
--
   \  /_ _ : _ _
    \/(_|/_|| | |
  mail me  :
vazim_at_libero.it

  view me  :
http://www.vazim.net


title: maschera visualizzazione/inserimento

text:
> > ho una maschera con 5 controlli nn abilitati, quindi di sola lettura. ho
> > creato un pulsante NUOVO RECORD, come faccio ad abilitare i 5 controlli
in
> > modo che mi permetta l'inserimento dei dati?
>
> Nella Sub del pulsance ci metti:
>
> Me.Controllo.Enabled = True
>
> per i cinque controlli
con il comando
Me.Controllo.Enabled = True
è come se mettessi il controllo su ABILITATO SI
e se volessi mettere anche BLOCCATO NO che comando dovrei usare?
grazie ancora
Nicola


title: maschera visualizzazione/inserimento

text:
"Nicola" <
nick.19...@tin.it
> ha scritto nel messaggio
news:vItnb.57843$e5.21...@news1.tin.it...

ah visto che ci siamo, dopo l'evento SU AGGIORNAMENTO dell'ultimo controllo,
dovrei disabilitare dinuovo tutti i controlli, ma me li disabilita tutti
tranne l'ultimo in quanto è attivo, mi convene creare un controllo fantasma
per effettuare ciò che voglio o si puo fare in altro modo?
grazie a ancora


title: maschera visualizzazione/inserimento

text:


La proprieta' e' Locked, dai un occhiata alla guida.



title: maschera visualizzazione/inserimento

text:
In data Tue, 28 Oct 2003 13:02:45 GMT, Nicola ha scritto:
> ah visto che ci siamo, dopo l'evento SU AGGIORNAMENTO dell'ultimo controllo,
> dovrei disabilitare dinuovo tutti i controlli, ma me li disabilita tutti
> tranne l'ultimo in quanto è attivo, mi convene creare un controllo fantasma
> per effettuare ciò che voglio o si puo fare in altro modo?
E'e non ci sono altri controlli nella maschera... prima dell'ultimo
Enable = False netti un controllo.setfocus



title: Distribuire

author: ALCAU (ST1)

text:
Quando creo una distribuzione e devo copiare o creare delle cartelle
aggiuntive in fase di installazione cosa dovrei fare ?
Grazie, Alberto


title: Automatismo !!!

author: Norica

text:
Dunque dunque dunque, vorrei fare una bella cosina:
ho una
tabella "Spedizioni" ed una maschera "Ins_Spedizioni" che mi serve
per
inserirne i dati; poichè in tale maschera ho un campo "Peso" che esegue
circa
25 funzioni (calcoli) ed è il campo fondamentale poichè genera la
tariffa per
il cliente vorrei che:
Nel caso in cui le tariffe del cliente cambino in
corso di mese (o di
contratto già applicato) e quindi le spedizioni sono già
inserite con la
tariffa vecchia, vorrei creare un automatismo che:
tramite
una maschera con i filtri 'cliente' e 'intervallo di date' premendo
sul
pulsantino: per ogni spedizione venga aperta la maschera di
inserimento
spedizioni-il peso venga cancellato-il peso venga
reinserito-faccia una
tabulazione per attivare le funzioni AfterUpdate del
Peso - venga chiusa la
maschera. Tutto questo in ciclo.

Oppure ?

Chiedo troppo
???!!!
Grazie
Enrico


title: Automatismo !!!

author: LaLo

text:
""Norica"" <
nor...@libero.it
> ha scritto nel messaggio
news:001401c07641$5d30b980$a3751997@c7x0k5...
Dunque dunque dunque, vorrei fare una bella cosina:
[CUT]
Hai già postato il problema e hai avuto risposta. Hai postato in HTML ...
forse è meglio che rileggi le regole del NG.
Ciao
LaLo


title: Automatismo !!!

text:
Si ho visto la risposta ma..... non era quella che cercavo .....
CHI MI AIUTA ???
--
Posted from
smtp6.libero.it
 [193.70.192.127]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: doppio controllo chiave primaria?!? come?

text:
salve a tutto il ng,
ho questo problema:
ho 100 clienti e 100 tipi di produzioni.
applico percentuali di sconto sul prezzo delle varie produzioni
cliente per cliente, produzione per produzione.
ora, mentre inserisco le percentuali potrei incorrere nell'errore di
inserire due volte di file la stessa percentuale per cliente-produz1.
come faccio ad evitarlo?
sono veramente messo male, vi prego di aiutarmi.
Simbo


author: Sib

text:
"simbo1" <
sim...@libero.it
> ha scritto nel messaggio
> ho 100 clienti e 100 tipi di produzioni.
> applico percentuali di sconto sul prezzo delle varie produzioni
> cliente per cliente, produzione per produzione.
> ora, mentre inserisco le percentuali potrei incorrere nell'errore di
> inserire due volte di file la stessa percentuale per cliente-produz1.
>
> come faccio ad evitarlo?
> sono veramente messo male, vi prego di aiutarmi.
All'inizio sei chiaro, ma ti sei perso alla fine.
Immagino che tu intenda evitare di inserire due volte lo sconto per lo
stesso cliente sulla stessa produzione.
immaginando che tu abbia correttamente creato una tabella sconti:
IDCliente, IDProduzione, Sconto
Basta impostare la chiave primaria sui due campi IDCliente-IDProduzione.
In verita' basta creare un indice specifico, non deve essere necessariamente
la chiave primaria, comunque quella e' la strada.
Sib


title: Baco di query su tabelle che richiamano un valore  di un campo = Null

text:
Ho scoperto una cosa strana se inserisco i criteri direttamente in una query parametrica che richiama i campi da una tabella.
Mettiamo di avere una tabella:
Nome  Cognome
Paolo
Marco Rossi
Mettiamo di inserire un criterio nel campo Cognome di una query richiamata da un form:
Like Nz([forms]![RICERCA]![Cognome],"*")
La query elencherà erroneamente solo un record corrispondente a
Marco Rossi
perchè Paolo non è stato inserito il dato cognome.
E' un problema che ho io sul mio computer o è un baco mostruoso  di Access?
O c'è un modo per ovviare alla mancata elencazione del record?
Grazie
--
km5000
------------------------------------------------------------------------
View this thread:
http://www.itsistemi.net/viewtopic-776390.html
Inviato via
http://www.itsistemi.net


author: Pietro

text:
Io ho letto un buon esempio di ricerca avanzata su officemagazine lugio
agosto 2005 dove la tua espressione era scritta sulla query senza nz davati
e funziona bene
"km5000" <
km5000...@no-mx.itsistemi.net
> ha scritto nel messaggio
news:km5000...@no-mx.itsistemi.net...



author: Bruno Campanini

text:
"km5000" <
km5000...@no-mx.itsistemi.net
> wrote in message
news:km5000...@no-mx.itsistemi.net...
>
> Ho scoperto una cosa strana se inserisco i criteri direttamente in una
> query parametrica che richiama i campi da una tabella.
>
> Mettiamo di avere una tabella:
> Nome  Cognome
> Paolo
> Marco Rossi
>
> Mettiamo di inserire un criterio nel campo Cognome di una query richiamata
> da un form:
> Like Nz([forms]![RICERCA]![Cognome],"*")
>
> La query elencherà erroneamente solo un record corrispondente a
> Marco Rossi
> perchè Paolo non è stato inserito il dato cognome.
>
> E' un problema che ho io sul mio computer o è un baco mostruoso  di
> Access?
Né l'uno né l'altro!
Tu vorresti che quando il campo [Cognome] della scheda
è Null la query ti ritornasse TUTTI i record come se il "Criteria"
di cognome non contenesse alcuna condizione.
E per fare ciò poni Like Nz(..., "*").
Ma il WildChar "*" tiene luogo di tutti i possibili caratteri ma
non di Null!
Così invece funziona:
[Forms]![RICERCA]![Cognome] Or [Forms]![RICERCA]![Cognome] Is Null
Ciao
Bruno


text:
Ora provo a cercare
grazie per l'indicazione



text:
Direi proprio che ci siamo!!! ALMENO PER UN CAMPO PARAMETRICO ...
Grazie Bruno
Se perň la condizione che mi hia postato dovessi metterla sull'openReport di un pulsante che mi apre il report, la seguente condizione basata su un controllo di una casella a scelta multipla, come diventerebbe?
DoCmd.OpenReport stDocName, acPreview, , "[codice] In (" & Me!codice& ")"
Sto applicando 10 varianti alla condizione che mi hai postato a non riesco a ottenere nulla.
Inoltre se ho decine di campi parametrici da inserire come faccio?
ho provato ad inserire la seguente condizione per due campi:
WHERE ([Forms]![RICERCA]![Cognome] Or ([Forms]![RICERCA]![Cognome]) Is Null) AND ([Forms]![RICERCA]![Nome] Or ([Forms]![RICERCA]![Nome]) Is Null)
Ma qualunque risultato della ricerca che faccio mi elenca sempre TUTTIi record.
Se per esempio cerco un cognome la query oltre al cognome che cerco mi elenca tutti i campi in cui nome Is Null o ha altri valori.
Invece devo ottenere solo un record col  il cognome cercato, altrimenti sono punto e accapo...
Tieni conto che ho circa venti parametri da cercare ma se 19 rimangono vuoti non vuol dire che il recordset mi deve elencare tutti i campi delle tab in cui il parqametro corrispondente della ricerca č Null ho ha altri valori ...



text:
"km5000" <
km5000...@no-mx.itsistemi.net
> wrote in message
news:km5000...@no-mx.itsistemi.net...
>
> Direi proprio che ci siamo!!! ALMENO PER UN CAMPO PARAMETRICO ...
>
> Grazie Bruno
>
> Se però la condizione che mi hia postato dovessi metterla sull'openReport
> di un pulsante che mi apre il report, la seguente condizione basata su un
> controllo di una casella a scelta multipla, come diventerebbe?
> DoCmd.OpenReport stDocName, acPreview, , "[codice] In (" & Me!codice& ")"
> Sto applicando 10 varianti alla condizione che mi hai postato a non riesco
> a ottenere nulla.
Adosso non t'annegare in un bicchier d'acqua:
If [Cognome] = "" Then
    DoCmd.OpenReport stDocName, acViewPreview
Else
    DoCmd.OpenReport stDocName, acViewPreview, , "[Cognome] = '" & [Cognome]
& "'"
End If
Senza indicare alcuna clausola WHERE nella query del report.
> Inoltre se ho decine di campi parametrici da inserire come faccio?
> ho provato ad inserire la seguente condizione per due campi:
La cosa allora si complica.
Se ho ben capito, avendo 20 campi in una scheda tu vorresti
il WHERE in modo da comprendere con clausola AND tutti
i campi NON BLANK di quei 20.
Se poi i 20 campi possono essere di tipo Text alcuni, Number altri,
Date altri ancora e poi magari anche Boolean allora il divertimento
è assicurato.
Premesso che le cose andrebbero dette subito come stanno
fin dall'inizio, ché le varianti in corso d'opera fanno solo
incazzare - almeno il sottoscritto - prova a confermarmi
quanto sopra.
Bruno


text:
Ti prego, non t'incazzare...
Quando io faccio una cosa, faccio un prototipo che deve andare bene (in questo caso) per 1 parametro come per 1000 parametri.
Normalmente, usando VBScript per internet, non cerco scorciatoie e scrivo sql parametriche simili alla seguente per fare ricerche in un  Db.
Es:
if Not IsNull(TxtSearch) then Call FNCSearch(TxtSearch, "Nome del fielf", Parametro, strSQL, " Like '", "'")
Function FNCSearch(VarSearch, Field, Parametro, strSQL, CondStart, CondEnd)
ArrSearch = VarSearch
if InStr(ArrSearch,",")> 0 then ArrSearch = Split(trim(ArrSearch),",") else Dim ArrSearch : Redim ArrSearch(0) : ArrSearch(0)= VarSearch
for k = 0 to ubound(ArrSearch)
if k=0 and Parametro<>1 then boleana=" WHERE (" else if k=0 and Parametro=1 then boleana=" AND (" else boleana=" OR "
strSQL = strSQL & boleana & Field & CondStart & trim(ArrSearch(k)) & CondEnd
next
strSQL = strSQL & ")"
Parametro = 1
End Function
Non sarà un gran chè ma funziona e posso adattare la funzione in mille modi diversi.
Detto questo credevo che le sql parametriche di Access fossero una cosetta facile facile. Invece alcune cose che nella mia ignoranza dovrebbero essere la norma  (come l'elenco di tutti i record se non inserisco parametri nel campo di ricerca) sono un po più complicate. Voglio solo capire cosa devo fare per non fare una cosa che non funziona.
Sto infatti provando ciò che hai suggerito ma con tanti parametri
(PS: Le varianti in corso d'opera almeno per me,purtroppo,  sono la norma: e  soprattutto non sono retribuite)



text:
"km5000" <
km5000...@no-mx.itsistemi.net
> wrote in message
news:km5000...@no-mx.itsistemi.net...
[...]
> Detto questo credevo che le sql parametriche di Access fossero una cosetta
> facile facile. Invece alcune cose che nella mia ignoranza dovrebbero
> essere la norma  (come l'elenco di tutti i record se non inserisco
> parametri nel campo di ricerca) sono un po più complicate. Voglio solo
> capire cosa devo fare per non fare una cosa che non funziona.
> Sto infatti provando ciò che hai suggerito ma con tanti parametri
Quando sei pronto confrontiamo i risultati (sto parlando di n campi
comunque definiti, clausole "AND", "OR", operatore Between, etc)
> (PS: Le varianti in corso d'opera almeno per me,purtroppo,  sono la norma:
> e  soprattutto non sono retribuite)
Lo so, rientra sempre nei patti,  "tanto i dati ci sono già tutti, no?"
Ciao
Bruno


text:
Ti posto ilc odice che uso all'apertura del report per costruire la sql.
Mi rendo conto di non scrivere un codice elegante e ottimizzato parò il Db esistente  purtroppo è fatto male.
Per questo ogni singolo campo della form deve richiamare la funzione di costruzione della sql in modo particolare.
'''''''''''''DATI ANAGRAFICI'''''''''''''
If Not IsNull(Me!cognome) Then Call FNCSearch(Me!cognome, "[cognome]", Parametro, strSQL, " Like '*", "*'")
If Not IsNull(Me!nome) Then Call FNCSearch(Me!nome, "[nome]", Parametro, strSQL, " Like '*", "*'")
'''''''''''''DATI ISCRIZIONE'''''''''''''
If Not IsNull(Me!codice) Then Call FNCSearch(Me!codice, "[codice]", Parametro, strSQL, " In (", ")")
If Not IsNull(Me!tipo_iscrizione) Then Call FNCSearch(Me!tipo_iscrizione, "[tipo_iscrizione]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!data1iscr) Then Call FNCSearch(Me!data1iscr, "[data1iscr]", Parametro, strSQL, " = #", "#")
'------------------------------
If Not IsNull(Me!anno1iscr) Then Call FNCSearch(Me!anno1iscr, "[anno1iscr]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!numero) Then Call FNCSearch(Me!numero, "[numero]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!data_pagamento) Then Call FNCSearch(Me!data_pagamento, "[data_pagamento]", Parametro, strSQL, " >= #", "#")
If Not IsNull(Me!data_pagamento1) Then Call FNCSearch(Me!data_pagamento1, "[data_pagamento]", Parametro, strSQL, " <= #", "#")
If Not IsNull(Me!num_ricevuta) Then Call FNCSearch(Me!num_ricevuta, "[num_ricevuta]", Parametro, strSQL, " >= ", "")
If Not IsNull(Me!num_ricevuta1) Then Call FNCSearch(Me!num_ricevuta1, "[num_ricevuta]", Parametro, strSQL, " <= ", "")
If Not IsNull(Me!codice_pagamento) Then Call FNCSearch(Me!codice_pagamento, "[codice_pagamento]", Parametro, strSQL, " = '", "'")
'------------------------------
If Not IsNull(Me!approvato) Then Call FNCSearch(Me!approvato, "[approvato]", Parametro, strSQL, " = #", "#")
If Not IsNull(Me!data_revoca) Then Call FNCSearch(Me!data_revoca, "[data_revoca]", Parametro, strSQL, " = #", "#")
If Not IsNull(Me!quota) Then Call FNCSearch(Me!quota, "[quota]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!stato_abbonamento) Then Call FNCSearch(Me!stato_abbonamento, "[stato_abbonamento]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!note) Then Call FNCSearch(Me!note, "[note]", Parametro, strSQL, " Like '*", "*'")
If Not IsNull(Me!privacyAmcli) Then Call FNCSearch(Me!privacyAmcli, "[privacyAmcli]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!privacyInd) Then Call FNCSearch(Me!privacyInd, "[privacyInd]", Parametro, strSQL, " = '", "'")
'''''''''''''ALTRI DATI '''''''''''''
If Not IsNull(Me!regione) Or Me!regione <> "" Then Call FNCSearch(Me!regione, "[regione1DR],[regione2DR]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!data_nomina) Or Me!data_nomina <> "" Then Call FNCSearch(Me!data_nomina, "[data_nominaDR],[data_elezioniCD],[data_elezioniRC],[data_nomina1CO],[data_nomina2CO],[data_nomina3CO],[data_nomina4CO],[data_nomina5CO],[data_nomina1GL],[data_nomina2GL],[data_nomina3GL],[data_nomina4GL],[data_nomina5GL]", Parametro, strSQL, " = #", "#")
If Not IsNull(Me!data_scad) Or Me!data_scad <> "" Then Call FNCSearch(Me!data_scad, "[data_scadDR],[data_scadCD],[data_scadRC],[data_scad1CO],[data_scad2CO],[data_scad3CO],[data_scad4CO],[data_scad5CO],[data_scad1GL],[data_scad2GL],[data_scad3GL],[data_scad4GL],[data_scad5GL]", Parametro, strSQL, " = #", "#")
If Not IsNull(Me!comitato) Or Me!comitato <> "" Then Call FNCSearch(Me!comitato, "[gruppi_lavoro1],[gruppi_lavoro2],[gruppi_lavoro3],[gruppi_lavoro4],[gruppi_lavoro5],[tipoind1],[comitato1],[comitato2],[comitato3],[comitato4],[comitato5]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!CARICA) Or Me!CARICA <> "" Then Call FNCSearch(Me!CARICA, "[carica_internaDR],[carica_internaCD],[carica_internaRC],[carica_interna1CO],[carica_interna2CO],[carica_interna3CO],[carica_interna4CO],[carica_interna5CO],[carica_interna1GL],[carica_interna2GL],[carica_interna3GL],[carica_interna4GL],[carica_interna5GL]", Parametro, strSQL, " = '", "'")
'''''''''''''SITUAZIONE PROFESSIONALE'''''''''''''
If Not IsNull(Me!titstudio) Then Call FNCSearch(Me!titstudio, "[titstudio]", Parametro, strSQL, " In (", ")")
If Not IsNull(Me!profess) Then Call FNCSearch(Me!profess, "[profess]", Parametro, strSQL, " In (", ")")
If Not IsNull(Me!strutapp) Then Call FNCSearch(Me!strutapp, "[strutapp]", Parametro, strSQL, " Like '*", "*'")
If Not IsNull(Me!attprev) Then Call FNCSearch(Me!attprev, "[attprev]", Parametro, strSQL, " Like '*", "*'")
If Not IsNull(Me!repartoapp) Then Call FNCSearch(Me!repartoapp, "[repartoapp]", Parametro, strSQL, " Like '*", "*'")
If Not IsNull(Me!setinteres) Then Call FNCSearch(Me!setinteres, "[setinteres]", Parametro, strSQL, " Like '*", "*'")
If Not IsNull(Me!spec_micr) Then Call FNCSearch(Me!spec_micr, "[spec_micr]", Parametro, strSQL, " = '", "'")
If Not IsNull(Me!spec) Then Call FNCSearch(Me!spec, "[spec]", Parametro, strSQL, " Like '*", "*'")
Function FNCSearch(ArrSearch, Field, Parametro, strSQL, CondStart, CondEnd)
If Len(Trim(ArrSearch)) = 10 And InStr(ArrSearch, "/") Then ArrSearch = Format$(ArrSearch, "mm/dd/yyyy")
ArrSearch = Split(Trim(ArrSearch), ",")
Field = Split(Trim(Field), ",")
For k = 0 To UBound(Field)
For i = 0 To UBound(ArrSearch)
If k = 0 And i = 0 And Parametro <> 1 Then boleana = " (" Else If k = 0 And i = 0 And Parametro = 1 Then boleana = " AND (" Else boleana = " OR "
strSQL = strSQL & boleana & Field(k) & CondStart & Trim(ArrSearch(i)) & CondEnd
Next
Next
strSQL = strSQL & ")"
Parametro = 1
Forms!RICERCA!Response = strSQL
End Function



text:
"km5000" <
km5000...@no-mx.itsistemi.net
> wrote in message
news:km5000...@no-mx.itsistemi.net...
> Ti posto ilc odice che uso all'apertura del report per costruire la sql.
> Mi rendo conto di non scrivere un codice elegante e ottimizzato parò il Db
> esistente  purtroppo è fatto male.
> Per questo ogni singolo campo della form deve richiamare la funzione di
> costruzione della sql in modo particolare.
[...]
Da quel che mi è parso di capire, data una scheda con in essa
riportati tutti i possibili campi di ricerca di una tabella, per ognuno
determini, in base al Data Type e al fatto che sia compilato o
meno, il segmento di istruzione SQL, e così via per tutti i campi.
Non credo ci sia diverso criterio da potersi seguire, semmai
esisteranno diverse modalità di realizzazione (leggi: di costruzione
della stringa SQL).
Io ho seguito appunto una diversa modalità che forse, ma non è
detto, può più agevolmente applicarsi alla generalità dei casi.
1 - Ho inserito nella scheda tutti i campi della tabella sui quali
voglio avere la possibilità di ricerca: quei campi che possono
essere indagati con Between sono stati inseriti due volte.
Per la denominazione di detti campi ho seguito il criterio:
F1, F2, F3, F3_, F4, F4_: F5, F6, etc.
Dove F3, F3_ e F4, F4_ sono i campi che andranno indagati
con between.
2 - il codice che chiama la funzione che restituirà la stringa SQL
è così formato (esemplificativamente):
-------------------------------------
ReDim MFA_(1 To 5, 1 To 3)
MFA_(1, 1) = "[Nome]":             MFA_(1, 2) = 1:     MFA_(1, 3) = True
MFA_(2, 1) = "[Cognome]":        MFA_(2, 2) = 1:     MFA_(2, 3) = False
MFA_(3, 1) = "[Età]":                  MFA_(3, 2) = 2:     MFA_(3, 3) = True
MFA_(4, 1) = "[DataNascita]":    MFA_(4, 2) = 3:     MFA_(4, 3) = False
MFA_(5, 1) = "[Coniugato]":       MFA_(5, 2) = 4:     MFA_(5, 3) = True
MsgBox MFA2("And")
------------------------------------
dove:
MFA_() è definito Public in Specifications di un Module
(così lo vedono tutti)
MFA_(n, 1) porta i nomi dei campi della tabella
MFA_(n, 2) porta il corrispondente Data Type:
                 (1 = String
                  2 = Number
                  3 = Date
                  4 = Boolean)
MFA_(n, 3) è posto a True o False a seconda che per il
                    campo si debba applicare o meno l'operatore Between.
La funzione, che ho chiamato MFA2() porta un parametro
(Optional, Default = "And") che può essere anche "XOR", "OR", etc.
Ciao
Bruno


text:
MFA_(n‚ 1) porta i nomi dei campi della tabella
MFA_(n‚ 2) porta il corrispondente Data Type
anche la mia idea è quella di far corrispondere i field ai vari  DataType(anche se in modo un po sporco).
(Optional, Default = "And") che può essere anche "XOR", "OR", etc.
Per gli operatori onestamente non permetto la variabilità proprio per la non perfetta coincidenza tra campi e tipi di dati
appena ho tempo approfondisco le tue indicazioni..
grazie per i suggerimenti



title: PRINCIPIANTE: #3 bis

text:
Ho creato una tabella "TabellaErrori" con 2 record "CodiceErrore" tipo
numerico intero lungo "StringaErrore" tipo Testo lunghezza 255 caratteri
Ho creato un modulo standard "Modulo1" in cui ho piazzato il codice VBA
con all'inizio:   Dim dbsLocale As Database mando in esecuzione e:
"Errore di compilazione: Tipo definito dall'utente non definito". e mi
si evidenzia "Dim dbsLocale As Database! COSA C'E' DI SBAGLIATO IN
QUELLA DICHIARAZIONE?  Qualcuno puņ aiutarmi a disincagliarmi ?! Grazie


title: Massimizzare e centrare una maschera

author: kecco's

text:
Ciao a tutti!
vorrei sapere se e come è possibile fare in modo che le maschere del
mio db vengano centrate e massimizzate rispetto allo schermo.
Ho provato con "Center Me" del sito comune (5.57) e funziona quando non
massimizzo.
L'evento maximize mi sposta la maschera in altro a sx.
Qualcuno ha qualche suggerimento?
Grazie 1000!
F


title: Massimizzare e centrare una maschera

author: Alessandro Baraldi

text:
kecco's ha scritto:

C'è qualcosa che non torna in quanto dici....!
Il Maximize le Massimizza non le sposta da nessuna parte....!
Sono Massimizzate, pertanto coprono l'intera area PARENT.
Ora se sono POPUP significa che copriranno l'intero schermo sovrastando
la MDI di Access, se invcece sono delle form normali(SDI) saranno
massimizzate relativamente alla ClientArea
della MDI(Access)...!
Tu cosa vuoi fare...???
@Alex


title: Massimizzare e centrare una maschera

text:
Alessandro Baraldi ha scritto:
> C'è qualcosa che non torna in quanto dici....!
ah ecco :-)
> Il Maximize le Massimizza non le sposta da nessuna parte....!
> Sono Massimizzate, pertanto coprono l'intera area PARENT.
> Ora se sono POPUP significa che copriranno l'intero schermo sovrastando
> la MDI di Access, se invcece sono delle form normali(SDI) saranno
> massimizzate relativamente alla ClientArea
> della MDI(Access)...!
>
> Tu cosa vuoi fare...???
ho una maschera di 10 cm x 10 cm (con immagine e dati). Con Center Me
quando la apro la vedo al centro dello schermo, ed è ok.
Io vorrei che la maschera si espandesse fino al limite dell'area Parent
(per ora...se si potesse fare anche sovrastando la MDI sarebbe bello)
ma mantenendo "le cose che contano" al centro. Adesso l'immagine e i
dati vengono spostati in alto a sx mentre la zona Parent viene coperta
con il resto della maschera...
spero di essermi spiegato meglio!
Grazie 1000!
F


title: Massimizzare e centrare una maschera

text:
kecco's ha scritto:

Ho capito, ma ti consiglio di lasciare perdere.....!
Prova a pensare a quello che hai chiesto cosa comporta...!!!
Si tratta di :
1 Rendere la Form POPUP
2 Calcolare la risoluzione Video
3 Ridimensionare la Maschera
4 Ciclare tutti i controlli e, dopo aver calcolato il rapporto di
ingrandimento della Form
   spostarli proporzionalmente uno per uno....!
Il punto 4 è il più critico....
Sei sicuro che ti serva tutto questo....?????
Se sai a priori la Risoluzione disegnala già con le dimensioni che
realmente deve avere, e posiziona i controlli in fase di Design.
@Alex


title: Access2000+rete

author: Maurizio M

text:
Buonasera a tutti,
Per la prima volta dovrei fare lavorare access2000+windows xp pro in rete .
Vorrei creare un mde da copiare nei 2 ,o più computer e usare un file mdb
per le tabelle da installare su un computer.
Ci sono cautele particolari da avere?Accorgimenti da usare ?
in caso di accesso contemporaneo al database ci potrebbero essere blocchi ?
Grazie
Maurizio


title: Access2000+rete

text:
Maurizio M ha scritto:

Benvenuto nel mondo della multiutenza (lo dico da profano)!!Gli accorgimenti più importanti da usare (e se sbaglio qualcuno lo farà sapere...) per me sono i seguenti:1 db con tutte le tabelle (solo tabelle), un FrontEnd con interfacce grafiche, query, eventuali tabelle locali (x es. una dove memorizzi la versione dell'applicazione e una dove tieni memorizzato il nome di tutte le tabelle collegate), una procedura 'cercare' la base dati in caso di problemi o nuove installazioni, una particolare attenziona nel generare i numeri progressivi di documenti o quant'altro (la concorrenza in tale procedura potrebbe  generare dati incongruenti) e l'avvertenza a non collegare troppi client. Un'altra cosa, testa le procedure mettendo client e server su computer diversi (come dovrebbe essere) per provare le nuove prestazioni: magari alcune procedure dovranno essere ritoccate per la nuova configurazione!!!
Per quanto riguarda i blocchi.....dicono che Access gestisca le concorrenze di accesso segnalando all'utente che 'qualcuno' ha modificato gli stessi record....Per ora, mettendo accesso condiviso e non imponendo mai nessun blocco sui record, ho avuto qualche disguido solo nel momento in cui 2 utenti volevano aprire lo stesso doc e lavorarci sopra.....
PS LE procedure di BackUp!!!!!!!Fondamentali!!!!
Ciao e buon lavoro.....
--
Questo articolo e` stato inviato dal sito web
http://www.nonsolonews.it


title: più gruppi di opzione stessa form

author: Ph. Barnum

text:
Ho inserito due gruppi di opzione in una form.
Una contiene i clineti es. di Milano, Bergamo, Pavia,
L'altra le percentuali sconto es. 5%, 10%, 15% per i vari clienti.
Il problema è che i due gruppi di opzione non lavoarno assieme, cioè se ho
selezionato per es. Milano come gruppo di clienti vorrei che cliccando sulla
percentuale di sconto (es. 10%) mi vengano visualizzati tutti i clienti di
milano che hanno il 10 % di scnonto, Adesso invece la seconda scelta sul
gruppo di opzioni mi azzera il primo filtro per cui mi  vengono selezionati
tutti i clienti col 10% (sena distinzione di città)
Come si fanno a  fare lavorare assieme i due gruppi di opzione?
Grazie e Ciao
Stefano


title: più gruppi di opzione stessa form

author: Marco

text:
Ph. Barnum ha scritto:

Se ho capito bene il problema a te i gruppi di opzione servono a
filtrare un qualche tipo di elenco.
Io ho creato un pulsante che legge il valore dei gruppi e li "associa"
in questo modo ValorePrimoGruppo & ValoreSecondoGruppo.
In pratica se nel primo gruppo è selezionat il valore 2 e nel secondo il
valore 3 io ottengo 23.
A questo punto basta una select case con tutti i valori possibili nella
quale imposto la stringa di condizione WHERE nella select con i valori
che mi interessano ed il gioco è fatto
Ciao
Marco