Dim tablahispacientes As TableDef
Dim registrohispacientes As Recordset
Dim tablaenfermedades As TableDef
Dim registroenfermedades As Recordset
Dim tablatratamientos As TableDef
Dim registrotratamientos As Recordset
Dim tablamedicos As TableDef
Dim registromedicos As Recordset
Private Sub Form_Load()
Rem cargo los valores de la tabla hispacientes
Set tablahispacientes = dbclinica.TableDefs("Hispacientes")
Set registrohispacientes = tablahispacientes.OpenRecordset(dbOpenDynaset)
Rem cargo pacientes
tbarhispacientes.Buttons(1).Enabled = False
tbarhispacientes.Buttons(2).Enabled = False
tbarhispacientes.Buttons(3).Enabled = False
Rem cargo combo enfermedades
Dim slinea As String
Set tablaenfermedades = dbclinica.TableDefs("Enfermedades")
Set registroenfermedades = tablaenfermedades.OpenRecordset(dbOpenDynaset)
registroenfermedades.Sort = "[codeENF] Asc"
If Not registroenfermedades.EOF Then
cbbenfermedades.Clear
While Not registroenfermedades.EOF
slinea = Format(registroenfermedades.Fields("codeENF")) & Space(1) & Left$(registroenfermedades.Fields("nomENF"), 50)
cbbenfermedades.AddItem slinea
registroenfermedades.MoveNext
Wend
End If
cbbenfermedades.Text = cbbenfermedades.List(0)
registroenfermedades.Close
Rem cargo combo tratamientos
[b]Este es el unico que carga de todos[/b]
Set tablatratamientos = dbclinica.TableDefs("Tratamientos")
Set registrotratamientos = tablatratamientos.OpenRecordset(dbOpenDynaset)
registrotratamientos.Sort = "[codtTRAT] Asc"
If Not registrotratamientos.EOF Then
cbbenfermedades.Clear
While Not registrotratamientos.EOF
slinea = Format(registrotratamientos.Fields("codtTRAT")) & Space(1) & Left$(registrotratamientos.Fields("nomTRAT"), 50)
cbbtratamientos.AddItem slinea
registrotratamientos.MoveNext
Wend
End If
cbbtratamientos.Text = cbbtratamientos.List(0)
registrotratamientos.Close
Rem cargo el combo box de medicos
Set tablamedicos = dbclinica.TableDefs("Medicos")
Set registromedicos = tablamedicos.OpenRecordset(dbOpenDynaset)
registromedicos.Sort = "[codmMED] Asc"
If Not registromedicos.EOF Then
cbbmedicos.Clear
While registromedicos.EOF
slinea = Format(registromedicos.Fields("codmMED")) & Space(1) & Left$(registromedicos.Fields("nomMED"), 50) & Space(1) & Left(registromedicos.Fields("apelMED"), 50)
cbbmedicos.AddItem slinea
registromedicos.MoveNext
Wend
End If
cbbmedicos.Text = cbbenfermedades.List(0)
registromedicos.Close
End Sub
