چگونه به سطر ها 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

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