Newsgroup: it.comp.appl.access
Titolo: Su EXIT

Ciao a Tutti 
 
questa routine sotto mi permette di inserire nelle varie caselle combinate 
alcuni valori se nella casella di testo " NDocumentoSpedizione" c'è un valore .
 
Private Sub NDocumentoSpedizione_Exit(Cancel As Integer)
 
    If Me.NDocumentoSpedizione.Value = True Then
 
    Else
        Me.TSP = "FI"
            Me.Corriere = "Express Mail Service CRONO"
                Me.TipoSpedizione = "EXPRESS - CRONO"
                    Me.ZonaSpedizione = "Europa + Extra Unione"
                         Me.TipoOrdine = "Ebay"
                            Me.Pagamento = "Paypal"
 
                            End If
------------------------------------------------------------------------------------------------------
Ora però dovrei far fare la stessa operazione ma cambiando alcuni dati :
Me.TSP = "CO"
            Me.Corriere = "Express Mail Service CRONO"
                Me.TipoSpedizione = "EXPRESS - CRONO"
                    Me.ZonaSpedizione = "Europa"
                         Me.TipoOrdine = "Ebay"
                            Me.Pagamento = "Paypal"
se  il valore della casella testo " NDocumentoSpedizione"  inizia con CB  (CB1248763514)
------------------------------------------------------------------------------------------------------
e fare un operazione simile  :
Me.TSP = "FI"
            Me.Corriere = "Express Mail Service CRONO"
                Me.TipoSpedizione = "EXPRESS - CRONO"
                    Me.ZonaSpedizione = "Extra Unione"
                         Me.TipoOrdine = "Ebay"
                            Me.Pagamento = "Paypal"
 
se la casella testo  " NDocumentoSpedizione"  inizia con EB   (EB5478934445)
 
spero di essere stato chiaro 
 
Grazie comunque 
Giuseppe

Io non farei mai un codice del genere. Ad ogni nuovo caso devi riscriverlo. Ti serve una tabella in più.

A parte quella insensata indentazione drl codice... e ripeto insensata... quello che fai mi lascia estremamente perplesso in termini di strutturare database.
Come sia possibile avere in una maschera le descrizioni di campi che invece dovrebbero essere chiavi esterne... quindi impossibili da editare... francamente non me lo spiego.
Secondo me di tabelle ne mancano molte altro che 1... oppure questo non è un db relazionale ma un tabellone stile Excel.
 
Con le premesse e senza una chiara presentazione della struttura telazionale concordo sull'ipotesi che sia da ristrutturare/rifare completamente.
 
@Alex


se ho ben capito
se c'è il numero spedizione hai tre casi: se inizia per Cb hai un caso
se inizia per Eb un altro
tutto il tresto il terzo caso
 
quindi
 
 
if not is null Me.NDocumentoSpedizione then	
		select case left(me.NDocumentoSpedizione,2)
 
			case "CB"
				Me.TSP = "CO"
				Me.Corriere = "Express Mail Service "
				Me.TipoSpedizione = "EXPRESS - CRONO"
				'...etc etc
 
			case "EB"
				 Me.TSP = "FI"
		                 Me.Corriere = "Express Mail "
				 Me.TipoSpedizione = "EXPRESS - CRONO"
				Me.ZonaSpedizione = "Extra Unione"
				'...etc etc
 
			case else
				 Me.TSP = "FI"
		                 Me.Corriere = "Express Mail "
				 Me.TipoSpedizione = "EXPRESS - CRONO"
			     Me.ZonaSpedizione = "Europa + Extra Unione"
				'...etc etc
 
			end select
end if
 
 
 
 

 end if
 
GRAZIE BFS
 
Fuzione perfettamente ed era quello che volevo  :
 
If Not IsNull(Me.NDocumentoSpedizione) Then
                Select Case Left(Me.NDocumentoSpedizione, 2)
 
                        Case "CB"
                                Me.TSP = "CO"
                                Me.Corriere = "Express Mail Service CRONO"
                                Me.TipoSpedizione = "EXPRESS - CRONO"
                                Me.ZonaSpedizione = "Europa Unione"
                                Me.TipoOrdine = "Ebay"
                                Me.Pagamento = "Paypal"
 
                        Case "EB"
                                 Me.TSP = "FI"
                                 Me.Corriere = "EMS - CRONO"
                                 Me.TipoSpedizione = "EXPRESS - CRONO"
                                 Me.ZonaSpedizione = "Europa Extra Unione"
                                 Me.TipoOrdine = "Ebay"
                                 Me.Pagamento = "Paypal"
 
                        Case Else
                                 Me.TSP = "RA"
                                 Me.Corriere = "Poste Italiane 1"
                                 Me.TipoSpedizione = "Raccomandata"
                                 Me.ZonaSpedizione = "Europa + Extra Unione"
                                 Me.TipoOrdine = "Ebay"
                                 Me.Pagamento = "Paypal"
                        End Select
Grazie ancora .
 
Volevo solo capire perché sono stato così malamente "maltrattato" da chi è intervenuto , il Database funziona perfettamente ha 24 tabelle tutte relazionate tra loro , svolge lo scopo per cui l'avevo pensato egregiamente.
Lo scopo per cui l'ho fatto è la possibilità di inserire in una form automaticamente con l'importazione di un file CSV i dati di spedizione giornaliere , Importo il file che riempie i campi ( 28) , poi io inserisco solo il peso e il numero DDT in base a queste varianti automaticamente viene inserito il prezzo della spedizione , con l'istruzione sopra in base alle lettere iniziali dei numeri spedizione CB EB RA vengono cambiati i valori di 
                                 TSP 
                                 Me.Corriere 
                                 Me.TipoSpedizione 
                                 Me.ZonaSpedizione 
                                 Me.TipoOrdine = 
                                 Me.Pagamento = 
questi valori sono presenti su rispettive tabelle e sono tutte relazionate
con la tabella principale dove vengono registrati tutti dati di una spedizione .
 
Sicuramente non sarà scritto a regola d'arte ma in fatto di risultato per me è eccellente 
Davvero non capisco 
 
Giuseppe  

 Giuseppe
 
Giuseppe, siamo maggiorenni tutti, non sei stato trattato male, ti sono state fatte notare in modo chiaro degli ERRORI tecnici, che nonostante "FUNZIONI" tutto sono evidenti...
Il NG serve per indicare a chi ha poche basi come si opera, se invece vuoi ricevere la soluzione che soddisfa il tuo modo "ERRATO", devi anche accettare che qualcuno ti faccia notare gli errori e magari invece di fare CALIMERO, fatti qualche domanda... può essere che qualche cosa di migliorativo tu lo veda.
 
Per il resto... porterai molta pazienza...
 
@Alex


ovvio che vedere robe tipo:
 
   If Me.NDocumentoSpedizione.Value = True Then
 
     Else
         Me.TSP = "FI"
 
fa rabbrividire :-)
 
 
avevo cmq intuito che la tua fonte dati è un tabulato che probabilmente 
scarichi da ebay o amazon
 
io ti ho dato la soluzione ma concordo con gli altri che in base al 
codice che hai postato il db non è correttamente normalizzato.
 
ciao
BFS
 
 
 
 
 
 
 


Aggiungo in modo da essere TECNICAMENTE chiaro:
L'indentazione del CODICE è una REGOLA che gli sviluppatori si danno per dare un senso gerarchico al codice quando lo si legge, ha un fine di CHIAREZZA INTERPRETATIVA a livello VISIVO.
Tutti i programmatori sanno che l'indentazione si interpreta in un determinato modo, l'inica variabile è il VALORE di INDENTAZIONE che le buone norme non scritte indicano in 4 spazi per ogni LIVELLO di rientro.
Quindi questa è una TECNICA di scrittura del codice, non è un metodo personale per ABBELLIRLO come l'albero di Natale, e come REGOLA se ti vuoi esporre in un NG e pubblicare un tuo codice forse se ti uniformassi allo standard sarebbe meglio, ma di certo se complica la lettura ti viene fatto notare l'insensatezza del lato grafico che toglie senso a quello tecnico.
 
La strutturazione di un Database è ancora più rigido, e si basa su RELAZIONI(chiavi ed Indici), quello che tu hai chiesto per come lo hai realizzato, ByPassa l'idea di RELAZIONE, ed anche la tua affermazione di avere 24 Tabelle, la puoi fare al BAR... in un ambito TECNICO non solo non significa nulla, ma dimostra che non cogli il FOCUS del discorso che ti è stato fatto notare.
Ne sono prova le assegnazioni dei VALORI Descrittivi a TextBox, la dove invece servirebbe un Riferimento di INDICE RELAZIONALE, e per LookUp(naturale nelle Query o Forzato con estrazioni da codice) si ricavano i Descrittivi degli indici.
 
Il tuo lavoro è fortemente affetto da errori concettuali gravi, ed il fatto che possa funzionare non è affatto indice che sia fatto correttamente(ANZI).
Nel NG le info date a te servono anche ad altri che leggono e di norma è bene ricevere indicazioni per migliorare, poi da li in avanti se tu non sei tecnicamente in grado di cogliere quanto suggerito è un problema diverso...
L'imnportante è tutelare chi legge e che non ha basi solide dal pensare sia un approccio corretto, anzi meglio sappia distinguere il giusto dallo sbagliato.
 
Dopo il pippone di mezza estate che mi diverte sempre..., in attesa dei soliti sospetti... saluto tutti anche i calimeri.
 
@Alex

 @Alex
 
 
 
Grazie Alex del super pippone , ma non ti "preoccupare" io non sono ne un programmatore ne uno sviluppatore e tanto meno lo vorrei essere sono troppo vecchio e il mio cervello ha raggiunto il limite massimo di capienza , è come un Hard disk solo che non lo posso sostituire, so che il mio database non è professionale ha tante storture,però ha una cosa molto importante che tu svaluti moltissimo,mi funziona, fa lo scopo prefissato in modo egregio .
 
Sono contento che BFS abbia capito il mio problema e mi abbia indicato come procedere senza tante pippe, perchè era quello che avevo rispettosamente chiesto.
Però è questo che mi piace, e anche se so che BFS era rabbrividito nel 
vedere quella specie di codice ( ma non doveva farlo notare ) .
 
Dimenticavo, 
puoi dire tutto meno che sono calimero perché non lo sono mai stato anzi
sono l'opposto
 
Ciao Giuseppe


non ti ho fatto il pippone perchè speravo in uno sconto sui ricambi 
della moto ahahahaha

 della moto ahahahaha
 
Bene , quando vuoi , basta chiedere , sempre disponibile
ciao

 Ciao Giuseppe
 
Saluti
@Alex