K
kas1
Guest
oi
im trabalhando com VB6 e acesso.Eu tenho um botão de comando chamado "cmdDelete".Quando clico nesta linha de uma tabela de acesso deverá ser suprimida.a linha possui campos "bulbo", "status", "tipo" quando clique no botão todos os campos são eliminados.para que im usando o seguinte código:
ad1.Recordset.Filter = bulbo "= '" & dinningroom & "'"
ad1.Recordset.Fields ( "status"). Value = Excluir
ad1.Recordset.Fields (bulbo "). Value = Excluir
ad1.Recordset.Fields ( "type"). Value = Excluir
ad1.Recordset.Update
ad1.Recordset.Filter = adFilterNone
Esse código funciona corretamente e exclua as entradas da linha.mas o problema é, desde a sala de jantar "linha" está no meio da tabela após a exclusão, haverá uma linha vazia no meio da tabela.Eu não preciso ter linhas vazias.Eu preciso mudar as outras entradas, um por um até depois de apagar a linha.Como posso fazer iss que devo acrescentar a esse código?
pls help me
thanx
im trabalhando com VB6 e acesso.Eu tenho um botão de comando chamado "cmdDelete".Quando clico nesta linha de uma tabela de acesso deverá ser suprimida.a linha possui campos "bulbo", "status", "tipo" quando clique no botão todos os campos são eliminados.para que im usando o seguinte código:
ad1.Recordset.Filter = bulbo "= '" & dinningroom & "'"
ad1.Recordset.Fields ( "status"). Value = Excluir
ad1.Recordset.Fields (bulbo "). Value = Excluir
ad1.Recordset.Fields ( "type"). Value = Excluir
ad1.Recordset.Update
ad1.Recordset.Filter = adFilterNone
Esse código funciona corretamente e exclua as entradas da linha.mas o problema é, desde a sala de jantar "linha" está no meio da tabela após a exclusão, haverá uma linha vazia no meio da tabela.Eu não preciso ter linhas vazias.Eu preciso mudar as outras entradas, um por um até depois de apagar a linha.Como posso fazer iss que devo acrescentar a esse código?
pls help me
thanx