kanory

بعد الانتهاء من اضافة الموظف قم بالضغط على حفظ ....... انظر المرفق ربما هو ما تريد .... dbo_da_kan.accdb

ممكن مرفق صغير للتعديل عليه .... لان الشغلة تحتاج عمل واكواد بارك الله فيك

تفضل استخدمن استعلام الحاق ::::::: DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl3 ( stname1, class1, stid ) SELECT tbl1.stname, tbl1.class, [forms]![frmmain]![id] AS K FROM tbl1 WHERE (((tbl1.class)=[forms]![frmmain]![lst4]));" DoCmd.SetWarnings True movemanyrecords (1).accdb

تفضل الملف 2003 TEST_OD _2003.mdb

نعم صحيح ...

زيادة في اثراء الموضوع .....

انظر الاستعلام وطبق ماتريد بها ..... TEST_OD.accdb

أخي الكريم @عمر ضاحى انت من تستحق افضل اجابة ... وهذا رأي بارك الله فيك .... واشكر حسن ظنك في ..

كلام اخي الكريم عمر صحيح .... حتى تسهل على المجيب ... عشان لايضطر المجيب لتصميم قاعدة لكل سائل .... حرصا على وقته .... بارك الله فيك اخي عمر ... انظر المرفق ... kan_a.accdb

أخي الفاضل بارك الله فيك احي فيك هذه الرغبة في التعلم .... نصيحة لك اقرأ كثريا عن الدوال .... Asc ,Mid هذه دوال Asc تقوم بارجاع كل حرف او رقم في لوحة المفاتتيح الى القيمة الرقمية لها ليتم التعرف عليها هل هي حرف ام رقم ليتم عن طريق Mid اقتصاصها لو كلنت رقما طبعا لو تابعت الكود فيه حلقة تكرار For ليتم المرور على كل حرف او رقم موجود في السلسلة النصية الموجودة في الكمبوبكس .... لمزيد من الدوال في المرفق .... Microsoft Access Functions.pdf

هل تقصد هكذا ؟؟؟؟؟

تفضل >>>>>>> Function Seperate_Digits(T) ' هذا الفانك لاقتصاص الارقام من النص If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) C = Asc(Mid(T, i, 1)) Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function Private Sub cbList1_AfterUpdate() ' متغيرات Dim a, aa, ff As Integer Dim st As String 'اقتصاص رقم الشهر من الكمبو بكس الموجود في النموذج a = Seperate_Digits(Me.cbList1) 'عدد ايام الشهر المختار aa = CVDate(a) * 30 st = Day(DateSerial(Year(aa), Month(aa) + 1, 0)) 'ادخال تلك المتغيرات في العملية الحسابية ff = (Me.نص692 * Me.txtTotalSalary) / st Me.txtdaysalary1 = ff End Sub

انظر الصورة وطبق ..... pro.accdb

انظر المرفق ..... ربما هو طلبك ... pro.accdb

ممكن مثال لمطلوبك للتوضيح ...

الحمد لله رب العالمين

me.kan=" "

طيب بلاش الكود .... جرب المرفق عسى يكون المطلوب ... kan_a.accdb

استخدم هذا الكود .... Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW)

الحمد لله رب العالمين ....... بالتوفيق ,,,,

وعليكم السلام اوقف عمل هذا الجزء 'Me.Undo

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

حياك الله شيخ الزهارين ..... بالتوفيق ... ليش حذف افضل اجابة ؟؟؟؟؟ ههههههه

انسخ ملفات ال PDF الى مجلد بجوار القاعدة وسمي المجلد مثلا Kanory ثم استبدل الكود لديك بهذا الكود ... Me.AcroPDF1.LoadFile (CurrentProject.Path & "\" & "kanory" & "\" & Me.mo3amlano & ".pdf") Me.AcroPDF1.setShowToolbar (False) Me.AcroPDF1.Height = 5000 Me.AcroPDF1.Width = 10000 Me.AcroPDF1.setView ("FullScreen") Me.AcroPDF1.Visible = True كدة هيشتغل معاك البرنامج في اي مكان في جهاز الحاسب بدون مشاكل .... بشرط وجود مجلد Kanory بجوار القاعدة .....

الافضل ان تكون الملفات في مجلد خاص بجوار قاعدة البيانات