Option Compare Database
Option Explicit
Dim sqlbusqueda As String
Private Sub Comando47_Click() 'Buscar
Select Case Me.Marco13
Case 1 'autor
'fff
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "*' and " _
& "autorlibro like '*" & LTrim(Me.Texto40) & "*' and autorlibro like '*" & LTrim(Me.Texto42) & "'"
'ftt
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = True And IsNull(Me.Texto42) = True Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "*'"
'ftf
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = True And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "' and " _
& "autorlibro like '*" & LTrim(Me.Texto42) & "'"
'fft
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = True Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "' and " _
& "autorlibro like *'" & LTrim(Me.Texto40) & "'"
'ttt
If IsNull(Me.Texto38) And IsNull(Me.Texto40) And IsNull(Me.Texto42) Then
MsgBox "No has puesto ninguna condición"
End If
'tff
If IsNull(Me.Texto38) = True And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "like '*" & LTrim(Me.Texto40) & "* and " _
& "autorlibro like '*" & LTrim(Me.Texto42) & "'"
'ttf
If IsNull(Me.Texto38) = True And IsNull(Me.Texto40) = True And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "like '*" & LTrim(Me.Texto42) & "'"
'tft
If IsNull(Me.Texto38) = True And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = True Then sqlbusqueda = sqlbusqueda & "'*" & LTrim(Me.Texto40) & "*'"
Case 2 'titulo
'fff
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "*' and " _
& "titulolibro like '*" & LTrim(Me.Texto40) & "*' and titulolibro like '*" & LTrim(Me.Texto42) & "'"
'ftt
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = True And IsNull(Me.Texto42) = True Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "' and " _
& "titulolibro like '*" & LTrim(Me.Texto42) & "'"
'ftf
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = True And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "'" & LTrim(Me.Texto38) & "' and " _
& "titulolibro like '" & LTrim(Me.Texto42) & "'"
'fft
If IsNull(Me.Texto38) = False And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = True Then sqlbusqueda = sqlbusqueda & "like '" & Me.Texto42 & "'"
'ttt
If IsNull(Me.Texto38) And IsNull(Me.Texto40) And IsNull(Me.Texto42) Then
MsgBox "No has puesto ninguna condición"
End If
'tff
If IsNull(Me.Texto38) = True And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "like '*" & LTrim(Me.Texto40) & "* and " _
& "titulolibro like '*" & LTrim(Me.Texto42) & "'"
'ttf
If IsNull(Me.Texto38) = True And IsNull(Me.Texto40) = True And IsNull(Me.Texto42) = False Then sqlbusqueda = sqlbusqueda & "like '*" & LTrim(Me.Texto42) & "'"
'tft
If IsNull(Me.Texto38) = True And IsNull(Me.Texto40) = False And IsNull(Me.Texto42) = True Then sqlbusqueda = sqlbusqueda & "'*" & LTrim(Me.Texto40) & "*'"
End Select
DoCmd.OpenReport "busqueda_realizada", acViewPreview, , , , sqlbusqueda
End Sub