Barna
الخبراء-
Posts
982 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
24
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Barna
-
جرب هذا <><><><><><><> Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ 200 If (Me.box2.Width) = 1 Then Me.Command8.Enabled = True End If End If End Sub
-
هل هذا ما تريد <><><><><><><> rprt.accdb
-
نقل الوقت و التاريخ من الجدول الى النموذج
Barna replied to محمد احمد لطفى's topic in قسم الأكسيس Access
التاريخ في حقيته غير مسجل وبالرغم من انك تشاهده في الجدول ..... انظر الجدول الان ..... تفضل <><><><><> datex.rar -
نعم تم التحميل اخي من مكتبة الموقع . لم اجرب روابط اخرى . الملف يتم تحميله لدى ويتم استخراجه بدون مشاكل ..... ولكن عن اغلاق البرنامج تاتي رسالة برنامج الفيروسات ويتم حذف مباشرة ..... اما وقت العمل عليه لاتظهر مشاكل اعتقد هناك كود عند الاغلاق يعمل .... فيعتبرها برنامج الفيروسات إنه فيرس ... والله اعلم .... جاري التجربة على الملف ربما نعرف السبب !!!!
-
تقصد فرز للسجلات ذات تواريخ السنة الحالية تفضل ........................ New Microsoft Access Database (2).rar
-
تفضل :::::::: New Microsoft Access Database (2).rar
-
مساعدة في كود لقص النص المحدد ووضعه في الصفحة التالية أو السابقة
Barna replied to nssj's topic in قسم الأكسيس Access
هل الاوفيس لديك 64Bit -
مساعدة في كود لقص النص المحدد ووضعه في الصفحة التالية أو السابقة
Barna replied to nssj's topic in قسم الأكسيس Access
مشاركة مع استاذي @kanory تفضل ....... BOOK (2).accdb -
من اسمك ... لان علي اخ وجبيب ... تحياتي له
-
اولا ::: هل لك اخ اسمه علي انا لم احمل ملفك لكن اعتقد تحتاج هذا ...
-
موضوع تعليمى لنقل البيانات من موقع الى نموذج
Barna replied to محمد احمد لطفى's topic in قسم الأكسيس Access
اقرأ هذه الدروس لعلك تستفيد منها -
لو حاول تجزيئ التقرير كان افضل .... يعنى طلاب المستوى الاول في تقرير وطلاب المستوى الثاني وهكذا لتخفيف الضغط في عرض التقرير لجميع الصور .... والله اعلم ... نحن لا نعلم عن تصميم تقريره كيف هو .... المفروض يعطينا نموذج لذلك التقرير .... لان من الصعب التكهن بذلك وخاصة صاحب البخور ليس متواجد حاليا ....
-
اجعل مصدر الصورة هكذا ... جرب =[CURRENTPROJECT].[PATH] & "\photos\" & [STUDENT_ID] & ".jpg"
-
هل هناك طريقة لتحديث قاعدة البيانات ؟؟
Barna replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
نعم ..... اولا : القاعدة اذا كانت منقسمة ...... يتم ربط الجداول من جديد بالقاعدة الجديدة . ثانيا : اذا كانت القاعدة غير منقسمة ... وغير مغلقة اي لم يتم تحويلها الى MDE لديك طريقتان : الطريقة الاولى : 1- عمل نسخة احتياطية قبل كل شيئ 2- حذف النماذج القديمة ثم تصدير النماذج الجديدة اليها. الطريقة الثانية : 1- عمل نسخة احتياطية قبل كل شيئ 2- استيراد الجداول القديمة الى القاعدة الجديدة. طبعا هذا في حالة واحدة وهي عدم وجود حقول أو تعديلات على الجداول القديمة -
أخي @عمر ضاحى الحقيقة انا لم افهم ماذا تريد ... لكن بشكل عام لو عملت ثلاث تقارير بالمطلوب واستخدمت Select Case في مجموعة الخيارات ... والله اعلم
-
-
طيب جرب كدة ..... طبعا يتم انشاء المجلدات بجوار البرنامج ... 1.mdb
-
هل يمكن تصدير (مجموعة تقارير) الى (ملف واحد Pdf)
Barna replied to waledstar's topic in قسم الأكسيس Access
هذه هي الطريقة .. -
هل يمكن تصدير (مجموعة تقارير) الى (ملف واحد Pdf)
Barna replied to waledstar's topic in قسم الأكسيس Access
لا ... ولكن ممكن نستخدم برنامج صغير لفعل ذلك عن طريق الاكسس ... دون ان يشعر فيه مستخدم الاكسس ... -
هل يمكن تصدير (مجموعة تقارير) الى (ملف واحد Pdf)
Barna replied to waledstar's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته :::: نظريا ممكن :::: الطريقة ::: اولا : تصدير التقارير الى pdf كل تقرير على حدا . ثانيا : دمج التقارير المصدرة في تقرير واحد . ثالثا : بقي التنفيذ ............ لو كان هناك مثال -
ترى كلنا نحب الصعايدة والنعم فيهم .... اسمح لي استخدم مثالك بطريقة اخرى للفائدة واثراء الموضوع باستخدم هذا الكود .... Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL1 As String, strSQL2 As String Set db = CurrentDb db.QueryDefs.Delete "qr1" If com1 = "التقرير الاول" Then strSQL1 = "SELECT tblA.ID, tblA.fld FROM tblA;" Set qdf = db.CreateQueryDef("qr1", strSQL1) ElseIf com1 = "التقرير الثاني" Then strSQL2 = "SELECT tblB.ID, tblB.fld FROM tblB;" Set qdf = db.CreateQueryDef("qr1", strSQL2) End If DoCmd.OpenReport "rptFlayReport", acViewPreview وهذا المثال ..... Chang Record Sources Report.mdb