Centar za edukaciju-BiH

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"

Predmet:Re: Ribbon XML / Controls

---

Dobro to znam za xml.Ali na primjer imam pozivanje za buton:
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().

---

Predmet:Re: Ribbon XML / Controls

---

Sub GetVisible(Control As IRibbonControl)
Select Case Control.id
Case "btnArtikli"
DoCmd.OpenForm "frmArtikli", acNormal
End Select

End Sub

Predmet:Re: Ribbon XML / Controls

---

Našao sam ovo.Da li treba ovdje negdje:

---

Predmet:Re: Ribbon XML / Controls

---

ti hočeÅ¡ kad se premjesti tab da ti ugasi forme iz neselektiranog taga ?

Predmet:Re: Ribbon XML / Controls

---

Tako je,da mi ugasi sve forme bez obzira iz kojeg su taba.

---

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

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

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?

---

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".

---