[Resolvido]Usar a mesma tabela e o mesmo form para duas opções.

Boa tarde pessoal.

Acho que a minha duvida agora não vai ser complicada não.
Em ajuda nos tópicos anteriores em contas a pagar, eu pedi ajuda para quando eu selecionar uma opção em uma caixa de combinação sobre a forma de pagamento ex. Cheque, Cartão de Crédito, Crediário etc, abriria um form pedindo ao Usuário a informação sobre o tipo de pagamento ex. cheque: Numero do cheque, nome do portador, data de emissão etc. Certo até ai tudo bem:
O que eu quero saber é se eu posso usar estes mesmos Formulários para captar as informações de contas a receber?
Se sim.
Como faço para separar as informações que se refere a contar a pagar e contas a receber?
Ou seria mais fácil Criar tabelas e formulários para receber as informações de contas a receber?
Desde já agradeço.

Você pode utilizar a mesma tabela, porém seria ideal colocar um combo na tabela com os campos "Pagar" e "Receber", desta forma sempre que for filtrar algo em form ou relatório, basta escolher o que quer.

Espero que entenda a explicação.

Boa tarde Claudio Machado.

Obrigado pelo Retorno.

Ja fiz todas a alterações que precisava para aproveitar as Tabelas e formulário de contas a pagar pelo contas a receber, só que na hora em que eu escolho uma opção do tipo de Recebimento na combo tipo de recebimento ele não abre o formulário de informação do tipo de recebimento/pagamento. E os nomes de todos os objetos estão corretos no código.
Veja:

Código:

Private Sub cmbTipoRecebimento_AfterUpdate()

If Me.cmbTipoRecebimento = "Cheque" Then
  DoCmd.OpenForm "Informacos de Cheques", acNormal
 
    ElseIf Me.cmbTipoRecebimento = "Dinheiro" Then
  DoCmd.OpenForm "Informacoes a Vista", acNormal
 
    ElseIf Me.cmbTipoRecebimento = "Boleto Bancario" Then
  DoCmd.OpenForm "Informacoes de Boletos", acNormal
 
    ElseIf Me.cmbTipoRecebimento = "Cartão de Crédito" Then
  DoCmd.OpenForm "Informacao Cartoes de Credito", acNormal
 
    ElseIf Me.cmbTipoRecebimento = "Cartão de Débito" Then
  DoCmd.OpenForm "Informacao Cartao Debito", acNormal
 
    ElseIf Me.cmbTipoRecebimento = "Débito em Conta" Then
  DoCmd.OpenForm "Informacao Debito Conta", acNormal
 
  ElseIf Me.cmbTipoRecebimento = "Crediario" Then
  DoCmd.OpenForm "Informacao Pgto Parcelado", acNormal
 
End If

End Sub


Não entendo porque não quer Abrir.

As informações do combo "cmbTipoRecebimento" foram digitadas ou vêm de uma tabela?

Se for de uma tabela, terá que pegar o campo específico da coluna da "cmbTipoRecebimento".


Efetuei os teste com o código que me passou e funciona normalmente.

Só que digitei os campos ao invés de pegar de uma tabela.

Verifique

Claudio as informações da combo vem de uma tabela tipo de pagamentos.

Bem Samuel, não sei como está sua tabela, mas criei um exemplo alterando para fonte de dados de tabela.
Altere com os nomes dos campos e tabela que está utilizando, que irá funcionar.

Claudio deu certo aqui, só que invés de Aparecer o nome do tipo de pagamento aparece os dois no combo e depois de selecionado fica o código na combo, sendo que eu quero a fique o nome.

Com faço para ficar o nome do tipo de pagamento.?

Na propriedade da combo, numero de colunas, digite 2, abaixo em largura das colunas, digite 0cm;2,542cm (ou a largura que preferir).

Irá aparecer somente a segunda coluna, pois a largura da primeira é zero.

Beleza Claudio Machado, funcionou. Outro macetinho que eu nem imaginava que existia e aprendi e deu certo.

Um abraço e muito Obrigado.

Que bom amigo que funcionou!! 
Aqui aprendemos sempre uns com os outros.
Disponha.
Abraços e boa sorte!