MrTid

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

Dim f As Object Dim strfile As String Dim strfolder As String Dim varItem As Variant Set f = Application.FileDialog(3) f.allowMultiselect = True If f.show Then For Each varItem In f.selectedItems strfolder = Left(varItem, Len(varItem) - Len(strfile)) MsgBox "Folder" & strfolder & vbCrLf & _ "File: " & strfile picturesource = strfolder + strfile Next End If Set f = Nothing

تفضل ابن ولايتي https://up.top4top.net/downloadf-1161vags11-rar.html

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

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

السلام عليكم ان شاء الله بخير وان شاء الله سنة خير علينا وعليكم وعلى امة محمد اخوان محتاج مساعدة كولي امل بكم وهذا الشي غير جديد عليكم في الصورة الاولى ......................... هنالك معلومات وهنالك نموذج فرعي فية انواع المن التشخيصات // المهم في هذا كولة هو ( انواع التحاليل ) فكل مريض يحتاج لانواع من التحاليل المطلوب انو مجرد ما يقوم الطبيب بالكبس على اي اسم او نوع من التحاليل يتحول لونة الى اللون الاحمر ولو كان يحتاج لعدة تحاليل كذالك يتحول لونهم الى اللوان الاحمر بعد اتمام المهمة ناتي للصورة الثانية هذه الصفحة هي خاصة بالمختبر المطلوب اظهار الاشخاص الذين لديهم تحاليل وانواع التحاليل للعلم ///// كل هذا حسب الزيارة اي عندما ياتي في المرة الثانية ياتي وكانما شخص جديد /// لكن التشخصيات والتحاليل القديمة محفوظة كل امل بكم سوف اقوم برفق قاعدة البيانات ALI.rar