.Azhar

ماهي نسخة الاكسس لديك واي بايت تستخدم 32 ام 64 

انا جزئت البرنامج الى جزئين حتى استطيع تحميلهم اليكم افتح فولدر على سطح المكتب وضع محتويات الملفين فيه وشغل البرنامج من الايقونه التي اسمها Az

الانترنيت ضعبف جدا لدي حاولت اكثر من مرة ارفاق الملف لكن يحدث فشل في التحميل 

افتح الملفين في مكان واحد

1.rar

2.rar

تفضل هذا هو vb.net

افتح الملف ستجد ايقونه باسم Az

اسم المستخدم admin وكلمة المرور 12345

رائع اخ ابو خليل

بارك الله بك

تفضل هذا كود لكن يجب عليك التعديل عليه حسب اسم حقول جداولك

Private Sub Command45_Click()
Dim intSeat As Integer
If MsgBox("انقر فوق "" نعم "" هل تريد ارشفة هذا القيد. ", vbYesNo, "ارشفه") = vbYes Then
intSeat = Me!iddrag
DoCmd.SetWarnings False
CurrentDb.Execute "Insert into tblExp1 (Exp, iddrag, InputTo, mom, item, namdrag)  SELECT Exp, iddrag, InputTo, mom, item, namdrag FROM QurExp1 WHERE iddrag =" & intSeat
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
MsgBox "تم انتقال القيد الى جدول الارشيف", vbInformation, "الارشفه"
Else
MsgBox "تم التراجع عن نقل السجل ", vbInformation, "عدم الارشفة"
End If
DoCmd.SetWarnings True

End Sub

تفضل هذا مثال مفصل للصلاحيات

صلاحيات المستخدمين.rar

ابدأ في VB.Net

http://www.tutorialspoint.com/vb.net/

توجد الكثير من الاخطاء في جداولك وعلاقتها

اشرح هنا ماذا تريد

لايمكن ان يتكرر اسم الموظف اكثر من مره

هذا يسبب انهيار برنامجك .

تعلم SQL مع VB.Net

لدي برنامج قد عملته الى احدى الكليات العراقية سوف ارفقه في المنتدى .

لكن انا انصحك بالبقاء على الاكسس لانه يفعل لك ما شأت

تحياتي لك .

اخي العزيز .

تحيه لك . لا يمكن اخفاء حقل لسجل في نموذج مستمر لكن المثال الذي رفقته لك , عند التنقل بين السجلات سوف تلاحظ اخفاء الحقول عند التنقل .

اما في حالة النماذج المستمرة لا يمكن تنفيذ ذلك .

وهذا ايضا رابط اخر اضافه الى ما تطرق اليه الاخ العزيز علي المصري

http://office.microsoft.com/ar-sa/access-help/HP005188275.aspx

شكرا لك استاذ ابو عبدالله على هذا الاطراء الرائع .

وعليك السلام

لايمكن ارجاع ملف Accde الى صيغة Accdb بأي طريقة من الطرق , الا اذا كنت قد احتفظت بالنسخه الخام Accdb .

ولا تحاولا اصلاً .

لا توجد حمايه كفيلة بالاكسس فقط حين تحويل البرنامج الى Accde او mde  وغير ذلك كل انواع الحماية ضعيفة وقابله للاختراق .

والدليل اقفل كودات الفيجول بيسك وضعه هنا وسوف ارفق لك برنامجك مخترق .

انا انصحك ان تفكر في دراسة الاكسس بصورة حرفيه وترك موضوع الحماية .

اقدم لكم برنامج من خلاله تستطيعون تفعيل او الغاء الشفت لبرامجكم .

Shift.rar

وبذلك تستطيع ان تجعل كل زر في الفورم له اختصار وايضا المستخدم يصل ويعرف الاختصار من خلال الخط الصغير تحت الحروف الاولى من تسمية كل زر .

اما الطريقة الثانية ان شاء الله سوف اقوم بشرحها في وقت اخر .

تحياتي للجميع .

السلام عليكم ورحمة الله وبركاته

تحيه لك اخي ابو خليل ,,, اسف لغيابي فتره عن المنتدى وذلك لانشغالي في العمل .

تحيه لك اخي العزيز صالح . هنالك طريقتين لجعل اختصارات للازرار في النموذج , سوف اعطيك اسهلها ,

اولا . ما هي نسخة الاكسس لديك . ان كانت 2007 فما فوق , اتبع التعليمات التالية .

مثلا لدينا نموذجين في قاعدة البيانات الاول اسمه frm1 والثاني اسمه Frmm .

نريد وضع زر على الفورم الاول يفتح الفورم الثاني .

لنفترض ان الفورم الثاني هو للحسابات .

نضع زر على الفورم الاول ونكتب لتسمية هذا الزر حسابات نضع قبل كلمة حسابات هذا الحرف &  انتبه جيدا .

سوف لن يظهر هذا الحرف عند فتح النموذج لكن سوف نشاهد خط صغير اسفل حرف الحاء , ال هو اول حرف من حسابات .

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

ارفق لكم مثال عن ذلك .

ملاحظة اذا كانت اسماء الازرار بالعربي يجب الانتباه الى تحويل كتابه الكيبورد عربي والعكس بالعكس .

Database1.rar

صباح الخير 

استاذ ابو خليل / استاذ علي 

هذا هو مثال 2003 

Check.rar

تعمل دالة فرعية ويتم استدعائها من خلال مربع اختيار , 

بعدها يتم استدعاء الدالة الفرعية من خلال . حدث في الحالي للفورم , وحدث بعد التحديث لمربع الاختيار .

طبعا تغير اسماء الحقول حسب ما موجود في نموذج عملك . 

Private Sub CustomerCB_AfterUpdate()
 GetTrue
End Sub

Private Sub Form_Current()
 GetTrue
End Sub
Sub GetTrue()
If Me.CustomerCB Then
  Me.CustomerFirstName.Visible = True
  Me.CustomerLastName.Visible = True
  Me.CustomerPhone.Visible = True
Else
  Me.CustomerFirstName.Visible = False
  Me.CustomerLastName.Visible = False
  Me.CustomerPhone.Visible = False
End If
Exit Sub
End Sub

تفضل هذا التعديل 

TTTT (2).zip

اخي محمد موضوعك هذا تم تكراره اكثر من 4 مرات وتم الاجابه عليه من قبلي في موضوع اخر .

الرجاء مراجعة الموضوع 

هنا الاجابة الاخيرة #6

http://www.officena.net/ib/index.php?showtopic=55925

اهلا استاذ علي كلامك صحيح 100% 

لان الحقول الغير محسوبه لا تحفظ في السجلات .

ولكن وانت سيد العارفين ان هذه الحقول تحسب فقط على النماذج والتقارير والاستعلامات .

وهي تستخدم اكثر من غيرها في برامج البيع واشراء والفواتير . 

تحية لك ولمرورك . 

وهذه طريقة ثانية بعد اذن الاستاذ علي 

ويمكن هي الاسهل

count.rar

اضافة على ما اضافه الاساتذه الافاضل . 

كل من الاستاذ ابو ادم والاستاذ ابو عمر .

هذا مخطط كامل للجداول والعلاقات لبرنامج العملاء وصرف الفواتير .