Chegando valor na tabela Access

#1

Estou utilizando uma tabela access para salvar nomes de perfil em uma aplicação em runtime, consegui fazer o sistema funcionar, consigo inserir, modificar e deletar as informações na tabela, o que não consegui fazer é verificar se o produto (uma das colunas da tabela) já existe, preciso disto para habilitar ou não os botões INSERIR, ATUALIZAR e REMOVER.

123
123.png1893×1026 15.4 KB

Eu tenho uma tag produto que armazena o valor do produto selecionado na tabela, o que tentei fazer foi o seguinte.

Se o produto existir o INSERIR deveria ficar desabilitado
Se o produto não existir o ATUALIZAR e REMOVER ficam desabilitados

Criei um evento que dispara quando o valor do produto muda, dentro dele coloquei um script e tentei utilizar o GetADORecordSet(), mas não obtive sucesso.

#2

Gabriel,

Você terá que varrer todos os registros da tabela para saber se o dado já foi gravado anteriormente. Por exemplo:

produto = Screen.Item("Texto1").Value
set consulta = Screen.Item("E3Browser1").Item("Consulta1")
set rs = consulta.GetADORecordset()
rs.MoveFirst
while rs.EOF = False
	if rs.Fields("Produto").Value = produto then
		Screen.Item("CommandButton1").Enabled = False
		exit sub
	else
		rs.MoveNext
wend
MsgBox "Nenhum registro encontrado com esse valor"

Artigo relacionado:

1 Like
#3

Obrigado!!, Consegui

1 Like