y_mom2003

نفس الرساله مع كل المحولات مرفق اليكم الملف

اين الرد ياخوانى

الملف مش عاوز يفتح ويكتب رسالة The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time على الرغم تم نقل الملف من جهاز الى اخر وتظهر نفس الرسالة

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

اخى الكريم راجع موضع اخى ابو خليل إضغط هنا

الحل بواسطة recordset New_Microsoft_Access_Application.rar

السلام عليكم اخى الحبيب العلاقات كان غير موجود فى الاستعلام عملت بعد التعديلات على الاستعلامات faisal.rar

السلام عليكم اخى الحبيب رامى اسقوم بشرح Microsoft ActiveX Data Objects Dim rst_from As Recordset احجز فى الذاكرة متغير نوعه جدول او استعلام او اى select Set rst_from = CurrentDb.OpenRecordset("Total-job") امل هذا المتغير = اسم قاعدة البيانات . افتح الجدول ( اسم الجدول ) rst_from.AddNew نوع السجل اضافة rst_from!feild اسم المتغير ! اسم الحقل or rst_from(2) اسم المتغير 0(رقم الحقل) rst_from.Update نفذ هذا على الجدول rst_from.Close اغلاق هذا الجدول هذا هو الشرح البسيط من وجهة نظرى

Private Sub Combo1_AfterUpdate() Dim var_table As String var_table = Combo1 Form_Data_Entry.RecordSource = var_table End Sub اخى رامى هل هذا طلبك انا اسف الانترنت موجود عندى فى العمل فقط 1.rar

من فضلك اخى الحبيب ارسال قاعدة البيانات

السلام عليكم اخى الحبيب الفورم مربوط بالجدوال (اذا كان هذا طلبك ) فى كل ماعليك من خصائص الفورم تضع yes امام data enter وهذا معنها ان هذا الفورم للادخال فقط وعند الحفظ يتم اعداة التحميل من جديد ادخال الفورم مرفق مثال رقم واحد (الصورة رقم واحد ) توجد فوارم اخر غير مربوط بالجدوال (اى من خصائص الفورم امام record Sourec لايوجد شياء ) ويتم التعامل Microsoft ActiveX Data Objects مرفق مثال رقم 2 ارجو منك الرد اذا كان فيها اى استفسار ولك منى جزيل الشكر ولهذا المنتدى الجميل New_Microsoft_Access_Database.rar 1.rar 2.rar

السلام عليكم هذا هو الحل _______.rar

السلام عليكم اخوانى الاعزاء اليكم شرح المثال Function EncryptDecrypt(strIn As String, strpass As String) As String Dim intLen As Integer Dim intCounter As Integer Dim varTmp As Variant Dim strTmp As String intLen = Len(strpass) strTmp = strIn For intCounter = 1 To Len(strIn) varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1)) Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp) Next EncryptDecrypt = strTmp End Function وهذا دالة التشفير Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub دالة اخفاء الاكسس Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant) Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_err dbs.Properties(strPropName) = varPropValue changeproperty = True Change_Bye: Exit Function Change_err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else changeproperty = False Resume Change_Bye End If End Function دالة لغاء عمل شيفت ارجوا ان اكون وضحت وشكرا لاخ كمال النحال وابو خليل وكاسبر و ssilmi

السلام عليكم ده مثال حلو كلمة السر :mom الباسورد : 123456 توجد فورم يمكن من خلالها تعريف اكثر من شخص test.rar

السلام عليكم ورحمة الله وبركاتة اخى الكريم هذا الحل من وجهة نظرى IDA_2009.rar

السلام عليكم أخى العزيز / أيمن أنا فهمت من كلامك أنت عاوز تبحث عن كود الفرع توجد دالة اسمها DLookup وهى تقوم بالبحث داخل الجدول أو الاستعلام وألان أدرس المرفق جيدا ملاحظة: 1-أنت عندك form و sub form ( يجب عمل استعلام فيها بيانات form ثابتة وsub form متغيرة) 2- تقوم بالبحث بواسطة DLookup فى هذا الاستعلام 3-يجب حفظ السجل في sub form حتى يتم البحث عنه اعتذر على التأخير وأرجو أن أكون قد أفادتك DLookup.doc

السلام عليكم استاذ / أيمن ارجو منك ارسال المطلوب وان شاء الله سوف ارد عليك فى الحل واعتذر على عدم الرد لان الانترنت عند فى العمل فقط (7ص الى 4 م ) واشكر ايضا المشرف على الرد فى هذا الموضوع ولكم منى جزيل الشكر على هذا المنتدى الجميل مصطفى يونس

السلام عليكم اخى الكريم الموضوع هو Recodset اصنع استعلام جديد وضع فيها كل الشروط المطلوبةmytable " " Set rst = CurrentDb.OpenRecordset(mytable)

السلام عليكم ورحمة الله وبركاتة انا مصطفى يونس من مصر هذا هو الحل exp.rar

أولا أبدء بالشكر إلى الأخت زهرة على تعليمي الكثير والكثير وإدارة المنتدى هذه ثاني مشركة لى وأتمنى من الله ان يعجبكم الموضوع عملت فورم تظهر من لا شيء وممكن تتحكم فى السرعة عن طريق Timer form أو Dim T as long الموضوع كان من الأخت زهرة وقمت بالتعديل علية وعملت هذه الفورم وأنا اعتبر الأخت زهرة أستاذتي لذلك أرجو منها الرد ومنك طبعاً لا تنسوني فى الدعاء New.rar

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

بســـم اللــــه الرحمن الرحيــــــــــــــــــــــــــم ========================= إخوانى فى اللـــه الكــرام وفقنى اللـــه تعالى الى معرفــة طريقـــة يتم بها تشغيل ملفات الأكسيس على أجهــزة ليس مثبت عليها برنامج الاكسيس وسأقــوم بمشيئــة اللـــه بشــرح ما قمت به وأتمنى من الأخوة الكرام الذين سوف يطلعون على هذا الموضوع وتجربة تلك الطريقة الى الدعاء لى بظهر الغيب اذا نجحت تلك الطريقة أما إذا فشلت فأرجو أن يقبلوا معذرتى حيث أضعت وقتهم بقراءة هذه المشاركة وبتجربة تلك الطريقة بسمك اللهــــم أبدأ:- لقد قمت بالآتى 1-أزلت الأوفيس إكس بى من على الجهاز 2-وضعت إسطوانــة الأوفيس إكس بى فى سواقة الإسطوانات 3-أنشئت مجلدا جديدا فارغا على أى دريف (الدريف به مساحة أكبر من 220 ميجا بايت) 4-قمت بإظهار الملفات المخفية زيادة فى التأكيد 5-قمت بالبحث داخل الاسطوانة على ملف إسمه ( ACCESSRT.MSI) مساحته 827 كيلو بايت 6-قمت بنسخه إلى المجلد الفارغ الذى أنشئته 7-قمت بالبحث داخل الاسطوانة عن ملف إسمه OFFICE1.CAB ( إذا لم تجده فيجب أن تتأكد من أنك أظهرت الملفات المخفية لأنه كان عندى مخفى) (مساحة الملف 214 ميجا بايت) 8-قمت بنسخه الملف الى المجلد الذى أنشئته 9-أصبح الآن عندى مجلد يحتوى على ملفين الأول هو ACCESSRT.MSI & OFFICE1.CAB 10-قمت بتشغيل الملف ACCESSRT.MSI فقام بتثبيت Microsoft Access 2002 RunTime على جهازى 11- قمت بتشغيل ملفات الاكسيس فوجدت أنها تعمل ولم أقم يتثبيت برنامج الأكسيس ملحوظــه هامــة جدا - وجدت أن ملفات الاكسيس التى لا تبدأ بإظهار نموذج عند بدأ التشغيل لا تعمل ولكن التى تبدأ بتشغيل نموذج معين هى التى تعمل 12- قمت بالبحث عن الملف التنفيذى للأكسسيس MSACCESS.EXE الذىيقوم بتشغيل برنامج الاكسيس المعتاد فوجدت البرنامج وعندما قمت بتشغيله ظهرت لى رسالة خطأ ثم تم إغلاق البرنامج أى أن البرنامج الذى يمكنك من عمل قاعدة بيانات (جداول - إستعلامات - نماذج........ ) لا يعمل إنما الذى يعمل هو مكتبات تقوم فقط بتشغيل ملف الأكسيس ================================================== وفى الختام أرجو من اللـــه عز وجل أن يوفقكم الى ما يحبه ويرضاه وأن أكون قد وفقنى الله الى تقديم شىء يفيد أرجو من الله عز وجل أن يكون لى حظا من دعائكم بظهر الغيب والسلام عليكم ورحمة الله وبركاته هذا الموضوع منقول ولكن عجبنى جدا لذا ارسلته الى منتدانى الجميل مع العلم اننى بحثت كثيرأ ولم اجد حلول جيده

عند حل جديد For a = 1 To Target.Row - 1 TEST = Cells(a, Target.Column).Value If IsNull(Target.Value) Then Else If (Target.Value) = TEST Then MsgBox "ÞíãÉ ãßÑÑÉ" Cells(Target.Row, Target.Column).Select With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With Cells(a, Target.Column).Select With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If End If Next