Seri Numarası Kontrolü

durkheim

Access Cevaplanmış Soruları

3704

12/02/2011, 02:08 #3

sledgeab

ozanakkaya

Bul

Kurucu

Adı Soyadı: Oz.... Ak....

Konum: Denizli

Ofis Versiyonu: Ofis 2016 64 Bit

Son Oturumu: Bugün,10:10

Yorumları: 13.536

Konuları: 499

Kayıt Tarihi: 29/01/2008

Teşekkür Puanı: 3.139

Mesleğiniz: Memur

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