ho una tabella che uso per gestire entrata e uscita di prodotti (attualmente
manualmente).
Vorrei collegare le quantit� al carico/scarico dei prodotti letti mediante
barcode.
Mi spiego:
Tabella1
IDCodiceProdotto Testo (255)
Carico Numerico
Credo di dover preventivamente associare in un'altra tabella il
IDCodiceProdotto con il CodiceBarcode e di dover fare un collegamento
uno-a-molti in quanto potrei avere pi� codici a barre per lo stesso
prodotto.
Poi vorrei fare un interruttore ed un campo testo dove inserire il barcode
in una maschera dove gestire le quantit� in questo modo:
Se il tasto � ON:
Leggo il codice a barre e aumento di 1 il campo carico della Tabella1
relativo al IDCodiceProdotto
Se il tasto � OFF:
il contrario.
Avete qualche suggerimento circa quanto sopra?
Grazie 1000
cio
Dunque ho provato a fare questo:
Tabella2 contenente i campi
IDCodiceProdotto Testo (255)
Barcode Testo (255)
Ho collegato questa tabella alla Tabella1
IDCodiceProdotto Testo (255)
Carico Numerico
Applicando una relazione uno-a-molti tra i 2 campi IDCodiceProdotto. Nella
Tabella1 IDCodiceProdotto � la chiave primaria.
Ho creato una maschera che contiene una TextBox dove inserir� la stringa del
Barcode. e' una maschera che gi� uso e che ha come origine dati Tabella1.
Pensavo di fare una cosa di questo tipo:
Leggo la stringa
Visualizzo un prompt che mi chiede "Si desidera aggiungere il prodotto?"
A questo punto se dico S� mi fa +1 sul campo Carico del IDCodiceProdotto
collegato, altrimenti mi fa -1.
Non so per� come collegare il tutto al fatto che la stringa del barcode deve
essere presente ed associata al IDCodiceProdotto in Tabella2, se non c'� si
deve interrompere e dire che manca...
Scusate ma mi sono perso in un bicchier d'acqua credo...
Grazie a chi mi risponder�.
cio
Ciao Cio
Vorrei capire meglio di cosa stiamo parlando. Una gestione di
magazzino ?
Mi sembra insolito un codice a barre che non corrisponda 1 a 1 con il
codice del prodotto.
Ho lavorato con i codici a barre e se vuoi una mano te le posso dare
ma cerca di farmi capire COSA vuoi ottenere e non COME lo vuoi
ottenere.
(Anni fa ho seguito per l'azienda dove lavoravo, ora sono in pensione,
un seminario
dove un ingegnere sistemista fece una gran bella lezione sul "come" e
sul "cosa".
Vedo che questo è un tipico esempio di mix tra come e cosa.)
Ciao
Alberto
ciao
>Vorrei capire meglio di cosa stiamo parlando. Una gestione di
>magazzino ?
Una piccolissima specie di gestione di magazzino, visto che si tratta di non
pi� di una 50ina di articoli
>Mi sembra insolito un codice a barre che non corrisponda 1 a 1 con il
>codice del prodotto.
Lo so ma � cos�, visto che si tratta di cartucce per le quali potrei avere
prodotti compatibili. La risolvo semplicemente associando alla stessa
stampante pi� Codici a barre
Avr� la Tabella2 che avr� ad esempio
Colonna1 Colonna2
CodiceProdotto1 1234567
CodiceProdotto1 5556783
...
CodiceProdotto2 3334567
CodiceProdotto2 #######
...
E cos� via.
Poi associo lo stesso codice prodotto dal lato 1 (Tabella1) al codice
prodotto al lato molti (Tabella2) con un join.
Voglio ottenere un campo testo in una maschera associata alla Tabella1 in
intestazione maschera che ad un evento predeterminato (es.: beforeupdate)
del campo di testo mi vada a cercare in Tabella2 se il testo inserito
corrisponde a quello nella Tabella2 Colonna2. Se s� mi deve andare a
prendere il record di Tabella1 corrispondente a quanto riportato in Colonna1
di Tabella2.
A questo punto se l'utente mi ha detto di incrementare il contatore, lo
incremento, altrimenti lo decremento.
Questo � il codice che ho fatto fin qui assicuati ad una TextBox che ho
chiamato CaricoScarico (questo � il come, immagino che prima o poi ci si
debba arrivare...) :
Private Sub CaricoScarico_BeforeUpdate(Cancel As Integer)
Dim Scarico As Boolean
'Chiedo all'utente di scegliere se caricare o scaricare un prodotto.
Scarico = InputBox("SCEGLIERE L'OPERAZIONE DA ESEGUIRE:
SCARICARE=1/CARICARE=0")
'Scarico un prodotto (l'utente ha risposto Yes)
If Scarico = True Then
Carico.Value = Carico.Value - 1
MsgBox ("Prodotto Scaricato correttamente.")
End If
'Carico un prodotto (l'utente ha risposto No)
If Scarico = False Then
Carico.Value = Carico.Value + 1
MsgBox ("Prodotto Caricato correttamente.")
End If
End Sub
Quello che non riesco a fare � prendere il dato della textbox e cercare il
valore corrispondente in Tabella2 Colonna2. Se c'� deve eseguire il codice e
decrementare il record corretto, altrimenti deve darmi errore.
Cos� com'� mi decrementa il record corrente di Tabella1 (il form dal quale
lo eseguo � associato a Tabella1), e ovviamente non va bene...
Grazie per i suggerimenti.
cio
uno a molti con i barcode � una cosa che non esiste...
non in senso assoluto, ma nel senso che "non ha senso"... per prodotti
pseudo-uguali avrai di certo categorie diverse tipo "originale",
"compatibe", "di marca", "di sottomarca" da gestire nel record come
caratteristica del prodotto...
Io devo demplicemente associare a un modello "Pippo" N prodotti che si
installano sempre sulla stessa macchina.
Poi che siano prodotti differenti non mi interessa, capisco che nella quasi
totalit� dei casi io devo fare una relazione uno-a-uno, ma nel caso
specifico non importa.
ok mettiamola cos�... come posso fare a cercare un testo in una colonna
specifica di una tabella e a metterlo in una variabile?
Grazie 1000
cio
DlookUp?
Seek?
Find?
Ciao, Carlo