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

مالخطأ في هذا الكود

بدأه كريمو2 في 5 نوفمبر 2014 · 6 رد · 726 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم إخواني


مطلوب مساعدة بخصوص هذا الكود في الفورم FrmMossa3da حيث انني لما اختار إسما من الأسماء الموجودة في cmdMosa3da يكتب الإسم مباشرة في Obsérvation تلقائيا


Private Sub CmdMosa3da_AfterUpdate()


'cmbMosa3da العمليات الجراحية

Select Case Me.cmdMosa3da.Value

  'اذا العمليات الجراحية افعل كذل ... الخ الكود

Case "العمليات الجراحية"

    Me!Mosa3da_Value = Mosa3da_Value

  End Select

  txtMosa3da_Value = cmdMosa3da.Column(2)

  Me.Obsérvation = Nom_Mosa3da


txtMosa3da_Value.Requery

If MsgBox("هل تريد تثبيت تاريخ المساعدة", vbYesNo) = vbYes Then Me.AwardMonth = Date

End Sub

حيث ان الفورمين FrmMenah و FrmCridi يعملان بصفة عادية الا الفورم المذكور أعلاه لم أعرف ماهي مشكلته بالرغم أني طبقت ماعملت في الفورمين السالفي الذكر .


ارجو المساعدة وشكرا


 


FrmMossa3da.rar


الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#2

وعليكم السلام :)

 

انت امرته:

Me.Obsérvation = Nom_Mosa3da

 

فنفذ الكود امرك :)

واذا كان مثل هذا الكود موجود في النماذج الاخرى ولا تظهر بيانات في الحقل Observation ، فهذا معناه ان الحقل Nom_Mosa3da هناك فاضي :)

 

 

جعفر

تم تعديل هذه المشاركة بواسطة jjafferr في 6 نوفمبر 2014 في 00:17

#3
jjafferr كتب:

وعليكم السلام :)

 

انت امرته:

Me.Obsérvation = Nom_Mosa3da

 

فنفذ الكود امرك :)

واذا كان مثل هذا الكود موجود في النماذج الاخرى ولا تظهر بيانات في الحقل Observation ، فهذا معناه ان الحقل Nom_Mosa3da هناك فاضي :)

 

 

جعفر

شكرا اخي واستاذي جعفر

 الحقل Nom_Mosa3da ليس فاضي  بل به 09 حالات

والنماذج الأخرى تعمل بصفته عادية

تم تعديل هذه المشاركة بواسطة كريمو2 في 6 نوفمبر 2014 في 00:23

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#4

انا اعتذر ، فلم اجد المشكلة :(

 

 

جعفر

#5

ولا فكرة اخرى أستاذي 


الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#6

على فكرة أستاذي


إكتشفت الخطأ وهو في تسمية  الفورمات


Mosa3da  خطأ


Mossada  صحيح


 


عجبا !!!!!!!!!!!!!!!


Private Sub CmdMossada_AfterUpdate()


'cmbMossada العمليات الجراحية

Select Case Me.cmdMossada.Value

  'اذا العمليات الجراحية افعل كذل ... الخ الكود

Case "العمليات الجراحية"

    Me!Mossada_Value = Mossada_Value

  End Select

  txtMossada_Value = cmdMossada.Column(2)

  Me.Obsérvation = Nom_Mossada


txtMossada_Value.Requery

If MsgBox("هل تريد تثبيت تاريخ المساعدة", vbYesNo) = vbYes Then Me.AwardMonth = Date

End Sub

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#7

الحمدلله انك وجدت الحل :)

 

 

جعفر

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