Kan man lave en statusbar selv

eller alternativt få vist Access egen statusbar men uden postnavigations knapper

der må sgu da være en kommando ala form.statusbar.visible eller lign man kan sætte

Jeg mener der ligger et eksempel på thomasjepse's hjemmeside.

makeiteasy.dk

thnx har ikke set det hele igennem, det ligger som downable forms så der er sikkert noget, jeg så lige han laver nogle coole knapper, hvordan f.... gør han det. Det linger standard XP buttons det kan jeg sgu ikke.

weird hvis jeg kopiere hans button og paster i min form får den samme røvs... udseende.

I hans form flotte rundede hjørne og alt

Tak for point - Ja, Thomas Jepsen kan sit kram. Synd han ikke længere er aktiv på eksperten.

Ja, det må man sige. Bortset fra det ville det altså undre mig om ikke der fandtes en mulighed for noget ala det jeg skrev altså form.statusbar.visible bla bla

Det er det garanteret også. Men jeg har vist aldrig set noget spørgsmål om det, det er jo informationer du har gratis nederst til venstrte i formularen.

Du kunne måske bruge statuslinien, f.eks:

Global TimeglasMax As Long
Global TimeglasTekst As String
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TestTimeglas()
  Dim i As Long
  Call Timeglas(100, "Opdaterer")
  For i = 1 To 100
    TimeglasOpdater (i)
    Call Sleep(50)
  Next i
  Sleep (100)
  FjernTimeglas
End Sub


Sub Timeglas(Max As Long, Txt As String)
  TimeglasMax = Max
  TimeglasTekst = Txt
End Sub

Sub TimeglasOpdater(i As Long)
  Call SysCmd(acSysCmdSetStatus, TimeglasTekst & ": Post" & Str(i) & " af " & TimeglasMax)
End Sub

Sub FjernTimeglas()
  Call SysCmd(acSysCmdClearStatus)
End Sub

Mugs>> du har helt ret i de er gratis, men jeg vil ikke have navi buttons de forvirrer mine brugere mere end de gavner.

fdata>> måske har du fat i noget der, jeg afprøver det ved en senere lejlighed

OK - Er du interesseret, har jeg en testdb efter samme princip som fdata.

fdata>> Ja, nu har jeg kontrol over access egen statuslinie. Jeg mangler bare variable navne til filtrede records maxrecords currentrecord osv

det var btw sysCmd(acSysCmdSetStatus), "Kontrol over statuslinie"