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

    [Resolvido]Condição ao executar Recordset

    Compartilhe
    avatar
    bpires
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 27/09/2016

    [Resolvido]Condição ao executar Recordset

    Mensagem  bpires em 12/1/2018, 15:46

    Bom dia.

    Procurei algum artigo que sanasse minha dúvida mas não achei.

    Gostaria de saber se, ao executar o recordset, dependendo do que estiver escrito na caixa de texto (ex: "Acima do esperado") seja lançado na tabela um valor (ex: "7").

    Grato desde já.

    meu código:

    Private Function Cadastro_Monitoria()

    Dim rs As Recordset

    Set db = CurrentDb

    Set rs = db.OpenRecordset("TabApontamentos")


    rs.AddNew


    rs("Chave") = Me.Texto180
    rs("Serviço") = Me.Combinação174
    rs("Hora") = Me.Texto138
    rs("Data") = Me.Texto136
    rs("Condução") = Me.comb1
    rs("Inicio") = Me.Comb2
    rs("Objetividade") = Me.Comb3
    rs("pausas") = Me.Comb4
    rs("Gramatica") = Me.Comb5
    rs("InfoCorret") = Me.Comb6
    rs("InfoComp") = Me.Comb7
    rs("Segurança") = Me.Comb8
    rs("Procedimento") = Me.Comb9
    rs("Resolutividade") = Me.Comb10
    rs("Argumentacao") = Me.Comb11
    rs("Disponibilidade") = Me.Comb12
    rs("Cortesia") = Me.Comb13
    rs("Etica") = Me.Comb14
    rs("Sigilo") = Me.Comb15
    rs("Observacoes") = Me.Texto142
    rs("Usuario") = Me.txtUsuarioAtual


    rs.Update
    'rs.Close


    End Function

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Condição ao executar Recordset

    Mensagem  Noobezinho em 12/1/2018, 17:31

    Bruno

    Não disse quais caixas de texto, mas aqui está um exemplo, com uma parte do teu exemplo


    rs("Etica") = Me.Comb14
    rs("Sigilo") = Me.Comb15

    If me.minhatextbox = "Acima do esperado" then
    rs(CampoTabela) = 7
    else
    rs(Campo tabela) = Um outro valor


    End If

    rs("Observacoes") = Me.Texto142
    rs("Usuario") = Me.txtUsuarioAtual


    [ ]'s
    avatar
    bpires
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 27/09/2016

    Re: [Resolvido]Condição ao executar Recordset

    Mensagem  bpires em 12/1/2018, 18:55

    Deu certo camarada!!

    Muito obrigado!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Condição ao executar Recordset

    Mensagem  Noobezinho em 12/1/2018, 19:00

    Que bom que ajudei !

    Boa sorte!


      Data/hora atual: 21/7/2018, 14:47