Bir Numara' nın daha önce kayıt edilip edilmediğini öğrenmek için aşağıdaki gibi bir fonksiyon oluşturdum ama;
Set RS = db.OpenRecordset(SQL) satırında ekli görseldeki hata mesajını vermekte,
Sebebi neden kaynaklanabilir,
alternatif olarak Acceste Excel benzeri bir CountIF fonksiyonu var mıdır?
web' de =Count(IIf([Service]="Housing",1)) bu şekilde bir çözüm gördüm ama; bende IFF fonksiyonu nu tanımadı.
teşekkürler,
iyi Çalışmalar.
Kod:
Private Sub Metin130_AfterUpdate()
Dim c As Byte
Dim deg As Long
''On Error Resume Next
deg = CLng(Me.Metin130.Value)
c = GetCount(deg)
If c > 0 Then
MsgBox "Bu 'CSO Number' önce kaydedilmiş..", vbExclamation, "Uyarı"
Metin130.SetFocus
End If
End SubKod:
Private Function GetCount(deg As Long) As Byte
Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim SQL As String
Set db = CurrentDb()
SQL = "SELECT count([Number]) FROM Data" & _
" WHERE [Number]=" & deg
Set RS = db.OpenRecordset(SQL)
GetCount = RS(0)
RS.Close
Set RS = Nothing
Set db = Nothing
End Function
