خیلی ضروری - - برنامه تقسیم نفرات در شهرهای مختلف (ممنون از همکاریتون)

[nikpur2004]

با سلام
یک برنامه می خوام درست کنم که نفرات بر اساس نمره ، شهر خود را انتخاب می کنند
در فرم طراحی شده با کلیک بر روی دکمه ثبت ، از ظرفیت شهر یکی کم شود و نام شهر مربوط در فیلد شهر در جدول نفرات ذخیره شود

سپاس فراوان از مدیران و دوستان

نمونه هم گذاشتم

[Abbas Amiri]

با سلام
یک برنامه می خوام درست کنم که نفرات بر اساس نمره ، شهر خود را انتخاب می کنند
در فرم طراحی شده با کلیک بر روی دکمه ثبت ، از ظرفیت شهر یکی کم شود و نام شهر مربوط در فیلد شهر در جدول نفرات ذخیره شود

سپاس فراوان از مدیران و دوستان

نمونه هم گذاشتم

سلام
کد زیر مربوط به رویداد Click باتن ثبت است . آنرا در ماژول فرم کپی کنید .

موفق باشید.
Private Sub Command4_Click()
Dim c As String
With Me.tbl_city_subform.Form
If .zarfiat > 0 Then
.zarfiat = .zarfiat - 1
c = .name_city
Else
MsgBox "شهر مورد نظر ظرفيت ندارد"
Exit Sub
End If
End With
With Me.tbl_employ_subform.Form
.city = c
End With
End Sub

[nikpur2004]

با تشکر فراوان از جناب امیری
عالی بود ولی اگر وقت داشتید این تغییرات رو هم واسم اعمال نمائید
1- شهری که ظرفیتش صفر شد . غیرفعال و رنگ آن تغییر کند
2- در صورتیکه شخصی شهر مورد تقاضا رو کنسل کرد ، ظرفیتش برگرده به قبل (مثلا با زدن باتن انصراف یا هر چیز دیگه) ، و اجازه انتخاب شهر دیگه رو داشته باشه
تشکر