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

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
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...
 
Katılım
8 Aralık 2005
Mesajlar
840
Excel Vers. ve Dili
İş:Excel 2000 Türkçe
Ev:Excel xp Türkçe
Altın Üyelik Bitiş Tarihi
11.06.2022
Dosyayı incelermisiniz;

Ne derece isteğiniz doğrultusunda
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
ç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.
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
ö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.
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
ha bide sürekli olarak mükerrer kayıt hatasını veriyo formu kapatmak mümkün olmuyo
ilginize teşekkürederim
 
Katılım
6 Şubat 2005
Mesajlar
1,467
Ş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.
 
Katılım
6 Şubat 2005
Mesajlar
1,467
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
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
ö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
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
o önemli diil onu düzelttim sizde silin onu ve deneyin hatayı göreceksiniz.
ben işte o hatayı çözemedim
saygılarımla
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
ömer bey çözdüm olayı çok teşekkürederim ilginize
 
Katılım
6 Şubat 2005
Mesajlar
1,467
sn bulentc76
formdaki kapat düğmesinin kodlarının dışındaki kodları silin doğru çalışacaktır.
örnek ekte
 
Katılım
6 Şubat 2005
Mesajlar
1,467
sn bulentc76
mümkün olduğunca denetimlerin exit ve enter'lerine kısıtlama koymayın belalı işlere neden olabiliyor.
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
Re: mükerrer kayıt hatası..uyarı veriyor ama kayıt devam edi

bulentc76' Alıntı:
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.
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
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 :oops:
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Sheets("STOKLAR").Cells(dene, 1) = TextBox1.Value
özürdilerim hata bu
üstü sarı renkle çiziliyo
 
Katılım
6 Şubat 2005
Mesajlar
1,467
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
 
Katılım
6 Şubat 2005
Mesajlar
1,467
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
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
tam istediğim gibi olmuş yardımcı olan herkese teşekkür ederim...
emeğinize sağlık...
:mutlu:
 
Katılım
21 Mayıs 2006
Mesajlar
1
[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]
 
Üst