بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
Barna
الخبراء-
Posts
982 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
24
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Barna
-
لانك لم تضف الوحدة النمطيه .... انشأ وحدة نمطية واحفظها ثم اانشأ الاستعلام بارك الله فيك او ارفق لنا مثال مصغر للتعديل عليه ؟؟؟؟؟؟؟؟؟
-
جعل عنصر التحكم ( مربع تحرير و سرد ) اسم المادة عنصر بحث
Barna replied to انس19812020's topic in قسم الأكسيس Access
وعليكم السلام أخي الكريم انس ...... حياك الله في المنتدى لو ارفقت مثال لما تريد لكان للاعضاء اكثر قدرة في مساعدتك .... -
استخدم نفس كود االاستاذ @ناقل واعمل استعلام للجدول لديك ثم ضيف هذه العبارة الى الاستعلام مع تغيير ما يلزم من مسميات Expr1: CalcAge([from_date];[to_date])
-
مشاركة مع الاستاذ أزهر تفضل .... Office Access2.mdb
-
بارك الله فيك استاذ . @kanory برنامج جميل مشكور على البرنامج حتابع بصمت الى نهاية البرنامج منتظر البرنامج للتجربة استاذ. @Mohameddd200300
-
مساعدة في قاعدة بيانات (كل سجل يحتوي على اكثر من شخص)
Barna replied to Mohammad husham's topic in قسم الأكسيس Access
ممكن مثال مبسط مرفق للمتوفر لديك حتى نجرب عليه -
جرب البحث في المنتدى هناك امثلة لما طلبت
-
أخي ازهر هذه الطريقة تحمل القاعدة وتصبح بعد فترة مترهلة ...... الأفضل حفظ الصور في مجلد خاص برقم الطالب .... مجرد رأي
-
ما شاء الله تبارك الله تستاهل اخي اللقب ... والى الامام ...
-
ترحيل خارج قاعدة البيانات مع امكانية تغير مكان الملف
Barna replied to ابوصلاح's topic in قسم الأكسيس Access
مبدأيا يمكن عمل فكرتك باحدى طريقتين : 1- نجعل الاكسس قبل الالحاق يتأكد سجل سجل ( هل هو موجود او لا ) واعتقد هذه الطريقة تأخذ وقت وخاصة اذا كانت السجلات كثيرة 2- نجعل الاكسس يحصر السجلات الموجود في الجدولين وفي حال وجود مكرر يظهرها لنا في نموذج وسؤالنا هل نريد الحاق هذه الاسماء المكررة ام لا اذا اذا كان ليس هناك تكرار في السجلات يقوم بالحاق السجلات دون اظهار النموذج وقد تكون هناك طرق اخرى ..... -
ترحيل خارج قاعدة البيانات مع امكانية تغير مكان الملف
Barna replied to ابوصلاح's topic in قسم الأكسيس Access
هل جربت البرنامج .... عند الضغط على الزر تفتح لك صفحة البراوز لتحديد مكان ملف الاكسس منسوخ له الجدول وعند الاختيار يتم نسج الجدول مباشرة .... جرب المرفق ..... البرنامج.rar -
ترحيل خارج قاعدة البيانات مع امكانية تغير مكان الملف
Barna replied to ابوصلاح's topic in قسم الأكسيس Access
استخدم هذا الكود 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
-
نعم صحيح والاستدعاء عن طريق زر ممكن
-
بعم يمكن ذلك استخدم هذا الكود 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
-
ممكن تزودنا بمثال مصغر للعمل عليه
-
جرب هذا الكود وعدله كما تشاء If (Time() >= #5:39:00 AM#) Then MsgBox "System Maintenance On-going. Please check back after 3 minutes.", vbOKOnly DoCmd.Quit acQuitSaveAll End If ملاحظة : يمكن للمستخدم ان يتلاعب في وقت الجهاز
-
-
حتى لا يحدث لبس ---------------> تم الاستغناء عن 3 جداول : 1- جدول المواد 2- جدول الشعب 3- جدول الصف والاكتفاء في جلب هذه المعلومات من الجدول الاساسي فقط ........ تم التعديل على هذا الاساس ............ ---------------->>>>>> انظر المرفق برنامج تصدير الطلاب للسجل FFالالكتروني.mdb
-
انظر المرفق واعلمنا بالنتيجة ---------->>>>>> يقوم البرنامج بنسخ البيانات المطلوبة في ملف باسم الشعبة ويحفظ بجوار البرنامج مباشرة دون الحاجة للحفظ وفي نفس الوقت يحافظ على الملف الاساس للاكسل Ba1_Deffi.rar