Newsgroup: it.comp.appl.access
Titolo: calcolo automatico dati in funzione del CAP

Salve ragazzi,
avrei un problemino riguardante il mio programma .
Cerco di esporvi il problema.
Allora
Maschera Ordini da cui carico tutti i miei ordini, ogni aienda ha un
CAP 
p.es
. Treviso 31033 fa parte della zona 31 quindi primi 2 numeri
del CAP mi danno la zona.
Ora in base a queste zone io dovrei applicare una tariffazione.  finoad
ora il programma funziona benissimo infatti ho suddiviso in base al cap
le varie zone :
zona 1, zona 2
poi ho impostato un codice
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Volume <= 0.99 Then
 Select Case Me.Zona
      Case 1
                Me.Trasporto = 55
      Case 2
                Me.Trasporto = 70
      Case 3
                Me.Trasporto = 80
      Case 4
                Me.Trasporto = 110
      Case 5
                Me.Trasporto = 182
      Case 6
                Me.Trasporto = 175
      Case 7
                Me.Trasporto = 197
      Case 8
                Me.Trasporto.Value = 0
      Case Else
                Me.Trasporto = 0
      End Select
 ElseIf Me.Volume > 0.99 Then
 Select Case Me.Zona
  Case 1
                Me.Trasporto = 25
  Case 2
                Me.Trasporto = 45
  Case 3
                Me.Trasporto = 75
  Case 4
                Me.Trasporto = 100
  Case 5
                Me.Trasporto = 135
  Case 6
                Me.Trasporto = 152
  Case 7
                Me.Trasporto = 140
  Case 8
                Me.Trasporto.Value = 0
  Case Else
                Me.Trasporto = 0
    End Select
     End If
    End Sub
funziona tutto perfettamente .
Il mio capo ha deciso di cambiare questo modo di tariffazione,
adessodovrei per ogni cap avere la sua particolare tariffa per esempio:
CAP            COD_REG          ZONA         1 MC3(METRI CUBI)
OLTRE 1 METRO CUBO
31033                31                    1                10
                        20
35010                35                     1                15
                         25
NON FA' + UNA SUDDIVISIONE IN BASE ALLA ZONA MA IN FUNZIONE AL CAP.
DOVREI IN DEFINITIVA IN BASE AL CAP ASSEGNARE U DIVERSO COSTO DI
TRASPORTO.
CAP                PROVINCIA                1MC3
OLTRE 1 METRO CUBO
31033                       TV                         10
            10*MC3
SOLUZIONI
?

 ha scritto nel messaggio 
news:1162281149.4...@h48g2000cwc.googlegroups.com...

Secondo me ti conviene creare una o più tabelle relazionate dove metterai tutti i tuoi CAP, tutti i 
tuoi metri cubi e tutti i tuoi costi. Poi una funzione VBA in modulo standard (ad esempio) che 
accetti in ingresso CAP e metricubi e che ti restituisca il costo. Secondo me è la via più sicura, 
più di successo e meno dolorosa.
Michele 

Grazie michele ,
ma nel caso in cui adottassi la tua scelta quale dovrebbere essere la
funzione che mi permetta di otterenere in base al cap il costo del
trasporto.
come dovrei crearmi queste due tabelle e metterle in relazione , non ho
capito!!!!
puoi aiutarmi
Grazie


 ha scritto nel messaggio 
news:1162462444....@k70g2000cwa.googlegroups.com...
Grazie michele ,
ma nel caso in cui adottassi la tua scelta quale dovrebbere essere la
funzione che mi permetta di otterenere in base al cap il costo del
trasporto.
come dovrei crearmi queste due tabelle e metterle in relazione , non ho
capito!!!!
puoi aiutarmi
Grazie
Dicevo una o più tabelle, ma se hai dei costi molto diversificati (nel senso che le occasioni in cui 
un prezzo valga per molti CAP sono pochissime) puoi benissimo utilizzare una tabella sola. Se invece 
hai dei costi standardizzati dovresti metterli in una tabella con relativo IDcosto, poi in un'altra 
tabella metterai i tuoi CAP associandoci l'IDcosto. Le due tabelle andranno messe in relazione uno a 
molti nel campo IDcosto.
Potresti poi impostarti una query per risalire a tutte le informazioni che hai bisogno. Se hai già 
utilizzato VBA per fare quanto mi dicevi con il Select Case, tutto questo dovrebbe essere ormai 
risultarti una bazzeccola.
Saluti
Michele 

Sorry, ritiro "essere ormai"
Michele