Jump to content
أوفيسنا

Barna

Expert
  • Content Count

    426
  • Joined

  • Last visited

  • Days Won

    6

Barna last won the day on June 11

Barna had the most liked content!

Community Reputation

514 Excellent

6 Followers

About Barna

  • Rank
    محمد البرناوي

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    معلم

Recent Profile Visitors

1,196 profile views
  1. بارك الله فيك استاذ . @kanory برنامج جميل مشكور على البرنامج حتابع بصمت الى نهاية البرنامج منتظر البرنامج للتجربة استاذ. @Mohameddd200300
  2. ممكن مثال مبسط مرفق للمتوفر لديك حتى نجرب عليه
  3. جرب البحث في المنتدى هناك امثلة لما طلبت
  4. أخي ازهر هذه الطريقة تحمل القاعدة وتصبح بعد فترة مترهلة ...... الأفضل حفظ الصور في مجلد خاص برقم الطالب .... مجرد رأي
  5. ما شاء الله تبارك الله تستاهل اخي اللقب ... والى الامام ...
  6. مبدأيا يمكن عمل فكرتك باحدى طريقتين : 1- نجعل الاكسس قبل الالحاق يتأكد سجل سجل ( هل هو موجود او لا ) واعتقد هذه الطريقة تأخذ وقت وخاصة اذا كانت السجلات كثيرة 2- نجعل الاكسس يحصر السجلات الموجود في الجدولين وفي حال وجود مكرر يظهرها لنا في نموذج وسؤالنا هل نريد الحاق هذه الاسماء المكررة ام لا اذا اذا كان ليس هناك تكرار في السجلات يقوم بالحاق السجلات دون اظهار النموذج وقد تكون هناك طرق اخرى .....
  7. هل جربت البرنامج .... عند الضغط على الزر تفتح لك صفحة البراوز لتحديد مكان ملف الاكسس منسوخ له الجدول وعند الاختيار يتم نسج الجدول مباشرة .... جرب المرفق ..... البرنامج.rar
  8. استخدم هذا الكود 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, ad
  9. فكرة ممتازة أخي ابا ابراهيم ::::: تشكر
  10. حياك الله .... بالتوفيق
  11. جرب الملف --------->> Ba_55.accdb
  12. مصدر مربع النص ضع هذا الكود .... =DLookUp("[SumمنTotalmany]";"q1";"[Deprt]=" & """علوم الحياة""")
  13. نعم صحيح والاستدعاء عن طريق زر ممكن
×
×
  • Create New...