MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Atualizar meu Site com Acess

    Compartilhe

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    [Resolvido]Atualizar meu Site com Acess

    Mensagem  fazerbem em 12/6/2018, 20:00

    Eu utilizo em excell uma macro que atualiza meus precos diretamente pelo Excel. Mas como troquei todo meu sistema pelo Access, estou tendo problemas com essa linha de comando.

    EnviarParaWebsite (stringCompleta)

    Segue abaixo todo meu codigo .

    Código:


    Private Sub Comando8_Click()
     
    Volte:
     If Me.Ref <> "" Then
     Dim linhaAtual As Integer
     linhaAtual = Me.Ref
     AtualizarDadosSite (linhaAtual)
     
     DoCmd.GoToRecord , , acNext 'Vai para o próximo registro

    GoTo Volte
     
    MsgBox ("Este Produto foi Atualizado com Sucesso !")

    End If

    End Sub

    Public Function AtualizarDadosSite(loopAtual As Integer)

    Dim sku, sale_price, price, QNT, active, Detalhes, passwd, stringCompleta As String
    sku = Me.Ref
    sale_price = Me.Oferta
    QNT = Me.estoqueGeral
    price = Me.Oferta
    active = ""
    If Me.RefOferta = "Oferta" Then
    active = "1"
    Else
    active = "0"
    End If
    passwd = "**************"
    stringCompleta = "sku=" & sku & "&sale_price=" & sale_price & "&price=" & price & "&qnt=" & QNT & "&active=" & active & "&passwd=" & passwd
    EnviarParaWebsite (stringCompleta)
    End Function


    Visto que no Acess a macro para na ultima Linha.
    Agradeço as ajudas.

    Andre

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar meu Site com Acess

    Mensagem  fazerbem em 14/6/2018, 00:30

    consegui resolver, aqui, faltava uma outra parte do codigo que eu nao copiei do meu Excel para o Acess, agora sim esta tudo ok. sendo assim deixo aqui a minha contribuicao pra quem quiser.

    Segue o codigo acima mais o complemento deste aqui

    Código:


    Public Function EnviarParaWebsite(stringCompleta As String)
       
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    URL = "http://www.MEU SITE/iosWoocommerceRestApi.php"
    objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    objHTTP.Send (stringCompleta)

    End Function


    Andre Luiz

      Data/hora atual: 18/8/2018, 03:28