Sintaxe

[danizinha 0]

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!!!d_dany@ig.com.br

[Veber 0]

no botao GRAVARif len(textbox) = "" then << isso aqui devia ser =0 pq LEN retorna o tamanho do texto digitadopara apagar o conteudo da caixa de textoao inves de colocar textbox.text = Emptycoloque TextBox = ""Flows