Portal — AccessTr.neT

| Facebook ile Bağlan | Twitter İle Bağlan | Google+ İle Bağlan

Yazar: lemoncher2

16/09/2021, 22:20

Yorum 4

Merhaba İyi Günler.

Transparan Form konusunda çok araştırma yaptım formda olsun başka forumlarda olsun hep karmaşık bilgilere denk geldim. Transparan Form konusunda basit düzeyde çalışmalarınıza ekleyebileceğiniz bir örnek paylaşmak istedim.

Umarım Faydalı Olur.

Çalışmanıza Eklemek İsterseniz Öncelikle Vermiş Olduğum Örnek İçerisinde Bulunan Module1, Module2, Module3 ve Module4 isimlerine sahip modülleri çalışmanıza ekleyiniz(Kopyalayıp Yapıştırın). Daha sonra, Formunuza .PNG uzantılı bir resim ekleyiniz ve bu resmin;

Fare Tuşuna Basılırken Olayına Aşağıdaki Kodu Ekleyiniz.

Kod:

FormTasima Me

Formunuzun ;

Yüklendiğinde Olayına Aşağıdaki Kodu Ekleyiniz.

Kod:

Call EkranCozunurlugu

Açıldığında Olayına Aşağıdaki Kodu Ekleyiniz.

Kod:

#If VBA7 Then

    Dim accs As LongPtr

#Else

    Dim accs As Long

#End If

    Me.Detail.BackColor = vbWhite

    accs = TransparentFormWithVisibleControl(Me.Form, vbWhite)

TRANSPARAN_FORM.rar (Dosya Boyutu: 310,38 KB | İndirme Sayısı: 68)

Yazar: lemoncher2

14/09/2021, 10:29

Forum: Access Örnekleri ve Uygulamaları

Yorum 1

Bu konuda forumda daha önce birkaç çalışma yapılmış. Bende bu şekilde bir örnek çalışma eklemek istedim. Bulduğum bir kaç kodun bu konuda araştırma yapan arkadaşlara yardımcı olur inşallah.

Ekte örneği inceleyip de kendi çalışmanıza ekleyebilirsiniz veya

Özellikleri:
F1-F2....-F12 Tuşları çalışmaz
Alt+ beraberindeki tuş kombinasyonları çalışmaz

Sadece Ctrl+C ve Ctrl+V tuş kombinasyonları çalışır

Formunuzun Vba kısmına bu kodu yapıştırınız.

Kod:

Public Sub sb_disablekeys(keycode As Integer, shift As Integer)

    Select Case shift

        Case acCtrlMask

            Select Case keycode

                Case 0 To 16, 18 To 66, 68 To 85, 87 To 255

                

                    keycode = 0

            End Select

        Case acAltMask

                    keycode = 0

    End Select



    Select Case keycode

        Case vbKeyF1 To vbKeyF16

            keycode = 0

    End Select

End Sub

Formunuzun Tuşa Basılırken Olayına bu kodu yapıştırınız.

Kod:

sb_disablekeys keycode, shift

Formunuzun açıldığında olayına

Kod:

Me.KeyPreview = True

İyi günler.

Fonksiyon_Tus_Disable.rar (Dosya Boyutu: 19,96 KB | İndirme Sayısı: 8)

Yazar: volkensitki1975

10/09/2021, 10:12

Forum: Access Örnekleri ve Uygulamaları

Yorum 1

Ekteki Access form üzerinden mail tabloyu mail gövdesine yazdırarak mail atma örneği.

Mail atma kodlarını berduş isimli uzman tarafından yazıldı kendisine tekrar teşekkür ederim.

Mail.7z (Dosya Boyutu: 25,06 KB | İndirme Sayısı: 42)

Yazar: hegu

23/05/2021, 11:37

Forum: Access Örnekleri ve Uygulamaları

Yorum 2

Accesstr ustalarının katkısı ile teklif formu hazırladım. Belki birilerinin işine yarar. Teklif raporunu açtığınızda çift tıklama yapınca hem pdf dosyası oluşturuyor hem de kişinin mail adresine mail gönderiyor. İnşallah işinize yarar.

Not: Masaüstüne "Emirsan" diye dosya oluşturmanız ve onun içine de "Teklifler" dosyası oluşturmanız gerekir. Siz isterseniz isimleri değiştirebilirsiniz. bunun içinde çift tıklama modülünün içindeki FilePath = "C:\Users\Hegu\OneDrive\Masaüstü\Emirsan\Teklifler\" isimleri de değiştirmeniz lazım.