[Resolvido]Atualizar meu Site com Acess

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

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