بلال اليامين

السلام عليكم لدي زر طباعة البيانات اريد كود عدم فتح التقرير الا بعد القيام بملء جميع الحقول اليكم قاعدة البيانات قاعدة بيانات (220000).rar

السلام عليكم لدي ستة حقول اريد دمجهم في حقل واحد وهذا ليتم وضعهم في الباركور واريد ان يتكون الباكور من 16رقما وهذا عن طريق وحدة نمطية او الاستعلام وتتكون هذه الارقام من معلومات الموظفين وهو الرمز الموظف

اخي بارك الله فيك وكيف اكمال الحقول الاخرى بتغير خلفية الحقول بالون الاحمر

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

السلام عليكم اليك المثل اخي قاعدة بيانات (220000).rar

السلام عليكم اين اضع الكود واسم الحقل

السلام اريد زر الحاقي ثاني من الجدول t2 الى جدول t1 مع حدف في الجدول الاول

السلام عليكم تعديل كود الحفظ

السلام عليكم لي كود اريد التعديل عليه 1- ان الكود الموجود في الزر تاكيد الحفظ يقوم بحفظ البيانات وهذا الضغط على زر تاكيد الحفظ في حالة نسيان خانة تظهر رسالة تنبيه الرجاء ملء جميع الحقول اريد التعديل على هذا الكود عند الضغط على زر تاكيد الحفظ لم يقوم بالحفظ البيانات حتى يقوم المستخدم بملء جميع البيانات اليكم الكود 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 cmd_view_report_Click() On Error Resume Next Dim stDocName As String DoCmd.SelectObject acReport, "ØÈÇÚÉ ÇÓÊãÇÑÉ ãáÝ ÇáãæÙÝ", True stDocName = "ØÈÇÚÉ ÇÓÊãÇÑÉ ãáÝ ÇáãæÙÝ" DoCmd.OpenReport stDocName, acPreview 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

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

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

السلام عليكم ان الكود الذي في زر تحديث يقوم بحفظ البيانات وهي لم يتم حجز جميع الحقول المطلوبة اريد عند لم يتم حجز جميع الحقول لم يتم حفظ البيانات 7.accdb

السلام عليكم اريدتعديل كود لنموذج شفاف اريد وضع في الكود رقم الشفافية وعند وضع الرقم لم يتغيير عند الحفظ

السلام عليكم اريدتعديل كود لنموذج شفاف اريد وضع في الكود رقم الشفافية وعند وضع الرقم لم يتغيير عند الحفظ Private Sub Form_Open(Cancel As Integer) If (LightboxForm.OpenInRemoteDesktop) Then Cancel = True Exit Sub End If Set LightboxForm.Form = Me End Sub

السلام عليكم اريدتعديل كود لنموذج شفاف اريد وضع في الكود رقم الشفافية وعند وضع الرقم لم يتغيير عند الحفظ Private Sub Form_Open(Cancel As Integer) If (LightboxForm.OpenInRemoteDesktop) Then Cancel = True Exit Sub End If Set LightboxForm.Form = Me End Sub

السلام عليكم لدي في حقل الجنسية 168 اسم البلد اريد عند الاختيار اي بلد يتم اخفاء حقل ولاية الميلاد وحقل بلدية الاقامة ماعدا اسم البلد الجزائر يتم اظهار حقل ولاية الميلاد وحقل بلدية وعند قمت بادخل الكود يتم اخفاء في اسم بلد واحد اريد التعد يل على الكود Private Sub الجنسية_AfterUpdate() Select Case [الجنسية] Case "اليمن" Case "مايوت" [بلدية الاقامة].Visible = False [ولاية الاقامة].Visible = False Case Else [بلدية الاقامة].Visible = True [ولاية الاقامة].Visible = True End Select End Sub 7 (2).accdb

اخي لم يتم اخفاء الحقول

السلام عليكم كود لاخفاء واظهار الحقول عن طريق مربع تحرير وسرد لدي حقل مربع تحرير وسرد اسمه الجنسية اريد عند اختيار من حقل الجنسية اي اسم البلد ماعدا اسم البلد الجزائر يتم اخفاء حقل ولاية الميلاد وحقل بلدية عند اختيار من حقل الجنسية جزائرية يتم اظهار حقل العنوان وحقل المنطقة 7.accdb

اخي ليس لدي past shortcut

السلام عليكم اخي لم افهم شورت كت

السلام عليكم اريد تقسيم البرنامج الى نسختين اريد عند التعديل في النماذج او التقرير او الاستعلام في النسخة الاولى يتغير في النسخة الثانية

السلام عليكم كود تصدير الجدول الى الاكسل واستراد

السلام عليكم تعديل كود لفتح القائمة المسندلة عن طريق الضغط على الماوس في النموذج الفرعي Private Sub Command33_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim MouseLocation As POINTAPI GetCursorPos MouseLocation DoCmd.OpenForm "Form9", acNormal Form_Form9.Move Trim(MouseLocation.tLng_Xloc) - (3.5 * 537), Trim(MouseLocation.tLng_YLoc) * 10 Form_Form9.Text3.Value = Me.التسلسل End Sub

لسلام عليكم اخي لقد وضع الكود لم يتم اخفاء الحقول اخي اريد عند اختيار اجنبية يتم اخفاء الحقول و عند اختيار جزائرية يتم اظهار الحقول

اخي لقد وضع الكود لم يتم اخفاء الحقول اخي اريد عند اختيار اجنبية يتم اخفاء الحقول و عند اختيار جزائرية يتم اظهار الحقول