محدودیت رکورد [بایگانی]

mhamedm2008

دوشنبه 03 بهمن 1390, 19:16 عصر

با سلام
من می خوام توی یه تیبل فقط 50 تا رکورد ذخیره بشه و اگه بیشتر از اون ذخیره بشه روی رکورد 1 ذخیره بشه و اطلاعات بعدی روی رکورد 2 و ....
با تشکر منتظر هستم

mhamedm2008

سه شنبه 04 بهمن 1390, 06:33 صبح

کسی چیزب نمی دونست؟راهی؟ترفندی؟

royasaz_bam

سه شنبه 04 بهمن 1390, 07:08 صبح

چزا عزیزم را داره در نئوری بخام بگم ابتدا باید نحوه ذخیره اطلاعاتت با دستور addnew recordset باشه و با این شرط که قبل از ثبت به وسیله دستور dcont تعداد رکوردها را چک کند و اگر به عدد 50 رسید دستور recordset به حالت edit برود و سپس در رکورد اول ذخیره نماید......

البته در عمل پیچیدگیهای دیگری نیز دارد از جمله اینکه بعد از رسیدن به عدد 50 و ثبت در رکورد یک چگونه به رکورد 2 برود که این با اضافه کردن یک ردیف سریالی ساختگی به جدول اصلی قابل رفع است ولی پس از 50 تای دوم یعنی 100 رکورد باز این عمل تکرار شود خود یک شرط دیگر به دستور رکوردست اضافه میکند یعنی اینکه ردیف ساختگی ما بعد از رسیدن به عدد 50 باز از یک شروع کند. پس بهتر است از همان اول از دستور dcount استفاده نشود و از همان ابتدا با وابستگی و شرط ردیف سریالی ساختگی دستور رکورد ست شروع به ذخیره کند یعنی تا رسیدن به عدد 50 اول addnew باشه و بعد از آن edit بشه ""

mhamedm2008

سه شنبه 04 بهمن 1390, 18:41 عصر

مرسی
خودم یه روش ابتکاری با کد های VB ساختم و جواب میده

aromega65

سه شنبه 04 بهمن 1390, 18:49 عصر

سلام
بی زحمت روش ابتکاری خودتونو برای استفاده بقیه بزارید

mhamedm2008

سه شنبه 04 بهمن 1390, 19:03 عصر

Public Function logsheet(sharh As String) As Integer

Dim kod As Integer
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(" select * from log WHERE ((log.check)= True)")
kod = rst.Fields(1)

strupdate = "UPDATE log SET log.check = False " & _
" WHERE (((log.radif)= " & [kod] & " )); "
DoCmd.RunSQL strupdate

If kod = 50 Then
kod = 1
Else
kod = [kod] + 1
End If

strupdate1 = "UPDATE log SET log.check = True " & _
", log.date1= Dat()" & _
", log.time1= Time()" & _
", log.sharh='" & [sharh] & "'" & _
" WHERE (((log.radif)= " & [kod] & " )); "
DoCmd.RunSQL strupdate1

End Function

aromega65

سه شنبه 04 بهمن 1390, 19:25 عصر

سلام
میتونید یه نمونه ساده بزارید؟

mhamedm2008

سه شنبه 04 بهمن 1390, 19:40 عصر

اینم یه نمونه ساده

aromega65

سه شنبه 04 بهمن 1390, 19:43 عصر

میتونید نمونه فایل رو با 2003 بزارید

royasaz_bam

سه شنبه 04 بهمن 1390, 21:10 عصر

مرسی
خودم یه روش ابتکاری با کد های VB ساختم و جواب میده

خوبه تو که خود استادی بله اگر جواب میده پس مشکلی دیگه نیست مهم اینه که تو به جواب رسیدی و از ان مهمتر اینه که با تلاش خودت رسیدی و این ارزش داره

mhamedm2008

سه شنبه 04 بهمن 1390, 22:18 عصر

عجله داشتم گفتم شاید دوستان به این مشکل برخورده باشند
بازم ممنون
اینم با فرمت 2003