المشاركات : 15
المواضيع 6
الإنتساب : Jan 2014
السمعة :
0
الشكر: 3
تم شكره 0 مرات في 0 مشاركات
انا عندي مشكلة عندي برنامج حطيته علي الشبكة وشغلته علي الاجهزة المتوصلة علي الشبكة المشكلة ان البرنامج قاري قواعد البيانات وكله تمام لاكن لما اجي اضيف شي يظهر رسالة لم تقم بتفعيل التعديل والاستعلام ولم يحفظ البيانات ولاكن يظهر البيانات المسجلة مسبقة
المشاركات : 15
المواضيع 6
الإنتساب : Jan 2014
السمعة :
0
الشكر: 3
تم شكره 0 مرات في 0 مشاركات
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=a.accdb.;Persist Security Info=False"
هل الكود ده ليه علاقة بالموضوع
المشاركات : 18
المواضيع 6
الإنتساب : Jan 2014
السمعة :
3
الشكر: 1
تم شكره 21 مرات في 9 مشاركات
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