چگونه به سطر ها report شماره ردیف اضافه کنیم ؟

[SRG]

با سلام

چگونه میشود در Report ها شماره ردیف رکورد خروجی را به صورت خودکار اضافه کرد ؟

با تشکر
:roll:

[maleki]

یه text box درست کن حالا مقدار record source اونو بنویس 1= حالا در در قسمت Running sum اینو انتخاب کن Over all حالا اگه گزارش خودتو ببینی به ازای هر رکورد یه شماره ردیف جدید داری. :D

[SRG]

سلام

از راهنمایی تون خیلی ممنونم . :lol: :D

[منصور بزرگمهر]

چگونه می توان در فرم این کار انجام نمود.
مهم می باشد!

[payam59]

از سایت مایکروسافت فایل FrmSampl را دانلود کن.
مایکروسافت از یک ماژولی به نام getlinenumber در یکی از فرمهای نمونه اش استفاده کرده.
اگر راه حل دیگه ای پیدا کردید من رو هم خبر کنید.

[maleki]

یه text boxرو فرمت اضافه کن فرض کنیم اسم text boxباشه Tحالا توی event on current مربوط به فرمت تایپ کن
Me.T.Value = Me.CurrentRecord
:sunglass:

[hrh]

malehi عزیر
روشت رو تست کردم.
اشکال این روش رو اگه می خواهی بدونی کافیه که فرمهات رو به نمای <Continuous Forms> ببری.
ولی خودم از DAO استفاده می‌کنم. خیلی خوبه و راحتر جواب می گیری.

[payam59]

درمورد شماره ردیف در report
runing sum
یه text box درست کن حالا مقدار record source اونو بنویس 1= حالا در در قسمت Running sum اینو انتخاب کن Over all حالا اگه گزارش خودتو ببینی به ازای هر رکورد یه شماره ردیف جدید داری.
که همون پیشنهاد مایکروسافت هم هست به خوبی جواب می ده .در مورد فرم هم کد زیر رو که ازfrmsampl در آوردم تا حدودی کارراه اندازه بشرط اینکه یک فیلد غیر تکراری داشته باشی.
اینم کد شماره ردیف در فرمها :


Option Compare Database
Option Explicit

'================================================= ===========
' The following function is used by the subLineNumber form
'================================================= ===========

Function GetLineNumber(F As Form, KeyName As String, KeyValue)
Dim rs As Object
Dim CountLines As Integer

On Error GoTo Err_GetLineNumber

Set rs = F.Recordset.Clone

' Find the current record.
Select Case rs.Fields(KeyName).Type
' Find using numeric data type key value?
Case adSmallInt, adTinyInt, adBigInt, adInteger, adDecimal, adNumeric, adCurrency, adSingle, adDouble
rs.FindFirst "[" & KeyName & "] = " & KeyValue
' Find using date data type key value?
Case adDate
rs.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
' Find using text data type key value?
Case adChar, adVarChar
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

[sayeri]

سلام من هم همین مشکل رو دارم
چون رکورد ها ممکنه حذف بشه شماره ردیف های اکسس قاطی میشه و ترتیب رو از دست میده
میخوام تو خروجی data report یک شماره ردیف تو خروجی گزارشم بزارم یه توضیحی بالا بود ولی اصلا متوجه نشدم میشه بیشتر توضیح بدین

[mazoolagh]

یه text box درست کن حالا مقدار record source اونو بنویس 1= حالا در در قسمت Running sum اینو انتخاب کن Over all حالا اگه گزارش خودتو ببینی به ازای هر رکورد یه شماره ردیف جدید داری. :D

همین درسته و توضیح کامل هم داده شده