cambiar el orden de coger datos en un for each, del ultimo al primero

[Avellaneda]

Hola manzarinaa,

Prueba así (las líneas comentadas son de tu código y las debes eliminar)

Código:

'valores = " values('"
'campos = " columns("
For Each crtlControl In Me.Controls
    If TypeOf crtlControl Is TextBox Then
        If crtlControl.Tag = "Telefono" Or crtlControl.Tag = "idcli" Or crtlControl.Tag = "idpag" Then
    '       valores = Left(valores, Len(valores) - 2)
            valores = valores & "'" & crtlControl.Text & "', "
    '    Else
    '        valores = valores & crtlControl.Text & "', '"
    '    End If
            campos = campos & crtlControl.Tag & ", "
        End If
        'guardo la clave ajena
        If crtlControl.Tag = "idcli" Then
            claveAjena = CInt(crtlControl.Text)
        End If
    End If
Next crtlControl
'inserto la clave ajena
If tabla = "paginas" Then
  '  campos = campos & "codcli_pag, "
  '  valores = Left(valores, Len(valores) - 2)
  '  valores = valores & claveAjena & ", '"
    campos = campos & "codcli_pag"
    valores = valores & "'" & claveAjena & "'"
End If
'valores = Left(valores, Len(valores) - 3)
'valores = valores & ")"
'campos = Left(campos, Len(campos) - 2)
'campos = campos & ")"
'sentencia = "Insert Into (" & tabla & ") " & valores & campos
sentencia = "Insert Into " & tabla & " (" & campos & ")" & " Values (" & valores & ")"

MsgBox sentencia