Form üzeriden güncelle ve yeni kayıt işlemleri

[mahmutozdemir]

Slm
Form üzeriden güncelle ve yeni kayıt işlemleri yapmak istiyorum. Bunun için listbox1 üzerinden bir isimi sectiğimde forma nasıl çağırmış olurum ve yeni kayıt yapmadan güncellemiş olurum.

 

[mahmutozdemir]

bana yardımcı olacak yok mu

 

[Orion1]

Günceleme işi tamadır.Dosyanız ektedir.
B sütundaki vatandaşlık no ya göre arama yapıyor.

Private Sub CommandButton2_Click()
Dim k As Range
If ListBox1.ListCount < 1 Then
    MsgBox "Listede veri yok işlem iptal oldu!!", vbCritical, "U Y A R I"
    Exit Sub
End If
If ListBox1.ListIndex < 0 Then
    MsgBox "Lütfen Listeden bir seçim yapınız!!" & vbLf & "İşlem İptal Oldu!!", vbCritical, "U Y A R I"
    Exit Sub
End If
Set k = Sheets("ÖB").Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row) _
.Find(ListBox1.Column(1), , xlValues, xlWhole)
ListBox1.RowSource = ""
If Not k Is Nothing Then
    For i = 2 To 9
       Sheets("ÖB").Cells(k.Row, i).Value = Me.Controls("T" & i).Value
    Next i
End If
ListBox1.RowSource = "ÖB!A2:I" & Sheets("ÖB").Cells(Rows.Count, "B").End(xlUp).Row
Set k = Nothing
MsgBox "Güncelleme Tamamlandı" & vbLf & "evrengizlen@hotmail.com"

End Sub

 

[mahmutozdemir]

Çok tşekkür ederim ellerinize sağlık...

 

[mahmutozdemir]

Slm
1-user form yeni kayıt kayıttan sonra neden kapanıyor.
2-user form yeni kayıt ve güncelemeden sonra nasıl temizlenir.
3-userform üzerinde kaydet ve güncelle butonları var. Güncelle butonu gizli olsun listbox1 e tıkladığımda güncelleme tuşu görünsün ve kaydet tuşu gizlensin.GÜncelleme yapınca tekrar günceleme gizlensin kaydet tuşu çıksın istiyorum.
bana yardımcı olursanız sevinirim

 

[mahmutozdemir]

bana yardımcı olabilecek kimse yok mu

 

[Orion1]

Slm
1-user form yeni kayıt kayıttan sonra neden kapanıyor.
2-user form yeni kayıt ve güncelemeden sonra nasıl temizlenir.
3-userform üzerinde kaydet ve güncelle butonları var. Güncelle butonu gizli olsun listbox1 e tıkladığımda güncelleme tuşu görünsün ve kaydet tuşu gizlensin.GÜncelleme yapınca tekrar günceleme gizlensin kaydet tuşu çıksın istiyorum.
bana yardımcı olursanız sevinirim

Dosyanız ektedir.

 

[mahmutozdemir]

Evren bey çok teşekkür ederim. Sizden birşeyler daha istesem
1-tarihleri nasıl tarih olarak nasıl kaydeder
2-isim kısmı boş ise kayıt yapmasın
3-sıra no kısmını kayıtlı kişi sayısını gösterebilirmi

 

[Orion1]

Evren bey çok teşekkür ederim. Sizden birşeyler daha istesem
1-tarihleri nasıl tarih olarak nasıl kaydeder
2-isim kısmı boş ise kayıt yapmasın
3-sıra no kısmını kayıtlı kişi sayısını gösterebilirmi

dosyanız ektedir.

 

[mahmutozdemir]

çok teşrkkürler...

 

[mahmutozdemir]

Slm ,
1-Listbox tan veri güncellemek için çağırdığımda tarih alanları tarih formatında değil de sayı formatında çıkıyor.örneğim 26.06.2012 yerine 41201 diye cıkıyor.
2-tarih alanları boş olduğunda kaydedince hata veriyor.

 

[snx111]

Bu userform ekrana nasıl sığıyor kocaman ?

 

[Murat OSMA]

Benim gibi monitörü büyük olanlar bu şekilde görebiliyor... k::

 

[snx111]

Büyüklüğü değil işlevi önemli diye biliyordum

 

[Murat OSMA]

Bence öyle düşünenler bu soruyu sormamalı..

Bu userform ekrana nasıl sığıyor kocaman ?

 

[mahmutozdemir]

Arkadaşlar bana yardımcı olabilecek yok mu? Sonuçta 55 ekran tv yi monutör olrak kullanıyorum.Ve bu bir taslak düzelteceğim şeklini