بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1,156 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
8
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عمر ضاحى
-
اخي الكريم يوجد الكثير من البرنامج هنا ابحث واتعلم هذا اولا ثم ابدأ وجرب وثم اذا وقف معك شئ لا تتردد فى طرح سؤالك هنا وستجد الكثير من استذتى الكرام من يجيبك لكن كونك تطلب برنامج تريد احد ان ينفذه لك هناك قسم خاص بالطلبات المدفوعه ممكن تطرح طلبك هنا
-
ادخلى على استعلام الالحاق وعدلى الشروط
-
فلتر ايه؟
-
ده معناه انك لم تغلقي الصب زي مثلا end sub وممكن يكون معناه اظ فى اكثر من صب داخل بعض
-
اذا تم حل المشكلة اختاري افضل اجابه لغلق الموضوع
-
بسيطه جربي غيري السطر هذا DoCmd.OpenReport "Barcode", acViewReport فى زر الطباعة DoCmd.OpenReport "Barcode", acViewPreview او باى طريقه انتى حابها ^_^
-
هل هذا ما تريدين ؟ طبعا التعديلات كثيره اولا هذا الصب ما يقوم بالعمليات المهمه 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
-
فى تجربه انا اقوم بها لكن محتاجه وقت هخلصها وارجع ليكي لكن الموضوع محتاج بحث شويه معايا
-
جميل قربنا طيب فين مصدر الدرجات يعنى من وين اقدر اوصل للدرجة الخاصه بالتلميذ هذا لان مش شايف اى جدول اقدر اخذ منه الدرجات ام انك تريدين وضع قيم ثابته
-
كيف هتتكرر العينه
-
اذا جربي عمل محموعات داخل التقرير بناءا على قيمة الحقل المشترك فيه جميع التحاليل
-
سؤال هل التحديد مرتبط بقيمة فى جدول؟ اذا لا اعملى حقل جديد واجعلى التحديد منضم ومرتبط بقيمة ف جدول ومن ثم قومي باضافته ف الإستعلام
-
ده خطأ ف استعلام التقرير
-
لا لا لا مش كده خالص من هنا بنختار الخط
-
انا جربت الخط وشغال تمام معي اسم الخطين Ameen BarCode2 Bar-Code 39
-
العفو انتى ومعلمي ولك الفضل على ممكن توضح لى اكثر لاني مش قادر افهم ايه المطلوب واين تريد حفظ التاريخ واليوم ؟
-
طريقة تشفير الوصول الى عرض التصميم
عمر ضاحى replied to Abdelaziz Osman's topic in قسم الأكسيس Access
الكود هذا من مكتبة استاذى @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 -
طريقة تشفير الوصول الى عرض التصميم
عمر ضاحى replied to Abdelaziz Osman's topic in قسم الأكسيس Access
اها طيب هراجعه لك -
طريقة تشفير الوصول الى عرض التصميم
عمر ضاحى replied to Abdelaziz Osman's topic in قسم الأكسيس Access
الملف حول بدون مشاكل معي -
استعلام تغيير و تحديث من خلال جدول ( 2 )
عمر ضاحى replied to محمد احمد لطفى's topic in قسم الأكسيس Access
متابع -
طريقة تشفير الوصول الى عرض التصميم
عمر ضاحى replied to Abdelaziz Osman's topic in قسم الأكسيس Access
هذا لمنع الشفت ويمكن كسره بسهوله الافضل اولا اخذ نسخه من البرنامج وحفظه فى مكان امن ثانيا هتقسم البرنامج بقاعدة اماميه وخلفيه ثالثا القاعدة الاماميه هتحفظها بصيغة accde صيغة تنفيذيه لكن انتبه لتستبدل الاصليه بالتنفيذيه لان التنفيذيه لا يمكن الاطلاع او تعديل اكوادها -
lمساعدة في استخراج اسم التقرير مع الاكسل
عمر ضاحى replied to سامر محمود's topic in قسم الأكسيس Access
طيب ما الصوره موضحه الخطأ هو مش عارف يوصل للكائن ال يقصده اسم التقرير ممكن يكون خطأ فى اسم التثرير او فى الكود راجع كويس الكود واسم التقرير خده نسخ افضل -
lمساعدة في استخراج اسم التقرير مع الاكسل
عمر ضاحى replied to سامر محمود's topic in قسم الأكسيس Access
ارفع صورة الخطأ وكما كان يقول استاذى الجليل ومعلمي القدير الاستاذ جعفر اعرف الاكسيس شايف الكود ازاى وايه النتائج التى تظهر كل خطوة ف الكود لان ربما سببها شئ اخر -
lمساعدة في استخراج اسم التقرير مع الاكسل
عمر ضاحى replied to سامر محمود's topic in قسم الأكسيس Access
نصيحه جانبيه دائما لما احد يعطيك ملف اول شئ اذا كان يعمل جيدا وتريد نقله الى الملف الاصلى الخاص بك تاكد من ان المكتبات الموجوده فى ملف التجربه موجوده فى ملفك الاصلى ثم ابدأ افهم الكود جيدا لان احيانا يكون الكود منقسم الى داله ومديول او صب والخ ابدا انقل كل شئ له علاقه ويخصك ثانيا انا شايف ان اغلب مشاكلك مع المكتبات فى حل معرفش صراحتا اذا كان هيحل المشكله معك ام لا لكنها محاوله قم بازالة النسخه ال معك ونزل نسخه اوفيس احدث لكل تتحل كل مشاكلك لانالعيب من فى الكود العيب عنك فى الجهاز