بلال اليامين قام بنشر أغسطس 6, 2018 مشاركة قام بنشر أغسطس 6, 2018 السلام عليكم ورحمة الله وبركاته اريد عند الضغط على زر تحديث تظهر رسالة تنبيه بعدم ترك الحقول فارغ وعند ملء الحقول تظهر في رسالة التنبيه رقم الموظف والاسم وطريقة انجز بحث برنامج.rar رابط هذا التعليق شارك More sharing options...
Mo3taz3zzat قام بنشر أغسطس 7, 2018 مشاركة قام بنشر أغسطس 7, 2018 (معدل) وعليكم السلام هتيجي عند زر تحديث وتضيف كود IF يراجع على كل الحقول If IsNull(field1) = True Then MsgBox "حقل 1 فارغ" else if Me.field2 ="" then MsgBox "حقل 2 فارغ" else if Me.field3 ="" then MsgBox "حقل 3 فارغ" Else MsgBox "اسم الموظف " & Me.txtEmplName.Value & vbNewLine & "رقم الموظف: " & Me.txtNumber.Value ' Refresh code here End If مرفق قاعدة مثال بها الكود Refresh.accdb تم تعديل أغسطس 7, 2018 بواسطه Mo3taz3zzat اضافة مرفق رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر أغسطس 7, 2018 الكاتب مشاركة قام بنشر أغسطس 7, 2018 طريقة وضع الكود في زر تحديث في البرنامج المرفق Nouveau Microsoft Office A77777عدة بيانات.rar رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 8, 2018 مشاركة قام بنشر أغسطس 8, 2018 (معدل) اخي بلال اليامين If IsNull(Forms![88555]!التعديل!usr_ID) = True Then MsgBox "رقم الموظف فارغ" ElseIf Forms![88555]!التعديل!نص161 = "" Then MsgBox "حقل الاسم فارغ" ElseIf Forms![88555]!التعديل![142] = "" Then MsgBox "حقل اختيار مكان العمل فارغ" Else MsgBox "اسم الموظف " & Forms![88555]!التعديل!نص161 & vbNewLine & "رقم الموظف: " & Forms![88555]!التعديل!usr_ID Me.Refresh End If حاولت اعدلك الكود بما فهمته من كود الاخMo3taz3zzat Nouveau Microsoft Office A77777عدة بيانات (1).rar تم تعديل أغسطس 8, 2018 بواسطه ابو ياسين المشولي رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر أغسطس 8, 2018 الكاتب مشاركة قام بنشر أغسطس 8, 2018 السلام عليكم ورحمة الله وبركاته اريد وضع هذا الكود في زر تحديث وهذا يضغط على الزر تظهر له رسالة تنبيه بعدم ترك الحقل فارغ وعند ملء الحقول تظهر له رسالة تنبيه بالاسم الموظف ورقمه لدي الكود ولم استطيع وضع في زر تحديث واليكم الكود و البرنامج الكود.rar برنامج.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 8, 2018 مشاركة قام بنشر أغسطس 8, 2018 السلام عليكم اخي بلال رجاء مواصلة الموضوع في هنا، وعدم فتح موضوع جديد لنفس الموضوع، فهذا فيه تشتت للأفكار! وخصوصا ان معك من الاعضاء من يحاول مساعدتك، والكود الذي ارفقته هو كود الاخ @Mo3taz3zzat جعفر 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 8, 2018 مشاركة قام بنشر أغسطس 8, 2018 11 دقائق مضت, jjafferr said: السلام عليكم اخي بلال رجاء مواصلة الموضوع في هنا، وعدم فتح موضوع جديد لنفس الموضوع، فهذا فيه تشتت للأفكار! وخصوصا ان معك من الاعضاء من يحاول مساعدتك، والكود الذي ارفقته هو كود الاخ @Mo3taz3zzat جعفر اخي jjafferr انا حاولت اعدله الكود حسيب مافهمت اطلع على على الملف المرفق Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر أغسطس 8, 2018 الكاتب مشاركة قام بنشر أغسطس 8, 2018 لدي كود اخر بعثوا لي احد الاصدقاء الكود.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 8, 2018 مشاركة قام بنشر أغسطس 8, 2018 يمكنك استخدام الكود التالي كذلك: Private Sub أمر140_Click() Dim ctl As Control Str2 = "" For Each ctl In Me.التعديل.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) Then If Len(ctl.Value & "") = 0 Or ctl.Value = 0 Then Str2 = Str2 & ctl.ControlSource & vbCrLf End If End If Next If Len(Str2 & "") <> 0 Then MsgBox "الحقول التالية فارغة" & vbCrLf & vbCrLf & Mid(Str2, 1) Else Me.Refresh End If End Sub . والنتيجة . جعفر 944.Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb.zip 1 1 رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر أغسطس 8, 2018 الكاتب مشاركة قام بنشر أغسطس 8, 2018 اخي اريد في عند ملء البيانات تظهر رسالة تنبيه الاسم الموظف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 8, 2018 مشاركة قام بنشر أغسطس 8, 2018 تفضل . وهكذا اصبح الكود Private Sub أمر140_Click() Dim ctl As Control Str2 = "" For Each ctl In Me.التعديل.Controls If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) Then If Len(ctl.Value & "") = 0 Or ctl.Value = 0 Then Str2 = Str2 & ctl.ControlSource & vbCrLf End If End If Next If Len(Str2 & "") <> 0 Then MsgBox "الحقول التالية فارغة" & vbCrLf & _ "للموظف " & Me.التعديل!نص161 & " " & Me.التعديل!نص62 & vbCrLf & vbCrLf & _ Mid(Str2, 1) Else MsgBox "جميع الحقول كامله، سيتم الان حفظ بيانات" & vbCrLf & _ "الموظف " & Me.التعديل!نص161 & " " & Me.التعديل!نص62 Me.Refresh End If End Sub جعفر 944.1.Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb.zip رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر أغسطس 8, 2018 الكاتب مشاركة قام بنشر أغسطس 8, 2018 اخي جعفر بارك الله فيك اطلب من الله عز وجل ان يزيدك علم نافع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان