Hola! Tengo una duda: Tengo un boton de eliminar que trabaja sobre listview. Al hacerle click si no hay nada salta un mensaje. Si hay datos, abre un inputbox para eliminar. Me gustaria saber como se haria para cuando se introduce en el inputbox letras en vez de numeros salga un error, o cuando no exista ese registro. el codigo que llevo es este:
' Elimina el registro actual seleccionado
'''''''''''''''''''''''''''''''''''''''''''''
Private Sub Eliminar()
Dim nc As String
nc = InputBox(" Escriba el número de cliente a eliminar. Esta acción es irreversible. ", " Eliminar ")
If (lv.ListItems.Count = 0) Then
MsgBox "No hay ningún registro para eliminar", vbInformation
Exit Sub
End If
If ([Aqui es lo que no se que tengo que poner]) Then
MsgBox "El Código de Cliente introducido no existe o no es válido."
Exit Sub
End If
'Ejecuta la sentencia SQL de eliminación
cnn.Execute "DELETE FROM Clientes WHERE nc = '" & nc & "'"
' refresca el recordset
rs.Requery 1
' vuelve a cargar los datos en el ListView
Call CargarListView(lv, rs)
End Sub
Un Saludo.
