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



355 Resultados encontrados para subform

[Resolvido]Desfazer no form e subform com mesmo botão - 20/3/2020, 15:08

bom dia gostaria de pedir ajuda não consigo fazer um botão pra desfazer alteração no form e subform ao mesmo tempo,

eu tenho um Formulário com os dados dos clientes em cima e no subform eu tenho os produtos, porém ao alterar os produtos e clicar em desfazer ele apenas desfaz as alterações do form principal

teria como ter um codigo pra desfazer em ambos ?

[Resolvido]Desfazer no form e subform com mesmo botão - 19/3/2020, 17:40

Boa tarde tudo bem meus amigos ?

Vim aqui pedir humildemente a ajuda de vocês!

Tenho um Formulário com um SubFormulário dentro, que tem um Botão Desfazer (ESC) e quando eu aperto esse botão de desfazer ele apenas desfaz o do Formulário mas o SubForm fica sujo....

alguem tem uma maneira de fazer isso funcionar ?

de modo que só precise de um botão para desfazer o que foi alterado no registro e no subregistro ?

ictsp

Criar Relatório com dados subform filtrado - 5/3/2020, 11:26

Bom dia!

Tenho um subformulário onde realizo as filtragens diretamente nele.
Após as filtragens, salvo os dados em uma tabela e depois gero o relatório.
Gostaria de saber se existe uma forma mais simples de se fazer isto, tipo abrir o relatório já com os dados que eu filtrei.
Desde já, agradeço imensamente a ajuda dos amigos.
Busca avançada Duvida13

ictsp

[Resolvido]Relatório com dados subform - 17/2/2020, 18:26

Boa tarde!

Prezados colegas, tenho um subform que filtro conforme as datas por período, conforme imagem abaixo.
Gostaria de gerar um relatório com os dados dessa filtragem.
Tentei baixar o exemplo disponibilizado pelo amigo "vieirasoft" (http://dl.dropbox.com/u/8157744/Stella.rar) mas está indisponível.
Alguém poderia me dar alguma idéia de como fazer isso?
Desde já, agradeço a ajuda dos colegas.
Busca avançada Duvida12

Numeração Automática de Vários Registro em SubForm - 14/2/2020, 12:56

Bom Dia a Todos,

Vi a quantidade de tópicos que tratam de Numeração Automática e Loop, mas não os dois juntos. Antes de criar esse tópico tentei adaptação para resolver sem ter a necessidade de criar mais tópico do assunto, mas sem sucesso. Logo cá estou.

Tenho um subform onde coloco vários itens de um orçamento de serviço, e para cada serviço quero gerar uma Ordem de Serviço a partir no maior numero da tabela onde os serviços estão cadastrados. Para um registro usei o que aqui aprendi

Forms!frmContratos!subfrm_OrcamentoDet!NumOS = Nz(DMax("NumOS", "tblOrcamentoDet"),0) + 1

e com o primeiro registro do subform funciona perfeitamente, mas os outros não somam, nada, claro por não haver busca do último como maior valor da tabela.

Como faço para colocar a numeração sequencial em todos os registros que lançar.

Grato pela atenção

Copiar dados das textbox de um form e lançar no subform - 16/1/2020, 02:10

Boa noite.

Estou tentando criar um sistema para controle de bar através de comandas e estou tendo dificuldades logo no começo pale

Até peguei um arquivo no fórum super completo, mas não consegui adequá-lo às minhas necessidades (não utilizar o mouse) e então resolvi tentar começar do zero.

Basicamente é o seguinte.

Tenho as tbls:

tbl_produtos
tbl_itemcarrinho

e os forms

frm_compra
frm_itemcarrinho


o frm_itemcarrinho está como subform do frm_compra

no frm_compra tenho os campos:

txtcomanda
txtcodprod
txtdescricao
txtqtde
txtpreco
txttotal

criei um evento que ao digitar o código do produto, ele buscasse as informaçoes da tbl_produtos e preenchesse as textBox e até aí tudo bem (tirando o fato de que não consegui fazer os 2 enter funcionar, só o do teclado alfanumerico (keycode 13) o do numerico não vai) entao coloquei no evento "ao sair", mas o ideal seria qqr uma das teclas enter.

O que eu preciso é que após eu digitar a quantidade, abra uma MsgBox Sim/Não em que se eu clicar em SIM o frm_itemcarrinho seja preenchido com as informações das textBox, mas já tentei de diversas formas e não consegui.


Além disso, gostaria que quando for digitado um código que não existe na tbl_produtos fosse exibida uma msbbox dizendo "PRODUTO NÃO CADASTRADO"

Alguém pode me dar uma luz?

[Resolvido]Consulta count com critério de comparação entre duas tabelas. - 13/1/2020, 12:55

renpv, bom dia!

Agradeço muito se você puder me ajudar, pois sou novato no Access e não tenho ideia de como se faz isso. Segue o banco anexado.

Mais uma vez, obrigado!

[Resolvido]Consulta count com critério de comparação entre duas tabelas. - 10/1/2020, 17:54

Boa tarde Mestres do Ms Access!!!

Estou com um dilema em um projeto que estou fazendo. Tenho um form chamados Dashboard que pega as informações da tabela "Gerar" e neste form (Dashboard) tem um subform que buscas outras informações da tabela Gerar também.

No Form Dashboard eu tenho alguns labels que exibem a quantidade de registros ("SELECT Count(Gerar.ID) AS conta ,Gerar.Loja, Gerar.Status FROM Gerar GROUP BY Gerar.Loja, Gerar.Status HAVING (((Gerar.Status) = 'enviado'))ORDER BY Gerar.Status;") de acordo com o status assim que o form é aberto.

Busca avançada Dashbo10


No evento "On click"destas labels eu faço um filtro para o subform (Gerar_subform) que exibe os dados de acordo com o status (neste caso é o manutencao). Este filtro funciona, mas eu preciso que ele seja agrupado pelo campo Loja (Exemplo abaixo).

Filtro no Evento On click da label
=======================================
Private Sub Lb_manutencao_Click()

   Me.Gerar_subform.Form.Filter = "Status Like 'manutencao'"
   Me.Gerar_subform.Form.FilterOn = True

End Sub


Hoje quando faço um click no Label de manutencao o fitro no subform ao lado fica assim:

OBS: Cada entrada repetida (Lj098) indica um equipamento na loja

Lojas    Pong_ts    Conf_ts     last_ts   Status
===================================================
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj098     xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao


Gostaria que este filtro fosse agrupasse todos os equipamentos em apenas uma entrada no subform indicado que a loja tem equipamentos em manutenção.

Lojas    Pong_ts    Conf_ts     last_ts   Status      Qtd_equip.
===============================================================
Lj098    xxxxxx    xxxxxx      xxxxxx    manutencao     3
Lj1098   xxxxxx    xxxxxx      xxxxxx    manutencao     4


Desde já agradeço a ajuda de todos.

[Resolvido]Comparar 2 campos em Form e Subform - 11/11/2019, 20:32

Boa tarde, zcarloslopes

Amigo, ficou perfeito, muitíssimo obrigado.

Um abraço!

[Resolvido]Comparar 2 campos em Form e Subform - 10/11/2019, 16:23

Up !!!

[Resolvido]Comparar 2 campos em Form e Subform - 8/11/2019, 14:33

Up !!

[Resolvido]Comparar 2 campos em Form e Subform - 5/11/2019, 11:52

Up

[Resolvido]Comparar 2 campos em Form e Subform - 1/11/2019, 16:13

Mais uma tentativa que busquei adaptar com outra rotina, mas não funcionou:

Dim StrID As String 'Variável criada para a rotina do controle CPF_Exit

Private Sub CPFVinculo_AfterUpdate()
Dim x As Integer
If DCount("CPFPessoa", "T30_LDBPessoas", "CPFPessoa = '" & Me.CPFVinculo & "'") > 0 Then
  x = MsgBox("ALERTA: Cadastro existente na Base de Dados!" & vbCrLf & " " & vbCrLf & "Sim: Acessa Cadastro encontrado" & vbCrLf & "Não: Continua edição atual", vbYesNo, "Sistema")
  If x = vbNo Then 'Se Não
     Cancel = True
  Else             'Se Sim
     Me.VaiParaRegistro
  End If
End If
End Sub
'----------------------------------------------------------------------------------------------------
Sub VaiParaRegistro() 'AUTOR: JPaulo (Mostra Cadastro encontrado em Duplicidade x CPF)
  'Localizar o registo que corresponde ao controle em Duplicidade
   Dim rs As Object
  'Me.NomePessoa.SetFocus
   Set rs = Me.Recordset.Clone
   rs.FindFirst "[CPFPessoa] = '" & StrID & "'"
   If Not rs.EOF Then
      Me.Bookmark = rs.Bookmark
   End If
End Sub

[Resolvido]Comparar 2 campos em Form e Subform - 1/11/2019, 15:43

Bom dia a todos.

Tentei adaptar minha questão pelo tópico:
https://www.maximoaccess.com/t30402-resolvidoverifica-e-alerta-duplicidade-em-formulario-e-consulta

Private Sub CPFVinculo_AfterUpdate()
'Ativa rotina de tratamento de erro
On Error GoTo TrataErro

'Declara variável do tipo recordset
Dim rst As DAO.Recordset
   
'Seta a variável
Set rst = Me.RecordsetClone
   
'Compara o Registro com o Recordset
rst.FindFirst "[CPFPessoa] ='" & Me!CPFVinculo
 
       If Not rst.NoMatch Then 'verifica se não é fim de arquivo
          If MsgBox("ALERTA: CPF com Cadastro existente na Base de Dados!" & Space(2) & "" _
             & DLookup("[CPFPessoa]", "T30_LDBPessoas", "[CPFPessoa] = '" & Me.CPFVinculo & "'") & vbCrLf & "Deseja ir para o C.P.F encontrado?", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
             Me.Undo 'desfaz a digitação
             Me.Bookmark = rst.Bookmark 'mostra o registro correspondente
          Else
             Me.Undo
          End If
       End If

   rst.Close         'Fecha o recordset
   Set rst = Nothing 'Libera memoria
   
'Tratamento de erro
Exit_Trataerro:
   Exit Sub

TrataErro:
   'exibe mensagem com o erro ocorrido
   MsgBox "Erro número: " & Err.Number & " - " & Err.Description & " (" & Me.Name & " - " & Me.ActiveControl.Name & " - BeforeUpdate).", vbCritical, "Mensagem de Erro"
   Resume Next
End Sub

Mas não funcionou, apareceu a mensagem de erro: "Erro número 3077 - Erro de sintaxe na cadeia na expressão. (F301_LDBPessoasXVinculos - CPFVinculo - BeforeUpdate)"

Tentei também:
Private Sub CPFVinculo_AfterUpdate()
On Error GoTo TrataErro
      Dim rst As Recordset
      Set rst = CurrentDb.OpenRecordset("SELECT * FROM T301_PessoasXVinculos")

       Do While Not rst.EOF
       If rst![CPFVinculo] = Me.CPFVinculo.value Then
           If MsgBox("Já existe um C.P.F. de Código nº" & Space(2) & "" _
           & DLookup("[CPFPessoa]", "T30_LDBPessoas", "[CPFPessoa] = '" & Me!CPFVinculo & "'") & vbCrLf _
           & "Deseja ir para Registro e conferir dados? ", vbYesNo + vbExclamation + vbDefaultButton2, "Confirmação") = vbYes Then
               'Me.Undo                    'desfaz a digitação
               Me.Bookmark = rst.Bookmark 'mostra o registro correspondente
       Exit Do
       Else
       Me.Undo
       'faz o procedimento de incluir ou salvar
       End If
       End If
     
       rst.MoveNext
       Loop
       rst.Close
       
'Tratamento de erro
Exit_Trataerro:
   Exit Sub

TrataErro: 'exibe mensagem com o erro ocorrido
   MsgBox "Erro número: " & Err.Number & " - " & Err.Description & " (" & Me.Name & " - " & Me.ActiveControl.Name & " - BeforeUpdate).", vbCritical, "Mensagem de Erro"
   Resume Next
End Sub

Também não funcionou, apareceu a mensagem de erro: "Erro número 3159 - Marcador inválido. (F301_LDBPessoasXVinculos - CPFVinculo - BeforeUpdate)"

Se alguém puder ajudar além de Tauron, agradeço.

[Resolvido]Comparar 2 campos em Form e Subform - 27/10/2019, 14:26

Bom dia,

Sim, a pesquisa é na tabela T30_LDBPessoas e caso encontre o CPF digitado emite a mensagem que encontrou e oferece 2 opções:

Deseja acessar esse Registro? Sim: Mostra no formulário F30_LDBPessoas o registro com o CPF coincidente
Não: Não faz nada e continua a edição do registro em questão

Resumo:
após informar o CPF no subformulário faz uma verificação na tabela T30_LDBPessoas que é a origem do formulário principal F30_LDBPessoas, e caso encontre emite uma mensagem perguntando se deseja abrir esse CPF encontrado ou não.

[Resolvido]Comparar 2 campos em Form e Subform - 21/10/2019, 15:16

Bom dia,

Segue arquivo em anexo

[Resolvido]Comparar 2 campos em Form e Subform - 20/10/2019, 16:32

Boa tarde, Tauron

Vou preparar o arquivo e envio em seguida.

[Resolvido]Comparar 2 campos em Form e Subform - 16/10/2019, 12:30

Bom dia,
* Access 2013 - 64bits

Tentei adaptar o que preciso com a rotina sugerida neste tópico: https://www.maximoaccess.com/t6621-resolvidocomparar-2-valores-em-form-com-subform
mas não obtive êxito, pois ao colocar a rotina no evento Current do subform e no evento Após Atualizar do campo ‘CPFVinculo’, não funcionou e não aconteceu nada, nem mesmo uma mensagem de erro, porisso nem tive como testar e complementar o restante que queria.

Fiz o seguinte: no subformulário
Private Sub CPFVinculo_AfterUpdate()
     If Forms!F30_LDBPessoas.CPFPessoa = Me.CPFVinculo Then
         MsgBox "Alerta: Cadastro existente na Base de Dados!"
      Else
         MsgBox “Deseja abrir o cadastro existente na Base de dados?” , vbYesNo, “Sistema informa”
         ‘Se sim: abre formulário F30_LDBPessoas no CPF coincidente
      Else ‘Não faz nada
      End If
End Sub

Onde:
F30_LDBPessoas = formulário principal com campo a ser comparado: CPFPessoa
F301_LDBPessoasXVinculos = subformulário com campo de onde parte a comparação: CPFVinculo

PS: ambos formulários estão relacionados pelos campos CodPessoa (Autonumeração) e IDPessoa (Número), respectivamente com as tabelas: T30_LDBPessoas e T301_PessoasXVinculos

Preciso do seguinte:
No campo ‘CPFVinculo’ do subformulário ao sair ou após atualizar: Pesquisar no formulário principal se o CPF digitado existe. Caso exista: Emitir uma mensagem “Cadastro existente na Base de Dados” e oferece 2 opções: Deseja acessar o cadastro encontrado? Caso sim: Abre o formulário principal no registro do CPF coincidente. PS: salva o registro atual no subformulário mesmo assim. Caso Não: não emite nenhuma mensagem e salva o registro atual no subformulário e continua a inclusão/edição.

O objetivo é apenas informar se tal CPF existe no cadastro principal e se coincide com esse que está sendo incluído no subformulário, independente de existir ou não sempre será salvo o registro do CPF no subformulário.

Pode ser de outra forma, caso alguma possa ajudar.

[Resolvido]Captar valor num campo do subform - 13/7/2019, 16:12

Mais uma dificuldade com fórmulas.
Utilizei a seguinte fórmula, para captar um valor no subform, "=[Formulários]![Frm_RubricasAutorizadas]![txtTotal]".
O campo da fórmula está no form princital
Também utilizei a pesquisa "Dpesquisar(txtotal;Frm_RubricasAutorizadas)" tabém sem resultado.
Question

Luís Antunes

Soma de um SubForm - Arquivo Exemplo em anexo - 26/6/2019, 21:39

Pessoal,
Mesmo buscando vários exemplos aqui do Fórum, não consegui raciocinar para dar o resultado que desejo.
Necessito apenas do valor total de uma SubForm para a Form Principal.
Formulário "FDocNF" campo Calculado "VTotal".
Segue o arquivo em anexo de exemplo.

https://www.dropbox.com/sh/ggwgmfzni83rd82/AADvvumQmSDTYsJ-5nH2kcVva?dl=0

Agradeço a ajuda e atenção de todos!

[Resolvido]DataGrid & SubForm & tblTemporaria & Relatórios & MySql - 24/5/2019, 01:09

Boa noite

Estou migrando a base de dados para MySql, qual a melhor forma de manipular Relatórios neste ambiente?

Até agora a melhor forma que encontrei foi usando tabela fixa com dados temporários, mas o problema vai ser tratar isso no senário multi usuário, onde dois ou mais podem estar usando o mesmo relatório, ai fica confuso, tenho que criar uma tabela para cada usuário?

****Alguém poderia me dar uma dica bacana, ou compartilhar sua experiencia com este tipo de sistema?

No mais agradeço pela atenção de todos!

Essa é a tela do frm que utilizo para filtrar os relatórios:

Busca avançada Frmrel10

[Resolvido]Desativar Controlo em SubForm dentro de um Tab - 15/5/2019, 09:53

Bom dia a todos,

Como posso desabilitar um controlo num SubForm que esta numa aba do MainForm?

Testei sem sucesso:

Código:
Me!SubForm.Form!Comando10.Enable = False
Me!MainForm!SubForm.Form!Comando10.Enable = False
Forms!MainForm!SubForm.Form!Comando10.Enable = False


Obrigado

[Resolvido]Nova numeração no subform a cada novo número do formulário. - 14/5/2019, 10:43

Cláudio, bom dia!

Acho que fui infeliz em dizer relatório, preciso desta sequência gravada na tabela e que seja gerada no sub formulário. A forma com que disse é somente para relatório?

Cumprimentos,

[Resolvido]Nova numeração no subform a cada novo número do formulário. - 10/5/2019, 16:34

Olá,

Pesquisei muito aqui no forum e na web uma forma de fazer a numeração automática no subform reiniciar a cada novo registro do Form.

O que pretendo é para o número 1 do Form, tenha 1, 2, 3, 4 no Subform e no 2 do form a numeração do subform inicie novamente no 1, 2, 3, 4...

O código que estou utilizando para a gerar os números sequenciais do Form é.

Código:
Private Sub Nm_comercial_AfterUpdate()

If Me.NewRecord Then
  On Error Resume Next
  Me!Num_Orc = Nz(DMax("Num_orc", "DB_orcamento"), 0) + 1
  End If


Conto com a ajuda de vós.

[Resolvido]Consulta em SubForm - 29/4/2019, 17:05

Bom Tarde pessoal
Estou tendo uma dificuldade para resolver um Problema! no meu form principal Form_2 tem Um sub Form_2_sub,
e no meu sub tenho a necessidade de ter um campo de soma automática das quantidades do prod então criei um modulo de consulta Cs_quantidades no projeto, e no meu sub form coloquei um campo com o codprod para que seja o critério de consulta "[Forms]![Frm_2_sub]![codprod]",
e um campo onde apresenta o resultado que seria a somar das quantidades do produto"=DSoma("quant";"Cs_Quantidade")"
só que esta dando um erro.


coloque um exemplo da minha duvida

[Resolvido]Erro em código VBA popular dados no subform - 23/4/2019, 21:16

Galera boa noite!

Preciso preencher campos de um sub formulário de peças apenas digitando o código da referida peça, no entanto esta dando erro de compilação, poderiam me ajudar?
Segue o código:

Código:

Dim rs As DAO.Recordset

   Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cód_Peças WHERE DN4 = " & Me.DN4 & ";")
  
   If Not rs.EOF Then
       EQUIPAMENTO = rs!EQUIPAMENTO
       MODELO = rs!MODELO
       PEÇA = rs!PEÇA
       FABRICANTE = rs!FABRICANTE
       QUANTIDADE = rs!QUANTIDADE
   End If
       rs.Close
   Set rs = Nothing



Estou deixando o bd para melhor entendimento.

[Resolvido]Loop pula segunda linha do subform - 18/4/2019, 19:47

Boa tarde galera.
Me deparei com uma coisa que está esquentando minha mente.
Quando clico em um botão no form principal o código pega todos os registros do subform e grava em um campo do form Master.
Até ai tudo bem, claro, se não estivesse pulando sempre a segunda linha do subform.
Segue o código:

Código:


Dim x As Integer
' If Me.Dirty Then
 x = MsgBox("Deseja salvar as alterações do Registro?", vbQuestion + vbYesNo, "Gravar Dados")
   
    Me.tag_coluna1 = Null
    Me.tag_coluna2 = Null
   
    Dim rs As DAO.Recordset
    Set rs = Me.documentos_detalhes.Form.RecordsetClone

    With rs
        Do While Not rs.EOF
          If IsNull(Me.tag_coluna1) Or Me.tag_coluna1 = "" Then
          Me.tag_coluna1 = rs!descricao
          ElseIf IsNull(Me.tag_coluna2) Or Me.tag_coluna2 = "" Then
          Me.tag_coluna2 = rs!periodo
            Else
          Me.tag_coluna1 = Me.tag_coluna1 & "," & rs!descricao
          Me.tag_coluna2 = Me.tag_coluna2 & "," & rs!periodo
        End If
        rs.MoveNext
        Loop
    End With
    rs.Close
    Set rs = Nothing
'    DoCmd.Close acForm, "documentos"
 
 If x = vbNo Then
 Me.Undo
 End If


Ou seja, toda vez que clico em gravar, ele simplesmente ignora a segunda linha do sub e grava o restante normal, da 1º e 3º em diante.
Abraço

[Resolvido]Incluir produtos em subform apartir de uma consulta - 8/4/2019, 14:05

Bom dia a todos, gostaria de partilhar meu desafio pois na verdade nem sei se é possível faze-lo como imagino.
Qualquer ajuda ou outra ideia será bem vinda!
Estou montando um controle de circulação de material através de setores de uma empresa, como um almoxarifado que empresta ferramentas e depois elas retornam. Mas antes de ficarem disponíveis novamente, elas precisam ser "reparadas" e só depois disponibilizadas para um novo empréstimo.

Já fiz e consigo saber o ultimo setor que o material se encontra através de uma consulta, e nesta vai constar "setor reparo" caso a ferramenta já tenha retornado.

Penso em fazer um formulário em que o responsável do almoxarifado libere (todas ou algumas) ferramentas que estão no setor reparo (essas seriam as ferramentas que já estão prontas).

Para isso pensei em usar a consulta que indica o setor onde estão as ferramentas e filtrar o "setor reparo", fazer dela uma checklist, onde vai marcando o que deseja e então gravar na tabela de "movimentacao de ferramentas" com o setor "almoxarifado", isso vai significar que essas ferramentas já estão livres pra um novo empréstimo.

Já fiz o form e a lista usando a consulta com checkbox em um subform. Mas o checkbox está marcando tudo/ou nada.
E, como fazer para lançar os selecionados em um novo registro na tabela?

Busca avançada 110

Bloqueio de Colunas no SubForm (Folha de Dados) - 28/3/2019, 18:20

Olá, amigos!

Estou com um problema, parece simples, mas não consigo resolver.

Preciso bloquear a coluna do subform (folha de dados), para que não seja apagada, e também seu tamanho não seja alterado. Porém, eu gostaria da possibilidade de apagar linhas selecionadas, e de certa forma, selecionar a coluna para que eu consiga colar dados vindo do excel.

Eu tentei usar a função do nosso amigo JPaulo, porém ela me impede de selecionar os dados para colar.

Código:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
'By JPaulo ®️ Maximo Access

If Button = acLeftButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical, ""
End If
If Button = acRightButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical, ""
End If
If Button = acMiddleButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical, ""
End If
End Sub


Também tentei usar essa função do FabioPaes que peguei no fórum:

Código:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
Dim F As String
'F = Screen.ActiveControl.Name
CurrentDb.Execute "UPDATE tbtopico SET " & F & " = Null"
Me.Recalc
KeyCode = 0
End If
End Sub


Porém ela me impede de excluir linhas.

Eu pensei numa solução semelhante a esse último código, onde eu ao invés de eu selecionar a coluna, que é o que esse código faz, apagar a linha selecionada, não a coluna.

Peço ajuda de vocês, e desde já, obrigado!

[Resolvido] Exportar para excel subform com scrollbar - 18/3/2019, 20:50

Olá!
Estou com um probleminha... talvez seja algo fácil de resolver, mas não encontrei nada a respeito.

Possuo um relatório com vários subforms dentro. Ao exportar esse relatório para excel, o Access acaba exportando somente os dados que estão visíveis para ele, como se não visse o que está abaixo do scrollbar. Se eu arrasto o scrollbar para baixo e os dados ficam visíveis ele exporta, mas acaba não exportando os dados que estavam no começo do subform.

Exemplo:
Busca avançada Export10

Alguém já se deparou com isso?

[Resolvido]Recalc em Subform - 25/2/2019, 14:16

bom dia
gostaria de fazer um Recalc no subformulário, a função Requery e Refresh não funciona.
tentei usar essa linha na caixa de Combinação do meu formulário principal
( DoCmd.Recalc "TB_VENDADET_Sub" ).

[Resolvido]Instrucao SQL para RowSource em SubForm - 26/1/2019, 20:27

Boa tarde a todos!

Tenho um formulário "frmMenu" e um subformulário "subFornec" com os seguintes campos:

subFornec!txtCNPJ (textbox)
subFornec!txtNome (textbox)
subFornec!cmdBusca (button)
subFornec!lstFornec (List box)

No botão "cmdBusca" eu envio os dados para atualizar a lista, mas está dando "erro 13", o código está abaixo.

Desde já agradeço!


Private Sub cmdBusca_Click()

Dim strSql As String

strSql = "SELECT * From qryFornec WHERE (((qryFornec.CNPJ) Like [Forms]![frmMenu]![subFornec].[Form]![txtCNPJ] & " * ") AND ((qryFornec.RazaoSocial) Like [Forms]![frmMenu]![subFornec].[Form]![txtNome] & " * "))"

Me.lstFornec.RowSource = strSql

End Sub

[Resolvido]Travar formPrincipal e subForm para Edição - 19/1/2019, 22:17

Olá, Equipes! cheers


Boa Noite. Very Happy


Meus Caros, por favor, tentei de várias formas, conformem podem averiguar no Exemplo em anexo, para com que o subformulário ficasse em Somente Leitura, quando abro o formulário, e quando clicasse no botão EDITAR, ficassem Editáveis e ao Salvar voltasse ao Somente Leitura.   scratch Sad

Obs.: Os procedimentos acima, consegui aplicar ao Formulário principal, mas não consegui no Subformulário. study  

Por favor, como faço para resolver esta questão?! farao farao


Um forte e Fraterno abraço,
Guilherme B. Pereira

[Resolvido]Chamar botão em SubForm dentro de outro SubForm - 11/1/2019, 14:24

Boa tarde a todos,


Mais uma vez venho pedir a vossa ajuda, que desde já agradeço.

É algo bem simples, mas que não estou a conseguir.

Tenho por hábito usar muito os SubForms, e para facilitar alguns códigos mais complexos coloco o código num Botão no subform, altero de "Private Sub" para "Public Sub" e chamo o Botão no Form principal:

Call Me.frm_SubFormName2.Form.Comando17_Click

Que funciona sem problema...

O preciso de momento fazer o mesmo com um Botão que está inserido num SubSubFormB, que por sua vez está inserido num SubFormA, e este inserido no MainFormC.

Já tentei:

Call Me.frm_SubFormName1.Form.frm_SubFormName2.Form.Comando17_Click

Call Me.frm_MainForm!frm_SubFormName1.Form!frm_SubFormName2.Form.Comando17_Click

...mas nada..

Alguma ideia?

Obrigado

[Resolvido]atualizar campos de um subform via dao - 4/1/2019, 17:12

boa tarde a todos, estou quebrando a cabeça aqui com um problema "simples" porem estou começando a aprender agora com manipulação de dados via dao recordset, estou montando um sistema de ordem de serviço e tenho um subform dentro de um form principal (onde eu insiro a quantidade de produtos orçados) porem eu gostaria que quando no form principal coloca-se faturado automaticamente os números que contem na caixa de texto "qtdorcamento" automaticamente passa-se para a caixa de texto "quantidade" para dar saída no estoque corretamente somente quando "faturar" a ordem de serviço, tentei algumas combinações aqui mais nada deu certo, vou colocar algumas que tentei logo abaixo.

lembrando que como são várias linhas (produtos) precisaria o código passar por todos os registros (loop) para salvar todos os resultados.

Código:
Dim rs5 As DAO.Recordset
   
    Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
    Do While Not rs5.EOF
    rs5.Edit
        rs5!quantidade.Value = rs5!qtdorcamento.Value
    rs5.Update
rs5.MoveNext
Loop



Dim rs5 As DAO.Recordset
    Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
    If rs5.RecordCount > 0 Then
        Me!quantidade.Value = 0
        rs5.MoveFirst
        While Not rs5.EOF
            Me!quantidade.Value = Me!qtdorcamento.Value
        rs5.MoveNext

Dim rs5 As DAO.Recordset
    Set rs5 = Me!FRM_SERVICOS_SUB.Form.RecordsetClone
    If rs5.RecordCount > 0 Then
        Me!quantidade.Value = 0
        rs5.MoveFirst
        While Not rs5.EOF
            Me!FRM_SERVICOS_SUB.Form!quantidade.Value = Me!FRM_SERVICOS_SUB.Form!qtdorcamento.Value
        rs5.MoveNext

tentei outras combinações que não me recordo agora mais nenhuma deu certo

[Resolvido]Alterar a fonte de um subform a partir do form principal - 21/12/2018, 19:45

Saudações a todos

É possível alterar a fonte de um subform a partir de um evento disparado no form principal?

A ideia é alterar a fonte mesmo, para outra tabela!

[Resolvido]Atualizar SUBFORM via botões de navegação no FORM principal. - 18/12/2018, 01:15

Prezados Mestres, boa noite.

Tenho um FORM principal com um SUBFORM dentro do principal.
Preciso que, ao mudar o registro (via botão de navegação que está localizado no rodapé do FORM PRINCIPAL), o SUBFORM atualize as informações também.

Já tentei de todos os modos, mas infelizmente, sou leigo no assunto.

Consegui fazer isso com o FORM PRINCIPAL, via Requery.
Mas com o SUBFORM está difícil.

[Resolvido]Botão de Editar Registro a partir de um subForm - 10/12/2018, 09:34

Bom dia.
Possuo um Formulário "frmMenu" com um SubForm "EntregasPendentesSubform" contendo vários registros.
Gostaria de adicionar neste formulário "frmMenu" um botão "Editar" que, ao ser clicado, verificaria qual registro do subForm está selecionado, e assim abrisse esse registro para edição no formulário "frmEntregas".
Como poderia fazer isso?
Desde já agradeço.

Segue o link do projeto abaixo:
alantaru.000webhostapp.com/BANCO_DE_DADOS/BANCO_DE_DADOS.zip

Luís Antunes

[Resolvido]Totais de um subform - 8/12/2018, 00:55

Já tentei calcular os totais do subform e foi tarefa impossível.
Recorro a este Forum  a ajuda que necessito.
Junto em anexo parte do projeto que é a melhor forma de me fazer compreender.

[Resolvido]Subform sem ligação mestre-filtro mas que filtra o form - 22/11/2018, 12:38

Ivan, show de bola a tua dica, deu certíssimo.

Muito obrigado e um abraço.

[Resolvido]Subform sem ligação mestre-filtro mas que filtra o form - 22/11/2018, 12:29

Obrigado Ivan, vou verificar.

[Resolvido]Subform sem ligação mestre-filtro mas que filtra o form - 21/11/2018, 14:45

Nobres colegas,

Eu tenho um dilema com minha aplicação. Eu tenho um Formulário e um subformulário, para cadastro de produtos, não possuem ligação mestre-filho, pois desejo que ao abrir o form, traga todos os produtos cadastrados e se desejar realizar alguma alteração clique nesta relação de produtos (subform), traga para o formulário principal o registro escolhido e assim possa fazer as alterações ou até mesmo excluir o registro.

Já usei docmd.openform e também me.filter.

Os filtros funcionam , tanto um quanto outro, o problema que ao clicar em um registro do subform, apesar de trazer para o form, o cursor volta sempre para a posição do primeiro registro no subform. Coloquei a imagem no anexo para ficar melhor a compreensão.

Agradeceria muito se pudessem me ajudar.

Abraços a todos.

Busca avançada Captur11

PauloFerreira

Lançar em subform-Continuo - 22/10/2018, 20:56

Olá a todos ! Shocked
Pretendia fazer o seguinte num formulário ter uma linha onde escolhia o produto, colocaria a quantidade preço e depois ao clicar em lançar ,este lançaria num subform-continuo.
Estou a procura de um exemplo ou de como fazer . . .
Obrigado amigos. Abraços

[Resolvido] Pesquisar próximo registo num SubForm - 12/10/2018, 18:49

Boa tarde a todos,

Mais uma vez venho pedir a vossa ajuda, desta vez para o seguinte:

Tenho um FormA e um SubFormB com origem dos registos na TabelaA e TabelaB respetivamente relacionadas de Um para Muitos.

No FormA tenho um Botão para pesquisar registos no FormA, fonciona OK, e um Botão para procurar registos no SubFormB, também tudo OK.

O problema é quando tento procurar o próximo registo (String) no SubFormB, só avança no registo atual do FormA, isto é, tem outros registos no SubFormB com a mesma String, mas num outro registo do FormA, que não consigo procurar.

Alguém tem uma dica de como posso alargar esta pesquisa (FindNext) a todos os registos do SubFormB?


Muito obrigado

Segue o código de pesquisa no SubFormB.


   Dim rst As Recordset

       If Not IsNull(Me.cboMoveTo2) Then

       Set rst = Forms!frm_SEFT_Form_1!frm_SEFT_Form_1a.Form.RecordsetClone

       rst.FindNext "NomeProfissional = '" & Me.cboMoveTo2.Column(1) & "'" 'string

       If Not rst.NoMatch Then
       
       Forms!frm_SEFT_Form_1!frm_SEFT_Form_1a.Form.Bookmark = rst.Bookmark
     
   Else
   
   MsgBox "Pesquisa do Formando/Formador Concluída!!"
   
   End If
   
   Me.cboMoveTo2.SetFocus
   End If
   rst.Close
   Set rst = Nothing

lupe

Aplicar Evento Efeito Especial em Subform - 11/10/2018, 14:19

Olá!

Encontrei aqui no fórum um código muito bom para aplicação de efeitos especiais em controles. No formulário principal ele funciona no perfeito, porém, ao chamar a função no subform não retorna a ação esperada.

Alguém sabe como adaptar o código abaixo para rodar em subform?

Public Sub InitialiseEvents(ByRef frmThisForm As Form)
' Elaborado pelo meu colega e amigo, ChrisO de Brisbane na Australia
' Colocado na sala de exemplos do http://maximoaccess.forumotion.com/,
' por JPaulo com autoriza??o do autor
   Dim ctl As Control
   
   On Error Resume Next

   For Each ctl In frmThisForm
   
   If ctl.ControlType = acSubform Then
   If ctl(ctl.Name, 9) = "sub" Then

       'ctl.OnGotFocus = "=HandleFocus('" & frmThisForm.Name & "', '" & ctl.Name & "', 'Got')"
       'ctl.OnLostFocus = "=HandleFocus('" & frmThisForm.Name & "', '" & ctl.Name & "', 'Lost')"
       ctl.OnMouseMove = "=HandleMouseMove('" & frmThisForm.Name & "', '" & ctl.Name & "')"
   End If
       End If
   Next ctl
   
   Forms(frmThisForm.Name).Section(acDetail).OnMouseMove = "=HandleMouseMove('" & frmThisForm.Name & "', '" & "Detail" & "')"
   
   Err.Clear

End Sub


Public Function HandleMouseMove(ByVal strFormName As String, _
                               ByVal strControlName As String)
' Elaborado pelo meu colega e amigo, ChrisO de Brisbane na Australia
' Colocado na sala de exemplos do http://maximoaccess.forumotion.com/,
' por JPaulo com autoriza??o do autor
   
   Static strHighlightedControl As String
   If strHighlightedControl <> "" And strHighlightedControl <> strControlName Then
       HandleFocusMenu strFormName, strHighlightedControl, "Lost"
       strHighlightedControl = ""
   End If
   
   If strControlName <> "Detail" And strControlName <> strHighlightedControl Then
       strHighlightedControl = strControlName
       HandleFocus strFormName, strHighlightedControl, "Got"
   End If
   
End Function


Public Function HandleFocus(ByVal strFormName As String, _
                           ByVal strControlName As String, _
                           ByVal strChange As String)
' Elaborado pelo meu colega e amigo, ChrisO de Brisbane na Australia
' Colocado na sala de exemplos do http://maximoaccess.forumotion.com/,
' por JPaulo com autoriza??o do autor

   Static lngForeColour   As Long
   Static lngFontWeight   As Long
   Static lngBorderStyle  As Long
   Static lngBorderColour As Long
   Static lngBackStyle    As Long
   Static lngBackColour   As Long
   Static lngSpecialEffect As Long
   
   On Error Resume Next

   With Forms(strFormName)(strControlName)
       Select Case strChange
           Case "Got"
               ' Salva a corrente configura??o.
               lngBorderStyle = .BorderStyle
               
               ' Define a configura??o pretendida
               .BorderStyle = 1
               
           Case "Lost"
               
               .BorderStyle = lngBorderStyle
               
       End Select
   End With
   
   Err.Clear

End Function

[Resolvido]Manipular ScrollBars em Subform pelo VBA - 22/9/2018, 13:31

Olá!

Gostaria de saber se é possível manipular as Barras de Rolagem do Sub Formulário através do VBA.

Tornar a barra oculta ao abrir o formulário e reexibir ao mover do mouse;

Alterar a largura da barra (Mais fina ao abrir o formulário e voltar ao tamanho padrão ao mover o mouse);

Alterar a cor da barra.

Trabalho com Access 2010 e 2013, Windows 8 e 10.

Desde já, obrigado!

maguim

[Resolvido]Consulta temporaria dentro de SUBFORM - 21/9/2018, 21:39

boa tarde amigos tudo bem?

estou estudando bastante sobre tabela temporaria e suas consultas...


seria possivel executar uma consulta dentro subformulario TEMPORARIAMENTE?

exemplo:


ao abrir ja trás a informação da consulta temporária dentro subformulário referenciado.


abraços

werlycorvo

Requery em Subform de outro formulário - 20/9/2018, 21:53

Bom Luis...
tente o seguinte:

para atualizar dados alterados.

forms!form1!subform1.form.refresh

para atualizar dados alterados e registros excluidos.

forms!form1!subform1.form.requery

[Resolvido]DblClick - Insere produto no subform - 6/9/2018, 01:11

Boa noite pessoal,


Estava pesquisando alguns exemplos para o que preciso em outros BDs mas não consegui adaptar ao meu.

Gostaria que no DblClick "O duplo clique" inserisse o produto em um subform.

No meu BD, o produto tem que ser inserido em um Subformulário e estou apanhando muito pra conseguir lançá-lo.

Vejam que se o usuário quiser ele pode abrir a caixa de combinação e escolher o produto ou digitá-lo ou poderia utilizar a lista lateral para dar dois cliques e inserir o produto.

Tenho um formulário de Vendas + Subform DetVendas relacionados e uma listbox contendo os produtos do estoque.

Se alguém puder me ajudar, agradeço.

[Resolvido]Botão que atualiza o campo no Subform - 1/9/2018, 12:49

Olá,
estou colocando no tópico Formulário, mas tb abrange consulta, fiquei em dúvida onde postar.

Tenho um Form com SubForm.
No SubForm tem os campos do objeto emprestado para a pessoa que esta no Form.
Existe um botão no Form para Gravar a data de devolução (data atual) do objeto no campo Data_Devo.
Na mesma sequencia dos comandos uma consulta Atualiza (alguns Campos) da Tabela dos Objetos para o item baixado na data(Funciona Normal)

O que estou com dificuldade é na primeira consulta que atualiza a data_devo no subForm que não aparece após clicar o botão.
Falta alguma instrução?  



Instrução do Botão

Código:

Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click
DoCmd.SetWarnings False
    Dim stDocName As String
'GRAVA A DATA DE DEVOLUÇÃO NO REGISTRO
    stDocName = "ConsGravaDataDevo"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "Salvo devolução na data de hoje. CLIQUE agora em GRAVA A BAIXA (COFRE) para terminar"
'============================================================================
 Dim stDocName1 As String
'GRAVA A ALTERÇÃO NA TABELA MATERIAL
    stDocName1 = "ConsBaixaMaterial"
    DoCmd.OpenQuery stDocName1, acNormal, acEdit
MsgBox "Atenção!!" & Chr(13) & "Gravado em Material - COFRE.. como Material FORA DE USO" & Chr(13) & _
                "Caso for reutilizá-lo, Abrir CADASTRO DE CARGAS e mudar o Status para ATIVO clicado"
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
DoCmd.SetWarnings True
Exit_Comando9_Click:
    Exit Sub

Err_Comando9_Click:
    MsgBox Err.Description
    Resume Exit_Comando9_Click
  Me.Form.Requery
End Sub


ConsultaGrava Data
www.dropbox.com/s/am6x4iukvhn1lka/CosultaGravaData.JPG?dl=0

Deixo a foto do Form com o SubForm.
www.dropbox.com/s/zkw2dlohm6h6qk0/TelaNovaBx.JPG?dl=0


Voltar ao Topo

Data/hora atual: 2/4/2020, 23:05