UserForm'da Düzenlemeler

[1Al2Ver]

Merhaba,

UserForm'daki sıralanış A77'deki gibidir.

Kayıt düğmesine basıldığında, A11'deki gibi olmaktadır,

İSTEK ;

1) Kayıt'ın A11'deki başlıklara göre (UF'daki sırada) yapılması,

2) YAŞ'ın, Kayıt Tarihi-Doğum Tarihi şeklinde otomatik hesaplanarak ilgili TextBox'a gelmesi,

3) ÜYE Getir (TC No.ya göre) , Kayıt Düzelt ve Temizle (Kayıt etmeden önce) butonlarını işlevsel hale getirmek,

Teşekkür ederim.

 

[cems]

Merhaba ,

Dosya 10 nolu mesaja eklendi

 

[ASLAN7410]

Sayın 1Al2Ver merhaba.

Küçük bir soru sormak istiyorum.

1.numaralı mesajınıza eklemiş olduğunuz ÜYE İşlemleri, UserForm ile Giriş Çalışması 23.02.2018
isimli örneğinizi indiğirdiğimde, excel ikonu değişmiş olarak gördüm, bu ikonunu nasıl değiştirdiniz?

 

[1Al2Ver]

Sayın Aslan7410 merhaba,

Dosyaya Farklı Kaydet deyin, çıkan pencerede "Küçük Resim Kaydet" kutucuğunu işaretleyin.

Kolay gelsin.

 

[ASLAN7410]

Sayın 1Al2Ver, gerçekten çok aramıştım ama bir türlü bulamamıştım.

Çok teşekkür ediyorum, hayırlı geceler hayırlı çalışmalar diliyorum.

 

[1Al2Ver]

Sayın cems merhaba,

İlginiz ve emeğiniz için teşekkür ederim, çok görsel olmuş.

Düzelmesini arzuladıklarımı aşağıda belirttim ;

* Cinsiyeti'ne elle giriş yapılabilir, (Şu an ComboBox'tan alınıyor, ki buraya da MESLEK GRUPLARI geliyor)
* Cinsiyeti'nde olan ComboBox, Meslek Grubunda olmalı,
* Mahalle'ye ComboBox ile veri alınmalı (data sayfasında kayıtlı)
* Kayıt Tarihi girilince, YAŞ otomatikman hesaplanıp gelmeli (Küsuratsız olarak)
* Form'da ; Doğum Yeri, Tahsili, Meslek Grubu, Mahalle ve Kan Grubu (data sayfası E sütununa yazılabilir) ComboBox ile olmalı, (ilk ikisi zaten var)
* Kapatma (X) yanına UserFormu küçültüp aşağıya alabilen (-) bir fonksiyon ilave edilebilir mi ?
* Form'a, "EXCEL'E GİT" isimli bir düğme eklemek mümkün mü ?

Tekrar teşekkür ederim.

 

[1Al2Ver]

Sayın 1Al2Ver, gerçekten çok aramıştım ama bir türlü bulamamıştım.

Çok teşekkür ediyorum, hayırlı geceler hayırlı çalışmalar diliyorum.

Rica ederim, ben de güzel dilekleriniz için teşekkür ederim.

Saygılarımla.

 

[cems]

Sayın cems merhaba,

İlginiz ve emeğiniz için teşekkür ederim, çok görsel olmuş.

Düzelmesini arzuladıklarımı aşağıda belirttim ;

* Cinsiyeti'ne elle giriş yapılabilir, (Şu an ComboBox'tan alınıyor, ki buraya da MESLEK GRUPLARI geliyor)
* Cinsiyeti'nde olan ComboBox, Meslek Grubunda olmalı,
* Mahalle'ye ComboBox ile veri alınmalı (data sayfasında kayıtlı)
* Kayıt Tarihi girilince, YAŞ otomatikman hesaplanıp gelmeli (Küsuratsız olarak)
* Form'da ; Doğum Yeri, Tahsili, Meslek Grubu, Mahalle ve Kan Grubu (data sayfası E sütununa yazılabilir) ComboBox ile olmalı, (ilk ikisi zaten var)
* Kapatma (X) yanına UserFormu küçültüp aşağıya alabilen (-) bir fonksiyon ilave edilebilir mi ?
* Form'a, "EXCEL'E GİT" isimli bir düğme eklemek mümkün mü ?

Tekrar teşekkür ederim.

Akşam yorgunluğu insanı ya şaşı yapıyor ya da hesap fukarası normalde kaymaması için textbox düzeltmiştim , yine kaymış Artık sabaha dinc kafa ile bu kontrolleri tekrar gözden geçiririm. Zaten verdiğim dosya gözleminiz için örnekti , biraz daha iyi hale getirmem gerek, düzeltmeler ile tekrar yüklerim. Userformu Minimize eden kodlar çoğunlukla sorun çıkarıyor ve debuga sık gidebiliyor.

Yine de olsun derseniz deneme olarak eklerim, debuglaştırıyorsa o kodu silersiniz.

 

[1Al2Ver]

Sayın cems tekrar merhaba,

Nezaket gösterip bu saatte cevap yazmışsınız, nezaketiniz için teşekkür ederim.

Userform'u minimize eden kodlar sorun çıkarıyor ise yapmayalım,

İyi sabahlar dilerim.

 

[cems]

Sayın 1Al2Ver

Yeni düzenleme ile dosyanız ektedir. İsteklerinizden iki tarihten yaşı çıkarma hariç ( şimdi hatırladım ama zamanım kalmadı ) diğerlerini oluşturduğumu sanıyorum.

Ekteki dosyayı inceleyiniz, olağandan farklı bir sorun olursa bildiriniz . Zip içinde önce beni oku textini okuyunuz ve uygulayınız. Klasör isimlerini değiştirmeyin aksi durumda çalışmaz , bu uygulamanın sebebi programın korunması ve masaüstünden sadece kısayol ile ulaşılmasıdır.

Programda:
Personel detaylarının kayda alınması
Tc kimlik no üzerinden bulunması
Detayda değişiklik yapılması
Personelin resminin eklenmesi
Bul anında bilgiler ile resmin gelmesi
Temizle ile detay ve resmin kaldırılması
Minimize edilmesi ve yükseltilmesi
Program ekranda açıkken veya minimize iken başka excel ya da programda çalışılabilme
Belli özelliklere göre personel detayının filtrelenmesi ( Haluk)
özellikleri vardır.

 

[1Al2Ver]

Sayın cems merhaba,

Elinize sağlık güzel olmuş, teşekkür ederim.

Kod'ları gizlemişsiniz, tabi sizin tercihiniz,

Ancak daha detaylı ( istatistik, grafik, süz vb. sayfalar da içeren ) bir dosya ile birleştirip kullanacaktım, bu durumda olamayacak,

Son gönderdiğiniz çözüm, harika bir dosya olarak, belki ileride kullanmak maksatlı arşivimde yerini almıştır.

Her şey için bir kere daha teşekkür ederim.

Saygılarımla.

 

[cems]

Sayın cems merhaba,

Kod'ları gizlemişsiniz, tabi sizin tercihiniz,
.

Özeliniz kapalı , bana ulaşın

 

[1Al2Ver]

Sayın cems merhaba,

Özel Mesaj'ı açtım, özelden size ulaşmaya çalışıyorum, sanırım mesajım biraz uzun olduğu için bir uyarı aldım, kısa yazacağım.

Teşekkür ederim.

Alınan hata mesajı ;

Your options are configured to accept private messages only from your contacts. Therefore the following users will be unable to reply:
cems
To send the message anyway, check the checkbox below in the Additional Options section, otherwise remove these users' names from the recipients list.

 

[cems]

Sayın cems merhaba,

Özel Mesaj'ı açtım, özelden size ulaşmaya çalışıyorum, sanırım mesajım biraz uzun olduğu için bir uyarı aldım, kısa yazacağım.

Teşekkür ederim.

Henuz bende açıldısı görünmedi sanırım zaman alıyor. Msg nın 3000 karakter sınırı var, ustu olunca gondermez , ikiye bolun. Belki siz de henüz açılma engelindesiniz, bilemiyorum yönetim müdahale eder mi yoksa update zamanı mı var ...

 

[cems]

Alınan hata mesajı ;

Your options are configured to accept private messages only from your contacts. Therefore the following users will be unable to reply:
cems
To send the message anyway, check the checkbox below in the Additional Options section, otherwise remove these users' names from the recipients list.

Seçenekleriniz sadece kontaklarınızdan mesaj kabule işaretlenmiş. Bu nedenle aşağıdaki kullanıcılar size cevap veremez.

cems

Yine de mesaj göndermek istiyorsanız ek seçenekler bölümündeki kutuyu boşaltın , aksi takdirde kişiyi alıcı listenizden çıkarın.

 

[1Al2Ver]

Sayın cems merhaba,

İlk tespitlerim, FİLTRELE sayfasındaki kriterler ;

Yaş, Tahsil, Meslek ve Mahalle için olabilir,

DÜZELT ve SİL işlemi, excele dönüldüğünde "TABLO" sayfasından yapılmamalı,

"TABLO" sayfası şu durumda her türlü işleme açık, sayfa korumaya alınırsa buradan düzeltme yapılması önlenir düşüncesindeyim,

Teşekkür ederim.

 

[cems]

Sayın 1Al2Ver

Özelinizin açılmasını bekliyorum , sanırım hızlandırmak için yapılacak bir şey yok. Ya da bir mail adresi verip sonradan kaldırabilir misiniz ?

Filtrelere ek yapıldı
Excele geçişe inputbox kondu , bunu siz userform ile değiştirirsiniz * kabul etmediğinden

Dataya zarar, excele geçen tarafından her şekilde yapılabillir. Dosyayı c: de tutmanın sebebi göz önünde olmaması ve karıştırılamaması için. Masaüstünde sadece kısayol kalması gerek. Bunda ADO DAO dışarda bir veritabanı demek istiyorsanız, henüz o kadar iyi olmayabilirim.

Yaşı bir müddet elde girin ya da haftaya incelerim , veya siz de bunu yapabilirsiniz.

10. mesajdaki dosya yenilendi.

 

[1Al2Ver]

Sayın cems merhaba,

Bu açıklamayı anlıyamadım !

Excele geçişe inputbox kondu , bunu siz userform ile değiştirirsiniz * kabul etmediğinden

e-mailim ; 1Al2Ver@gmail.com

İlk incelemeler sonucu, mükemmel olduğunu söyleye bilirim.

Emeğinize, ilginize, yardımlarınıza çok teşekkür ederim.

 

[cems]

Size mail ile bilgi gönderdim . O cumlenin anlamı , inputbox şifreyi gizlemiyor , yıldız falan yapmıyor. O userformda mümkün ...

Spam kutusunu da kontrol etmeyi unutmayın

Güle güle kullanın

 

[Haluk]

.......inputbox şifreyi gizlemiyor , yıldız falan yapmıyor. O userformda mümkün ...

Cem Bey;

Aşağıdaki kodlarla InputBox'da şifre karakteri olarak (*) veya başka bir karakteri kullanabilirsiniz.

İyi akşamlar,

Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
    ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
    (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _
    (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _
    ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long

Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0
Private hHook As Long

Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim RetVal
    Dim strClassName As String, lngBuffer As Long
    If lngCode < HC_ACTION Then
        NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If
    strClassName = String$(256, " ")
    lngBuffer = 255
    If lngCode = HCBT_ACTIVATE Then
        RetVal = GetClassName(wParam, strClassName, lngBuffer)
        If Left$(strClassName, RetVal) = "#32770" Then
            SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
        End If
    End If
    CallNextHookEx hHook, lngCode, wParam, lParam
End Function

Function InputBoxDK(Prompt, Title) As String
    Dim lngModHwnd As Long, lngThreadID As Long
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)
    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    InputBoxDK = InputBox(Prompt, Title)
    UnhookWindowsHookEx hHook
End Function

Sub Test()
    x = InputBoxDK("Şifrenizi girin !", "Deneme")
    MsgBox "Girdiğiniz şifre =" & x
End Sub