Início![[Resolvido].FindFirst Empty](https://2img.net/i/empty.gif)
Luís Antunes 22/12/2016, 02:28O código .FindFirst "CampoNumérico =" & Me.CampoNumérico & "" dá-me erro.
Alguém me pode ajudar?
Antecipadamente grato
Luís Antunes
Alguém me pode ajudar?
Antecipadamente grato
Luís Antunes
3 participantes
[Resolvido].FindFirst
Luís Antunes- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 394
Registrado : 05/04/2016
rubenscouto- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 679
Registrado : 02/10/2011
Poste o codigo completo para melhor analise.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009
Se é mesmo numerico é apenas assim;
- Código:
.FindFirst "CampoNumérico =" & Me.CampoNumérico
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido].FindFirst Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Luís Antunes- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 394
Registrado : 05/04/2016
Continua a dar erro na mesma linha de código
Grato
Luís Antunes
- Código:
[color=#ffff33]Private Sub Proc_AfterUpdate()[/color]
On Error GoTo Err_Proc_BeforeUpdate
Dim Mess As String
Set Tabela = Me.RecordsetClone
'seta variavel recordset
With Tabela
'verifica se o liente já está Inserido
'.FindFirst "Proc =" & Me.Proc & ""
.FindFirst "Proc =" & Me.[color=#00cccc]Proc[/color]
'se encontrou então
If Not .NoMatch Then
Cancel = True
'Desfaz o registro
Mess = MsgBox("Este Utente já existe, quer anular a entrada?", vbQuestion + vbYesNo, "Aviso!")
If Mess = vbYes Then
'Desfaz o registro
Me.Undo
MsgBox "Registo pretendido", vbCritical, "Atenção"
Me.Bookmark = .Bookmark
'exibe o registro já Registado
Else
Cancel = False
'Sai da SUB
Exit Sub
End If
End If
End With
Set Tabela = Nothing
Err_Proc_BeforeUpdate:
Exit Sub
End Sub
Grato
Luís Antunes
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009
- Código:
Private Sub Proc_AfterUpdate()
On Error GoTo 1
Dim Mess As String
With Me.RecordsetClone
'verifica se o liente já está Inserido
.FindFirst "Proc = " & Me.Proc
'se encontrou então
If Not .NoMatch Then
'Cancel = True
'Desfaz o registro
Mess = MsgBox("Este Utente já existe, quer anular a entrada?", vbQuestion + vbYesNo, "Aviso!")
If Mess = vbYes Then
'Desfaz o registro
Me.Undo
MsgBox "Registo pretendido", vbCritical, "Atenção"
Me.Bookmark = .Bookmark
'exibe o registro já Registado
Else
'Sai da SUB
Exit Sub
End If
End If
End With
Set Tabela = Nothing
1:
Exit Sub
End Sub
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009
Repare tambem que o AfterUpdate() não tem permissão de Cancelar
Somente o BeforeUpdate(Cancel As Integer) tem, e aí já pode usar o Cancel = True
Somente o BeforeUpdate(Cancel As Integer) tem, e aí já pode usar o Cancel = True
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Luís Antunes- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 394
Registrado : 05/04/2016
J Paulo
O código corre lindamente.
Fico-lhe grato pela ajuda
Luís Antunes
O código corre lindamente.
Fico-lhe grato pela ajuda
Luís Antunes
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009
Obrigado pelo retorno o forum agradece.
Feliz Natal
Feliz Natal
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...|
|
|