Blockage de Module

Signaler
-
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