Amigos... Eu tenho este código para alterar a letra do Drive em uma tabela utilizando um recordset... Funcionava.. mas agora esta a dae este erro...
Método ou membro não encontrado...e o erro em VB remete ao texto em vermelho...
Option Compare Database
Private Sub Comando0_Click()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Visitantes")
Do While Not rst.EOF
rst.Edit
If EstaVazio(rst!CaminhoFoto) = False Then
rst!CaminhoFoto = "c" & Right(rst!CaminhoFoto, Len(rst!CaminhoFoto) - 1)
End If
If EstaVazio(rst!CaminhoDigital) = False Then
rst!CaminhoDigital = "c" & Right(rst!CaminhoDugital, Len(rst!CaminhoDigital) - 1)
End If
rst.Update
rst.MoveNext
Loop
MsgBox "Terminei"
End Sub
O que seria isto???
Método ou membro não encontrado...e o erro em VB remete ao texto em vermelho...
Option Compare Database
Private Sub Comando0_Click()
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Visitantes")
Do While Not rst.EOF
rst.Edit
If EstaVazio(rst!CaminhoFoto) = False Then
rst!CaminhoFoto = "c" & Right(rst!CaminhoFoto, Len(rst!CaminhoFoto) - 1)
End If
If EstaVazio(rst!CaminhoDigital) = False Then
rst!CaminhoDigital = "c" & Right(rst!CaminhoDugital, Len(rst!CaminhoDigital) - 1)
End If
rst.Update
rst.MoveNext
Loop
MsgBox "Terminei"
End Sub
O que seria isto???