EXCLUSAO ERRO SE TABELA VAZIA
Pessoal como posso melhorar
vi alguns comandos como recount ou if > 2
para conseguir verificar
meu problema é que se a tabela está vazia e a pessoa apertar pra excluir , da uma mensagem de erro de criterio que nao acho nada na tabela .... como sanir o ERRO
Dim sql As String
If MsgBox([Ô]Confirma Exclusão [Ô], vbQuestion + vbYesNo, [Ô] Gravação [Ô]) = vbYes Then
sql = [Ô]DELETE FROM buscar WHERE id=[Ô] & txtid.Text
conexao.Execute sql
MsgBox [Ô]Registro Excluido![Ô], vbInformation
End If
qual comando da certo coloca um IF abaixo do IF
se = vazio ---------------------------->>>>> o que exatamente verificar nessa linha ?
Msgbox ( Vazio )
else
sql = ....
endif
Obrigado
aBs
Marcelo Fazan
vi alguns comandos como recount ou if > 2
para conseguir verificar
meu problema é que se a tabela está vazia e a pessoa apertar pra excluir , da uma mensagem de erro de criterio que nao acho nada na tabela .... como sanir o ERRO
Dim sql As String
If MsgBox([Ô]Confirma Exclusão [Ô], vbQuestion + vbYesNo, [Ô] Gravação [Ô]) = vbYes Then
sql = [Ô]DELETE FROM buscar WHERE id=[Ô] & txtid.Text
conexao.Execute sql
MsgBox [Ô]Registro Excluido![Ô], vbInformation
End If
qual comando da certo coloca um IF abaixo do IF
se = vazio ---------------------------->>>>> o que exatamente verificar nessa linha ?
Msgbox ( Vazio )
else
sql = ....
endif
Obrigado
aBs
Marcelo Fazan
?????
desculpe colega não entendi direito
vamos ver se entendo, supondo que seja a primeira vez voce utilize a tabela e não exista nada nela ainda, e vc tente excluir dá erro, é isso?
desculpe colega não entendi direito
vamos ver se entendo, supondo que seja a primeira vez voce utilize a tabela e não exista nada nela ainda, e vc tente excluir dá erro, é isso?
Private Sub CmdExcluir_Click()
Dim sql As String
Dim rs As New ADODB.Recordset
If MsgBox([Ô]Confirma Exclusão [Ô], vbQuestion + vbYesNo, [Ô] Gravação [Ô]) = vbYes Then
Set rs = New ADODB.Recordset
sql = [Ô]Select * From Nturmas Order BY cod[Ô]
rs.Open sql, conexao, adOpenKeyset, adLockPessimistic
If rs.BOF = True And rs.EOF = True Then
MsgBox [Ô]Não existe registro para ser excluido. ![Ô]
Exit Sub
Else
sql = [Ô]DELETE FROM Nturmas WHERE cod=[Ô] & Txtcod.Text
conexao.Execute sql
MsgBox [Ô]Registro Excluido![Ô], vbInformation
[ô]limpar os campos do form
Txtcod.Text = [Ô][Ô]
TxtData.Text = [Ô][Ô]
TxtTurma.Text = [Ô][Ô]
TxtEntrada.Text = [Ô][Ô]
TxtSaida.Text = [Ô][Ô]
Lblaluno.Caption = [Ô][Ô]
Txtaluno.Text = [Ô][Ô]
If grid.Rows > 2 Then
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
Else
MSFlexGrid1.Rows = 1
End If
End If
CmdNovo.SetFocus
End If
End Sub
Dim sql As String
Dim rs As New ADODB.Recordset
If MsgBox([Ô]Confirma Exclusão [Ô], vbQuestion + vbYesNo, [Ô] Gravação [Ô]) = vbYes Then
Set rs = New ADODB.Recordset
sql = [Ô]Select * From Nturmas Order BY cod[Ô]
rs.Open sql, conexao, adOpenKeyset, adLockPessimistic
If rs.BOF = True And rs.EOF = True Then
MsgBox [Ô]Não existe registro para ser excluido. ![Ô]
Exit Sub
Else
sql = [Ô]DELETE FROM Nturmas WHERE cod=[Ô] & Txtcod.Text
conexao.Execute sql
MsgBox [Ô]Registro Excluido![Ô], vbInformation
[ô]limpar os campos do form
Txtcod.Text = [Ô][Ô]
TxtData.Text = [Ô][Ô]
TxtTurma.Text = [Ô][Ô]
TxtEntrada.Text = [Ô][Ô]
TxtSaida.Text = [Ô][Ô]
Lblaluno.Caption = [Ô][Ô]
Txtaluno.Text = [Ô][Ô]
If grid.Rows > 2 Then
MSFlexGrid1.RemoveItem (MSFlexGrid1.Row)
Else
MSFlexGrid1.Rows = 1
End If
End If
CmdNovo.SetFocus
End If
End Sub
Tópico encerrado , respostas não são mais permitidas