Kayıt Düzelt Butonu

[jacckhal]

Merhaba arkadaşlar ben bir form yaptım veri girşi bu veritabanından birçok işlem yapıyorum. Ancak verilerde bir değişiklik yapacağım zaman excel sayfasına girip yapmak zorunda kalıyorum. Ben bir butonla forma getirdiğim bilgilere ek yapıp veya değiştirip data daki aynı satırına ekletmek istiyorum yardımcı olursanız sevinirim..
Dosya ekte teşekkürler..

 

[cems]

Baya iyi geliştirilmiş bir form olduğu halde neden düzelt fonksiyonu eklenmemiş ?

 

[jacckhal]

Baya iyi geliştirilmiş bir form olduğu halde neden düzelt fonksiyonu eklenmemiş ?

Hocam formu kendim yaptım tabiki bazı yardımlar aldım bilgimiz ksıtlı çoğu yere yetmiyor alıntı kodlarla yaptığım bir form tabiki bu formun bir kısmı tamamını yayınlayamadım.. sadece sorumun olduğu kısmı...

 

[erselonur]

aynı dert bendede var,
ustalar bir el atsa olacak aslında,
hemde alfabetik atsa daha güzel olur

senin örneği inceledim güzel olmuş
yalnız, resim yükle dediğinde resmi nereye atıyor yani formda değil, PC'de nereye atıyor

Şimdiden herkese teşekkürler

 

[jacckhal]

aynı dert bendede var,
ustalar bir el atsa olacak aslında,
hemde alfabetik atsa daha güzel olur

senin örneği inceledim güzel olmuş
yalnız, resim yükle dediğinde resmi nereye atıyor yani formda değil, PC'de nereye atıyor

Şimdiden herkese teşekkürler

Excel de belirlediğin hücreye atıyor sonra çıktı alacağın zaman resimle birlikte çıktı alıyorsunuz..

 

[erselonur]

Excel de belirlediğin hücreye atıyor sonra çıktı alacağın zaman resimle birlikte çıktı alıyorsunuz..

Kusura bakma anlayamadım.

Belirlediğim hücre derken onu anlayamadım.

Mesala benimde böyle bir çalışmam var.
Mesala Yeni personel kayıt ederken, personel resmini masa üstünden alıp nereye atacak.

Kusura bakma bilgim az onun için sorduğum soru sana saçma gelebilir.

kolay gelsin

 

[Husgvarna]

Merhaba arkadaşlar ben bir form yaptım veri girşi bu veritabanından birçok işlem yapıyorum. Ancak verilerde bir değişiklik yapacağım zaman excel sayfasına girip yapmak zorunda kalıyorum. Ben bir butonla forma getirdiğim bilgilere ek yapıp veya değiştirip data daki aynı satırına ekletmek istiyorum yardımcı olursanız sevinirim..
Dosya ekte teşekkürler..

"biyyaz" adlı formunuza sıra no (dosyanızda"Label252") ekleyip.
Aşağıdaki kodları yazın/değiştirin

 Private Sub CommandButton5_Click()
For a = 1 To 126
Cells(Label252.Caption + 1, a + 1).Value = Controls("TextBox" & a).Value
Next
End Sub

.

 Private Sub cmdPersCagir_Click()
Sheets("veri er").Select
Dim ara As Range

If TextBox2.Value = "" Then                                        ' Hata mesajı
MsgBox "Lütfen Ad Soyad Kutusuna Geçerli Bir Personel girin."
Exit Sub
End If

Set ara = Range("C2:C5000").Find(TextBox2)

If ara Is Nothing Then                                          ' Hata mesajı 2
MsgBox "Aradığınız Ad Soyad' da Kayıt Bulunamadı."
Exit Sub
End If
Label252.Caption = Cells(ara.Row, 1).Text
For a = 1 To 126
Controls("TextBox" & a).Value = Cells(ara.Row, a + 1).Value
Next

End Sub

 Private Sub CommandButton3_Click()
For a = 1 To 126
Controls("TextBox" & a) = ""
Next
Label252.Caption = ""
TextBox1.SetFocus
End Sub

Dosyanızın boyutu büyük olduğu için aşağıdaki linke eklendi

http://s2.dosya.tc/server8/NeWNPy/_rnek.xls.html

 

[jacckhal]

Allah Razı olsun üstad valla süper oldu..
Eline emeğine bilgine sağlık

 

[Husgvarna]

Allah Razı olsun üstad valla süper oldu..
Eline emeğine bilgine sağlık

Sağolun, kolay gelsin.
Bu arada formunuzdaki "Daimi ikamet tel:" kutucuğuyla "AB" Sütun başlığı
uyuşmuyor.

 

[jacckhal]

Yok üstad asıl forum da sorun yok bilgiler uyuşuyor.. bu üzerinde çalışma yaptığım belge....
Teşekkürler.