(30/11/2012, 12:09)metehan16 yazdı: Mehmet bey öncelikle teşekkürler cevabınız problemimi çözdü. bi sorumda bunu form üzerinde nasıl yapabiliriz acaba
Bununla ilgili olarak arşivimde bir bilgi buldum. ALINTI olduğunu belirtmek isterim. Aşağıda veriyorum:
Alıntı:Form a sıra numarası eklemek için form a bir fonksiyon yazmak gerek.
Aşağıdaki kodu form unuzun kod bölümüne en başa ekleyin. Bunun için form a tıklayıp herhangi bir event ine girin ve cod builder i seçin.
Çıkan hazır kodu /sub / end sub) silin ve aşağıdaki kodu Option Explicit in altına kopyalayın.
Function GetLineNumber()
' "GetLineNumber" Fonksiyonu Microsoft Knowledge Base (Q120913)
' de verilmiştir, bu kodun tek farkı performans için;
' F, KeyName, KeyValue
' değişkenleri eklenmesi.
' Düzgün çalışması için KeyName ve KeyValue yu tablonuzun
' Key - Index alan adı ile değiştirin
' Form unuza bir text box ekleyin ve recordsource una;
' = GetLineNumber()
' Yazın
Dim RS As Recordset
Dim CountLines
Dim F As Form
Dim KeyName As String
Dim KeyValue
Set F = Form
' Bu iki Değişkeni Tablonuzun Key Alanının adı ile değiştirin.
KeyName = "KeyAlanAdı"
KeyValue = [KeyAlanAdı]
On Error GoTo Err_GetLineNumber
Set RS = F.RecordsetClone
' Find the current record.
Select Case RS.Fields(KeyName).Type
' Find using numeric data type key value.
Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
DB_DOUBLE, DB_BYTE
RS.FindFirst "[" & KeyName & "] = " & KeyValue
' Find using date data type key value.
Case DB_DATE
RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
' Find using text data type key value.
Case DB_TEXT
RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
Case Else
MsgBox "ERROR: Invalid key field data type!"
Exit Function
End Select
' Loop backward, counting the lines.
Do Until RS.BOF
CountLines = CountLines + 1
RS.MovePrevious
Loop
Bye_GetLineNumber: ' Return the result.
GetLineNumber = CountLines
Exit Function
Err_GetLineNumber:
CountLines = 0
Resume Bye_GetLineNumber
End Function
Form unuzda satır no su için ekleyeceğiniz textbox un RecordSource una;
= GetLineNumber()
yazın.
