Bonjour,

Jai besoin de résiliaire une module pour faire des transférer des donner a partir d'une table horizontale vers une autre vertical.

J'ai essayer de développé un module déjà communiqué dans ce site, mais le module ce bloque dans la partie Loop.

J'ai attacher la MBD test, est ce que j'ai peut avoir une support:

Pour faire le Transfer des donner juste ce qui ont dans ma requête.

De éliminer les alphabets, et de remplacer la point par le vide est garder juste les numéros correcte.

Public Sub AlimenterTable()
Dim oRst As Recordset
Dim sN°_denvoi As String
Dim sGoods_total As String
Dim sShipment_cost As String
Dim sInsurance As String
Dim sCost_Total As String
Dim sGross_Weight As String
Dim sNet_weight As String
Dim sNumber_of_parcels As String
Dim sSql As String
Set oRst = CurrentDb.OpenRecordset("Table1")
oRst.MoveFirst
Do While Not oRst.EOF
If oRst(1) Like "Goods total*" Then
sGoods_total = oRst(1)
oRst.MoveNext
End If
sShipment_cost = oRst(1)
oRst.MoveNext
sInsurance = oRst(1)
oRst.MoveNext
sCost_Total = oRst(1)
oRst.MoveNext
sGross_Weight = oRst(1)
oRst.MoveNext
sNet_weight = oRst(1)
oRst.MoveNext
sNumber_of_parcels = oRst(1)
oRst.MoveNext
sN°_denvoi = oRst(1)
sSql = "INSERT INTO InvTeToChk ( Goods_total, Shipment_cost, Insurance,Cost_Total,Gross_Weight,Net_weight,Number_of_parcels,N°_d'envoi ) " _
& "SELECT """ & sGoods_total & """ AS Expr1 (Like ""Goods total*""), " _
& """" & sShipment_cost & """ AS Expr2 (Like ""Shipment cost*""), " _
& """" & sInsurance & """ AS Expr3 (Like ""Insurance*""), " _
& """" & sCost_Total & """ AS Expr4 (Like ""Total*""), " _
& """" & sGross_Weight & """ AS Expr5 (Like ""Gross Weight*""), " _
& """" & sNet_weight & """ AS Expr6 (Like ""Net weight*"")), " _
& """" & sNumber_of_parcels & """ AS Expr7 (Like ""Number of parcels*"")," _
& """" & sN°_denvoi & """ AS Expr8 (Like ""N° d'envoi*"");"
DoCmd.SetWarnings False
DoCmd.RunSQL sSql
DoCmd.SetWarnings True
oRst.MoveNext
Loop
sortie:
oRst.Close
Set oRst = Nothing
End Sub

Afficher la suite 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.