jjafferr

تفضل 🙂 Dim myCriteria As String myCriteria = "[idlh]=" & Me.idlh myCriteria = myCriteria & " And [B]=" & Me.B If DCount("*", "ld", myCriteria) > 0 Then Dim stry As Integer stry = Me.B Me.Undo Dim rs As Object myCriteria = "[B]=" & stry Set rs = Me.Recordset.Clone rs.FindFirst myCriteria If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If جعفر

اكتب لي طريقة حل الخطوة السابقة ، علشان اعلمك كيف تعمله لهذه الخطوه كذلك 🙂

صدقني اخوي حلبي ، اني شخصيا استعمل هذه الطريقة ، صحيح طويلة شوي ، ولكنها جدا مرنه ، ومافي مجال تخطأ فيها ، ازيد او انقص المعايير مثل ما اريد واتأكد من النتائج ، وازيد المعيار التالي ... 🙂 جعفر ما بعطيك الجواب بس لو اتبعت نفس الطريقة اللي اتبعتها للخطوة اللي قبلها ، بتلقى النتيجة المطلوبة 🙂 جعفر

وعليكم السلام 🙂 صحيح عندك حدث "عند التحميل" في الكود ، ولكن النموذج مافيه امر تشغيل الكود !! . لازم يكون: جعفر

السلام عليكم 🙂 نفس حل اخوي ازهر ، ولكن بصورة ابسط جعفر

السلام عليكم 🙂 لو تتبع هذه الطريقة ، ما تتعب 🙂 جعفر

السلام عليكم 🙂 اخي@Khalf نتشرف بوجود اسمك مع قائمة خبراء الاكسس 🙂 يسألني البعض عن معيار اختيار الخبير ، وجوابي وبكل بساطة ، ان يشارك بالاجابة ، وكون اجاباته موفقه 🙂 جعفر

السلام عليكم 🙂 اخي الفاضل alloui79 هذا المنتدى للتعلم وليس للتحدي ، وقبل كل هذا ، هناك قوانين في المنتدى يجب اتباعها : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. اذا كنت جاد في التعلم ، فرجاء عمل موضوع جديد بشروط وقوانين المنتدى ، والجميع هنا يحب ان يمد يد العون 🙂 يُغلق جعفر

اخي طاهر ، اخونا ابوعبدالله قائم بمساعدتك ، وسألك هذا السؤال : هل ادخلت بيانات في نموذج تفاصيل ؟ فرجاء الرد على استفساره ومتابعة الموضوع معاه 🙂 جعفر

السلام عليكم 🙂 اهلا وسهلا بك في المنتدى 🙂 قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا محتوى المشاركة 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 15. يفضل عدم طلب عمل برنامج فهذا المنتدى للتبادل العلمي، وليس للبحث عن البرامج الجاهزة، ولكن ابدأ بالعمل واطرح المشاكل التي تواجهك (بعد البحث في المنتدى منعا للتكرار). وما سبق طرحه من برامج يمكنك الوصول إليها باستخدام البحث، برجاء فتح مواضيع ثانية ، موضوع لكل سؤال ، مع مراعاة ان يحتوي اسم الموضوع على معناه 🙂 يُغلق. جعفر

السلام عليكم 🙂 وجرب هذا المرفق. هذا المرفق ينزل جميع البرامج المفتوحة ، وبعدين يكبّر برنامج الاكسس بعد ثانية ، حصلت على الكود من الانترنت ، وتم عمل بعض التعديلات عليه وتضبيطه للعمل على النواتين 32 و 64 بت : Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim DoIt As LongPtr #Else Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim DoIt As Long #End If 'Private Declare PtrSafe Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_COMMAND As Long = &H111 Private Const MIN_ALL As Long = 419 Private Const MIN_ALL_UNDO As Long = 416 Private Const SW_RESTORE As Long = 9 ' Public Function Minimize_AllWindows() DoIt = FindWindow("shell_traywnd", vbNullString) 'to minimize them all Call PostMessage(DoIt, WM_COMMAND, MIN_ALL, 0&) Dim PauseTime, Start PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.RunCommand acCmdAppMaximize End Function Public Function Restore_AllWindows() DoIt = FindWindow("shell_traywnd", vbNullString) 'to return them all to normal size Call PostMessage(DoIt, WM_COMMAND, MIN_ALL_UNDO, 0&) End Function . وطريقة العمل اننا ننادي الوحدة النمطية عند بدء البرنامج هكذا : call Minimize_AllWindows . وعند اغلاق البرنامج يمكننا ان ننادي الوحدة النمطية الاخرى لإرجاع جميع النوافد مثل ما كانت على قبل الانزال ، هكذا ، call Restore_AllWindows . اما انا ، فأفتح برنامجي عن طريق الماكرو autoexec والذي يعمل تلقائيا لما يفتح الاكسس ، واول امر فيه هو مناداة الوحدة النمطية لتصغير النوافد ، ثم يفتح لي النموذج الذي اريده ، هكذا : . ولما اغلق البرنامج ، اضع كود ارجاع البرامج الى وضعها السابق على حدث زر الخروج من البرنامج : . والكود : Call Restore_AllWindows DoCmd.Quit جعفر All_Minimize_Restore.zip

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

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

وعليكم السلام اخوي محمد 🙂 ممكن تجرب هذه النسخة وتخبرنا بالنتيجة لوسمحت ، علشان ارفعها في المشاركة الاولى 🙂 جعفر 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