(تمت الفائدة) طلب لفتح النموذج

[ابو على]

اخوتي الكرام

أثناء تصميم النموذج قام الاكسس بالاغلاق وبعدها لم استطع فتح النموذج حتى في عرض التصميم

فمن يمن علي بفتحه حتى في طريقة عرض التصميم

Agar.rar

[محمد ايمن]

اخي الكريم هذه المشكلة حصلت معي كثيرا ولم اجد حلا لها ولكن تستطيع فقط الحصول على الكود

Option Compare Database

Private Sub bag_dfah_AfterUpdate()

If Not Me.NewRecord Then DoCmd.OpenForm "sdad", , , "[id]=" & Me![bag_dfah].Column(0)

End Sub

Private Sub comp1_AfterUpdate()

Me.f6.Visible = False

Me.f7.Visible = True

Me.f7.Requery

End Sub

Private Sub comp2_AfterUpdate()

Me.f7.Visible = False

Me.f6.Visible = True

Me.f6.Requery

End Sub

Private Sub Detail_Click()

On Error Resume Next

Me.f7.Visible = False

Me.f6.Visible = False

Me.comp1.SetFocus

End Sub

Private Sub Form_Load()

'On Error Resume Next

'ReSizeForm Me 'اعادة تحجيم النموذج الرئيسي

'ReSizeForm SubForm.Form 'اعادة تحجيم النموذج الفرعي

'[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية

Dim bg

Dim stDocmstajr As String

Dim stLinkCriteria As String

bg = DLookup("Result", "Q_bageEgama")

If bg > 0 Then

If MsgBox("يوجد شخص او اكثر قارب عقدهم على الانتهاء" & vbCrLf & _

"هل تريد رؤيتهم", _

vbInformation + vbYesNo, _

"العقود قريبة الانتهاء") = vbYes Then

stDocmstajr = "frm_agd_nhayh"

DoCmd.OpenForm stDocmstajr, , , stLinkCriteria

End If

Else

bg = DLookup("Result", "Q_bageEgama1")

If bg > 0 Then

If MsgBox("يوجد شخص او اكثر انتهت عقودهم " & vbCrLf & _

"هل اريد رؤيتهم", _

vbInformation + vbYesNo, _

"العقود النتهية") = vbYes Then

stDocmstajr = "frm_agd_mnthy"

DoCmd.OpenForm stDocmstajr, , , stLinkCriteria

DoCmd.CancelEvent

End If

End If

End If

End Sub

Private Sub Form_Open(Cancel As Integer)

Me.ico.Picture = Application.CurrentProject.Path & "\images_5.JPG"

DoCmd.Maximize

Call CountClass1

End Sub

Private Sub malk_jdyd_AfterUpdate()

If Not Me.NewRecord Then DoCmd.OpenForm "malk", , , "[id]=" & Me![malk_jdyd].Column(0)

End Sub

Private Sub malk_jdyd_DblClick(Cancel As Integer)

DoCmd.OpenForm "frm_malk_jdyd"

End Sub

Private Sub mstajr_Click()

If Not Me.NewRecord Then DoCmd.OpenForm "frm_byan_mstajr", , , "[id]=" & Me![mstajr].Column(0)

End Sub

Private Sub no_tsdyd_AfterUpdate()

If Not Me.NewRecord Then DoCmd.OpenForm "sdad_sabg", , , "[id]=" & Me![no_tsdyd].Column(0)

End Sub

Private Sub sdad_sabg_AfterUpdate()

If Not Me.NewRecord Then DoCmd.OpenForm "sdad_sabg", , , "[id]=" & Me![sdad_sabg].Column(0)

End Sub

Private Sub sknid_AfterUpdate()

If Not Me.NewRecord Then DoCmd.OpenForm "sdad", , , "[sknId]=" & Me![sknid].Column(0)

End Sub

Private Subامر0_Click()

On Error GoTo Err_امر0_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "msakn"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر0_Click:

Exit Sub

Err_امر0_Click:

MsgBox err.Description

Resume Exit_امر0_Click

End Sub

Private Sub امر1_Click()

On Error GoTo Err_امر1_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "sdad"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر1_Click:

Exit Sub

Err_امر1_Click:

MsgBox err.Description

Resume Exit_امر1_Click

End Sub

Private Sub امر2_Click()

On Error GoTo Err_امر2_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1576) & ChrW(1575) & ChrW(1606) & ChrW(1610)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر2_Click:

Exit Sub

Err_امر2_Click:

MsgBox err.Description

Resume Exit_امر2_Click

End Sub

Private Subامر3_Click()

On Error GoTo Err_امر3_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1587) & ChrW(1578) & ChrW(1575) & ChrW(1580) & ChrW(1585) & ChrW(1610) & ChrW(1606)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر3_Click:

Exit Sub

Err_امر3_Click:

MsgBox err.Description

Resume Exit_امر3_Click

End Sub

Private Sub امر5_Click()

On Error GoTo Err_امر5_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "wajh_sdad"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر5_Click:

Exit Sub

Err_امر5_Click:

MsgBox err.Description

Resume Exit_امر5_Click

End Sub

Private Sub امر6_Click()

On Error GoTo Err_امر6_Click

DoCmd.Close

Exit_امر6_Click:

Exit Sub

Err_امر6_Click:

MsgBox err.Description

Resume Exit_امر6_Click

End Sub

Private Subامر11_Click()

On Error GoTo Err_امر11_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "kdmh"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر11_Click:

Exit Sub

Err_امر11_Click:

MsgBox err.Description

Resume Exit_امر11_Click

End Sub

Private Sub wajb_AfterUpdate()

If Not Me.NewRecord Then DoCmd.OpenForm "sdad", , , "[id]=" & Me![wajb].Column(0)

End Sub

Private Subامر12_Click()

Beep

If MsgBox("ها انت متأكد من رغبتك في الخروج من البرنامج" & vbCrLf & _

"", _

vbMsgBoxRtlReading + vbMsgBoxRight + vbExclamation + vbYesNo, _

"تنبيه") = vbYes Then

DoCmd.Quit

End If

Exit_امر300_Click:

Exit Sub

Err_امر300_Click:

MsgBox err.Description

Resume Exit_امر300_Click

End Sub

Private Subامر14_Click()

On Error GoTo Err_امر14_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "sdad_sabg"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر14_Click:

Exit Sub

Err_امر14_Click:

MsgBox err.Description

Resume Exit_امر14_Click

End Sub

Private Sub امر15_Click()

On Error GoTo Err_امر15_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_byan_mstajr"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر15_Click:

Exit Sub

Err_امر15_Click:

MsgBox err.Description

Resume Exit_امر15_Click

End Sub

Private Sub امر22_Click()

On Error GoTo Err_امر22_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_mbany_2"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر22_Click:

Exit Sub

Err_امر22_Click:

MsgBox err.Description

Resume Exit_امر22_Click

End Sub

Private Sub امر25_Click()

On Error GoTo Err_امر25_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Control Panel"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر25_Click:

Exit Sub

Err_امر25_Click:

MsgBox err.Description

Resume Exit_امر25_Click

End Sub

Private Subامر26_Click()

On Error GoTo Err_امر26_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "wajh_tgaryr"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر26_Click:

Exit Sub

Err_امر26_Click:

MsgBox err.Description

Resume Exit_امر26_Click

End Sub

Private Subامر29_Click()

On Error GoTo Err_امر29_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_malk_jdyd_2"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر29_Click:

Exit Sub

Err_امر29_Click:

MsgBox err.Description

Resume Exit_امر29_Click

End Sub

Private Subامر38_Click()

On Error GoTo Err_امر38_Click

DoCmd.Close

Exit_امر38_Click:

Exit Sub

Err_امر38_Click:

MsgBox err.Description

Resume Exit_امر38_Click

End Sub

Private Sub امر43_Click()

On Error GoTo Err_امر43_Click

DoCmd.Close

Exit_امر43_Click:

Exit Sub

Err_امر43_Click:

MsgBox err.Description

Resume Exit_امر43_Click

End Sub

Private Sub امر61_Click()

On Error GoTo Err_امر61_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_asasyh"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر61_Click:

Exit Sub

Err_امر61_Click:

MsgBox err.Description

Resume Exit_امر61_Click

End Sub

Private Subامر62_Click()

On Error GoTo Err_امر62_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_noa_agar"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر62_Click:

Exit Sub

Err_امر62_Click:

MsgBox err.Description

Resume Exit_ÃãÑ62_Click

End Sub

Private Sub امر63_Click()

On Error GoTo Err_امر63_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_dwlh"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر63_Click:

Exit Sub

Err_امر63_Click:

MsgBox err.Description

Resume Exit_امر63_Click

End Sub

Private Sub امر64_Click()

On Error GoTo Err_امر64_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_mdynh_f"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر64_Click:

Exit Sub

Err_امر64_Click:

MsgBox err.Description

Resume Exit_امر64_Click

End Sub

Private Sub امر65_Click()

On Error GoTo Err_امر65_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_mdynh"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر65_Click:

Exit Sub

Err_امر65_Click:

MsgBox err.Description

Resume Exit_امر65_Click

End Sub

Private Subامر67_Click()

On Error GoTo Err_امر67_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_alhi"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر67_Click:

Exit Sub

Err_امر67_Click:

MsgBox err.Description

Resume Exit_امر67_Click

End Sub

Private Subامر68_Click()

On Error GoTo Err_امر68_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_jensya"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر68_Click:

Exit Sub

Err_امر68_Click:

MsgBox err.Description

Resume Exit_امر68_Click

End Sub

Private Sub امر69_Click()

On Error GoTo Err_امر69_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_grop_wdifh"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_امر69_Click:

Exit Sub

Err_امر69_Click:

MsgBox err.Description

Resume Exit_امر69_Click

End Sub

[ابو على]

بارك الله فيك يا أخ محمد

وجزاك الله بالجنة

حصل معي كثيرا وأغفل عن أخذ نسخة احتياطية

وأعيد النماذج مرة أخرى

لكن هذا النموذج تعبت فيه

والله يعين على الإعادة

[أبو آدم]

أخي العزيز

حاولت كثيراً - وساستمر بالمحاولة - لإستعادة النموذج ... ولكنني لم أفلح للإسف ...

المسألة فيما جربتُ وإختبرت خلل في نسخة الأفيس ... أوصي بمعالجة ذلك ، بإصلاحها أو إعادة تنصيبها ، وأُفضل إستخدام نسخة جديدة ..

والله أعلم

.................

[ابو على]

أخي الكريم أبو آدم

أسأل الله تعالى أن يصلح لك النية والذرية .

أشكرك شكرا جزيلا على هذا الموقف النبيل .

لم أقرأ رسالتك إلا هذا الليلة بعد صلاة العشاء .

وحتى لا أتعبك عاودت تصميم النموذج مرة أخرى وأخذت نسخة احتياطية

فشكر الله لك سعيك وجعله في موازين حسناتك

وأقر الله عينيك بصلاح ذريتك وجمعك بوالديك وبهم ومن تحب في الجنة

آمين

[أبو آدم]

جزاك الله خيراً أخي العزيز

آمين .. آمين .. آمين

وأسأل الله أن يمتعك بعظيم ما دعوت لي به ، ويرفع قدرك ومنزلتك في الدنيا و الآخرة

(تمت الفائدة)