(msflexgrid) Cadastro E Foco

[Guest - Fininho -]

Opa, essa dúvida q eu tenho parace ser meio complicada, o q eu quero é o seguinte:

eu tenho um formulário de cadastro através de uma MSFlexGrid para uma tabela no Access(tab_pagto), o campo chave é o Nº do documento, agora eu quero q quando o usuário clicar no botão "Gravar"(cmdGravar), os registros vão diretamente para a tabela do Access e, se o registro já existir, aparecer uma msgbox dizendo q já existe e a linha do Nº do documento existente fique com um foco sobre ela para uma breve alteração...

parece ser complicado, né?hehe

qualquer ajuda será bem vinda! :)

[PiGmEu]

ve se é isso q eu entendi

exemplo: voce tem uma grid com 2 colunas(nome, descricao), e dentro dessa grid você tem 90 registros certo? ai quando você clicar em OK esses 90 registros são salvos no banco de dados? seria isso??

se for... codigo estsa abaixo

dim i as interger
i = 1
do while i <= grid1.rows
     sql = "Insert Into tabela(nome, descricao)values('" & grid1.textmatrix(i, 0) & "', '" &  grid1.textmatrix(i, 1) & "')
     conexao.execute sql
     i = i + 1
loop

abracos

[Xavier]

mas.. e pra aparecer o foco sobre a linha do registro já existente?

[PiGmEu]

não entendi Xavier.

[Guest - Fininho -]

não entendi Xavier.

é entaum, tipo eu queria saber o seguinte, se o registro já existir, aparecerá um msgbox dizendo q já existe e, após isso, eu queria q a linha do registro existente ficasse com um foco, tipo, q a linha fique selecionada pra indicar ao usuário qual dos registros foi repetido...

valeu!!

[Guest - PiGmEu -]

BOm acho q é isso então fininho?

dim i as interger
dim tabela as new adodb.recordset
i = 1
do while i <= grid1.rows
    sql = "Select * from tabela where campo = '" & grid1.textmatrix(i, 0) & "'"
   if tabela.state = 1 then tabela.close
   tabela.open sql, conexao
   if tabela.eof = true then
          sql = "Insert Into tabela(nome, descricao)values('" & grid1.textmatrix(i, 0) & "', '" &  grid1.textmatrix(i, 1) & "')
    conexao.execute sql
    i = i + 1
   else
          msgbox(grid1.textmatrix(i, 0) & " já existe")
         i = i + 1
   end if

loop