[Resolvido]representação do campo em VBA

Boas
Este código, em baixo, dá erro no "Me.Procº".
Podem-me dizer o que está errado?

Antecipadamente grato

Luís Antunes



Private Sub Procº_BeforeUpdate(Cancel As Integer)
'On Error GoTo Err_Procº_BeforeUpdate
'Dim Mess As String
' 'seta variavel recordset
' Set Tabela = Me.RecordsetClone
'     With Tabela
'          'verifica se o cliente 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
'             Cancel = False
'                 'Sai da SUB
'                 Exit Sub
'             End If
'
'           End If
'      End With
'  Set Tabela = Nothing
'Err_Procº_BeforeUpdate:
'Exit Sub

End Sub

Amigo, Evite caracter especial em nome de campos, variaveis, tabelas,... enfim Nao use eles em lugar nenhum rerererererere

Provavelmente o erro está nesse º , mas vale a penas conferir se existe esse campo na tabela (Procº) e se existe esse campo no Formulario (me.Procº)
Mude o Nome dos campos na tabela e no Formulário.

Mas caso nao possa mudar, tente assim:


.FindFirst "[Procº]= " & Me.[Procº] & ""


Obs: se esse campo Procº nao for Numero, ele deve ficar entre ' " & Me.[Procº] & " '

Já mudei nome do campo, experimentei a sua sugestão e continua a dar erro no "Me.Proc" (Fica pintado de azul).
O campo é numérico e o access é o 2007.

Grato pelo interesse


Luís Antunes

Caros,

Quando vc "seta" uma variável, antes vc deve declarar essa variável, nesse caso a variável "Tabela".

Usando o Option Explicit, no cabeçalho dos seu códigos ele força a declaração das variáveis utilizadas.

Bem não tenho como testar aqui, mas acrescenta a linha abaixo no seu código:

Código:


Private Sub Procº_BeforeUpdate(Cancel As Integer)

On Error GoTo Err_Procº_BeforeUpdate

Dim Tabela As Recordset



Abraços,

cleverson

Já coloquei a linha "Dim Tabela As Recordset" e o resultado foi o mesmo, só que agora vem com a mensagem:
Compile!
Method or data member not fund

Luís Antunes

Vc pode postar a tabela e form da situação.


Abraços,

Cleverson

Aqui vai a BD.
Mando o FE e BE, quando as tabelas estiverem ligadas veja também o código de erro, originário do módulo "basvinculo", na linha
"Set fld = db.TableDefs(strNomesTab).Fields(0)".
Relativamente ao erro do campo "Proc", quando compilar aparece o código em analise.



Luís Antunes

O anexo não veio, agora que vc mencionou back e front.

Por experiência, o método recordsetclone não é recomendado para tabelas vinculadas.

Recomendo o uso do DAO. Tente enviar o arquivo.

Abraços

Cleverson
O ficheiro não seguiu por ter mais de 2 MG em ficheiro zip
Se houver outro método de chegar a si diga.


Luís Antunes

Conhece o Dropbox, em lingua portuguesa, faça um cadastro, e compartilhe o link do arquivo.

Abraços,

Montei aqui um exemplo com o seu código, exatamente como está, Mudando apenas de Procº para Proc

Funcionou normalmente tanto em Base divida quando em base Unica.

*Antes de Postar seu BD, compacte e repare ele... Se possível Exclua os dados, deixando apenas alguns para exemplo... Compacte e Repare para diminuir o Tamanha... PG 2GB e osso heim...

Cleverson

Aqui vai o link da Dropbox

https://www.dropbox.com/s/osjizaba8466rvf/Tires_be.zip?dl=0


Luís Antunes

Luis,

Já consegui corrigir a questão do processo, agora a questão está no vínculo da tabela, no caso a função checavinculo.

Cleverson

Cleverson

Pode-me disponibilizar Já o código do "Processo"

Luís Antunes

Luis,

Consegui resolver a situação do form identidade.

Mas somente na abertura do banco surge a mensagem: ERRO N° 13 DADOS INCOMPATÍVEIS.

Arquivo alterado.


Abraços,


Cleverson

Cleverson

Fico-lhe grato por ter resolvido o código.
Quanto ao erro nº 13 vou deixar ficar mesmo assim.
Diga-me se devo deixar este assunto com resolvido.

Atenciosamente


Luís Antunes

Acredito que o erro seja motivo para um novo tópico.


Abraços,


Cleverson

cleverson
mais uma vez, obigado.


Luís Antunes