milosk
13.01.10,20:07
Ahojte poradaci,
chcem sa spytat, ci mi niekto vie poradit, potrebujem v Accessi doriesit nasledovnu vec.
Mam hotovy formular, v ktorom si uzivatel vyplna udaje a pri jednom poli potrebuje, aby mi vyskocili poziadavky v dalsom poli podla toho, aku hodnotu vybral (rozbalovacie okno) v predchadzajucom poli.
priklad:
ak v poli 1 vybral hodnotu 1, aby mu pole 2 ponuklo na vyber moznosti 1, 2, 3,
a ak by vybral v poli 1 hodnotu 2, tak by mu pole 2 ponuklo moznosti A, B, C, D, E, ....
Da sa to neakym nie moc narocnym sposobom vyriesit v accessi????
velka vdaka za kazdu pomoc
chcem sa spytat, ci mi niekto vie poradit, potrebujem v Accessi doriesit nasledovnu vec.
Mam hotovy formular, v ktorom si uzivatel vyplna udaje a pri jednom poli potrebuje, aby mi vyskocili poziadavky v dalsom poli podla toho, aku hodnotu vybral (rozbalovacie okno) v predchadzajucom poli.
priklad:
ak v poli 1 vybral hodnotu 1, aby mu pole 2 ponuklo na vyber moznosti 1, 2, 3,
a ak by vybral v poli 1 hodnotu 2, tak by mu pole 2 ponuklo moznosti A, B, C, D, E, ....
Da sa to neakym nie moc narocnym sposobom vyriesit v accessi????
velka vdaka za kazdu pomoc
PaloPa
14.01.10,07:50
Vo vlastnostiach prvého combo boxu (v priloženom príklade cmb_Zdroj)
treba zadefinovať vlastnosť After Update (Event Procedure), v ktorej sa nastavia vlastnosti druhého comba:
Private Sub cmb_Zdroj_AfterUpdate()
If Me.cmb_Zdroj.Value = 1 Then
Me.cmb_Ciel.Value = Null
Me.cmb_Ciel.RowSource = "1;2;3"
ElseIf Me.cmb_Zdroj.Value = 2 Then
Me.cmb_Ciel.Value = Null
Me.cmb_Ciel.RowSource = "A;B;C"
End If
End Sub
Predpoklad: Zdroj hodnôt pre combo (Row Source Type) je Value List.
Častejšie sa však požíva typ "Table/Query" a vtedy sa zadá odkaz na príslušnú tabuľku alebo dotaz (query).
Palo
treba zadefinovať vlastnosť After Update (Event Procedure), v ktorej sa nastavia vlastnosti druhého comba:
Private Sub cmb_Zdroj_AfterUpdate()
If Me.cmb_Zdroj.Value = 1 Then
Me.cmb_Ciel.Value = Null
Me.cmb_Ciel.RowSource = "1;2;3"
ElseIf Me.cmb_Zdroj.Value = 2 Then
Me.cmb_Ciel.Value = Null
Me.cmb_Ciel.RowSource = "A;B;C"
End If
End Sub
Predpoklad: Zdroj hodnôt pre combo (Row Source Type) je Value List.
Častejšie sa však požíva typ "Table/Query" a vtedy sa zadá odkaz na príslušnú tabuľku alebo dotaz (query).
Palo
milosk
14.01.10,10:14
dakujem PaloPa za info, dnes vecer to vyskusam....
mam este jednu otazku. Ak mam vyplnacie textove pole, viem k nemu pridat text, ktory by sa ukazoval len vtedy, ked sa postavim kurzorom na ten text? nieco ako poznamka v exceli....
vdaka
mam este jednu otazku. Ak mam vyplnacie textove pole, viem k nemu pridat text, ktory by sa ukazoval len vtedy, ked sa postavim kurzorom na ten text? nieco ako poznamka v exceli....
vdaka
PaloPa
14.01.10,10:33
dakujem PaloPa za info, dnes vecer to vyskusam....
mam este jednu otazku. Ak mam vyplnacie textove pole, viem k nemu pridat text, ktory by sa ukazoval len vtedy, ked sa postavim kurzorom na ten text? nieco ako poznamka v exceli....
vdaka
Ano, je to vlastnosť "ControlTipText" (záložka Other), ale nezobrazí sa hneď, ale až cca za sekunku, ak sa nad prvkom postaví kurzor myši.
Niekedy je lepšie dať info do stavového riadku (StatusBarText)
P.
doplnok:
A ešte lepšie použiť vlastnosti GotFocus a LostFocus príslušného prvku.
Private Sub cmb_Zdroj_GotFocus()
Me.Info_Label.Caption = "hodnoty nasledovného prvku:" _
& vbCrLf & "1: 1,2,3,..." _
& vbCrLf & "2: A,B,C,..."
End Sub
Private Sub cmb_Zdroj_LostFocus()
Me.Info_Label.Caption = "..."
End Sub
mam este jednu otazku. Ak mam vyplnacie textove pole, viem k nemu pridat text, ktory by sa ukazoval len vtedy, ked sa postavim kurzorom na ten text? nieco ako poznamka v exceli....
vdaka
Ano, je to vlastnosť "ControlTipText" (záložka Other), ale nezobrazí sa hneď, ale až cca za sekunku, ak sa nad prvkom postaví kurzor myši.
Niekedy je lepšie dať info do stavového riadku (StatusBarText)
P.
doplnok:
A ešte lepšie použiť vlastnosti GotFocus a LostFocus príslušného prvku.
Private Sub cmb_Zdroj_GotFocus()
Me.Info_Label.Caption = "hodnoty nasledovného prvku:" _
& vbCrLf & "1: 1,2,3,..." _
& vbCrLf & "2: A,B,C,..."
End Sub
Private Sub cmb_Zdroj_LostFocus()
Me.Info_Label.Caption = "..."
End Sub