Usas solo una tabla (Materiales)?
Crea un nuevo campo en la tabla "Materiales" que se llame "mDisponible" que podrá tener uno de dos valores: "S" (si disponible) y "N" (no disponible), entonces:
Código vb:
Ver originalPrivate Sub Form_Load()
abrirConexion
Set rs = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select Nombre,Medidas from Materiales WHERE mDisponible='S' ", cnn, adOpenStatic, adLockOptimistic
rs2.CursorLocation = adUseClient
rs2.Open "select Nombre,Medidas from Materiales WHERE mDisponible='N' ", cnn, adOpenStatic, adLockOptimistic
DataGrid1.AllowUpdate = False
DataGrid2.AllowUpdate = False
Call CargarDataGrid(DataGrid1)
Call CargarDataGrid(DataGrid2)
End Sub
Ahi te cargará el Datagrid1 (este te mostrará los materiales disponibles) y el Datagrid2 (este solo te mostrará los materiales ya agregados), entonces en el boton que agregas los componentes:
Código vb:
Ver original'Imagino que tienes un ID del material...
CNN.Execute "UPDATE Materiales set mDisponible='N' where ID_MATERIAL=" & ID_MATERIAL & " and mDisponible='S'"
Call CargarDataGrid(DataGrid1)
Call CargarDataGrid(DataGrid2)
Intenta a ver...