Buenas!
Dispongo de una bd en access con tablas y consultas... en vb realizo un form con sstab, funciona correctamente, en uno de los sstab tengo asociados 3 datagridview, 3 adodc y 1 cmd y el menu correspondiente.
1 (1)datagrid ligado a un adodc y este a la tabla contribuyente
1 (2)datagrid ligado a un adodc y este a la tabla bus
1 (3)datagrid ligado a un adodc y este a una consulta contribuyentebus
el boton siguente lo que hace es que al dar de alta un contribuyente, (1) datagrid, y poner sus datos, nombre apellidos... posteriormente pulsando en un registro del (2) datagrid se copian los datos de este a los del 1 datagrid, con lo qual me queda en esa tabla los datos del contribuyente mas los datos del bus que utiliza.
Esa es la funcion del (3)datagrid que esta ligado a la consulta y no a una tabla, en dicha consulta estan todos los contribuyentes y el bus que utilizan.
Claro que cada bus tiene un numero de plazas, como puedo hacer para que no me deje dar de alta mas contribuyentes si el bus seleccionado esta completo?
Dispongo del siguiente codigo:
Private Sub cmdCopiar_Click()
'Dim Bus As String
'Dim Capacidad As Integer
'Dim Datos As Integer
'Dim Filas As Recordset
'Set Filas = New Recordset
'Bus = DataGridContBPR.Columns(3).Text
'Capacidad = DataGridContBPR.Columns(4).Text
'Datos = Filas.RecordCount
'Select Case Bus
' If Datos < Capacidad Then
' Bus
DataGridContribuyente.Columns(3).Text = DataGridBPR.Columns(0).Text
' Ruta
DataGridContribuyente.Columns(4).Text = DataGridBPR.Columns(2).Text
' Trayecto
DataGridContribuyente.Columns(5).Text = DataGridBPR.Columns(5).Text
' Escuela
DataGridContribuyente.Columns(6).Text = DataGridBPR.Columns(6).Text
' Parada
DataGridContribuyente.Columns(7).Text = DataGridBPR.Columns(3).Text
' Descripcion
DataGridContribuyente.Columns(8).Text = DataGridBPR.Columns(4).Text
' Else
' MsgBox "Bus Compleo"
'End Select
End Sub
Gracias por los aportes.