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]Recordset com erro

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Recordset com erro Empty [Resolvido]Recordset com erro

    Mensagem  =>Nois 27/9/2017, 19:05

    estou a utilizar a função abaixo, no entanto no campo desenho_man só funciona quando a informação é toda texto ou toda número

    se eu usar letra com número da erro

    exemplo: 123a456

    ou tambem: 200000-129


    como proceder?



    Código:
       Dim db As Database, rs As Recordset

                Set db = CurrentDb()

                Set rs = db.OpenRecordset("tbl_Fluxo_Solic_Manual")

                rs.AddNew

                    rs("Cod_CMVM_Man") = Me.txtCodRef
                    rs("Desenho_Man") = Me.txtDesenho
                    rs("Descricao_Man") = Me.txtDescricaoDesenho
                    rs("Qtd_Pcs") = Me.txtQtdPcs
                    rs("Qtd_MDR_Travaso") = Me.txtMdrTrav
                    rs("Qtd_TT_MDR_Sem_Travaso") = Me.txtMdrSTrav
                    rs("Qtd_TT_MDR") = Me.txtQtdMdrTT
                    rs("Cod_Embalagem") = Me.txtCodEmbalagem
                    rs("DescricaoEmb") = Me.txtDescricaoEmb
                    rs("AreaOrigem") = Me.txtArea
                    rs("Nota_Fiscal") = Me.txtNotaFiscal
                    rs("Log_Reg") = Logado & "-" & Now

                    rs.Update


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]Recordset com erro Empty Re: [Resolvido]Recordset com erro

    Mensagem  Alvaro Teixeira 27/9/2017, 19:28

    Olá LM,
    Se pretende guardar ambos os tipos (string e number) o melhor é ser um campo texto.
    Depois usar a função nativa do Access Cstr, ficando algo assim:

    rs("Desenho_Man") = cstr(me.txtDesenho)

    Abraço

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    [Resolvido]Recordset com erro Empty Re: [Resolvido]Recordset com erro

    Mensagem  =>Nois 27/9/2017, 19:47

    Grande Teixeira, sempre salvando...

    muito obrigado.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7919
    Registrado : 15/03/2013

    [Resolvido]Recordset com erro Empty Re: [Resolvido]Recordset com erro

    Mensagem  Alvaro Teixeira 27/9/2017, 19:55

    Olá LM, obrigado pelo retorno.
    O forum agradece.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Recordset com erro Empty Re: [Resolvido]Recordset com erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 08:59