Hola.
He realizado los cambios como me dijiste pero nada, sigue haciendo lo mismo.
A ver, si la bbdd está vacía da ese error pero si esto
Cita: 'Mostramos el siguiente ID que corresponde al usuario que estamos reguistrando
BD.Rellena("SELECT MAX(Id) FROM moviles", "IDF")
If BD.Dt.Tables("IDF").Rows.Count <> 0 Then
TbID.Text = (CStr(CInt(BD.Dt.Tables("IDF").Rows(0).Item(0)) + 1))
Else
TbID.Text = "1"
End If
Fila = -1
'Fin muestra del ID
Lo cambio por esto7
Cita: 'Mostramos el siguiente ID que corresponde al usuario que estamos reguistrando
BD.Rellena("SELECT MAX(Id) FROM moviles", "IDF")
If BD.Dt.Tables("IDF").Rows.Count = 0 Then
TbID.Text = (CStr(CInt(BD.Dt.Tables("IDF").Rows(0).Item(0)) + 1))
Else
TbID.Text = "1"
End If
Fila = -1
'Fin muestra del ID
Ya no da error, introduce bien los datos en la bbdd y funciona correctamente pero!!
Al cerrar el programa y abrirlo de nuevo falla, el ID ya no aparece el que debería si no el "1" cuando a lo mejor debería ser el 40 porque hay 39 artículos dentro de la bbdd.
Pero si en la bbdd antes de usar el programa por primera vez yo inserto un artículo directamente en access y lo dejo así
Cita: 'Mostramos el siguiente ID que corresponde al usuario que estamos reguistrando
BD.Rellena("SELECT MAX(Id) FROM moviles", "IDF")
If BD.Dt.Tables("IDF").Rows.Count <> 0 Then
TbID.Text = (CStr(CInt(BD.Dt.Tables("IDF").Rows(0).Item(0)) + 1))
Else
TbID.Text = "1"
End If
Fila = -1
'Fin muestra del ID
Todo va correctamente y nunca falla pero no es plan de regalar un programa y que tengan que hacer esa chapuza pienso yo.
No se si me explico
a veces me lio un poco.