Öğrenci Kayıt Projesi

cems

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
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...
 

Ekli dosyalar

yerbakili

Destek Ekibi
Destek Ekibi
Katılım
12 Mayıs 2009
Mesajlar
174
Excel Vers. ve Dili
Office 2003
@cems, ustanın yaptıkları üzerine SİL işlemi de eklenmiştir.
 

Ekli dosyalar

Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
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.
 
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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
 
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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
 

Ekli dosyalar

cems

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
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.
 

Ekli dosyalar

Son düzenleme:
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
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

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
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

Kod:
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
Kod:
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.
 
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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
 
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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
 

Ekli dosyalar

cems

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
Vbe'de bul tuşuna ait kodların ikinci paragrafını aşağıdaki kod ile değiştirin.

Kod:
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?
 
Son düzenleme:
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
Vbe'de bul tuşuna ait kodların ikinci paragrafını aşağıdaki kod ile değiştirin.

Kod:
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

Altın Üye
Katılım
2 Eylül 2005
Mesajlar
2,557
Excel Vers. ve Dili
office 2010 tr 32bit
Altın Üyelik Bitiş Tarihi
13-06-2029
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.
 
Katılım
13 Mart 2012
Mesajlar
24
Excel Vers. ve Dili
2010
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
 
Üst