اريد فتح قائمة المسندلة

[بلال اليامين]

السلام عليكم  اريد فتح قائمة المسندلة امام كل موظف اليك الشرح  في المرفقات

 

eeeee.rar

[Shivan Rekany]

في ٨‏/١١‏/٢٠١٨ at 20:58, بلال اليامين said:

السلام عليكم  اريد فتح قائمة المسندلة امام كل موظف اليك الشرح  في المرفقات

 

eeeee.rar

السلام عليكم 
موضوعك غير مشروحة بالتفصيل
شو بيظهر في ذلك القائمة
شو بيعمل لك ذاك القائمة 

[بلال اليامين]

اريد انشاء  الزر امام اسم كل موظف  وعند الظغط تظهر لك قائمة صغيرة فيها عدة ازرار منها  طباعة بياناته و تعديل البيانات والحدف 

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

اريد ان يكون الزر في الخانة الحمراء  لفتح القائمة 

سيدي انظر الى الشرح المرفق

 

1999.rar

[Shivan Rekany]

8 ساعات مضت, بلال اليامين said:

طباعة بياناته و تعديل البيانات والحدف 

اعمل نموذج للبيانات المطلوبة مع التقرير
واعمل نموذج لبطاقة المعلومات الموظف

واعمل نموذج للمعلومات الشهادة
وبعدين ارفق القاعدة هنا 
والباقي علينا

[بلال اليامين]

السلام عليكم  اخي اليك الملف

 

2018-2019.rar

[Shivan Rekany]

7 ساعات مضت, بلال اليامين said:

السلام عليكم  اخي اليك الملف

 

2018-2019.rar

اتفضل استخدمت هذا فانكشن في وحدة نمطية
 

Public Type POINTAPI
    tLng_Xloc  As Long
    tLng_YLoc  As Long
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

وعملنا نموذج باسم فورم 2 وهذه هو الاكواد في النموذج
 

Option Compare Database

Private Sub Command0_Click()
    DoCmd.OpenForm "التعديل", acNormal, , "[الرمز الوظيفي للموظف]='" & Me.Text3 & "'"
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Command1_Click()
    DoCmd.OpenForm "التعديل1", acNormal, , "[الرمز الوظيفي للموظف]='" & Me.Text3 & "'"
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Command2_Click()
    DoCmd.OpenForm "الشهادات", acNormal, , "[الرمز الوظيفي للموظف]='" & Me.Text3 & "'"
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Load()
    DoCmd.MoveSize lngListLeft, lngListTop
End Sub

وفي نموذج الفرعي بها زر وعند الضغط بالماوس هذا هو الكود المستخدمة

Private Sub Command33_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
   Dim MouseLocation As POINTAPI
   GetCursorPos MouseLocation
   DoCmd.OpenForm "form2", acNormal
   Form_form2.Move Trim(MouseLocation.tLng_Xloc) - (3.5 * 537), Trim(MouseLocation.tLng_YLoc) * 10
   Form_form2.Text3.Value = Me.التسلسل
End Sub

اليك القاعدة

 

2018-2019.rar

[بلال اليامين]

السلام عليكم  اخي بارك الله فيك نشكرك على هذا المجهود الكبير ادعو الله انة يزدك علما نا فعا ويجعل هذا العمل في ميزان حساناتك

اخي اطلب منك مساعدة اخرى ان لديك الوقت

 

[jjafferr]

20 ساعات مضت, بلال اليامين said:

اخي اطلب منك مساعدة اخرى ان لديك الوقت

 

السلام عليكم اخي بلال

 

تذكّر ، قوانين المنتدى تسمح بسؤال لكل موضوع ،

فإذا كان سؤالك عبارة عن استمرارية لهذا الموضوع ، فتوكل على الله وإسأل ،

واذا كان سؤالك خارج عن الموضوع ، فرجاء فتح سؤال جديد

 

جعفر

[بلال اليامين]

السلام عليكم  اخي بارك الله فيك نشكرك على هذا المجهود الكبير

السؤال اريد ربط البرنامج على الانترنات

 

 

[jjafferr]

في هذه الحالة ، رجاء عمل موضوع جديد ، وتكتب فيه جميع التفاصيل 🙂

 

جعفر