03-05-2014, 15:26
Sayin genco051;
A'li degerler alanini iliskisiz yapip adini DEGERALI yapilmis olup, alanin guncelleme olayina, tabloda olmayan resimno kayitlarin getirilmesi ile daha uygun resim numaralari verebilirsiniz. Ek'te ki VT inceleyebilirsiniz.
Sub HangiNo(GrpASer As String)
On Error GoTo ERC
Dim Kyt As Recordset, Syc(1 To 3) As Long
Set Kyt = Application.CurrentDb.OpenRecordset("Select NUMARA_DEFTERI.* From NUMARA_DEFTERI Where ((Not (NUMARA_DEFTERI.RESIM_NO) Is Null) AND (([A/D_LI_DEGER])='" & GrpASer & "')) Order By RESIM_NO")
Kyt.MoveLast: Syc(2) = CLng(Kyt!RESIM_NO): Kyt.MoveFirst: Me.RESIM_NO.RowSource = ""
Do
FFF:
If Kyt.EOF = True Then Exit Do
Syc(1) = Syc(1) + 1
If Syc(1) < CLng(Kyt!RESIM_NO) Then Me.RESIM_NO.AddItem Format(Syc(1), "0000") & ";": GoTo FFF
Kyt.MoveNext
Loop Until Kyt.EOF
Kyt.Close: Set Kyt = Nothing
For Syc(3) = Syc(2) + 1 To Syc(2) + 3
Me.RESIM_NO.AddItem Format(Syc(3), "0000")
Next Syc(3)
Exit Sub
ERC:
If Err.Number = 13 Then Me.RESIM_NO = "0000": Exit Sub
If Err.Number <> 3021 Then MsgBox Err.Number & Err.Description
Resume Next
Kolay gelsin....
NUMDEF-son hali.rar (Boyut: 255,74 KB / İndirilme: 53)
A'li degerler alanini iliskisiz yapip adini DEGERALI yapilmis olup, alanin guncelleme olayina, tabloda olmayan resimno kayitlarin getirilmesi ile daha uygun resim numaralari verebilirsiniz. Ek'te ki VT inceleyebilirsiniz.
Sub HangiNo(GrpASer As String)
On Error GoTo ERC
Dim Kyt As Recordset, Syc(1 To 3) As Long
Set Kyt = Application.CurrentDb.OpenRecordset("Select NUMARA_DEFTERI.* From NUMARA_DEFTERI Where ((Not (NUMARA_DEFTERI.RESIM_NO) Is Null) AND (([A/D_LI_DEGER])='" & GrpASer & "')) Order By RESIM_NO")
Kyt.MoveLast: Syc(2) = CLng(Kyt!RESIM_NO): Kyt.MoveFirst: Me.RESIM_NO.RowSource = ""
Do
FFF:
If Kyt.EOF = True Then Exit Do
Syc(1) = Syc(1) + 1
If Syc(1) < CLng(Kyt!RESIM_NO) Then Me.RESIM_NO.AddItem Format(Syc(1), "0000") & ";": GoTo FFF
Kyt.MoveNext
Loop Until Kyt.EOF
Kyt.Close: Set Kyt = Nothing
For Syc(3) = Syc(2) + 1 To Syc(2) + 3
Me.RESIM_NO.AddItem Format(Syc(3), "0000")
Next Syc(3)
Exit Sub
ERC:
If Err.Number = 13 Then Me.RESIM_NO = "0000": Exit Sub
If Err.Number <> 3021 Then MsgBox Err.Number & Err.Description
Resume Next
Kolay gelsin....
NUMDEF-son hali.rar (Boyut: 255,74 KB / İndirilme: 53)