minipod
Messages postés60Date d'inscriptionmardi 18 juin 2002StatutMembreDernière intervention 8 mars 2003
-
16 oct. 2002 à 17:23
minipod
Messages postés60Date d'inscriptionmardi 18 juin 2002StatutMembreDernière intervention 8 mars 2003
-
16 oct. 2002 à 19:17
Mon Replace ne change rien dans ma base !! Il me donne la chaine de caractère telle qu'elle était sans opérer de modif ! Voilà mon code ! Si quelqu'un veux bien m'aider !! Ca serait super sympa ! Merci.
For i = 0 To dicoTABLE.RecordCount
If Not Len(dicoTABLE!Mot_Kana) <= 0 Then
strMot = dicoTABLE!Mot_Kana
For j = 0 To syllabairesTABLE.RecordCount
If Not Len(syllabairesTABLE!hiragana) <= 0 Then
caractere_av = syllabairesTABLE!hiragana
caractere_ap = syllabairesTABLE!romaji
strResult = Replace(strMot, caractere_av, caractere_ap, , , vbTextCompare)
End If
Next
For j = 0 To syllabairesTABLE.RecordCount
If Not Len(syllabairesTABLE!katakana) <= 0 Then
caractere_av = syllabairesTABLE!katakana
caractere_ap = syllabairesTABLE!romaji
strResult = Replace(strMot, caractere_av, caractere_ap, , , vbTextCompare)
End If
Next