- 19 Ago 2019 às 19:11
#47079
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
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