[مصمم الدوادمي]

Private Sub Command1_Click()



If Option1.Value = True Then

On Error GoTo openErr:



Set Db = OpenDatabase("Works.mdb", False, False, ";PWD =agcalxieee")

'False, False, ";PWD =agcalxieee ÇáÌÒÁ ÏÇ ÎÇÕ ÈÞÇÚÏÉ ÇáÈíÇäÇÊ ÏÇ ÚÔÇä ÞÇÚÏÉ ÈíÇäÇÊì ãÚãæáåÇ ÈÇÓæÑÏ ÈÇáÇÓã ÏÇ agcalxieee

MsgBox "Êã ÇáÑÈØ ÇáãÈÇÔÑ ÈÞÇÚÏÉ ÇáÈíÇäÇÊ"

Form1.Show

Exit Sub

openErr:

MsgBox "áã íÊã ÇáÚËæÑ Ú ÞÇÚÏÉ ÇáÈíÇäÇÊ"

End If

If Option2.Value = True Then



On Error GoTo openErr1:


Set Db = OpenDatabase("\\karimtorky-PC\New folder (2)\Works.mdb", False, False, ";PWD =agcalxieee")

MsgBox "Êã ÇáÑÈØ ãÚ ÇáÔÈßÉ"

Form1.Show

Exit Sub

openErr1:

MsgBox (" åäÇß ãÔßáÉ Ýì ÇáÇÊÕÇá ÈÇáÔÈßÉ Çæ ÇáÌåÇÒ ÇáÓíÑÝíÑ ")


x = MsgBox(" ÅäßäÊ ÊãÊáß ÞÇÚÏì ÇáÈíäÇÊ ÈÌåÇÒß ..Ýåá Êäæì ÇáÇÊÕÇá ÈÞÇÚÏÉ ÇáÈíÇäÇÊ ÈÔßá ãÈÇÔÑ¿ ", vbMsgBoxRtlReading + vbYesNo, "")

If x = vbYes Then

Option1.Value = True

Set Db = OpenDatabase("Works.mdb", False, False, ";PWD =agcalxieee")

MsgBox "Êã ÇáÑÈØ ãÚ ÇáÔÈßÉ"

Form1.Show


End If

End If

End Sub