jjafferr

خير الكلام ما قل ودل 🙂 جعفر

حياك الله اخوي حسين 🙂 جعفر

وعليكم السلام اخوي محمد 🙂 ممكن تجرب هذه النسخة وتخبرنا بالنتيجة لوسمحت ، علشان ارفعها في المشاركة الاولى 🙂 جعفر Decompile_3.zip

حياك الله اخوي حسين 🙂 مثل ما يقول المثل: اليد الواحدة ما تصفق ، وهذا المنتدى ينمو ويرتقي بأيدينا جميعا ، ولولا موضوعك ، لما صار له تنسيق 🙂 (ملاحظة للجميع ، انا اخذت اذن من الاستاذ حسين علشان اعمل تغيير في موضوعه 🙂 ) جعفر

وعليكم السلام 🙂 رجاء مراعاة قوانين المنتدى بحيث يكون اسم الموضوع يدل على مضمونه 🙂 تفضل الطريقة : . وسبب اختياري هذين الحقلين من النموذجين : . هو بسبب وجود العلاقة بين الجدولين : . جعفر

عمدة وصغير ، ما يصير ، إلا اذا هامور شكرا على الملاحظة ، والتذكير (خليني اروح اشوف كم شعرة بقيت لي على الرأس ، هكذا نعمل تقدير عمر ) وتم تغيير المرفق في المشاركة السابقة 🙂 جعفر

اذا كان بإمكانك ان تستعمل نموذج فيه مجموعة صفحات/السنة ، وفي صفحة تضع نموذج فرعي ، سيكون اسهل لك في التعامل معاه في الكود : . 🙂 جعفر

🙂

السلام عليكم 🙂 هذا الكود سيحفظ لك جميع الصور الموجودة ، بغض النظر عن عدد الصور في الحقل ، احفظ هذه الوحدة النمطية كما هي : Public Function Export_Attached_Pictures(TQ_Name As String, fld_Name As String, Export_Folder_Name As String) On Error GoTo err_Export_Attached_Pictures ' TQ_Name = Table or Query Name ' fld_Name = Attachement field name ' Export_Folder_Name = where to export the picture Dim db As Database Dim rst_TQ As DAO.Recordset Dim rst_Pictures As DAO.Recordset Set db = CurrentDb ' the parent recordset. Set rst_TQ = db.OpenRecordset(TQ_Name) ' loop through it While Not rst_TQ.EOF ' the child recordset. Set rst_Pictures = rst_TQ.Fields(fld_Name).Value ' Loop through the attachments. While Not rst_Pictures.EOF ' Save current attachment to disk, with their original names rst_Pictures.Fields("FileData").SaveToFile Export_Folder_Name rst_Pictures.MoveNext Wend rst_TQ.MoveNext Wend Exit_Export_Attached_Pictures: rst_TQ.Close: Set rst_TQ = Nothing rst_Pictures.Close: Set rst_Pictures = Nothing Exit Function err_Export_Attached_Pictures: If Err.Number = 3839 Then 'file exists Resume Next ElseIf Err.Number = 91 Or Err.Number = 3420 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Export_Attached_Pictures End If End Function . ثم نادها هكذا : لجميع صور الجدول الجدول t الحقل Pic مسار مجلد الحفظ D:\Test call Export_Attached_Pictures("t","Pic","D:\Test") لجميع صور الاستعلام الاستعلام 11 call Export_Attached_Pictures("11","Pic","D:\Test") . وفي هذا الرابط شرح لنفس الكود اعلاه ، ولكن لحفظ المرفقات ، كُلاً في مجلده : . وهنا رابط حذف المرفقات : جعفر 1256.برنامج لحفظ صور القاعدة داخل مجلد.zip

وعليكم السلام 🙂 على حدث "بعد تحديث" الحقل text2 ، ضع هذ الكود : Private Sub Text2_AfterUpdate() Me.Child4.SourceObject = Me.Text2 End Sub جعفر

وعليكم السلام 🙂 واهلا وسهلا بك في المنتدى 🙂 تفضل : application.FollowHyperlink "D:\" جعفر

السلام عليكم 🙂 ابسط انواع التشفير التشفير ، Code : هو تغيير حرف مكان حرف آخر ، يعني بدل تفاح ، ممكن يصير ثقبخ ، كيف : رجاء النظر في الجدول التالي: الحرف الاصل ورقمه : الحرف البديل ورقمه ت 1578 : ث 1579 ف 1601 : ق 1602 ا 1575 : ب 1576 ح 1581 : خ 1582 تفاح : ثقبح نلاحظ اننا اضفنا الرقم 1 (مفتاح الشفرة) الى قيمة الحرف الاصل ، لنحصل على قيمة الحرف البديل . في هذه الحالة لو غيرنا مفتاح الشفرة الى رقم آخر ، او جعلنا مفتاح الشفرة عبارة عن معادلة ، لأصبحت الشفرة اصعب 🙂 فك الشفرة ، DeCode : هو حذف مفتاح الشفرة من رقم الحرف الجديد ، حتى يرجع لقيمته السابق 🙂 فإذن قوة التشفير له علاقة بمفتاح الشفرة 🙂 لهذا السبب ، لا ترسل مفتاح الشفرة مع الرسالة 🙂 . ارفق لك هذا المثال . وهذه الوحدة النمطية التي تقوم بالعمل Public Function Code_it_T(txt As String, iKey As Integer) As String Dim i, L As Integer L = Len(txt) For i = 1 To L Code_it_T = Code_it_T & ChrW(AscW(Mid(txt, i, 1)) + iKey) Next i End Function Public Function DeCode_it_T(txt As String, iKey As Integer) As String Dim i, L As Integer L = Len(txt) For i = 1 To L DeCode_it_T = DeCode_it_T & ChrW(AscW(Mid(txt, i, 1)) - iKey) Next i End Function . . ويمكنك إضافة هذا المثال لمكتبتك ايضا 🙂 جعفر 1254.Code_Decode.mdb.zip

وعليكم السلام 🙂 التفاصيل هنا : جعفر

🙂

ومثل ما قال اخوي ابوعبدالله ، ولكن بشرح آخر جعفر

السلام عليكم 🙂 قراءة الرسائل من الجدول اسهل بكثير ، وجدا عملية ، ويمكن تغييرها ببساطة 🙂 بالاضافة الى المرفق في الرابط اعلاه ، هنا شرح آخر لنفس الطريقة : جعفر

وعليكم السلام 🙂 تفضل : جعفر

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

وعليكم السلام 🙂 حيا الله ولد بلادي 🙂 نفس الاجابة اللي اخبرتك عنها هنا : جعفر

في الواقع هذه الخطوة عبارة عن تسهيل جدا كبير للمبرمج 🙂 وقد يكون في الامكان الاستغناء عن الخطوة السابقة ، وعمل كل شيء في هذه الخطوة ، طبعا هذا سيعقد الكود و "رسم النمط وفق النسق" 🙂 شكرا جزيلا اخوي ابو ابراهيم لهذه المشاركة الدسمة 🙂 جعفر

عمل جميل استاذ ابو ابراهيم ، ولكننا اضطررنا الى العودة الى الوحدة النمطية 🙂 والشيء الجميل في طريقتك ، انها تخلصت من علامات الاستفهام كذلك مرة واحدة 🙂 يبقى تفكيك نتيجة السجل النظيف الى 3 سجلات 🙂 جعفر

هذه الرسالة لا علاقة لها بأي من انواع الاكسس ، فهي تقول : بأن البرنامج لم يحصل على الوحدة النمطية InputBoxDK في برنامجك !! اذا ممكن ترفق لنا برنامجك ، او ترفعه الى احد مواقع الرفع واعطاءنا الرابط 🙂 جعفر

اخي الفاضل ، لا يكفي ان تنقل هذه الجزئية فقط الى برنامجك ، فهناك وحدة نمطية اسمها ويجب نقلها كذلك الى برنامجك الآخر 🙂 جعفر

تفضل 🙂 جعفر اخفاء الرقم السري.zip