Mükerrer_Kayıt_Girmeyi_Engelleme

Kulanıcı arayüz formu

Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#1)  huseyinkkamer » 07 Ağu 2019 08:24

Merhaba Arkadaşlar,
Ekte gönderdiğim dosya da Aynı TC numarasını girmeyi engelleyebilir miyiz?
Örnek olarak bir tc numarasını giriyoruz ve bilgileri dolduruyoruz. Bilgiler farklı olsa da aynı tc girmeyi engelleyebilir miyiz?
Ve bunu Mesaj yolu ile yapabilir miyiz? Nereye hangi kodu yazıcaz. Yardımcı olan herkese şimdiden çok teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#2)  huseyinkkamer » 07 Ağu 2019 11:14

Yardım edin Lütfen [uzgun]
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#3)  Ozan İLGÜN » 07 Ağu 2019 12:36

Kaydet butonunun kodlarını bu şekilde değiştirirseniz işinizi görür.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Son_Dolu_Satir As Long
Dim Bos_Satir As Long
Dim tcvarmi As Range
Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Set tcvarmi = Range("A2:A" & Son_Dolu_Satir).Find(TextBox1.Value, LookIn:=xlValues)
If tcvarmi Is Nothing Then
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("A" & Bos_Satir).Value = TextBox1.Value
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = TextBox2.Value + " " + "Eczanesi"
Sheets("Sayfa1").Range("C" & Bos_Satir).Value = TextBox3.Value
Sheets("Sayfa1").Range("D" & Bos_Satir).Value = TextBox4.Value
Sheets("Sayfa1").Range("E" & Bos_Satir).Value = TextBox5.Value
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Sheets("Sayfa1").Select
Else
MsgBox "Şu satırda bu tckimlik numarasıyla kayıt yapılmış : " & tcvarmi.Row
tcvarmi.Select
End If
End Sub
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#4)  huseyinkkamer » 07 Ağu 2019 14:52

Ozan İLGÜN yazdı:Kaydet butonunun kodlarını bu şekilde değiştirirseniz işinizi görür.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Son_Dolu_Satir As Long
Dim Bos_Satir As Long
Dim tcvarmi As Range
Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Set tcvarmi = Range("A2:A" & Son_Dolu_Satir).Find(TextBox1.Value, LookIn:=xlValues)
If tcvarmi Is Nothing Then
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("A" & Bos_Satir).Value = TextBox1.Value
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = TextBox2.Value + " " + "Eczanesi"
Sheets("Sayfa1").Range("C" & Bos_Satir).Value = TextBox3.Value
Sheets("Sayfa1").Range("D" & Bos_Satir).Value = TextBox4.Value
Sheets("Sayfa1").Range("E" & Bos_Satir).Value = TextBox5.Value
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Sheets("Sayfa1").Select
Else
MsgBox "Şu satırda bu tckimlik numarasıyla kayıt yapılmış : " & tcvarmi.Row
tcvarmi.Select
End If
End Sub



OZAN ÇOK TEŞEKKÜR EDERİM CİDDEN . FAKAT SENDEN BİR RİCAM OLACAK. fORMUN ÜZERİNE 2 BUTON EKLEYİP BUL VE DEĞİŞTİR DİYE İKİ BUTON KOYUP TC YAZDIĞIMIZDA BUL BUTONUNA BASTIĞIMIZDA KİŞİNİN BİLGİLERİ GELSİN. GELDİKTEN SONRA GEREKLİ DEĞİŞİKLİĞİ YAPIP GÜNCELLE DEDİĞİMİZDE İSE BİLGİLERİ ESKİ BİLGİLERİN ÜZERİNE YAZSIN . bÖY BİR ŞEY YAPABİLİR MİYİZ ?
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#5)  Ozan İLGÜN » 07 Ağu 2019 15:11

Madde 20:

Mesaj yazarken büyük harf kullanmak bağırmak anlamına geleceği için kesinlikle mesajınızın tamamını büyük harf kullanarak yazmayınız. Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz. Sitemiz Türkçe karakter desteklemektedir ve i, ç , ş , ğ gibi harfleri kullanmanızda hiç bir sakınca yoktur.

Siz maddelere uyarsanız yardımcı olmaya çalışırım.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#6)  Ozan İLGÜN » 07 Ağu 2019 16:03

Kayıtlı_Kullanıcılar (1).zip
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#7)  huseyinkkamer » 08 Ağu 2019 11:10

[quote="Ozan İLGÜN"]
Kayıtlı_Kullanıcılar (1).zip
[/quote


Merahaba Ozan,
Kusura Bakmayın. Büyük harf yazdım. Gönderdiğiniz dosya da herhangi bir işlem yapılmamış. Şuan göndereceğim dosya da işlem yapmanızı rica ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
huseyinkkamer
Yeni Başlamış
 
Kayıt: 16 Arl 2017 22:06
Meslek: Bilgi Sistemleri Uzman Yardımcısı
Yaş: 27
İleti: 53
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: GOP / İstanbul

Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#8)  Ozan İLGÜN » 08 Ağu 2019 11:40

Kayıtlarda var olan bir tc numarası girip kaydetmeyi deneyin. Userform2 açılacak ve açılan pencereye bilgiler gelecek. Değiştir diyerek değiştirebilirsiniz. İş çıkış saatime geldiği için detayları yazamamıştım.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Mükerrer_Kayıt_Girmeyi_Engelleme

İleti#9)  Ozan İLGÜN » 08 Ağu 2019 11:59

Alternatif.Eğer girilen tc varsa otomatik olarak değiştirme işlemi yapacak. Yoksa kaydetme işlemi yapacak.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul




Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe