Esto es para el amigo nicop datareport

morillin
07 de Abril del 2004
Aqui te mendo el codigo
Private Sub CmdReporte_Click()
Dim iRecord As Integer
Dim SqlQue As String
SqlQue = " "
'SqlQue = "SELECT * FROM Personal Where Grupo = '" & TxtGrupo & "' ORDER BY FICHA"
SqlQue = "SELECT * FROM Personal Where Grupo = '" & TxtGrupo & "' and STATUS <> 'INACTIVO' ORDER BY FICHA"
DataAccess.LisPersonal
If DataAccess.rsLisPersonal.State = 1 Then
DataAccess.rsLisPersonal.Close
DataAccess.rsLisPersonal.Source = SqlQue
DataAccess.rsLisPersonal.Open
Else
DataAccess.rsLisPersonal.Source = SqlQue
DataAccess.rsLisPersonal.Open
End If

Sipp005r.Refresh
DataAccess.rsLisPersonal.Requery
If DataAccess.rsLisPersonal.RecordCount > 0 Then
Sipp005r.Show
Else
MsgBox "..No existen Empleados Para el grupo : " & Trim(TxtGrupo)
End If
DataAccess.rsLisPersonal.Close
TxtGrupo.Text = ""
End Sub
Por favor revisa y me informas
Saludos Jose MOrillo Desde Venezuela
Pd. La Conexion solo la utilizo para hacer reportes ya que trabajo con DAO