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):
  1. Sub OnActionButton(Control As IRibbonControl)
  2. Select Case Control.id
  3. Case "btnArtikli"
  4. DoCmd.OpenForm "frmArtikli", acNormal
  5. End Select
  6.    
  7. End Sub
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):
  1. Global Const strAppPicturePath As String = "Pics"
  2.                                                              
  3. Global Const bolUseDynamicPicturePath As Boolean = False
  4. Public gobjRibbon As IRibbonUI
  5.  
  6. Public bolEnabled As Boolean
  7. Public bolVisible As Boolean
  8. Public Type ItemsVal
  9.     id As String
  10.     label As String
  11.     imageMso As String
  12. End Type

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