• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'تجزئة كلمة بناءا على حرف بها'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 7 نتيجة

  1. السلا عليكم  الرجو مساعدتي لقد فقدة الرقم السري للبرنامج Users Maker 2  كيف استعيد الرقم او اعمل سوفت وير 
  2.  اسم المستخدم و   كلمة السر حق الدخول لا برنامج إدارة صيدلية.zip
  3. لدى قاعدة بيانات معمولة بالسيكول 2008 وعايز انقلها لمشروع بالدوت نت اريد ان اجعل لها كلمة سر  
  4. السلام عليكم المشكلة اننى لدى نظام تكويد للأصناف عبارة عن ثلاث ارقام يفصل بينهم علامة / الرقم الاول يمثل كود المجموعة الرقم الثانى كود المجموعة الفرعية الرقم الثالث رقم الصنف   مثلا 1/10/20 معناها مجموعة 1 من مجموعة فرعية 10 بها صنف رقمة 20 المطلوب عند عمل استعلام للأصناف ترتيب الاصناف حسب كود المجموعة ثم كود المجموعة الفرعية ثم رقم الصنف المشكلة أن كود الصنف فى الجدول حقل واحد غير مقسم فكيف يمكن تقسيم كود الصنف اثناء الاستعلام و ترتيبة ؟؟؟
  5. الأساتذة الكرام ... السلام عليكم ورحمة الله ... لماذ بعد كل عملية نسخ إحتياطي backup file لملف محمي بكلمة سر يتم إلغاء كلمة السر للملف الجديد  نأمل الإفادة وكيف يتم تفادي المشكلة وعند النسخ الإحتياطي يكون الملف الإحتياطي محمي بكلمة السر ... ملحوظه : الكود من ضمن سلسلة ابداع الاستاذة / زهرة بارك الله فيها .... Option Compare DatabaseOption ExplicitPublic Function Backup()On Error GoTo Error_HandlerDim sFile As String, oDB As DAO.DatabaseDim strCurrentName As StringDim oTD As TableDefDim qDF As QueryDefDim obj As AccessObjectstrCurrentName = Application.CurrentObjectNamesFile = CurrentProject.Path & "\" & Left(CurrentProject.name, Len(CurrentProject.name) - 6) & " " & Format(date, "dd-mm-yyyy") & ".accdb"If Dir(sFile) <> "" Then Kill sFileSet oDB = DBEngine.Workspaces(0).CreateDatabase(sFile, dbLangGeneral)'ÇáÌÏÇæáFor Each oTD In CurrentDb.TableDefsIf Left(oTD.name, 4) <> "MSys" ThenDoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acTable, oTD.name, oTD.name, FalseEnd IfNext oTD'ÇáÇÓÊÚáÇãÇÊFor Each qDF In CurrentDb.QueryDefsIf Left(qDF.name, 1) <> "~" ThenDoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acQuery, qDF.name, qDF.name, FalseEnd IfNext qDF'ÇáäãÇÐÌFor Each obj In CurrentProject.AllFormsDoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acForm, obj.name, obj.name, FalseNext obj'ÇáÊÞÇÑíÑFor Each obj In CurrentProject.AllReportsDoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acReport, obj.name, obj.name, FalseNext obj'ÇáãÇßÑæFor Each obj In CurrentProject.AllMacrosDoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acMacro, obj.name, obj.name, FalseNext obj'ÇáæÍÏÇÊ ÇáäãØíÉFor Each obj In CurrentProject.AllModulesDoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acModule, obj.name, obj.name, FalseNext objMsgBox " ãÈÑæß ... Êã ÇäÔÇÁ äÓÎÉ ÅÍÊíÇØíÉ Ýí äÝÓ ãÌáÏ ÇáÞÇÚÏÉ ÈÊÇÑíÎ Çáíæã ", vbInformation, "BackUp"Error_Handler_Exit:On Error Resume NextSet qDF = NothingSet oTD = NothingSet obj = NothingoDB.CloseExit FunctionError_Handler:MsgBox "The following error has occured." & vbCrLf & vbCrLf & "Error Number: " & Err.Number, vbCritical, "An Error has Occured!"Resume Error_Handler_ExitEnd FunctionFunction RunSub()Call BackupEnd Functionمشكورين مقدماً
  6. السلام عليكم   اود منكم مساعد في مشروع   ولقد بحث في المنتدى والمنتديات الاجنبية ايضا قبل طرحي للموضوع   ولم اجد الكود لكي اكمل مشروعي وارجو ان اجد المساعد منكم   المشروع عبارة عن بحث عن كلمة في صفحة الموقع     url= ريط صفحة الموقع name_search= الكلمة المراد ايجادها   واخيرا حفط النتيجة في ملف نصي   ارجو ان اجد الكود لمشروعي وبرك الله في الجميع   اخوكم عماد get.rar
  7. السلام عليكم   لدي برنامج حسابات و كنت قد عملت كلمة مرور لكود البرمجة VBA وانا الان لا اذكر كلمة المرور هل هناك برنامج يمكن ان يساعدني او طريقة لحل هذه المشكلة    أرجوا مساعدتكم