Barna

حياك الله اخي علي

تفضل ..... ali (2).zip

حياك الله ..... انظر المرفق واضغط على موظف_جديد في الكمبوبكس ولاحظ Barna.accdb

بارك الله فيك أخي الكريم

Function CalcAge(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAge = vYears & "سنة, " & vMonths & "شهر, " & vDays & "يوم" End Function صحح كود الوحدة النمطيه لأن الكود الذي ارفقة أخي ناقل في بدايتة ونهايتة نقص احرف سبب عدم الاجابة : قد يكون المطلوب غير واضح للزملاء يجب فتح موضوع مستقل بطلبك ارفاق مثال مبسط للمطلوب لانك طلبت في موضوع قديم جدا حاول التقيد بهذه القوانين أخي الكريم ... وحياك الله قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

لانك لم تضف الوحدة النمطيه .... انشأ وحدة نمطية واحفظها ثم اانشأ الاستعلام بارك الله فيك او ارفق لنا مثال مصغر للتعديل عليه ؟؟؟؟؟؟؟؟؟

وعليكم السلام أخي الكريم انس ...... حياك الله في المنتدى لو ارفقت مثال لما تريد لكان للاعضاء اكثر قدرة في مساعدتك ....

استخدم نفس كود االاستاذ @ناقل واعمل استعلام للجدول لديك ثم ضيف هذه العبارة الى الاستعلام مع تغيير ما يلزم من مسميات Expr1: CalcAge([from_date];[to_date])

مشاركة مع الاستاذ أزهر تفضل .... Office Access2.mdb

بارك الله فيك استاذ . @kanory برنامج جميل مشكور على البرنامج حتابع بصمت الى نهاية البرنامج منتظر البرنامج للتجربة استاذ. @Mohameddd200300

ممكن مثال مبسط مرفق للمتوفر لديك حتى نجرب عليه

جرب البحث في المنتدى هناك امثلة لما طلبت

أخي ازهر هذه الطريقة تحمل القاعدة وتصبح بعد فترة مترهلة ...... الأفضل حفظ الصور في مجلد خاص برقم الطالب .... مجرد رأي

ما شاء الله تبارك الله تستاهل اخي اللقب ... والى الامام ...

مبدأيا يمكن عمل فكرتك باحدى طريقتين : 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

جزاك الله خير ..... شكرا لك

فكرة ممتازة أخي ابا ابراهيم ::::: تشكر

حياك الله اخي الكريم ...... بالتوفيق

حياك الله .... بالتوفيق

جرب الملف --------->> Ba_55.accdb

مصدر مربع النص ضع هذا الكود .... =DLookUp("[SumمنTotalmany]";"q1";"[Deprt]=" & """علوم الحياة""")

نعم صحيح والاستدعاء عن طريق زر ممكن

بعم يمكن ذلك استخدم هذا الكود Private Const TIMEOUT = 99 Public Sub Restart() Dim scriptpath As String scriptpath = Application.CurrentProject.FullName & ".dbrestart.bat" If Dir(scriptpath, vbNormal) <> "" Then If DateAdd("s", TIMEOUT * 1, FileDateTime(scriptpath)) < Date Then Kill scriptpath Else Application.Quit acQuitSaveAll Exit Sub End If End If Dim s As String s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf s = s & "SET /a counter=0" & vbCrLf s = s & ":CHECKLOCKFILE" & vbCrLf s = s & "ping 0.0.0.255 -n 1 -w 100 > nul" & vbCrLf s = s & "SET /a counter+=1" & vbCrLf s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf s = s & "IF EXIST ""%~f1.%3"" GOTO CHECKLOCKFILE" & vbCrLf s = s & "start "" "" ""%~f1.%2""" & vbCrLf s = s & ":CLEANUP" & vbCrLf s = s & "del %0" Dim intFile As Integer intFile = FreeFile() Open scriptpath For Output As #intFile Print #intFile, s Close #intFile Dim dbname As String, ext As String, lockext As String Dim idx As Integer For idx = Len(CurrentProject.FullName) To 1 Step -1 If Mid(CurrentProject.FullName, idx, 1) = "." Then Exit For Next idx dbname = Left(CurrentProject.FullName, idx - 1) ext = Mid(CurrentProject.FullName, idx + 1) If Left(ext, 2) = "ac" Then lockext = "laccdb" Else lockext = "ldb" End If s = """" & scriptpath & """ """ & dbname & """ " & ext & " " & lockext Shell s, vbHide Application.Quit acQuitSaveAll End Sub ثم استدعيه بهذا الكود Private Sub btRestart_Click() Utilities.Restart End Sub