[Resolvido]Restringir registros para edição

Prezados,

estou fazendo uma lista de contatos onde quero que o usuário consiga alterar somente os registros que ele próprio inseriu.

para isso, inclui um campo (RespTELE_TAB) com o valor padrão = fOSUserName() e comparo esse valor com o valor de um campo não acoplado (Texto25) que tem como fonte: fOSUserName().

me parece que o código pega o valor do campo somente do primeiro registro da tabela...

o que está errado???

Private Sub Form_Current()

If Me.RespTELE_TAB.Value <> Me.Texto25 Then

Me.NomeTELE_TAB.Locked = True
Me.Fone1TELE_TAB.Locked = True
Me.Fone2TELE_TAB.Locked = True
Me.Fone3TELE_TAB.Locked = True
Me.Fone4TELE_TAB.Locked = True
Me.FaxTELE_TAB.Locked = True
Me.MailTELE_TAB.Locked = True
Me.NotasTELE_TAB.Locked = True
Me.CompartilhaTELE_TAB_Rótulo.Visible = False
Me.CompartilhaTELE_TAB.Visible = False

End If

End Sub

Olá Leandro

Tente assim:
If Me.RespTELE_TAB.Value <> fOSUserName() Then

Se bem que você pode inverter a situação, deixando todos os controles bloqueados e só libera quando o usuário gravado na tabela seja igual ao usuário logado.

E não esqueça do Else

para retornar a situação anterior.

Abraços

Balem,

já tentei das duas formas que vc sugeriu (comparando com fOSUserName() e bloqueando os campos) e o resultado é o mesmo...

hummm, agora vi o teu comentário do else... vou tentar

Se não funfar
Poste o bd com o form e tabela em questão

ehhh! funfou!

faltava o else!

thanks, Balem, quando eu crescer quero ser esperto igual a você!

um abraço a todos.

huahauhauahu

Quem me dera ser esperto, a prova disso que sou programador, kkkkkkkkk

Valeu pelo retorno e não esqueça do famoso Resolvido, como diz nosso amigo Clovis

Boa sorte!!

sorry...