Boa noite!!
Estou quebrando a cabeça tentando achar o erro neste Update, alguém sabe porque esse erro acorre?
Base de dados Mysql, Código da kartoffel - Site - Usando Access
Menssagem de Erro
Este é o Código VBA.
Estou quebrando a cabeça tentando achar o erro neste Update, alguém sabe porque esse erro acorre?
Base de dados Mysql, Código da kartoffel - Site - Usando Access
Menssagem de Erro
Este é o Código VBA.
- Código:
Sub Update_MySQL_SubEncaixe()
Call Conexao_Open("Select * From tblSubEncaixe Where Codigo_ID=" & Me.Codigo_ID) 'Abre a conexão para a tabela informada
rs("DataEncaixe") = Forms![frmEncaixe]![frmSubEncaixe].Form![DataEncaixe].Value
rs("QtdePecasEncaixe") = Forms![frmEncaixe]![frmSubEncaixe].Form![QtdePecasEncaixe].Value
rs("Parte") = Forms![frmEncaixe]![frmSubEncaixe].Form![Parte].Value
rs("QuantidadeFolha") = Forms![frmEncaixe]![frmSubEncaixe].Form![QuantidadeFolha].Value
rs("Tubolar") = IIf(Forms![frmEncaixe]![frmSubEncaixe].Form![Tubolar] = False, 0, 1)
rs("Kilo") = IIf(Forms![frmEncaixe]![frmSubEncaixe].Form![kilo].Value = False, 0, 1)
rs("CodMalha") = Forms![frmEncaixe]![frmSubEncaixe].Form![codmalha].Value
rs("Malha") = Forms![frmEncaixe]![frmSubEncaixe].Form![Malha].Value
rs("Largura") = (Forms![frmEncaixe]![frmSubEncaixe].Form![Largura].Value) / 100
rs("Gramatura") = Forms![frmEncaixe]![frmSubEncaixe].Form![Gramatura].Value
rs("ComprimentoEncaixe") = IIf(Forms![frmEncaixe]![frmSubEncaixe].Form![ComprimentoEncaixe] = Null, 1, 1)
rs("TotalConsumo") = Forms![frmEncaixe]![frmSubEncaixe].Form![TotalConsumo].Value
rs("ConsumoUnitario") = IIf(Forms![frmEncaixe]![frmSubEncaixe].Form![ConsumoUnitario].Value = Null, 1, 1)
rs("GramaturaDaFicha") = Forms![frmEncaixe]![frmSubEncaixe].Form![GramaturaDaFicha].Value
''End If
rs.Update '(aqui ocorre o erro)
rs.Close
Cn.Close
Set rs = Nothing 'apagando o local que foi criado
End Sub