[arabe]

انا عندي مشكلة عندي برنامج حطيته علي الشبكة وشغلته علي الاجهزة المتوصلة علي الشبكة المشكلة ان البرنامج قاري قواعد البيانات وكله تمام لاكن لما اجي اضيف شي يظهر رسالة لم تقم بتفعيل التعديل والاستعلام ولم يحفظ البيانات ولاكن يظهر البيانات المسجلة مسبقة

[arabe]

Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=a.accdb.;Persist Security Info=False"
هل الكود ده ليه علاقة بالموضوع

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

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