MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Atualizar meu Site com Acess

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar meu Site com Acess Empty [Resolvido]Atualizar meu Site com Acess

    Mensagem  fazerbem 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
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar meu Site com Acess Empty Re: [Resolvido]Atualizar meu Site com Acess

    Mensagem  fazerbem 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: 29/3/2024, 07:02