Filtru dupa data calendaristica

Ce este nou in Microsoft Access 2010?
Informatii despre cum se utilizeaza Microsoft Access 2010.
Baze de date, Interogari, Formulare, Rapoarte, etc
Închis
viorel69
Mesaje: 34
Membru din: Joi Aug 07, 2014 8:01 am

Filtru dupa data calendaristica

Mesaj de viorel69 » Lun Oct 03, 2016 3:56 pm

Va salut. Mai jos am sa arat un cod VBA.

Private Sub fi_GotFocus()
Dim fd As FileDialog
Dim FileName As String
Set fd = Application.FileDialog(msoFileDialogOpen)
'the number of the button chosen
Dim FileChosen As Integer
FileChosen = fd.Show
fd.Title = "Alege fisierul dorit"
fd.InitialFileName = "X:\BD\Scanari\"
fd.InitialView = msoFileDialogViewList
fd.Filters.Clear
fd.Filters.Add "Scanari", "*.jpg"
fd.FilterIndex = 1
fd.ButtonName = "Choose this file"
If FileChosen <> -1 Then
MsgBox "Fisierul nu e de gasit."
Else
FileName = fd.SelectedItems(1)
Me.fi = FileName
DoCmd.RunCommand acCmdEditHyperlink
End If
End Sub


Ei bine, când mi se deschide in Windows acea sectiune de unde eu imi aleg o imagine, vreau sa fac o filtrare automata in VBA sa mi le arate doar pe cele de azi.
Momentan o fac cu mousul. Unde imi scie data, bifez "azi" ca e in romana, si mi le arata doar pe cele de azi.
Chestia asta o vreau sa o fac din VBA si nu gasesc formula de filtrare.

Tzica
Mesaje: 639
Membru din: Sâm Aug 11, 2012 10:52 pm

Re: Filtru dupa data calendaristica

Mesaj de Tzica » Joi Oct 06, 2016 12:26 pm

Doar o simpla parere.
Ca si metoda clasica, ar trebui sa avem un tabel in care sa avem ca si campuri NumeDocument, DataDocument , Link, Observatii (optional), etc...
Documentele respective fiind stocate intr-un folder, nu ramane decat sa introducem link-ul catre document, in campul aferent. Iaca o solutie:
InsertHyperlink
(fireste ca o putem face si manual )
Avand tabelul constituit, se poate face o interogare , speculand campul DataDocument.

Închis

Înapoi la “Intrebari despre Access 2010”