Arkadaşlar access programımın mini iconunun iş yerinde kullandığım bilgisayardan evime flash disk ile taşıdığımda kaybolduğunu, daha doğrusu görüntülenemediğini fark ettim. Bu sebeple sitemizde araştırma yaptım, netice elde edemedim (bu konu ile alakalı bilgi varsa da ben bulamadım) Yabancı Acecss VBA forumlarından fayda sağlayacak bir yanıt bulabildim. Belki benimle aynı sorunu yaşayan arkadaşlarımız olabilir diye bu basit bilgiyi paylaşmak istedim.
Projemize bir modul insert ederek kullanmak daha mantıklı bu olayı.
Alt + F11 tuşu ile VBA bölümüne düştükten sonra;
Instert > Module yönergesini izleyerek yeni bir modül oluşturuyoruz.
Bu kod ile ikonumuz dinamik olarak programa işleniyor. Programı taşıdığımız zaman da ikonu ile beraber taşınıyor arkadaşlar.
Burada programı çalıştırdığımız zaman ilk açılan formun "yüklendiğinde" olayına ikonGoster kodunu girmemiz yeterlidir.
Saygı ve selamlarımla.
Projemize bir modul insert ederek kullanmak daha mantıklı bu olayı.
Alt + F11 tuşu ile VBA bölümüne düştükten sonra;
Instert > Module yönergesini izleyerek yeni bir modül oluşturuyoruz.
Visual Basic
- Public Sub ikonGoster()
- Dim db As DAO.Database
- Set db = CurrentDb
- Dim msgMainTitle As String
- msgMainTitle = "Uygulama Başlığımız"
- db.Properties("AppIcon").Value = Uygulamada Kullanacağımız ikonun adresi
- db.Properties("AppTitle").Value = msgMainTitle
- db.Properties("UseAppIconForFrmRpt").Value = True
- Application.RefreshTitleBar
- End Sub
Bu kod ile ikonumuz dinamik olarak programa işleniyor. Programı taşıdığımız zaman da ikonu ile beraber taşınıyor arkadaşlar.
Burada programı çalıştırdığımız zaman ilk açılan formun "yüklendiğinde" olayına ikonGoster kodunu girmemiz yeterlidir.
Saygı ve selamlarımla.
