Se puede poner like en un Between? |
Responder | Página <12 |
Autor | |
fjlaraa
Nuevo Unido: 16/Enero/2016 Localización: Masculino Estado: Sin conexión Puntos: 36 |
Enviado: 30/Mayo/2020 a las 04:04 |
Asi quedo mi solucion, pero asi como dijiste que tenia que convertin la fecha removiendo el tiempo y asi podria buscarla.
Muchisimas gracias por todo tu apoyo te pongo el codigo Dim db As Database, tb As Recordset Set db = DBEngine.Workspaces(0).Databases(0) Set tb = db.OpenRecordset("CuentaMex") 'Comienza tb.MoveFirst With tb .Index = "cFecha" esvar = .Bookmark .Seek "=", Format([anaFecha], "mm/dd/yyyy") If .NoMatch Then MsgBox ("No Encontro Este Fecha " & anaFecha) '----> Start Procedure to Import Excel File Dim stDocName As String stDocName = "C:\Cta\CuentaMex.xls" '----->Trasfer CSV or TXT to Table 'DoCmd.TransferText acImportDelim, , _ "TempCuentaMEX", "C:\Cta\temp\CuentaMEX.csv", True DoCmd.TransferSpreadsheet acImport, 8, _ "tempCuentaMex", stDocName, True 'MsgBox ("The database was updated absences from the Excel file" + stDocName) 'Dim rst As Recordset 'Set rst = CurrentDb.OpenRecordset(Name:="TempCuentaMEX", Type:=RecordsetTypeEnum.dbOpenDynaset) 'With rst ' Fechaa = !FECHA 'End With CurrentDb.Execute "UPDATE TempCuentaMEX SET Fecha = Int(Fecha)" 'MsgBox ("Se a Transferido La Informacion" & " " & Fechaa) If MsgBox("Las Cuentas con fecha: " & " " & Fechaa & " quiere hacer la Transferirla?", vbYesNo + vbQuestion) = vbYes Then 'DoCmd.TransferText acImportDelim, , _ "CuentaMEX", "C:\Cta\temp\CuentaMEX.csv", True DoCmd.TransferSpreadsheet acImport, 8, _ "CuentaMex", stDocName, True MsgBox ("Las Cuentas con Fecha " & Fechaa & " han sido Trasferidas") Else MsgBox ("La trasferencia de Cuentas con Fecha " & Fechaa & " fue Cancelada") End If 'rst.Close DoCmd.DeleteObject acTable, "TempCuentaMEX" Else MsgBox ("Se Encontro La fecha " & anaFecha) End If End With tb.Close CurrentDb.Execute "UPDATE CuentaUSA SET Fecha = Int(Fecha)" CurrentDb.Execute "UPDATE CuentaMex SET Fecha = Int(Fecha)" db.TableDefs.Refresh For i = 0 To db.TableDefs.Count - 1 If db.TableDefs(i).Name = "Name AutoCorrect Save Failures" Then 'La tabla EXISTE MsgBox ("La tabla: Name AutoCorrect Save Failures Existe sera removida") DoCmd.DeleteObject acTable, "Name AutoCorrect Save Failures" Exit For End If Next i |
|
Ing. Franky Lara "Cisco"
Que la fuerza te acompane |
|
fjlaraa
Nuevo Unido: 16/Enero/2016 Localización: Masculino Estado: Sin conexión Puntos: 36 |
Enviado: 30/Mayo/2020 a las 04:05 |
solicitando que sea cerrado por algún moderador/*admisnistrador.
Quedo resulto mi problema Muchisimas Gracias
|
|
Ing. Franky Lara "Cisco"
Que la fuerza te acompane |
|
fjlaraa
Nuevo Unido: 16/Enero/2016 Localización: Masculino Estado: Sin conexión Puntos: 36 |
Enviado: 30/Mayo/2020 a las 04:10 |
solo estoy registrando una busqueda de un campo ya sea fecha o ya sea una condicion no por rangos
en un between no se puede generar ya que marca error de sintasis asi que primero busco una fecha determinada y si dejo el espacio en blanco el like me permitira aceptar en blanco todos los registros no importando la fehca y el siguiente campo podria poner buscar algo que deceo sin importarme una fecha o al contrario buscar una fecha no importando un recor en especifico pero validando cada campo no uno al mismo tiempo con el between. |
|
Ing. Franky Lara "Cisco"
Que la fuerza te acompane |
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14720 |
Enviado: 30/Mayo/2020 a las 10:25 |
Asumiré que ese montón de palabras sin un solo signo de puntuación ni acento es una explicación, por lo cierro el hilo.
|
|
Responder | Página <12 |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |