Vyhladavanie v Access 2007

"Rady nielen z Porady" - Tipy a triky, "how-to ...", nápady a riešenia k aplikáciam MS Office
pre všetky verzie až po MS Office 2010

Re: Vyhladavanie v Access 2007

Poslaťod Palo-admin » 26.03.2011, 15:06

Stačí len fokus na subform (viď fn vyššie).
P.
Palo-admin
Administrátor stránky
 
Príspevky: 473
Registrovaný: 18.07.2008, 16:43
Udelené poďakovania: 6 krát
Prijaté poďakovania: 63 krát

Re: Vyhladavanie v Access 2007

Poslaťod Noro1005 » 27.03.2011, 00:00

Hej , len mam to riesene takto ako na obrazku , hlavny formular sa vola Upravy_Autori a v nom mam vlozeni objekt Okno_hl_formular7 v ktorom je otvorena tabulka Autorov a pomocou tlacitka Odstranit chcem odstranit zaznam z tejto tabulky...a nejde mi to hintak!
Nemáte oprávnenie prezerať súbory priložené v tomto príspevku.
Noro1005
 
Príspevky: 15
Registrovaný: 09.02.2011, 20:23
Udelené poďakovania: 3 krát
Prijaté poďakovania: 0 krát

Re: Vyhladavanie v Access 2007

Poslaťod Palo-admin » 28.03.2011, 22:38

Napr. takto - Pridanie novej (analogicky výmaz) - pre TABY so subformulármi

Kód: Vybrať všetko
Private Sub btn_Nova_Click()
Dim xActPg, MyControl As Control

On Error GoTo Err_btn_Nova_Click
    xActPg = Me.TabControl.Value
    For Each MyControl In Me.TabControl.Pages(xActPg).Controls
        If MyControl.ControlType = acSubform Then
            MyControl.SetFocus
            Exit For
        End If
    Next
   
    DoCmd.GoToRecord , , acNewRec
    'Me.DatumCmb.SetFocus

Exit_btn_Nova_Click:
    Exit Sub

Err_btn_Nova_Click:
    MsgBox Err.Description
    Resume Exit_btn_Nova_Click
End Sub
Palo-admin
Administrátor stránky
 
Príspevky: 473
Registrovaný: 18.07.2008, 16:43
Udelené poďakovania: 6 krát
Prijaté poďakovania: 63 krát

Predchádzajúci

Späť na Word, Excel, PowerPoint, Outlook, Access

Kto je on-line

Užívatelia prezerajúci fórum: Žiadny registrovaný užívateľ nie je prítomný a 3 hostia

cron