SoloCodigo

Hola

usando el tabstrip que te trae el Microsoft Windows Common Controls 6.0...

Como sé, al pinchar en una pestaña en el evento TabStrip_click, en el nº de pestaña a pinchado?

Si en la pestaña 1, tengo alumnos, y en la 2 tengo profesores. Si estoy viendo alumnos y pincho en profesores. Q tengo que poner "a mano" todos los elementos de alumnos invisibles y todos los de profesores visibles?

Por cierto, la putada de todo esto es que yo tenia un programa importante con ventanas, y ahora me dicen que lo haga con pestañas, menudo trabajo de chinos :S

Gracias

me esta dando problemas al añadir un registro, creo que el codigo deberia de ser este:
---------------------------------
       Dim variable_SQL As String
        variable_SQL = "INSERT INTO MATRICULA2 (campo1, campo2, campo3) values (88, 99, true);"
       
        adoMatricula.RecordSource = variable_SQL
        adoMatricula.Refresh
----------------------------------------


error me sale en 'adoMatricula.RecordSource = variable_SQL'
y me dice que: se requiere un objeto

SOCORRO!!!

hola.

tengo un boton de 'nuevo alumno' con su tipico:
adoAlumno.Recordset.AddNew

Me funciona siempre y cuando no haya borrado el ultimo registro desde el programa. El error que me da:
error '-2147217842(80040e4e)' Operacion cancelada. un mensaje indescriptivo y sin ayuda.

Lo curioso es que el programa me funciona cuando la base de datos está en blanco y le doy al 'Añadir alumno'. Con lo cual el error sólo surge en el caso anterior

Gracias


OS PEGO EL CÓDIGO, POR SI LAS MOSCAS
----------------------------
Private Sub cmdNuevo_Click()
   adoAlumno.Recordset.AddNew 'AQUI ES DONDE DA ERROR
   NuevoAlumno
End Sub


Public Function BorrarAlumno()
   Dim esElPrimero As Boolean

   If frmAlumno.adoAlumno.Recordset.AbsolutePosition = 1 Then esElPrimero = True


   frmAlumno.adoAlumno.Recordset.Delete
   frmAlumno.adoAlumno.Recordset.Update

   'Si borra el único registro existente deshabilitamos el botón borrar y la barra de navegación
   If (frmAlumno.adoAlumno.Recordset.RecordCount = 0) Then
      'Chapuza necesaria para que al borrar el último registro y añadir uno nuevo no me diga
'error '-2147217842(80040e4e)' Operacion cancelada
      'Unload frmAlumno
      'frmAlumno.Show

      NoHayRegistros
   Else
      If esElPrimero Then
         frmAlumno.adoAlumno.Recordset.MoveFirst
      Else
         frmAlumno.adoAlumno.Recordset.MovePrevious
      End If
   End If

   ActualizarDisplay
End Function