ردیف مجازی در ساب فرم

[smderfan]

سلام
خسته نباشید
قصد دارم در ساب فرم رکوردهای ثبتی با یک ردیف مشخص و نمایش داده بشه. و این فیلد ردیف در بانک ثبت نمی شه و فقط برای نمایش باشه.

[شاپرک]

از این تابع میتونی استفاده کنی :


'GetLineNumber([Form];"key";[key])


'================================================= ===========
' 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

[111111]

کجا باید اینو بنویسیم
لطفا یک فایل اگه ممکنه در این مورد بگذارید

[شاپرک]

اینم نمونه :

[smderfan]

سلام
با تشکر از شاپرک عزیز
راهنمای کامل ماژول در سایت مایکروسافت

http://support.microsoft.com/kb/210340
آدرس یک نمونه :

http://www.mvps.org/access/downloads/ConForm.zip

[smderfan]

سلام
یه مشکل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟
من داده هایی رو که وارد جدول می کنم یه کد ثبت داره و همه کدها داخل یه جدول ذخیره می شه برای اینکه سایر رکوردهای بانک (یعنی سایر کدهای ثبت) در ثبت یک رکورد جدید دیده نشه من از کوئری استفاده کردم حالا اینجا چکار کنم.
توضیح بیشتر :
جدول من شامل فیلدهای :
1- شماره ثبت
2- نام دستگاه
3- مشخصات
است.
ابتدا در یک فرم کد ثبت جدید از کاربر سوال شده سپس در فرم 2 اطلاعات جدول فوق ثبت می شه.
در فرم : (که کوئری جدول 2 است)
---ردیف---- کد ثبت ---- نام دستگاه ---- مشخصات --------
دسترسی به ردیف و کد ثبت در فرم وجود نداره و باید ردیف یصورت خودکار قرار بگیره که فقط برای نمایش هست و کد ثبت ذخیره می شه و همون کدی است که از فرم 1 گرفته شده است.
................
یه مشکل دیگری که ماژول داره اینه که وقتی در رکورد جدیدی قرار می گیری ابتدا عدد 1 ثبت می شه سپس بعد از پر شدن فیلدهای بعدی عدد ردیف نشان داده می شه که باید وقتی در یک فیلد از رکورد جدید قرار گرفتیم بصورت خودکار نشان داده بشه.

[111111]

تشکر از ارسال فایل