Newsgroup: it.comp.appl.access
Titolo: RICERCA IN AUTOMATICO

CAMPI DELLA MASCHERA "ARCHIVIO"
CODICE A BARRE               "CAMPO CODICE A BARRE"
DESCRIZIONE                      "CAMPO DESCRIZIONE"
PREZZO                                 "CAMPO PREZZO"
TROVA CODICE A BARRE   "CAMPO TROVACODICE A BARRE "
NELLA MASCHERA "ARCHIVIO" HO CREATO I CAMPI SU INDICATI
IN PARTICOLARE NEL CAMPO "CODICE A BARRE" ATTRAVERSO IL LETTORE OTTICO
IMMETTO IL CODICE ARTICOLO E POI MANUALMENTE NEI CAMPI "DESCRIZIONE E
PREZZO" DIGITO I PROPI DATI E COSI MI CREO "L'ARCHIVIO".
COSA VOGLIO CHIEDERVI.
NEL CAMPO "TROVA", CHE E' UN CAMPO NON ASSOCIATO,CREATO SEMPRE NELLA
MASCHERA "ARCHIVIO" ,APRENDO LA MASCHERA IL
CURSORE MI CI POSIZIONA IN "AUTOMATICO" ALL'INTERNO, DOVE ATTRAVERSO IL
LETTORE OTTICO IMMETTO IL CODICE ARTICOLO.
ADESSO VORREI CHE IN MODO "AUTOMATICO" MI VENGA TROVATO IL CODICE ARTICOLO
NEL CAMPO "CODICE A BARRE" QUINDI COME SE SI EFFETTUASSE UNA RICERCA.
PERCHE' QUESTO? PER EVITARE DOPO LA LETTURA DEL CODICE A BARRE DI PREMERE
QUALSIASI TASTO O DARE INVIO ECC. , ALTRIMENTI NON CI SAREBBE MOTIVO DI FARE
LE COSE VELOCI CON IL LETTORE OTTICO.
RINGRAZIANDO IN ANTICIPO CHI MI DARA' UN'AIUTO COLGO L'OCCASIONE PER
SALUTARVI.
.

 ha scritto nel messaggio
news:txrya.17473$Ny5.5...@twister2.libero.it...

Per favore evita di scrivere tutto in maiuscolo.
Usa l'evento "Dopo Aggiornamento" del "Controllo" (non si dice campo)
"Trova", cosě:
Me.CodiceAbarre.SetFocus
Docmd.FindRecord Me.Trova
Ciao, Carlo

 Grazie Carlo Ho appena ricevuto il tuo messaggio ora lo provo e ti faro'
sapere.
P.S. Seguiro' i tuoi consigli evitero' di scrivere tutto in maiuscolo e
chiamero il campo in controllo.

 ha scritto nel messaggio
news:txrya.17473$Ny5.5...@twister2.libero.it...
Nei NewsGroup scrivere in maiuscolo significa strillare e poiché qui nessuno
è sordo, sei pregato di non scrivere in maiuscolo.
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Ciao Carlo
Ho Provato la tua funzione e con questo mi hai dato gia' un grosso
aiuto,ancora GRAZIE!
Pero' provando la funzione devo sempre premere "INVIO" questo è quello che
io vorrei evitare.
Vorrei: dopo che il lettore ottico abbia effettuato la lettura del (Codice
Articolo) nel "controllo" "TROVA" me lo  trovi in automatico nel controllo
"Codice A Barre"
cioè senza premere invio o altri tasti.
Inoltre dopo che ha trovato il (Codice Articolo) il cursore dovrebbe
"saltare" in automatico dal controllo "Codice A Barre" al controllo "TROVA"
; questo per effettuare una nova ricerca senza uscire dalla maschera
"Archivio".
In ultimo se il (Codice Articolo) non viene trovato dovrebbe uscire il
messaggio "Articolo Non Trovato Inserire Nuovo Articolo".
E' possibile fare questa funzione?
Scusami se sto invadendo la tua bontà, ma se puoi aiutarmi a risolvere
questo problema te ne saro' grato.


Se leggi nei settaggi dello scanner troverai certamente il modo di inserire
un carattere, cosiddetto di fine riga, che ti permette di simulare il tasto
invio dopo la stringa BarCode. Per passare automaticamente al controllo
"Codice a Barre" puoi usare il codice e mi pare che già ci sia nell'esempio
(Me.[Codice a Barre].SetFocus), oppure dal menù "Visualizza" scegli "Ordine
di Tabulazione" e posizioni il controllo "Trova" subito prima del controllo
Codice a Barre.
Per il messaggio se il codice non è stato trovato puoi usare qualcosa del
genere:
If IsNull(DLookup("Codice", "ScaricaSerialeCodiceMagazzinoBanco", "Codice =
forms!MScaricaSerialeBanco!Cerca")) Then
           MsgBox "Nessun articolo in Magazzino con questo Codice!"
End If
Ciao, Carlo

Ciao Carlo
Sono Giovanni colui che sta chiedendoti un po' troppo in questi giorni, ma
comunque ho notato che se dai questi consigli è proprio pertche' ti piace
altrimenti non esistevi vero? Meglio che esisti!
Allora, mi sta succedendo una cosa strana o meglio ho cerato 3 maschere
"Carico" Scarico" "Resi"
che poi sono diventate sottomaschere della Maschera "Archivio".
Le 3 maschere "Carico" Scarico" "Resi" hanno gli stessi controlli e cioe' :
Codice a barre,Descrizione, Prezzo, Quantità e TotaleQuantità.
Ora nel controllo "Quantità" di tutte e3 le maschere,con una macro che ho
creato, si va ad immettere la quantità che digito nella maschera principale
e cioe' "Archivio".
Cosi facendo mi trovo gia' sulle maschere "Carico" Scarico" "Resi" le
quantita'
Poi nel controllo "Totale Quantità"  delle 3 maschere "Carico" Scarico"
"Resi"  vado a farmi la somma di queste quantita' con le seguenti formula:
"=Somma([Carichi])" e questo la inserisco nei dati in "Origine Di Controllo"
cosi la stessa cosa per scarico"=Somma([Scarico])" e cosi anche per
resi"=Somma([Resi])" .
Adesso cosa succede che quando riapro la Maschera principale e cioe'
"Archivio" c'e' il controllo
"Giacenza" dove ho formulato la seguente formula:
 nei dati  "Origine Di Controllo"
,"=([Form]![TotaleQtàCarichi]![TotaleCarichi])-([Form]![TotaleQtàScarichi]![
TotScarichi]+[Form]![TotaleQtàResi]![TotResi])", che non mi da la Giacenza
Perchè succede questo?
Io ho notato che se nei controlli Quantità delle 3 maschere "Carico"
Scarico" "Resi" nel punto"Origine Di Controllo" non metti le
formule"=Somma([Scarico])" ecc.ecc. e metti il nome esatto del controllo
cioe' "TotaleCarico", "TotaleScarico", e "Totale Reso" il controllo si pone
a "ZERO" quindi diventando un capo numerico e cosi facendo mi fa eseguire la
formula
"=([Form]![TotaleQtàCarichi]![TotaleCarichi])-([Form]![TotaleQtàScarichi]![T
otScarichi]+[Form]![TotaleQtàResi]![TotResi])"
pero' questo lo fa se inserisco una quantita' manualmente in altre parole
non mi fa piu' la somma delle quantita'   perchè la formula non c'è piu'
"=Somma([Carico])" =Somma([Scarico])" e cosi anche per resi"=Somma([Resi])"
.
Ho provato anche a mettere le formule " =Somma([Carico])" =Somma([Scarico])"
e cosi anche per resi"=Somma([Resi])"  nei dati alla voce "Valore
Predefinito" e non mi funziona o meglio il controllo si pone a "zero"=0" ma
la somma non viene eseguita.
Ora ti chiedo c'hai capito qualcosa?
Comunque vorrei che mi uscissce il controllo "Totale Quantita" a zero e che
mi funzionasse la formula "=Somma([Carico])"  ecc ecc
Colgo l'occasione per ringraziarti ulteriormente

 ha scritto nel messaggio
news:GI3za.23026$lK4.6...@twister1.libero.it...

Ciao, spero di averci capito qualcosa.
=([Form]![TotaleQtàCarichi]![TotaleCarichi])-([Form]![TotaleQtàScarichi]![
TotScarichi]+[Form]![TotaleQtàResi]![TotResi])", che non mi da la Giacenza
dovrebbe diventare cambiando opportunamente i nomi:
Forms![MascheraPrincipale]![NomeMascheraSecondariaCarichi].Form![NomeControl
loMascheraSecondariaCarichi] -
Forms![MascheraPrincipale]![NomeMascheraSecondariaSCarichi].Form![NomeContro
lloMascheraSecondariaSCarichi] +
Forms![MascheraPrincipale]![NomeMascheraSecondariaResi].Form![NomeControlloM
ascheraSecondariaResi].
O meglio:
NZ(Forms![MascheraPrincipale]![NomeMascheraSecondariaCarichi].Form![NomeCont
rolloMascheraSecondariaCarichi];0) -
NZ(Forms![MascheraPrincipale]![NomeMascheraSecondariaSCarichi].Form![NomeCon
trolloMascheraSecondariaSCarichi];0) +
NZ(Forms![MascheraPrincipale]![NomeMascheraSecondariaResi].Form![NomeControl
loMascheraSecondariaResi];0).
Se usi il codice metti la virgola al posto del punto e virgola.
Fammi sapere.
Ciao, Carlo