بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
أخذت مشروع من النت ماني فاكرة من وين
وعدلت عليه شي حذفته وشي أضفته
المهم لما جيت اشغل البرنامج بيطلع خطا في اماكن على شغلات المفروض تكون سليمة بس أنا ماني عارفة ليش؟؟
أرجو من الأخوة الأفاضل التكرم بتصويبها لي مشكورين مقدما
الله يوفق اللي يساعدني في الدنيا والاخرة
مرحباً أختي الكريم .
حجم الملف : 2.442 ميجا بايت ؟
هل هذا مشروع واحد أم عدة مشاريع ؟
هل يمكنك عرض المشكلة => الـ ( Code ) ؟
اعتذر, لكني غير قادر على تحميل الملف :( .
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
Bashar Rabat كتب:مرحباً أختي الكريم .حجم الملف : 2.442 ميجا بايت ؟
هل هذا مشروع واحد أم عدة مشاريع ؟
هل يمكنك عرض المشكلة => الـ ( Code ) ؟
اعتذر, لكني غير قادر على تحميل الملف :( .
أخي الفاضل
أشكر تعاونك مقدما،
المشكلة عندما أقوم بالتشييك على
ERROR LIST بيظهر 24 WARNING
فاعتقد من الصعب إظهار هذا العدد كاكواد! لكن سوف أحاول
لك موفور الامتنان
مرحباً .
أختي الكريمة, التحذيرات التي تكلمت عنها والتي عددها 24, عندما تقومين بتشغيل مشروعك الحالي, هل تظهر لك رسائل خطأ ؟
إذا كنت تريدين تتبع هذه التحذيرات فما عليّك سوى النقر على احداها نقرة مزدوجة ومن ثم سيقوم الـ Visual Basic, Visual Studio بنقلك الى سطر الخطأ, إذا أردت معرفة ما أسباب إحدا أو كل الأخطاء فعليّك نسخ عنوانيهم عن طريق النقر على كل واحد بالزر اليميني ومن ثم ( Copy ) بعد هذا الصقيها هنا :P, ليس بالشيء الصعب أو المتطلب .
بالتوفيق .
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
أختي الكريمة
أعتقد انها ليست مشروع
وإنما Html page -_-
الأخوة الأفاضل
المشروع عن تصميم عيادة طبية
الأخطاء قمت بوضع خط تحتها
لكم الشكر على تعاونكم :wub:
-----------------------------------
Function CheckT()
If TextBox1.Text = "" Then
MessageBox.Show("الرجاء ادخال اسم المريض", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf TextBox2.Text = "" Then
MessageBox.Show("الرجاء ادخال اسم الاب", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf TextBox3.Text = "" Then
MessageBox.Show("الرجاء ادخال اسم العائلة", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf TextBox4.Text = "" Then
MessageBox.Show("الرجاء ادخال رقم الهوية", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf TextBox5.Text = "" Then
MessageBox.Show("الرجاء ادخال العنوان", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf TextBox6.Text = "" Then
MessageBox.Show("الرجاء ادخال العمر", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ElseIf TextBox7.Text = "" Then
MessageBox.Show("الرجاء ادخال الوظيفة", "حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
Return True
End If
End Function
------------------------
cmd.CommandText = "insert into Search (FName,FaName,Famlly,Idintifier,Age,Sex,ComDatee,BakDatee,StaTeath,DayTeath,Paie
d,Still,Des,mpay,PhNum,MoNum,Email) values('" & Fir & "','" & dad & "','" & flly & "','" & idi & "','" & age & "','" & sex & "','" & com & "','" & bak & "','" & sta & "','" & dyna & "','" & paid & "','" & still & "','" & des & "','" & mpay & "','" & Tel & "','" & Mobile & "','" & Email & "')"
--------------------------------
بالنسبة للتالي, فلا أرى أي مشكلة فهذه العملية .
angel-jed كتب:Private Function CheckT() As Boolean If TextBox1.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال اسم المريض", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False ElseIf TextBox2.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال اسم الاب", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False ElseIf TextBox3.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال اسم العائلة", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False ElseIf TextBox4.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال رقم الهوية", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False ElseIf TextBox5.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال العنوان", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False ElseIf TextBox6.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال العمر", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False ElseIf TextBox7.Text = ]String.Empty Then MessageBox.Show(]"الرجاء ادخال الوظيفة", ]"حقل اجباري", MessageBoxButtons.OK, MessageBoxIcon.Warning) : Return False Else Return True End If End Function
بالنسبة لهذا الـ Code فتأكدي من من أن جميع المتغيّرات المستخدم, مصرحة بالمشروع, أو إذا كنت تواجهين هذا الخطأ في وقت التشغيل فقط فلمشكلة بإسم إحدا الأعمدة أو الجدول نفسه .
angel-jed كتب:Cmd.CommandText = "insert into Search (FName,FaName,Famlly,Idintifier,Age,Sex,ComDatee,BakDatee,StaTeath,DayTeath,P aied" & _ ",Still,Des,mpay,PhNum,MoNum,Email) values('" & Fir & "','" & Dad & _ "','" & Flly & "','" & Idi & "','" & Age & "','" & Sex & "','" & Com & _ "','" & Bak & "','" & Sta & "','" & Dyna & "','" & Paid & "','" & Still & _ "','" & Des & "','" & Mpay & "','" & Tel & "','" & Mobile & "','" & Email & "')"
بالتوفيق .
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 23 يناير 2009 في 20:37
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.
أخي Bashar Rabat
:ty:
أشكرك على تعونك معي بالفعل في الموضع الاول تم تصحيح الخطأ
وسوف أراجع الموضع الثاني مرة أخرى
بارك الله فيك وحفظك.
مع خالص امتناني وشكري :pwease:
لا شكر على واجب :) .
كما ذكرت سابقاً, إذا لم يكن السطر ( الأسطر ) المذكورة للمشكلة الثانية ( مسطر اي Underlined ) من قِبل الـ VB فهنالك نقص أو زيادة في أمر الـ SQL, عليك متابعته من الجهتين .
بالتوفيق .
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.