VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html) +--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html) +--- Konu Başlığı: VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? (/konu-vb-net-ile-mukerrer-kayit-uyarisi-nasil-verilir.html) Sayfalar:
1
2
|
VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - alican60 - 19/12/2013 Aşağıdaki kod ile kayıt yaparken aynı TckimlikNo lu birisi varsa nasıl uyarı verdirebilirim ? Kod:
'KAYDET Cvp: VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - alpeki99 - 19/12/2013 Kod:
Dim myCmdKayitVarmi As New OleDbCommand("SELECT terminalId FROM tblterminal WHERE terminalKodu=@term", myCnn) Cvp: VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - alican60 - 20/12/2013 Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu. Cvp: VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - drummers - 20/12/2013 (20/12/2013, 00:34)alican60 yazdı: Alp Hocam bir türlü uyarlayamadım verdiğiniz kodu. Şöyle bir dene bakalım olacak mı?
Cvp: VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - alican60 - 20/12/2013 Teşekkür ederim Ömür abi,tam istediğim gibi oldu. RE: VB.NET ile Mükerrer Kayıt Uyarısı Nasıl Verilir ? - kuzens - 29/06/2020 Bu yapıda ki kodlamaya mükerrer kayıt uyarısı verdirip kaydetmemeyi nasıl yaptırabiliriz.Teşekkürler Dim SonSatır As Variant Private Sub CommandButton1_Click() If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then If IsNumeric(TextBox3.Value) Then SonSatır = WorksheetFunction.CountA(Worksheets("personel").Range("A:A")) + 1 If SonSatır = 2 Then Worksheets("PERSONEL").Cells(SonSatır, 1) = 1 Worksheets("PERSONEL").Cells(SonSatır, 2) = TextBox1.Value Worksheets("PERSONEL").Cells(SonSatır, 3) = TextBox2.Value Worksheets("PERSONEL").Cells(SonSatır, 4) = TextBox3.Value TextBox1 = "" TextBox2 = "" TextBox3 = "" Else Worksheets("PERSONEL").Cells(SonSatır, 1) = Worksheets("personel").Cells(SonSatır - 1, 1) + 1 Worksheets("PERSONEL").Cells(SonSatır, 2) = TextBox1.Value Worksheets("PERSONEL").Cells(SonSatır, 3) = TextBox2.Value Worksheets("PERSONEL").Cells(SonSatır, 4) = TextBox3.Value TextBox1 = "" TextBox2 = "" TextBox3 = "" MsgBox "KAYIT YAPILDI", vbOKOnly + vbInformation, "Veri Kaydedildi" End If Else MsgBox "SİCİLNO YA RAKAM GİRİNİZ" GoTo SoN End If Else MsgBox " İLGİLİ ALANLARI DOLDURUNUZ" SoN: End If |