jjafferr

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

السلام عليكم اخي كريمو سؤال لوسمحت: هل البرنامج يقوم بعمل آخر غير عملية السلف؟ جعفر

أختي هذا مثال لطريقة العمل ، لنفس الغرض الذي تريديه ، ما لك شغل في بقية البرنامج ، خذي حاجتك منه جعفر

وعليكم السلام هذا مثال: http://www.officena.net/ib/index.php?showtopic=59606&p=382425 جعفر

وعليكم السلام ورحمة الله وبركاته حيا الله من سألنا سؤال غير عن كل يوم الاكسس لا يفرق بين الحروف الكبيرة UpperCase/Ucase و LowerCase/LCase ، فلهذا السبب يجب ان نحل المسألة بطريقة اخرى. هناك أكثر من طريقة لعمل المطلوب: 1. قراءة رقم كل حرف (انا احتفظ بالصورة الاولى ascii table في الرابط التالي ، وهي جدا مفيدة للمبرمج): http://www.asciitable.com/ من الجدول ، قيمة A = 65 ، بينما قيمة a = 97 جرب هذا الكود: msgbox asc("A") msgbox asc("a") ففي هذه الحالة ، يجب ان نقارن قيم الاحرف بين القيمة في النموذج والتي في الجدول ومادمنا في سياق ascii table ، فترى اننا في بعض الاوقات في الكود ، عندما نريد استخدام الرمز " وقد يكون من الصعب استخدامه مباشرة ، فاننا نستخدم (chr(34 2. طريقة نستخدم الامر StrComp وهو يقوم بمقارنة جملتين ، ولكن علينا التاكد باننا نقارن vbBinaryCompare ، مثل: Comp_User = StrComp(rst!username, Me.username, vbBinaryCompare) فاذا كانت النتيجة تساوي صفر ، فمعناه ان الجملتين متشابهتين هذا كود برنامجك للمقارنة: Private Sub login_Click() If trycount > 2 Then MsgBox " من حُسن إسلام المرء تركه ما لا يعنيه ", vbOKOnly + vbMsgBoxRight + vbInformation, "تحذير " MsgBox " سيتم إغلاق البرنامج الآن ،،، يجب مراجعة المسؤول ", vbOKOnly + vbMsgBoxRight + vbInformation, "تحذير !" DoCmd.Quit End If Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From users") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!depart = 1 Then Comp_User = StrComp(rst!username, Me.username, vbBinaryCompare) Comp_Pass = StrComp(rst!txtpassword, Me.txtpassword, vbBinaryCompare) If Comp_User = 0 And Comp_Pass = 0 Then MsgBox "مرحباً بك " & Me.username DoCmd.OpenForm "ادارة الجوازات", acNormal DoCmd.SelectObject acForm, "login2" Me.Visible = False Exit Sub End If End If rst.MoveNext Next i MsgBox "تاكد من صحة اسم المستخدم وكلمة المرور" trycount = trycount + 1 End Sub وانا عملت المقارنة للحقلين username و txtpassword جعفر 59.اظهار كلمة المرور.accdb.zip

وعليكم السلام أخي علي للأسف سؤالك غير واضح رجاء تعمل اكثر من مثال في الاكسل او الوورد (مثلا الرقم التعريفي 107 ، فيه رقمين ، كيف تريدنا نتعامل معاهم) ، ورجاء اعطاء ادق التفاصيل ، حتى نعرف المطلوب بالضبط جعفر

وعليكم السلام علشان تحصل على: انت محتاج الى استعلام تحديث : والاستعلام: UPDATE Families SET Families.FileNumber = Left([FileNumber],1) & "0" & Right([FileNumber],3); والاستعلام فيه "0" ، ويعني صفر واحد ، تقدر تزيد الاصفار مثل ما تريد ، مثل "00000" جعفر

وعليكم السلام شوف كيف عملناه في برنامجنا السابق: http://www.officena.net/ib/index.php?s=9665ba43203e1be265350f9ce98f3c97&showtopic=60710 لكل حقل if خاص بيها جعفر

الطريقة اللي انا استعملها هي: في اول نموذج يفتح في برنامجك ، في النموذج1 ، في الحدث عند التحميل ، نحط الكود التالي: docmd.maximize وجميع النماذج ما تكون منبثقة ، واستخدام هذه الطريقة: http://www.officena.net/ib/index.php?showtopic=60864&p=391815 تكون النتيجة مثل ما طلبتي جعفر 56.قاعدة بيانات1.accdb.zip

تفضلي 56.قاعدة بيانات1.accdb.zip

كما توقعت ، النموذج لم يُغلق ، فعليه ، القيمة السابقه لا تزال موجودة!! غيري الكود الموجود عندك ، بهذا الكود: نموذج1 Private Sub أمر0_Click() DoCmd.OpenForm "استعلام1", acNormal 'Me.Visible = False End Sub ولنموذج الاخر ، استعلام1: Private Sub أمر6_Click() 'DoCmd.OpenForm "نموذج1", acNormal 'Me.Visible = False DoCmd.Close End Sub جعفر

السلام عليكم جربت الكود ، وكله تمام (في الكود وما جربت الارقام) بس علشان الفقرة الاخيرة مال 203 ، أضفت السطر الاخير في الكود: Private Sub Command6_Click() NA = Sallary * 0.04 * Years If NA > Sallary * 0.5 Then NA = Sallary * 0.04 * Years Else NA = Sallary * 0.5 End If If NA > Sallary * 0.8 Then NA = Sallary * 0.8 End If If NA < 203 Then NA = 203 End Sub جعفر

أفضل شئ ممكن تعمليه ، انك ترفقين هذا الجزء من البرنامج: 1. الاستعلام 2. النموذج 3. سجلين او 3 في الجدول وعليه نشوف وين المشكلة جعفر

وعليكم السلام أختي عند الاستعلام مرة ثانية ، هل النموذج الاول مقفل؟ رجاء ان تعطينا تفصيل أكثر ، حيث بدون البرنامج ، يجب ان نعرف تفاصيل أكثر جعفر

السلام عليكم ورحمة الله وبركاته رحم الله والديك أخي أبومحمد على العمل الجميل ، تسلم ايدك اذا تسمحوا لي بالمشاركة ايش رايكم بهذا النموذج: بتعديل بسيط على الكود السابق اللي اشتغلتوا عليه ، المادة رقم 1 ، تمسح جميع افرع الشجرة ، حتى يبدأ الكود بعمل الازم: وهاي علشان نخلي الشجرة تُعرض من اليمين الى اليسار: بالاضافة الى هذه الوحدة النمطية: Option Compare Database Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False جعفر 54.TreeView_RTL.accdb.zip

كلامك صحيح :-) هذه تسمى نسخة الموبايل ، و في اسفل الصفحة زر اسمه "النسخة الكاملة" حيث تستطيع ان ترى نفس النسخة التي على الكمبيوتر :-) جعفر

وعليكم السلام :-) 1. البرنامج يأخذ جميع الحقول في الجداول او الاستعلامات ، فحذف الاستعلامات لن يزيد في أي شئ :-) 2. البرنامج يأخذ المسميات التوضيحية لكل حقل ويعرض هذا المسمى لاعمدة التقارير ، فإذا لم توجد هذه المسميات ، يستخدم اسم الحقل. 3. وأخيرا ، صحيح أن النموذج يأخذ أسماء الحقول من اليسار إلى اليمين ، لكن التقارير هي من اليمين إلى اليسار ، والعمود الأول الأقصى على اليمين هو الرقم التسلسلي لكل سجل :-) جرب ، وأخبرني عن ملاحظاتك :-) جعفر

السلام عليكم أخي كريمو رجاء اعطني الخطوات التي تتبعها لعمل قرض ، فالنفرض لجعفر ، قرض Cridi و Electro.... و others شكرا جعفر

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

حياك الله أخي رجاء اترك لي ملاحظة في الموضوع اعلاه ، حتى لما اعمل النسخة التالية من البرنامج ، تكون على دراية بالموضوع جعفر

حياك الله أخي عبدالرحمن

وعليكم السلام وحيا الله أخي عبدالرحمن هناك طريقتين لعمل المطلوب ، وأخي عبدالرحمن شرح الطريقة الاولى ، والطريقة الثانية: في 99.9% من برامجي ، انا لا استخدم منبثق ولا شكلي او مشروط الطريقة هي ، اختر الاختيار الذي عليه السهم: جعفر

زين الحمدلله جانا المشرف شخصيا ، أبا عمر واللي يرحم والديك شوف لي هالموضوع ، ترى هذا الموضوع تعبني شخصيا ، واضطررت ان اعمل قانون خاص بي للمنتدى ، قلت فيه: على هذا الرابط http://www.officena.net/ib/index.php?showtopic=60448&p=388352 والحمدلله في هذا الموضوع ، المكان كان بدون شيش وقت الشغل جعفر

السلام عليكم اخي كريمو انا بعد دقائق سأبدأ العمل على برنامجك إن شاء الله :-) جعفر

أختي الفاضلة بحثت في المنتدى بجملة "شريط متحرك" ووجدت الكثير من المواضيع مع امثلة جعفر