بلال اليامين

السلام عليكم لي كود يفتح النموذج واريد تغيير الكود لفتح التقرير 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 ولكم منى خالص تحياتى

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

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

اخي وباجراء وحدة نمطية يظهر الضفر ام لا

اخي لم يظهر الصفر على اليسر انظر الحقل 09562 وعند دمجهم لم يظهر الصفر

لدي ستة حقول اريد دمجهم في حقل واحد 1 حقل متكون من رقمين 2حقل متكون من رقمين 3حقل متكون من خمسة ارقم 12360 4حقل متكون من ثلاثة ارقام 5حقل متكون من رقمين 6حقل متكون من رقمين اريد دمج الحقول باجراء وحدة نمطية و قمت بدمجهم في الاستعلام ولم يظهر الرقم صفر كما هومبين اعلاه ان الصفر على اليسر لم يظهر في الاستعلام مثل 10 98419016665000 قاعدة بيانات1.rar