Mám rozdelenú databázu. Uskutočnil som proces udalosti na zaťaženie DoCmd.ShowToolbar "Ribbon", acToolbarNo
skrytie panela s nástrojmi pásu kariet.
Teraz chcem vytvoriť verziu ACCDE na distribúciu frontu svojej databázy. Mojim problémom je, že nemôžem vytvoriť verziu ACCDE, keď nie je viditeľná panel nástrojov s páskou. Tiež ak som predtým vytvoril ACCDE DoCmd.ShowToolbar "Ribbon", acToolbarNo
Nemôžem to urobiť, pretože ACCDE zablokuje návrh formulárov.
Aké je najlepšie riešenie? Chcel by som, aby páska bola skrytá, ako keby bola DoCmd.ShowToolbar "Ribbon", acToolbarNo
.
odpovede:
0 pre odpoveď č. 1Ak máte formulár, ktorý sa načíta pri štarte, potom nasledujúci kód v jeho On_Load
Udalosť povolí pásku pri vytváraní formulárov a zakáže ju, keď tlačíte verziu používateľom.
If LCase(Right(CurrentDb.Name, 3)) = "mdb" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accde" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accdr" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End If