jjafferr

شباب كيف أحسب مساهمة الراتب والبدلات على المعادلات التالية

مساهمة الراتب

 

ما قبل 1/8/1994

الراتب الأساسي × 0.05 × ((عدد السنوات × 12) + (عدد الأشهر) + (عدد الأيام /30))

بعد 1/8/1994

الراتب الأساسي × 0.06 × ((عدد السنوات × 12) + (عدد الأشهر) + (عدد الأيام /30))

 

 

مساهمة البدلات 

من 2/11/1996

البدلات × 0.06 × ((عدد السنوات × 12) + (عدد الأشهر) + (عدد الأيام /30))

 

المدة يحسب من إلى بحيث يأخذ في الإعتبار السنة الكبيسة والبسيطة

السلام عليكم ولد بلادي 

ادري ما سويلك سالفة ، بس السموحة 

التواريخ اللي انا علّمتها بالاحمر ، كيف نحسبها؟

انت عندك في النموذج: التاريخ من ، والتاريخ الى ، فكيف نحسبها ، او من اي حقل نأخذها؟

جعفر

وعليكم السلام

انظر الى هذا الرابط ، فهو مشابه لسؤالك:

http://www.officena....showtopic=60971

واذا عندك سؤال لاحقا ، فنحن في الخدمة 

جعفر

وعليكم السلام

انظر الى هذا الرابط ، فهو مشابه لسؤالك:

http://www.officena.net/ib/index.php?showtopic=60971

جعفر

تفضلي 

انا عملت الاستعلام qry_Main ، واللي النمذج الاساسي يعتمد عليه.

طريقة العمل:

1. عند اختيار اي لوحة من القائمة المنسدلة ، فالنموذج يعطي سجل هذه اللوحة ،

2. وعندما تريدين جميع اللوحات ، انقري على القائمة المنسدلة مرتين Double click 

جعفر

68.قاعدة بيانات السيارات.accdb.zip

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

اتمنى من الشباب اللي عندو حل يساعدني فيه

وشكرا لكم

عفوا ، حل لأيش؟

جعفر

حياك الله اخي جعفر ..

هو اسم مستعار وليس حقيقي

 

الله يعطيك العافية على تجاوبك معي

 

1. ممكن اعرف السبب في تغيير البرنامج ؟

2. ليه ما يكون ادخال الباركود في جدول ADS عن طريق نموذج ADS ؟

3. ايضا في قراءة الباركود عن طريق الجهاز ما ابغى استخدم أي زر للحفظ او تاب او انتر او غيرها .. ابغاه اتوماتيك وخاصة لو عندك اكثر من 1000 طالب في المدرسة

حيا الله أخوي 

1. لأن كان فيه شوية اشياء تعقد عمل البرنامج ، واشياء ما ممكن تشغل البرنامج ، مثل انك جعلت حقل ID غير مسموح تكراره في الجدول ADS (قلت في خاطري: يا حظهم الطلبة ، يقدر الواحد فيهم يتأخر كل يوم ، بس يتسجل عليه تأخير يوم واحد فقط في السنة   ) ،

2. كل شئ يصير   ، بس لما يكون عندك اكثر من 1000 طالب ، فيا الله الله يمديك تسجل حضورهم ، وتريد في نفس الوقت تسجل معلوماتهم كذلك!!!

3. في مشاركتي السابقة ، شوف الكود اللي عليه مربع احمر رقم 1 ، احذف اشارة  '  من امام كل سطر ، وبيشتغل الكود ان شاء الله 

جعفر

افتح الكود ، وابحث عن: bmp

وسترى الاسم 

الباحث جعفر

سجلني  من (لقسم منا    )  لا يستطيع في كلا النوعين

حياك الله أخوي أبوخليل 

1. هههههه عجبتك هي قسم منا

طيب ياريت توضح لي اكثر

2. اذا حولت البرنامج في هذه الحاله لايمكنني التعديل عليه صح او خطا

3. وشفر بيانات الجداول هذه مافهمتها المعذره والسموحه منك حبيبي

اشكرك ياغالي

اخوك ابو يزن

حيا الله أخوي أبو يزن 

1. انا جاد في كل كلمة قلتها ، فمعناه ان هناك من يستطيع ان يحصل على ما يريد ، بغض النظر عن اي نوع من انواع الحمايات اللي بتعملها ، سواء للأكسس او اي برنامج آخر 

2. نعم لا يمكن التعديل عليه ، فيجب عليك الاحتفاظ بالنسخة المفتوحة المصدر لعمل التغييرات ، ثم قفلها الى mde او accde 

3. ابحث في المنتدى ، وستجد المطلوب ، لأن هذا الموضوع مب تخصصي ، فما افهم فيه الكفاية (وكذلك انا جاد ، رحم الله إمرئ عرف قدر نفسه  )

الجاد جعفر 

وعليكم السلام 

حول البرنامج الى mde او accde 

بالطريقة هذه ، غير ممكن الحصول على الكود (لقسم منا  ) ،

وشفّر بيانات الجداول ، فحتى لو استطاعوا الوصول لداخل البرنامج (قسم منا   ) ، فلن يستفيدوا من البيانات ،

جعفر

وعليكم السلام أستاذنا الفاضل / الجندبي (بس ان شاء الله كتبت اسمك صح  )

انا غيرت في البرنامج ، يعني عندك برنامج جديد 

النموذج:

في الخانة الخضراء تدخل رقم الباركود ، ولما تطلع من الحقل (يعني تضغط على TAB او Enter في لوحة المفاتيح) ، تظهر لك معلومات الطالب في النموذج الرئيسي ،

وكذلك تحصل على سجلات الطالب القديمة في النموذج الفرعي.

حفظ معلومة الحضور:

عندك طريقتين لحفظ المعلومة:

1. عندما تدخل رقم الباركود في الخانة الخضراء ، ولما تطلع من الحقل (يعني تضغط على TAB او Enter في لوحة المفاتيح) ،

او

2. عند النقر على زر الحفظ.

حاليا البرنامج يحفظ المعلومة عن طريق النقر على زر الحفظ.

وإحنا في الخدمة 

جعفر

66.BarcodeStudent.accdb.zip

AppDesigner="أبو يزن" 

docmd.openform chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

docmd.openform "أبو يزن"

عملت لك كود صغير يغير الاسم من حروف الى ارقام:

a = "أبو يزن"
b = ""
c = ""
For I = 1 To Len(a)
   c = c & Mid(a, I, 1) & "=" & Asc(Mid(a, I, 1)) & " , "
   b = b & "chr(" & Asc(Mid(a, I, 1)) & ") & "
Next I
c = Mid(c, 1, Len(c) - 3)
b = Mid(b, 1, Len(b) - 3)
Debug.Print c
Debug.Print b

والنتيجة (السطر الاول للعلم فقط ، بينما السطر الثاني هو الذي يحتوي على الكود):

أ=195 , ب=200 , و=230 ,  =32 , ي=237 , ز=210 , ن=228
chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

يعني بدل ما تكتب اسمك بهذه الطريقة:

AppDesigner="أبو يزن" 

اكتبه:

AppDesigner=chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

والجدول اللي أخوي ابا عمر تركه لنا هو للحروف اللاتينية فقط ، والرابط فيه جدول للغة العربية كذلك:

http://www.ascii.ca/cp864.htm

جعفر

عزيز وغالي أخوي أبو عبير 

ولو إحنا في الكثير من الاوقات مقصرين 

جعفر

اخوي أبو يزن جرب:

AppDesigner="أبو يزن"

بدل السطر اللي يبدا بـAppDesigner

جعفر

حياك الله أخوي محمد 

وجزاك الله من فضل رحمته 

جعفر

وحيا الله الشباب 

أخوي رمهان 

وأخوي محمد 

وأخوي أبوآلآء  

وشكرا على لطيف كلماتكم 

جعفر

وهاي المرفق 

54.1.TreeView_RTL.mdb.zip

السلام عليكم

1.

من المعروف ان تنسيق النص في مربع القائمة ListBox هو من اليسار الى اليمين ،

مشكلة كانت تصادفني دائما ، وهو تنسيق القيم في مربع القائمة لتكون من اليمين الى اليسار بالنسبة للغة العربية (طريقة تغيير مربع القائمة الى مربع تحرير ونص ، ثم عمل التنسيق عليه من اليمين الى اليسار ، ثم اعادته الى مربع قائمة لا يعمل معظم الوقت) ،

موقع http://www.lebans.com  والذي يحتوي على مالذ وطاب عنده طريقه لهذا التنسيق: http://www.lebans.com/justicombo.htm كذلك.

2.

ونفس المشكلة مع موضوع تنسيق الشجرة TreeView من اليمين الى اليسار.

النتيجة:

و

وطريقة العمل ،

يوضع هذا الكود في وحدة نمطية:

Option Compare Database
Option Explicit

#If VBA7 And Win64 Then
    '64 bits
  Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
  Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Public Declare PtrSafe Function InvalidateRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long
  Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
  Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr
  Public Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr
  
  Dim hwnd As LongPtr
  
#Else
    '32 bits
  Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
  Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  Public Declare Function GetFocus Lib "user32" () As Long
  Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  
  Dim hwnd As Long
  
#End If

Public Const GW_CHILD = 5
Public Const WS_EX_LAYOUTRTL = &H400000
Public Const GWL_EXSTYLE = (-20)



Function RTL_Set(frm As Form, ctl As Control)
    
    Dim varHwnd As Variant
    Dim OldLong As Long
    
    frm.SetFocus
    ctl.SetFocus
    varHwnd = GetFocus()
    OldLong = GetWindowLong(varHwnd, GWL_EXSTYLE)
    SetWindowLong varHwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
    InvalidateRect hwnd, 0, False
    
End Function

Function RTL_SetTree(frm As Form, ctl As Control)

    Dim OldLong As Long
    
    OldLong = GetWindowLong(ctl.hwnd, GWL_EXSTYLE)
    SetWindowLong ctl.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
    InvalidateRect hwnd, 0, False
    
End Function



'
' From http://www.microsoft.com/middleeast/msdn/faq.aspx
'
'Place OnLoad of the Form

'    Dim OldLong As Long
    'For Form
'    OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
'    SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    'For List
'    OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE)
'    SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    'For The StatusBar
'    OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE)
'    SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    'For TreeView
'    Dim nodX As Node
'    Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
'    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
'    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
'    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
'    Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
'    nodX.EnsureVisible
'    OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE)
'    SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    'For ListView
'    OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE)
'    SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    'For ProgressBar
'    ProgressBar1.Value = 50
'    OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE)
'    SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    'For ToolBar
'    mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD)
'    OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE)
'    SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL
'    InvalidateRect hwnd, 0, False
    

في اسفل الكود انا تركت الكود لبقية الاشياء اللي يمكن عملها من اليمين الى اليسار.

اما تنفيذ التنسيق لمربع القائمة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على هذا المربع (وهنا اسم حقل مربع القائمة هو List0_RTL ) :

    'ListBox RTL
    Call RTL_Set(Me, List0_RTL)

وتنسيق الشجرة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على الشجرة (وهنا اسم الشجرة هو TreeView1) :

    'TreeView RTL
    Call RTL_SetTree(Me, TreeView1)

وللأمانة العلمية ، فاني استخدم قاعدة البيانات التي وضعها الاخ محمد في الرابط: http://www.officena.net/ib/index.php?showtopic=60781

جعفر

تعديل 1: 18-11-2021 ، جعل البرنامج يعمل على النواتين 32بت و 64 بت

54.RTL_TreeView_ListBox_32bits_n_64bits.accdb.zip

السلام عليكم أخوي أبا عمر 

حيله جميلة باستخدام SetWindowPos 

إحنا بسبب طريقة السؤال كنا نحاول ان نخفي شاشة الاكسس ، بس انت ماشاء الله عليك ، نظرت للموضوع من خارج العلبة ، وحصلت على مفهوم أكبر وطرق اخرى للحل ، هنيئا لك هذه القدرة 

وللعلم ، راعي الغنم في مشاركته رقم 84 لمح لهذا الشي نظريا ، ولم يطبقه برمجيا ، وانت سبقته ففيك الخير 

جعفر

تفضل

وكما قال الاخ عبدالله ، Application.followhyperlink يستطيع ان يفتح قاعدة بيانات اخرى ، مثل ما في موضوعك الاصلي عن هذا السؤال:

http://www.officena.net/ib/index.php?showtopic=60818&p=393534

جعفر

وعليكم السلام

لو كنت مخبرنا من البداية قصدك ، كنا اعطيناك الحل من البداية 

والكود هو:

    myApp = Me.txtOpenFile
    'myApp = "F:\Temp\myDatabase.mdb"
    'Shell myApp, 1
    Application.FollowHyperlink myApp

اما مربع النص ، فيمكنك ان تكتب فيه المسار يدويا كذلك ، مع اني اضفت امكانية فتح ملفات الاكسس كذلك.

جعفر

53-Word_Print.zip

وعليكم السلام أخي كريمو

محتاج شوية وقت وارجع لك ان شاء الله 

جعفر

أخي الفاضل

استعمل السطرين اللي في منتصف الكود ، وخبرني النتيجة:

'    End If

    Me.txtname = Node.Parent
    Me.txtSon = Node.FirstSibling
    
On Error Resume Next
Debug.Print "node.Child; " & Node.Child

جعفر

عفوا أختي ، اعتقد بانك ارفقتي برنامج آخر!!

مافي نموذج باسم اساسي ، ولا لقيت حقل رقم اللوحة في الجداول!!

جعفر

انا اقول الرجال ساكت ، اثارية يعدل وينظم ثروته 

بارك الله فيك أخي أبوآلآء 

انا انزلت برنامجين افحصهم 

جعفر