MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Como alterar indice de tabela a partir do formulario

    Compartilhe

    janiomjunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/07/2017

    [Resolvido]Como alterar indice de tabela a partir do formulario

    Mensagem  janiomjunior em 8/8/2017, 10:39

    Ola Pessoal,

    sou novo no access e tenho estudado bastante.

    Criei um Formulário com sub formulário para adicionar ferramentas a uma nova caixa de ferramentas. Quando defino as ferramentas da nova caixa de ferramenta o BD não pode permitir que a mesma ferramenta esteja em duas caixas ao mesmo tempo, então o ACCESS alerta sobre a duplicidade de ferramentas:

    O que eu quero é que o access mostre em que caixa essa ferramenta se encontra e de opção de eu mover da caixa de ferramentas que a ferramenta esta para a nova caixa de ferramentas.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como alterar indice de tabela a partir do formulario

    Mensagem  JPaulo em 8/8/2017, 11:08

    Ola seja bem vindo ao forum;

    Na minha aasinatura, no link interno "102 Códigos VBA Gratuitos..."

    Veja se serve o código: Deteta e Mostra Registros Duplicados


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    janiomjunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/07/2017

    Alterar resgitro na tabela

    Mensagem  janiomjunior em 14/8/2017, 17:17

    Fala JPaulo,

    obrigado pela ajuda, mas vou explicar melhor o que eu to fazendo e querendo.

    Eu criei um formulário principal chamado Form_NCxFrm (ligado a tabela Tbl_NCxFrm) com um sub formulário chamado Form_SFormFrm (ligado a tabela Tbl_SformFrm) conectados pelo Código da caixa do formulário principal (codcx). No sub formulário eu adiciono as ferramentas da caixa que possuem um código único (chave primária) e que não podem estar em duas caixas ao mesmo tempo.

    O que eu quero?

    1. Quando tentar adicionar uma ferramenta que já esta em outra caixa, o BD mostrar onde a ferramenta já esta e perguntar se quero mudar de caixa.

    Espero ter me explicado e em anexo segue o banco de dados.
    Anexos
    Novo DB Controle de Ferramentas_Backup.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (3.7 Mb) Baixado 3 vez(es)

    janiomjunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/07/2017

    Re: [Resolvido]Como alterar indice de tabela a partir do formulario

    Mensagem  janiomjunior em 16/8/2017, 11:45

    Olá JPaulo,

    Eu consegui mostrar que existe duplicidade de ferramenta utilizando o seu código:

    -------
    Private Sub cboCodFerr_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.cboCodFerr.Value
    stLinkCriteria = "CodFerr= '" & Busca & "'"
    If DCount("CodFerr", "Tbl_SFormFrm", stLinkCriteria) > 0 Then

    Me.Undo
    Cancel = True
    MsgBox "Atenção, registo " _
    & Busca & " ja existe." _
    & vbCr & vbCr & "Vai ser mostrado o Registro.", vbInformation _
    , "Duplicado"
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    End Sub

    --------

    O que eu estou tentando implementar é localizar em que caixa a ferramenta se encontra (Na tabela Tbl_SFormFrm possui o campo codcx que mostra o nome da caixa) e clicando OK, atualizar para a nova caixa de ferramentas.

      Data/hora atual: 21/11/2017, 17:57