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.
Filtru dupa data calendaristica
Re: Filtru dupa data calendaristica
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.
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.