سلام به تمام اساتید
من میخوام یک تعداد رکورد رو در یک فرم اضافه کنم به طوری که شرطهایی که برای اون در نظر میگیرم نظر به تعدادی که در یک تکست باکس مشخص میشه متغیر باشه
یعنی در یک تکست باکس یک عدد (مثلا 10) وارد میشه و با کلیک کردن روی دکمه به تعداد 10 رکورد با شرطهای تعیین شده اضافه میشه
توضیح بیشتر هم اینه که،
1- وقتی روی دکمه کلیک میکنیم اول میبینه که اگر مقدار تکست باکس بیشتر از 0 بود کار رو شروع میکنه
2- بعدا میره و از یک ساب فرم مقادیری (مثلا 50 رکورد) رو کپی میکنه و میره در یک سابفرم دیگه (که یک جدول دیگه هست) پیست میکنه
3- با هر بار انجام اینکار یک شماره از مقدار تکست باکسی که تعداد رو از اون میگرفت کم میشه (یعنی مقدار تکست باکس منهای 1 میشه)
و این حلقه تا زمانی تکرار میشه که مقدار تکست باکس مساوی به 0 بشه
این هم کدهایی که من نوشتم، البته اگر دوستان در ارتباط با کدها و روش کار هم اگر پیشنهادی دارید ممنون میشم راهنمایی بفرمایید
If Me.flt_Count > 0 Then On Error Resume Next
DoCmd.GoToRecord , "", acNewRec
If (MacroError <> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End If
Me.SMf_Nahieh = [FilterForm].Form![fltNahiya]
Me.SMf_Note = "Adding"
DoCmd.GoToControl "SMf_StartDate"
' Me.EcoSocialMobileListExisting_SF.Requery
On Error Resume Next
'On Error GoTo AddErr
DoCmd.GoToControl ("EcoSocialMobileListExisting_SF")
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
If Me.EcSocRecCount.Value > 0 Then
If MsgBox("There are '" & Me.EcoSocialMobileList_SF.Form.Recordset.RecordCou nt & "' Record has been added to list, Do you want to replace?", vbYesNo, "EUSHMP") = vbYes Then
DoCmd.GoToControl ("EcoSocialMobileList_SF")
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDelete
DoCmd.RunCommand acCmdPaste
Else
DoCmd.GoToControl ("EcoSocialMobileList_SF")
DoCmd.RunCommand acCmdSelectAllRecords
' DoCmd.RunCommand acCmdPaste
DoCmd.SetWarnings True
End If
Else
DoCmd.GoToControl ("EcoSocialMobileList_SF")
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdPaste
End If
Me.flt_Count = Me.flt_Count - 1
'AddErr: If Err.Number = "2046" Then
' MsgBox "The Operation is not complated. Pleas press 'Ctrl+V' on your keybord to Paste the data", vbCritical, "EUSHMP"
' Else
' Resume Next
' End If
Else
MsgBox "Plese fill field 'From' and 'To'"
Me.SMf_StartDate.SetFocus
End If
اساتید و دوستان لطفا همکار کنید
پیشاپیش ممنون از شما