Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera!
Estou tentando conectar o banco de dados via código e está aparecendo um erro na sintaxe .text. Tenho muita urgencia em resiolver esse erro.
Será que alguém poderia me ajudar????
Estou enviando o código.
Public Sub ExibirDados()
FrmProdutos.TxtCodObjeto = " "
FrmProdutos.TxtCodReferencia = " "
FrmProdutos.TxtProduto = " "
FrmProdutos.TxtMaterial = " "
On Error Resume Next
FrmProdutos.TxtCodObjeto = TObjeto!Cod_Objeto
FrmProdutos.TxtCodReferencia = TObjeto!Cod_Referencia
FrmProdutos.TxtProduto = TObjeto!Nome_Objeto
FrmProdutos.TxtMaterial = TObjeto!Material
On Error GoTo 0
End Sub
Public Sub Abrir()
Dim AFolha As Workspace
Dim BFolha As Database
Dim TbObjeto As Recordset, TObjeto As Recordset
Set AFolha = DBEngine.Workspaces(0)
On Error GoTo ErroAbrir
AFolha.BeginTrans
Set BFolha =
AFolha.OpenDatabase("C:\versatil_teste\sis_versatil\Versatil2.mdb", False)
Set TObjeto = BFolha.OpenRecordset("TObjeto", dbOpenDynaset)
TObjeto.Sort = "Codigo"
Set TbObjeto = TObjeto.OpenRecordset()
AFolha.CommitTrans
On Error GoTo 0
Exit Sub
ErroAbrir:
Dim Aviso As Integer
Aviso = MsgBox("Erro ao Acessar os Dados!", vbCritical, "Aviso!!")
If Aviso = vbOK Then
AFolha.Rollback
On Error GoTo 0
Exit Sub
End If
Resume
End Sub
Private Sub BtnAlterar_Click()
On Error GoTo ErroAlterar
AFolha.BeginTrans
TObjeto.Edit
If Len(TxtCodObjeto.Text) <> 0 Then
TObjeto!Cod_Objeto = UCase$(TxtCodObjeto.Text)
If Len(TxtCodReferencia.Text) <> 0 Then
TObjeto!Cod_Referencia = UCase$(TxtCodReferencia.Text)
If Len(TxtProduto.Text) <> 0 Then
TObjeto!Prduto = UCase$(TxtProduto.Text)
If Len(TxtMaterial.Text) <> 0 Then
TObjeto!Material = UCase$(TxtMaterial.Text)
TObjeto.Update
AFolha.ComnitTrans
On Error GoTo 0
ExibirDados
Unload Me
Exit Sub
ErroAlterar:
Dim Aviso As Integer
Aviso = MsgBox("Erro ao acessar os dados!", vbInformation, "Aviso!")
If Aviso = vbCancel Then
AFolha.Rollback
ExibirDados
On Error GoTo 0
Exit Sub
End If
Resume
End Sub
Private Sub BtnExcluir_Click()
Unload Me
End Sub
Private Sub BtnGravar_Click()
If Len(TxtCodObjeto.Text) = "" Then
MsgBox "È necessário preencher o Código do Produto!", vbInformation,
"Aviso!"
Txt_Cod_Objeto.Set.Focus
Exit Sub
End If
If Len(TxtCodReferencia.Text) = " " Then
MsgBox "È necessário preencher o Código da Referência!", vbInformation,
"Aviso"
Txt_Cod_Referencia.SetFocus
Exit Sub
End If
If Len(TxtProduto.Text) = " " Then
MsgBox "È necessário preencher o Produto!", vbInformation, "Aviso"
TxtProduto.SetFocus
Exit Sub
End If
On Error GoTo ErroNovo
AFolha.BeginTrans
TObjeto.AddNew
If Len(TxtCodObjeto.Text) <> 0 Then
TObjeto!Cod_Objeto = UCase$(TxtCodObjeto.Text)
If Len(TxtCodReferencia.Text) <> 0 Then
TObjeto!Cod_Referencia = UCase$(TxtCodReferencia.Text)
If Len(TxtProduto.Text) <> 0 Then
TObjeto!Nome_Objeto = UCase$(TxtProduto.Text)
TObjeto.Update
AFolha.CommitTrans
ExibirDados
On Error GoTo 0
TxtCodObjeto.Text = Empty
TxtCodReferencia.Text = Empty
TxtProduto.Text = Empty
TxtCodObjeto.SetFocus
Set TbObjeto = TObjeto.OpenRecordset()
Exit Sub
ErroNovo:
Dim Aviso As Integer
Aviso = MsgBox("Erro ao acessar os dados!", vbInformation, "Aviso")
If Aviso = vbCancel Then
AFolha.Rollback
On Error GoTo 0
Exit Sub
End If
Resume
End Sub
Private Sub Btnlimpar_Click()
If TObjeto.EOF = True And TObjeto.BOF = True Then
MsgBox "Atabela já está vazia!", vbInformation, "Alerta!"
Exit Sub
End If
Dim Excluir As String
Excluir = MsgBox("Deseja excluir este Registro1", vbQuestion + vbOKCancel,
"Aviso!")
If Excluir = vbOK Then
AFolha.BeginTrans
TObjeto.Delete
TObjeto.MoveNext
ExibirDados
AFolha.CommitTrans
Else
Exit Sub
End If
End Sub
Desde já obrigada!!
Carregando comentários...
