Estou tentando "gravar" os dados em uma tabela e da a seguinte mensagem:
"Não pode Atualizar: Banco de dados ou objeto é somente de leitura"
Alguem pode me dizer oq é isso?
Utilizei os mesmo procedimentos em uma outra Tabela com um outro form e deu certo, pq desta vez não deu?
Abaixo segue parte do codigo:
Private Sub Form_Load()
Set WS = DBEngine.Workspaces(0)
Set DB = WS.OpenDatabase("
c:gsoGSO1") ', False, False)
Set TB = DB.OpenRecordset("geral", dbOpenDynaset)
If TB.RecordCount = 0 Then Call Destrava
TB.AddNew
cmdAdd.Visible = False
cmdUpdate.Visible = True
Else
Call Mostrar_Dados
End If
End Sub
Private Sub cmdAdd_Click()
On Error GoTo Cmdadd_err
cmdAdd.Visible = False
cmdUpdate.Visible = True
Call Destrava
Call Limpar_Tela
TB.AddNew
Cmdadd_err:
MsgBox Err.Description
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
If txtvds.Text = "" Then
MsgBox "Campo veiculo: Preenchimento obrigatório!"
Else
cmdUpdate.Visible = False
cmdAdd.Visible = True
Call Gravar_Dados
End If
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub Gravar_Dados()
TB("veiculo") = Veiculo.Text 'movimenta o txtcodigo.text para o campo codpro na tabela
TB("pin") = PIN.Text 'movimenta o txtnome.text para o campo nompro na tabela
TB("Tipo_do_Veiculo") = TVeiculo.Text 'movimenta o txtqtde.text para o campo qtdpro na tabela
TB("Documento") = TDocumento.Text 'movimenta o txtpreco.text para o campo prepro na tabela
TB("Numero_do_Documento") = txtNumero_doc.Text
TB("Programa") = Programa.Text
TB("Numero_VDS") = txtVDS.Text
TB("Posicao") = txtPosicao.Text
TB("Responsavel") = Responsavel.Text
TB("Data_Entrada") = DEntrada.Text
TB("Data_Saida") = DSaida.Text
TB("Destino") = txtDestino.Text
TB("Status") = Status.Text
TB("Cor") = Cor.Text
TB("Codigo_cor") = Combo1.Text
TB("Nota_fiscal") = txtNF.Text
TB("Ramal") = Ramal.Text
TB("Cod_Radio") = txtPIN.Text
TB("Responsavel_Programa") = Responsavel.Text
TB("Servicos_solicitados") = Solicitados.Text
TB("Servicos_realizados") = Realizados.Text
TB("Conta") = Conta.Text
TB("BEA") = BEA.Text
TB("Sistema_de_som") = Som.Text
TB("RHD") = RHD.Text
TB("Direção") = Direcao.Text
TB("EP1") = EP1.Text
TB("EP2") = Ep2.Text
TB("Teto_solar") = Teto.Text
TB("Modulo1") = Escolha.Text
TB("Modulo2") = Escolha1.Text
TB("Modulo3") = Escolha2.Text
TB("Modulo4") = Escolha3.Text
TB("Modulo5") = Escolha4.Text
TB("Modulo6") = Escolha5.Text
TB("Modulo7") = Escolha6.Text
TB("Modulo8") = Escolha7.Text
TB("Observação") = txtObs.Text
'TB("Serviços_pendentes") = TxtPreco.Text
'TB("Motivo") = TxtPreco.Text
'TB("Encarregado") = TxtPreco.Text
'TB("Executante") = TxtPreco.Text
TB("var") = VAR.Text
TB("Freio") = Freio.Text
TB("A/C") = AC.Text
TB("Suspencao") = Suspencao.Text
TB("Airbag") = Airbag.Text
TB.Update 'atualiza a tabela do access com o novo registro
TB.Bookmark = TB.MaxModified 'faz um bookmark(marcação na tabela) do último registro modificado(Maxmodified)
'no caso a inclusão ou alteração isto possibilita a alteração de um registro
'logo após a inclusão do mesmo, coisa que não seria possível sem esta linha.
'obs se não utilizarmos o val antes de cada txt não poderíamos digitar apenas
'um produto pois os outros dariam erro porque não é permitido mover "nada" para outro campo
'por isso utilizando val se os txts estiverem vazios estaríamos movimentando 0 porque val(de campo vazio) = 0
End Sub
Private Sub Mostrar_Dados()
txtVDS.Text = IIf(IsNull(TB("Numero_VDS")), "", TB("Numero_VDS"))
Veiculo.Text = IIf(IsNull(TB("Veiculo")), "", TB("Veiculo"))
PIN.Text = IIf(IsNull(TB("pin")), "", TB("pin"))
TVeiculo.Text = IIf(IsNull(TB("Tipo_do_Veiculo")), "", TB("Tipo_do_Veiculo"))
TDocumento.Text = IIf(IsNull(TB("Documento")), "", TB("Documento"))
txtNumero_doc.Text = IIf(IsNull(TB("Numero_do_Documento")), "", TB("Numero_do_Documento"))
Programa.Text = IIf(IsNull(TB("Programa")), "", TB("Programa"))
txtPosicao.Text = IIf(IsNull(TB("Posicao")), "", TB("Posicao"))
Responsavel.Text = IIf(IsNull(TB("Responsavel")), "", TB("Responsavel"))
DEntrada.Text = IIf(IsNull(TB("Data_Entrada")), "", TB("Data_Entrada"))
DSaida.Text = IIf(IsNull(TB("Data_Saida")), "", TB("Data_Saida"))
txtDestino.Text = IIf(IsNull(TB("Destino")), "", TB("Destino"))
Som.Text = IIf(IsNull(TB("Sistema_de_som")), "", TB("Sistema_de_som"))
RHD.Text = IIf(IsNull(TB("RHD")), "", TB("RHD"))
Direcao.Text = IIf(IsNull(TB("Direção")), "", TB("Direção"))
EP1.Text = IIf(IsNull(TB("EP1")), "", TB("EP1"))
Ep2.Text = IIf(IsNull(TB("Ep2")), "", TB("Ep2"))
Teto.Text = IIf(IsNull(TB("Teto_solar")), "", TB("Teto_solar"))
Conta.Text = IIf(IsNull(TB("conta")), "", TB("conta"))
Realizados.Text = IIf(IsNull(TB("Servicos_realizados")), "", TB("Servicos_realizados"))
Solicitados.Text = IIf(IsNull(TB("Servicos_solicitados")), "", TB("Servicos_solicitados"))
txtObs.Text = IIf(IsNull(TB("Observação")), "", TB("Observação"))
Escolha.Text = IIf(IsNull(TB("Modulo1")), "", TB("Modulo1"))
Escolha1.Text = IIf(IsNull(TB("Modulo2")), "", TB("Modulo2"))
Escolha2.Text = IIf(IsNull(TB("Modulo3")), "", TB("Modulo3"))
Escolha3.Text = IIf(IsNull(TB("Modulo4")), "", TB("Modulo4"))
Escolha4.Text = IIf(IsNull(TB("Modulo5")), "", TB("Modulo5"))
Escolha5.Text = IIf(IsNull(TB("Modulo6")), "", TB("Modulo6"))
Escolha6.Text = IIf(IsNull(TB("Modulo7")), "", TB("Modulo7"))
Escolha7.Text = IIf(IsNull(TB("Modulo8")), "", TB("Modulo8"))
VAR.Text = IIf(IsNull(TB("VAR")), "", TB("VAR"))
Freio.Text = IIf(IsNull(TB("Freio")), "", TB("Freio"))
AC.Text = IIf(IsNull(TB("A/C")), "", TB("A/C"))
Suspencao.Text = IIf(IsNull(TB("Suspencao")), "", TB("Suspencao"))
Airbag.Text = IIf(IsNull(TB("Airbag")), "", TB("Airbag"))
BEA.Text = IIf(IsNull(TB("BEA")), "", TB("BEA"))
Ramal.Text = IIf(IsNull(TB("Ramal")), "", TB("Ramal"))
Combo1.Text = IIf(IsNull(TB("Codigo_cor")), "", TB("Codigo_cor"))
Cor.Text = IIf(IsNull(TB("Cor")), "", TB("Cor"))
Status.Text = IIf(IsNull(TB("Status")), "", TB("Status"))
txtNF.Text = IIf(IsNull(TB("Nota_fiscal")), "", TB("Nota_fiscal"))
txtPIN.Text = IIf(IsNull(TB("Cod_Radio")), "", TB("Cod_Radio"))
Responsavel.Text = IIf(IsNull(TB("Responsavel_Programa")), "", TB("Responsavel_Programa"))
''TxtPreco.Text = IIf(IsNull(TB("Serviços_pendentes")), "", TB("Serviços_pendentes"))
''TxtPreco.Text = IIf(IsNull(TB("Motivo")), "", TB("Motivo"))
''TxtPreco.Text = IIf(IsNull(TB("Encarregado")), "", TB("Encarregado"))
''TxtPreco.Text = IIf(IsNull(TB("Executante")), "", TB("Executante"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
'TxtPreco.Text = IIf(IsNull(TB("prepro")), "", TB("prepro"))
End Sub
Private Sub Destrava()
Veiculo.Locked = False
PIN.Locked = False
TVeiculo.Locked = False
TDocumento.Locked = False
txtNumero_doc.Locked = False
Programa.Locked = False
txtVDS.Locked = False
txtPosicao.Locked = False
Responsavel.Locked = False
DEntrada.Locked = False
DSaida.Locked = False
txtDestino.Locked = False
Status.Locked = False
Cor.Locked = False
Combo1.Locked = False
txtNF.Locked = False
Ramal.Locked = False
txtPIN.Locked = False
Responsavel.Locked = False
Solicitados.Locked = False
Realizados.Locked = False
Conta.Locked = False
BEA.Locked = False
Som.Locked = False
RHD.Locked = False
Direcao.Locked = False
EP1.Locked = False
Ep2.Locked = False
Teto.Locked = False
Escolha.Locked = False
Escolha1.Locked = False
Escolha2.Locked = False
Escolha3.Locked = False
Escolha4.Locked = False
Escolha5.Locked = False
Escolha6.Locked = False
Escolha7.Locked = False
txtObs.Locked = False
'TB("Serviços_pendentes") = TxtPreco.Text
'TB("Motivo") = TxtPreco.Text
'TB("Encarregado") = TxtPreco.Text
'TB("Executante") = TxtPreco.Text
VAR.Locked = False
Freio.Locked = False
AC.Locked = False
Suspencao.Locked = False
Airbag.Locked = False
End Sub
Private Sub Limpar_Tela()
Dim Clear As String
Clear = Empty
Veiculo.Text = Clear
PIN.Text = Clear
TVeiculo.Text = Clear
TDocumento.Text = Clear
txtNumero_doc.Text = Clear
Programa.Text = Clear
txtVDS.Text = Clear
txtPosicao.Text = Clear
Responsavel.Text = Clear
DEntrada.Text = Clear
DSaida.Text = Clear
txtDestino.Text = Clear
Status.Text = Clear
Cor.Text = Clear
Combo1.Text = Clear
txtNF.Text = Clear
Ramal.Text = Clear
txtPIN.Text = Clear
Responsavel.Text = Clear
Solicitados.Text = Clear
Realizados.Text = Clear
Conta.Text = Clear
BEA.Text = Clear
Som.Text = Clear
RHD.Text = Clear
Direcao.Text = Clear
EP1.Text = Clear
Ep2.Text = Clear
Teto.Text = Clear
Escolha.Text = Clear
Escolha1.Text = Clear
Escolha2.Text = Clear
Escolha3.Text = Clear
Escolha4.Text = Clear
Escolha5.Text = Clear
Escolha6.Text = Clear
Escolha7.Text = Clear
txtObs.Text = Clear
'TB("Serviços_pendentes") = TxtPreco.Text
'TB("Motivo") = TxtPreco.Text
'TB("Encarregado") = TxtPreco.Text
'TB("Executante") = TxtPreco.Text
VAR.Text = Clear
Freio.Text = Clear
AC.Text = Clear
Suspencao.Text = Clear
Airbag.Text = Clear
End Sub
Grato,
