Araçlar menüsünün görünmemesi

[akd]

Merhaba arkadaşlar,
proğram mde bile olsa, araçlar menüsü aktif oluyor,
acaba Araçlar menüsünün kapatılması mümkünmü kod ile tabiki,
açılıştaki belirleyecegim bir text kutusuna doğru şifre girilmeden açılmama olayı nasıl olabilir.
Bazı access projelerinde gördügüm kadarıyla, şift tuşuna basılarak dahi tasarım kısmına girilemiyor?
İyi geceler...

 

[simendifer]

hayret ediyorum

hayret ediyorum size akd valla formda çok kişiye yardım ediyorsunuz sorunları çözüyorsun ama bu konuyu açmana şaştım kaldım kusura bakma ekteki yazı ile şhift tuşu devre dışı bırakabilirsin ayrıca göcebe nin yaptıgı bütün programlarda araçlar gizli ,sanki delpide visualbasicle yapılmış bir program gibi access örneklerine var şhift tuşunu devre dışı bırakma aktif etme ben genede devre dışı bırakmayı gönderiyorum

SHİFT TUşUNU GİZLEMEK

'Dikkatrogramınızın bir yedeğini aliniz. Aksi takdirde programınızı tekrar açamayabilirisiniz...


'----------Kod Baslama------------------
Option Compare Database
Function BypassOzelliginiDegistir()
Const OzellikTipi As Long = 1
OzellikDegistir "AllowBypassKey", OzellikTipi, False
End Function

Function OzellikDegistir(strOzellikAdi As String, varOzellikTipi As Variant, varOzellikDegeri As Variant) As Integer
Dim dbs As Object, varOzellik As Variant
Set dbs = CurrentDb
On Error GoTo OzellikDegistir_Hata'Ozelligi degistir
dbs.Properties(strOzellikAdi) = varOzellikDegeri
OzellikDegistir = True
OzellikDegistir_Cik:
Exit Function
OzellikDegistir_Hata:
If Err = 3270 Then
Set varOzellik = dbs.CreateProperty(strOzellikAdi, _
varOzellikTipi, varOzellikDegeri)
dbs.Properties.Append varOzellik
Resume Next
Else
OzellikDegistir = False
Resume OzellikDegistir_Cik
End If
End Function
'----------Kod Bitis------------------


'Modülü kaydedin. ve autoexec adında bir makro oluşturun. Autoexec Access açıldığında otomatik çalışan makrodur. (Ayni Autoexec.bat gibi)
'Makronun içinde Kodçalistir(RunCode)seç ve parametre bölümüne aşağıdaki satiri yaz.
=ByPassOzelliginiDegistir()


access görünümünü gizlemek içinde
yeni bir makro oluşturun eylem e kod çalıştır secin işlev kutusuna da fAccessWindow ("Hide", False, False) yazın
programın ilk açılan formun özeliklerinde açıldıgında yerine de makro adını yazın tüm from ve raporlarının açıl ve kalıcı özeliklerini de evet e ayarlayın yeni bir modül oluşturun içinede
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

kodu yazın programınızın nede yapıldıgını anlayamassınız acceess görünümü yok kolay gelsin takıldıgınız yerde burdayım

 

[akd]

Teşekkür ederim sayın simendifer,
Bir noktayı atlıyorsunuz, herkes herşeyi bilemez,
ben daha 1 seneden beri access le uğraşıyorum,
excel vba temelim olduğundan, access'e çabuk adepte olduğuma inannıyorum,
artı bu aşağıdaki kodu siz yazmadınız herhalde, biryerlerden buldunuz herhelde,
bense araştırmaya bu formdan başlayım dedim,
sakın alınmayın sizi kırmak degil amacım sayın simendifer,
hayretinize yanıt vermek istedim yalnızca.
Birde bu kodu nasıl kaldıracağımı yazarsanız çok sevinirim. autoclose ile çıkarken.
Ekledigim çalışmalarımda dikkat ederseniz access'i gizlemeyi kulanıyorum zaten
İyi çalışmalar dilerim.

 

[gulsum1]

sayın simendifer ve akd o kodların hepsi benim kodlarım ve access kod deposu içinde hepsi var sayın simendifer kodları nerden aldığınızı açıklayarak sezarın hakkını sezara veriniz sayın akd araç çubuklarını kaldırma diyorsunuz başlangıç ayarlarından bütün menüleri kaldırır ve kod ile kendi yaptığınız araç çubuğunu çağırırsanız accessin temel araç çubuğu olan dosya düzen ekle gibi menülerin olduğu araç çubuğu kaybolarak sizin araç çubuğunuz gelecektir + shift tuşu ile kapatılmış programalrın nasıl açılacağı shift tuşunun nasıl kaldırılacağı kod deposunun içinde var

 

[karaayhan]

kardeş kavgasına son vermek lazım , sen yaptın , ben yaptım kim yapmış???
herneyse herkes herşeyi bilmez , belkide gözünün önündekini bile göremez (bunu sayın akd ile ben iyi bilirim )

sayın dostum akd, eğer araç çubuklarının tümünü kaldırmak sa isteğiniz şunu menü isimleri kadar çağoltın..

DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarNo


iyi çalışmalar..

 

[simendifer]

kalemine saglık gulsum1

kodları dediğiniz gibi bu formdan aldım eminim siz yazmışsınızdır formmu araştırdım arkadaşa yardımcı olmaya çalıştım ben yazmadım yazmayıda bilmem ama kimin yazdıgınıda araştırmam faydalı olsun diye formma koyuyorlar ençokta siz yardımcı oluyorsunuz bu hususta elinize su dökemem her kes bilir access örneklerinden aldım ve hep ordan faydalanıyorum sayın akd de yardımı seviyor herkese elinden geldiğince yardımcı oluyor benim hayretim bu konu nasıl gözünden kaçar ayrıca göcebe nin yaptıgı bütün programlarda araçlar gizli ,sanki delpide visualbasicle yapılmış bir program gibi access örneklerinde var şhift tuşunu devre dışı bırakma aktif etme kimsenin hakkını yemek istemem kimseyide kırmak incitmek hepinize saygı ve selamlarımı sunuyorum kolay gelsin derim

 

[hozzeybek]

arkadaşlar şhıft tuşunu iptal ettim ama şimdi nasıl aktif edecem bide onun yolunu söylermisiniz
sn gülsüm1' in kod deposunda yazılan kodu nereye nasıl uygulayacam söylermisiniz?

 

[hozzeybek]

arkadaşlar bu shıft tuşunu nasıl aktif edecem kod deposunda bi kod verilmiş o kodu nereye nasıl uygulayacam cevaplarsınız sevinirim