jjafferr

تفضلي أختي هذا مثالك بعد التغيير ، ولكن الملف بصيغة 7z ، فرجاء تغيير اسمه بعد انزاله ، ملفك حجمه بعد الضغط يصل الى 8MB فلم استطع رفعه إلا بهذه الصيغة ، ونصيجة اختي ، لا تحفظي الصور داخل قاعدة البيانات ، بل احفظيها في مجلد خارج البرنامج ، مع عمل رابط بين الصورة والسجل ، والمنتدى مليئ بالامثلة على ذلك جعفر 636.‏‏DBSystem 99999998 - نسخة (2).accdb.zip

شكرا أخي عبد الفتاح ولكني لم اكن متوقع انك راح تفتح موضوع جديد له جعفر

نعم انا فكرت في الموضوع ، ولكن لم احصل على الوقت لعمل هذا ، ولم افكر كيف اريد ان تكون النتائج

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

حياك الله رجاء فتح موضوع جديد لسؤالك الجديد ، فقوانين المنتدى لا تسمح بأكثر من سؤال في موضوع جعفر

تفضل تابع الارقام بالتسلسل ، مع البرنامج . جعفر 638.All.mdb.zip

حياك الله أخوي طارق هدفنا احنا الاثنين واحد ، وهو الوصول الى النتيجة المطلوبة ان شاء الله 1. طيب ، هذه الخانة اصلا موجودة في الاستعلام 1234 ، وتم إضافتها للتقرير ، 2. اذا كان نعم ، تريد ان تُظهر الحقل نعم/لا فقط ، او تريد إظهار السجل بالكامل ، واذا كان لا ، تريد ان إخفاء الحقل نعم/لا فقط ، او تريد إخفاء السجل بالكامل ، . جعفر

تفضلي Private Sub amr9_Click() 'If Me.sds1.Text = Me.User_ID And Me.sds2.Text = Me.User_Phone And Me.sds3.Text = Me.User_Email Then If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then DoCmd.OpenForm "New password", acNormal Else ms$ = "The data dose't match" ti$ = "Make sure your data" re = MsgBox(ms$, 0, ti$) End If End Sub والنتيجة . جعفر

وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7 بالعربي (من اليمين الى اليسار) ، حسابك صحيح ، ولكن واقعا الجمله من اليسار الى اليمين ، وبالطريقة هذه ، فالقوس في ملاحظتك سيكون بالمقلوب (يعني فاتح لليمين) ، بينما كلامنا عن القوس الثاني اللي فاتح لليسار جعفر

النتائج تطلع عندنا صحيحة بالكود: A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7) بس السؤال هو: اللي بين القوسين فقط ، لوسمحت نحن لا نريد معادلة ثانية ، مجرد السؤال لماذا 7 بدل 1 !! جعفر

حياالله اختي العمل والكود تمام ، لكن كان يجب ان تغيري اسم option group من frame151 الى opt_Test جعفر

هلا اخوي شفان هكذا هي القيمة الصحيحة: Area:{ ...... } واستخدمت المعادلة التالية لقراءة آخر قوس: InStr([f5],"}")-7 الكلام انه يجب ان يكون الرقم في المعادلة 1 بدل 7 ، ولكن الرقم 1 لا يعطي النتائج الصحيحة جعفر

تفضل ياسيدي بس لا تسال ليش 7 ، لأني ما عندي لك جواب المفروض يكون 1 ، بس ما اعطى الجواب الصحيح ، ولكن 7 اعطى الجواب الصحيح A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7) جعفر

اختي لقد فتحتي موضوع جديد وارفقتي قاعدة البيانات هناك ، وهذا كان الحل: جعفر

وعليكم السلام تفضلي: If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then جعفر

وعليكم السلام Option Group عبارة عن عمل لمجموعة ومجرد برواز خارجي ، والمجموعة لا يكون لها اسم داخل Option Group ، وانما لها رقم ، والرقم هذا يُعطى لحقل Option Group ، مثلا اعملي Option Group بإسم opt_Test ، وبدون اي شيء داخلها ، يعني اول ما تعمليه في النموذج ، ثم يسألك الاكسس عن اشياء اخرى ، اضغطي على الزر Esc من الكيبورد ، ثم من تصميم النموذج اختيار مثلا: Toggle Button او Check Box او Option Button واعمليه داخل Option Group ، حيث سترين ان لونه صار اسود ، مما يعني انك تستطيعين عمله هناك ، الآن اصبح عندك Option Group والذي هو برواز ، وداخله كائن Option Button وفي آخر اعداداته هناك اختيار Option value وهنا تستطيعين اعطاء رقم مميز لكل كائن ، وهنا تستطيعين ان تعملي Copy/Paste لهذا الكائن واعطاء كل منهم اسمه ورقمه المميز ، والى هنا وينتهي دور هذه الكائنات ، الآن اعملي حدث على نقر opt_Test ، واكتبي فيه: Select case me.opt_Test case 1 msgbox "تم النقر على الزر رقم 1" case 2 msgbox "تم النقر على الزر رقم 2" End select او if me.opt_Test= 1 then msgbox "تم النقر على الزر رقم 1" elseif me.opt_Test= 2 then msgbox "تم النقر على الزر رقم 2" End if جعفر

السلام عليكم هههههه ، ببساطة ، هذه الهواتف اللي عندي وعندنا تلفونين غير ، وسأجري التجربة عليهم كذلك ان شاء الله جعفر

السلام عليكم نعم ، الحمدلله ، استطعت ان اتحكم بكاميرا هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، الآن توصلت الى اخذ الصورة من برنامج الاكسس , وعلى سجل معين ، بتوقيت 8.1 ثانية والبرنامج يعمل بجميع هذه الطرق: كاميرا هاتف اندرويد ، او WebCam HD مثل Logitec HD c615 ، او DSLR مثل Nikon D5100 او Canon الخطوة التالية: وهو السماح للمستخدم بتحديد مكان قطع الصورة (لمرة واحدة طبعا) ، وحذف الزوائد بس للعلم ، انا دائما اقول ، بأن للأكسس له قدرات معينه ، ومافي عيب من استخدام برامج/وسائط اخرى خارجية للقيام بأي عمل: جعفر

والله مش عارف انت اللي كتبت هذا الامر!!

في النموذج ، حقل التاريخ ليس datex ، وانما هو بإسم آخر !!

شو معنى ، عن اي شيء تتكلم!!

الى الآن العملية تأخذ وقت جدا طويل بالنسبة لي ، وهذا غير مقبول الوقت من ضغط الزر في الاكسس الى وصول الصورة بالاسم الذي اريده ، وعمل تنظيفات نهائية ، تأخذ حوالي 10ثواني جعفر

تفضل DoCmd.OpenReport "mab", acViewPreview, , "[bookx]='" & Me.bookx & "' And [datex]=#" & me.datex & "#" جعفر

السلام عليكم أخي محمد لاحظ اننا غيرنا الاسم ، حتى لا يكون نفس اسم المصدر . . . جعفر