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

    [Resolvido]Duvida com recordset

    Macedo
    Macedo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 23/09/2010

    [Resolvido]Duvida com recordset Empty Duvida com recordset

    Mensagem  Macedo 15/10/2011, 20:10

    Ola pessoal esta semana estive analisando uns codigo e me veio uma duvida:
    quando declaramos uma variavel tipo rst as dao.recordset e no meio do codigo hà uma necessidade de desviar o codigo para um outro procedimento que tambem declara uma variavel do tipo rst as dao.recordset, como o VBA reage nessa situação???
    obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  criquio 15/10/2011, 20:13

    Você precisará de duas variáveis:

    Dim rst1 As Dao.Recordset, rst2 As Dao.Recordset

    Depois basta setar cada uma à sua tabela.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Macedo
    Macedo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 23/09/2010

    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  Macedo 15/10/2011, 20:24

    Criquio obrigado pela resposta, mas as variaveis estão em procedimentos diferentes estou dando um exemplo: (tirei algumas linhas para não ficar extenso)

    Private Sub Cmd_GerarCadastro()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    '
    Set db = DBEngine(0)(0)
    Set rst = db.OpenRecordset("Contratos")
    With rst
    .AddNew
    !IDContrato = 1
    Cmd_GerarContratoDet '(aqui chama o procedimento abaixo)
    .Update
    End With
    rst.Close
    db.Close
    Set rst = Nothing
    Set db = Nothing
    end sub
    ------------------------------------------------------------
    Private Sub Cmd_GerarContratoDet()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    '
    Set db = DBEngine(0)(0)
    Set rst = db.OpenRecordset("ContratosDet")
    With rst
    .AddNew
    !IDContratoDet = 1
    .Update
    End With
    rst.Close
    db.Close
    Set rst = Nothing
    Set db = Nothing
    end sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  criquio 15/10/2011, 20:32

    Ambos procedimentos estão no mesmo formulário? Você pode chamar o procedimento do outro botão no lugar exato aonde precisar do desvio:

    Call NomeDoBotão_Click


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Macedo
    Macedo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 23/09/2010

    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  Macedo 15/10/2011, 20:57

    Amigo Criquio os procedimento não são gerados de botões mas sim no dentro do código, eu preciso saber se o access separa essas variaveis pois as duas tem o mesmo nome (rst) pois eu chamo outro procedimento que tambem usa a variavel rst, minha duvida é se o comportamento do código não mistura as duas variaveis. não sei se consegui expressar, é somente uma duvida pois o código esta funfando.
    mais uma vez obrigado.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  criquio 15/10/2011, 21:03

    Nesse caso, o que vai acontecer é o seguinte: quando rodar a primeira sub, rst irá ser configurado de acordo a tabela inserida nessa primeira sub. Quando rodar a segunda, irá mudar a tabela para essa da segunda sub. Dependendo do caso, funciona tranquilo dessa maneira, mas, dependendo das circunstâncias e necessidades, poder ser melhor colocar tudo em uma sub apenas, com nomes diferentes conforme minha primeira mensagem, ou seja, rst1 e rst2. Se está funcionando direitinho, então para esse caso está tudo bem.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Macedo
    Macedo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 23/09/2010

    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  Macedo 23/10/2011, 03:05

    isso que precisava saber, obrigado mais uma vez.

    Conteúdo patrocinado


    [Resolvido]Duvida com recordset Empty Re: [Resolvido]Duvida com recordset

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 16:58