Centar za edukaciju-BiH

Predmet:refresh ribbon-a

---

Pozdrav

imam problem sa refrsh ribona

moja namjera kod ribbona je da kad odradim neku funkciju kojaje korektna tj ispravna, jednostavno u ribonu pozivanje stavi kao visible= false ali mi neradi

kod logiranja na bazu otvori se kompletan ribon kojem se nemože priči i to treba tako, kad se korisnik logira sa svojom sifrom otvori se splash forma koja provjerava licencu. ako je licenca dobra onda je kompletan ribon zatamnjen osim dvije komande kako treba
Jedna komanda je izbor firme
druga komanda je izbor firme i obračunskog razdoblja

kad pozovem drugu komadbu za izbor firme i obračunskog perioda ribon se normalno aktivira a za to koristim komandu
Private Sub Command6_Click()
On Error GoTo Kraj
Dim ag
Dim ag1
DoCmd.RunSQL "DELETE AKTIV.* FROM AKTIV;"
Dim P, a
Set P = CurrentDb().OpenRecordset("aktiv")
With P
.AddNew
!godina = Me.Text4.Column(1)
!aktivan = True
!NivoFirma = True
!firma = Me.Text4.Column(2)
!Pdatum = Me.Text4.Column(5)
!Kdatum = Me.Text4.Column(6)
!ObracinskiPeriod = Me.Text4.Column(4)
!Jezik = Me.Text4.Column(7)
!VrOrg = Me.Text4.Column(8)
.Update
.Close
End With
Call SetAppTitle
Call PRIPREMAIZVXML
Call PromjenaJezika
Set ag1 = CurrentDb().OpenRecordset("SELECT m.[Puni naziv firme] AS P, a.godina AS G, a.ObracinskiPeriod AS op, a.vrorg as VO FROM aktiv AS a INNER JOIN [maticni podatci] AS m ON a.firma = m.[Firma id] WHERE (((a.NivoFirma)=True));")
Refresh
Me.Caption = "Aktivna firma " & ag1!P & " i aktivna godina " & ag1!G
Me.Text4.Requery
If ag1!vo = 1 Then a = " -- ""Pravna lica"" --" Else a = " -- ""Udruženja građanja"" --"
ZXZBox "Obračunski period uspješno promjenjen." & vbCrLf & vbCrLf & "Aktivna firma je " & ag1!P & "" & vbCrLf & "Aktivna godina je " & ag1!G & vbCrLf & _
"Tip obračuna je " & ag1!OP & vbCrLf & _
"Podatci će se obrađivati po šemi za " & a & vbCrLf & vbCrLf & "Obračunski period ostaje aktivan do sljedeče promjene!", vbOKOnly, "eBilans"
If vbOK Then
'This code closes all open forms in the current project and then opens the named form in quotations
Dim obj As Object
Dim strName As String
For Each obj In Application.CurrentProject.AllForms
Debug.Print obj.Name
If obj.Name = "LOGIN" Then
Else
DoCmd.Close acForm, obj.Name, acSaveYes
End If
Next obj
For Each obj In Application.CurrentProject.AllReports
Debug.Print obj.Name
DoCmd.Close acReport, obj.Name, acSaveYes
Next obj
'NAREDBA KOJA MJENJA RIBBON-PROSTO
If (Not gobjRibbon Is Nothing) Then
gobjRibbon.Invalidate
End If
Set gobjRibbon = Nothing
gobjRibbon.Invalidate
' Call PromjenaJezika
DoCmd.RunMacro "prenos"
End If
Kraj:
Exit Sub
End Sub
i ovde nema problema radi perfektno

ali kad hoču ovo da koristim on load ili on unload
'NAREDBA KOJA MJENJA RIBBON-PROSTO
If (Not gobjRibbon Is Nothing) Then
gobjRibbon.Invalidate
End If
Set gobjRibbon = Nothing
gobjRibbon.Invalidate

izbacuje uporno error 91

imal ko kakvu ideju

Predmet:Re: refresh ribbon-a

---

ja nikad nisam radio sa ovi ribona i nemam nikakvih iskustva.
Sta mogu jos sam na VB6

Predmet:Re: refresh ribbon-a

---

Na on load nemozes koristiti ovu proceduru iz prostog razloga sto ribon jos nije otvoren.
Ako vec moras onda probaj na on activate da ja ne probam.

---

Predmet:Re: refresh ribbon-a

---

Sta bisa ovim?

---