Discussion :

[dellalyoussef]

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.



Merci de votre support.

Salutations

dellal

[Zekraoui_Jakani]

le message d'erreur est très clair: vous avez un "loop" sans le "Do", ou "Do While ...."

[dellalyoussef]

Bonjour,

J'ai essayer de modifier le code, mais maintenant le code ce bloque dans l'instruction If:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Sub AlimenterTable()
  Dim oRst As Recordset
  Dim N°_denvoi As String
  Dim Goods_total As String
  Dim Shipment_cost As String
  Dim Insurance As String
  Dim Cost_Total As String
  Dim Gross_Weight As String
  Dim Net_weight As String
  Dim Number_of_parcels As String
  Dim sql As String
  Set oRst = CurrentDb.OpenRecordset("Table1")
  oRst.MoveFirst
  Do While Not oRst.EOF
   If oRst(1) Like "Goods*" Then
        Goods_total = oRst(1)
        oRst.MoveNext
    End If
    Shipment_cost = oRst(1)
    oRst.MoveNext
    Insurance = oRst(1)
    oRst.MoveNext
    Cost_Total = oRst(1)
    oRst.MoveNext
    Gross_Weight = oRst(1)
    oRst.MoveNext
    Net_weight = oRst(1)
    oRst.MoveNext
    Number_of_parcels = oRst(1)
    oRst.MoveNext
    N°_denvoi = oRst(1)
    sql = "INSERT INTO InvTeToChk ( Goods_total, Shipment_cost, Insurance,Cost_Total,Gross_Weight,Net_weight,Number_of_parcels,N°_d'envoi ) " _
            & "SELECT """ & Goods_total & """ AS Expr1 (Like ""Goods total*""), " _
            & """" & Shipment_cost & """ AS Expr2 (Like ""Shipment cost*""), " _
            & """" & Insurance & """ AS Expr3 (Like ""Insurance*""), " _
            & """" & Cost_Total & """ AS Expr4 (Like ""Total*""), " _
            & """" & Gross_Weight & """ AS Expr5 (Like ""Gross Weight*""), " _
            & """" & Net_weight & """ AS Expr6 (Like ""Net weight*"")), " _
            & """" & Number_of_parcels & """ AS Expr7 (Like ""Number of parcels*"")," _
            & """" & N°_denvoi & """ AS Expr8 (Like ""N° d'envoi*"");"
    DoCmd.SetWarnings False
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True
    oRst.MoveNext
Loop
sortie:
  oRst.Close
  Set oRst = Nothing
End Sub

[dellalyoussef]

Bonjour,

J'ai essayer de modifier le code, mais maintenant le code ce bloque dans l'instruction If:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Sub AlimenterTable()
  Dim oRst As Recordset
  Dim N°_denvoi As String
  Dim Goods_total As String
  Dim Shipment_cost As String
  Dim Insurance As String
  Dim Cost_Total As String
  Dim Gross_Weight As String
  Dim Net_weight As String
  Dim Number_of_parcels As String
  Dim sql As String
  Set oRst = CurrentDb.OpenRecordset("Table1")
  oRst.MoveFirst
  Do While Not oRst.EOF
   If oRst(1) Like "Goods*" Then
        Goods_total = oRst(1)
        oRst.MoveNext
    End If
    Shipment_cost = oRst(1)
    oRst.MoveNext
    Insurance = oRst(1)
    oRst.MoveNext
    Cost_Total = oRst(1)
    oRst.MoveNext
    Gross_Weight = oRst(1)
    oRst.MoveNext
    Net_weight = oRst(1)
    oRst.MoveNext
    Number_of_parcels = oRst(1)
    oRst.MoveNext
    N°_denvoi = oRst(1)
    sql = "INSERT INTO InvTeToChk ( Goods_total, Shipment_cost, Insurance,Cost_Total,Gross_Weight,Net_weight,Number_of_parcels,N°_d'envoi ) " _
            & "SELECT """ & Goods_total & """ AS Expr1 (Like ""Goods total*""), " _
            & """" & Shipment_cost & """ AS Expr2 (Like ""Shipment cost*""), " _
            & """" & Insurance & """ AS Expr3 (Like ""Insurance*""), " _
            & """" & Cost_Total & """ AS Expr4 (Like ""Total*""), " _
            & """" & Gross_Weight & """ AS Expr5 (Like ""Gross Weight*""), " _
            & """" & Net_weight & """ AS Expr6 (Like ""Net weight*"")), " _
            & """" & Number_of_parcels & """ AS Expr7 (Like ""Number of parcels*"")," _
            & """" & N°_denvoi & """ AS Expr8 (Like ""N° d'envoi*"");"
    DoCmd.SetWarnings False
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True
    oRst.MoveNext
Loop
sortie:
  oRst.Close
  Set oRst = Nothing
End Sub

[marot_r]

Bonjour.

Qu'est supposé faire oRst(1) ?

Si tu souhaites avoir accès à un des champs du recordset il faut mettre quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRst![NomTonChamp]

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRst.fields("NomTonChamp")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRst.fields(1)

Note dans ce cas "NonTomChamp" ou 1 peuvent être remplacé par une variable qui contient le nom du champ ou le numéro d'index.
La solution avec le numéro d'index n'est recommandée que si tu traites tous champs car sinon, tu pourrais avoir une mauvaise surprise si quelqu'un décidait de déplacer le champ.

A+