بلال اليامين

السلام اريد زر الحاقي ثاني من الجدول 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

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

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

لسلام عليكم خطا في الكود

السلام عليكم لدي حقل مربع تحرير وسرد فية اسم جزائرية وأجنبية اريد عند اختيار اجنبية يتم اخفاء حقل العنوان والمنطقة وتجد البرنامج وفيه الشرح الكود (6).rar

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

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

السلام عليكم لدي نموذج فرعي اريد اظهار 10 اسماء وبقية اسماءاظهار اسفل النموذج ارقام صفاحات من 1الى اخر ى اسم وعند الظغط على صفحة 1 تظهر 10اسماء

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