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

    [Resolvido]Referir o campo chave

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 26/3/2021, 16:36

    Boas Tardes
    A intensão deste código e evitar um novo registo pelo comando "Seguinte"
    O Campo chave dá-me erro "(Novo)" o ( "" ) não resulta

    Código:
    If Me.Txt_Codigo = (Novo) Then
        DoCmd.CancelEvent
        Else
        DoCmd.GoToRecord , , acNext
        End If
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  crysostomo 26/3/2021, 18:07

    Oi?
    Evitar um novo registro ou com nome de "NOVO"
    Esse comando começa por onde?
    Ao abrir , update, ao carregar etc...?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 26/3/2021, 18:15

    Quando carrego no botão seguinte, vai para o registo seguinte ou para um novo registo.
    O pretendido é evitar que vá para um novo registo.

    Luís Antunes
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  crysostomo 26/3/2021, 18:34

    Me.Código=DLast("Tabela", "Código")
    Ela vai permanecer no último registro


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 26/3/2021, 18:45

    A primeira condição If é que dá erro

    Se o Meu código for vazio
    Me.Código=DLast("Tbl_Lancamento", "Codigo")
    Caso contráro
    DoCmd.GoToRecord , , acNext

    Luís Antunes
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  crysostomo 26/3/2021, 19:50

    Não precisa do if, e só cadastrar e fica no último , . Deixa seu bd aqui se não der certo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 26/3/2021, 20:45

    Não resultou
    Envio, em anexo, parte do projecto
    Luís Antunes
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  crysostomo 28/3/2021, 02:00

    Boa noite.
    O que está fazendo isso é o Valor do lançamento que já esta caindo automático, ou seja, quando você começa a preencher a segunda linha a terceira já caiu o valor 0 já cai independente do formato. Geralmente os campos acoplados faz isso com todos os campo , mas o seu é pelo formato.
    [Resolvido]Referir o campo chave Sem_t107
    Você pode ver que a 3ª linha já caiu ,mas está esperando o preenchimento dos outros campo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 28/3/2021, 11:15

    Bom dia crysostomo

    Fui à tabela e, todos os campos com valor "pré definido =0" Ficaram vazios, mesmo assim não resultou.

    Luís Antunes
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  crysostomo 28/3/2021, 14:30

    Recrie a tabela se persistir deixe todos desaciplados


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 28/3/2021, 14:57

    desaciplados?
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 28/3/2021, 21:04

    A palavra deve se desacoplado.

    Vou envias novamente a BD com os campos desacoplados.
    O resultado continua sendo nulo

    Luís Antunes
    Anexos
    [Resolvido]Referir o campo chave AttachmentContabilidade.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (147 Kb) Baixado 2 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

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

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  crysostomo 29/3/2021, 03:52

    Escrevendo pelo celular o corretor não ajuda.
    Amanhã a noite eu vou ver.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  DamascenoJr. 30/3/2021, 03:36

    Respondendo com base na mensagem de nº 2

    Código:
    Dim objRS As DAO.Recordset
    Dim j as boolean
        
    If Me.NewRecord Then Exit Sub
        
    Set objRS = Me.RecordsetClone
    If objRS.RecordCount > 0 Then
        Call objRS.MoveLast
        j = (Me!txtID.Value = objRS!NomeCampoIdNaTabela.Value)
    End If
    set objrs = nothing

    if j = true then exit sub

    Call DoCmd.GoToRecord(acDataForm, Me.Name, acNext)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  Luís Antunes 30/3/2021, 14:12

    Boa Tarde Damasceno.
    Serviu que nem uma luva.
    Obrigado pela ajuda que me tem dado.
    E também um agradecimento a crysostomo pela boa vontade em ajudar.

    Luís Antunes
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido]Referir o campo chave Empty Re: [Resolvido]Referir o campo chave

    Mensagem  DamascenoJr. 31/3/2021, 02:43

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 16/6/2021, 15:04