Función para calcular el Maximo registro de una tabla
Publicado por Miguel Arce Nuñez (281 intervenciones) el 28/04/2016 19:19:18
Tengo esta función.
La aplicación que tengo trabaja con seis formularios con sus respectivas tablas cada uno.
Con cinco de las tabla dicha función calcula el valor del último registro sin ningún problema y solo en una el valor siempre me da cero, bien sea al inicio cuando esta vacía, o teniendo registros cargados. La tabla la he borrado y hecho nueva, pero sigue dando error.
Podría alguno decirme la razón de este error.
Gracias y un saludo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function MaximoReg(ByVal campo As String, ByVal mitabla As String) As Integer
Try
OpenDatos()
Dim SQL As String = "Select Max(" & campo & ") From " & mitabla & " Order By " & campo
Dim cmd As New OleDb.OleDbCommand(SQL, cn)
Dim valor As Integer = CInt(cmd.ExecuteScalar)
If valor = 0 ThenReturn CInt(1)
Else
Return CInt(valor + 1)
End If
Catch ex As Exception
MsgBox("Existe algún problema de datos con la tabla de " & mitabla & ".Compactar y Reparar")
Finally
CloseDatos()
End Try
End Function
La aplicación que tengo trabaja con seis formularios con sus respectivas tablas cada uno.
Con cinco de las tabla dicha función calcula el valor del último registro sin ningún problema y solo en una el valor siempre me da cero, bien sea al inicio cuando esta vacía, o teniendo registros cargados. La tabla la he borrado y hecho nueva, pero sigue dando error.
Podría alguno decirme la razón de este error.
Gracias y un saludo
Valora esta pregunta
0