بلال اليامين

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

اخي اضع الكود مكان q_Ch3

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

هذا هو الكود الذي ابحث عنة بارك الله فيكم شكرا

اخي لم يفتح التقرير اين اضع اسم معاينة التقرير

السلام عليكم لي كود يفتح النموذج واريد تغيير الكود لفتح التقرير DoCmd.OpenForm " ", acNormal, , " '" & Me.Text3 & "'" DoCmd.Close acForm, Me.name

افادتنا

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة الكود.rar

انشاء شريط قوائم في الموذج الفرعي وهذا عند وضع الماوس امام الزر تظهر القائمة

السلام عليكم نشكر جميع الاعضاء والقائمين على الموقع الرائع اريد تلوين الزر عند وضع الماوس امام الزر و اريد عند وضع الماوس امام الزر تظهر القائمة في النموذج الفرعي الكود.rar

اخي بارك الله فيك شكرا هذا هو طلبي

السلام عليكم اريد ادراج هذا الكود في الزر اسمه تحديث Private Sub NoEmptyTexts() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If IsNull(ctl) Or ctl = "" Then ii = 1 MsgBox "الرجاء ملءجميع الحقول المطلوبة المشار اليها في نافذ حجز المعلومات تعني اجبارية ولايمكن تخطيها و الا لن تتم عملية حفظ أو تخزين المعلومات" DoCmd.CancelEvent ctl.SetFocus Exit For Else ii = 2 End If End If Next ctl End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) End Sub Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec End Sub Private Sub أمر41_Click() Call NoEmptyTexts If ii = 1 Then Exit Sub DoCmd.CancelEvent Else Me.Refresh MsgBox " تمت عمليةاضافة موظف جديد بنجاح " & " " & Me.sname & " " & "رقم الموظف" & " " & usr_ID, _ vbInformation + vbOKOnly, _ "تنبيه" End If DoCmd.GoToRecord , الرمز, acNewRec End Sub 7.rar

يرجى الافادة

اخي طريقة التنسيق بين الصفحات وهذا عند ملء البيانات في الصفحة 1 يظهر اسمه في الصفحة2و3و4و5 لاكمال البيانات في الجميع الصفاحات

بارك الله فيك جزاك الله خيرا

السلام عليكم اريد فتح 8 نماذج في صفحة واحدة وهذا عند الضغط على الزر كل صفحة تظهر الصفحة قاعدة بيانات1.rar

كود لعدم اظهار الشريط المبين بالخط الاحمر في الصورة المرفق Nouvelle image bitmap.bmp

السلام عليكم اريد نقل الكود المرفق الى البرنامج اسمه Usrsekasr906 وادراجه في زر حفظ Desktop.rar

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

السلام عليكم لم اسطيع انجاز زر حدف ثلاثة حقول في النموذج الفرعي

تظهر لي هذه الكتابة التنسيق الذي تحاول اخراج الكائن الحالي به غير متوفر

يوجد خظا في الكود

السلام عليكم اساتذتى الكرام عيدكم مبارك اخي فتح التقرير في في البدياف DoCmd.OpenForm "ÇáÊÍæíá", acNormal, , "[ÇáÑãÒ ÇáæÙíÝí ááãæÙÝ]='" & Me.Text3 & "'" DoCmd.Close acForm, Me.name اخي التعديل على الكود لفتح التقرير لانه الان يفتح النموذج

السلام عليكم اساتذتى الكرام ارجو التكرم على مساعدتى في عمل زر فتح التقرير في PDF ولكم منى خالص تحياتى