Error en búsqueda en Recordset
Publicado por Cm (68 intervenciones) el 05/11/2018 16:45:00
Se pretende que al poner un código como argumento, por ejemplo DRT6 o sólamente la D, se debiera mostrar si hay o no registros de ese tipo. Pero no funciona, creo que está todo bien ajustado...pero no. ¿Alguien tiene idea de por qué?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Function VerificaProducto(ByVal Codigo, ByVal Familia, ByVal Proveedor) As String
Dim Horno As Database
Dim Panes As Recordset
Set Horno = CurrentDbIf Proveedor = "Cuetara" Then
Set Panes = Horno.OpenRecordset("almacenpanes", dbOpenDynaset)
If Familia Like "Integral" ThenPanes.FindFirst "codigo = ' " & "*" & Codigo & "*" & " ' and activo = true and tipo = 'Hidratos' and familia LIKE '*'&'INTEGRAL'&'*'"
Else
Panes.FindFirst "codigo = ' " & "*" & Codigo & "*" & " ' and activo = true and tipo = 'Hidratos' and familia NOT LIKE '*'&'INTEGRAL'&'*'"
End If
End If
If Panes.NoMatch ThenMe!NombreProducto = "CODIGO NO PRESENTE EN LAS TABLAS"
VerificaProducto = "producto no encontrado"
Else
VerificaProducto = "producto encontrado"
End If
End Function
Valora esta pregunta
0