[Resolvido]Execução de Script

Boa tarde Pessoal.

Em execução do Script de um botão, em um formulario ele me pede o nome de uma macro, só que eu não quero rodar macro somente o Script.

Como faço para cancelar a magro.?

Ele pede nome de macro e o código não invoca macro?

Boa tarde Alexandre, e obrigado pela atenção.
è isto mesmo, ele pede o nome da macro e o código não roda e nem invoca a macro.

É muito estranho. Se não invoca a macro, como ele se lembra da macro???

Bom dia Alexandre..

Você saberia se tem como cancelar este pedido de Macro? Imagino que seja por causa dos botões que usei, já configurar automaticamente só me pedindo o nome e o objeto que ele ira executar e o nome. Tem algo a ver?

Pode nos mostrar por print screen o que está a acontecer ?

Pode nos mostrar qual codigo está no botão, ou se não está em codigo mostre-nos o que está lá.

Mestre João Paulo.

Me perdoe a demora, mas quando temos que viajar a serviços você sabe como é, não para.
Bem vamos lá.
O código do botão eu apaguei tewrei que fazer outro, assim que eu fazer eu coloco o post novamente.

Bom dia Mestre João Paulo..

O código abaixo, não fui eu que criei, quando a gente cria o botão este código é criado automaticamente.

Private Sub CmdInclusãoHistoricoLoja_Click()
On Error GoTo Err_CmdInclusãoHistoricoLoja_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Inclusão de equipamentos"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CmdInclusãoHistoricoLoja_Click:
Exit Sub

Err_CmdInclusãoHistoricoLoja_Click:
MsgBox Err.Description
Resume Exit_CmdInclusãoHistoricoLoja_Click

End Sub

Você falou em Script, confundiu-nos a todos ....

Agora falando mais a serio, qual o verdadeiro problema ?

Ok vamos la.
Me perdoem não foi minha intenção confundir vocês.
Na primeira mensagem eu postei que quiria logar este sistema de controle de patrimonio em um banco de dados MySql, só que quando eu tentava rodar o Script de conexão o sistema me pedia um nome de Macro. O mestre João Paulo me pediu o código do botão de acesso ao formulario de cadastros, que é este ultimo post meu.
E agora segue em anexo o Script ou modulo de codigos que eu fiz para a conexão ao banco de dados Mysql onde esta me pedindo a Macro. Espero que vocês tenham me entendido, e peço desculpas novamente.

Samuel, eu nunca trabalhei com esse tipo de conexão como você tem no documento.

Se quiser testar esta, fica aqui:

Cole num modulo e salve, sem alterar nada:


Option Explicit

'Requer a marcação da Referencia Microsoft ActiveX Data Objects x.x Library

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String

Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, conn As ADODB.Connection, rs As ADODB.Recordset)
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
conn.Open
End Function


Cole no evento ao carregar do seu formulario:



Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Dim ssql As String

Call connectMysql("root", "rfgsdn", "10.39.10.114", "patrimonio_sql", conn, rs)

ssql = "SELECT * FROM cadastre_patrimonio"
rs.Open ssql, conn

Set Me.Recordset = rs

Me.Codigo.ControlSource = "Codigo"
Me.Regional.ControlSource = "Regional"
'E os outros campos que constam na tabela.
End Sub


Tome atenção aos nomes corretos da tabela no MySQL, se é cadastre_patrimonio, ou é cadastro_patrimonio.

Bom dia Mestre João Paulo..
Esta tudo do jeito que você pediu, mas esta dando este erro de compilação como segue em anexo.

Isso ae é nome do seu campo que não foi encontrado.

Veja com atenção se esse Me.Regional existe no seu formulario.

Boa tarde mestre João Paulo..

P|elo que eu estou entendendo aqui, me parece que o front-end esta buscando as tabelas back-end do access ainda não esta conectando ao banco de dados MySQL ains.
Não estou entendendo esta, esta tudo certo no Script.

Faça assim


Precisa baixar o banco de dados MYSQL

mysql-workbench-gpl-5.2.42-win32





Precisa baixar o conector ODBC

mysql-connector-odbc-5.1.11-win32





Precisa baixar o SERVIDOR

mysql-5.5.27-win32



Apos isso



Entre na fonte de dados ODBC



Procure pelo se banco





e faça a vinculação das tabelas

Se vc tiver duvidas procure por vinculação ODBC MYSQL



Dessa forma voce vincula as tabelas via ODBC e trabalha com suas tabelas vinculadas como se fosse as do access.


Se não estou enganado os códigos acima funcionam para aplicação sem vinculo algum.



Outra hipotese é que ele não esta achando as tabelas ou o propio banco do MYSQL.

aT+

Resolvido