la idea es que genere un autonumérico mediante el programa...
trabajo en 3 capas para acceder a bd; presentación (forms), dominio (conecta presentación y persistencia) , persistencia (accede directamente a la bd);;; y miren el cód. q lo q no logro es que de un id 417 pase al 418 automaticamente...
presentación (frmingreso) luego de hacer el alta; insertaria el nuevo id en la caja de texto;
txtId.TEXT = CLDAFILIADO1.NuevoID.ID
en dominio; busca la de persistencia para el nuevo id del afiliado
Public Function NuevoID() As cAfiliado2
Set NuevoID = New cAfiliado2
NuevoID.ID = clpAfiliado2.NuevoID.ID
End Function
en persistencia,,,, seria donde estaría el error... supongo MIREN EL COD!
Public Function NuevoID() As cAfiliado2
'Agrego un nuevo id a cada afiliiado que voy ingresando
Set NuevoID = New cAfiliado2
Set rs = mBASE.abrirsnapshot("Afiliado2")
If Not rs.EOF And Not rs.BOF Then
rs.MoveLast
NuevoID.ID = Val(rs!ID) + 1
Else
NuevoID.ID = 1
End If
End Function
NO SE; QUEDA TRABADO Y CON ESTE COD NO PASA DEL 417 AL 418 ...
DESDE YA GRACIAS....
