Kaydet Değiştir ve Sil İşlemi Hk.

[ormann]

İyi günler ekli dosyada bulunan TextBox ve ComboBoxlardan girilen verileri butonlar ile KAYIT sayfasına kayıt yapıp değiştir ve sil butonları ilede değiştirip silebilirmiyiz. Ayrıca ListBox1'e kayıt sayfasındaki köy isimleri gelebilir mi .Listbox1 de listelenen köylerden herhangi birini seçtiğimde o köye parsellerin listesi ListBox2 ye gelebilir mi?.ListBox2 ye gelen parseli seçtiğimde ilgili veriler giriş sayfasındaki TextBox ve ComboBoxlara gelebilir mi ? Yardımlarınızı bekliyorum.Saygılar
http://dosya.co/61n2mdpsk5gy/dosya.xls.html

 

[ormann]

Konu ile ilgili desteğinizi bekliyorum.Saygılar sunuyorun

 

[ormann]

Konu günceldir

 

[Ömer BARAN]

Merhaba.

Örnek belgenizde hiçbir veri yok.
Örneğin Combobox'lara veya Listbox'lara gelecek verilerin kaynağı olmalı en azından.
Eksik bilgi olduğunda kayıt yapılmaması için; doldurulması zorunlu olan alanları (nesneleri) belirtmelisiniz.

Belgenizi, üzerinde işlem yapılabilecek bir miktar veri olacak şekilde yenileyip,
hangi koşulda (ya da örneğin hangi işlemin ardından) hangi işlemin yapılacağını açıklamalısınız.

Belgeyi buna göre yenilerseniz bir üye mutlaka konunuzu cevaplayacaktır.
.

 

[ormann]

Ömer bey haklısınız .Hiçbir veri girmeden direk dosyayı ekledim.Dosyanın son hali ektedir.Yapmak istediğim Şu:
1- TextBox ve ComboBoxlardan girilen verileri KAYIT butonu ile kayıt yapıp değiştir ve sil butonları ile de değiştirip silebilir miyiz

2-Ana saydada ComboBox2'den ilçeyi seçtiğimde seçilen ilçenin tüm köyleri ListBox.1'e gelecek.Listbox1'de Örneğin Balcalı Köyünü seçtiğimde o köye ait kayıt sayfasında E sütünunda parsel varsa Listbox2'de listelenecek.Listbox2 de ise parseli seçtiğimizde o parsele ait tüm kayıtlar anasayfada ilgili textbox ve comboboxlara gelecek.Yardımlarınız için şimdiden teşekkürlerimi sunarım.

http://dosya.co/pbqn21iupuib/dosya.xls.html

 

[ormann]

Konu günceldir

 

[ormann]

İyi günler;
Dosyada kayıt işlemini yaptım.Fakat silme,değiştirme makrosunu yapamadım.
Ayrıca Ana saydada ComboBox2'den ilçeyi seçtiğimde seçilen ilçenin tüm köyleri ListBox.1'e gelecek.Listbox1'de Örneğin Balcalı Köyünü seçtiğimde o köye ait kayıt sayfasında E sütünunda parsel varsa Listbox2'de listelenecek.Listbox2 de ise parseli seçtiğimizde o parsele ait tüm kayıtlar anasayfada ilgili textbox ve comboboxlara gelecek.Yardımlarınız için şimdiden teşekkürlerimi sunarım.

Private Sub CommandButton2_Click()

Dim sat As Long
Dim S1 As Worksheet, S2 As Worksheet
On Error Resume Next
Set S1 = Worksheets("ANASAYFA")
Set S2 = Worksheets("KAYIT")
If Sayfa1.TextBox7.Value = "" Then
MsgBox "Lütfen parsel noyu Yazınız....", vbCritical
Exit Sub
End If
Say = WorksheetFunction.CountIf(S2.[E:E], Sayfa1.TextBox7.Value)
If Say > 0 Then
If MsgBox("Daha evvel Kayıt edilmiş!" & vbCrLf & "Devam Ederseniz Yeni Kayıt Yapılacaktır." & vbCrLf & "Devam  Etmek İstiyormusunuz ?", vbCritical + vbYesNo, "                         Dikkat !") = vbNo Then GoTo SON
End If
sat = S2.Cells(S2.Rows.Count, 5).End(xlUp).Offset(1, 0).Row
S2.Cells(sat, 1).Value = Application.Max(S2.Range("A:A")) + 1
S2.Cells(sat, 2).Value = Sayfa1.ComboBox1.Value
S2.Cells(sat, 3).Value = Sayfa1.ComboBox2.Value
S2.Cells(sat, 4).Value = Sayfa1.ComboBox3.Value
S2.Cells(sat, 5).Value = Sayfa1.TextBox7.Value
S2.Cells(sat, 6).Value = Sayfa1.TextBox1.Value
S2.Cells(sat, 7).Value = Sayfa1.TextBox6.Value
S2.Cells(sat, 8).Value = Sayfa1.TextBox2.Value
S2.Cells(sat, 9).Value = Sayfa1.TextBox3.Value
S2.Cells(sat, 10).Value = Sayfa1.TextBox4.Value
S2.Cells(sat, 11).Value = Sayfa1.ComboBox5.Value
S2.Cells(sat, 12).Value = Sayfa1.ComboBox6.Value
S2.Cells(sat, 13).Value = Sayfa1.ComboBox7.Value
S2.Cells(sat, 14).Value = Sayfa1.ComboBox8.Value
S2.Cells(sat, 15).Value = Sayfa1.ComboBox9.Value
S2.Cells(sat, 16).Value = Sayfa1.ComboBox10.Value
S2.Cells(sat, 17).Value = Sayfa1.TextBox5.Value
S2.Cells(sat, 17).Value = Format(Now, "dd/mm/yyyy  dddd  hh:mm:ss")
's1.Range("D3:D27").ClearContents
Sheets("KAYIT").Select

MsgBox Sayfa1.TextBox7.Value & "   RAPOR KAYDI ___" & " Kaydı yapılmıştır..."
SON:
Sheets("anasayfa").Select
End Sub

http://dosya.co/c818e9cg7jdj/dosya.xls.html