Skip to main content

AccessTr.neT


Xlm Kodu

Çözüldü #1
Merhaba,
USysRibbons adlı tabloda aşağıdaki XLM kodları var bu kodlar ribon şerit oluşturuyor.

Kod
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad" loadImage="LoadImages">
 <ribbon startFromScratch="true">
  <tabs>
      <tab id="tabyeni79" label="Apartman Yönetim">
    <group id="grpyeni79" label="Yönetim Yapısı">
      <menu id="menu4"  label="Yönetim Bilgileri" itemSize="large"  size="large"  imageMso = "FileSendMenu">

        <button id="btnm460313" label="Yönetim" imageMso = "WordArtEditTextClassic" onAction="DugmeOlaylari"  />
        <button id="btnm395114" label="Bloklar" imageMso = "BlogHomePage" onAction="DugmeOlaylari"  />
        <button id="btnm916314" label="Bağımsız Bölüm Sahipleri" imageMso = "EditBusinessCard" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Yönetim Bilgileri) -->


      </group>
    <group id="grp16" label="Harcama Tanım">
      <menu id="menu14"  label="Harcama Türleri" itemSize="large"  size="large"  imageMso = "DatabaseEncodeDecode">

        <button id="btnm882512" label="Harcama Tür Giriş" imageMso = "ReadingViewShowPrintedPage" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Harcama Türleri) -->


      </group>
    <group id="grp17" label="Gelirler">
      <menu id="menu16"  label="Ödemeler Giriş" itemSize="large"  size="large"  imageMso = "MailMergeRecipientsEditList">

        <button id="btnm386611" label="Gelir/Ödeme" imageMso = "MoveToFolder" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Ödemeler Giriş) -->


      </group>
    <group id="grp18" label="Giderler">
      <menu id="menu17"  label="Harcama Giriş" itemSize="large"  size="large"  imageMso = "SmartArtResetGraphic">

        <button id="btnm144812" label="Gider/Harcama" imageMso = "MailMergeFinishAndMergeMenu" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Harcama Giriş) -->


      </group>
    <group id="grp19" label="Raporlar">
      <menu id="menu18"  label="Rapor" itemSize="large"  size="large"  imageMso = "FileWorkflowTasks">

        <button id="btnm155617" label="Gelir Takip" imageMso = "SmartArtAddShapeAfter" onAction="DugmeOlaylari"  />
        <button id="btnm686513" label="Gider Takip" imageMso = "ZoomCurrent100" onAction="DugmeOlaylari"  />
        <button id="btnm376516" label="Gelir/Gider Sonuç" imageMso = "ZoomToSelection" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Rapor) -->


      <separator id="separator20"/>

      <button id="btn19" size="large" label="Çıkış" imageMso = "PrintPreviewClose" onAction="DugmeOlaylari"  />

      </group>

     </tab>

  </tabs>
 </ribbon>
Bu XLM koduda Accessin dosya menüsünü gizliyor

Kod
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

<!-- *** TAG COMMANDS  ***-->
<commands>
   <command idMso="Help" enabled = "false"/>
</commands>

<ribbon startFromScratch="true"/>

<!-- *** BACKSTAGE ***-->

<backstage>
<button idMso="FileSave" visible="false"/>
<button idMso="SaveObjectAs" visible="false"/>
<button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
<button idMso="FileOpen" visible="false"/>
<button idMso="FileCloseDatabase" visible="false"/>
<tab idMso ="TabInfo" visible="false"/>
<tab idMso ="TabRecent" visible="false"/>
<tab idMso ="TabNew" visible="false"/>
<tab idMso ="TabPrint" visible="false"/>
<tab idMso ="TabShare" visible="false"/>
<tab idMso ="TabHelp" visible="false"/>
<button idMso="ApplicationOptionsDialog" visible="false"/>
<button idMso="FileExit" visible="false"/>
</backstage>

</customUI>
sorum bu iki kodu tek bir kod olarak nasıl birleştirilir.
Saygılarımla
Cevapla
#2
Merhaba, iki kod birleştirildiğinde çalışacağını sanmıyorum ama,

Visual Basic Code
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad" loadImage="LoadImages">
	<ribbon startFromScratch="true">
		<tabs>
			<tab id="tabyeni79" label="Apartman Yönetim">
				<group id="grpyeni79" label="Yönetim Yapısı">
					<menu id="menu4"  label="Yönetim Bilgileri" itemSize="large"  size="large"  imageMso = "FileSendMenu">
						<button id="btnm460313" label="Yönetim" imageMso = "WordArtEditTextClassic" onAction="DugmeOlaylari" />
						<button id="btnm395114" label="Bloklar" imageMso = "BlogHomePage" onAction="DugmeOlaylari"  />
						<button id="btnm916314" label="Bağımsız Bölüm Sahipleri" imageMso = "EditBusinessCard" onAction="DugmeOlaylari"  />
					</menu>

					<!--Ana Menü Kapandı.. (Yönetim Bilgileri) -->
				</group>
				<group id="grp16" label="Harcama Tanım">
					<menu id="menu14"  label="Harcama Türleri" itemSize="large"  size="large"  imageMso = "DatabaseEncodeDecode">
						<button id="btnm882512" label="Harcama Tür Giriş" imageMso = "ReadingViewShowPrintedPage" onAction="DugmeOlaylari"  />
					</menu>
					<!--Ana Menü Kapandı.. (Harcama Türleri) -->
				</group>
				<group id="grp17" label="Gelirler">
					<menu id="menu16"  label="Ödemeler Giriş" itemSize="large"  size="large"  imageMso = "MailMergeRecipientsEditList">
						<button id="btnm386611" label="Gelir/Ödeme" imageMso = "MoveToFolder" onAction="DugmeOlaylari"  />
					</menu>
					<!--Ana Menü Kapandı.. (Ödemeler Giriş) -->
				</group>
				<group id="grp18" label="Giderler">
					<menu id="menu17"  label="Harcama Giriş" itemSize="large"  size="large"  imageMso = "SmartArtResetGraphic">
						<button id="btnm144812" label="Gider/Harcama" imageMso = "MailMergeFinishAndMergeMenu" onAction="DugmeOlaylari"  />
					</menu>
					<!--Ana Menü Kapandı.. (Harcama Giriş) -->
				</group>
				<group id="grp19" label="Raporlar">
					<menu id="menu18"  label="Rapor" itemSize="large"  size="large"  imageMso = "FileWorkflowTasks">
						<button id="btnm155617" label="Gelir Takip" imageMso = "SmartArtAddShapeAfter" onAction="DugmeOlaylari"  />
						<button id="btnm686513" label="Gider Takip" imageMso = "ZoomCurrent100" onAction="DugmeOlaylari"  />
						<button id="btnm376516" label="Gelir/Gider Sonuç" imageMso = "ZoomToSelection" onAction="DugmeOlaylari"  />
					</menu>
					<!--Ana Menü Kapandı.. (Rapor) -->
				<separator id="separator20"/>
					<button id="btn19" size="large" label="Çıkış" imageMso = "PrintPreviewClose" onAction="DugmeOlaylari"  />
				</group>

			</tab>

		</tabs>
	</ribbon>
	
	<commands>
		<command idMso="Help" enabled = "false"/>
	</commands>
	
	<backstage>
		<button idMso="FileSave" visible="false"/>
		<button idMso="SaveObjectAs" visible="false"/>
		<button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
		<button idMso="FileOpen" visible="false"/>
		<button idMso="FileCloseDatabase" visible="false"/>
		<tab idMso ="TabInfo" visible="false"/>
		<tab idMso ="TabRecent" visible="false"/>
		<tab idMso ="TabNew" visible="false"/>
		<tab idMso ="TabPrint" visible="false"/>
		<tab idMso ="TabShare" visible="false"/>
		<tab idMso ="TabHelp" visible="false"/>
		<button idMso="ApplicationOptionsDialog" visible="false"/>
		<button idMso="FileExit" visible="false"/>
	</backstage>
		
</customUI>	

Şeklinde deneyin. Çalışmaz ise örneğinizi ekleyin, birde örnek üzerinden deneyelim.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Merhaba,

Hocam evet dediğiniz gibi çalışmadı. Program açılınca apartman yönetimi adlı ribon aktif oluyor. Yapmak İstediğim, program açılınca apartman yönetimi adlı ribonla beraber, accessin dosya menüsünü pasif eden xlm kodu da beraber devreye girmesi. 
Teşekkür ederim
Saygılarımla.
.rar Apartman Yönetim.rar (Dosya Boyutu: 1,28 MB | İndirme Sayısı: 5)
Cevapla
#4
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="true">



  <tabs>
<tab id="tabyeni79" label="Apartman Yönetim">
<group id="grpyeni79" label="Yönetim Yapısı">
<menu id="menu4"  label="Yönetim Bilgileri" itemSize="large"  size="large"  imageMso = "FileSendMenu">
<button id="btnm460313" label="Yönetim" imageMso = "WordArtEditTextClassic" onAction="DugmeOlaylari" />
<button id="btnm395114" label="Bloklar" imageMso = "BlogHomePage" onAction="DugmeOlaylari"  />
<button id="btnm916314" label="Bağımsız Bölüm Sahipleri" imageMso = "EditBusinessCard" onAction="DugmeOlaylari"  />
</menu>

<!--Ana Menü Kapandı.. (Yönetim Bilgileri) -->
</group>
<group id="grp16" label="Harcama Tanım">
<menu id="menu14"  label="Harcama Türleri" itemSize="large"  size="large"  imageMso = "DatabaseEncodeDecode">
<button id="btnm882512" label="Harcama Tür Giriş" imageMso = "ReadingViewShowPrintedPage" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Harcama Türleri) -->
</group>
<group id="grp17" label="Gelirler">
<menu id="menu16"  label="Ödemeler Giriş" itemSize="large"  size="large"  imageMso = "MailMergeRecipientsEditList">
<button id="btnm386611" label="Gelir/Ödeme" imageMso = "MoveToFolder" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Ödemeler Giriş) -->
</group>
<group id="grp18" label="Giderler">
<menu id="menu17"  label="Harcama Giriş" itemSize="large"  size="large"  imageMso = "SmartArtResetGraphic">
<button id="btnm144812" label="Gider/Harcama" imageMso = "MailMergeFinishAndMergeMenu" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Harcama Giriş) -->
</group>
<group id="grp19" label="Raporlar">
<menu id="menu18"  label="Rapor" itemSize="large"  size="large"  imageMso = "FileWorkflowTasks">
<button id="btnm155617" label="Gelir Takip" imageMso = "SmartArtAddShapeAfter" onAction="DugmeOlaylari"  />
<button id="btnm686513" label="Gider Takip" imageMso = "ZoomCurrent100" onAction="DugmeOlaylari"  />
<button id="btnm376516" label="Gelir/Gider Sonuç" imageMso = "ZoomToSelection" onAction="DugmeOlaylari"  />
</menu>
<!--Ana Menü Kapandı.. (Rapor) -->
<separator id="separator20"/>
<button id="btn19" size="large" label="Çıkış" imageMso = "PrintPreviewClose" onAction="DugmeOlaylari"  />
</group>

</tab>

</tabs>



  </ribbon>

<backstage>
        <button idMso="FileCloseDatabase" visible="false"/>
        <button idMso="SaveObjectAs" visible="false"/>
        <button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
        <button idMso="FileOpen" visible="false"/>
        <button idMso="FileSave" visible="false"/>
        <tab idMso ="TabInfo" visible="false"/>
        <tab idMso="TabRecent" visible="false"/>
        <tab idMso="TabNew" visible="false"/>
        <tab idMso="TabPrint" visible="false"/>
        <tab idMso="TabShare" visible="false"/>
        <tab idMso="TabHelp" visible="false"/>
        <button idMso="ApplicationOptionsDialog" visible="false"/>
        <button idMso="FileExit" visible="false"/>
</backstage>
</customUI>



şeklinde dener misin ?
userx, 24-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
Merhaba,
sn.userx, elinize sağlık çok teşekkür ederim istediğim gibi oldu.
Saygılarımla.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da