اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عمر ضاحى

الخبراء
  • Posts

    1,156
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    8

كل منشورات العضو عمر ضاحى

  1. اخي الكريم يوجد الكثير من البرنامج هنا ابحث واتعلم هذا اولا ثم ابدأ وجرب وثم اذا وقف معك شئ لا تتردد فى طرح سؤالك هنا وستجد الكثير من استذتى الكرام من يجيبك لكن كونك تطلب برنامج تريد احد ان ينفذه لك هناك قسم خاص بالطلبات المدفوعه ممكن تطرح طلبك هنا
  2. ادخلى على استعلام الالحاق وعدلى الشروط
  3. ده معناه انك لم تغلقي الصب زي مثلا end sub وممكن يكون معناه اظ فى اكثر من صب داخل بعض
  4. اذا تم حل المشكلة اختاري افضل اجابه لغلق الموضوع
  5. بسيطه جربي غيري السطر هذا DoCmd.OpenReport "Barcode", acViewReport فى زر الطباعة DoCmd.OpenReport "Barcode", acViewPreview او باى طريقه انتى حابها ^_^
  6. هل هذا ما تريدين ؟ طبعا التعديلات كثيره اولا هذا الصب ما يقوم بالعمليات المهمه Sub SendDataTests() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim tubeDict As Object Dim tubeValue As Variant Dim testValue As String Dim idValue As Long Dim barcodePrintValue As Boolean Dim sendValue As Boolean Set db = CurrentDb Set tubeDict = CreateObject("Scripting.Dictionary") strSQL = "SELECT tube, test, ID, barcode_print, send FROM TEMPTEST;" Set rs = db.OpenRecordset(strSQL) Do While Not rs.EOF tubeValue = rs!tube testValue = rs!test idValue = rs!ID barcodePrintValue = rs!barcode_print sendValue = rs!send If Not tubeDict.Exists(tubeValue) Then tubeDict(tubeValue) = testValue Else tubeDict(tubeValue) = tubeDict(tubeValue) & ", " & testValue End If rs.MoveNext Loop rs.Close Set rs = Nothing db.Close '--------------------------------------------------------------------------------------------- Set db = Nothing Set db = CurrentDb For Each tubeValue In tubeDict.Keys strSQL = "INSERT INTO TEMPTEST2 (tube, [test], ID, barcode_print, send) " & _ "VALUES ('" & tubeValue & "', '" & tubeDict(tubeValue) & "', " & idValue & ", " & barcodePrintValue & ", " & sendValue & ");" db.Execute strSQL Next tubeValue db.Close Set db = Nothing End Sub ,طبعا تم عمل جدولين لحفظ البيانات مؤقتا وهم جدول TEMPTEST وجدول TEMPTEST2 وتم عمل 3 استعلامات ( اثنين لتفريغ البيانات من الجدولين المؤقت والثالث لنقل البيانات التى سيتم معالجتها الى الجدول الاول والملف الذى فيه كل ما تم هنا طباعة باركود-1.rar
  7. فى تجربه انا اقوم بها لكن محتاجه وقت هخلصها وارجع ليكي لكن الموضوع محتاج بحث شويه معايا
  8. جميل قربنا طيب فين مصدر الدرجات يعنى من وين اقدر اوصل للدرجة الخاصه بالتلميذ هذا لان مش شايف اى جدول اقدر اخذ منه الدرجات ام انك تريدين وضع قيم ثابته
  9. كيف هتتكرر العينه
  10. اذا جربي عمل محموعات داخل التقرير بناءا على قيمة الحقل المشترك فيه جميع التحاليل
  11. سؤال هل التحديد مرتبط بقيمة فى جدول؟ اذا لا اعملى حقل جديد واجعلى التحديد منضم ومرتبط بقيمة ف جدول ومن ثم قومي باضافته ف الإستعلام
  12. ده خطأ ف استعلام التقرير
  13. لا لا لا مش كده خالص من هنا بنختار الخط
  14. انا جربت الخط وشغال تمام معي اسم الخطين Ameen BarCode2 Bar-Code 39
  15. العفو انتى ومعلمي ولك الفضل على ممكن توضح لى اكثر لاني مش قادر افهم ايه المطلوب واين تريد حفظ التاريخ واليوم ؟
  16. صديقى العزيز ليس للغة الاوفيس دخل بمشكلتك انت مشكلتك فى النظام نفسه (فى الوندوز نفسه) لا تحاول تصلح حاجه فى حته تانيه وكما سبق ان رديت عليك من قبل اعمل الخطوات وهتتحل اذا لم تتحل جرب نسخة وندوز اخري لعل فيها مشكله مع ملفات اللغه العربيه
  17. الكود هذا من مكتبة استاذى @Moosak Option Compare Database Option Explicit Public Function ShowHideRibbon(ShowRibbon As Boolean) On Error GoTo ErrHandler '*********************( إخفاء/إظهار الشريط العلوي وجميع النوافذ )************************** If ShowRibbon = False Then '--------------------------------(إخفاء الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarNo ' Hide Navigation Pane: DoCmd.NavigateTo ("acnavigationcategoryobjecttype") DoCmd.RunCommand (acCmdWindowHide) '--------------------------------(جميع تضبيطات تقفيل القاعدة وإخفاء القوائم ومنع الزر الأيمن والاختصارات) Application.SetOption "Show Status Bar", False CurrentDb.Properties("ShowDocumentTabs") = False Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", False Application.SetOption "Themed Form Controls", False Application.SetOption "DesignWithData", False CurrentDb.Properties("AllowDatasheetSchema") = False Application.SetOption "CheckTruncatedNumFields", False CurrentDb.Properties("AllowFullMenus") = False CurrentDb.Properties("AllowShortcutMenus") = False '--------------------------------(Shift منع استخدام زر الشفت) On Error GoTo err CurrentDb.Properties("allowbypasskey") = False Exit Function ElseIf ShowRibbon = True Then '--------------------------------(إضهار الريبون والنفجيشن بان) DoCmd.ShowToolbar "Ribbon", acToolbarYes 'Unhide the navigation pane On Error Resume Next Call DoCmd.SelectObject(acTable, , True) Call DoCmd.SelectObject(acMacro, , True) Call DoCmd.SelectObject(acForm, , True) On Error GoTo ErrHandler '--------------------------------(فتح خصائص قاعدة البيانات وإظهار القوائم وتفعيل الزر الأيمن والاختصارات) Application.SetOption "Show Status Bar", True CurrentDb.Properties("ShowDocumentTabs") = True Application.SetOption "Auto compact", True Application.SetOption "Remove Personal Information", True Application.SetOption "Themed Form Controls", True Application.SetOption "DesignWithData", True CurrentDb.Properties("AllowDatasheetSchema") = True Application.SetOption "CheckTruncatedNumFields", True CurrentDb.Properties("AllowFullMenus") = True CurrentDb.Properties("AllowShortcutMenus") = True '--------------------------------(Shift السماح باستخدام زر الشفت) On Error GoTo err2 CurrentDb.Properties("allowbypasskey") = True Exit Function End If '--------------------------------------------------------------------------- ErrHandler: If err.Number <> 0 Then MsgBox err.Number & vbCrLf & vbCrLf & err.Description, , "Function: ShowHideRibbon" Resume Next Else Exit Function End If err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, False) Exit Function err2: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, True) Exit Function End Function طبعا بيتم تشغيل الكود مع الاكسيس بواسطة المايكرو ( Autoexec ) مرفق ملف للتوضيح Shift.rar
  18. الملف حول بدون مشاكل معي
  19. هذا لمنع الشفت ويمكن كسره بسهوله الافضل اولا اخذ نسخه من البرنامج وحفظه فى مكان امن ثانيا هتقسم البرنامج بقاعدة اماميه وخلفيه ثالثا القاعدة الاماميه هتحفظها بصيغة accde صيغة تنفيذيه لكن انتبه لتستبدل الاصليه بالتنفيذيه لان التنفيذيه لا يمكن الاطلاع او تعديل اكوادها
  20. طيب ما الصوره موضحه الخطأ هو مش عارف يوصل للكائن ال يقصده اسم التقرير ممكن يكون خطأ فى اسم التثرير او فى الكود راجع كويس الكود واسم التقرير خده نسخ افضل
  21. ارفع صورة الخطأ وكما كان يقول استاذى الجليل ومعلمي القدير الاستاذ جعفر اعرف الاكسيس شايف الكود ازاى وايه النتائج التى تظهر كل خطوة ف الكود لان ربما سببها شئ اخر
  22. نصيحه جانبيه دائما لما احد يعطيك ملف اول شئ اذا كان يعمل جيدا وتريد نقله الى الملف الاصلى الخاص بك تاكد من ان المكتبات الموجوده فى ملف التجربه موجوده فى ملفك الاصلى ثم ابدأ افهم الكود جيدا لان احيانا يكون الكود منقسم الى داله ومديول او صب والخ ابدا انقل كل شئ له علاقه ويخصك ثانيا انا شايف ان اغلب مشاكلك مع المكتبات فى حل معرفش صراحتا اذا كان هيحل المشكله معك ام لا لكنها محاوله قم بازالة النسخه ال معك ونزل نسخه اوفيس احدث لكل تتحل كل مشاكلك لانالعيب من فى الكود العيب عنك فى الجهاز
×
×
  • اضف...

Important Information