ابوخليل

اسم مسفر يعني الشعاع والضوء .. من الاسفار وهو طلوع الصبح بعد الظلام الف شكر لك ولجميع من شارك من احبتي حسب توجيهك عزيزي مسفر : جعلت الهوامش = صفر ..... اصبح كل شيء تمام .. زالت المشكلة

سوف اجرب هذا ولكن كيف يفتح عندكم وانا لا

الخاصية موجودة .. لا اتكلم في هذا مشكلتي عندما اختار خاصية منبثق لا يمكن فتح التقرير

هذا يعني ان المشكلة عندي .. اي في جهازي المشكلة انه مايفتح يضل يدووور واخرا يجب علي اغلاق اكسس

الله يسعد ايامك تفضل abcd.accdb

الف شكر لك حبيبي ابو النور انا اعمل على 2010 لا ادري اين المشكلة .. اتمنى من يعمل على 2010 ان يفيدني وإلا انا سوف اكون مضطر للرجوع الى الى الحبيب الأولي ..

السلام عليكم احبتي قررت في ما تبقى من ايامي ان اواكب التطور وارتقي لما هو احدث من اصدار 2003 عملت برنامج محاسبي لابني الذي يعمل في الرياض على اصدار 2010 ولكن عندما وصلت الى النهاية وهي التقارير تفاجئت بان التقارير لا يمكن ان تقبل خاصية منبثق .. لا اعلم هل الخلل من جهازي؟ احببت ان استنير بخبراتكم دمتم سالمين احبتي abcd.accdb

عيدكم مبارك تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال

تحفة جميلة فريدة .. شكرا ابا غفران ومع فرحي بالتحفة فأنا اشد اعجابا بالحوار بين القامات العلمية وتجسيدهم للامانة العلمية

يلزم التحايل على السجلات وتحديد الترتيب عند فتح النموذج المنبثق Dim j As Integer Private Sub Command3_Click() DoCmd.GoToRecord , , acFirst DoCmd.OpenForm "form2" ifrm = 1 j = 1 End Sub Private Sub Form_Timer() On Error GoTo ErrHandler Dim i As Integer, R As Integer Dim rs As Recordset Set rs = Me.RecordsetClone R = rs.RecordCount If j = 1 Then DoCmd.GoToRecord , , acFirst j = 0 ElseIf ifrm = 1 And j = 0 Then DoCmd.GoToRecord , , acNext End If For i = 1 To R - 1 If ifrm = 1 Then DoCmd.OpenForm "form2" ifrm = 0 End If Next ErrHandler: If Err.Number = 2105 Then ifrm = 0: Exit Sub End Sub help3.mdb

الفكرة تحفة يابو ابراهيم سلمت أناملك لاحظت انه عند ادراج بيانات جديدة او تعديل الحقل yn لا تستجيب الصورة للحدث اعتقد يحتاج الحقل yn بعد التحديث الى تنشيط الفورم بــ Refresh أو نحو ذلك

انا متأكد انه يمكن تنفيذ ما تفكر به بطريقة اتقن واكثر مرونة ، وسبق طلبت منك شرح مطلوبك او بمعنى آخر فكرتك بشكل مفصل . وعلى كل حال وبرغم صعوبة تقسيم عمل كود بين نموذجين كي يعملا آليا .. تفضل تم التعديل حسب طلبك help2.mdb

حسب فهمي لطلبك انظر التعديل ، اذا يحقق طلبك .. وإلا اشرح مطلوبك بتفصيل اكثر help2.rar

عليكم السلام السؤال لماذا كل هذه الازرار والنماذج الزائدة .. لماذا لا يتم ادخال النتيجة في النموذج المستمر مباشرة ؟

تفضل تم حماية حقل الترقيم التلقائي غيرت اسم الجدول وعدلت على الفواصل بين اسماء الحقول الى الطريقة الصحيحة كل هذا من اجل تتمكن من قراءة وفهم الجمل البرمجية Dim rs As Recordset Dim strSQL As String Dim i As Long strSQL = "SELECT Max(CLng(Right([ID_exp_all],Len([ID_exp_all])-1))) AS xc FROM saderat " Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot) If rs.RecordCount > 0 Then rs.MoveFirst On Error Resume Next i = rs![xc] Me.ID_exp_all = "A" & i + 1 End If rs.Close Set rs = Nothing ترقيم خاص بالاقسام2.rar

جدول الصادر يحتوي على حقل باسم رقم عام وآخر برقم الصادر وجدول الوارد كذلك مثله في اي حقل من هذه الحقول تريد هذا الترقيم ؟

Me.text1 = Int(x1) + Int(x2) D2.rar

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

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

شكرا استاذنا القدير على هذه الفائدة والمعلومة الجديدة الذي اعرفه هو رمز فرع البنك وهو الارقام الثلاثة 11 ، 12 ، 13

تفضل حسب طلبك المرفق يشتمل على قاعدة البيانات وثلاث مجلدات Downloads2.rar

الصق هذا السطر في الحدث المناسب لحقل الآيبان وليكن بعد التحديث Odb_AccBanck = Right(Odb_AccBanckIBAN, 14) DB2.rar

هذه وحدة نمطية لإخفاء وإظهار ملف معين مهما كان نوعه وايضا ضمن موقع قاعدة البيانات الافتراضي Sub HideUnhideFile(pstrFilespec As String, pblnShowFile As Boolean) Dim FS As Object Dim F As Object Set FS = CreateObject("Scripting.FileSystemObject") Set F = FS.GetFile(pstrFilespec) If pblnShowFile Then F.Attributes = F.Attributes And (Not vbHidden) Else F.Attributes = F.Attributes Or vbHidden End If End Sub Private Sub CommandHide_Click() HideUnhideFile (CurrentProject.Path & "\kk.jpg"), False End Sub Private Sub CommandShow_Click() HideUnhideFile (CurrentProject.Path & "\kk.jpg"), True End Sub وهذا اقصر كود يمكنه القيام بالعملية هذا للإخفاء : Shell "attrib +h D:\xx.jpg" وهذا للإظهار : Shell "attrib -h D:\xx.jpg" علما ان الأفضل هو جعل الملفات المهمة ضمن مجلد واحد وتطبيق الفكرة على المجلد

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

شكرا استاذنا الكريم فكرة جميلة ولأن هذا الاجراء لن يعمل عند حماية تصميم البرنامج (mde ,, Accde) فالافضل ان كان يريد حمايته .. صنع زر للاغلاق خارج الإطار