مشکل وام

[karmand]

در برنامه ضمیمه میخواهم زمانی که شخصی شامل دادن فرم ضمانت نمیشود (نفر دوم و سوم) allow addition زیر فرم falseشود متشکرم

[مهدی قربانی]

Private Sub Combo0_AfterUpdate()
Dim strsql As String
Me.Text2 = Me.Combo0.Value
strsql = "SELECT q_jam_vam.id, person.nam, q_jam_vam.SumOfmablagh_vam FROM q_jam_vam INNER JOIN person ON q_jam_vam.id = person.ID WHERE (((q_jam_vam.id)=[Forms]![Form1]![Text2]));"
Me.RecordSource = strsql

If Me.SumOfmablagh_vam > 1000000 Then
MsgBox ("ÔãÇ äãí ÊæÇäíÏ ÖÇãä ÔæíÏ ")
Me.AllowAdditions = False
End If

End Sub



سلام کد قرمز شده رو بصورت زیر تغییر بدید :



Form_frm_sub_vam.AllowAdditions = False

[karmand]

متشکرم حل شد
اگر امکان دارد بفرمایید _form یعنی چه برای چه مواردی میتوان استفاده کرد چون معمول کار دات و یا ! است

[مهدی قربانی]

دوست عزیز Form معرف شیء فرمه اگر عنایت بفرمائید در محیط vba قسمتExplorer اشیاء موجود با پیشوندهای مربوطه مشاهده میشه مثلاً form1 با Form_form1 دیده میشه و یا report1 با Report_report1 همونطور که ملاحظه فرمودید در کدنویسی هم به خوبی عمل می کنه بنابراین در کدنویس برای اشاره به دیگر فرمها یا گزارشات کاربرد داره .
ضمناً در کدی که نوشتید بهتره شرط مورد نظر رو کامل بفرمائید چرا که کاربر ممکنه قصد داشته باشه بعد از دریافت پیغام ، شخص دیگری رو انتخاب کنه که در این حالت حتی اگر شخص انتخابی مجاز باشه کماکان ایجاد رکورد جدید غیر ممکنه مگر اینکه یک بار فرم رو ببنده و دوباره اونرو باز کنه
کد کامل شده :



Private Sub Combo0_AfterUpdate()
Dim strsql As String
Me.Text2 = Me.Combo0.Value
strsql = "SELECT q_jam_vam.id, person.nam, q_jam_vam.SumOfmablagh_vam FROM q_jam_vam INNER JOIN person ON q_jam_vam.id = person.ID WHERE (((q_jam_vam.id)=[Forms]![Form1]![Text2]));"
Me.RecordSource = strsql

If Me.SumOfmablagh_vam > 1000000 Then
MsgBox ("ÔãÇ äãí ÊæÇäíÏ ÖÇãä ÔæíÏ ")
Form_frm_sub_vam.AllowAdditions = False
Else
Form_frm_sub_vam.AllowAdditions = True
End If

End Sub

[karmand]

متشکرم از راهنمایی شما