الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة رئيسية فى برنامج الفريق المصرى Egyptteam ، النموذج لا يحتفظ بما يكتب فيه عند اغلاقه

بدأه abdlellah في 5 مايو 2008 · 11 رد · 1,606 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

اخوانى الكرام

فى برنامج المحاسب VB2005 مع ACCESS2003 الخاص بالاخوة فى الفريق المصرى جزاهم الله خيرا ونفع بهم وذادهم علما ، به مشكلة رئيسية ،

فى قائمة المخازن

عند إضافة صنف جديد فى نموذج الأصناف ثم اغلاقه

لا يضاف اطلاقا

يعنى يضاف وبعد فتحه مرة اخرى لا تجد ما اضفته

قمت بمراجعة كود النموذج بالتفصيل ولم اجد حل لأنى لم اتوصل الى سبب المشكلة

الكود يبدو صحيح SAVERECORD()

فما الحل ؟

مثال على المشكلة ملحق فى الرابط التالى بمجرد تشغيل سترى المشكلة

الاسم1

كلمة السر1

http://up5.m5zn.com/0za3vlr8xj04/MohasebA.rar.html

وجزاكم الله خيرا

كلمتان ثقيلتان فى الميزان حبيبتان الى الرحمن

" سبحان الله وبحمــــــــــــــــــــــــــــــــــده ، سبحان اللــــــــــــــــــــــــــــــــــــــه العظـــــــــــــيـم "

#2

اخي الكريم

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

Me.Validate()

بالتوفيق

اخوك عمر

تم تعديل هذه المشاركة بواسطة a_pess في 6 مايو 2008 في 04:33

#4

اخي الكريم ابو خالد

ببساطه انك تعطي شرعيه للفورم لكي يتم حفظ التعديلات المطلوبه او لكي تحدث التعديلات المطلوبه في ملف الداتا بيز ومثال علي تنفيذ الكود بشكل كامل كالاتي


Me.Validate()
Me.CustomersBindingSource.EndEdit()
Me.CustomersTableAdapter.Update(Me.اسم ملف الداتا بيز.Customers)
MsgBox("تم حفظ التعديلات")

Catch ex As Exception
MsgBox("التعديلات لم تحفظ")

End Try
Try

بالتوفيق

اخوك عمر

#6

اخى عمر جزاك الله خيرا على الرد ولكن ماطرحته لا يحل المشكلة

ولو رأيت كود بقية النماذج ستجدها لا تحتوى على كود الإجازة هذا بالرغم من اهميته

وجربته ولكن لا يفى بالغرض فارجو القاء نظرة على البرنامج الملحق علك تجد حلا ،

ولك الشكر اخى ابو خالد على المشاركة وارجو الاطلاع على البرنامج فهو مقارب لبرنامجك التاجر وبه افكار جديدة ،

هل من حل

كلمتان ثقيلتان فى الميزان حبيبتان الى الرحمن

" سبحان الله وبحمــــــــــــــــــــــــــــــــــده ، سبحان اللــــــــــــــــــــــــــــــــــــــه العظـــــــــــــيـم "

#7

يااخوان هل من تفسير

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

لكن هل من تفسير ؟

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

وشكرا

كلمتان ثقيلتان فى الميزان حبيبتان الى الرحمن

" سبحان الله وبحمــــــــــــــــــــــــــــــــــده ، سبحان اللــــــــــــــــــــــــــــــــــــــه العظـــــــــــــيـم "

#8

بسم الله الرحمن الرحيم

أمثلة بالفيجوال بيسك دوت نت 2008

تشمل المحاسبة و الموظفون و المخازن و البرامج الطبية

و الملتيميديا و الاتصالات و الارشفة الالكترونية

http://www.fileflyer.com/view/kX9DACL

الدورة الذهبية فى الرخصة الدولية

لقيادة الحاسب الآلى الاصدار الرابع

http://www.fileflyer.com/view/RmUj5B8

#9

اخى الكريم السلام عليكم ورحمة الله وبركاتة

تم تعديل الاجراء لبصبح على النحو التالى علماَ بأنة تم اصدار اصدارات حديثة من البرنامج ضمن البكتش المرفوعة قى المشاركة عاليه صمن امثلة قيجول بيسك 2008

 Private Sub SAVERECORD()
		On Error Resume Next
		If OleDbConnection1.State = ConnectionState.Open Then Me.OleDbConnection1.Close()
		Me.OleDbConnection1.Open()
		Dim dsChanges As EgyDataset1 = New EgyDataset1
		bmp.EndCurrentEdit()
		dsChanges = CType(EgyDataset1.GetChanges, EgyDataset1)
		If (Not (dsChanges) Is Nothing) Then OleDbDataAdapter1.Update(dsChanges)
		EgyDataset1.Merge(dsChanges)
		EgyDataset1.AcceptChanges()
		Me.OleDbConnection1.Close()
		RecordCount()
	End Sub
#10

اخى الكريم هانى جزاك الله خيرا ونفع بك واعتزر على التاخر فى الرد ،

ولكن لم يضاف جديدا ، فالكود الذى ذكرته فى مشاركتك رقم 9 كان مضاف مسبقا فى البرنامج

- ارجو ان تتأكد بنفسك اخى وسترى المشكلة مازالت قائمة كما ذكرت انا فى المشاركة رقم 1 ،

- سؤال صغير اخى : استخدم SkinCrafter فى برامجى ولكن هناك مشكلة فى اتجاه اللغة العربية

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

وجزاك الله خيرا وجعله الله فى ميزان حسناتك

كلمتان ثقيلتان فى الميزان حبيبتان الى الرحمن

" سبحان الله وبحمــــــــــــــــــــــــــــــــــده ، سبحان اللــــــــــــــــــــــــــــــــــــــه العظـــــــــــــيـم "

#11


On Error Resume Next
If OleDbConnection1.State = ConnectionState.Open Then Me.OleDbConnection1.Close()
Me.OleDbConnection1.Open()
Dim dsChanges As EgyDataset1 = New EgyDataset1
bmp.EndCurrentEdit()
dsChanges = CType(EgyDataset1.GetChanges, EgyDataset1)
If (Not (dsChanges) Is Nothing) Then OleDbDataAdapter1.Update(dsChanges)
EgyDataset1.Merge(dsChanges)
EgyDataset1.AcceptChanges()
Me.OleDbConnection1.Close()
RecordCount()
End Sub
 Private Sub SAVERECORD()

اخى الكربم انا لااستخدم الاسكنس الجاهزة فى برامجى انما بعتمد بالدرجة الاولى على ادوات وخصائص الفورم vb.net

جزاكم الله عنا كل خير

#12

اخى الفاضل هانى جزاك الله عنا خير الجزاء

ولكن المشكلة مازالت موجودة

هذا الكود الذى ذكرته فى مشاركتك رقم 11

موجود مسبقا

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

ولكن هذه مشكلة رئيسية

اشكرك على سعة صدرك

وجزاك الله خير الجزاء

كلمتان ثقيلتان فى الميزان حبيبتان الى الرحمن

" سبحان الله وبحمــــــــــــــــــــــــــــــــــده ، سبحان اللــــــــــــــــــــــــــــــــــــــه العظـــــــــــــيـم "

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…