VALIDACAO
galera precisaria fazer uma validação no banco accsess no modo select, que quando inserice um codigo qua não existice na tablea, ele daria uma mensagem.
tentei alguns metodos mas naõ consegui, ele da erro.
esse é meu codigo
aqui ele procura o codigo na tabela tabfunc.
If Len(txtcod.Text) = 8 Then
sql = "select codigofu,nome from tabfunc where codigofu = '" & txtcod.Text & "'" ' & "'"
Set tbsql = con.Execute(sql)
Do Until tbsql.EOF
lblnome.Caption = tbsql("nome")
lblcod.Caption = tbsql("codigofu")
tbsql.MoveNext
Loop
aqui ele pega os dados da tabela tab func e grava em outra tabela chamada tabmovi.
tabmovi.AddNew
Call gravar_saida
Call limpar
tentei alguns metodos mas naõ consegui, ele da erro.
esse é meu codigo
aqui ele procura o codigo na tabela tabfunc.
If Len(txtcod.Text) = 8 Then
sql = "select codigofu,nome from tabfunc where codigofu = '" & txtcod.Text & "'" ' & "'"
Set tbsql = con.Execute(sql)
Do Until tbsql.EOF
lblnome.Caption = tbsql("nome")
lblcod.Caption = tbsql("codigofu")
tbsql.MoveNext
Loop
aqui ele pega os dados da tabela tab func e grava em outra tabela chamada tabmovi.
tabmovi.AddNew
Call gravar_saida
Call limpar
if tbsql.eof = true then
tabmovi.addnew
msgbox "registro novo"
else
end if
da um insert ja com select... tipo
esse seu recordset tbmovi se fosse assim
"select codigo, nome from tbmovi"
ao inves de abrir esse recordset e depois da addnew
faz isso
"insert into tbmovi (codigo,nome) select codigofu,nome from tabfunc where codigofu = '" & txtcod.Text & "'" ' & "'"
eu uso isso mas com o mysql, não sei se em outro db funciona
esse seu recordset tbmovi se fosse assim
"select codigo, nome from tbmovi"
ao inves de abrir esse recordset e depois da addnew
faz isso
"insert into tbmovi (codigo,nome) select codigofu,nome from tabfunc where codigofu = '" & txtcod.Text & "'" ' & "'"
eu uso isso mas com o mysql, não sei se em outro db funciona
seguinte, faz o relacionamento das tabelas no access , se nao existe ele vai retornar uma codigo de erro, ai é so vc tratar o erro no on error goto erro
Tópico encerrado , respostas não são mais permitidas