Newsgroup: it.comp.appl.access
Titolo: Creare stringa di testo partendo da un dato valore (alfanumenrico)

Allora,
spero di essere sufficentemente chiaro, anche se oggi non è una delle
giornate migliori!
Ho una form che settati gli opportuni parametri, tramite la pressione di un
pulsante mi valorizza una txt box con
una stringa di testo (nel mio caso di 6 caratteri). (Fino ad ora niente
viene memorizzato in tabella)
Ho poi una tabella ocn due campi: alfanumerico (T1) e conversione (T2) dove
in alfanumerico ho tutte le lettere dell'alfabeto e i numeri da 0 a 9 e in
conversione ho per ogni valore una stringa alfanumerica di due caratteri.
Cosa vorrei ottenere:
premendo un pulsante vorrei che via codice la stringa di sei caratteri fosse
scomposta e ricollocata in una nuova txtbox trascodificata.
esempio: testo abcdef
Tabella codici
alfanumerico        conversione
a                            xy
b                            fg
c                            9u
d                            td
e                            3r
f                             c7
valore da scrivere nel txtbox nuovo:  xyfg9utd3rc7
Come posso fare per ottenere ciò ... non mi raccapezzo per niente oggi.
Grazie a tutti per le eventuali risposte,
--
sm

 oggi. Grazie a tutti per le eventuali risposte,
Dim stringanumeri As String
Dim stringalettere As String
Dim cifra As string, i As Integer
stringanumeri = TuatxtboxPartenza
    For i = 1 To Len(stringanumeri)
        If Mid(stringanumeri, i, 1) = "," Then
            stringalettere = stringalettere & Mid(stringanumeri, i, 1)
        Else
            cifra = Val(Mid(stringanumeri, i, 1))
        stringalettere = stringalettere & DLookup("conversione",
"Tuatabelladiconversione", "alfanumerico='" & cifra & "'")
        End If
    Next
TuaTextboxDiarrivo = stringalettere
-- 
_ _
Ciao
MAssimiliano Amendola
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

[cut]
txtOrigine: MCYNQJ
txtDestinazione ottenuta: 6S6S6S6S6S6S
l'errore è che la procedura usa sempre la stringa 6S associata al primo
valore della tabella T_FlowPWD_Conversioni contenente i valori e le loro
conversioni.
Intanto grazie ... come posso raggirare l'errore?
--
sm

MA ha detto: in data 12/05/2005 13.23:

non ho ben capito come mai dividi il codice.. se è tutto in un'unica 
tabella.. io farei così
Dim stringanumeri As String
  Dim stringalettere As String
  Dim cifra As string, i As Integer
  stringanumeri = TuatxtboxPartenza
  stringalettere = "" 'inizializzo
      For i = 1 To Len(stringanumeri)
         if not isnumeric(mid(stringanumeri, i, 1)) then
		stringalettere = stringalettere & DLookup("conversione", 
"Tuatabelladiconversione", "alfanumerico='" & mid(stringanumeri, i, 1)& "'")
	else
		stringalettere = stringalettere & DLookup("conversione",
"Tuatabelladiconversione", "alfanumerico=" & mid(stringanumeri, i, 1)& "")
          End If
      Next i
  TuaTextboxDiarrivo = stringalettere
ho forse interpretato male le richieste?
ciao ;)
Nick

[CUT]
Problema risolto!!!
Tolta la Val siccome gestisco solo Testo per ora.
Ora pongo il quesito inverso ...
inserendo la stringa ottenuta devo visualizzare un pulsante cmd_btnX solo se
ricodificando i dati ottengo la txtOrigine ... ;o
)
Thank's in advance!
--
sm

[cut]
fatto!
scusate ... carburo lentamente oggi ... ma ora sono nuovamente operativo!
Grazie MA

 [cut]

Ma ti vuoi iscrivere anche tu a "Facce da..." ?
DAi, modifica il tuo profilo e digita in quel che di nuovo č richiesto.
;-)
www.accessgroup.it
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

[cut]
fatto ... successivamente ti manderò anche una foto ...
un pò di narcisismo non guasta mai!!!
Ciao!
--
sm

strano...mavero ha scritto:

Non mi mandare quella del matrimonio è! :-D
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno



Ah allora ho capito perchè ingrasso sempre.
E' Access che molto calorico.
