** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Se puede poner like en un Between?
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSe puede poner like en un Between?

 Responder Responder Página  <12
Autor
Mensaje
fjlaraa Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 16/Enero/2016
Localización: Masculino
Estado: Sin conexión
Puntos: 36
Enlace directo a este mensaje 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
Arriba
fjlaraa Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 16/Enero/2016
Localización: Masculino
Estado: Sin conexión
Puntos: 36
Enlace directo a este mensaje 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
Arriba
fjlaraa Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 16/Enero/2016
Localización: Masculino
Estado: Sin conexión
Puntos: 36
Enlace directo a este mensaje 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje 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.


Xavi, un minyó de Terrassa

Mi web
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable