Este fórum está sendo desativado

[anielise]

Boa tarde.
estou tentando no momento tentando atualizar uns dados, onde a partir da coluna x seja substituido por "", ou comumente usado limpo.

o código estou usando está embaixo. eu tentei de duas maneiras e nenhuma deu certo.

agradeço se puderem me ajuda.
obrigada fiquem na paz

Código: Selecionar todos

Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.EnableEvents = False

OBS = F_2.ALTURA.Value & " " & F_2.CONFINAMENTO.Value & " " & F_2.VEICULOS.Value

Dim valorpesquisa As Integer
valorpesquisa = F_2.cod5.Value
sql = "SELECT * FROM c_exame where código like '" & valorpesquisa & "'" 'define a conexão e abre o Recordset com os dados da tabela empresa

'define a conexão e abre o Recordset com os dados da tabela empresa

Call CONECTADB
'*carrega lista de dados
Set RS = New ADODB.Recordset
RS.Open sql, db, 3, 3
'On Error Resume Next

'salva
 RS.Update
    RS(1) = F_2.cod2.Value
    RS(2) = F_2.cod3.Value
    RS(3) = F_2.Abox3.Text
    RS(4) = F_2.Abox31.Text
    RS(5) = F_2.Abox5.Text
    RS(6) = F_2.TextBox2.Text
    RS(7) = DateValue(F_2.Abox1.Value)
    RS(8) = F_2.box11.Text
    RS(9) = F_2.box12.Text
    RS(10) = F_2.Abox26.Text
    RS(11) = F_2.box1.Text
    RS(12) = OBS
    RS(13) = F_2.Abox30.Text
    RS(17) = ""
    RS(18) = ""
    RS(19) = ""
    RS(20) = ""
    RS(21) = ""
    RS(22) = ""
    RS(23) = ""
    RS(24) = ""
    RS(25) = ""
    RS(26) = ""
    RS(27) = ""
    RS(28) = ""
    RS(29) = ""
    RS(30) = ""
    RS(31) = ""
    RS(32) = ""
    RS(33) = ""
    RS(34) = ""
    RS(35) = ""
    RS(36) = ""
    RS(37) = ""
    RS(38) = ""
    RS(39) = ""
    RS(40) = ""
    RS(41) = ""
    RS(42) = ""
    RS(43) = ""
    RS(44) = ""

    'For i = 17 To RS.Fields.Count - 1 ' verifica todos os campos do registro
    'If RS.Fields(i) Then ' aqui vai as condições
    'RS.Fields(i) = ""
    'End If
    'Next i
    
  On Error GoTo Aviso
  RS.Update
'desconectar
Call fechadb
   MsgBox "Dados alterado com Sucesso" & " id n° " & F_2.cod5.Value
Exit Sub
Aviso: MsgBox "Falha ao Gravar"

Application.Calculation = xlCalculationManual
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True