نجوم المشاركات

هل انت جربت الاستعلام1 ...... انظر النتيجة من جهازي .... اليس هذا هو مطلوبك ؟؟؟؟

تفضل لو انك ماقلت جربت طرقتي أو طريقة ازهر ..... __د.كاف يار - نسخة (1).rar

ضع هذا الكود تحث حدث عند الضغط على الزر وامسح الماكروا الموجود DoCmd.OpenReport "kashef", acViewPreview, , "stclass Like '*" & Me.stclass & "*'"

جرب هذا الملف Gocondasty.xlsm

بارك الله فيك اخي جعفر ليس فضلا ولا احسان ... بل انت صاحب الفضل بعد الله عز وجل ..... فعلا البرامج مثل التي طرحها الاساتذة @jjafferr و @أبو إبراهيم الغامدي و @د.كاف يار فعلا تستحق التجربة لانها امثلة كل واحدة منها تحمل فكرة جميلة وجديرة بدراستها والاستفادة منها ... بارك الله في جهود الجميع ....

فضلا غير افضل اجابة للاستاذ . @jjafferr لانه اول من طرح اجابة صحيحة .... بارك الله فيك

استبدل الكود الموجود في زر الاستيراد بهذا الكود وجرب ..... Dim TextLine Dim x() As String Dim TESTFILE As String Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From Mobaile") 'TESTFILE = Application.CurrentProject.Path & "\Template.csv" TESTFILE = Me.txtPath Open TESTFILE For Input As #1 ' Open file. Do While Not EOF(1) ' Loop until end of file. Line Input #1, TextLine ' Read line into variable. 'Debug.Print TextLine ' Print to the Immediate window. x = Split(TextLine, ",") If x(0) <> "IdentificationID" Then rst.AddNew rst!IdentificationID = x(0) rst!FullName = x(1) rst!MobileNumber = x(2) rst!ClassName = x(3) rst.Update End If Loop Close #1 ' Close file. rst.Close: Set rst = Nothing

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

تم معالجة الامر 1-تغيير اسماء الشيتات الى اللغة الأجنبية 2- الاظهار اليوزر Show User انقر الزر من الصفحة Baraka 3- لمعرفةكيفية التعامل مع اليوزر يمكن الاستعانه بهذه الصور الملف مرفق Phone_Numbers.xlsm

اخي الفاضل ، لا يكفي ان تنقل هذه الجزئية فقط الى برنامجك ، فهناك وحدة نمطية اسمها ويجب نقلها كذلك الى برنامجك الآخر 🙂 جعفر

جرب هذا الملف (صفحة Salim ) Affan.xlsm

تم التحديث قليلاً من جهة احتصار الأكواد حدد ما تريد اخفاءه (او اظهاره ) واضغط الزر المناسب Fathi_Use_superr.xlsb

السلام عليكم مشاركه مع اخى واستاذى الدكتور حسين @د.كاف يار اتفضل اخى @husseinharby تعديل بسيط على كود اخى واستاذى حسين جرب ووافنا بالنتيجه Private Sub item_AfterUpdate() [sale_qty] = 1 If Len(number & "") = 0 Then number = Nz(DMax("[number]", "[details]", "[sale_id]=[Forms]![sale]![sale_id]"), 0) + 1 Else End If End Sub بالتوفيق copy(2).accdb

مبدأيا يمكن عمل فكرتك باحدى طريقتين : 1- نجعل الاكسس قبل الالحاق يتأكد سجل سجل ( هل هو موجود او لا ) واعتقد هذه الطريقة تأخذ وقت وخاصة اذا كانت السجلات كثيرة 2- نجعل الاكسس يحصر السجلات الموجود في الجدولين وفي حال وجود مكرر يظهرها لنا في نموذج وسؤالنا هل نريد الحاق هذه الاسماء المكررة ام لا اذا اذا كان ليس هناك تكرار في السجلات يقوم بالحاق السجلات دون اظهار النموذج وقد تكون هناك طرق اخرى .....

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

استخدم هذا الكود Dim fpathz As Variant Dim fil As String With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) End If End With 'DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tb_redy_rateb ( id_imp, tmonth, tyer, school, tnam, national_iD, old_asis, new_asis, elawa14, elawa15, edafya, egtemaya, hafz25, adaaa, badlteatcher, kader, ekama, shamel, add_nesab1, add_nesab2, add_nesab3, add_nesab4, masthkak, mastktaa, safy ) IN '" & fpathz & "' SELECT * " & vbCrLf & _ "FROM tb_redy_rateb;" 'DoCmd.SetWarnings True

جربت المرفق يعطي هذه الاخطاء مع العلم جرب الكود السابق كان يعمل بشكل اكثر من ممتاز

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

السلام عليكم كيف يتم احتساب الراتب عند تغيير الارقام في الدرجه الحالية والمرحلة الحالية مثلا الدرجة 1= 100000 و2= 200000 و3= 300000 وهكذا والمرحلة 1= 20000 و2 = 15000 و 3 10000 و4 =5000 وهكذا وهل هنالك دالة او كود لحساب لثلاثة متغيرات بالاكسيس وشكرا test.rar