Skip to main content

AccessTr.neT


Seri Numarası Kontrolü

Seri Numarası Kontrolü

Çözüldü #1
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...
.rar mükerrer.rar (Dosya Boyutu: 26,4 KB | İndirme Sayısı: 17)
Cevapla
Çözüldü #2
Sizi aramızda görmekten mutlu olduk.

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
Çözüldü #3
Private Sub txt_serino_AfterUpdate()
kodunu iptal edip "Komut7" nin tıklandğında olayındaki kodu aşağıdaki ile değiştiriniz.

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
Çözüldü #4
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...
Son Düzenleme: 12/02/2011, 02:23, Düzenleyen: durkheim.
Cevapla
Çözüldü #5
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.
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
Çözüldü #6
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da