error en codigo de visual
hola amigos en un boton tengo este codigo:
Private Sub añadirregistro_Click()
....
Dim registro As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open cadenaconexion
Set registro = New ADODB.Recordset
registro.CursorType = adOpenKeyset
registro.LockType = adLockOptimistic
campo = \"Exp_Alero\"
tabla = \"EXPEDIENTES ALERO\"
registro.Open \"Select Max(\" & campo & \") as b From \" & tabla, conn
If registro.EOF Or registro.BOF Then
Else
Expediente = CInt(registro.Fields(0).Value) + 1
End If
registro.Close
conn.Close
pero a la hora de ejecutarlo me da errores en la linea del : Private Sub añadirregistro_Click()
y se pone en azul en:
Dim registro As ADODB.Recordset
la accion del boton es k al darle me sume uno del ultimo valor k hay en el campo de una tabla k ese campo es tipo texto por eso me lo tengo k pasar a numerico y sumarle uno.
no se si el codigo para lo k kiero esta bien o no .
si alguien me exa una mano se lo agradeceria weno y a todos os lo agradezco ya de antemano.
saludos
Private Sub añadirregistro_Click()
....
Dim registro As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open cadenaconexion
Set registro = New ADODB.Recordset
registro.CursorType = adOpenKeyset
registro.LockType = adLockOptimistic
campo = \"Exp_Alero\"
tabla = \"EXPEDIENTES ALERO\"
registro.Open \"Select Max(\" & campo & \") as b From \" & tabla, conn
If registro.EOF Or registro.BOF Then
Else
Expediente = CInt(registro.Fields(0).Value) + 1
End If
registro.Close
conn.Close
pero a la hora de ejecutarlo me da errores en la linea del : Private Sub añadirregistro_Click()
y se pone en azul en:
Dim registro As ADODB.Recordset
la accion del boton es k al darle me sume uno del ultimo valor k hay en el campo de una tabla k ese campo es tipo texto por eso me lo tengo k pasar a numerico y sumarle uno.
no se si el codigo para lo k kiero esta bien o no .
si alguien me exa una mano se lo agradeceria weno y a todos os lo agradezco ya de antemano.
saludos