title: Probblemi con Nuova stampante

text:
Spero che quanto mi avete suggerito vada bene,Colgo l'occasione per
rimandarti una soluzione sul blocco dei record  su una vecchia New
io ho risolto questo problema in questo modo (Access2000)
Private Sub Form_Current()
On Error GoTo Err_Form_Current
'''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''
Exit_Form_Current:
    Exit Sub
Err_Form_Current:
    KDouble = Err.Number
    If Err.Number = -
2147352567
 Then
       MsgBox "Attenzione il Record su cui ci si vuole posizionare  č " & _
              "Attualmente usato da un altro utente,non  č possibile
posizionarsi " & _
              "fino a che l'altro Utente non lo libera", vbCritical
       DoCmd.GoToRecord , , acNext
    Else
       MsgBox Err.Description
       Resume Exit_Form_Current
    End If
    Resume Exit_Form_Current
End Sub
a me funziona
Saluti e buone feste a Tutti
Marcello Riaudo
"Sergio MAZZA" <
sergi...@tiscali.it
> ha scritto nel messaggio
news:em95qo$k5$1...@tdi.cu.mi.it...
> "Riaudo Marcello (Alice)" <
riau...@alice.it
> ha scritto nel messaggio
> news:45880220$0$4260$4faf...@reader1.news.tin.it...
>> Ancora io un cliente ha comprato una nuova stampante i report Non vengono
>>  > stampati piů bene, mancano dei campi,li stampo sulle vecchie stampanti
>> ed invece č tutto OK.
>> Qualcuno sa cosa come si puň risolvere il problema.
>>
>> Di nuovo saluti ed auguri a tutti
>>
>> Marcello
>
>
> Oltre al suggerimento di Vincenzo;
> - prova ad aprire il report in struttura e salvarlo;
> - in visualizzazione struttura, File - Imposta pagina - (scheda) Pagina;
> guarda se č indicata una stampa specifica o predefinita...
>
> Ciao.
> --
> Sergio MAZZA


title: Probblemi con Nuova stampante

author: Sergio MAZZA

text:
"Riaudo Marcello (Alice)" <
riau...@alice.it
> ha scritto nel messaggio
news:458825db$0$16158$4faf...@reader3.news.tin.it...
> Spero che quanto mi avete suggerito vada bene,Colgo l'occasione per
> rimandarti una soluzione sul blocco dei record  su una vecchia New
---omissis---
> a me funziona
>
> Saluti e buone feste a Tutti
>
> Marcello Riaudo
Avevo letto la tua; speriamo che a Michele sia andata bene...
Ciao.
--
Sergio MAZZA


title: filtrare in query valori che hanno più di due decimali

author: Vito Fanciullo

text:
ciao a tutti,
in un campo  ho (fomato numerico decimal)

3,432
2,3
4,568
2
5,67
8,1
3,543
4,5678

in una query vorrei filtrare solo i record che hanno più di due decimali


author: Ammammata

text:
Il giorno Sun 26 Feb 2023 07:31:18a, *Vito Fanciullo* ha inviato su
it.comp.appl.access il messaggio
news:edfdb431-87fe-4509...@googlegroups.com
. Vediamo
cosa ha scritto:

> ciao a tutti,
> in un campo  ho (fomato numerico decimal)
>
> 3,432
> 2,3
> 4,568
> 2
> 5,67
> 8,1
> 3,543
> 4,5678
>
> in una query vorrei filtrare solo i record che hanno piů di due
> decimali
>
>

messo il valore in a io farei

if a*100 - int(a*100) <> 0 then <ci sono altri decimali> else <no>

poi perň ci sono da verificare eventuali casini fatti dalla malaccorta
gestione dei tipi di variabile, come da altro thread

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


text:

siccome il campo è decimale  con 4 decimali (precisione 18, scala 4)
direi che funziona (dico direi perchè  ho 50.000   record e non riesco a fare una conta manuale)
nella query ho inserito un campo calcolato
Espr1: ([quantita]*100)-(Int([quantita]*100))
criterio <>0
grazieeeeeeeeeeeeee


title: ENASARCO sempre e comunque...

text:
Vabbè, chiedo per l'ennesima volta se qualcuno ha compreso come e dove scrivere/leggere l'eventuale contributo ENASARCO...

Saluti


title: ENASARCO sempre e comunque...

text:
Il giorno lunedì 8 ottobre 2018 11:01:23 UTC+2,
simoca...@gmail.com
 ha scritto:
> Vabbè, chiedo per l'ennesima volta se qualcuno ha compreso come e dove >scrivere/leggere l'eventuale contributo ENASARCO...

In Fattura elettronica ovviamente


title: ENASARCO sempre e comunque...

author: BFS

text:
Il 08/10/2018 11:01,
simoca...@gmail.com
 ha scritto:
> Vabbè, chiedo per l'ennesima volta se qualcuno ha compreso come e dove scrivere/leggere l'eventuale contributo ENASARCO...
>
> Saluti
>

tra un po devo affrontare l'argomento per un cliente
che problematiche rilevi? mi pare che nel tracciato ci siano i campi per
inserirlo

ciao
BFS

---
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com


title: ENASARCO sempre e comunque...

text:

non basta compilare la sezione 2.1.1.7 ?



title: ENASARCO sempre e comunque...

text:
> >> Vabbè, chiedo per l'ennesima volta se qualcuno ha compreso come e dove >scrivere/leggere l'eventuale contributo ENASARCO...

> non basta compilare la sezione 2.1.1.7 ?

Il problema è che quella sezione, relativa alla Cassa Previdenziale, seguirebbe un calcolo diverso rispetto ad Enasarco.

Saluti


title: ENASARCO sempre e comunque...

text:

ma tipo

provvigioni 25.000,00
iva 22       5500,00
totale fattura 30.500,00

enasarco 7.775%  1943.75
ritenuta aconto 23%sul 50% imponibile  2875.00

netto da pagare : 25.681,25

Non torna se la compili ad esempio sul sito dell'agenzia delle entrate
tanto per confrontare poi l'xml?



title: ENASARCO sempre e comunque...

text:
>
> ma tipo
>
> provvigioni 25.000,00
> iva 22       5500,00
> totale fattura 30.500,00
>
> enasarco 7.775%  1943.75
> ritenuta aconto 23%sul 50% imponibile  2875.00
>
> netto da pagare : 25.681,25
>
> Non torna se la compili ad esempio sul sito dell'agenzia delle entrate
> tanto per confrontare poi l'xml?

Mah, possiamo anche provare, ma che mi dici del campo AliquotaIVA (obbligatorio) nella sezione DatiCassaPrevidenziale?
Non ha senso con Ritenuta Enasarco.

Saluti


title: ENASARCO sempre e comunque...

text:

allora ieri ero dal commercialista e ho fatto la domanda
secondo lui non è quella la parte da compilare
interpellati i softwaristi del suo gestionale (leader in italia)
gli hanno risposto che per ora neppure loro sanno come gestirla

insomma siamo messi bene

l'unico modo che ho trovato io è quella di detrarla mettendola come una
normale riga fattura e associando come regime iva "fuori campo iva"
gli importi tornano ma il commercialista mi ha detto che fiscalmente è
errata per il discorso del fuori campo iva

con l'occasione ho scoperto che la fattura elettronica non ammette
quantità negative....bah

un bel mistero



title: ENASARCO sempre e comunque...

text:
> > Mah, possiamo anche provare, ma che mi dici del campo AliquotaIVA (obbligatorio) nella sezione DatiCassaPrevidenziale?
> > Non ha senso con Ritenuta Enasarco.

>
> allora ieri ero dal commercialista e ho fatto la domanda
> secondo lui non è quella la parte da compilare
> interpellati i softwaristi del suo gestionale (leader in italia)
> gli hanno risposto che per ora neppure loro sanno come gestirla
> insomma siamo messi bene

Già...

>
> l'unico modo che ho trovato io è quella di detrarla mettendola come una
> normale riga fattura e associando come regime iva "fuori campo iva"
> gli importi tornano ma il commercialista mi ha detto che fiscalmente è
> errata per il discorso del fuori campo iva
>
> con l'occasione ho scoperto che la fattura elettronica non ammette
> quantità negative....bah

Questa la sapevo, ma per fortuna è concesso inserire Prezzi in negativo (ovviamente non c'è spiegazione razionale).

Saluti e in bocca al lupo (ne abbiamo bisogno tutti)


title: ENASARCO sempre e comunque...

text:
(ovviamente non c'è spiegazione razionale)

>

Intendo dire: sul perchè il Prezzo < 0 sia permesso, ma non la Qta


title: ENASARCO sempre e comunque...

text:
Il 09/10/2018 17:00,
simoca...@gmail.com
 ha scritto:
>

>
> Saluti e in bocca al lupo (ne abbiamo bisogno tutti)
>

https://www.youtube.com/watch?v=SlXI3O9kX5c

come dice l'avvocato "ma chi ha scritto questa norma ha mai fatto una
fattura ?"

aggiungo io "chi l'ha realizzata a livello tecnico ha mai sviluppato
software in vita sua"

speriamo bene
BFS



title: Gestire maschera presenze per squadra calcio bambini

text:
Ho una classica maschera di dati anagrafici che mi raccolgono in un tabella
Nome, cognome, età, via, foto, nome della squadra di appartenenza (a tendina
da un altra tabella nomi_squadre) ecc..
Il problema stà nel fatto che vorrei creare un maschera  "registro presenze"
dove mettere la data odierna, e se era un allenamento o una partita, dove
scegliendo la squadra, mi compaia la lista di tutti bambini di quella
squadra  con  a fianco una casella di spunta che cliccata mi segni appunto
su di una tabella :
squadra - data - allenamento o altro - lista dei bambini presenti e non
poi cosi da questa potro fare tutte le statistiche del caso
Le ho provate tutte ma evidentemente le ore dedicate e  i vary dummy for
access non sono sufficienti, non ne cavo un ragno da un buco
Vi ringrazio tutti anticipatamente da parte degli "Orsetti", dalla "Don
bosco" e dalla Noi sport (e dagli allenatori naturalmente)


text:
"Sthomas29" <
stho...@yahoo.it
> ha scritto nel messaggio
news:JEI3c.25893$z23.1...@news3.tin.it...

Io non assegnerei la squadra di appartenenza nei dati anagrafici ma in
un'altra tabella Squadre dove inserire l'id del pupo (Anagrafica) e  magari
il ruolo. La tabella delle presenze dovrebbe riempirsi (con query di
accodamento) con i dati:
- idPupo;
- dataEvento (la parola "data" è un termine riservato ad access);
- IdPresenza (se: Allenamento, Partita, Panchina, Malattia o altro preso da
un'altra tabella Eventi)...
Ciao.
--
Sergio MAZZA


title: AIUTO!!! Aggiornare DataBase via Modem...

author: Gimmy

text:
Scusate l'insistenza....
Salve a tutti!!
Speriamo che qualcuno possa aiutarmi!
Ho un ufficio centrale dove due agenti devo trasmettere ordini.
Devo creare 2 applicazioni differenti:
La prima per l'ufficio centrale
La seconda per gli agenti.
Devo far in modo che gli agenti premendo un bottone in una form
AUTOMATICAMENTE telefonino all'ufficio centrale parlino con il primo
applicativo e aggiornino i dati in esso contenuti.
Per gli aggiornamenti ovviamente non ci sono problemi, suppongo che i
metodi, una volta LINKATI i due computer, siano quelli tradizionali, ma come
faccio a far telefonare l'applicativo degli agenti ed a far rispondere
quello della sede??
E soprattutto come faccio cominciare il colloquio tra i due applicativi??
Qualcuno ha idee in proposito??
C'e' documentazione in rete che possa consultare??
Grazie mille, di cuore
Gimmy


author: Silvio Berruti

text:
"Gimmy" <gg...@ggi.gigi> ha scritto nel messaggio
news:ZMZo7.34455$F45.4...@news1.tin.it...

Puoi provare creando procedure automatiche di trasferimento dati con
programmi tipo pcAnywhere.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com


title: Problema assurdo docmd.runcommand accmdcopy e accmdpasteappend

author: Fabio 91025

text:
Innanzitutto un megacomplimenti alla comunità. Grazie ad essa sono
riuscito a creare un'applicativo adattato all'esigenza dell'azienda dove
lavoro.
Ho un problema stranissimo con il comando runcommand copia ed incolla
avete presente l'esempio di nortwind di access? c'è la maschera ordini e
la sottomaschera ordini. Ci siamo fin qui? okay. nel mio applicativo ho
creato un'altra maschera che 'chiamiamo ddt' e 'sottomaschera ddt'. il
problema è questo:
in un bottone della maschera 'ddt' ho creato questa routine:
me![sottomaschera ddt].setfocus
docmd.runcommand accmdselectallrecords
docmd.runcommand accmdcopy
forms![ordini].setfocus
if [sottomaschera ordini].form.recordset.recordcount=0 then
docmd.runcommand accmdselectallrecords
docmd.runcommand accmdpaste
else
docmd.runcommand accmdpasteappend
end if
docmd.runcommand accmdsaverecords
forms!ddt.setfocus
docmd.close
fin qui funziona perfettamente
il problema è se ripigio il bottone o prendo un'altro ddt per incollare
altri dati succede che la sottomaschera ordini (dove ho incollato i
successivi dati) si incanta cioè ad esempio mi sposto in un nuovo record e
trovo ancora gli stessi dati.
provo a chiudere e riaprire la maschera ordine  mi ritrovo solo i primi
dati incollati e non i successivi.
Per ora mi accomodo facendo CTRL+V
Ah dimenticavo mi accorgo che quando funziona mi dice tipo 'incollare 15
record?' invece quando cerco di incollare altri dati non mi chiede piu' la
conferma.
c'è un'altro sistema di copia ed incolla via VB?
Di nuovo un grazie infinito.
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: fabio 91025

text:
Fabio 91025 ha scritto:







Ciao ragazzi!!!
per ora il problema è stato risolto con un codice che fa chiudere e
riaprire la form dall'ultima posizione. (aclast)
Misteri di BillGates



title: Query di Aggiornamento

author: Fabietto

text:
Mi sta succedendo una cosa strana:
se apro una maschera ed eseguo una query di aggiornamento basata sui campi
della maschera essa funziona bene (mi carica il magazzino dei valori
riportati nella maschera), se aggiungo un pulsante alla maschera che
richiama la query essa funziona ancora ma carica esattamente il doppio della
quantita' immessa :-(
Non mi spiego il motivo, ecco il codice nel caso qualcuno avesse gia'
intuito dove possa stare il problema:
UPDATE tblProdotto INNER JOIN tblRigaFatturaAcquisto ON
tblProdotto.CodiceArticolo = tblRigaFatturaAcquisto.CodiceArticolo SET
tblProdotto.Qta =
[tblProdotto].[Qta]+[tblRigaFatturaAcquisto].[QtaAcquistata]
WHERE
(((tblRigaFatturaAcquisto.IdFattura)=[forms].[frmImmissioneFatturaAcquisto].
[IdFattura]));
GRazie
Fabio


title: assegnare a campo non associato il record massimo di una tabella

author: tmtube

text:
ho una tabella con i valori

corso      sede            rendita
1             milano        100
2             roma           88
3             palermo      120

devo assegnare ad un campo non associato il valore:

il corso pi� redditizio �: corso 3 della sede sede di palermo per una
rendita pari a 120

come procedere?

grazie.


text:
DMAX(...)

@ALex


text:
>DMAX(...)

>@ALex

devo usare dmax per ogni campo dei 3 necessari? o posso usare un dmax unico
per prelevare i 3 campi?


author: Mancini

text: Se hai 2 corsi con lo stesso rendimento come fai


text:
>"Mancini"  ha scritto nel messaggio
>news:379bdaa0-c727-41d7...@googlegroups.com...

>Se hai 2 corsi con lo stesso rendimento come fai

bella domanda, non lo so, tu come risolveresti?


text:
Invece di 1 controllo NonAssociato ci metti una sottomaschera filtrata che contiene i record che hanno il massimo valore

Se invece preferisci il campo non associato allora devi costruirti la stringa con VBA facendo scorrere i record su un RecordSet


text:
>"Mancini"  ha scritto nel messaggio
>news:8f4f4de2-5bf5-40b2...@googlegroups.com...

Grazie.


title: Definire valori di un campo

author: Alessio Mattiuzzo

text:
Salve,
sono nuovo della newsgroup e avrei bisogno che mi aiutaste se
possibile.....la domanda è la seguente:
è possibile definire all'interno di una tabella un campo "B" i cui dati
siano le prime due lettere di un altro campo "A" gia presente nella stessa
tabella?
 ex : se A = AA0001, B = AA
Grazie molte in anticipo....


title: Definire valori di un campo

author: Cinzia

text:
"Alessio Mattiuzzo" <
zai...@tin.it
> ha scritto nel messaggio
news:ecmd8l$5d1$1...@newsread.albacom.net...

Ciao Alessio,
non è necessario farlo, anzi direi che è proprio sconsigliabile...
Diaciamo che hai una tabella X contenente il campo A, se vuoi ottenere solo
le prime due lettere del campo A farai una query
Select CampoA, Left(nz(CampoA); 2) as CampoB FROM TabellaX
in questo modo eviti di inserire nel database dati ridondanti e ti eviti
anche un sacco di scocciature...
Saluti
--
Cinzia
---------------------------------------
|
http://www.riolab.org
  |
--------------------------------------->


title: applicazione molto lenta

author: pfm

text:
SALVE

ho un'applicazione composta da molte tabelle e viste collegate a SQL. inoltre ho creato una serie di Query e raltive maschere

un mese fa e' diventato lentissimo l'apertura di alcune maschere.
ho esportato le varie query,, maschere e report in file di testo e creato un nuovo mdb

il tutto ha funzionato e si è velocizzato
ho aggiunto una maschera ed è di nuovo diventato lentissimo

ho provato con compatta e rispritina e mi ha dato errore
Increase MaxLocksPerFile
ho modificato il registry

come posso risolvere la lentezza?


title: AOIndex non è un indice per questa tabella

author: gasfor

text:
Help! Help! Help!
Il database che più usiamo, versione A2003,
 gestito in rete con Windows 2000 server,
non si apre più e da il seguente messaggio: "AOIndex non è un
indice in questa tabella".
Mi sarebbe sufficiente solamente recuperare i dati contenuti in una
tabella.
Grazie
gasfor


title: RS 232

author: ESSA

text:
Salve,
desidererei sapere come comunicare con una seriale in Access 97, dovrei
ricuperare dei dati da una bilancia. Non ho troato indicazioni sul sito
comune ne nel help.
Grazie per l'aiuto
Giorgio


title: RS 232

author: Francesco R.

text:
Dovresti cercare nello storico del NG, xchè mi sembra che ci siano stati dei
post al riguardo.
Ciao.


title: RS 232

author: Giorgio Prx

text:
"ESSA" <
es...@ticino.com
> ha scritto nel messaggio
news:u2Uib.67$e85....@se2-cb104-9.zrh1.ch.colt.net...

Articolo Microsoft Knowledge Base - 639415
HOWTO: Esempio di uso delle API per la comunicazione seriale
http://support.microsoft.com/default.aspx?scid=kb;it;639415
Ciao Giorgio


title: RS 232

text:
"Giorgio Prx" <
giorgio...@nospamtiscalinet.it
> ha scritto nel messaggio
news:bmiqgg$60q$1...@lacerta.tiscalinet.it...

Ringrazio, mi sei stato di grande aiuto,
ho trovato quello che cercavo ed ho risolto il problema
Cia Giorgio


title: Personalizzare un listino prezzi

author: Dino

text:
Ciao a tutti sono Dino.Ho per le mani un DB gia' realizzato nel quale
e' stato creato un listino prezzi unico per tutti i clienti.L'esigenza
odierna e' di personalizzare il listino singolarmente per ogni
cliente.
Il listino e' costituito da tre tab:
La tab categoria prod. la tab prodotti e la tab cliente.
Nella form di inserimento io ho la possibilita' di abbinare ad ogni
articolo il nome del cliente.
Attualmente ogni articolo non ha nessun abbinamento con i clienti.
Io avevo pensato di duplicare ogni record abbinandole il nome del
cliente.I clienti pero' sono circa 100 e gli articoli 370.Un lavoro
non indifferente.
Come posso fare per trovare una soluzione di abbinamento piu'
veloce??'
Grazie in anticipo Dino


title: Personalizzare un listino prezzi

author: Carlo Costarella

text:
"Dino" <
verreng...@alice.it
> ha scritto nel messaggio
news:29e3086a-bc99-42e7...@x16g2000prn.googlegroups.com...

Se hai una testata (per esempio fattura) con il cliente e poi una
sottomaschera (con i dettagli articoli) l'operazione è già fatta o comunque
facile da fare perchè quegli articoli sono stati attribuiti a quel cliente.
Il problema è se non hai mai associato un determinato articolo ad un
particolare cliente..chessò attraverso una fattura o una bolla o simili.
In questo caso non hai modo se non fare il tutto a manina: articolo per
articolo.
Quello che mi meraviglia è come hai pensato l'accostamento.
Io avrei aggiunto un listino (campo listino) alla tabella clienti e poi
nella tabella prodotti avrei aggiunto Listino1, Listino2, Listino3 con
altrettanti prezzi o sconti.
Nella maschera di inserimento (per esempio in un dettaglio prodotti di una
fattura) ti sarebbe bastato scegliere il "Listino" (1,2,3) abbinato al
cliente, per avere immediatamente il prezzo attribuito da quel listino al
prodotto.
Ciao, Carlo


title: Personalizzare un listino prezzi

author: Roberto da Parma

text:
"Carlo Costarella" <
carloantoni...@gmail.com
> ha scritto nel
messaggio news:gl53gu$f43$1...@tdi.cu.mi.it...

Entrambe le soluzioni diciamo che quasi si equivalgono...personalmente uso
il primo anche perchè mi da modo di duplicare un articolo e associarlo
eventualmente direttamente ad un'altro cliente, ma sono scelte...quella di
Dino penso obbligata anche perchè ci dice "l'ha preso così".
Per venire al tuo problema io non la vedo così drammatica... 370 articoli
non sono poi così tanti...se consideri una media hai da associare solo 3-4
articoli per cliente.
Se come dice Carlo non puoi risalire a nessuna associazione cliente-articolo
allora potresti aggiungere anche solo temporaneamente un campo flag alla
tabella articoli, apri la tabella articoli e cominci a selezionare tutti gli
articoli per singolo cliente...successivamente ti crei una query di
aggiornamento
UPDATE Risorse SET Risorse.CODICE = 1
WHERE (((Risorse.CODICE) Is Null) AND ((Risorse.FLAG)=True));
Dove dovrai solamente cambiare il CODICE
Diversamente.....come dice Carlo "a manina"
Ciao
--
Roberto da Parma


title: Personalizzare un listino prezzi

text:
On 21 Gen, 00:26, "Roberto da Parma" <
arisi.robe...@tin.it
> wrote:
> "Carlo Costarella" <
carloantoniocostare...@gmail.com
> ha scritto nel
> messaggionews:gl53gu$f43$1...@tdi.cu.mi.it...
>
>
>
>
>
>
>
> > "Dino" <
verrengia.d...@alice.it
> ha scritto nel messaggio

> Roberto da Parma- Nascondi testo citato
>
> - Mostra testo citato -
Grazie ragazzi per i consigli.Presumo di scegliere la " manina" sembra
piu' pratico.Ad ogni duplicazione abbino il cod.
cliente (gia' presente nel DB) ed il gioco e' fatto.....
Grazie Dino


title: Ricerca ed estrazione di una o più parti da una stringa.

author: Alfio

text:
Buongiorno a tutti,
da un file .csv importo in una tabella i dati in esso contenuti.
In un campo del .csv sono inseriti il cod. fiscale, la partita iva (non sempre) e delle note (eventuali).
Per maggior chiarezza vi riporto i tre esempi di dati contenuti nel campo:
Es.1: CF:ZZLFNC70L30H501U - PI:02496230984 - NOTE:CHIAMARE PER
Es.2: CF:04940860283 - PI:04940860283
Es.3: CF:SBEFNC47E60A852G - PI:01512250497
Es.3: CF:MSCPLA62H69D704U

Ora io devo estrarre e collocare nel giusto campo della tabella di destinazione solo il cf e la p.iva ed ho fatto così:

Do Until Tabella.EOF
    Tabella.Edit
    strCF = Tabella.Fields("Indirizzo di spedizione: Informazioni aggiuntive")
    If strCF <> "" Then
        Tabella.Fields("CF") = Mid(strCF, InStr(strCF, "CF:") + 3, 16)
        Tabella.Fields("P_IVA") = Mid(strCF, InStr(strCF, "PI:") + 3, 11)
        Tabella.Update
    End If
    Tabella.MoveNext
Loop
Tabella.Close

alla fine del processo però mi ritrovo con questo:

CF:ZZLFNC70L30H501U - PI:02496230984 - NOTE:CHIAMARE PER
CF:04940860283 - PI:04940860283
CF:MSCPLA62H69D704U

Campo CF		Campo P_IVA
ZZLFNC70L30H501U	02496230984
04940860283 - PI	04940860283
SBEFNC47E60A852G        01512250497
MSCPLA62H69D704U	:MSCPLA62H6

Come posso ovviare per avere sempre il codice fiscale e la partiva iva nel campo corretto e? Sempre se i dati sono presenti, in caso contrario il campo deve restare ovviamente vuoto.

Ringrazio anticipatamente chiunque possa essermi d'aiuto.

Grazie

Alfio


text:

Ciao Alfio,
puoi fare così, tenendo conto che:
Tabella1 è la tabella dove c'è il campo Stringa a cui bisogna estrapolare i dati da confluire nei due campi CF e P_IVA

Dim rs As DAO.Recordset
Dim x As String
Dim xCF As String
Dim xP_IVA As String

Set rs = CurrentDb.OpenRecordset("Select * From Tabella1 Order By ID")
    rs.MoveFirst
        Do Until rs.EOF
            If UBound(Split(rs!Stringa, "-")) = 0 Then
    rs.Edit
        rs.Fields("CF") = Mid(rs!Stringa, 4)
    rs.Update
            End If
        x = UBound(Split(rs!Stringa, "-"))
            If x >= 1 Then
        xCF = Split(rs!Stringa, " - ")(0)
        xP_IVA = Split(rs!Stringa, " - ")(1)
    rs.Edit
        rs.Fields("CF") = Mid(xCF, 4)
        rs.Fields("P_IVA") = Mid(xP_IVA, 4)
    rs.Update
            End If
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Vladimiro


text:
Ciao Vladimiro,
innanzitutto grazie per l'aiuto, venendo all'esempio devo rettificare quanto da me scritto nei seguenti esempi:

> > Es.1: CF:ZZLFNC70L30H501U - PI:02496230984 - NOTE:CHIAMARE PER.....
> > Es.2: CF:04940860283 - PI:04940860283
> > Es.3: CF:SBEFNC47E60A852G - PI:01512250497
> > Es.4: CF:MSCPLA62H69D704U
> > Es.5: - PI:01512250497

Come puoi vedere all'esempio 4 non c'è nessun "-" da trovare pertanto ricevo l'errore runtime 3625, nessun elemento trovato in questo insieme.

Alfio


text:

Ciao Alfio,
probabilmente nell'adattare la mia routine hai omesso la parte riguardante proprio l'eventualità in cui non esiste nessuna lineetta:
 If UBound(Split(rs!Stringa, "-")) = 0 Then
    rs.Edit
        rs.Fields("CF") = Mid(rs!Stringa, 4)
    rs.Update
            End If

Vladimiro


text:
> probabilmente nell'adattare la mia routine hai omesso la parte riguardante proprio l'eventualità in cui non esiste nessuna lineetta:
>  If UBound(Split(rs!Stringa, "-")) = 0 Then
>     rs.Edit
>         rs.Fields("CF") = Mid(rs!Stringa, 4)
>     rs.Update
>             End If
>

Assolutamente no, eccolo qui:

Set rs = CurrentDb.OpenRecordset("Select * From eprice Order By ID")
    rs.MoveFirst
        Do Until rs.EOF
        Stringa = rs.Fields("Indirizzo di spedizione: Informazioni aggiuntive")
            If UBound(Split(rs!Stringa, "-")) = 0 Then
    rs.Edit
        rs.Fields("CF") = Mid(rs!Stringa, 4)
    rs.Update
            End If
        x = UBound(Split(rs!Stringa, "-"))
            If x >= 1 Then
        xCF = Split(rs!Stringa, " - ")(0)
        xP_IVA = Split(rs!Stringa, " - ")(1)
    rs.Edit
        rs.Fields("CF") = Mid(xCF, 4)
        rs.Fields("P_IVA") = Mid(xP_IVA, 4)
    rs.Update
            End If
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing

La Stringa contiene "CF:BRVSNO66R67F205Y" e ricevo l'errore

Alfio


text:

Ciao Alfio,
anche con CF:BRVSNO66R67F205Y la routine funziona perfettamente.

Prova ad eliminare la seguente riga lasciando il resto come da te postato.
Stringa = rs.Fields("Indirizzo di spedizione: Informazioni aggiuntive")

Eventualmente dovesse ancora darti l'errore, l'unica cosa che ti posso consigliare è quella di mettere il db solo con il necessario su uno spazio pubblico tipo
http://skydrive.live.com/
 in modo da poterci dare un'occhiata.

Vladimiro


text:
> Prova ad eliminare la seguente riga lasciando il resto come da te postato.
> Stringa = rs.Fields("Indirizzo di spedizione: Informazioni aggiuntive")
>
> Eventualmente dovesse ancora darti l'errore, l'unica cosa che ti posso consigliare è quella di mettere il db solo con il necessario su uno spazio pubblico tipo
http://skydrive.live.com/
 in modo da poterci dare un'occhiata.
>
> Vladimiro

Ciao,
ho individuato l'errore:
  "If UBound(Split(rs!Stringa, "-")) = 0 Then "
l'ho modificata in   "If UBound(Split(Stringa, "-")) = 0 Then" in quanto Stringa è il contenuto del campo "Indirizzo di spedizione: Informazioni aggiuntive". Sembra funzionare fino a quando "Stringa" non è uguale a "CF:ZZLFNC70L30H501U - NOTE:CHIAMARE PER CONCORDARE LA CONSEGNA, ALMENO UN ORA PRIMA, AL CELLULARE FORNITO NELLA REGISTRAZIONE"
In questo caso l'errore è che il dato da inserire in P_IVA è troppo grande, infatti vorrebbe inserire in P_IVA tutto a partire da NOTE: anziché tralasciare.

Alfio


text:
Il giorno mercoledì 6 luglio 2016 03:21:22 UTC+2, Alfio ha scritto:
> > Prova ad eliminare la seguente riga lasciando il resto come da te postato.
> > Stringa = rs.Fields("Indirizzo di spedizione: Informazioni aggiuntive")
> >
> > Eventualmente dovesse ancora darti l'errore, l'unica cosa che ti posso consigliare è quella di mettere il db solo con il necessario su uno spazio pubblico tipo
http://skydrive.live.com/
 in modo da poterci dare un'occhiata.
> >
> > Vladimiro
>
> Ciao,
> ho individuato l'errore:
>   "If UBound(Split(rs!Stringa, "-")) = 0 Then "
> l'ho modificata in   "If UBound(Split(Stringa, "-")) = 0 Then" in quanto Stringa è il contenuto del campo "Indirizzo di spedizione: Informazioni aggiuntive".

Ciao Alfio,
sinceramente non ti seguo, Stringa è una casella di testo o una variabile?

Ammesso che "Stringa" sia il nome della casella di testo con origine controllo il campo "Indirizzo di spedizione: Informazioni aggiuntive", non devi fare altro che sostituire la riga che ricerca --> NELL'INTERO RECORDSET l'eventuale "-":
If UBound(Split(Rs![Indirizzo di spedizione: Informazioni aggiuntive], "-")) = 0 Then

e non "If UBound(Split(Stringa, "-")) = 0 Then" perché così ricerca sempre e solo il primo record.

Per capire meglio il funzionamento, prima della suddetta riga di interrogazione ne aggiungi un'altra senza la "If".
Puoi ricorrere alla finestra immediata: Debug.Print UBound(Split(rs!Campo della tabella, "-")) = 0

o meglio ancora, se vuoi vedere l'effetto in tempo reale (lasciando in tabella pochi record):
MsgBox UBound(Split(rs!Campo della tabella, "-")) = 0

Naturalmente dopo aver sostituito con un nome originale "Campo della tabella"

 Sembra funzionare fino a quando "Stringa" non è uguale a "CF:ZZLFNC70L30H501U - NOTE:CHIAMARE PER CONCORDARE LA CONSEGNA, ALMENO UN ORA PRIMA, AL CELLULARE FORNITO NELLA REGISTRAZIONE"
> In questo caso l'errore è che il dato da inserire in P_IVA è troppo grande, infatti vorrebbe inserire in P_IVA tutto a partire da NOTE: anziché tralasciare.

Anche qui non ti seguo, io mi sono rifatto a quanto da te esposto:

In un campo del .csv sono inseriti il cod. fiscale, la partita iva (non sempre) e delle note (eventuali).
Per maggior chiarezza vi riporto i tre esempi di dati contenuti nel campo:
Es.1: CF:ZZLFNC70L30H501U - PI:02496230984 - NOTE:CHIAMARE PER
Es.2: CF:04940860283 - PI:04940860283
Es.3: CF:SBEFNC47E60A852G - PI:01512250497
Es.3: CF:MSCPLA62H69D704U

Se ci sono altre esigenze, non devi far altro che mostrarle altrimenti diventa complicato aiutarti.

Vladimiro


text:
E' tutto ok Vladimiro, funziona alla perfezione, la funzione UBound non la conoscevo, ma adesso ho aggiunto un tassello in più grazie alla tua pazienza e disponibilità.
Per tornare alla "Stringa" essa assumeva il valore del campo [Indirizzo di spedizione: Informazioni aggiuntive] e per abbreviare il tutto, il contenuto di questo campo lo facevo assumere da "Stringa".

Grazie di tutto

Alfio


text:

Grazie a te del feedback!
Vladimiro


title: Stabilità di Access 2000?

author: Massimiliano De Cò

text:
Ho dei seri problemi di stabilità di Access in
questi casi con un
db di questo tipo in access
2000:

    back end
con circa 15 tabelle di cui la più grande è di 4000 record

problemi:

    1) lentezza "spaventosa" in rete
quando accedono in 2 o 3 contemporaneamente

    2) sparizione di alcuni record

    3) a volte la maschera della
tabella da 4000 si apre normalmente indicando nei selettori 1 di 1 !!!!!!!!!! (e
non ci sono filtri attivi) !!!

Aiuto !!!!!

Grazie

--
Massimiliano De Cò
PC Assist
sas


title: "moltiplicare" record se un numero contenuto in un campo è maggiore a 1

author: Michele Zariah

text:
Ciao a tutti!!!

Vi spiego il mio problema..
Ho la seguente tabella contenente i seguenti valori:

nome_cliente1    Località1     1     ecc  ecc
nome_cliente2    Località2     1     ecc  ecc
nome_cliente3    Località3     3     ecc  ecc
nome_cliente4    Località4     2     ecc  ecc
nome_cliente5    Località5     1     ecc  ecc

Voglio che dove il numero è maggiore di 1 (terza colonna), vengano
creati x doppioni del medesimo record in funzione di quanto vale il
numero, e che il medesimo sia riportato a 1.  Per semplificare, dalla
tabella sopra voglio ottenere il seguente risultato:

nome_cliente1    Località1     1     ecc  ecc
nome_cliente2    Località2     1     ecc  ecc
nome_cliente3    Località3     1     ecc  ecc
nome_cliente3    Località3     1     ecc  ecc
nome_cliente3    Località3     1     ecc  ecc
nome_cliente4    Località4     1     ecc  ecc
nome_cliente4    Località4     1     ecc  ecc
nome_cliente5    Località5     1     ecc  ecc

Come posso fare tramite (possibilmente) una query?

Grazie 1000 a chi possa aiutarmi.

Miky


author: Bruno Campanini

text:
It happens that Michele Zariah formulated :

Sarebbevi qualche impedimento alla soluzione con quattro righe di
codice VBA?

Bruno


text:
On 21 Mar, 23:33, Bruno Campanini <
bruno...@libero.it
> wrote:
> It happens that Michele Zariah formulated :
>
>
>
>
>
>
>
>
>
> > Ciao a tutti!!!
>
> > Vi spiego il mio problema..
> > Ho la seguente tabella contenente i seguenti valori:
>
> > nome_cliente1    Località1     1     ecc  ecc
> > nome_cliente2    Località2     1     ecc  ecc
> > nome_cliente3    Località3     3     ecc  ecc
> > nome_cliente4    Località4     2     ecc  ecc
> > nome_cliente5    Località5     1     ecc  ecc
>
> > Voglio che dove il numero è maggiore di 1 (terza colonna), vengano
> > creati x doppioni del medesimorecordin funzione di quanto vale il
> > numero, e che il medesimo sia riportato a 1.  Per semplificare, dalla
> > tabella sopra voglio ottenere il seguente risultato:
>
> > nome_cliente1    Località1     1     ecc  ecc
> > nome_cliente2    Località2     1     ecc  ecc
> > nome_cliente3    Località3     1     ecc  ecc
> > nome_cliente3    Località3     1     ecc  ecc
> > nome_cliente3    Località3     1     ecc  ecc
> > nome_cliente4    Località4     1     ecc  ecc
> > nome_cliente4    Località4     1     ecc  ecc
> > nome_cliente5    Località5     1     ecc  ecc
>
> > Come posso fare tramite (possibilmente) una query?
>
> Sarebbevi qualche impedimento alla soluzione con quattro righe di
> codice VBA?
>
> Bruno

Va molto bene anche tramite VBA...
Considera che sono negato, quindi da non tralasciare niente di
(magari) ovvio..

Grazie 1000

Miky


text:
Michele Zariah wrote on 22-03-12 :

Ma sai come eseguire (da un pulsante, da un evento...) una procedura
VBA?

Bruno


text:
> > Va molto bene anche tramite VBA...
> > Considera che sono negato, quindi da non tralasciare niente di
> > (magari) ovvio..
>
> Ma sai come eseguire (da un pulsante, da un evento...) una procedura
> VBA?
>
> Bruno

Certo, ma come devo fare per il resto?

Cordialità


text:
Michele Zariah has brought this to us :

> Certo, ma come devo fare per il resto?

Fa' così:
===================================
Private Sub Command4_Click()
Dim db As Database, RS_0 As Recordset, RS As Recordset
Dim i As Long, j As Long, SQL As String, n As Long
Dim NomeTabella As String, CampoContatore As String
'
' Definizioni
' ----------------------
NomeTabella = "Tabella"
CampoContatore = "Num"
' ----------------------
'
Set db = CurrentDb
Set RS_0 = db.OpenRecordset("Tabella", dbOpenDynaset)

SQL = "SELECT " & NomeTabella & ".* FROM " & NomeTabella & _
      " WHERE (((" & NomeTabella & ".[" & CampoContatore & "])>1));"
Set RS = db.OpenRecordset(SQL, dbOpenDynaset)

Do Until RS.EOF
    n = RS(CampoContatore) - 1
    RS.Edit
    RS(CampoContatore) = 1
    RS.Update
    For i = 1 To n
        RS_0.AddNew
        For j = 1 To RS_0.Fields.Count
            RS_0.Fields(j - 1) = RS.Fields(j - 1)
        Next
        RS_0.Update
    Next
    RS.MoveNext
Loop

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

Bruno


text:

Grazie 1000!!!  funziona in maniera perfetta!!!!

Non ho capito però la logica.. puoi inserire qualche commento ad ogni
passaggio?  Mi piacerebbe capire.. so che chiedo molto, quindi
apprezzo anche se non commenterai.

PS:
e supponendo di voler creare un'altra tabella con tutti i dati (sia
quelli a valore 1 originari che quelli sdoppiati) come dovrei
procedere?
Questo mi permetterebbe di avere sia la tabella d'origine intonsa, che
la seconda tabella con i record splittati.

Grazie 1000 veramente.

Miky


text:
Michele Zariah presented the following explanation :

> Grazie 1000!!!  funziona in maniera perfetta!!!!
>
> Non ho capito però la logica.. puoi inserire qualche commento ad ogni
> passaggio?  Mi piacerebbe capire.. so che chiedo molto, quindi
> apprezzo anche se non commenterai.

Non scrivo mai commenti perché il farlo alla fin fine è più complicato
che scrivere il codice.
Comunque brevemente:

RS_0 è il recordset che comprende TUTTI i record di "Tabella",
RS quello che comprende i record di "Tabella" che hanno il campo Num>1

Il Do... Loop esegue la scansione di RS, salva in n il valore Num-1
(cioè il numero dei nuovi record che verrà APPENDed in "Tabella").
Col For... Next da 1 a n si creano detti nuovi record da appendere; con
l'altro For... Next se ne compilano i campi.
I campi in una tabella sono rilevabili da RS_0.Fields(0 to k-1), dove k
è il numero dei campi calcolati con RS_0.Fields.Count.

> PS:
> e supponendo di voler creare un'altra tabella con tutti i dati (sia
> quelli a valore 1 originari che quelli sdoppiati) come dovrei
> procedere?
> Questo mi permetterebbe di avere sia la tabella d'origine intonsa, che
> la seconda tabella con i record splittati.

Stai dicendo le cose a rate e in modo incompleto.
Comunque, manualmente e nella maniera più "barbara" possibile:
ricopia TUTTA la tabella originale sulla nuova tabella ed esegui la
procedura su detta nuova tabella.

Bruno


text:
On 24 Mar, 12:46, Bruno Campanini <
bruno...@libero.it
> wrote:
> Michele Zariah presented the following explanation :
>
> > Grazie 1000!!!  funziona in maniera perfetta!!!!
>
> > Non ho capito però la logica.. puoi inserire qualche commento ad ogni
> > passaggio?  Mi piacerebbe capire.. so che chiedo molto, quindi
> > apprezzo anche se non commenterai.
>
> Non scrivo mai commenti perché il farlo alla fin fine è più complicato
> che scrivere il codice.
> Comunque brevemente:
>
> RS_0 è il recordset che comprende TUTTI irecorddi "Tabella",
> RS quello che comprende irecorddi "Tabella" che hanno il campo Num>1
>
> Il Do... Loop esegue la scansione di RS, salva in n il valore Num-1
> (cioè il numero dei nuovirecordche verrà APPENDed in "Tabella").
> Col For... Next da 1 a n si creano detti nuovirecordda appendere; con
> l'altro For... Next se ne compilano i campi.
> I campi in una tabella sono rilevabili da RS_0.Fields(0 to k-1), dove k
> è il numero dei campi calcolati con RS_0.Fields.Count.
>
> > PS:
> > e supponendo di voler creare un'altra tabella con tutti i dati (sia
> > quelli a valore 1 originari che quelli sdoppiati) come dovrei
> > procedere?
> > Questo mi permetterebbe di avere sia la tabella d'origine intonsa, che
> > la seconda tabella con irecordsplittati.
>
> Stai dicendo le cose a rate e in modo incompleto.
> Comunque, manualmente e nella maniera più "barbara" possibile:
> ricopia TUTTA la tabella originale sulla nuova tabella ed esegui la
> procedura su detta nuova tabella.
>
> Bruno

Grazie 1000!!!!

tutto perfetto!!!

Cordialità

Miky


text:
Buongiorno,
ho bisogno di una aiuto per risolvere un problema molto simile a quello sopra citato;
Ho un db Biblioteca e volevo creare una maschera dove potevo inserire un libro (in questo caso Titolo, editore, prezzo e così via) e, tramite l'inserimento della quantità, veniva automaticamente moltiplicato.
Questo per non inserire lo stesso libro 10, 20 o 30 volte...

Grazie mille



author: Karl Donaubauer

text:
federica...@gmail.com
 wrote:
> ...
> ho bisogno di una aiuto per risolvere un problema molto simile a
> quello sopra citato;
> Ho un db Biblioteca e volevo creare una maschera dove potevo
> inserire un libro (in questo caso Titolo, editore, prezzo e cos�
> via) e, tramite l'inserimento della quantit�, veniva
> automaticamente moltiplicato.
> Questo per non inserire lo stesso libro 10, 20 o 30 volte...
> ...

1. Controlla se veramente hai bisogno di salvare tutti i dati
del libro ripetitivamente. � contro le regole di costruzione
se sarebbe possibile di risolvere con una relazione 1:n.

2. Se veramente devi farlo in principio puoi usare la tecnica
trattata nella discussione citata. Provala e se non riesci
incolla il codice che hai provato, descrivi cosa non funziona
o dove non sai come procedere.

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


text:
Il giorno giovedì 20 settembre 2012 12:40:30 UTC+2, Karl Donaubauer ha scritto:
>
federica...@gmail.com
 wrote:
>
> > ...
>
> > ho bisogno di una aiuto per risolvere un problema molto simile a
>
> > quello sopra citato;
>
> > Ho un db Biblioteca e volevo creare una maschera dove potevo
>
> > inserire un libro (in questo caso Titolo, editore, prezzo e così
>
> > via) e, tramite l'inserimento della quantità, veniva
>
> > automaticamente moltiplicato.
>
> > Questo per non inserire lo stesso libro 10, 20 o 30 volte...
>
> > ...
>
>
>
> 1. Controlla se veramente hai bisogno di salvare tutti i dati
>
> del libro ripetitivamente. È contro le regole di costruzione
>
> se sarebbe possibile di risolvere con una relazione 1:n.
>
>
>
> 2. Se veramente devi farlo in principio puoi usare la tecnica
>
> trattata nella discussione citata. Provala e se non riesci
>
> incolla il codice che hai provato, descrivi cosa non funziona
>
> o dove non sai come procedere.
>
>
>
> --
>
> Ciao
>
> Karl
>
> *********
>
> Access FAQ:
http://www.donkarl.com/it

Io volevo fare una query di insert dicendogli che quel record (Titolo, Editore, Prezzo ecc...) me lo deve riscrivere per il numero riportato in "Quantità" (in quantità naturalmente ci sarà il numero delle copie che mi hanno portato)

Se ci fosse un modo per dargli questo comando (anche in sql)...

Grazie e scusate tantissimo


text:
federica...@gmail.com
 wrote:
>Karl Donaubauer ha scritto:
>>
>>> Ho un db Biblioteca e volevo creare una maschera dove potevo
>>> inserire un libro (in questo caso Titolo, editore, prezzo e così
>>> via) e, tramite l'inserimento della quantità, veniva
>>> automaticamente moltiplicato.
>>> Questo per non inserire lo stesso libro 10, 20 o 30 volte...
>>> ...
>> 1. Controlla se veramente hai bisogno di salvare tutti i dati
>> del libro ripetitivamente. È contro le regole di costruzione
>> se sarebbe possibile di risolvere con una relazione 1:n.
>>
>> 2. Se veramente devi farlo in principio puoi usare la tecnica
>> trattata nella discussione citata. Provala e se non riesci
>> incolla il codice che hai provato, descrivi cosa non funziona
>> o dove non sai come procedere.
>
> Io volevo fare una query di insert dicendogli che quel record
> (Titolo, Editore, Prezzo ecc...) me lo deve riscrivere per il numero
> riportato in "Quantità" (in quantità naturalmente ci sarà il numero
> delle copie che mi hanno portato)
>
> Se ci fosse un modo per dargli questo comando (anche in sql)...

Come già scritto puoi usare il metodo con DAO come trattato
nella discussione citata. In SQL non esiste un comando per
inserire un record più volte. Però se non vuoi usare DAO ma
SQL esiste un trucco:

1. Creati una nuova tabella "tblNumero" con un solo campo
"Numero" del tipo Long Integer. Inserisciti i valori da 1 a 100
o quale sarebbe il numero massimo che puo accadere.

2. Crea la query di accodamento che volevi creare con il
riferimento all Id nella maschera per scegliere il libro giusto.

Se non sai come farlo devi raccontare qui i dettagli come
il nome delle tabelle di origine e destinazione, nome della
maschera, nome della chiave primaria per un libro.

3. Nella query aggiungi anche la tabella tblNumero senza
collegamento all'altra tabella. Aggiungi il campo Numero alla griglia
e come criterio usi un riferimento al controllo con il numero delle
copie, cioè:

<=Forms!TuaMaschera!TuoControlloConIlNumero

Questo di accoda tante copie quante indicate.

4. Nella maschera puoi p.e. usare un pulsante con una riga
di codice al clic per eseguire la query:

DoCmd.OpenQuery "NomeDellaQuery"

vedi anche:
http://www.donkarl.com/it?FAQ2.4




title: Non riconosce più le routine???

author: ^Mauro^

text:
Ciao a tutti,
    stavo lavorando ad una maschera di access XP, quando senza che ci
fossero particolari problemi, ha cominciato a darmi alcuni errori.
Continuando per cercare di capirne il motivo (fino ad un sec. prima
funzionava tutto!!!) mi sono accorto che in realtà non vengono più
riconosciuti i nomi delle routine in VBA dei vari eventi e quindi ad ognuno
di essi viene generato un errore di questo tipo ad esempio per l'evento form
load.
"l'espressione su caricamento immessa come impostazione della proprietà di
evento ha provocato il seguente errore: La dichiarazione della routine non
corrisponde alla descrizione dell'evento o della routine con lo stesso
nome".
Ho provato a cancellarli completamente e a ricrearli oppure ad aggiungere un
banale pulsante che visualizza un msgbox o altro, ma niente da fare :o(
        Grazie per le eventuali risposte, Mauro.


title: Non riconosce più le routine???

author: Sib

text:
"^Mauro^" <
m...@despammed.com
> ha scritto nel messaggio

Hai anche fatto un compila tutti i moduli?
Sib


title: Non riconosce più le routine???

text:
"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:OTSTa.9810$Df5.2...@news1.tin.it...
>
> Hai anche fatto un compila tutti i moduli?
>
> Sib
>
No, direi proprio di no.
    Mauro.


title: Numero record in una maschera

text:
          Data una mschera che ha come recordSource una "SELECT....", esiste una
proprietą della maschera stessa che mi dice quanti record ci sono, o devo
fare una Query "COUNT..." che ricalchi la SELECT?
Thanks....
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: Numero record in una maschera

author: Alessandro Baraldi

text:
"P@olo" <
paolodamo...@tim.it
> wrote in message
news:194Z243Z137Z76Y...@usenet.libero.it
>
>           Data una mschera che ha come recordSource una "SELECT....", esiste una
> proprietà della maschera stessa che mi dice quanti record ci sono, o devo
> fare una Query "COUNT..." che ricalchi la SELECT?
>
> Thanks....
Una proprietà diretta non esiste, ma esiste la proprietà RECORDCOUNT
del RecordsetClone di Form.
NumeroRec=Me.RecordsetClone.RecordCount
Fai attenzione al valore assunto nel caso di NewRecord
e nel caso di Recordset Vuoto.
Ciao
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Numero record in una maschera

text:
> Una proprietą diretta non esiste, ma esiste la proprietą RECORDCOUNT
> del RecordsetClone di Form.
Funzione una meraviglia, grazie!



title: Componente ActiveX errato

author: Tom

text:
Ciao a tutti da alcuni giorni batto la testa su un problema riguardante i
componenti ActiveX, in poche parole in Access 2000 ho creato un'applicazione
divisa in Fe e Be, il tutto mi funzionava correttamente, dovendo apportare
alcune modifiche al programma vado ad aprire da
Strumenti\Utilitàdatabase\gestione tabelle collegate e come risultato ho il
seguente messaggio: "il componente ActiveX non è in grado di creare
l'oggetto!", al che comincio a controllare nel modulo tramite la finestra
Riferimenti  quali componenti sono selezionati pensando che potesse essere
la mancanza di DAO o ADO ma selezionando entrambi anche alternativamente il
problema è sempre lo stesso.
Qualcuno ci capisce qualcosa?
Grazie


title: Componente ActiveX errato

text:
Tom <
ar...@libero.it
> ha scritto:

Non conosco questa voce del menu. Forse parli di Add-Ins.
In ogni caso puoi provare di riregistrare la dll di DAO. Leggi
l'articolo che si chiama come il tuo messaggio di errore sul
http://www.sitocomune.com
 sezione General.
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: Componente ActiveX errato

text:
"Karl Donaubauer" <
ad...@donkarl.com
> ha scritto nel messaggio
news:bbb72k$7r65t$2...@ID-46617.news.dfncis.de...

Grazie per l'aiuto era proprio il problema descritto nel sitocomune, ed ho
risolto.
Alla prossima


title: if... then... else su campo maschera prima di aggiornare il record

author: Andrea Pettenon

text:
Ciao,
sono incastrato in questa routine:

If IsNull(Me.IDArticolo) Then Me.IDArticolo.SetFocus Else Me.IDSubOrdine = DMax("[IDSubOrdine]", "SubOrdini") + 1
End If

E' inserita nel campo IDSubOrdine_BeforeUpdate per verificare che se prima non viene indicato un valore nel campo precedente IDArticolo ritorni su questo campo senza che venga registrato il record, ma se il valore è indicato mi deve aggiornare il campo IDSubOrdine con il valore progressivo successivo. Come l'ho scritta, funziona se il campo IDArticolo è vuoto ma non si aggiorna il campo IDSubordine se il capo IDArticolo è regolarmente compilato. Dove sbaglio?

Grazie.

Andrea


author: Potone

text:
Ciao,
il problema è che stai tentando di assegnare un valore al controllo IDSubOrdine all'interno della sub che viene eseguita appena prima del suo aggiornamento (IDSubOrdine_BeforeUpdate appunto), significa che l'utente sta per confermare la modifica che ha apportato al controllo (tipicamente spostandosi su un altro controllo).
Quindi la tua procedura sta tentando di sovrascrivere il valore appena immesso/selezionato dall'utente e Access non te lo permette (non all'interno di una sub BeforeUpdate)
Che tipo di controllo è IDSubOrdine e spiega meglio qual'è la logica che sta dietro a quella if.
Ciao
Mat


author: GiorgioDaPrato

text:

provo un'aggiunta (molto interpretata ...)

appare che lo scopo sia quello di valorizzare in automatico IDSubOrdine DOPO che è stato AGGIUNTO un articolo

quindi, per come hai messo le cose, un modo può essere quello di aggiornare IDSubOrdine all'AfterUpdate del controllo che valorizza IDArticolo
E SE  IDSubOrdine NON HA GIA' un valore
(questo è un inghippo possibile per come appaiono messe le cose, non so se è accettabile ...).

NON è chiaro il complesso delle registrazioni:
ma se "inizi" dall'articolo per poi registrare un ordine
(per prendere un nuovo numero ordine, ??? per il fatto che un ordine ha in genere più articoli)
penso che NON si dovrebbe nemmeno entrare nel controllo di IDSubOrdine e quindi il test di controllo può essere spostato su beforeUpdate della form.

SE invece permetti l'edit di IDSubOrdine allora il test lo metterei su ENTER del suo controllo (respingendo l'ingresso)
ma vedo grane possibili (con la sua variazione) nella compilazione della form ad esso corrispondente


title: identificare sottomaschera istanziata chiamante..

author: BC

text:
Non so se riesco a spiegarmi...

Ho una form con quattro subform istanziate...
Imposto il recordsource delle varie sottomaschere dalla form mamma.

Si può identificare il controllo attivo e o la sottomaschera chiamante?

Se faccio
me.activecontrol.name
 mi da il controllo attivo ma non la
subform alla quale appartiene...

Grazie in anticipo e Auguri

BC


text:

Non sono per niente sicuro di capirti. Però forse intendi:

Me.ActiveControl.Parent.Name

?

Se non è questo, prova di spiegarti meglio con un esempio concreto
con i nomi degli oggetti, rivelare dove si trova il codice ecc.

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


text:
Il 31/12/2011 19:47, Karl Donaubauer ha scritto:
> BC wrote:
>> Non so se riesco a spiegarmi...
>>
>> Ho una form con quattro subform istanziate...
>> Imposto il recordsource delle varie sottomaschere dalla form mamma.
>>
>> Si può identificare il controllo attivo e o la sottomaschera
>> chiamante?
>> Se faccio
me.activecontrol.name
 mi da il controllo attivo ma non la
>> subform alla quale appartiene...
>
> Non sono per niente sicuro di capirti. Però forse intendi:
>
>
Me.ActiveControl.Parent.Name

>
> ?
>
> Se non è questo, prova di spiegarti meglio con un esempio concreto
> con i nomi degli oggetti, rivelare dove si trova il codice ecc.
>
Grazie, proverò
Ancora grazie ed auguri (anche se non ti piace lo zampone...)

BC


title: trasferimento tabelle

author: Angelo

text:
ho quasi finito la procedura, mi rimane lo scoglio dell'esportazione dei
dati contenuti in una tabella.
In breve: questo programma lo daremo ai nostri distributori che lo
riempiranno; poi ci dovranno fornire i dati inseriti tranne i dati
anagrafici dei loro clienti diretti, rimarranno altri campi che a noi
interessano per costruire un censimento della tipologia di cabine di
verniciatura.
Ho costruito una tabella (Expconsuntivo)senza i campi sopraddetti ; ho
costruito una query di accodamento che dalla tabella principale mi tira
fuori i dati che ci interessano e li accoda alla tabella. a questo punto ho
una tabella con i dati che mi servono e cosi' faranno tutti gli altri
distributori......
Problema1: come ottenere dai distributori solo quella tabella?
Problema2:una volta ottenute le diverse tabelle dai diversi distributori
come faccio ad inserirle in un unica tabella che dovremmo usare per le
nostre statistiche?
Ogni distrubutore ha un suo codice che si ripete su ogni record; le schede
hanno numero progressivo.
Aiutooooooooooooooooooooo!!!!!!please.


title: trasferimento tabelle

text:
ciao, anzitutto scusa se non scrivo dopo il quoting ma devo intervallarlo.
dal numero di ooooooooooooooooooooo!!!!!! vedo che sei alla frutta.. ok non
ti preoccupare ora viene il dolce.
E' tutto molto semplice
>Ho
costruito una tabella (Expconsuntivo)senza i campi sopraddetti ; ho
>costruito una query di accodamento che dalla tabella principale mi tira
>fuori i dati che ci interessano e li accoda alla tabella. a questo punto
>ho
>una tabella con i dati che mi servono e cosi' faranno tutti gli altri
>distributori......
>Problema1: come ottenere dai distributori solo quella
tabella?
creati un file con la tua bella tabella in mdb xls o cosaltro
vuoi con la macro trasferiscidatabase (o se vuoi un file txt con
trasferisci testo, и in pratica lo stesso). In reltа la prima volta dovrai
salvare con nome la tabella selezionata e salvare le specifiche attraverso
il tastino 'avanzate..'. queste specifiche salvate con nome ti serviranno
dopo nella macro.
cosм facendo hai automatizzato il processo di downlad e
siamo a metа.
>Problema2:una volta ottenute le diverse tabelle dai
diversi distributori
>come faccio ad inserirle in un unica tabella che
dovremmo usare per le
>nostre statistiche?
ex adverso io ho la tabella
proveniente dal distributore, file-carica dagli esterni-importa _salvo le
specifiche_ e tengo fuori le chiavi primarie.
>Ogni distrubutore ha un
suo codice che si ripete su ogni record; le schede
>hanno numero
progressivo.
tutto ok
ricorda di gestire bene i record giа caricati
>Aiutooooooooooooooooooooo!!!!!!please.
e con un pт di tentativi tutto
ciт diventa
sммммммммммммммммммммммммммммммммммммммммммммммммммммммм!!!!!thank you.
ciao MAssimiliano
--------------------------------
Inviato via
http://usenet.iol.it


title: Somma su maschera

author: Comparin Fabio

text:
Ciao a tutti,
due domande:
1)
ho una maschera (form1) con dentro una sottomaschera (form2)
form2 è formata dai seguenti campi
ARTICOLO
COSTO
QUANTITA'
TOTALE
e il valore di totale è dato da CostoXQuantità
nella form1 c'è una textbox --> vorrei che il suo valore fosse dato dalla
somma dei totali...
La soluzione sembra semplice e funzionava prima che decidessi di inserire
la formula sul campo totale. Mi spiego meglio: Se nel campo totale scrivo
il valore numerico, nella textbox con formula =somma([form2.totale]) mi
viene restituito il risultato. Con l'aggiunta della formula no...
2)
sottomaschera form2
ARTICOLO	COSTO
ALFA		€10
BETA		€10
GAMMA		€10
Vorrei aggiungere una funzione che mi creasse una riga sotto e che
inserisse il totale della colonna costo dandomi questo risultato:
ARTICOLO	COSTO
ALFA		€10
BETA		€10
GAMMA		€10
TOTALE		€30
GRAZIE A TUTTI PER IL TEMPO CONCESSOMI.
_ _ _ _ _ _ _ _ _ _ _
Comparin Fabio
10/11/2004 22.54.07


title: Somma su maschera

author: MA

text:
"Comparin Fabio" <
fa...@comparingroup.nospam.com
> ha scritto nel messaggio
news:3rjardyzf0lt.1b...@40tude.net...

Lavora sulla query origine della form non sui controlli.
Ricordati di usare nz() per evitare che con valori nulli non ti faccia la
somma.
MAssimiliano


title: installazione diverse versioni Access

author: SimoRed

text:
Salve,
questa non è proprio una domanda "tecnica", spero che qualcuno mi
aiuti ugualmente :-)
Ho un portatile con Office 2007 comprensivo di Access 2007. Preferendo
lavorare su Access 2003 (di cui ho regolare licenza), vorrei sapere se
posso installare sullo stesso portatile anche Access 2003 senza dover
disinstallare il 2007.
Grazia chi mi aiuterà!
Simo.


title: installazione diverse versioni Access

author: Carlo Costarella

text:
"SimoRed" <
sim...@virgilio.it
> ha scritto nel messaggio
news:1c533b74-bcb5-4af5...@v39g2000pro.googlegroups.com...



---------------------------------------
L'installazione di versione differenti segue la regola della pila di piatti:
per installare si parte dal basso (versione più vecchia) fino all'ultima;
per disinstallare si parte dall'alto (versione più giovane).
Nel tuo caso: disinstalla la 2007, installa la 2003 e poi la 2007.
Ciao, Carlo


title: Lentezza incredibile in apertura con tabelle allegate

author: Flexware S.A.

text:
Lavoro con un'applicazione fatta in Access97 costituita da circa 50 form,
moltissime query e report. Le tabelle sono posizionate in un database
esterno, solitamente sul server, e collegate alla mia procedura. Molto
spesso quando apro la precedura ci vuole tantissimo tempo ad allegare le
tabelle, se ci sono piu' utenti attivi nel programma  il tempo d'attesa
aumenta.
Sarei grato a chiunque fosse in grado di darmi dei consigli .
Davide


author: JBad

text:
In article <8ile87$99j$
1...@bw107zhb.bluewin.ch
>,
flex...@bluewin.ch

says...

Che tipo di server e'?
Che rete utilizzi (tipo, velocita', protocolli) ?
Quanto e' grande il DB dati?
--
JBad


text:
JBad <**jbad**@
ats.it
> wrote in message
MPG.13b86204...@news.tin.it...

Solitamente i server sono in WindowsNT 4.0; il protocollo di rete TCP/IP, a
volte NetBeui; Velocità 10/100. Le tabelle nel database sono circa 100 e le
dimensioni variano. Abbiamo notato che  quando entra il primo utente la
velocità è buona mentre dal secondo utente in poi è inaccettabile; tutto
questo in access 2.0 non succedeva e in generale tutto era piu' veloce.
Davide


title: Riconoscimento del CD-ROM

author: Carmelo Di Rosa

text:
Ciao a tutti, volevo chiedere se esiste un comando che mi da la possibilità
di verificare se il P.C. possiede un CD-ROM e a che lettera corrisponde.
Vorrei scrivere una routine che mi cerchi delle foto sul CD-ROM da collegare
ad un database, però il problema nasce se imposto un path fisso, tipo
D:\Foto\, e la macchina ha come Lettore CD la periferica E:\
Ciao e grazie.
** Articolo inviato tramite i servizi gratuiti di
www.x-privat.org
 **


title: Riconoscimento del CD-ROM

text:
"Carmelo Di Rosa" <
dir...@elet.polimi.it
> ha scritto nel messaggio
news:3f26...@x-privat.org...

Grazie, probabilmente ho risolto grazie ad un programmino da cui posso
prelevare qualche esempio.
Se qualcuno ha lo stesso problema può cercare sul sitocomune, sezione
Generale, il programmmino
Implementare un archivio di immagini.
Ciao.



title: Riconoscimento del CD-ROM

author: TONY

text:
"Carmelo Di Rosa" <
dir...@elet.polimi.it
> ha scritto nel messaggio
news:3f26...@x-privat.org...

Su AccessWeb se cerchi Drive ti restituisce quello che vuoi
tu...
http://www.mvps.org/access/index.html


title: Riconoscimento del CD-ROM

text:
"TONY" <
apiera...@sicop.it
> ha scritto nel messaggio
news:_MtVa.211313$Ny5.6...@twister2.libero.it...

Grazie, forse l'ho trovato, domani lo leggo con calma. Si trova sotto la
sezione APIs



title: OpenCurrentDatabase

author: Sandrobi

text:
Con il metodo OpenCurrentDatabase dovrei aprire un Database ma evitando di
aprire la maschera impostata nelle proprietą di Avvio. Come l'apertura con
il tasto shift premuto, per intenderci.
C'č un sistema per fare questo?
Mi serve per impostare i riferimenti da un database esterno e mi pare che
con gli oggetti DAO non č possibile.
Ciao.
Sandrobi


title: Collegamento ipertestuale

author: Debora

text:
Ho un campo in una tabella che come tipo dati é Collegamento ipertestuale
all'interno della tabella  con il comando modifica Collegamento ipertestuale
il testo da visualizzare  mi da  c:\38-98 è possibile aggiornare l'indirizzo
uguale al testo visualizzato su tutti i record? ho provato con
HyperlinkPart([nomecampo];1) ma no riesco.
Grazie


title: Collegamento ipertestuale

author: Roberto dal portatile

text:
"Debora" <
i...@i.it
> ha scritto nel messaggio
news:epvtu4$ir0$1...@nnrp-beta.newsland.it...

Il valore di un campo di tipo Collegamento ipertestuale è articolato in tre
parti tra loro separate da due caratteri # (vedi help): c:\38-98, che è la
parte visibile del campo, rappresenta solo una parte del valore del campo,
mentre per filtrare i dati devi o usare il valore intero contenuto nel campo
di Collegamento ipertestuale, oppure effettuare il filtro non usando
l'operatore = (uguale) ma l'operatore Like (vedi help) e i relativi
caratteri jolly.
> Grazie
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: come utilizzare Select...case

text:
ciao a tutti

ho questo codice su caricamento di una maschera

    If Me!Cornice1.Value = 1 Then _
        Me!CboA.Visible = True

    If Me!Cornice1.Value = 2 _
        Then Me!CboB.Visible = True

    If Me!Cornice1.Value = 3 Then _
        Me!CboC.Visible = True

come devo fare sostiuendolo con Select case?

ho provato cosi, ma ho errore

    Dim MioInterruttore As Byte

    MioInterruttore = Me!Cornice1.Value

    Select Case MioInterruttore
        Case Is = 1
            Me!CboA.Visible
        Case Is = 2
            Me!CboB.Visible
        Case Is = 3
            Me!CboC.Visible

    End Select

Grazie


title: come utilizzare Select...case

text:

ho trovato l'errore,

Me!CboA.Visible = true
ecc. ecc.


title: INPUT MASK!!!!!

author: cnicola

text:
Chi di voi sa quali sono i caratteri da inserire per creare una maschera che
converta le iniziali maiuscole di parole separate da spazio.
Ad esempio vorrei inserire....via pinco pallino e vorrei che la maschera mi
faccia inserire Via Pinco Pallino.
Grazie


title: INPUT MASK!!!!!

author: sib

text:
cnicola chiedette:

Non c'entra niente la maschera di input.
Leggiti questo estratto della guida in linea di access e ricorda che
quell'omino che puoi vedere nella tua applicazione non e' solo una simpatica
animazione che mamma Microsoft ci ha voluto regalare, gli puoi chiedere come
si fa quello che vuoi fare.
Ciao, Sib
*********************************
StrConv(string, conversion)
La sintassi della funzione StrConv è composta dai seguenti argomenti
predefiniti:
Parte Descrizione
string Obbligatoria. Espressione stringa da convertire.
conversion Obbligatoria; Integer. Somma dei valori che specificano il tipo
di conversione da eseguire.
Impostazioni
Le possibili impostazioni dell'argomento conversion sono:
Costante     Valore Descrizione
vbUpperCase     1 Rende maiuscola la stringa.
vbLowerCase     2 Rende minuscola la stringa.
vbProperCase     3 Rende maiuscola la prima lettera di ogni parola della
stringa.
vbWide*     4* Converte i caratteri stretti (a singolo byte) della stringa
in caratteri larghi (a byte doppio).
vbNarrow*     8* Converte i caratteri larghi (a byte doppio) in caratteri
stretti (a singolo byte).
vbKatakana**     16** Converte i caratteri Hiragana della stringa in
caratteri Katakana.
vbHiragana**     32** Converte i caratteri Katakana della stringa in
caratteri Hiragana.
vbUnicode     64 Converte la stringa in Unicode utilizzando la tabella
codici del sistema.
vbFromUnicode     128 Converte la stringa da Unicode utilizzando la tabella
codici del sistema.
****************************
--
------------------------------------------------------
Non e' grave non capire; grave e' occuparsi di cio' che non si capisce.
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente


title: Access 2000 e accesso utenti

author: SimoneB

text:
Salve a tutti,
mi sono creato con Access 2003 un DB per la gestione del protocollo, il
quale ha associato un file MDW per la gestione degli accessi utente. Sono
arrivato ad installare il mio db su di una postazione con Access 2000 e mi
sono reso conto che all'interno del menù strumenti - protezione non c'è la
funzione per poter associare il file MDW. Ho la necessita di dover
continuare a gestire il mio DB con l'accesso utente e su quella macchina NON
posso aggiornare office per una serie di motivi legati a delle
incompatibilità con altri DB.... come posso risolvere il problema?
Saluti a tutti SIMONEB


title: relazioni tra tabelle

author: Umin

text:
avevo una relazione tra una tabella Listino ed una Specifiche
ad un certo punto ho dovuto rinominare il campo ID del listino in
IDListino per non creare confusione
le relazioni sono rimaste pero' adesso quando apro la tabella
specifiche mi chiede sempre "inserire valore campo ID" che
evidentemente era la FK
come posso eliminare questa cosa?
grazie
--
Umin
n. p.: Oasis - Let There Be Love


title: relazioni tra tabelle

text:
Sembra che Umin abbia detto :
> avevo una relazione tra una tabella Listino ed una Specifiche
> ad un certo punto ho dovuto rinominare il campo ID del listino in IDListino
> per non creare confusione
> le relazioni sono rimaste pero' adesso quando apro la tabella specifiche mi
> chiede sempre "inserire valore campo ID" che evidentemente era la FK
> come posso eliminare questa cosa?
ho risolto da solo
cambiando il nome dell'ID non era stata cambiata la query ad esso
associata
tutto ok
--
Umin
n. p.: Dire Straits - Your Latest Trick


title: autoassegnazione proprietà se cliccato

author: nn

text:
Private Sub Controllo1_Click()
             Me!Controllo1.backcolor = nero
End Sub
la prima parte Me!Controllo1  puo' essere scritta come una variabile ?
e Private Sub Controllo1_Click( ) puo' passare a tale variabile il nome
del controllo stesso ?
va impostato qualcosa dentro le ( ) '
oppure c'è un codice in modo che
la proprietà colore si applica al controllo in cui ho cliccato ?
Private Sub Controllo1_Click()
             Controllo_Cliccato.backcolor = nero
End Sub
grazie


title: autoassegnazione proprietà se cliccato

author: stefano (kabisa)

text:
"nn" <
NOTNOTSPAM...@lycos.it
> ha scritto nel messaggio
news:3EA99B83...@lycos.it...

in un modulo crei una fanction
public function metti_colore(tuocontrollo as control)
tuocontrollo.backcolor=0
end function
nellamaschera su clic fai
call metti_colore ( ilnomedel controllo)
stefano


title: autoassegnazione proprietà se cliccato

text:
"stefano (kabisa)" wrote:

pero' cosi' ancora  non ho risolto il problema
in quanto ilnomecontrollo lo devo scrivere io
è possibile fare in modo che ilnomecontrollo gli venga passato
in automatico?
Quindi negli esempi sotto:
1) Private Sub Controllo1_Click()
           call metti_colore ( ilnomedel controllo)
End Sub
2) Private Sub Controllo2_Click()
           call metti_colore ( ilnomedel controllo)
End Sub
in qualche modo ilnmecontrollo vale per la 1) Controllo1  e per la 2)
Controllo2


title: autoassegnazione proprietà se cliccato

text:
CUT
> pero' cosi' ancora  non ho risolto il problema
> in quanto ilnomecontrollo lo devo scrivere io
>
> è possibile fare in modo che ilnomecontrollo gli venga passato
> in automatico?
>
> Quindi negli esempi sotto:
>
> 1) Private Sub Controllo1_Click()
>            call metti_colore ( ilnomedel controllo)
> End Sub
>
> 2) Private Sub Controllo2_Click()
>            call metti_colore ( ilnomedel controllo)
> End Sub
>
> in qualche modo ilnmecontrollo vale per la 1) Controllo1  e per la 2)
> Controllo2
>
Questo quello che ti rispondevo in un tread più sopra:
E se facessi una tabella con 100 campi e usi questa tabella per alimentare
la maschera.
Graficamente, nella maschera, usi un aspetto quanto più simile ad un
quadratino, per ogni controllo e li affianchi a mo di griglia.
Puoi anche ovviare alla tabella creando 100 controlli non associati. La
tabella ti permette di memorizzare il valore che potrai usare anche in un
secondo momento.
Ti crei una sub, interna alla maschera, che compie l'operazione che vuoi,
del tipo:
Private Sub ImpostaColore(ctl As String)
Dim ct As Control
Set ct = Me.Controls(ctl)
With ct
.BackColor = 0
End With
End Sub
Per ogni controllo dovrai però scrivere questo semplice codice:
ImpostaColore (Me.ActiveControl.ControlName)
Con copia e incolla sarà questione di 2 minuti.
Facci sapere
Ciao, Carlo


title: autoassegnazione proprietà se cliccato

text:
>
per la soluzione a tabella devo vedere per la 2a soluzione purtroppo
l'ActiveControl non è valido per retatngoli e label


title: ritornare alle struttura

text:
Ho creato il file di avvio di un db,per intenderci:quando clicco
sull'icona del file si apre solo con la maschera iniziale del mio
db.in
questo modo non vedo nessuna barra,tantomeno la finestra della
struttura del db.Si può tornare indietro nel caso debba fare
manutenzione al db?


title: ritornare alle struttura

text:
<
brena.c...@gmail.com
> ha scritto nel messaggio
news:1155629192.9...@74g2000cwt.googlegroups.com...

Prova ad avviare il database tenendo pigiato il tasto di shift.
--
Roberto
-----------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
-----------------------------------------------


title: ritornare alle struttura

text:
ok...grazie.Non lo sapevo!!!
Roberto dal portatile ha scritto:



title: Debug diverso [spero non OT!!]

author: Raffaele Alberoni

text:
Buongiorno a tutti
volevo sapere se esiste una strumento (meglio se free!!!) che faccia le
funzioni di debugger, ma meglio ancora faccia vedere il codice in
esecuzione nell'eseguire le varie elaborazioni.
Saluti.
--
Raffaele Alberoni
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: Debug diverso [spero non OT!!]

author: Sergio MAZZA

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6nt9u$brh$1...@news.newsland.it...
> Buongiorno a tutti
> volevo sapere se esiste una strumento (meglio se free!!!) che faccia le
> funzioni di debugger, ma meglio ancora faccia vedere il codice in
> esecuzione nell'eseguire le varie elaborazioni.
> Saluti.
>
> --
> Raffaele Alberoni
>
Cosa manca in quello tradizionale?
Ciao.
--
Sergio MAZZA


title: Debug diverso [spero non OT!!]

text:
Sergio MAZZA ha scritto:


> Ciao.
> --
> Sergio MAZZA
Io volevo una cosa che facesse vedere il codice in una finestra a parte
mentre il programma gira...
Forse ho troppe pretese.... oppure non sfrutto appieno le possibilità di
quello già presente... (che sia il caso di andare a studiare un po???)



title: Debug diverso [spero non OT!!]

author: namor

text:
Raffaele Alberoni ha scritto:
> Sergio MAZZA ha scritto:
> > "Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
> > news:c6nt9u$brh$1...@news.newsland.it...
> > > Buongiorno a tutti
> > > volevo sapere se esiste una strumento (meglio se free!!!) che faccia le
> > > funzioni di debugger, ma meglio ancora faccia vedere il codice in
> > > esecuzione nell'eseguire le varie elaborazioni.
> > > Saluti.
> > > --
> > > Raffaele Alberoni
> > Cosa manca in quello tradizionale?
> > Ciao.
> > --
> > Sergio MAZZA
> Io volevo una cosa che facesse vedere il codice in una finestra a parte
> mentre il programma gira...
> Forse ho troppe pretese.... oppure non sfrutto appieno le possibilità di
> quello già presente... (che sia il caso di andare a studiare un po???)
> Saluti.
Tieni il debugger in una finestra e la maschera/report in un'altra. Se hai
una scheda grafica dual head puoi avere il debugger su un monitor e il db
sull'altro.
Namor
--
namor at inwind punto it



title: Debug diverso [spero non OT!!]

text:
namor ha scritto:
> Raffaele Alberoni ha scritto:
> > Sergio MAZZA ha scritto:
> > > "Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
> > > news:c6nt9u$brh$1...@news.newsland.it...
> > > > Buongiorno a tutti
> > > > volevo sapere se esiste una strumento (meglio se free!!!) che faccia le
> > > > funzioni di debugger, ma meglio ancora faccia vedere il codice in
> > > > esecuzione nell'eseguire le varie elaborazioni.
> > > > Saluti.
> > > > --
> > > > Raffaele Alberoni
> > > Cosa manca in quello tradizionale?
> > > Ciao.
> > > --
> > > Sergio MAZZA
> > Io volevo una cosa che facesse vedere il codice in una finestra a parte
> > mentre il programma gira...
> > Forse ho troppe pretese.... oppure non sfrutto appieno le possibilità di
> > quello già presente... (che sia il caso di andare a studiare un po???)
> > Saluti.
> Tieni il debugger in una finestra e la maschera/report in un'altra. Se hai
> una scheda grafica dual head puoi avere il debugger su un monitor e il db
> sull'altro.
> Namor
Non ci riesco, nel senso che non vedo le varie istruzioni che si eseguono
e poi con la maschera evidenziata sparisce il codice. (forse sono io che
non sono capace..)
Ciao
--
Raffaele Alberoni



title: Debug diverso [spero non OT!!]

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6o26c$ca$1...@news.newsland.it...
>
> Non ci riesco, nel senso che non vedo le varie istruzioni che si eseguono
> e poi con la maschera evidenziata sparisce il codice. (forse sono io che
> non sono capace..)
> Ciao
>
>
> --
> Raffaele Alberoni
In effetti non funziona cosě ma se vuoi vedere nella finestra di debug il
punto dove sei arrivato con l'esecuzione del codice inserisci, nei vari
"step", una istruzione Debug.Print "Sono arrivato qui"...
Ciao.
--
Sergio MAZZA


title: Debug diverso [spero non OT!!]

text:
Sergio MAZZA ha scritto:


> Ciao.
> --
> Sergio MAZZA
Io mettevo dei Msgbox "cucu"
!!!!!
ciao



title: Debug diverso [spero non OT!!]

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6onr2$dtt$1...@news.newsland.it...
--- omissis -------
>
> Io mettevo dei Msgbox "cucu"
>
> !!!!!
Eh! Eh! Eh! Eh!
> ciao
>
>
>
> --
> Raffaele Alberoni
Ciao.
--
Sergio MAZZA


title: Debug diverso [spero non OT!!]

text:
Sergio MAZZA ha scritto:

> Eh! Eh! Eh! Eh!
> > ciao
> >
> >
> >
> > --
> > Raffaele Alberoni
> Ciao.
> --
> Sergio MAZZA
Adesso ci rido sopra anch'io, ma una volta mi è successo che me ne sono
dimenticato uno. Ho consegnato il programma ad un cliente.
Poi mi è arrivata la telefonata dicendo che il programma fa "cucu"...
Ti immagini le risate e la figura di m.... ?????
Ciao.



title: Debug diverso [spero non OT!!]

author: Antonio Biso

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6orvh$9p$1...@news.newsland.it...
> Sergio MAZZA ha scritto:
>
> > "Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
> > news:c6onr2$dtt$1...@news.newsland.it...
> > --- omissis -------
> > >
> > > Io mettevo dei Msgbox "cucu"
> > >
> > > !!!!!
>
>
> > Eh! Eh! Eh! Eh!
>
> > > ciao
> > >
> > >
> > >
> > > --
> > > Raffaele Alberoni
>
> > Ciao.
>
> > --
> > Sergio MAZZA
>
> Adesso ci rido sopra anch'io, ma una volta mi è successo che me ne sono
> dimenticato uno. Ho consegnato il programma ad un cliente.
> Poi mi è arrivata la telefonata dicendo che il programma fa "cucu"...
> Ti immagini le risate e la figura di m.... ?????
Pensa se avevi scritto:
Ma sei un deficiente?!?! T'ho detto di non premere quel pulsante, CAPRA!
Antonio


title: Debug diverso [spero non OT!!]

text:
"Raffaele Alberoni" <Raff...@Romagnacom.com> ha scritto nel messaggio
news:c6orvh$9p$1...@news.newsland.it...
>
> Adesso ci rido sopra anch'io, ma una volta mi è successo che me ne sono
> dimenticato uno. Ho consegnato il programma ad un cliente.
> Poi mi è arrivata la telefonata dicendo che il programma fa "cucu"...
> Ti immagini le risate e la figura di m.... ?????
> Ciao.
>
>
>
> --
> Raffaele Alberoni
Dovresti vedere che tipo di commenti nel codice mi scordo...
Ciao.
--
Sergio MAZZA


title: Query parametriche

author: Fabio

text:
Sono già capace di creare questo tipo di oiperazioni. Quello che non mi riesce di realizzare è la comparsa di una finestra di messaggio che mi indichi, ad esempio, un messaggio del genere:
Seleziona:
1 - Scheda A
2 - Scheda B
3 - Scehda C
ecc.
Come posso fare?
Grazie in anticipo per la rsiposta che mi darete.
------------------------------------------
Posted via web GlobalNews
www.globalnews.it
------------------------------------------


title: Query parametriche

author: Roberto da casa

text:
"Fabio" <
fabio....@tiscalinet.it
> ha scritto nel messaggio
news:3b1245a8$1_...@nnrpsrv.netscalibur.it...
>
> Sono già capace di creare questo tipo di oiperazioni. Quello che non mi
riesce di realizzare è la comparsa di una finestra di messaggio che mi
indichi, ad esempio, un messaggio del genere:
>
> Seleziona:
> 1 - Scheda A
> 2 - Scheda B
> 3 - Scehda C
> ecc.
>
> Come posso fare?
> Grazie in anticipo per la rsiposta che mi darete.
Spiegati un pochino meglio.
Cosa già fai e come?
cosa vorresti invece fare?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: Query parametriche

text:
Allora,
ho una query con dei campi tipo "Tipo di Preventivo", "Stato Commessa", ecc.
Sono in grado di far comparire una finestra di messaggio che mi dice :
"Inserisci tipo di preventivo", ecc. all'apertura della maschera (usando
query parametriche). Tuttavia, per selezionare il tipo di preventivo sono
obbligato a selezionare un numero (1, 2, 3, ecc.) in quanto, per scelta
passata, ho impostato alcuni campi di ricerca con questo stile.
Ora vorrei far comparire una finestra di messaggio che visualizzi un
messaggio più lungo al momento della domanda di selezione della query e
quindi, di questo tipo:
"Seleziona Tipo Preventivo:
1 - Alfa
2 - Beta
3 - Gamma
ecc."
Grazie e a risentirci presto.
Roberto da casa <
r.ma...@libero.it
> wrote in message
insQ6.21170$WT5.8...@news.infostrada.it...



title: Query parametriche

text:
"Fabio" <
fabio....@libero.it
> ha scritto nel messaggio
news:t%uQ6.1$HK...@news.infostrada.it...
> Allora,
> ho una query con dei campi tipo "Tipo di Preventivo", "Stato Commessa",
ecc.
> Sono in grado di far comparire una finestra di messaggio che mi dice :
> "Inserisci tipo di preventivo", ecc. all'apertura della maschera (usando
> query parametriche). Tuttavia, per selezionare il tipo di preventivo sono
> obbligato a selezionare un numero (1, 2, 3, ecc.) in quanto, per scelta
> passata, ho impostato alcuni campi di ricerca con questo stile.
> Ora vorrei far comparire una finestra di messaggio che visualizzi un
> messaggio più lungo al momento della domanda di selezione della query e
> quindi, di questo tipo:
>
> "Seleziona Tipo Preventivo:
> 1 - Alfa
> 2 - Beta
> 3 - Gamma
> ecc."
>
> Grazie e a risentirci presto.
>
[CUT]
Se la tua query si chiama Query1.
Occorre che ti crei una maschera non associata chiamata Maschera1 che
contiene delle label come leggenda a tuo piacimento ed una casella di testo
non associata chiamata Pippo dove digiterai o 1 o 2 o 3 ecc.
Nei parametri di Query1 anziché [Inserisci tipo di preventivo:] scrivi:
[Forms]![Maschera1]![Pippo]
A fronte dell'evento "Dopo aggiornamento" di Pippo genera un codice VBA che
ti apre Query1.
A questo punto apri Maschera1, digita in Pippo il tipo di preventivo da
selezionare e premi il tasto Invio.



title: Query parametriche

text:
>Se la tua query si chiama Query1.
>Occorre che ti crei una maschera non associata chiamata Maschera1 che
>contiene delle label come leggenda a tuo piacimento ed una casella di testo
>non associata chiamata Pippo dove digiterai o 1 o 2 o 3 ecc.
>Nei parametri di Query1 anziché [Inserisci tipo di preventivo:] scrivi:
>[Forms]![Maschera1]![Pippo]
>
>A fronte dell'evento "Dopo aggiornamento" di Pippo genera un codice VBA che
>ti apre Query1.
>A questo punto apri Maschera1, digita in Pippo il tipo di preventivo da
>selezionare e premi il tasto Invio.
>
>--
>Roberto
Inannzitutto grazie per avermi risposto.
Tuttavia, mi sono dimenticato di dirti che ho ben poca dimestichezza con il codice VBA (diciamo pure che non sono in grado di screivere assolutamente nulla in VBA!).
Ti riepilogo quello che ho fatto:
Come mi hai suggerito ho creato la maschera che ho chiamato "frmGenerica" nella quale ho inserito diverse etichette del tipo: "1 - Alpha", "2 - Beta", ecc. Inoltre, ho creato la casella di testo "Pippo" non associata a nulla. Ancora, ho inserito nella query qryGenerica (contenente i parametri di cui necessito), in corrispondenza del campo da filtrare, la dicitura [Forms]![frmGenerica]![Pippo]. A questo punto mi suggerivi di scrivere del codice VBA per far aprire la query contenente i parametri. Come si fa?
Esiste qualche sito internet che descrive con procedure passo-passo quanto ti sto chiedendo? Su
sitocomune.com
 non mi sembra di aver trovato nulla di particolarmente utile.
Ti ringrazio i anticipo per la tua cortesia e affettuosamente ti saluto.
Ciao.

------------------------------------------
Posted via web GlobalNews
www.globalnews.it
------------------------------------------
Eliminate NONMISPAMMATE per scrivermi in pers


title: Query parametriche

text:
"Fabio" <fabio....@NONMISPAMMMATEtiscalinet.it> ha scritto nel messaggio
news:3b13a313$1_...@nnrpsrv.netscalibur.it...

======================
E' sufficiente che a fronte dell'evento "Dopo aggiornamento" di Pippo generi
il seguente codice VBA:
DoCmd.OpenQuery "qryGenerica"
> Esiste qualche sito internet che descrive con procedure passo-passo quanto
ti sto chiedendo? Su
sitocomune.com
 non mi sembra di aver trovato nulla di
particolarmente utile.
Quello che ti serve č solo conoscere gli oggetti ed i metodi di Access.
Queste cose si imparano sui manuali di Access ma innanzitutto sull'help in
linea di Access. Inoltre ho dei dubbi che su un sito internet riesci a
trovare cose che possono essere facilmente reperite su ogni manuale o
sull'help. Gli esempi o le FAQ riguardano problematiche un pochino piů
complesse della tua, dove le funzioni, gli oggetti ed i metodi vengono usati
in maniera un pň piů "avanzata".
>
> Ti ringrazio i anticipo per la tua cortesia e affettuosamente ti saluto.
E dai, levati 'sto dente e comincia a studiare VBA. Vedrai che ci vuole piů
a dirlo che a farlo; comunque provaci con convinzione.
> Ciao.



title: Raggruppare i record uguali e sommarne i valori in un report

text:
Salve a tutti.
Ho provato in diversi modi creaundo un report ma non ci sono riuscito.
Ho creato un report basato su una query.  Deve riepilogarmi i lavori
effettuati per un cliente. I lavori sono nella tabella "Movimenti" e succede
che il lavoro effettuato per un cliente si divide in diverse voci presenti
diverse volte nella tabella. Ad esempio: in data 26/09 ci sono state 10 ore
di lavoro a 40 euro all'ora; 120 euro di spese anticipate. In data 27/09 ci
sono state 5 ore di lavoro a 40 euro l'ora; 10 euro di spese telefoniche e
50 di spese anticipate.
Vorrei riuscire a fare in modo che il report apparisse piů o meno cosě:
Ore lavoro 600
Spese anticipate 170
Spese telefoniche 10
totale    780
Ho provato a fare una query a campi incrociati ma siccome devo dare anche
dei parametri credo di aver fatto un pň di confusione. In effetti mi dice
che microsoft Jet  non riconosce Forms!StampaRiepilogo!DallaData come campo
valido.
In excel avrei caricato una matrice ma ho visto che access semplifica molto
queste cose: l'importante č conoscerle...
Come si fa?
Grazie
Stefano


author: Maurizio S

text:
"r4gtl" <
stefa...@interfree.it
> ha scritto nel messaggio
news:451a809f$0$15866$4faf...@reader2.news.tin.it...
> Salve a tutti.
> Ho provato in diversi modi creaundo un report ma non ci sono riuscito.
> Ho creato un report basato su una query.  Deve riepilogarmi i lavori
> effettuati per un cliente. I lavori sono nella tabella "Movimenti" e
> succede
> che il lavoro effettuato per un cliente si divide in diverse voci presenti
> diverse volte nella tabella. Ad esempio: in data 26/09 ci sono state 10
> ore
> di lavoro a 40 euro all'ora; 120 euro di spese anticipate. In data 27/09
> ci
> sono state 5 ore di lavoro a 40 euro l'ora; 10 euro di spese telefoniche e
> 50 di spese anticipate.
> Vorrei riuscire a fare in modo che il report apparisse più o meno così:
>
> Ore lavoro 600
> Spese anticipate 170
> Spese telefoniche 10
> totale    780
>
> Ho provato a fare una query a campi incrociati ma siccome devo dare anche
> dei parametri credo di aver fatto un pò di confusione. In effetti mi dice
> che microsoft Jet  non riconosce Forms!StampaRiepilogo!DallaData come
> campo
> valido.
> In excel avrei caricato una matrice ma ho visto che access semplifica
> molto
> queste cose: l'importante è conoscerle...
> Come si fa?
>
> Grazie
> Stefano
>
Ciao Stefano
Se non ho capito male per ogni cliente vorresti il riepilogo delle ore,
spese e totale.
Per le mie conoscenze poi intraprendere 2 strade:
I°  Strada:
    Crei il Report con origine dati la tua tabella movimenti,
    Od una query che te li filtra da data a data con la formula:
    Between [Forms]![movimenti]![dadata] And [Forms]![movimenti]![adata]
    e ti crea il campo totale con una formula
    Nel Report imposti il raggruppamento per Cliente
            Visualizza
                Ordinamento e raggruppamento
                con i parametri intestazione e piè di pagina gruppo SI
                raggruppa secondo ogni valore
    Inserisci i campi nel corpo
    Sul piè di pagina Cliente puoi inserire le somme dei campi a tuo
piacimento
    es: (su casella di testo =Somma([Totale]))
    Se non vuoi visualizzare tutti i movimenti imposta le proprietà del
corpo a visibile no
II° Strada:
    Sulla query creata come sopra crei un'altra query con visualizzazione
dei totali,
    per cliente usi la formula "raggruppamento", per gli altri campi "somma"
    Con questa query crei il tuo Report.
Spero di essere stato chiaro
Ciao
Maurizio S.


text:
"Maurizio S" <
in...@sintesysrl.191.it
> ha scritto nel messaggio
news:efe628$4m5$1...@area.cu.mi.it...

Ora ho capito. Sono andato per tentativi e mi ci ero quasi avvicinato ma
adesso è tutto molto più chiaro.
Grazie mille.
Stefano


title: bloccare controlli in una maschera

author: Antonio Di Marco

text:
Come potrei da codice, e a fronte di quale evento, disabilitare alcuni
controlli in una maschera in base al valore scelto da una casella combinata
? Cioè ad esempio "casella combinata = 1" allora controllo 1 abilitato ma
controllo 2 no, "casella combinata = 2" controllo 1 non abilitato ma
controllo 2 abilitato ?
Grazie
Antonio


title: bloccare controlli in una maschera

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9cpd6s$cvl$1...@pegasus.tiscalinet.it...

Da quello che racconti sembrerebbe a fronte dell'evento "Dopo aggiornamento"
della casella combinata.
Il codice VBA dovrebbe essere:
If Me!CasellaCombinata = 1 Then
    Me!Controllo1.Enabled = True
    Me!Controllo2.Enabled = False
Else
    Me!Controllo1.Enabled = False
    Me!Controllo2.Enabled = True
End If
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


title: bloccare controlli in una maschera

author: Marco Manieri

text:
> Come potrei da codice, e a fronte di quale evento, disabilitare alcuni
> controlli in una maschera in base al valore scelto da una casella
combinata
> ? Cioè ad esempio "casella combinata = 1" allora controllo 1 abilitato ma
> controllo 2 no, "casella combinata = 2" controllo 1 non abilitato ma
> controllo 2 abilitato ?
Devi utilizzare l'evento AfterUpdate (DopoAggiornamento) del controllo
impostando le propietà Enabled.
Esempio
Private Sub casella_combinata1_AfterUpdate ()
	if me.casella_combinata1 = 1 then
 		controllo1.enabled = true
		controllo2.enabled = false
	else
 		controllo1.enabled = false
		controllo2.enabled = true
	endif
end sub
Marco Manieri
--
Posted from [212.104.50.1]
via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: bloccare controlli in una maschera

text:
Le vostre soluzioni funzionano però dato che il codice è inserito in una
sottomaschera che visualizza più record, quando dal codice viene bloccato il
controllo 1 vengono bloccati tutti i "controlli 1" di tutti i record che sto
visualizzando nella sottomaschera. Invece io vorrei che fosse disabilitato
solo quello relativo al record corrente, in modo da non poter accedere ed
inserire errate informazioni. Esiste un modo per fare questo ? Inoltre
supponendo che se "casella combinata =1" controllo 1 deve essere
disabilitato, e se "casella combinata =2" controllo 1 deve essere abilitato,
se il primo record della sottomaschera ha come valore della casella
combinata 1 ma nel record seguente le assegno il valore 2, sbloccando tutti
i controlli io potrei teoricamente andare a modificare il valore del
controllo 1 del primo record che invece deve essere bloccato, non so se sono
stato chiaro.
Grazie per l'eventuale approfondimento



title: bloccare controlli in una maschera

text:
"Antonio Di Marco" <
dyma...@tiscalinet.it
> ha scritto nel messaggio
news:9cpm0g$h62$1...@pegasus.tiscalinet.it...

Ti saremmo tutti grati se risponderai dopo e non prima dei messaggi
precedenti.
Non avevi detto che stavi operando con una maschera con visualizzazione a
Maschere continue, e giacchè né io e né Marco abbiamo la sfera di
cristallo.....
Modifica il codice VBA in :
If Me!CasellaCombinata = 1 Then
    Me!Controllo1.Enabled = True
    Me!Controllo1.Locked = False
    Me!Controllo2.Enabled = False
    Me!Controllo2.Locked = True
Else
    Me!Controllo1.Enabled = False
    Me!Controllo1.Locked = True
    Me!Controllo2.Enabled = True
    Me!Controllo2.Locked = False
End If
Così i controlli non abilitati non diventeranno grigi, evitando un problema
antiestetico.
Genera tale codice VBA, oltre che a fronte dell'evento "Dopo aggiornamento"
della casella combinata, anche a fronte dell'evento "Su corrente" della
sottomaschera. Poichè il record corrente è uno solo alla volta il problema
non si pone, naturalmente a condizione che la casella combinata sia
associata ad un campo della tabella che è origine record della
sottomaschera; se invece la casella combinata non è associata, non ho
soluzioni da darti, visto che tutte le caselle combinate visualizzate o
assumono tutte il valore 1 o tutte il valore 2.



title: bloccare controlli in una maschera

text:
Scusate se ho postato prima ma intendevo rispondere a Roberto.
Il tuo codice è giusto, anche se il fatto che le caselle diventano grigie
per me sarebbe stato anche positivo.
Grazie mille
Antonio
--
Posted from
mail.unifi.it
 [150.217.1.31]



title: Ricerca di un campo dentro un altro

author: GS

text:
Ecco il problema:
Ho una tabella con due campi. Un campo "lemma" in formato testo che contiene
una parola, e un campo "definizione" in formato memo che contiene molte
parole (la definizione appunto).
Voglio cercare, all'interno di tutte le definizioni tutte le occorrenze di
ogni lemma e segnarle con un tag (sempre lo stesso, per esempio <t>)
al'inizio e uno alla fine.
Ovviamente è pazzesco farlo a mano, ed è per questo che cerco aiuto.
Ecco cosa deve fare il software:
** leggo il lemma 1
** lo cerco nella definizione 1 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** lo cerco nella definizione 2 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** lo cerco nella definizione n e gli aggiungo un <t> prima e dopo ogni
occorrenza
** leggo il lemma 2
** lo cerco nella definizione 1 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** lo cerco nella definizione 2 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** lo cerco nella definizione n e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** leggo il lemma n
** lo cerco nella definizione 1 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** lo cerco nella definizione 2 e gli aggiungo un <t> prima e dopo ogni
occorrenza
** ...
** lo cerco nella definizione n e gli aggiungo un <t> prima e dopo ogni
occorrenza
AIUUUTOOOOOO!!!


title: Ricerca di un campo dentro un altro

author: Ratnamala

text:
Devi usare un codice VBA con la funzione Replace:
Replace(expression, find, replace[, start[, count[, compare]]])
le istruzioni le trovi nella guida in linea di Microsoft Visual Basic,
altrimenti non resta che usare il comando "sostituisci" del menù modifica
con la tabella
in questione aperta, da ripetere per ogni "lemma"...
Ciao
Arturo
"GS" <
bulbyn...@freemail.it
> ha scritto nel messaggio
news:9jhk30$ubo$1...@lacerta.tiscalinet.it...



title: Ricerca di un campo dentro un altro

text:
> Devi usare un codice VBA con la funzione Replace:
> Replace(expression, find, replace[, start[, count[, compare]]])
> le istruzioni le trovi nella guida in linea di Microsoft Visual Basic,
Il fatto è che non sono molto esperto di VBA... non sai se esiste qualche
esempio in rete su come si possa realizzare una cosa del genere? Non credo
di ruiscire da solo a fare un tale programmino da zero...
> altrimenti non resta che usare il comando "sostituisci" del menù modifica
> con la tabella
> in questione aperta, da ripetere per ogni "lemma"...
:-((((((
Sono quasi 60.000 lemmi...



title: Ricerca di un campo dentro un altro

text:
Ratnamala <
ratn...@iol.it
> wrote in message
W9Z67.19396$NZ6.6...@news.infostrada.it...
> Devi usare un codice VBA con la funzione Replace:
Devi scrivere DOPO il quoting
Antonio


title: Ricerca di un campo dentro un altro

author: Arturo

text:
> Il fatto č che non sono molto esperto di VBA... non sai se esiste qualche
> esempio in rete su come si possa realizzare una cosa del genere? Non credo
> di ruiscire da solo a fare un tale programmino da zero...
Non mi sembra molto difficile da usare, potresti fare una tabella
con solo i lemmi, quindi apri due recorset contemporaneamente,
uno con i lemmi e uno con la tabella da quotare, poi con
il .movenext scorri i lemmi ad uno ad uno e gli fai fare la
ricerca su tutto il testo con sostituzione su tutti i record del
secondo recordset.
:-)
Se non ci riesci fatti avanti ancora ...
Ciao
Arturo
>
>
> > altrimenti non resta che usare il comando "sostituisci" del menů
modifica
> > con la tabella
> > in questione aperta, da ripetere per ogni "lemma"...
>
> :-((((((
> Sono quasi 60.000 lemmi...
>
>
> > Ciao
> > Arturo
> >
> > "GS" <
bulbyn...@freemail.it
> ha scritto nel messaggio
> > news:9jhk30$ubo$1...@lacerta.tiscalinet.it...
> > > Ecco il problema:
> > > Ho una tabella con due campi. Un campo "lemma" in formato testo che
> > contiene
> > > una parola, e un campo "definizione" in formato memo che contiene
molte
> > > parole (la definizione appunto).
> > > Voglio cercare, all'interno di tutte le definizioni tutte le
occorrenze
> di
> > > ogni lemma e segnarle con un tag (sempre lo stesso, per esempio <t>)
> > > al'inizio e uno alla fine.
> > > Ovviamente č pazzesco farlo a mano, ed č per questo che cerco aiuto.
> >
> >
> >
>
>


title: Compatta e ripristina database

author: DBN

text:
Sul menù strumenti- Utilità c'è la funzione compatta e ripristina database.
E' possibile creare un tasto con tale funzione da inserire nelle varie
applicazioni?
Se si qualcuno mi spiega come fare?
Grazie in anticipo


title: Compatta e ripristina database

author: Alessandro Baraldi

text:
"DBN" <
dbo...@dalbosco.com
> wrote in message
news:bgllka$pb7bj$
1...@ID-91233.news.uni-berlin.de

Se usi A2K oXP c'è un Flag da settare per la compattazione alla
chiusura.
Se invece vuoi eseguire a richiesta devi realizzare un'applicazione
esterna che compatti e rilanci il tuo programma.
Sul SitoComune c'è uno Script che realizza questo.
www.sitocomune.com
@Alex.
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: Compatta e ripristina database

author: Karl Donaubauer

text:
Alessandro Baraldi ha scritto:
> "DBN" <
dbo...@dalbosco.com
> ha scritto:
>> Sul menù strumenti- Utilità c'è la funzione compatta e ripristina
>> database. E' possibile creare un tasto con tale funzione da inserire
>> nelle varie applicazioni?
>
> Se usi A2K oXP c'è un Flag da settare per la compattazione alla
> chiusura.
> Se invece vuoi eseguire a richiesta devi realizzare un'applicazione
> esterna che compatti e rilanci il tuo programma.
> Sul SitoComune c'è uno Script che realizza questo.
>
www.sitocomune.com
Con versioni >=A00 c'è anche la possibilità di chiamare la
voce del menù dal codice. L'ha trovato il collega MVP Juan
M. Afan de Ribera di Barcelona. Non so tutti i nomi delle
voce nella versione italiana. Dovete cambiare le 2 ultimi qui:
CommandBars("Menu Bar"). _
    Controls("Strumenti"). _
    Controls("programmadatabase osimile"). _
    Controls("Compatta e ripristina database o simile..."). _
    accDoDefaultAction
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: & come in Clipper

author: Sandro Barbagelata

text:
Vorrei poter fare in Access ciň che facevo in Clipper e cioč:
memorizzare in un a striga o in un campo una formula matematica ad es.
10+sin(x)*sqrt(cos(y)) dove ovviamente sin cos sqrt sono funzioni ed X e
Y variabili a cui assegno un valore e farla risolvere automaticamente.
In Clipper esisteva un operatore & che trasferiva alla variabile il
contenuto della variabile per cui quanto sopra veniva risolto come
segue:
x=10
Y=20
a=10+sin(x)*sqrt(cos(y))
a=&a
ed ottenevo il risultato della funzione matematica.
Sandro


title: & come in Clipper

author: Thierry Rega

text:
eval ... e ti sarà dato.
Thierry Rega
Sandro Barbagelata <
sandroba...@libero.it
> wrote in message
8095122483020.NC-v1....@popmail.libero.it...
> Vorrei poter fare in Access ciò che facevo in Clipper e cioè:



title: Criterio

author: Lk

text:
Ciao a tutti,
volevo un aiutino,se possibile.
Ho un DB (A2000) con :
2 tabelle  -Elenco e Criteri
2 forms  -Scelta criteri e Visualizzazione
nella tabella Elenco ho dei campi di questo tipo.
nome auto            prezzo          comfort       velocità      ripresa
e per ogni record ci sono dei valori numerici.
la tabella criteri ha i...criteri
Id                 criteri
1                 prezzo
2                 comfort
3                 velocità
ecc..-
nella form SceltaCriteri ho una combo con sorgente la tab Criteri.
Vorrei fare questo.
Una volta scelto un criterio ,vorrei che questo mi visualizzasse nella form
Visualizzazione ,l'elenco dei primi 10 records ordinati con il criterio
scelto,in maniera decrescente .
Ho provato usando il cod. SQL , ad inserirla nell'evento"dopo aggiornamento"
della combo della form SceltaCriteri ,in questo modo :
DoCmd.RunSQL "SELECT elenco.prezzo, elenco.comfort, elenco.velocità,
elenco.ripresa, ([elenco]![prezzo]+[elenco]![comfort]+[elenco]![velocità]+
[elenco]![ripresa],& _
"FROM elenco" & _
"ORDER BY
([elenco]![prezzo]+[elenco]![comfort]+[elenco]![velocità]+[elenco]![ripresa]
)/7 DESC;"
ma non mi fila nemmeno.
Mi date un idea,per favore?
grazie
Laika


title: Criterio

author: ALESSANDRO Baraldi

text:
"Lk" <
xy...@email.it
> ha scritto nel messaggio
news:G8qnc.224959$rM4.9...@news4.tin.it...

Diciamo che sostanzialmente hai sbagliato Approccio.
Le Queries SELECT non si lanciano come hai fatto tu, quel
sistema si usa solo per le Queries ACTION come DELETE/UPDATE/INSERT.....!
Detto questo per filtrare i Records devi usare la Clausola WHERE che è
la condizionante della struttura SQL, quella nella quale inserisci il
CRITERIO.
Sarà "SELECT * FROM NomeTabella WHERE [NomeCampo]=" & Variabile
In questo modo però li becchi tutti, quindi per limitare a 10 dovrai usare
il predicato
TOP ben documentato nell'HELP con tanto di esempio:
SELECT TOP 25
Nome, Cognome
FROM Studenti
WHERE AnnoDiLaurea = 1994
ORDER BY VotazioneMedia DESC;
Fatto questo però non hai risolto il problema devi passare la Stringa
SQL alla Form.
Quindi :
DIm strSQL="SELECT TOP 25 " & _
                     "Nome, Cognome " & _
                     "FROM Studenti " & _
                     "WHERE AnnoDiLaurea = 1994 " & _
                     "ORDER BY VotazioneMedia DESC"
ME.Recordsource=strSQL
Me.Recordsource=Me.Recordsource
Ciao.
@Alex.