acces vuprosche

imam slednia vupros: imam v acces 2 tablici v koito se vuvejdat danni i edna spravka koiato gi obobshtava. Spravlata pak e v tablichen vid kato kriteriite sa po koloni.
Iskam da napravia taka, che kato izvikam spravkata da mi se poiaviava combo box koito dda pita po koi kriterii/kolona da se sortira spravkata.

ako niakoi znae shte se radvam da spodeli

plagodaria

правиш форма, слагаш желания комбобокс
слагаш субформа
в субформата справката, сортирана по комбобокса
на onchange на комбобокса правиш ъпдейт на справката...

пиша по памет, така че може нещо да съм омотал, ама това е принципа....

[линк]

Човека като казва справка сигурно има впредвид Report.

В такъв случай може да направиш следното:

правиш форма (примерно да се казва Options), която се отваря в OnOpen на Report-a

формата съдържа combobox (примерно да се казва SortField) от който си избираш по кое поле да се сортира

в Query-то на което се базира Report-a слагаш поле SORT: Choose(Forms!Options!SortField, Поле1, Поле2)

Report-a го правиш сортиран по поле SORT

mnogo blagodaria za otgovora, no moje li malko, po podrobno da mi obiasnish kak da go napravia /stava duma naistina za report/, che mi e malko neiasen accesa

oshte vednuj blagodaria

ACCESS-а има един много хубав хелп...
отиваш на репорт - и четеш...
там пише и как се сортира, и как се филтрира и всичко...

другия вариант е да хванеш някое другарче да ти покаже, ама аз за съжаление съм далече от софия...

[линк]

Нямам възможност да обяснявам подробно - ето ти примерен код за Report-a:


Option Compare Database
Option Explicit

Private Sub Report_Close()
DoCmd.Close acForm, "Options"
End Sub

Private Sub Report_Open(Cancel As Integer)
Dim f As Form

DoCmd.OpenForm "Options", , , , , acWindowNormal
Set f = Forms!Options

f!SortField.Visible = True
f!SortField_.Visible = True
f!SortField.Top = f!Line1.Top
f!SortField_.Top = f!Line1.Top 'всичко това е защото в Options имам много параметрични полета и всяка справке си показва и подрежда само тези които и трябват

f!SortField.SetFocus

FORMRESULT = ""
FORMCLOSE = False 'това са две глобални променливи за управление на форми

Do
DoEvents
Loop Until FORMCLOSE

If FORMRESULT = "OK" Then
If IsNull(f!SortField) Then
Beep
DoCmd.Close acForm, "Options"
Cancel = True
Exit Sub
End If
DoCmd.OpenForm "Options", , , , , acHidden
Else
DoCmd.Close acForm, "Options"
Cancel = True
End If
End Sub

e tuk suvsem se obatachih

i mi dava greshki i e ludnica

Ако не си писал код на VisualBasic ще ти е доста трудно - не знам какво да ти препоръчам - рови се повече из Help-а и примерните бази данни, гледай там как са направени нещата... С всичко така се почва! За да станеш добър се иска много мерак и ровичкане!

az ne iskam da stavam dobur, a da si napravia reporta:(

imam si drugo prizvanie v jivota, a tova samo shte me ulesni