mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.appl.access
Titolo: Problema con chiusura di una finestra.

Salve a Tutti,
č la prima volta che scrivo ad una newsgroup e spero che mi risolviate
il problema.
Ho un programma in access che lancia un bat tramite il comando shell (a
proposito c'č qualche altro comando che mi permette di lanciare bat o
exe?). Di conseguenza viene aperta una finestra di dos che io non riesco
piů a chiudere in maniera automatica (via codice). Ho provato ad usare
le API di Windows, del tipo prendere l'handle della finestra aperata
restituito dal comando shell (Almeno credo che sia l'handle) e usarlo
con le API Destroywindow, CloseWindow. ecc. Niente da fare. Ho provato
ad usare anche del codice prelevato dal sito
(
http://members.xoom.it/it_db_access/
) del tipo "avviare un file
eseguibile e attenderne la fine" ma senza successo.
Vi ringrazio anticipatamente aspettando una vostra risposta.
Se volete potete rispondere anche al seguente indirizzo
la...@mi.camcom.it
-- 
Ferdinando Landi       e-mail: 
la...@mi.camcom.it

 più a chiudere in maniera automatica (via codice). Ho provato ad usare
Non hai provato la cosa + semplice (se la sai):
aggiungi cls alla fine del tuo file .BAT.
In alternativa, potresti modificare le proprietà del file dicendogli di
chiudersi al termine.
Buon lavoro.
Silvio

 chiudersi al termine.
Non posso modificare la proprietà del file in quanto è un file che mi
creo al momento e non è già esistente. Se sai come modificare la
proprietà del file da Access via codice e me lo dici te ne sono grato.
Ti ringrazio di nuovo per la risposta e spero che tu abbia altri
suggerimenti.
Saluti e buon lavoro 


 Ferdinando Landi       e-mail: 
la...@mi.camcom.it
Con Win'98, NT, 2000 la Microsoft ha (per cosě dire) sostituito i file batch
con gli script che non sono altro che file di testo in VBscript (con
estensione vbs) o JavaScript (con estensione js); invece per Win'95b puoi
scaricare l'interprete dal sito MS. Se ti garba puoi sostituire il tuo batch
con uno script in VB e lo esegui da Access con:
Sub EseguiScript()
Dim ritorno As Double
ritorno = Shell("c:\winnt\system32\wscript.exe
d:\documenti\tabelle\copyTabelleTXT.vbs")
End Sub
Ovviamente devi sostituire la directory Winnt con la directory che contiene
il file wscript.exe...
Ciao.

 Ferdinando Landi       e-mail: 
la...@mi.camcom.it
Ma perchč non la noscondi direttamente usando il vbHide alla fine della
funzione Shell?

Ciao Daniele,
Grazie mille, mi hai risolto il problema.
Mi stavo perdendo in un bicchier d'acqua. Non mi sono reso conto che
avevo la soluzione sotto il naso. Ho sperimentato tanti di quegli
archibugi mentre avevo la soluzione a portata di mano.
Di nuovo grazie.


 DanieleF wrote:
Di nulla.
Ciao

Ciao Ferdinando....... per risolvere il tuo problema nel BAT, basta
aggiungere alla fine dello stesso la parola " CLS ".
Risolto? fammi sapere.
--
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: creare un database access97 con vista - errore

Salve sono Fanciullo,
(Access 97)
Uso access 97 con vista.
ho questa riga di codice che dovrebbe crearmi un nuovo database
 Set dbESPORTA = DBEngine.CreateDatabase(strfiledest, dbLangGeneral)
ricevo questo errore (non lo ricevo con XP e 2000)
errore di runtime 3051
il modulo di gestione di database Microsoff Jet non è in grado di aprire il 
file c:\mio.mdb.
Il file è già aperto con uso esclusivo di un altro utente o è necessario 
avere l'autorizzazione
per visualizzare i dati.
(il debug mi porta sulla riga di codice di cui sopra....)
C'è un altro modo per creare un database via codice??
GRAZIE
allego la routine completa
Private Sub cmdESEGUI_Click()
Dim strfiledest As String
Dim dbESPORTA   As Database
Dim strTabella As String
Dim strSQL As String
Dim messaggio As Byte
On Error GoTo err_crea
If Me.csDATABASE = "" Or Me.csDATABASE = "c:\" Then
MsgBox "completa il nome del file...."
Exit Sub
End If
strfiledest = Me.csDATABASE
If Dir(strfiledest & ".mdb") <> "" Then
messaggio = MsgBox("il file esiste già: vuoi sovrascrivere il file oppure 
no?", vbOKCancel)
    If messaggio = vbOK Then
      Kill strfiledest & ".mdb"
    Set dbESPORTA = DBEngine.CreateDatabase(strfiledest, dbLangGeneral)
    Else
    Exit Sub
    End If
End If
err_crea:
    If Err.Number = 3024 Then
    'intercetto l'errore 3024: il file da copiare non esiste...allora viene 
creato
    Set dbESPORTA = DBEngine.CreateDatabase(strfiledest, dbLangGeneral)
    End If
strTabella = Me.csTABELLA
strSQL = _
"SELECT QPROGRAMMAZIONEperESP.CLASSI,QPROGRAMMAZIONEperESP.MENU, 
QPROGRAMMAZIONEperESP.[DATA ARRIVO], QPROGRAMMAZIONEperESP.CODICE, 
QPROGRAMMAZIONEperESP.alimenti, QPROGRAMMAZIONEperESP.[QUANTITA'], 
QPROGRAMMAZIONEperESP.NOTE INTO " & strTabella & " FROM 
QPROGRAMMAZIONEperESP;"
DoCmd.RunSQL strSQL
DoCmd.CopyObject strfiledest & ".mdb", , acTable, strTabella
End Sub

 ha scritto nel messaggio 
news:5IwEj.40495$FR.1...@twister1.libero.it...

Ciao Fanciullo,
non ho modo di provare, ma penso che il problema sia dovuto al fatto 
che vai a scrivere in C:\ e presumibilmente Vista lì non ti lascia 
scrivere a meno che tu non abbia forzatatamente assegnato i diritti di 
scrittura, prova a creare il db nella cartella dei documenti, dove 
sicuramente puoi scrivere.
-- 
Cinzia [Office Access MVP]
_______________________
 
www.riolab.org
http://accessdaziacin.live.spaces.com
---------------------------------------- 

Scusa ho sbagliato a rispondere,
Comunque è bastato indicare D:\
Newsgroup: it.comp.appl.access
Titolo: formato "dinamico"

è possibile in un report e/o in una maschera  basati su query, impostare il 
formato numerico di un campo con o senza decimali (formato standard 2 
decimali ; formato standard 0 decimali)
in funzione del contenuto di un'altro campo della query di base?
grazie.

č possibile in un report e/o in una maschera  basati su query, impostare il 

Certo che sě.
If Me.TuoControllo = "quello che vuoi" then
Me.TuoControlloNumerico.DecimalPlaces = 2
else
Me.TuoControlloNumerico.DecimalPlaces = 0
End if
Ciao, Carlo 

 Ciao, Carlo
sull'evento "caricamento" della maschera ho messo:
Private Sub Form_Load()
If Me.MioControllo= 1 Then
Me.MioControlloNumerico.DecimalPlaces = 0
Else
Me.MioControlloNumerico.DecimalPlaces = 2
End If
End SubO
però funziona solo in base all'ordinamento della query, cioè considera solo 
il valore del primo record.
perchè?
grazie.

 ha scritto nel messaggio 
news:45f5...@extreme.x-privat.org...

Non avevi specificato che si trattava di maschere continue...
la proprietà viene impostata una volta per il controllo e può variare in una 
visualizzazione a maschera singola non in visualizzazione maschere continue.
Nemmeno la formattazione condizionale potrebbe essere usata.
Ciao, Carlo 


Mi viene un dubbio...
non č che hai scritto proprio cosě
Me.MioControlloNumerico.DecimalPlaces = 0
Immagino avrai sostituito con il nome del tuo controllo, vero?
Ciao, Carlo 

 Ciao, Carlo
si certo!!!
in effetti si comporta proprio come prevedevi.
cioč in base al primo record come se fosse una maschera singola.
non c'č proprio nessuna soluzione?
ciao


Temo non ci sia una soluzione...a meno di cambiare il tipo di dati da 
numerico a testo.
Non credo ti interessi questa soluzione ma qualora fosse di tuo gradimento, 
potresti scrivere nel campo della tabella quello che ti pare:
1 oppure 1,00, 123 oppure 123,00
La scrittura potrebbe avvenire anche a runtime con una query di 
aggiornamento.
Altra alternativa e sempre che possa essere di tuo gradimento è quella di 
aggiungere alla tabella un campo testo e formattarlo a runtime come 
preferisci con i valori del campo numerico. In ogni caso i dati, i valori di 
testo, devono essere scritti nella tabella prima della visualizzazione su 
maschera continua, anche qui è possibile usare una query di aggiornamento.
Ciao, Carlo

Newsgroup: it.comp.appl.access
Titolo: Con la SP 1 di WinXP Access va uno schifo ...

Ho appena installato la SP 1 di WinXP.
Da questo momento in poi la mia applicazione Access 2000 (front-end a MySQL)
va una vera chiavica. Le maschere master-detail e i report ci mettono una
vita a comporsi, le scroll-bar fanno piantare per alcuni (lunghissimi)
secondi l'applicazione, le combo che sono guai ad aprirle... Insomma,
inutilizzabile.
Le elaborazioni pesanti (quelle fatte dal server) vanno a razzo come al
solito.
Ho deinstallato l'aggiornamento e, magicamente, tutto torna a funzionare
perfettamente.
Qualche suggerimento?
TIA, Sandro.
--------------------------------
Inviato via 
http://usenet.libero.it

Qualche suggerimento?
Macchina pulita: installa win 'XP, installa SP-1, installa il resto del software (Access compreso).
Ciao, warp
Newsgroup: it.comp.appl.access
Titolo: somma arrotondamenti

Ciao a tutti,
espongo il mio problema.
Ho un report, nel corpo ho il dettaglio del n. di pezzi in consegna x
cliente.
Nel piè del cliente ho la somma del pezzi consegnati e un campo per il
conteggio dei multipli di 12 pezzi =Fix(Somma([SommaDiquantita])/12).
Quindi questo campo mi restituiste
0 se ho consegne per il cliente da 1 a 12pz.
1 se ho consegne per il cliente da 13 a 24pz.
ecc.ecc.
Ora nel piè di report voglio fare una somma dei valori di multipli di
12 però non so come fare.
Se imposto un campo a piè di report con la formula =Fix(Somma
([SommaDiquantita])/12) mi da un valore differente alla somma dei
multipli di 12 perchè somma tutte le consegne e divide per 12. Cioè se
ho 4 consegne da 4 pz ciascuna per 4 clienti differenti, da 1 come
multipli di dodici. Mentre mi dovrebbe restituire 0. Nessun cliente ha
avuto una consegna con multipli di 12.
Come posso fare??
Spero di essere stato chiaro.....ma penso di no :D
Ciao e grazie a tutti

 
  =Fix(Somma> ([QtaCliente])*12)
--
ac

 ac
??
NON HO CAPITO
somma> ???
qtacliente*12???
forse non sono stato chiaro
sommadiquantità è la somma di pz consegnati con un singolo documento.
somma(sommadiquantita) invece è la somma totale dei pz consegnati al
singolo cliente.
Fix(Somma([SommaDiquantita])/12) è la formula per conteggiare i
multipli di dodici del singolo cliente.
perciò [QtaCliente]=somma(sommadiquantita)
se nel piè di report imposto un campo con la formula =somma
([multipli]) (dove multipli è il campo del piè di clienti con la
formula =Fix(Somma([SommaDiquantita])/12)) access mi chiede il valore
di "multipli" perchè non si può fare la somma di campi calcolati. se
invece imposto la formula =Fix(Somma([SommaDiquantita])/12) mi da un
valore che non mi serve.
spero di essere stato + chiaro

 
--
ac


somma(int(sommadiquantita/12))
non va bene perchè se per un cliente x ho 3 consegne così composte:
1) 4 pz
2) 4 pz
3) 22 pz
nel piè del cliente faccio la somma (30 pz) e ottengo che ha 2
multipli di 12
mentre nel piè di report me ne conteggia 1 solo perchè =somma(int
(sommadiquantita/12)) riporta i multipli di 12 delle singole righe
quindi 4/12=0; 4/12=0; 22/12=1
:S
cmq grazie!!!!!

Newsgroup: it.comp.appl.access
Titolo: Record corrente

All'apertura di una maschera collegata ad una tabella qual'è il metodo
migliore
per verificare se esiste un record corrente o se la tabella non contiene
record?
grazia in anticipo
marco

 ha scritto nel messaggio 
news:49d8af2d$0$1109$4faf...@reader4.news.tin.it...

If Me.RecordsetClone.RecordCount = 0 then
...fai quello che vuoi
end if
ciao
Daniele
Newsgroup: it.comp.appl.access
Titolo: barre scorrimento

ciao
ho una subform che contiene parecchi record. Vorrei rendere più facile il
lavoro a chi la deve consultare. Dal momento che di default si apre con la
barra di scorrimento laterale attaccata in alto e quindi evidenziando i
primi record, vorrei sapere se si può farla aprire con la barra attaccata in
basso, così da mostrare gli ultimi record inseriti ed evitare che con il
mouse scrollino (magari cambiando pagina senza accorgersene, come è
successo)
grazie

 grazie
da codice all'apertura della tua subform posizionati sull'ultimo record...
e questo č quanto.
-- 
Pablitomf
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
ciao
è qui in mezzo che non so cosa metterci:
Private Sub Form_Open(Cancel As Integer)
End Sub
ciao

Ciao
Roberto

Newsgroup: it.comp.appl.access
Titolo: Errore compilazione

Salve a tutti
Compilando il programma a cui sto lavorando (Visual Basic, Menu Debug, 
Compila ), a volte mi sagnala come errori  i richiami ai  nomi dei campi 
della maschera ( esempio : Me.nomeCampo), magari la volta precedente non mi 
aveva segnalato nulla.
Se io sostituisco il riferimento al campo della maschera da Me.nomeCampo con 
Forms!nomeMaschera!nomeCampo la compilazione non segnala più l'errore.
Quello che vorrei sapere è il motivo dell'errore e perchè viene segnalato 
solo alcune volte.
Visto che ci sono Vi pongo una seconda domanda:
All'interno di un report se da codice devo richiamare un campo del report 
quale è la sintassi giusta per richiamarlo, Me.comeCampo o Report.nomeCampo 
a altro?
Grazie a tutti.

 Report.nomeCampo a altro?
sempre Me.
Ciao
Sib
-- 
http://www.gestionedati.com
 


Prova se funziona con
Me!NomeCampo
Me("NomeCampo")
VBA qualche volta ha problemi col punto soprattutto se un controllo
ha lo stesso nome di un campo.
Vedi anche 
www.donkarl.com/it
 FAQ 6.3 Punto o punto esclamativo
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + iscriviti alla CISA2, la seconda
Conferenza Italiana per Sviluppatori di Access, Ancona, 22+23/4/2006

Newsgroup: it.comp.appl.access
Titolo: come fermare il codice in esecuzione

da tastiera, come blocco l'esecuzione del codice? (quando va in loop
qcosa, per esempio...)
___________________________________________
"in fondo anche l'amore è un sovrappensiero..."
m.querc...@sis-ter.it
Togli NOSPAM dall'e-mail per rispondere.

 wrote in message
llfm5tkb4ac6sp9ia...@4ax.com...

Newsgroup: it.comp.appl.access
Titolo: Finestre di Dialogo

Salve a tutti, sto cercando di fare una finestra di dialogo per
selezionare gli ID coinvolti in una certa operazione.  Ecco il mio
tentativo
Private Sub Comando67_Click()
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "DialogoConfig"   /*DialogoConfig č la maschera che ho
creato per essere la finestra di dialogo*/
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    stDocName = "01 Duplicazione Config" /*prima delle tre operazioni
che servono per l'operazione da compiere, qui č necessario inserire il
numero dell'ID sorgente e vorrei che lo si mettesse con la maschera di
dialogo*/
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    stDocName = "02 Duplicazione Config" /*secondo passo*/
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
    stDocName = "03 Duplicazione Config" /*terzo passo in cui serve
l'ID destinazione (che potrebbe essere messo a mano, ma serebbe ideale
che venisse preso dalla maschera aperta in cui risiede questo pulsante
Comando_67*/
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub
Ho visto che per la stampa di Report Access nei suoi Wizzard usa un
codice come quello che segue, ma non ho capito nemmeno dove viene
detto qual'č la maschera che deve fare da finestra di dialogo. Eppure
usando questo pulsante la finestra di dialogo c'č! Boh?
Private Sub Fattura_Click()
On Error GoTo Err_Fattura_Click
    If Forms![Ordini per cliente]![Sottomaschera Ordini per
cliente].Form.RecordsetClone.RecordCount = 0 Then
        MsgBox "Immettere le informazioni sugli ordini prima di
visualizzare in anteprima la fattura."
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
        DoCmd.OpenReport "Fattura", acPreview, , "[IDOrdine] =
Forms![Ordini per cliente]![Sottomaschera Ordini per
cliente].form![IDOrdine]"
    End If
Exit_Fattura_Click:
    Exit Sub
Err_Fattura_Click:
    If Err <> 2501 Then
        MsgBox Err.Description
    End If
    Resume Exit_Fattura_Click
End Sub
Vi ringrazio molto di ogni eventuale aiuto.

dialogo*/
forse valeva la pena di specificare che la query di creazione tabella
"01 Duplicazione Config" ha come Criterio per la selezione
[Forms]![DialogoConfig]![CasellaCombinata0]
Con questo pernsavo che il gioco fosse fatto ma ... 
Eseguendo il tutto ecco cosa succede:
si apre la maschera DialogoConfig ma va in secondo piano rispetto alla
finestra di dialogo (quella standard) che mi chiede il valore per fare
funzionare la query "01 Duplicazione Config". Ovviamente non si può
riportare in primo piano. 
Dopo che è è terminata l'esecuzione della query "03 Duplicazione
Config" la maschera DialogoConfig è di nuovo in primo piano anche se
oramai non serve più a niente.
Credo che il problema non sia nel fare capire alla query che deve
usare la maschera DialogoConfig per prendere i dati, ma nell'aprire la
maschera non modo giusto.
 Mi sapete aiutare? Grazie a tutti.
Newsgroup: it.comp.appl.access
Titolo: convertire un file in pdf

ciao a tutti.
volevo sapere se qualcuno aveva già affrontato il problema di creare un
file pdf dal report di anteprima tramite codice vba.
ho letto che qualcuno è riuscito, ma non si trova niente a proposito,
tramite un componente ocx
grazie mille dell'aiuto

 grazie mille dell'aiuto
Affrontato, sezionato e ...variamente risolto; con un semplice "file pdf"
in questo gruppo attraverso google trovi decine di 3D.
E' comunque sempre necessario avere a disposizione un drive di stampante
per la creazione dei *.pdf (gratuito o commerciale come quello dell'Adobe).
TANNHAUSER
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:crtj5f$qvs$1...@news.newsland.it...

io come convertitore di file utilizzo la stampante virtuale pdf995 ho
cercato sul sitocomune ma non ho trovato niente tramite la sezione cerca
nel newsgroup visualizzo solo 300 messaggi.
sapresti aiutarmi per favore

 sapresti aiutarmi per favore
"Solo" 300 messaggi!!! E non ti bastano. Abbi un po' di pazienza e,
adattando le risposte (io l'ho fatto con Acrobat 4.0) perverrai a qualcosa
di buono.


 -- 
Ciao Tannhauser,
Probabilmente Access il top, intendeva dire che in Outlook visualizza solo
gli ultimi 300 messaggi indipendentemente dall'oggetto.
La strada più veloce per cercare quelli che parlano di conversione in pdf è
andare su google gruppi selezionare it.comp.database e cercare ad esempio
file pdf ... oppure clicca qui sotto:
http://groups.google.it/groups?hl=it&lr=&q=file+pdf&btnG=Cerca&meta=group%3Dit.comp.database.*
saluti
Cinzia

 Cinzia
Chiedo venia,
non mi ero reso conto del senso della risposta.
Concordo, come avevo detto, che cercare nel NG da Google dia risultati piů
completi.


 ha scritto nel messaggio
news:cru0o5$p82$1...@news.newsland.it...

grazie mille č proprio quello che mi succede a me cercherň informazioni
dove mi avete detto voi.
grazie mille

 ha scritto nel messaggio
news:41e2959a$0$8204$5fc...@news.tiscali.it...

ciao.
adesso ho trovato qualcosa che sembra funzionare quindi non tiratevi
matti.
se riesco a farlo andare bene preparo un filetto solo con questa
funzione e allegato il piccolo software freeware e invio tutto al sito.
speriamo bene..
Newsgroup: it.comp.appl.access
Titolo: mscomct2.ocx e win98

Ho realizzato un'applicazione con access 2000 sul notebook (win me).
Nell'applicazione ho usato il controllo calendario in oggetto, presente nel
cd di office 2000.
Ho trasferito l'applicazione sul pc di casa (win98).
Vado per aprirla e scopro che il controllo calendario non funziona.
Ho provato a installarlo dalle opzioni del cd di office 2000.
Niente da fare.
Ho provato a copiare i file nella cartella system di windows.
Niente da fare.
Che delusione....
Qualcuno sa aiutarmi?
Dovrei distribuire questo applicativo e a quanto pare mi troverei con molte
incompatibilità.
Grazie

Mi rispondo da solo, visto che alla fine credo di aver capito cosa è
accaduto.
Avendo aperto il file *.mdb che conteneva il controllo calendario Pinker 6.0
prima di averlo installato, ha fatto si che Access mantenesse in memoria
l'impossibilità ad usare quel controllo, nonostante avessi poi in seguito
provato e riprovato ad installarlo.
Cancellato il file e recuperando una versione precedente il problema si è
risolto.
Quindi:
1 - Il controllo msconlt2.ocx non basta copiarlo in c:\windows\system, ma
deve essere regolarmente installato con il cd di installazione (office 2000)
2 - Un file mdb che viene eseguito prima ancora di installare un controllo
in esso contenuto, continua a ricordare che quel controllo non esiste nel
sistema e pertanto si rifiuta di eseguirlo, anche dopo averlo installato
correttamente.
By
Newsgroup: it.comp.appl.access
Titolo: VBA: impostare maschera su un record...

Salve a tutti,
ho costruito una mascherina per ricercare i clienti e
vorrei cliccando su uno di essi posizionare una seconda maschera
sul relativo cliente....
Utilizzo l'espressione:
Forms!Anagrafico_cliente!codice = me.id_cli
secondo mè il problema è che "codice" è di tipo
contatore e VBA non mi permette di assegnarli il valore....
come posso ovviare al problema?
grazie
sdamy

 wrote in message
news:a6a509$2in$1...@pegasus.tiscalinet.it...

Al di la che quello che hai scritto serve, non per posizionarsi, ma
per IMPOSTARE un VALORE, cosa che non devi assolutamente fare.
Prova a verificare il codice dietro l'AUTOCOMPOSIZIONE della
ricerca tramite una COMBO_BOX:
Sub CasellaCombinata12_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Me.RecordsetClone.FindFirst "[Nome] = '" & Me![CasellaCombinata12] &
"'"
    Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Invece di applicare questa procedura alla FORM Me sulla
FORM=Anagrafico_cliente
Come...???
Sub CasellaCombinata12_AfterUpdate()
    ' Trova il record corrispondente al controllo
    Forms("Anagrafico_cliente").RecordsetClone.FindFirst "[Nome] = '" &
Me![CasellaCombinata12] & "'"
    Forms("Anagrafico_cliente").Bookmark =
Forms("Anagrafico_cliente").RecordsetClone.Bookmark
End Sub
Ciao.
Alessandro.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:0a7f98cc641021b825...@mygate.mailgate.org...

Grazie
adesso mi "avventuro"....
ciao ciao
sdamy
Newsgroup: it.comp.appl.access
Titolo: Record simili

Ripropongo il quesito perchè mi sarebbe molto utile trovare una 
soluzione:
ho bisogno di isolare i record che iniziano tutti nello stesso 
modo tipo
ROSSI GIACOMO
ROSSI LEONARDO
ROSSI srl
facendomi vedere anche un altro campo che è l'attività che 
ognuno di loro svolge.
Ho creato, come mi ha suggerito Antonio, 1 query che contiene 
nome e funzione LEFT ed un'altra query che contiene la 
precedente messa due volte dove ho unito i campi LEFT e i campi 
nome hanno il criterio <>.
L'unico problema è che la query paragona ogni singolo record con 
tutti gli altri simili e da 3000 records di partenza ne ottengo 
15000.
Come posso isolare solo quelli simili facendo vedere anche 
l'attività (quello comunque sono riuscita a farlo anche nella 
query che ho già)
Grazie
-- 
Inviato da Virgilio 
http://newsgroup.virgilio.it
Filtra gli antipatici, segnala le risposte, segue i thread, e lo fa da web

 Grazie
Ciao Gloria,
non riesco a trovare la soluzione proposta da Antonio quindi te ne propongo
una mia (che forse sarà uguale a quella di Antonio)
------------
SELECT *
FROM Tabel1
WHERE Left([Nome],InStr([Nome],' '))
    IN (SELECT  Left([Nome],InStr([Nome],' '))
         FROM Tabel1
        GROUP BY  Left([Nome],InStr([Nome],' '))
        HAVING COUNT(1)>1)
--------------
Nome è il campo che contiene il nome intero, la funzione LEFT prende la
parte sinistra a partire da primo spazio, poi la Where fa vedere solo quelli
che hanno la parte sinistra uguale.
Ciao Giorgio

 query che ho già)
Non ho seguito i post precedenti, ma forse può servirti una cosa tipo la
seguente.
Supponendo che la tua tabella si chiami Azienda e che la sua chiave primaria
sia il campo ID, prova la seguente query:
SELECT DISTINCT A1.* FROM Azienda A1,
AZIENDA A2 WHERE
UCASE(LEFT(A2.RAGSOC,5))=UCASE(LEFT(A1.RAGSOC,5))
AND 
A2.ID
<>
A1.ID
;
Naturalmente al posto di A1.* potrai specificare i campi che desideri.
HTH.
Alessandro

         HAVING COUNT(1)>1)
 Grazie per l'idea, è diversa da quella di Antonio e sto 
provando anche se Access non mi accetta la sintassi di IN ma 
insisterò domani visto che tra poco scappo.
L'unico problema che ho visto è con i record che non hanno 
spazio e sono solo una parola e quindi non li vede.
Domani ti so dire
Gloria


 Domani ti so dire
Questo č vero ma si puň porre rimedio
------------------
SELECT *
FROM Tabel1
WHERE (
        Left([Nome],InStr([Nome],' ')) IN
        (SELECT  Left([Nome],InStr([Nome],' '))
         FROM Tabel1
         GROUP BY  Left([Nome],InStr([Nome],' '))
         HAVING COUNT(1)>1
         ) AND
         InStr([Nome],' ')<>0
       ) OR
   Nome IN (SELECT Nome
            FROM Tabel1
            GROUP BY  Nome
            HAVING COUNT(1)>1)
-------------------
Ciao Giorgio

 -------------------
FUNZIONA!!!!
Grazie infinite

Newsgroup: it.comp.appl.access
Titolo: grafici

Ciao,
ho realizzato dei grafici che si appoggiano a delle basi dati che tutte le
settimane implemento.
I grafici vengono aperti tramite un pulsante su una maschera.
Ho notato che alcune volte il grafico non si aggiorna con gli ultimi dati
inseriti, e devo lanciarlo 2 o tre volte prima di vedere il risultato
corretto.
Qualcuno mi sa aiutare. c'č qualche azione di aggiornamento da lanciare
prima dell'esecuzione del grafico?
Grazie
Gianna

 wrote in message
news:ce8i0u$hq8$
1...@grillo.cs.interbusiness.it

Sei il pulsante si trova sulla maschera di implemenrazione prova ad 
eseguire un refresh della stessa e delle sue eventuali sottomaschere 
prima si eseguire il grafico.
Ciao
Marco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.appl.access
Titolo: Merge tra due tabelle

Ho due tabelle Anagrafica1 e Anagrafica2, che hanno la stessa struttura.
Alcuni record della prima sono contenuti anche nella seconda, e viceversa.
Vorrei dei consigli per ottenere un unica tabella senza record doppi, tenendo
presente che la verifica avviene su tre campi (cognome, nome e datanascita).
Ringrazio.
Mauro Agosto
-- 
Posted from  [212.110.28.59] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

presente che la verifica avviene su tre campi (cognome, nome e datanascita).
Prova cosi'
INSERT INTO [Anagrafica1]
SELECT *
FROM [Anagrafica2]
WHERE NOT EXISTS (SELECT *
FROM [Anagrafica1]
WHERE [Anagrafica1].Cognome=[Anagrafica2].Cognome AND
[Anagrafica1].Nome=[Anagrafica2].Nome AND
[Anagrafica1].datanascita=[Anagrafica2].datanascita)
Saluti
ing. Franco Varoli
fva...@tin.it
fva...@libero.it

Newsgroup: it.comp.appl.access
Titolo: Collegamento tabelle

Salve a tutti,
ho fatto una procedura in access dividendo il file delle tabelle con
quello dei programmi.
Quindi ho effettuato il collegamento delle tabelle.
Ho una richiesta da fare: è possibile indicargli che le tabelle
risiedono nel file "tabelle.mdb" che si trova nello stesso path dove
si trova il file dei programmi?
Questo sarebbe utile in quanto se gli cambio cartella, non devo ogni
volta indicargli il percorso per il collegamento delle tabelle.
Grazie


www.donkarl.com/it?FAQ3.1
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it

 wrote:

Funziona perfettamente se la inserisco nell'evento di apertura della
maschera.
Io però vorrei inserirla nella macro "autoexec" ma non riesco.
Allego il codice da inserie nella macro.
On Error GoTo MyError
Dim db As DAO.Database
Dim strDaten As String
Dim i As Integer
Set db = CurrentDb()
strDaten = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) &
"Fata_bovini_tabelle.mdb"
For i = 0 To db.TableDefs.Count - 1
  If db.TableDefs(i).Connect <> "" Then
    If Mid(db.TableDefs(i).Connect, 11) <> strDaten Then
      db.TableDefs(i).Connect = ";database=" & strDaten
      db.TableDefs(i).RefreshLink
    End If
  End If
Next i
MyExit:
  Exit Sub
MyError:
  MsgBox "Un problema è accaduto durante l'installazione. ", 16,
"Eccezione"
  Resume MyExit
Grazie

 Allego il codice da inserie nella macro.
Nel macro puoi solo chiamare funzioni di VBA che si trovano
in un modulo standard. Allora alla finestra del database crea
un nuovo modulo e nel modulo crea una nuova funzione
Public Function fctRiallegare()
' qui incolla il codice dalla FAQ
...
' e alla fine
End Function
Salva il modulo p.e. con il nome "basRiallegare".
Poi nel macro usa l'azione EseguiCodice e come "Nome funzione"
scrivi: =fctRiallegare()

Newsgroup: it.comp.appl.access
Titolo: (OT ma neanche troppo) Libri VBA


Come dare le perle ai porci... E pure gratis...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:aj6dc6$i6s$1...@canarie.caspur.it...

L' ho letto solamente adesso (13/08): "Come dare le perle ai porci... E pure
gratis...".
Cattivo ... Cattivo , Cattivo :'-(
Ciao.Fabrizio.
p.s. e pure nu' poco strunziello ;-)


Eh, ma tu te le capi...
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Mazza....mhm... numble.....numble.... dov'è la risposta al mio quesito sulla
macro, vorrei sapere perchè non ti applichi?
Va là ....
Ciao. Fabrizio.

 Ciao. Fabrizio.
Carma e gesso Fabbri' che sta' cacchio di connessione va e viene; è la
quarta volta che rifaccio il numero...
Ciao.
--
Sergio MAZZA

 Sergio MAZZA
Calma Mazza che tanto ho tempo: devo andare a casa e credo che mi collegherò
da li solo sta' notte per fare il punto della situazione e vedere di provare
cmq quello che mi hai detto. Grazie ( anche per stare alla scherzo ). :-)
Ciao. Fabrizio.

 Ciao. Fabrizio.
Oh! E' chiaro che si scherza...
Ciao.
P.S. Io mi scollego e ci leggiamo domani (forse)...
Ari-Ciao.
--
Sergio MAZZA

 Oh! E' chiaro che si scherza...
Megli dirlo: c'è gente un po' strana.
Ciao. Fabrizio.

 ha scritto nel messaggio
news:aje3k0$e9s$1...@canarie.caspur.it...

Datevi pure dei bacini eh, noi non guardiamo tanto...
Antonio

 ha scritto nel messaggio
news:VA189.77612$lu5.2...@twister1.libero.it...

Purtroppo l'amore è già finito sigh.
:'-(
Cmq bentornato Biso, felice di risaperti qui.
Ciao. Fabrizio.

 Antonio
Tanto no; ma abbastanza da... Guardoni, sě!
Ciao.
--
Sergio MAZZA
Newsgroup: it.comp.appl.access
Titolo: criterio: "non contiene"

Ciao, il contenuto di una colonna della query potrebbe avere al suo
interno la lettera "L" che però non è ne all'inizio ne alla fine del
testo.
Vorrei non selezionare i record che la contengono.
quindi..........
not like...e qui mi pianto.
grazie


instr
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access
Segrate (MI), 7-8 giugno 2007

grazie
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------


grazie a te e MA

montanaro® ha scritto:


mi sa che non va bene in quanto gli asterischi indicano caratteri prima e
dopo la L, quindi se vi è una parola che incomincia per L o finisce con L,
queste non vengono filtrate.
per ovviare dovresti fare
NOT LIKE "*L*" or NOT LIKE "L*" or NOT LIKE "*L"
in modo che copre tutta la gamma!
IMHO!  e non ne sono sicuro al 100%
luigi
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 IMHO!  e non ne sono sicuro al 100%
Fai bene a non esserne sicuro :-)
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 Fai bene a non esserne sicuro :-)
ok! ma se sbaglio, perche non mi correggi con il codice giusto? 
non per me, ma per il montanaro che si sta scervellando a capire la
soluzione giusta!


 soluzione giusta!
Perché tu hai corretto la soluzione di Vincenzo Turturro, affermando poi 
di non essere sicuro.
Io to ho detto che fai bene a non essere sicuro, quindi la tua correzione 
non va bene, quindi è corretta la soluzione di Vincenzo che non ho postato 
in quanto lo ha già fatto lui.



La soluzione not like "*L*" era perfetta; sono stato ingenuo io a non
pensarci prima, in effetti dice "non contiene"...
Newsgroup: it.comp.appl.access
Titolo: Consigli su procedure import

La mia è solo una richiesta di informazioni, un consiglio da chi ha più
esperienza di me. Devo creare alcune procedure di import dati da file
sequenziali generati da un gestionale Unix/Cobol in un mdb di A97 e fin qui
nessun problema, visto che ho già fatto cose del genere in VBA. Le mie
perplessità sono di due tipologie, visto che non le ho mai affrontate in
Access e cioé:
1) per rendere il lavoro più pulito cosa pensereste se utilizzassi una
tabella all'interno del db contenente i tracciati record dei file che devo
importare ? (ad es. nome del campo, lunghezza, tipo sepatore, carattere di
fine record (LF,CR,CR+LF), etc.). In Word mi ero fatto dei .ini adatti allo
scopo.
2) se i dati che devo importare devono andare in update su campi già
esistenti come si risolve il problema delle chiavi e quindi dell'integrità
referenziale ? Mi devo fare delle tabelle di appoggio ?
Ringrazio in anticipo tutti coloro che potranno aiutarmi.
Aloa    Mattia

 referenziale ? Mi devo fare delle tabelle di appoggio ?
Direi di no, come detto il modo + semplice è allegare il file come una
tabella;
a quel punto se la cosa è semplice te la cavi con due query in cascata
(update
ed insert), se è + complicata dovrai gestire il tutto via recordset.
Bye, Ste

 ha scritto nel messaggio
news:vcL%5.148790$DG3.2...@news2.giganews.com...

Ti ringrazio molto, non lo sapevo. Ma a questo punto mi sorge un'altra
domanda: se il mio file sequenziale è un po grande (diciamo intorno ai 9 Mb
di testo) non è che si impalla tutto quando lo allego come tabella ?
Grazie ancora
Aloa                Mattia


Mi è capitato di importare a quel modo al massimo un filettone da 6MB
e problemi non ce ne furono...
In ogni caso il bello è che a provare ci metti davvero poco, allegalo e
prova a farci sopra un select count(*).
Bye, Ste

 ha scritto nel messaggio
news:zmM%5.108551$IP1.3...@news1.giganews.com...

Grazie ancora di tutto.
Aloa                Mattia

Newsgroup: it.comp.appl.access
Titolo: Re: Recordsource in Access97 via ODBC

 Ciao, Mario
L'ODBC lo usi da codice o è manuale?
-- 
Pablitomf (Maurizio Facciuti)
“Quando non ti eserciti ricorda che qualcuno in qualche posto si sta
allenando e, quando lo incontrerai, ti batterà”.
Ed Macauley 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 recordset dove avvengano al suo interno dei join?
Certo che i recordsets sono aggiornabili, però hai incluso le chiavi
primarie nella query?


Quando dici incluse dici nella select ( es: "select xyz from table" ) ?
Oppure nella join?
Essendoci una campo chiave nelle 2 tabelle con stesso nome, per una tabella
ho docuto utilizzare l'alias.
Cosa che con motore Access non serviva. Può essere questo il problema?
Ciao

 Cosa che con motore Access non serviva. Può essere questo il problema?
E' un caso che non ho verificato.
Prova a cambiare il nome della seconda tabella e riprova...
Matteo

 > Cosa che con motore Access non serviva. Puņ essere questo il problema?

Newsgroup: it.comp.appl.access
Titolo: Nascondere o visualizzare campo

Su un report ho il problema di nascondere a fronte della presenza nel campo
CARTELLINO i dati con il numero del documento "NUMERO_DOC" e viceversa.
Questo sistema fino adesso non mi ha mai dato problemi in un report normale.
Adesso ho tentato di inserirlo (il comando) in un report tabulare, con i
record  come nelle "maschere continue", ma se nel campo CARTELLINO il campo
è vuoto mi scrive ERRORE  e non mi inserisce il campo NUMERO_DOC.
Dove è che posso sbagliare.
Questo è il comando
=IIf(Nz([cartellino]);" ";[NUMERO_DOC])


Partiamo col dire che non hai inserito nessun criterio da processare
In realtà se non c'è non esce
Però l'#errore lo puoi intercettare con
iif(iserror([cartellino]);"";[numero_doc])
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Newsgroup: it.comp.appl.access
Titolo: Tabelle nascoste ??

Nei database access, ci sono delle tabelle nascoste ??
Ve lo chiedo perche' ho provato a fare una cosa del genere :
Sub visualizaNomiTabelle()
Dim db As Database
Set db = CurrentDb
Dim a As Integer
For a = 0 To db.TableDefs.Count - 1
msgbox db.TableDefs(a).Name
Next a
End Sub
ed ho scoperto che ci sono delle tabelle con nomi "strani" : MSysACES,
MSysModules, MSysObjects..etc.etc. che, pero', non si vedono da nessuna
parte.
Di che si tratta ??
Grazie

 wrote in message
BfIj8.9966$%g7.2...@twister2.libero.it...

Tabelle di sistema... puoi vederle anche se in Strumenti/Opzioni scegli
l'opzione visualizza oggetti di sistema

 l'opzione visualizza oggetti di sistema
Grazie.
Ciao

Newsgroup: it.comp.appl.access
Titolo: Creare una Label a forma di cerchio sul form

Salve .. vorrei sapere come si può inserire sul form una label o disegnare
un cerchio su di un form.... le possibilità più evidenti ( offerte da
access ) sono la linea o il rettangolo..
grazie ....

 access ) sono la linea o il rettangolo..
Non credo tu possa... però puoi crearti un'immagine con un programma di grafica e poi
associarla a un controllo immagine. HTH.
Ciao. Claudio.

Grazie per il tuo suggerimento... ma cos'è una immagine HTH ????
"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:f5At9.29965$TD1.1...@news2.tin.it...


 Grazie per il tuo suggerimento... ma cos'è una immagine HTH ????
Ehm... Hope This Help :-)

Ho visto qualcos del genere in un sito di un tale Lebans o Browne
prova a cercare
Giovanni
Claudio <cld@NOSPAM&COsupereva.it> wrote in message
f5At9.29965$TD1.1...@news2.tin.it...


Ehm... Hope This Help :-)
s
;-)
--
lorenzo coronati
---
Newsgroup: it.comp.appl.access
Titolo: mde

 
          dopo aver creato un db con access 2003 ho provato lo stesso copiandolo in un
altro pc dove è installato w98 con una versione precedente (run time) di
access. tutto va bene.
il problema è che se lo converto con access 2003 in formato mde, mantenendo
la versione 2003 questo file mde viene letto dal pc ove è installato access
2003 ma appena cerco di legerlo nell'altro pc (w98) mi appare un messaggio
dove mi si dice che il codice è corrotto. Access 2003 non mi consente di
convertirlo in una versione precedente e poi di convertirlo in mde; o meglio
mi consente il primo passaggio ma non il secondo.
Non so come fare. se qualcuno avesse qualche consiglio da darmi ringrazio
anticipatamente. ho provato anche ad installare la versione run time 2003 ma
non mi si installa per via del sistema operativo...non so se esistono
versioni run time 2003 installabili in w98.
grazie e ciao
francesco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 versioni run time 2003 installabili in w98.
Installa Win 2000 o XP sulla macchina.
Oppure sviluppa con la realese precedente di Access: le novità della realese
'03 in fin dei conti sono poche.
Purtroppo questa è la realtà.
Ciao.

Newsgroup: it.comp.appl.access
Titolo: Controllo record accodati .... aiuto!!!!!!

Ho questo piccolo problema e non riesco a venirne a capo
Ho un collegamento ad un file di TXT  dove grazie ad una query di
accoramento vado a riempire una tabella con i dai di questo file
Il mio problema riguarda l'avere la possibilità di poter controllare i
record del file txt, verificare se i record sono già stati accodati nella
tabella e visualizzare quali sono questi record duplicati
Accetto qualsiasi aiuto
Grazie mille in anticipo

Puoi importare i record via codice, e così hai la possibilità di esaminarli
uno ad uno mentre li leggi;
oppure, una volta importati i dati, puoi lanciare una query di ricerca o
eliminazione dei record duplicati (l'autocomposizione ti aiuta a crearla).

Newsgroup: it.comp.appl.access
Titolo: conta_record_listbox

Ho utilizzato questa routine prelevata dall' NG
per filtrare dei dati
Dim CaratteriDigitati As String
CaratteriDigitati = Nz(Me!MyTextbox.text, "")
Me!MyListbox.RowSource = "SELECT RicercaGruppo FROM qryRicercaGruppo " & _
 "WHERE RicercaGruppo LIKE """ & CaratteriDigitati & "*"""
è possibile contare i numeri di record presenti nella MyListbox
in una casella di controllo
nella casella di controllo txtContaRecord
ho utilizzato questa routine, ma giustamente conta
i record presenti nella qryRicercaGruppo
=DCount("*";"qryRicercaGruppo ")
avete qualche idea ?
se state lavorando buon lavoro,
se siete in ferie buone ferie,
nel frattempo non dispero e ci riproverò ancora
ciao. Paolo

 ha scritto nel messaggio
news:GPcT6.5767$Zo3....@news1.tin.it...

Della funzione DCount scrivi anche i criteri; è vero che sono opzionali, ma
nel tuo caso servono.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
Newsgroup: it.comp.appl.access
Titolo: Apertura db Access 2003 con Login

Buonasera Amici del NG,
ho un db di Access 2003 nel quale ho inserito una maschera (frmLogin)
che si attiva all'apertura con una macro (AutoExec); questa maschera
in pratica chiede di inserire un nome utente (che deve essere OPEN).
Vorrei ora far in modo che la barra dei menu che gestisce le varie
applicazioni sia bloccata e quindi non utilizzabile oppure sia non
visibile se prima non si immette il nome utente corretto (cosa che
invece normalmente non avviene perchè i comandi funzionano lo stesso).
Grazie molte per il prezioso aiuto
Leo

 la barra dei menu che gestisce le varie applicazioni
?
Una barra di men� che hai creato tu o la barra delle applicazioni
di Windows o ...?
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 Access FAQ:
www.donkarl.com/it
si,
è una barra di menù che ho creato io.
grazie Karl

 grazie Karl
La Classe CommandBar ha tra i suoi membri Enabled e Visible.
Ad esempio:
Dim cmdBar as CommandBar
Set cmdBar = CommandBars!TuaBarra
cmdBar.Visible=False
Ricordati che per gestire la classe CommandBar devi mettere tra i
riferimenti la libreria MSO.dll (Nel caso di AXP si tratta della
"Microsoft Office 10.0 Object Library")
Per un'ampia panoramica sulle CommandBar vedi:
http://www.accessgroup.it/HomeArgomenti.asp?ID=99&Oggetto2=Traduzioni
 : MS
Access 2000...
In particolare il Cap 1 - Barra di Comandi: Barre Menu, Barre Strumenti e
di Scelta Rapida
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ...
In alternativa senza oggetto e cos� senza riferimento:
Application.CommandBars("TuaBarra").Visible = False
o
DoCmd.ShowToolbar "TuaBarra", acToolbarNo
-- 
HTH


 - Mostra testo citato -
ok
grazie Karl
Newsgroup: it.comp.appl.access
Titolo: verifica sequenza esatta del codice fiscale da codice

Ho evitato di inserire il controllo del codice fiscale nella proprietà
formato di input nella casella di testo per evitare che non compaia il
messaggio di avvertimento gestisto direttamente da access quando l'utente
sbaglia ad inserire la sequenza di lettere e numeri.
Dato che è impossibilire gestire questo messaggio incomprensibile per
l'utente, ho deciso di verificarlo da codice prima di procedere
all'aggiornamento del record.
Ho fatto dei tentativi utilizzando la seguente istruzione:
if not  me!codicefiscale like "AAAAAA00A00A000A" then  ........."codice
fiscale non esatto", ma access non la intercetta.
Ho pensato di utilizzare la proprieta format della casella di testo, ma ho
pensato che forse qualcuno può darmi una dritta chiarificatrice.
Ringrazio in anticipo per l'aiuto.
Valerio


Puoi tentare con l'evento Su errore della maschera e
Response: acDataErrDisplsy
 'essentially does nothing-it tells Access to go ahead and display the
default message box informing the user that their entry isn't on the list.
 Response: acDataErrContinue
'tells Access not to display that message box.
Response: acDataErrAdded
'Access requeries the combo box, which lets a new matching value added
within the procedure be found and used.
giuseppe
ps
Codice : Bloccato
alla mia destra un "Manuale del programmatore", 1205 pagine.
Alla mia destra una Colt 45
Indeciso

 Indeciso
Non hai alternative, procedi con la destra :-)
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------

 Federico
Effetto refuso , il manuale si trova alla mia sinistra,
ma il blocco è vero , se non riuscirò a risolvere avrò due vie ,
coinvolgere l' NG o la Colt 45 .
Giuseppe con 2 PC e senza portatile

Newsgroup: it.comp.appl.access
Titolo: RepMultipli su sito comune

Scusate l'intrusione e l'inesperienza. Ho scaricato dal sito comune il file
RepMultipli di RodAgo e Sib. Ho Access 2000 ed ho provato ad aprire l'mdb ma
sia con il primo che con il secondo mi da il messaggio "L'account utente
corrente non dispone delle autorizzazioni per convertire o abilitare il
database". Non ho modificato l'mdw standard di Access quindi non riesco a
capire il motivo dell'errore.
Ho visto che l'esempio č nato per Access97 ma pensavo di poterlo aprire
ugualmente.
Dove sbaglio ?
Grazie 1000 in anticipo                                Mattia

 Ho visto che l'esempio è nato per Access97 ma pensavo di poterlo aprire

Newsgroup: it.comp.appl.access
Titolo: Timer

Salve, In 2 sottomaschere "Chiamate" e "Note" della Maschera
"Pannello",  ho messo ad entrambe nell'evento Timer :
If Me.Dirty = False Then
Me.Requery
End If
ma se lavoro in una, l'altra mi esegue giustamente il Requery. Cosa
consigliate? Grazie

MaVco ha scritto:

Mi sembra normale, ma non hai spiegato cosa devi fare con questo strano
accorgimento...???
@Alex

Ups... lo dovo per scontato...
l'altra eseguendo il requery, mi aggirna anche la prima, magari mentre
stò scrivendo.
Cioè se l'evento lo mento in una sola sottomaschera, funziona
correttamente, ma se la metto in tutte e due, si aggirna quella che non
stà lavorando causando l'aggiornamento anche su quella che lavoro...il
caos.. :) grazie
Alessandro Baraldi ha scritto:


 caos.. :) grazie
Ti suggerisco di rimanere nel tradizionale, su Evento AfterUpdate, non
innescare strani
loop.
@Alex

 MaVco ha scritto:


Newsgroup: it.comp.appl.access
Titolo: Aggiornamento dati automaticamente in maschera

Salve e scusate se vi scrivo di una cosa forse trita e ritrita ma sono alle
prime armi con Access e non riesco a capire perchč in una maschera che deve
funzionare cosě:selezione del cliente ed automaticamente deve scrivere
indirizzo e tipo di apparato in uso, il campo indirizzo viene riempito
correttamente automaticamente ma invece il campo apparato no, come posso
fare? Ah il campo apparato viene preso da un'altra tabella contenente tutti
i tipi di apparati, al momento dell'inserimento in tabella di un cliente
viene inserito anche il tipo di apparato e l'indirizzo.
Spero che mi siate di aiuto!
Ciao Roberto



 ha scritto nel messaggio
news:8qff4p$9gu$1...@nslave1.tin.it...

Poiché sei stato avaro di particolari ti meriti il terzo grado:
1) Fermo restando che hai una tabella Clienti che contiene fra l'altro un
campo Indirizzo ed un campo TipoApparato, che cosa hai come origine record
della tua maschera?
2) La selezione del cliente la fai tramite tramite una casella combinata che
ha come origine riga una query basata sulla tabella Clienti? Se si, quante
colonne ha la casella combinata e che cosa contengono?
3) Il controllo Apparato (e non il campo apparato) non viene affatto
riempito oppure č riempito con il codice del tipo apparato anziché con la
descrizione del tipo apparato come vorresti?
4) Per il campo TipoApparato della tabella Clienti hai eseguito
l'"Autocomposizione Ricerca..." verso la tabella Apparati?
--
Roberto
---------------------------------------------
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

5) se poi ci invii anche il codice VBA che hai inserito a fronte dell'evento
"Dopo aggiornamento" della casella combinata sarebbe ancora meglio.
