Bom dia.
No anexo tenho uma listBox no form Frm_Dash_Processos que busca os dados da Cons_List_declinado.
Quando dou um clique abre o form Frm_Cadastro_Processo.
Entretanto não no registro escolhido.
Tentei esses códigos abaixo:
Private Sub List_Declinado_Click()
Dim Id_Processos As Integer
Dim Processo As String
' Verifica se algum item está selecionado no ListBox
If List_Declinado.ListIndex <> -1 Then
' Obtém o ID e o número do processo selecionado
Id_Processos = List_Declinado.Column(0)
Numero = List_Declinado.Column(1)
' Abre o formulário usando o ID do processo
DoCmd.OpenForm "Frm_Cadastro_Processo", , , "Id_Processos = " & Id_Processos
' Ou você pode usar o número do processo se preferir
' DoCmd.OpenForm "NomeDoSeuForm", , , "Numero = '" & numeroProcesso & "'"
End If
End Sub
e esse
Private Sub List_Declinado_Click()
Dim intrecord As Integer
intrecord = Me!List_Declinado.Column(0) 'coluna zero, é a chave primária
DoCmd.OpenForm "Frm_Cadastro_Processo"
Forms![Frm_Cadastro_Processo].SetFocus
'Forms!Frm_Cadastro_Processo!Id_Processos.Enabled = True
'DoCmd.GoToControl "Txt_Id_Processos"
'DoCmd.FindRecord intrecord
End Sub
O primeiro não mostra nada.
O segundo mostra, mas com registro equivocado.
Algúem poderia dizer onde errei?
Obrigado.
No anexo tenho uma listBox no form Frm_Dash_Processos que busca os dados da Cons_List_declinado.
Quando dou um clique abre o form Frm_Cadastro_Processo.
Entretanto não no registro escolhido.
Tentei esses códigos abaixo:
Private Sub List_Declinado_Click()
Dim Id_Processos As Integer
Dim Processo As String
' Verifica se algum item está selecionado no ListBox
If List_Declinado.ListIndex <> -1 Then
' Obtém o ID e o número do processo selecionado
Id_Processos = List_Declinado.Column(0)
Numero = List_Declinado.Column(1)
' Abre o formulário usando o ID do processo
DoCmd.OpenForm "Frm_Cadastro_Processo", , , "Id_Processos = " & Id_Processos
' Ou você pode usar o número do processo se preferir
' DoCmd.OpenForm "NomeDoSeuForm", , , "Numero = '" & numeroProcesso & "'"
End If
End Sub
e esse
Private Sub List_Declinado_Click()
Dim intrecord As Integer
intrecord = Me!List_Declinado.Column(0) 'coluna zero, é a chave primária
DoCmd.OpenForm "Frm_Cadastro_Processo"
Forms![Frm_Cadastro_Processo].SetFocus
'Forms!Frm_Cadastro_Processo!Id_Processos.Enabled = True
'DoCmd.GoToControl "Txt_Id_Processos"
'DoCmd.FindRecord intrecord
End Sub
O primeiro não mostra nada.
O segundo mostra, mas com registro equivocado.
Algúem poderia dizer onde errei?
Obrigado.
- Anexos
Teste1.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (181 Kb) Baixado 11 vez(es)