• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kayıt sorunu

M

moresby

Katılım
2 Kasım 2004
Mesajlar
124
Dosyada 1.Dönem Not kısmında sınıf seçilince öğrenciler Listboxa geliyor. Oradan öğrenci üzerine tıklayınca tektboxlara düzgün olarak dağılıyor. Benim sıkıntım ise şu
Bilgilerde değişiklik yapıp kaydet dediğim zaman değişik yerlere kayıt yapıyor. Bilgilerin geldiği hücreye düzeltme yaptıktan sonrak kayıt nasıl yaptırabiliriz? Þimdiden tşk
 
verileri aldığınız gibi kaydetmeyi denediniz mi?
[vb:1:cf2aa33d24]Private Sub CommandButton2_Click()
On Error Resume Next
If ComboBox1.Value = "" = "" Then End
If ComboBox25.Value = "" = "" Then End
On Error Resume Next
satir = ComboBox1.ListIndex + 2
For x = 12 To 95
Cells(satir, x).Value = Controls("textbox" & x + 1)
Next
TextBox97 = Cells(satir, 223).Value
TextBox98 = Cells(satir, 224).Value
MsgBox ("Bilgiler kayıt edildi.")
End Sub[/vb:1:cf2aa33d24]
 
alttaki satırları değiştirmeyi unutmuşum, şöyle deneyin
ayrıca seçili sayfanızın kaydedilecek sayfa olup olmadığını da kontrol edin veya koda ekleyin işinizi daha sağlam olur

[vb:1:6cb3d588cd]Private Sub CommandButton2_Click()
On Error Resume Next
If ComboBox1.Value = "" = "" Then End
If ComboBox25.Value = "" = "" Then End
On Error Resume Next
satir = ComboBox1.ListIndex + 2
For x = 12 To 95
Cells(satir, x).Value = Controls("textbox" & x + 1)
Next
Cells(satir, 223).Value = TextBox97
Cells(satir, 224).Value = TextBox98
MsgBox ("Bilgiler kayıt edildi.")
End Sub
[/vb:1:6cb3d588cd]
 
Kayıt yapıyor. Fakat kayıt öğrencinin bulunduğu satıra değilde hep birinci satıra yapıtor. Ã?ğrenci seçiniz yazan kısımda bu problem yok ama sınıf kısmından halletmeye çalışınca sıkıntı veriyor bu arada ilgine çok teşekkürler
 
Sorunu biraz daha anlatayım oda aynı sınıftaki öğrencilerden en son öğrencide değişiklik yaptığım halde kayıt aynı sınıftaki birinci sırada yer alan öğrenciye yapılıyor
 
anlamadığım sınıfı niye dahil ediyorsunuz
aynı okulda aynı numara 1 kez kullanılmıyor mu
 
sınıfı dahil etmemin sebebi şu okulda bildiğin üzere birçok öğrenci var ve notlar girilirken bu öğrencilerin numaralarını tek tek bilmen gerekecek bu zor. o yüzden sınıflar seçilerek listboxa aktarmaya oradanda notların girişini kolaylaştırmaya çalıştım ama beceremedim
 
syn veyselemre, sınıfı seçip-listboxtan öğrenciyi seçip kayıt yaptıktan sonra kayıtlar öğrencinin olduğu sütuna değilde ilk satıra yapılıyor. tşk
 
[vb:1:86d0084a4b]Private Sub ListBox5_Click()
On Error Resume Next
sat = Columns(3).Find(ListBox5.List(ListBox5.ListIndex, 0)).Row
Cells(sat, 2).Select

ComboBox1.Text = ListBox5.List(ListBox5.ListIndex, 0)

For i = 12 To 96

.
.
.
.

yukarıdaki kodlarınızın arasına koyu seçili kısmı girin
[/vb:1:86d0084a4b]
 
teşekkürler şimdi halloldu uğraştırdığım için kusura bakma
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst