mükerrer kayıt hatası..uyarı veriyor ama kayıt devam ediyor.

[bulentc76]

iyi geceler;
forumda bu mükerrer kayıt konusundaki bilgi çok sınırlı geldiği için bana
sizlerden sorunuma bi çözüm bekliyorum.yardım ederseniz çok sevinirim
sorun : sütunlardan ilki mükerrer kayıt hatası verecek şekilde çalışıyor.
ama diğer sütunlara kayıt uyarı mesajından sonra yapılıyor.
ben kaydın eğer mükerrer kayıt uyarısı veririse userformun hiç kayıt yapmasını istemiyorum.bunu beceremedim...
şimdiden teşekkürler
örnek dosya ektedir...

 

[unur]

Dosyayı incelermisiniz;

Ne derece isteğiniz doğrultusunda

 

[bulentc76]

çok teşekkür ederim ama mükerrer kayıt mesajını verdikten sonra textbox 1 haricindeki açıklama, adet, fiyat vb... diğer sütunlara kayıt yapıyor bu userform.halbuki hiç kayıt yapmaması lazım hemde hiç.yani bu kayıt önceden yapılmıştır diyecek ve userformdaki bilgiler hiç kaydedilmeden aynen kalacak ve kullanıcının mükerrer olan stok kodunu değiştirmesini bekleyecek istediğim tam olarak bu şimdiden ilginize teşekkürler.

 

[omerceri]

örnek ekte

 

[bulentc76]

ömer bey sağolun ama bu hiç kayıt yapmıyorki, mükerrer kayıt varsa verdiği tepki tam benim istediğim gib
bütün bilgiler userformda bekliyor.ama stok kodunu değiştirincede kaydetmiyorki
yani hiç kayıt yapmıyor.

 

[bulentc76]

ha bide sürekli olarak mükerrer kayıt hatasını veriyo formu kapatmak mümkün olmuyo
ilginize teşekkürederim

 

[omerceri]

Şimdi tekrar denedim. Kayıt yapıyor. STIK NO aynı olursa kayıt yapmıyor, diğer kısıtlamalarınızı kayıt düğmesine atarsanız.

 

[omerceri]

Evet sizin daha önce yazdığınız

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox6.Text) Then
TextBox6 = Format(TextBox6.Value, "#,##0.00 YTL")
If Not IsNumeric(txtYaş.Text) Then
End Sub
kodu eksik hata ordan kaynaklanıyor, ya düzeltin yada silin

 

[bulentc76]

ömer bey çok denedim ama ;
sizede zahmet olacak ama en son sizin gönderdiğiniz örnek xls yi indirip bi baksanız
1. tüm sütunları doldurun ve stok kodu daha öncekilerle aynı olmasın
2.tüm sütunları doldurun ve stok kodu daha öncekilerle aynı olsun
userformun verdiği tepkiyi göreceksiniz.
bu konuda yuardımınıza gerçekten ihtiyacım var bu meseleyi bi türlü çözemedim.
tekrar teşekkürler

 

[bulentc76]

o önemli diil onu düzelttim sizde silin onu ve deneyin hatayı göreceksiniz.
ben işte o hatayı çözemedim
saygılarımla

 

[bulentc76]

ömer bey çözdüm olayı çok teşekkürederim ilginize

 

[omerceri]

sn bulentc76
formdaki kapat düğmesinin kodlarının dışındaki kodları silin doğru çalışacaktır.
örnek ekte

 

[omerceri]

sn bulentc76
mümkün olduğunca denetimlerin exit ve enter'lerine kısıtlama koymayın belalı işlere neden olabiliyor.

 

[abdi]

Re: mükerrer kayıt hatası..uyarı veriyor ama kayıt devam edi

Dosyada;

FORMA TÜM YAZILANLARI BÜYÜK HARFE ÇEVİREMEDİM

Kaydet Userform vba kodunu aşağıdaki ile değiştirin Ömer üstadın
kodları gayet güzel çalışıyor
bende burdan ayrıyaten Üstada Teşekkür Ederim.
Forma girilen verileri sayfaya aktarırken büyük harfe çevirerek aktarır.
[vb:1:832115aea5]Private Sub CommandButton1_Click() 'kaydet vba kodu
If TextBox1.Text = "" Then
MsgBox "kayıt numarası girilmemiş"
TextBox1.SetFocus
Exit Sub
End If
If TextBox5.Text = "" Then
MsgBox "birim girilmemiş"
TextBox5.SetFocus
Exit Sub
End If

dene = Range("a2").End(xlDown).Row
For i = 2 To dene
If Range("a" & i).Value = Val(TextBox1.Value) Then
MsgBox "kayıt girilmiş"
Exit Sub
End If
Next
dene = dene + 1
Sheets("STOKLAR").Cells(dene, 1) = TextBox1.Value
Sheets("STOKLAR").Cells(dene, 2) = UCase(TextBox2.Text)
Sheets("STOKLAR").Cells(dene, 3) = UCase(TextBox3.Text)
Sheets("STOKLAR").Cells(dene, 4) = UCase(TextBox4.Value)
Sheets("STOKLAR").Cells(dene, 5) = UCase(TextBox5.Value)
Sheets("STOKLAR").Cells(dene, 6) = TextBox6.Value
Sheets("STOKLAR").Cells(dene, 7) = UCase(TextBox7.Value)

End Sub
[/vb:1:832115aea5]
Saygılar Sevgiler
Çalışmalarınızda Başarılar Dilerim.

 

[bulentc76]

Sheets("STOKLAR").Cells(dene, 1) = TextBodediğinizi yaptım sayfadaki tüm verileri sildim.sütun başlıkları hariç
ve kodları kopyalayıp userformu çağırdım verileri yazdım
kaydet diyince yukarıdaki hatayı veriyor
hepinize teşekkür borçluyum

 

[bulentc76]

Sheets("STOKLAR").Cells(dene, 1) = TextBox1.Value
özürdilerim hata bu
üstü sarı renkle çiziliyo

 

[omerceri]

Haklısınız kodu aşağıdaki gibi değiştirin
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "kayıt numarası girilmemiş"
TextBox1.SetFocus
Exit Sub
End If
If TextBox5.Text = "" Then
MsgBox "birim girilmemiş"
TextBox5.SetFocus
Exit Sub
End If
If Range("a2").Value = "" Then
dene = 1
Else
dene = Range("a2").End(xlDown).Row
For i = 2 To dene
If Range("a" & i).Value = Val(TextBox1.Value) Then
MsgBox "kayıt girilmiş"
Exit Sub
End If
Next
End If
dene = dene + 1
Sheets("STOKLAR").Cells(dene, 1) = TextBox1.Value
Sheets("STOKLAR").Cells(dene, 2) = TextBox2.Text
Sheets("STOKLAR").Cells(dene, 3) = TextBox3.Text
Sheets("STOKLAR").Cells(dene, 4) = TextBox4.Value
Sheets("STOKLAR").Cells(dene, 5) = TextBox5.Value
Sheets("STOKLAR").Cells(dene, 6) = TextBox6.Value
Sheets("STOKLAR").Cells(dene, 7) = TextBox7.Value
End Sub

 

[omerceri]

Gönlüm elvermedi susmaya bir hata daha gördüm onuda düzelttim.

Bayağı karıştı bu tekrar düzelttim.

Böyle daha doğru olacak ilk kayıtlardaki sorunları gözden kaçırmışım, yanlız ilk satırda tablo başlıklarının olması şart.
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox "kayıt numarası girilmemiş"
TextBox1.SetFocus
Exit Sub
End If
If TextBox5.Text = "" Then
MsgBox "birim girilmemiş"
TextBox5.SetFocus
Exit Sub
End If
dene = Sheets("STOKLAR").Range("a1").CurrentRegion.Rows.Count
For i = 1 To dene
If Sheets("STOKLAR").Range("a" & i).Value = Val(TextBox1.Value) Then
MsgBox "kayıt girilmiş"
Exit Sub
End If
Next

dene = dene + 1
Sheets("STOKLAR").Cells(dene, 1) = TextBox1.Value
Sheets("STOKLAR").Cells(dene, 2) = TextBox2.Text
Sheets("STOKLAR").Cells(dene, 3) = TextBox3.Text
Sheets("STOKLAR").Cells(dene, 4) = TextBox4.Value
Sheets("STOKLAR").Cells(dene, 5) = TextBox5.Value
Sheets("STOKLAR").Cells(dene, 6) = TextBox6.Value
Sheets("STOKLAR").Cells(dene, 7) = TextBox7.Value
End Sub

 

[bulentc76]

tam istediğim gibi olmuş yardımcı olan herkese teşekkür ederim...
emeğinize sağlık...
:mutlu:

 

[ivanovic]

[vb]Private Sub CommandButton1_Click()
If TextBox1.Text = Empty Then
MsgBox ("TextBox1 i boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
If TextBox2.Text = Empty Then
MsgBox ("TextBox2 yi boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
If TextBox3.Text = Empty Then
MsgBox ("TextBox3 ü boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
If TextBox4.Text = Empty Then
MsgBox ("TextBox4 ü boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
If TextBox5.Text = Empty Then
MsgBox ("TextBox5 i boş geçmeyiniz"), vbOKOnly, "Uyarı!!!": Exit Sub
Else
End If
'******************************
On Error Resume Next
'Sheets(ListBox1.Value).Activate
Range("a3").Select
Cells.Find(What:=ad.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, searchformat:=False).Activate
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.ad.Value) Then
If MsgBox(Me.ad & " isimli STOK kayıtlıdır" & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = TextBox1
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
End Sub[\vb]