concatené un champsRésolu

Question

Bonjour à tous
je suis une débutante en programmation VB6.0 et j'ai un probleme que je n'arrive pas à résoudre toute seule !
je fais une importation d'un fichier excel vers une table access, et ça marche. reste un probleme c'est qu'il y a des champs vide dans le classeur et je veux prendre une partie du champ precedent pour la coller sur le champs vide (je ne sais pas si c'est compréhensible) et c'est là ou je me suis perdu !

voila la partie du code qui fais ce que j'ai raconter en haut :

If ClasseurXLS.cells(i, 4) = "" Then     ' Libellé 2
var1 = ClasseurXLS.cells(i, 3) 'Libellé 1



trouve = False
J = Len(var1)
        Do While Not trouve        If Mid(var1, J - 1, 1) " " Then trouve True
        'MsgBox Mid(var1, J - 1, 1)
        J = J - 1
        Loop
var2 = Mid(var1, 1, J - 1)
Rec("Lib1") = Mid(var1, Len(var1) - 1, J - 1)
Rec("Lib2") = var2



Else
Rec("Lib2") = ClasseurXLS.cells(i, 4)
End If
l'erreur que j'ai c'est qu'il inverse les cellules, et ne supprime pas la partie que j'ai prise du 1er champs donc j'ai un double mot !
par exemple :
champs 1 : recu chq
je retrouve 
champs 1 : chq
champs 2 : eçu
merci d'avance pour votre interet 
Amel

sangdorme · Accepted Answer

tu devrais essayer le fonction split 

Sangdorme

amel3011 · Answer

ok , je vais le faire 


merci

Concatené un champs

2 réponses

Votre réponse

Discussions similaires