access vba

[R Dmitry]

Сообщение от eutelg

да, сорри. перепутал
где формирование самого запроса по конкретным параметрам: дата рождения и т.п. или эта строчка угадывает все мои мысли насчет того какие пеараметры мне надо задать при формировании запроса?

посмотрите тут как можно сделать и формировать строку запроса

Тынц

[eutelg]

пасыба учытэл

[IgorGO]

где формирование самого запроса по конкретным параметрам: дата рождения и т.п.

вместо написанного в примере напишите свой SELECT укажите что, как, из каких таблиц выбирать. написать сложный SELECT приблизительно тоже, что написать сложную формулу в экселе, как написать макрос в одну строку.
вот этого за Вас никто не сделает... дерзайте!

[gluk_fm]

Я когда-то давно писал что-то такое только более сложное тут есть перебор и создание папок, проверка существует ли в данной папке такой файл (если есть удаляет), копирует туда образец, создаёт таблицу по параметрам отбора, экспортирует данные из аццесс в скопированный файл и запускает макросы в данном файле для отработки экспортированных данных:
Sub tt()
Sub proc_Rateil_2003()
'rabochiy kod ispolzuetsya 2
Dim db As Database
Set db = CurrentDb
Dim fs As FileSystemObject
Dim tFolder As Folder, tFile As File, papka As String
time_1 = Time
''óêàæèòå îñíîâíîé ïóòü äëÿ ðàñïðåäåëåíèå ñòðóêòóðû ïàïîê
pt = "R:\"

'1 parametr perebora otdeleniya
Set b = db.OpenRecordset("SELECT [IN].Kod_spBranch, otdeleniya_po_regionam.name_papki " & _
"FROM otdeleniya_po_regionam INNER JOIN [IN] ON otdeleniya_po_regionam.kod_sp_branc h = [IN].Kod_spBranch " & _
"GROUP BY [IN].Kod_spBranch, otdeleniya_po_regionam.name_papki, otdeleniya_po_regionam.jndelenie " & _
"HAVING (((otdeleniya_po_regionam.jndelenie )<100));")

'2 parametr perebora
Set r = db.OpenRecordset("SELECT otdeleniya_po_regionam.name_papki, otdeleniya_po_regionam.region_txt " & _
"FROM otdeleniya_po_regionam " & _
"WHERE (((otdeleniya_po_regionam.kod_sp_br anch) > 68)) " & _
"GROUP BY otdeleniya_po_regionam.name_papki, otdeleniya_po_regionam.region_txt;" )

dat = "15.05.2011"
p_dat = Mid(dat, 7, 4) & "\" & Mid(dat, 4, 2) * 1 & "\"
'-------------------------------------------------------------------------------------------------------
'recordset
b.MoveFirst
Do Until b.EOF
'parametry
b1 = b![Kod_spBranch]
p1 = b![name_papki]
n4 = "*"
'
papka = pt & p1 & "\FR\" & p_dat
'sozdnie directoriy
Call CreateNewDirectory(papka)
DoCmd.SetWarnings False

fal = "MIS_Retail_" & Mid(dat, 7, 4) & "_" & Mid(dat, 4, 2) & ".xls"
fal1 = papka & fal
'proverka est ly takoy fail i esli est del
Set fs = CreateObject("Scripting.FileSystemO bject")
papka_1 = papka & "\"
Set tFolder = fs.GetFolder(papka_1)
For Each tFile In tFolder.Files
If fal1 = tFile Then
Kill tFile
End If
Next
'copy fail directori
FileCopy "T:\budget\Razbivki\t\macros\t_blan k2003.xls", papka & "\" & fal

'sozd table from parametr
db.Execute ("SELECT [IN].* INTO t_in " & _
"FROM [IN] " & _
"WHERE ((([IN].Kod_spBranch)" & b1 & ") AND (([IN].Region)Like """ & p1 & """));")

'import
DoCmd.TransferSpreadsheet acImport, 8, "t_in", fal
Loop


'na vsyzkiy sluchay zapusk makrosov Excel iz VBA
Set xls1 = GetObject("C:\Otchety\MIS\t\macros\ m1.xls ")
Set xls = GetObject("C:\Otchety\MIS\t\macros\ MIS_Corp_blank2003.xls ")
xls.Application.Run "m1.xls!end_obn_22003"
xls.Application.Run "MIS_Corp_blank2003.xls!Reset_filte rs_main"
xls.Save
xls1.Application.Quit


Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String
iFlag = 0
sPath = NewDirectory
nl = Right(sPath, Len(sPath))
If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If
iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
iCounter = iCounter
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub

[eutelg]

ни черта себе. респект. думаю мне настолько сложно не надо

[IgorGO]

вот этого за Вас никто не сделает...

не хорошо цитировать себя, но...варианты есть - это могут сделать за Вас - в обмен на деньги. это так, для полноты информации. поищите в инете, SELECTу много статей посвящено. сформировать простенький запрос - довольно элементарно.