Öğrenci Kayıt Projesi

[frozenbow78]

Merhabalar

Öncelikle İyi Günler Dilerim Hepinize...

Benim Proje Ödevim var bişiler yaptım userformda ama kodlamayı yapamadım sizden biraz yardım istiyorum beraber yapalım benım fazla deneyimim olmadıgı için işin içinden çıkamadım ekte sunuyorm projeyi tşkrler...

http://www.upload.gen.tr/d.php/www/rqsrd9k0/onur_deneme.rar.html

 

[yerbakili]

Kaydetme özelliği eklenmiştir.

 

[cems]

Bul kodları eklendi + combobox rowsource tanımlandı
Düzelt kodları eklendi
Tab order düzensizdi yeniden düzenlendi
Messagebox lar ile sonuç iletişimi verildi
Userform'un açılışta otomatik gelmesi sağlandı.

Sil çalışmasını da siz yapın...

 

[yerbakili]

@cems, ustanın yaptıkları üzerine SİL işlemi de eklenmiştir.

 

[frozenbow78]

Arkadaşlarım ve Abilerim Çok Teşekkür Ederim. Bide Bişi Soracağım Sizlere Foto Ekleme Şansımız Varmı Mesela Öğrencinin Vesikalık Resmini Koysam olur mu acaba .. Biraz Araştırma Yapayım .. Tşkrler..

 

[cems]

Bildiğim kadarı ile , 2003 ya da 2007 deki gibi 2010'da image nesnesi olmadığından userform üzerine foto getirilemiyor ya da başka bir şart ile geliyor. Ben emin değilim , bir araştırın.

 

[frozenbow78]

peki Cems bey Tşkr Ederim Bide Araştırdım Bulamadım Siz Belki Bilirsiniz Diye Sormaya Karar verdim.. Projeme Gireken Mesela Username '' Dersane '' Şifre " 123" Mesela Üyelik Sistmei Gibi Bişi Ekleme Şansımız Varmı . youtube vs. videolar izledim ama bulamadım bu konudada yardım alabilirmiyim

 

[frozenbow78]

Ekte Sunmuş oldugum projemde baya geliştirdim. ama Multipage2deki combobox ile bul'ma seçeneğini aktif edemedım kodladım ama hata verdi sildim bi yardım edin lütfen projeyi kendı kafanıza göre dizayn edebilirisniz ekleme silme yapabilirsiniz.. iyi aksamlar Microsoft office 2003'dur

 

[cems]

Youtube'lere falan hiç gerek yok , forumdaki arama fonksiyonu size %95 istediğinizi getiriyor.
%5 ise kendinize özel ayrıntılar ya da düzeltmeler gerektirebiliyor.

2003 Versiyonda olmak üzere, resim getirme konusunda Sayın Yurttaş'ın dosyalarına burdan
http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-rnek-dosya-t22790.html
bir göz atın.

Kullanıcı adı + şifre konusunda da Sayın Korhan Ayhan'ın dosyalarına da burdan
http://www.excel.web.tr/f129/parola-ifre-giri-i-3-hak-synyrly-t7004.html
bir göz atın lütfen.

Combobox probleminize baktığımızda ise :

1-Textboxları sayfalara taşımış olduğunuzdan kodları da çorba gibi karıştırmışsınız, gerek yok sürekli yeni textbox ile ilerlemek eleman adı sorununu engeller, eski yerlerine alındı,kodlar düzeltildi
2-Doğal olarak tab order ( atlama sıralaması ) da bozulmuş, düzeltildi.
3-Multipage sayfalarının her birine progressbar koydum, kayıtta görsellik oldu.
4- Her iki multipage sayfasındaki kodların tamamı elden geçirildi, düzeltildi.
5-Multipage'de hangi sayfayı seçerseniz alttaki data sayfasını otomatik seçerek doğru tabloya kayda hazırlanacak kodlar kondu.

Yukarıdaki iki konuyu da size bırakıyorum.

 

[frozenbow78]

teşekkür ederim Linkleri inceliyorum

 

[frozenbow78]

Linkleri İnceledim sanırım benım vba bilgimi aşar ondan bulaşma şifreli giriş kısmına baktım kendı projemın basına nasıl ekliceğimi bilmedigim için bulaşmadım daha basit bişiler araştırıyım

 

[cems]

9 Nolu mesaj ekinde onarılmış dosyanızı ekledim. Bu arada proje ödevinizin " olması gerekenler ve size verilen bilgileri aşanlar " çizgisine cidden dikkat edin .

 

[frozenbow78]

9 Nolu mesaj ekinde onarılmış dosyanızı ekledim. Bu arada proje ödevinizin " olması gerekenler ve size verilen bilgileri aşanlar " çizgisine cidden dikkat edin .

Cems Hocam çok teşekkür ederim . elinize sağlık allah razı olsun sizden..

 

[cems]

Sayın frozenbow78
Çalışmanızda yeni bir userform yaratın :
1- Üzerinde textbox1 ve textbox2 olarak iki nesne yerleştirip caption'larını silin
2- Formun altına 2 adet tuş nesnesi ekleyin .
2- Alttaki kodları bu userform'un kod bölümüne yerleştirin

Private Sub Commandbutton1_Click()
  Text1 = "" :   Text2 = ""
End Sub

Private Sub Commandbutton2_Click()
  If Text1 = "Onur" And Text2 = "dersanesi" Then
    MsgBox ("Merhaba")
unload userform2
  userform1.show
    Exit Sub
  End If
  If Text1 <> "Onur" Then
    Text1.SetFocus
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1)
    Exit Sub
  End If
  If Text2 <> "dersanesi" Then
    Text2.SetFocus
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2)
  Exit Sub
Msgbox "kullanıcı adı ya da şifre hatalı. Lütfen dikkatle deneyiniz",vbyesno
  End If 
End Sub

3- modul içindeki auto_open içinde formun adını değiştirin

Sub auto_open()
userform2.show
end sub

İlk olarak şifre formu açılır, doğru giriş yapıldığında selamlama gelir. Ok e bastığınızda ilk form kapanır data işlediğiniz form açılır.

 

[frozenbow78]

Sayın Cems hocam

Sonunda yaptım çok teşekkür ederim size. sizide yordum gece gece hakkınızı helal edin allah razı olsun sizden

 

[frozenbow78]

Cems Hocam multipage2 deki 'bul' butonu gene arıza verdi bi bakabilirmisiniz projemi geliştirdim baya bi yardım edin lütfen ..

giriş şifresi bilgi kısmında vardır.. teşekkürler bekliyorum

 

[cems]

Vbe'de bul tuşuna ait kodların ikinci paragrafını aşağıdaki kod ile değiştirin.

Sheets("veli").Select
For Each hucre In Range("b2:b1700")
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then
   hucre.Select

TC kimlik B sütununda, combobox buna değil A sütununa bakmış. Bu kodla düzeliyor.

Bu arada geliştirmeleriniz çok güzel ,efekt dahi vermişsiniz . Tebrik ederim .

Bu arada, forum dışında Algoritma ve Algoritmik düşünme konularını araştırarak incelemenizi önerebilir miyim?

 

[frozenbow78]

Vbe'de bul tuşuna ait kodların ikinci paragrafını aşağıdaki kod ile değiştirin.

Sheets("veli").Select
For Each hucre In Range("b2:b1700")
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then
   hucre.Select

TC kimlik B sütununda, combobox buna değil A sütununa bakmış. Bu kodla düzeliyor.

Bu arada geliştirmeleriniz çok güzel ,efekt dahi vermişsiniz . Tebrik ederim .

Bu arada, forum dışında Algoritma ve Algoritmik düşünme konularını araştırarak incelemenizi önerebilir miyim?

peki önerilerinizi göze alcam ve incelicem ama bi konuda daha yardım isticeğim sizden kayıt no otomatik kendi verebilirmi acaba çünkü multipage2de kayıt numarası 1 1 1 1 olarak kayıt ediyor 1 2 3 4 diye devam etmiyorda öyle bişi olabilirmi teşekkürler

 

[cems]

Kayıt numarasını, sayfayı gördüğünüz için elle verebilirsiniz. Otomatik kaydı multipage'de yapabileceğimden emin değilim, üstadlar belki düzgünce müdahale ederler.

 

[frozenbow78]

Kayıt numarasını, sayfayı gördüğünüz için elle verebilirsiniz. Otomatik kaydı multipage'de yapabileceğimden emin değilim, üstadlar belki düzgünce müdahale ederler.

Peki Cem Bey Hallettim kendi basıma uğraştımda teşekkürler iyi günler