محمد ايمن

العفو و الشكر لك على ابداعاتك استاذ جعفر

Private Sub cmd_Android_Camera_Click() On Error GoTo err_cmd_Android_Camera_Click 'KEYCODE_POWER = 26 'KEYCODE_CAMERA = 27 'KEYCODE_BACK = 4 'KEYCODE_HOME = 3 Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd1 = App_Location & " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & "; sleep 1; " cmmd2 = "input keyevent KEYCODE_ENTER" & "; sleep 2; " cmmd3 = "input keyevent KEYCODE_BACK" & ";" & Chr(34) cmmd = cmmd1 & cmmd2 & cmmd3 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'transfer the image to the PC cmmd = App_Location & " pull /sdcard/DCIM/100ANDRO/ " & Save_images_to & "temp\" Call Shell(cmmd, vbHidden) 'Delete the pictures from the mobile camera folder cmmd = App_Location & " shell rm /sdcard/DCIM/100ANDRO/*.jpg" Call Shell(cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'Delete the temp folder RmDir Save_images_to & "temp\" 'MsgBox Timer - istart End Sub هذا هو الكود بعد التعديل

طبعا ممكن اخي الكريم انشئ زر امر وضع هذا الكود خلفه و عدل اسماء التقارير المراد طباعتها Docmd.openreport"name1" Docmd.openreport"name2" غير name الى اسم التقرير و كرر الامر كما شئت

تحية طيبة استاذي الغالي جعفر المشكلة ليست من عندي و لا من عندك المشكلة من السوني بحد ذاته كما توقعت تماما للسوني سيناريو خاص به لالتقاط الصورة فعوضا عن الزر Camera يجب ارسال الزر Enter وعوضا عن المسار /sdcard/DCIM/Camera/ يكون المسار /sdcard/DCIM/100ANDRO وهذه ورقة اجابتي

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

آمين يارب العالمين العفو اخي الكريم

للاضافة نستخدم الدالة DateAdd للنقصان نستخدم الدالة DAteSerial تفضل التعديل التاريخ قبل وبعد2.rar

العفو اخي الكريم

تجدها في نموذج الدرجات في حقل رقم المادة بعد التحديث

النتيجة واحدة تقريبا انا استخدمت DCount

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

بسم الله ما شاء الله يا استاذ جعفر جاري التجربة على اندرويد 5.1 sony z >>>>>>>>>>>>>

اخي الكريم في البداية ارسلت مرفقا يختلف عن المرفق الثاني !!!!! في المرفق الثاني ما هي آلية ادراج رقم الطالب ليميز الاكسس ان هذا السجل يعود للطالب 1 و السجل التالي يعود للطالب 2 ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ على العموم تفضل الحل مع تعديل بسيط نصيحة أخيرة ابتعد عن التسميات باللغة العربية فهي تصعب عملبة كتابة و تعديل الكود stu3.rar

تفضل اخي الكريم 22.rar سبقتني للخير استاذ محمد

تفضل اخي الكريم stu1.rar

تفضل اخي الكريم ملاحظة لن تجد فرق لان الارقام في الجدول متماثلة test117.rar

تفضل test116.rar

لااااااا ما بقا نقدر نتابع بصمت صار لازم نتابع بتمعن شديد جدا ملاحظة استاذي لم ارى انك ذكرت اندرويد 5 في التجارب !!! هل هذا يعني انك لم تجرب عليه ام انه غير مدعوم في هذا المشروع ؟؟؟؟

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

صحبة ان شاء الله يا اخي شيفان جزاك الله كل خير يا اخي ابا جودي

تفضل هذا التعديل البسيط طبق التعديلات على الحقول المطلوبة مثل اسم الطالب و السنة الدراسية 22.rar

والله شي رائع تسلم ايديك

ارسل المرفق الكامل ليتم التعديل و الشرح

وانا اتابع مع اخينا ابا جودي

اخي الكريم لا تظهر البيانات لانه استعلام تجميع لو شغلت الاستعلام و وضعت الكود 8 و الطالب محمود كامل ستجد انه لايوجد بيانات في الاستعلام وهذا سبب عدم ظهورها في التقرير يمكنك التحايل على التقرير و جعل حقل اسم الطالب و رقمه مصدرها النموذج باستخدام الدالة Dlookup