Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/02/2011 01:39
Konu Sahibi
durkheim
Yorumlar
6
Okunma
2445
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

durkheim

Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Değerli arkadaşlar, yaklaşık 2 aydır internet bağlantım yoktu, forumu çok fazla takip etme imkanım olmadı. Yeniden internet bağladım. Hepinize saygılarımı sunuyorum.

Forumda mükerrer kayıt kontrolu ile ilgili bir çok örnek var, ancak örneklere bakarak yaptığım örnekte seri numarası kontrolü ile ilgili olarak bir yerde takıldım. Eklentideki formda Seri ve Serino olmak üzere iki metin kutusu var. Seri:AA,AB,AC... şeklinde giderken Serino: 0001,0002... şeklinde gidecek. Yani AA-0001, AA-0002 vs...Bu iki metin kutusu arasında ilişki kurarak mükerrer kaydı nasıl engelleyebilirim? Teşekkürler...


Ek Dosyalar
.rar   mükerrer.rar (Dosya Boyutu: 26,4 KB / İndirme Sayısı: 15)
Cevapla

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/09/2017,13:09
Çözüldü 
Sizi aramızda görmekten mutlu olduk.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
Private Sub txt_serino_AfterUpdate()
Dim varmi, varmi1, son As String
    varmi = DLookup("[serino]", "Tablo1", "[txt_serino]= '" & Me.txt_serino & "'")
    varmi1 = DLookup("[seri]", "Tablo1", "[seri]= '" & Me.seri & "'")
    son = varmi1 & varmi
If son = Me.seri & Me.txt_serino Then
     MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
Else
End If
End Sub

denermisiniz.


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.795
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 

Visual Basic Code
Private Sub txt_serino_AfterUpdate()

kodunu iptal edip "Komut7" nin tıklandğında olayındaki kodu aşağıdaki ile değiştiriniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Komut7_Click()
On Error GoTo Err_Komut7_Click
Dim a, b, c, d As String

a = Me.txt_serino & "" & Me.seri
b = DLookup("[serino]", "Tablo1", "[serino]= " & Me.txt_serino)
c = DLookup("[seri]", "Tablo1", "[seri]=" & "'" & Me.seri & "'")
d = b & "" & c
   If a = d Then
     MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"
     Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
      End If
Exit_Komut7_Click:
    Exit Sub
Err_Komut7_Click:
    MsgBox Err.Description
    Resume Exit_Komut7_Click
    
End Sub


Cevapla

durkheim

Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sayın BlackEagle ve Sayın Sledgeab üstadlarım, çok teşekkür ederim. Accesstr.net'li olmak inanın bir ayrıcalık. Verilen iki örnekte soruma çözüm olmuştur. Yardımlarınız için çok teşekkür ederim. İyi geceler...


Cevapla

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/09/2017,13:09
Çözüldü 
Bunların yanı sıra size bir örnek daha, bu örnekte ise size kaydın bulunmasına rağmen kaydetmeye devam edip, etmek istemediğinizi soruyor, istemezseniz yazdıklarınızı temizliyor. Aksi halde kayda devam ediyor.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub txt_serino_AfterUpdate()
 
Dim varmi As Integer
varmi = DCount("*", "Tablo1", "[txt_serino]= '" & Me.txt_serino & "'" & "And [seri]= '" & Me.seri & "'")
   If varmi > 0 Then
    If MsgBox("Bu veri daha önce girilmiş, devam edilsin mi?", _
    vbYesNo) = vbNo Then
    Cancel = True
    Me.txt_serino = ""
    Me.seri = ""
End If
End If
End Sub


Cevapla

Yandemir

Only Office 2003
Kullanici Avatari
Aktif Üye
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
25/08/2017,00:10
Çözüldü 
tablonu oluştururken de alanların ikisini de seç ve key ver. böylece hatayı da ortadan kaldırırsın. kod arızasınd bile en azından kaydederken uyarı alırsın.


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Dosya Kontrolü turalsitkituralvolkan 2 251 19/04/2017, 09:30 turalsitkituralvolkan
Çözüldü Pc Açılış Kullanıcı İle Veritabanı Kull Kontrolu burhanb 3 338 12/04/2017, 09:36 burhanb
Çözüldü Vb tarafında textbox içerik kontrolü yapamıyorum pelitt 3 311 08/04/2017, 11:57 atoz112
Çözüldü Sorguda Id Numarası Yerine İlişkili Tablodaki Adının Gelmesi cazcaz678 4 364 04/03/2017, 18:46 cazcaz678
Çözüldü Tabloda Telefon numarası yoksa eklesin. 53rize 7 630 18/12/2016, 15:30 53rize

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.