افزودن رکورد بصورت اتوماتیک

[arpachi]

با سلام خدمت اساتید محترم
بنده یک فرد مبتدی در زمینه اکسس هستم.سوالیکه دارم اینکه میتوان تابع و یا ماژولی نوشت که مثلا تعدادی رکورد در یک جدول مشخص بصورت خودکار تولید کند .مثلا شماره ابتدا و انتهای برگه های یک دسته چک.و تولید رکورد به اندازه تعداد برگه های چک؟
باتشکر

[Abbas Amiri]

نمونه زیر را می توانید با دستکاری جدول و فیلدها مطابق نیاز خود تنظیم کنید:


Sub InsertBlankCheques(BankID As Long, StartNumber As Long, SheetCount As Integer)
Dim i As Long
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("PayableCheques") 'نام جدول
For i = StartNumber To StartNumber + SheetCount
rs.AddNew
rs!ChequeNum = i ' فیلد شماره چک
rs!BankID = BankID ' فیلد شناسه بانک
rs.Update
Next
Set rs = Nothing
End Sub

[arpachi]

با سلام و با تشکرفراوان
همانطور که عرض شد ،بنده در این زمینه مبتدی هستم پس لطفا نحوه استفاده از این تتابع را هم بیان کنید.
با تشکر

[Abbas Amiri]

بسیار خب . فرض می کنیم اسم جدول مورد نظر PayableCheques است و 2 فیلدی که حتما باید مقداردهی شوند یکی فیلد شماره چک ChequeNum ودیگری نام فیلد شناسه بانکی که حساب شما متعلق به آن است BankID .
وباز فرض میکنیم شما یک فرم مخصوص ورود اطلاعات چکها ساخته اید ودرآن یک کمبو ویا تکست باکس جهت انتخاب نام بانک (cboBank) ، یک تکست باکس جهت شماره شروع دسته چک (txtStartNum) و یک تسکت باکس جهت تعداد برگهای دسته چک (txtSheetNum) ویک باتن جهت انجام دستور افزودن (cmdAddCheques) ساخته اید . در روال کلیک باتن بنویسید :



Private Sub cmdAddCheques_Click()
InsertBlankCheques cboBank, txtStartNum, txtSheetNum
End Sub