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