PDA

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



SRG
دوشنبه 18 خرداد 1383, 08:45 قبل از ظهر
با سلام

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

با تشکر
:roll:

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

SRG
دوشنبه 18 خرداد 1383, 13:13 بعد از ظهر
سلام

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

منصور بزرگمهر
یکشنبه 14 تیر 1383, 03:44 قبل از ظهر
چگونه می توان در فرم این کار انجام نمود.
مهم می باشد!

payam59
پنجشنبه 12 آذر 1383, 08:39 قبل از ظهر
از سایت مایکروسافت فایل FrmSampl را دانلود کن.
مایکروسافت از یک ماژولی به نام getlinenumber در یکی از فرمهای نمونه اش استفاده کرده.
اگر راه حل دیگه ای پیدا کردید من رو هم خبر کنید.

maleki
سه شنبه 17 آذر 1383, 14:21 بعد از ظهر
یه text boxرو فرمت اضافه کن فرض کنیم اسم text boxباشه Tحالا توی event on current مربوط به فرمت تایپ کن
Me.T.Value = Me.CurrentRecord
:sunglass:

hrh
جمعه 20 آذر 1383, 06:40 قبل از ظهر
malehi عزیر
روشت رو تست کردم.
اشکال این روش رو اگه می خواهی بدونی کافیه که فرمهات رو به نمای <Continuous Forms> ببری.
ولی خودم از DAO استفاده می‌کنم. خیلی خوبه و راحتر جواب می گیری.

payam59
دوشنبه 23 آذر 1383, 14:56 بعد از ظهر
درمورد شماره ردیف در 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