MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Erro ao atualizar a tabela

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Erro ao atualizar a tabela Empty [Resolvido]Erro ao atualizar a tabela

    Mensagem  Ney Santos 24/2/2023, 03:01

    Bom dia!
    Pessoal esou com um problema , pois quando vou finalizar um pedido me da a mensgem que tal tabela nao pode ser edxluida ou alterada pois outrra tasbla conntem registros relacionados a ela: Eis o codigo

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Set DB = CurrentDb()
    Set rs = OpenForSeek("tbl_vendas")
    rs.Index = "idCodigo"
    rs.Seek "=", Me!TxCodigo

    If Not rs.NoMatch Then
       rs.Edit
       
       rs("Codigo") = Me!TxCodigo
       rs("Comanda") = Me.TxtComanda
       rs("Cliente") = cboCliente.Column(0)
       rs("Cabelereiro") = txCabelereiro.Column(0)
       rs("Forma Pagamento") = Me.TXFPagamento
       rs("Finalizado") = -1
       Me.CsFinal = rs("Finalizado")
       Call SomaListBox
       rs("vltotal") = Me.TxtSoma
       rs.Update    <<<------------------------------------------- aqui da erro
     
       End If

    End Sub
    eu nsao entenndo pois as tabelas em questao sao Tabela ( tbl_vendas)  e tabela (vendas_det) elas sao tabelas rrelacionadas por um campos chamadoCodigo.
    Onde etsa o erro? ja tentei varias formas e nao encontro.
    Essa mesma tabela ( tbl_vendas) e usada no mesmop formulario quando vou abri um pedido eis o codigo:

    End Sub
    Public Sub GravaPedido()
    On Error GoTo trata_erro
      Dim DB As DAO.Database
    Dim rs As DAO.Recordset
    Set DB = CurrentDb()
    Set rs = OpenForSeek("tbl_Vendas")
    rs.Index = "idCodigo"
    rs.Seek "=", Me!TxCodigo
    Dim f As Variant
    f = DMax("Codigo", "tbl_Vendas")
    If IsNull(f) Then
        f = 0
     End If
       If rs.NoMatch Then
       rs.AddNew
       rs("Codigo") = (f + 1)
       Me!TxCodigo = rs("Codigo")
       txtdatapedido = Format(Now(), "dd/mm/yyyy")
       rs("DataVenda") = txtdatapedido.Value
       rs("Cliente") = cboCliente.Column(0)
       rs("Cabelereiro") = txCabelereiro.Column(0)
     
       
       rs.Update
       
       rs.Close
       End If
       Set rs = Nothing
       

        Exit Sub
       
    trata_erro:
       
       MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
       Exit Sub
    End Sub
    No caso aqui e  para abertura do Pedido e criar o numero dele, esta funcinando perfeitamente.
    Algfuem pode me ajudar/?
    Obrigado
    estou colocando uma parte do sistema para poderem avaliarr melhor
    Descompacte tudo na pasta C, pois as tabelas vinculadas apontam para uma pasta na raiz do computador..
    Anexos
    [Resolvido]Erro ao atualizar a tabela AttachmentSCCC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (836 Kb) Baixado 11 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  crysostomo 24/2/2023, 11:20

    Bom dia, o que pode ver rapidamente é que você tem quie chamar a sub gravarPedidas no botão finallizar


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Ney Santos gosta desta mensagem

    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  Ney Santos 24/2/2023, 11:56

    Prezado obrigado, nao funcionou porrem resolvi re outra maneira tirei a integridade referencial dos campos
    na relação da tabela e ai funcionou..
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  crysostomo 24/2/2023, 12:01

    qui ele funcionou, mas sucesso. Basketball Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  Ney Santos 24/2/2023, 12:07

    fiquei curioso, poderia me enviar o arquivo com essa alteração?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  crysostomo 24/2/2023, 22:16

    Apaguei o arquivo.
    Mas o grande probela que estava dando é a relação de tabela .
    Mas como está resolvido.
    Cuidados com as fotos que deixou no dB.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Ney Santos
    Ney Santos
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 351
    Registrado : 23/05/2011

    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  Ney Santos 25/2/2023, 13:16

    ok, Obrigado, quanmto a foto eu baixei da internet pra fazre um teste, nem lembrava que ela estava no bd..

    Conteúdo patrocinado


    [Resolvido]Erro ao atualizar a tabela Empty Re: [Resolvido]Erro ao atualizar a tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/7/2024, 00:04