- Sub OnActionButton(Control As IRibbonControl)
- Select Case Control.id
- Case "btnArtikli"
- DoCmd.OpenForm "frmArtikli", acNormal
- End Select
- End Sub
roko | 10.05.2012 09:01 |
---|---|
Predmet:Re: Ribbon XML / Controls ako želiš pozvati naredbu za neki gumb možeš koristiti Public gobjRibbon As IRibbonUI ''to vjerojatno imaš gobjRibbon.InvalidateControl "naziv ribbon kontrole" |
miro35 | 10.05.2012 10:06 |
---|---|
Predmet:Re: Ribbon XML / Controls Dobro to znam za xml.Ali na primjer imam pozivanje za buton: PreuzmiIzvorni kôd (Text): Kako ovo isto napravit za tab.Znači ne u xml-u nego u ovom modulu tako kad kliknem na neki tab a imam ih 3,da pozove neku funkciju npr Call Zatvori().
|
roko | 10.05.2012 10:13 |
---|---|
Predmet:Re: Ribbon XML / Controls Sub GetVisible(Control As IRibbonControl) Select Case Control.id Case "btnArtikli" DoCmd.OpenForm "frmArtikli", acNormal End Select End Sub |
miro35 | 10.05.2012 10:13 |
---|---|
Predmet:Re: Ribbon XML / Controls NaÅ¡ao sam ovo.Da li treba ovdje negdje: PreuzmiIzvorni kôd (Text):
|
roko | 10.05.2012 10:32 |
---|---|
Predmet:Re: Ribbon XML / Controls ti hočeÅ¡ kad se premjesti tab da ti ugasi forme iz neselektiranog taga ? |
miro35 | 10.05.2012 10:44 |
---|---|
Predmet:Re: Ribbon XML / Controls Tako je,da mi ugasi sve forme bez obzira iz kojeg su taba. |
roko | 10.05.2012 11:20 |
---|---|
Predmet:Re: Ribbon XML / Controls ja bi to riješio ovako prije otvaranja forme ili Select Case Control.id Case "btnArtikli" CloseAllForms DoCmd.OpenForm "frmArtikli", acNormal ''funkcija Function CloseAllForms() Dim obj As Object Dim strName As String For Each obj In Application.CurrentProject.AllForms DoCmd.Close acForm, obj.Name, acSaveNo Next obj End Function |
roko | 10.05.2012 11:24 |
---|---|
Predmet:Re: Ribbon XML / Controls a možeš i ovu ako ti ipak treba neka forma biti upaljena Public Function formIsLoaded(ByVal vstrForm2Check As String, Optional ByVal vblnExcludingForm2Check As Boolean = False) _ As Boolean On Error GoTo Err_formIsLoaded Dim aobForm As AccessObject For Each aobForm In Application.CurrentProject.AllForms If aobForm.IsLoaded Then If aobForm.Name = vstrForm2Check And vblnExcludingForm2Check = False Then formIsLoaded = True Exit Function ElseIf aobForm.Name <> vstrForm2Check And vblnExcludingForm2Check = True Then formIsLoaded = True Exit Function End If End If Next aobForm formIsLoaded = False Exit_formIsLoaded: Exit Function Err_formIsLoaded: MsgBox Err.Description Resume Exit_formIsLoaded End Function |
miro35 | 10.05.2012 11:26 |
---|---|
Predmet:Re: Ribbon XML / Controls Može i tako.Probat ću.Upravo pretvaram svoju bazu i aplikaciju u 2010.Napisao sam ribon.Sad ću pisati code za butone.Hvala ti bez tebe se joÅ¡ ne bi odlučio za prelazak u 2010. Neznam jesi li imao iskustva da li ima poboljÅ¡anja vezano za mrežu,npr: kad viÅ¡e korisnika upisiva u istu tabelu? |
miro35 | 12.05.2012 11:52 |
---|---|
Predmet:Re: Ribbon XML / Controls JoÅ¡ neÅ¡to.Ja imam 3 Tab-a.Prvi je "Robno",drugi "Financijsko",Treći "Kasa". Da li se može na onClose događaj neke forme da se stavi da mi set focus bude na tab koji želim.ZaÅ¡to ovo hoću? Sad mi se deÅ¡ava kad sam na drugom tabu "Financijsko" kad zatvorim neku formu financijskog on mi se prebaci na prvi Tab "Robno". |