درخواست کدی جهت عدم اپدیت اتوماتیک 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