درخواست کدی جهت عدم اپدیت اتوماتیک SUb form

[najafi87]

با سلام
دوتا مشکل پیش امده رو تو فرم نوشته لطفا اگه کسی میتونه راه کار بده. ضمن اینکه یه سوالم داشتم ایا میشه دکمه ذخیره رو تو سابفرم گذاشت با این شرط که اگه کاربر دکمه ثبتو نزنه اطلاعات ثبت نشه و ازش سوال بپرسه؟

[najafi87]

اقای امیری چند روزیه که سری به تالار نزدن.
وقتی ایشون نیست انگار هیچ کسی نیست.
ان شالله هرجا هستن موفق و سربلند باشن و ماهم باید برا جواب سوالات منتظر بمونیم تا بیاین

[najafi87]

سلام خدمت همه دوستان عزیز
خدایی گذشته از سوال بی پاسخ حقیر نگران حال جناب اقای امیری شدم. دوستان کسی از وضعیت ایشون خبری داره?
چون از سه شنبه به تالار سر نزدن.
ان شاالله به حق اقا امام حسین علیه السلام و این ایام محرم نبودشون تو این مدت از سر کسالت و مشکل نباشه و خداوند به حق شهید این ایام مشکلات همه رو برطرف کنه
ان شاالله

[Abbas Amiri]

با سلام
دوتا مشکل پیش امده رو تو فرم نوشته لطفا اگه کسی میتونه راه کار بده. ضمن اینکه یه سوالم داشتم ایا میشه دکمه ذخیره رو تو سابفرم گذاشت با این شرط که اگه کاربر دکمه ثبتو نزنه اطلاعات ثبت نشه و ازش سوال بپرسه؟

سلام
جهت سوال مندرج در فرم مربوط به تکراری بودن آیتم ، کد زیر را در فرم Find جایگزین کنید:

Private Sub Command33_Click()
Dim strCriteria As String
Dim strCriteria2 As String
DoCmd.OpenForm "FIND", , , , , acHidden
'Forms!Find.CmdShow.enable = True
With Form_DEPOSITORY2Subform1
strCriteria = "part_number= '" & Me.PARTSUB.Form.part_number & "' "
strCriteria2 = "no_reportage= '" & .Parent.Form.no_reportage & "' "
If DCount("*", "DEPOSITORY2", strCriteria) > 0 And DCount("*", "DEPOSITORY2", strCriteria2) > 0 Then
MsgBox "error repeat", vbCritical + vbMsgBoxRight, "error"
Forms!Find.Visible = True
Exit Sub
End If
.part_number.Value = Me.PARTSUB.Form.part_number
.part_flag = 1
.usage.SetFocus
.usage.Value = 0
'Form_DEPOSITORY2Subform1.Text47.SetFocus
.usage.SetFocus
End With
DoCmd.Close acForm, Me.Name
End Sub