Impedir que o cabeçalho da folha de dados seja excluído

Senhores

Tenho um formulário, onde possui um SubFormulario no modo Folha de dados.

Nesse modo o usuário tem a facilidade de colar no subformulario algumas informações que ele extrai do excel.

Entretanto, quando ele seleciona as colunas e quer apagar as informações, o cabeçalho do subformulario também é excluído... impedido novas inclusões.

Algum sabe de alguma forma de quando excluir as informações na folha de dados não exclua o cabeçalho?

no aguardo

Obrigado

Hazael

Amigo, o que da pra fazer é ao pressionar o Delete, vc limpar via SQL os dados, e desativar o DELETE...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
'Coloque aqui a Consulta para Excluir os dados que tiverem no FOrmulario
MsgBox "Pressionou Delete", vbInformation
'Impede que seja excluido o Campo
KeyCode = 0
End If
End Sub

Obs: O Evento do Subformulario, Visualizar Teclas, tem que estar = SIM. (Ultimo evento do Subformulario)

ok - Funcionou perfeitamente... voce é o cara!!!! valeu mesmo....

mas apareceu outro problema... pois o comando que coloquei apaga a tabela toda..

Tem como apagar somente a linha selecionada ou a coluna selecionada?

sabe de algum comando que pode me ajudar?

A linha selecionada, basta vc colocar no SQL um Criterio (WHERE) para um campo Unico, como por exemplo a chave primaria dessa tabela...

Agora a coluna... Bom, aee ja muda um pouco, mas acredito ser possível...

Com o comando (Screen.ActiveControl.Name) Obteremos o Nome do Campo que esta selecionado... (deixe o nome do Campo com mesmo nome do Campo da tabela) entao, com o nome do campo acredito que da pra rodar uma consulta SQL e limpar todos os dados desse registro.

Ex:

Coloque assim, e faça um teste...

Código:

If KeyCode = vbKeyDelete Then
Dim F As String
F = Screen.ActiveControl.Name
CurrentDb.Execute "UPDATE tb1 SET " & F & " = Null"
Me.Recalc
KeyCode = 0
End If

tb1 é o nome da tabela
Selecione uma Coluna e pressione Delete.

Ola, Hazael como anda sua dúvida?

Se foi solucionada, marque o tópico como resolvido!

Veja como Fazer