هل من الممكن نجعل النص عمودي ويكون بداية الكلام من أعلى وليس من أسفل ؟
انا عملته عمودي ولكن بدايته من اسفل إلي اعلى ...هل يتم عكس الاتجاه ؟
مع الشكر لكم جميعا ............اللهم أحمي الأقصى و انصر فلسطين وشعبها يارب
السلام عليكم و رحمة الله وبركاته اخوتي في الله في هذا الصرح العلمي الجميل
سؤال لحضراتكم ...كيف افتح نموذج عن طريق قائمة تحرير وسرد؟! بمعنى اختار من القائمة "اسم النموذج" مثل "مدرسة ابتدائي" و من ثم يفتح ما تم اختياره من خلال هذه القائمة
مع جزيل الشكر والتقدير للجميع
قاعدة تجربة.accdb
السلام عليكم ورحمة الله وبركاته ........... الاخوة الكرام
عندي مشكلة في كتابة الرقم القومي .2.880901310093E+12 بيطلع بالشكل ده
رقم انه رقم ومزدوج ......يارب اجد حل جزري لهذه المشكلة مش عارف يمكن من الويندوز ..؟؟
اخي كريم بارك الله فيك اولا .............. المطلوب قيمة المتبقى تكون في في الخانة الحمراء فقط كلما اضفت مبلغ في الخانات الزرقاء
في الخانة الزرقاء 150 في اليوم الاول تكون في الخانة الحمراء 1850 و اليوم الثاني 350 تكون في الخانة الحمراء 1500 وهكذا
التجربة 1 (1).xlsx
السلام عليكم ورحمة الله وبركاته الاصدقاء الكرام ............. ممكن عملية حسابية اطرح المبلغ المنصرف في اليوم والتاريخه اللي هو باللون الأزرق.....
من المبلغ الموجود باللون الأخصر ليعطيني المتبقي اللي هو باللون الأحمر ؟
صرفت النهاردة مثلا 200 علبة يبقى الباثي في اللون الأحمر 1800 و غدا صرفت 300 يبقى في المتبقى 1500 وهكذا
مع الشكر للجميع
التجربة 1.xlsx
السلام عليكم ورحمة الله
هل من الممكن اضيف عبارة لغلق النموذج وفتح هذا التقرير
يعني اما يفتح التقرير يغلق النموذج اللي في الخلف .....مع الشكر للجميع
Private Sub GO152_Click()
On Error Resume Next
& _ DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE
"and [NOV]=" & Me.SX
End Sub
الكود بالتفصيل
اللي بيتم فتحه jop اللي المراد قفله KAI
Private Sub SearchList_DblClick(Cancel As Integer)
On Error GoTo Err_أمر62_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "jop
stLinkCriteria = "[رقم_العميل]=" & Me![cc]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_أمر62_Click:
Exit Sub
Err_أمر62_Click:
MsgBox Err.Description
Resume Exit_أمر62_Click
End Sub
هتلاقي الأمر دبل كلك ...ما ينفعش حضرتك اعمل زر زي ما انت بتقول
الكود بالتفصيل
اللي بيتم فتحه jop اللي المراد قفله KAI
Private Sub SearchList_DblClick(Cancel As Integer)
On Error GoTo Err_أمر62_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "jop
stLinkCriteria = "[رقم_العميل]=" & Me![cc]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_أمر62_Click:
Exit Sub
Err_أمر62_Click:
MsgBox Err.Description
Resume Exit_أمر62_Click
End Sub