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

    Impedir criação de registro com 2 campos iguais

    avatar
    IgorTech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 22/05/2017

    Impedir criação de registro com 2 campos iguais Empty Impedir criação de registro com 2 campos iguais

    Mensagem  IgorTech 22/5/2017, 04:06

    Boa noite, sou bem iniciante no Access(2016) e tenho um banco de dados para minha loja, eu faço aluguel de vestidos juninos e estou com duas dúvidas

    1-> Tenho uma tabela chamada "clientes" e outra chama "roupas" que estão relacionadas, eu faço o preenchimento dos registros no formulário "clientes", gostaria de que exibisse alguma mensagem ou que não fosse possível concluir o registro quando o campo "código da roupa" da tabela "roupas" e o campo "data" da tabela "clientes" forem iguais ao de algum outro registro, porque eu nao posso alugar o mesmo vestido para o mesmo dia entende?

    2-> Essa eu nem sei explicar direito, mas eu tenho um formulário que chama "situação" e nele tem um campo "somavalor"(não está em tabela, só no formulário) que é soma do campo "dinheiro recebido" da tabela "clientes", ou seja, esse campo me dá o total do meu lucro atual, eu gostaria de criar um botão no formulário "clientes" com um macro que copiasse o valor que está no campo "somavalor" e colasse no campo "fechamento" da tabela "clientes" que está no formulário "clientes", deu pra entender? É complicado pra eu explicar o porque disso, sei q seria mais fácil fazer isso manualmente, mas quebraria um galho grande pra mim.

    A dúvida 1 é a mais urgente, quem puder ajudar eu fico grato, se precisar de mais informação estou aqui.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  caiosouza 22/5/2017, 14:24

    Cara, bom dia!

    Veja se é oque precisa:

    1> No Evento Ao Clicar do botão salvar do seu form:
    Código:
    If Me.código da roupa = data then
    Msgbox "Campos com valores repetidos!", vbcritical
    Me.código da roupa.SetFoucus
    End if

    2> No Evento Ao Clicar do novo botão do seu Form clientes:
    Código:

    Me.fechamento = Forms!situação!somavalor


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    IgorTech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 22/05/2017

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  IgorTech 25/5/2017, 20:56

    Oi, desculpe a demora.
    O segundo código funcionou perfeitamente, mas o primeiro não Crying or Very sad
    Não dá nenhum erro, mas tbm não impede de criar um novo registro com os campos iguais. Não sei se entendi bem, mas parece que esse código compara o código do vestido com a data, é isso? Pq não é assim q eu queria fazer, queria comparar o código + a data do registro q estou fazendo com os outros, se forem iguais tem q exibir uma msg para impedir. A data pode repetir em vários registros, assim como o código da roupa tbm, só não podem repetir os 2 em 2 ou mais registros, pq isso significa q eu aluguel o mesmo vestido pra mesma data 2 ou mais vezes, aí eu to lascado pq eu so tenho 1 modelo(1 código de roupa) para a data kkkkkk
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  caiosouza 25/5/2017, 21:41

    Então você quer que antes de salvar ele busque no destino se não já existe um "código da roupa" e "data" iguais ao atual do seu formulário?


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    IgorTech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 22/05/2017

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  IgorTech 25/5/2017, 21:48

    Exato meu caro
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  caiosouza 25/5/2017, 22:27

    No Evento Ao Clicar do seu botão Salvar:
    Código:

    Dim BuscaCodigo As String
    Dim BuscaData As String

    BuscaCodigo = Dlookup("código da roupa", "SuaTabelaDestino", "código da roupa = " & forms!SeuForm!txt_código da roupa)
    BuscaData = Dlookup("Data", "SuaTabelaDestino", "Data = " & forms!SeuForm!txt_data)

    If Me.BuscaCodigo = Me.txt_código da roupa and BuscaData = Me.txt_data then
    Msgbox "Registro já existe!", vbcritical
    Me.txt_código da roupa.setfocus
    Exit Sub
    Else

    'Coloque aqui o código já existente no botão salvar.

    End if

    Obs: Não testei, caso der algum erro...especifique-o!


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    IgorTech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 22/05/2017

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  IgorTech 26/5/2017, 16:08

    Bom dia, eu alterei alguns nomes aí para se encaixar, acho q fiz certo, talvez fosse uma boa ideia eu enviar meu banco de dados não? '-'
    Impedir criação de registro com 2 campos iguais Sem_ty10
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  caiosouza 26/5/2017, 17:36

    Boa tarde,

    Poste aqui no Fórum e mande para o e-mail caio.fabio91@gmail.com


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    IgorTech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 22/05/2017

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  IgorTech 26/5/2017, 17:47

    Vish, esqueci de um detalhe, eu tenho as fotos cadastradas no access de todos os vestidos, então meu banco de dados está com quase 300MB, não vou conseguir te enviar isso Crying or Very sad
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  caiosouza 26/5/2017, 17:50

    Faça uma cópia do arquivo, apague o banco de dados e compacte.


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    IgorTech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 22/05/2017

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  IgorTech 26/5/2017, 19:53

    Pronto... eu acho hehe
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  caiosouza 26/5/2017, 21:03

    Olá faça o seguinte:

    Vá na sua tabela cliente e tire os espaços do campo "Código da Roupa", ficando "Códigodaroupa".
    Renomeie os campos do Form "Cliente": txt_Códigodaroupa e txt_data

    No seu botão salvar, cole o seguinte código:

    Código:
    On Error Resume Next
    Dim BuscaCodigo As Integer
    Dim BuscaData As String
    BuscaCodigo = DLookup("CódigodaRoupa", "Clientes", "CódigodaRoupa=" & Me.txt_CódigodaRoupa)
    BuscaData = DLookup("Data", "Clientes", "Data = #" & Forms!Clientes!Data & "#")

    If BuscaCodigo = Me.CódigodaRoupa And BuscaData = Me.Data Then
        MsgBox "Registro já existe!", vbCritical
        Me.txt_CódigodaRoupa.SetFocus
        Exit Sub
    Else
        DoCmd.GoToRecord , , acNewRec
        MsgBox "Registro Salvo", vbInformation
    End If


    .................................................................................
    Caio Souza

    Engenheiro de Software

    Conteúdo patrocinado


    Impedir criação de registro com 2 campos iguais Empty Re: Impedir criação de registro com 2 campos iguais

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:56