Formum Üzerinde Command Buton Düzeltmesi

[cem]

Mrb,

ekdeki formum Üzerinde Yeni Kayıt butonunda hata var.Ama bir türlü Düzeltemedim.Yeni Kayıt Yapınca Sağdaki Listbox a isimler yerleşiyor.Fakat arka arkaya kayıt yapmaya çalıştığımda yeni kayıt butonu ile sağdaki listbox a isimler otomatik geçmiyor.Bunun Düzeltilmesi konusunda yardımlarınızı rica edebilirmiyim.

tşk

 

[Orion1]

Yeni kayıt butonunda textboxlara boşluk atamışsınız.Bir şey yok ki.Kodlarınız aşağıda.

Private Sub CommandButton4_Click()
Dim MyCtrl As Control
For Each MyCtrl In Me.Controls
If TypeName(MyCtrl) = "TextBox" Then MyCtrl = Empty
Next

End Sub

 

[cem]

Yeni kayıt butonunda textboxlara boşluk atamışsınız.Bir şey yok ki.Kodlarınız aşağıda.

Private Sub CommandButton4_Click()
Dim MyCtrl As Control
For Each MyCtrl In Me.Controls
If TypeName(MyCtrl) = "TextBox" Then MyCtrl = Empty
Next

End Sub

peki bunu düzeltemezmiyim.ilk yapılan kayıt listbox a atıyor ama devamında her yeni kayıt yapıp kaydet dediğimde listbıx a isimler gelmiyor.ancak iptal deyip formu tekrar açınca yaptığım kayıtların devamı görünüyor.

 

[fedeal]

Merhaba ,kırmızı satırları ilave edin,

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then

If TextBox2.Text <> "" Then

For i = 2 To Sheets("Data").Range("A65536").End(xlUp).Row
                If Sheets("Data").Range("B" & i).Value = TextBox1.Text And _
                        Sheets("Data").Range("C" & i).Value = TextBox2.Text Then
                    MsgBox "Bu isimde bir kişi zaten kayıtlarda var", vbCritical, "MÜKERRER KAYIT BULUNDU"
                    Exit Sub
                End If
            Next i


    Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row

    Bos_Satir = Son_Dolu_Satir + 1
     
    Sheets("Data").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
 
    Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
    
    Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
    
    Sheets("Data").Range("D" & Bos_Satir).Value = TextBox3.Text

    Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text

    Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text

    Sheets("Data").Range("G" & Bos_Satir).Value = TextBox6.Text

    Sheets("Data").Range("H" & Bos_Satir).Value = ComboBox1.Text

    Sheets("Data").Range("I" & Bos_Satir).Value = TextBox8.Text

    Sheets("Data").Range("J" & Bos_Satir).Value = ComboBox2.Text

    Sheets("Data").Range("K" & Bos_Satir).Value = TextBox10.Text

    Sheets("Data").Range("L" & Bos_Satir).Value = TextBox11.Text

    Sheets("Data").Range("M" & Bos_Satir).Value = TextBox12.Text
    [COLOR="Red"]ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "80;120"
    ListBox1.RowSource = "Data!B2:C" & Sheets("Data").Range("A65536").End(xlUp).Row[/COLOR]
Else
MsgBox "Soyadı da Girmeden Kayıt Yapamazsınız"
MsgBox "İsim Soyad Girilmesi Zorunludur  Cem DURMA"
      End If
      Else
   MsgBox "İsim Girmeden Kayıt Yapamazsınız"
   End If
End Sub

 

[cem]

Merhaba ,kırmızı satırları ilave edin,

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then

If TextBox2.Text <> "" Then

For i = 2 To Sheets("Data").Range("A65536").End(xlUp).Row
                If Sheets("Data").Range("B" & i).Value = TextBox1.Text And _
                        Sheets("Data").Range("C" & i).Value = TextBox2.Text Then
                    MsgBox "Bu isimde bir kişi zaten kayıtlarda var", vbCritical, "MÜKERRER KAYIT BULUNDU"
                    Exit Sub
                End If
            Next i


    Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row

    Bos_Satir = Son_Dolu_Satir + 1
     
    Sheets("Data").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
 
    Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
    
    Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
    
    Sheets("Data").Range("D" & Bos_Satir).Value = TextBox3.Text

    Sheets("Data").Range("E" & Bos_Satir).Value = TextBox4.Text

    Sheets("Data").Range("F" & Bos_Satir).Value = TextBox5.Text

    Sheets("Data").Range("G" & Bos_Satir).Value = TextBox6.Text

    Sheets("Data").Range("H" & Bos_Satir).Value = ComboBox1.Text

    Sheets("Data").Range("I" & Bos_Satir).Value = TextBox8.Text

    Sheets("Data").Range("J" & Bos_Satir).Value = ComboBox2.Text

    Sheets("Data").Range("K" & Bos_Satir).Value = TextBox10.Text

    Sheets("Data").Range("L" & Bos_Satir).Value = TextBox11.Text

    Sheets("Data").Range("M" & Bos_Satir).Value = TextBox12.Text
    [COLOR="Red"]ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "80;120"
    ListBox1.RowSource = "Data!B2:C" & Sheets("Data").Range("A65536").End(xlUp).Row[/COLOR]
Else
MsgBox "Soyadı da Girmeden Kayıt Yapamazsınız"
MsgBox "İsim Soyad Girilmesi Zorunludur  Cem DURMA"
      End If
      Else
   MsgBox "İsim Girmeden Kayıt Yapamazsınız"
   End If
End Sub

yardımınız için teşekkürler