رمضان

انقلى الملف إلى الدليل الذى وضعتى به البرنامج

هذا هو الكود فى حدث التحيل للنافذة Private Sub Form_Load() 'بفرض ان الملف المراد تحميله فى خانة النص موجود فى نفس دليل البرنامج 'وإسمه txt.txt 'سنقوم بعمل الاتى Dim Ffile As Byte 'للحصول على رقم ملف حر حتى نفتح ملفنا بهذا الرقم Ffile = FreeFile ' 1 فتح الملف ع…

اخيرا قررت الهجرة إلى لينكس فأى التوزيعات تنصحونى بها علما بأنى احتاج فى التوزيعه التى ترشحوها لى ان تكون محتوية على كايلكس (Kylix) ? فما هى نصيحتكم ؟؟

هل تطلب البرنامج ؟ ام الكود ؟ ام الاثنين معا ؟

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

على أساس ستقوم بحساب الاحتمال ؟؟؟؟!!!!!! فالعوامل المؤثرة فى النجاح والرسوب من الممكن ان تكون كثيره مثل صعوبة الامتحان - ايام الحضور - الدرجات السابق وغيرها الكثير

انا تحت امرك فى اى مساعدة حسب ما يسمح به الوقت وهذا بريدى ramadan272@programmer.net

فى هذا المثال يتم تخزين مسار الصوره - فقط - فى قاعدة البيانات ويتم إستدعاء هذه الصور وقت التنفيذ وإظهارها فى التقرير فلا تنسونا بدعوة فى ظهر الغيب repoert.zip

أخيراُ فهمت المطلوب وهو فى الملف المرفق temp.zip

CD هى اسم الـ comman dialog control ويجب إضافتها عن طريق Ctrl + T ثم إختيار Microsoft Comman Dailog Control

اتمنى ان يفى بالغرض pro.zip

يجب وضع خانة نص "Text Box" باسم txt وفيها سيتم عرض بيانات الملف المفتوح وخانة نص أخرى باسم File وفيها يتم وضع إسم ومسار الملف المراد فتحه ثم كتابة هذا الكود ف الحدث المناسب f = "file.txt" st = "" temp = txt.text open f for binary as #1 for i=1 to LOF(1) st = m…

الوصلة لا تعمل

الكود بعد التعديل f = "file.txt" st = "" temp = txt.text open f for binary as #1 for i=1 to LOF(1) st = mid(1 , temp , 1) temp = mid( 2 , temp , len(temp)-1) put 1, , st next i close #1

اخى الكريم إستبدل جملة SQL1 بهذه الجملة SQL1 = "SELECT Table1.*,Table2.* " _ & " FROM Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID WHERE (((Table1.DAT) " _ & "Between (#" & StartDate & "#) And (#" & EndDate & "#)));"

اتمنى ان يكون هذا هو المطلوب فى الملف المرفق HnHn.zip

انظر الملف الملحق برنامج.rar

إنظر الملف الملحق برنامج.rar

الحل الاول ان تربطى حقل رقم المريض بـ ComboBox من قاعدة البيانات بحيث لايمكن للمستخدم إدخال رقم مريض غير موجود الحل الثانى فى الحدث الذى ينتج هذا الخطأ تضعى الكود التالى قبل كود الإضافة On Error Resume Next ثم بعد تحديث البيانات وهو السطر الذى يقف عنده البرنام…

Private Sub Command1_Click() Dim sum As Double, avg As Double Static vCount As Integer If Command1.Caption = "New Data Set" Then vCount = InputBox("how many values do you want to enter") If Not IsNumeric(vCount) Then MsgBox "Please enter a numeric data" Exit S…