Olá pessoal. Adaptei esse código pra minha necessidade, e percebi que está funcionando quando eu converto pra versão 2003. Quando uso o mesmo código no Access 2007, dá o seguinte erro: 3219 'operação inválida
Eu converti pra versão 2003 pra postar aqui e pra minha surpresa, FUNCIONOU: então, aqui está o código:
Private Sub combo_BeforeUpdate(Cancel As Integer)
Dim Rst As Recordset, strCli As String
'Abre o recordset do tipo Table.
Set Rst = CurrentDb.OpenRecordset("tblCentral", _
dbOpenTable)
strCli = Me.NumGeral
If Not Rst.EOF Then
MsgBox "Registro cadastrado na tabela! Preencha os dados novamente.", vbCritical, "Registro..."
Pergunta
Gil Kléber
Olá pessoal. Adaptei esse código pra minha necessidade, e percebi que está funcionando quando eu converto pra versão 2003. Quando uso o mesmo código no Access 2007, dá o seguinte erro: 3219 'operação inválida
Eu converti pra versão 2003 pra postar aqui e pra minha surpresa, FUNCIONOU: então, aqui está o código:
Private Sub combo_BeforeUpdate(Cancel As Integer)
Dim Rst As Recordset, strCli As String
'Abre o recordset do tipo Table.
Set Rst = CurrentDb.OpenRecordset("tblCentral", _
dbOpenTable)
strCli = Me.NumGeral
If Not Rst.EOF Then
MsgBox "Registro cadastrado na tabela! Preencha os dados novamente.", vbCritical, "Registro..."
Cancel = True
Me.Undo
'Else
'MsgBox "Registro não encontrado"
End If
Set Rst = Nothing
End Sub
Obrigado pela ajuda pessoal!
Abração!
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.