Ibrahim IQ

ZZZ.rar تقضل

10 ساعات مضت, ابو عارف said:

نعم ممكن ان شاء الله

تفضل 

Random.accdb

 

شكرا استاذى على الرد السريع الله‌ يحفظك

شكرا استاذ @ابو عارف

هذا المطلوب

اذا كان ممكن عندي سؤال اخر:

هل ممكن وقف تحديث عند فتح فورم بمعنى اخر تحديث فقط بزر؟

السادة الاعضاء السلام عليكم

هل ممكن 

وقف التحديث التلقائي فنكشن (Rnd)

و تحديث  فنكشن (Rnd) بواسطة زر

مع الشكر والتقدير

Random.accdb

🌷🌷

السادة الاعضاء والمشرفين والخبراء / السلام عليكم

ممكن المساعدة في توزيع المدرسيين في قاعات الامتحاني

ولكن بعدة الشروط

وضع كل ستة مدرسين في قاعة رقم 1، ثم ستة معلمين آخرين في القاعة رقم 2. يجب اختيار هؤلاء المعلمين الستة في ثلاث مدارس مختلفة ولكن نصفهم من الذكور وآخرون الإناث وكلهم في قاعات مدينتهم

Hall.mdb

شكرا اخى هذا المطلوب

ده‌ستى ته‌ ساخبى برا خودا ته‌ بو مه‌ بهيليت

السلام عليكم

هل ممكن رقم صفحات التقارير يبدأ يدويا

مثلا عند ادخال اي رقم في مربع النص (txtNumber) في Form1 سيبدأ الارقام الصفحات تصاعديا...

مع الشكر والتقدير

Page Number.accdb

السلام عليكم و رمضان كريم

هدية للاعضاء والمنتدى الحبيب

وكيفية تغير التسمية زر من جدول ... مع تحياتى

Change caption.accdb

re_item.accdb

تفضل

اخي الكريم

تفضل

rebaz.rar

8 دقائق مضت, Shivan Rekany said:

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

Private Sub Command29_Click()
    With Application.FileDialog(4)
            .Title = "Uploading picture : Uploading Picture"
            .AllowMultiSelect = True
            .InitialFileName = ""
        If .Show = -1 Then
                For Each varFile In .SelectedItems
                    Dim i As Integer
                    Dim StMyPathPic As String
                        DoCmd.GoToRecord , , acFirst
                            For i = 0 To Me.Form.Count - 1
                                StMyPathPic = Dir(varFile & "\" & Me.ID & ".*")
                                    If StMyPathPic = "" Then
                                        Me.swra = ""
                                    Else
                                        Me.swra = varFile & "\" & StMyPathPic
                                    End If
                                DoCmd.GoToRecord , , acNext
                        Next i
                Next
            Else
                MsgBox "لم يتم اختيار اي مجلد"
        End If
    End With
End Sub

 

Uploading Picture1.zip

العمل رائع رائع شكرا جزيلا لك >>> و هذا المطلوب >>>> الله يحميك

43 دقائق مضت, Shivan Rekany said:

استاذن من استاذ جعفر

اليك هذه الاكواد
هذا للاضافة

Private Sub Command29_Click()
    Dim i As Integer
    Dim StMyPathPic As String
        DoCmd.GoToRecord , , acFirst
        For i = 0 To Me.Form.Count - 1
           StMyPathPic = Dir(CurrentProject.Path & "\" & "Image" & "\" & Me.ID & ".*")
                If StMyPathPic = "" Then
                        Me.swra = ""
                    Else
                        Me.swra = CurrentProject.Path & "\" & "Image" & "\" & StMyPathPic
                End If
            DoCmd.GoToRecord , , acNext
        Next i
End Sub

وهذا للحذف

Private Sub Command30_Click()
    Dim StSql As String
        StSql = "UPDATE Table1 SET Table1.swra = null;"
            DoCmd.SetWarnings False
                DoCmd.RunSQL (StSql)
            DoCmd.SetWarnings True
        Me.Form.Refresh
End Sub

Uploading Picture.zip

شكرا اخي شفان و هذا المطلوب ..... زۆر زۆر سوپاس برا

اذا ممكن عندي سؤال اخر على هذا الموضوع :-

هل ممكن تغير مسار و اسم فولدر الصور عن طريق المستخدمين ؟ بمعنى اخر اسم فولدر الصور و مسارها لست و محدديين في مكان واحد . او القاعدة البيانات في ديسك D و فولدر الصور في ديسك E ؟

مثلا عن طريق Text box يدويا يحدد مكان و اسم فولدر الصور ؟

شكرا ... تحياتى

1 ساعه مضت, jjafferr said:

وعليكم السلام

 

جرب هذا التعديل في كودك ، واللي بيعطيك اسماء جميع الملفات

Private Sub Command29_Click()
    
With Application.FileDialog(3)
.Title = "Uploading picture : Uploading Picture"
.Filters.Clear
.Filters.Add "Image type", "*.jpg"
.Filters.Add "All types", "*.*"
.AllowMultiSelect = True
.InitialFileName = ""
If .Show = -1 Then
'Me.swra = .SelectedItems(1)

         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
            'Me.FileList.AddItem varFile
            MsgBox varFile
         Next

    
End If
End With
End Sub

 

جعفر

شكرا استاذ جعفر على الرد السريع

انا اسف اعتقد سؤالي مش واضح .......

كل الصور في فولدر واحد واسماء الصور حسب اي دي الطالب

المطلوب : وضع جميع الصورة بكليك واحد تلقائيا أو فقط تكتب مسار فولدر الصورة تلقائيا وضع كل الصورة

مثلا : تكتب ديسك D و فولدر Swra تلقائيا يضاف صورة رقم 1 الى الطالب اي دي رقم 1 و صورة رقم 200 الى الطالب اي دي رقم 200

وكل هذه العملية بكليك واحد مش 200 مرة .....

تحياتي

السلام عليكم ورحمة الله وبركاته

انا بحاجة الى اختيار كل الصور حسب ID الطالب ب كليك واحد

عند كليك على زر اختيار الصور سيضاف كل الصور الى القاعدة ... مثلا صور رقم واحد سيضاف الى الطالب اي دي 1 .... بدلا واحد بواحد

ولكم جزيل الشكر .... تحياتي

Uploading Picture.rar

11 دقائق مضت, sandanet said:

جرب استخدام برنامج accessfix لتصليح قواعد البيانات التالفة

شكرا استاذ Sandanet 

هل لديك هذا البرنامج ؟

مع التقدير

5 دقائق مضت, jjafferr said:

وعليكم السلام

 

يجب وضع جهاز ups على كل حاسبة ، وعلى جهاز الـ Switch الذي يربط شبكة الكمبيوترات ، وطبعا على السيرفر ،

وإلا ، فالنتائج كارثية ، ومن النتائج ما يمكن تصليحه ، ومنها ما لا يمكن تصليحة ولا حتى معرفة حجم الضرر الذي تسبب به انقطاع الكهرباء فجأة عن الكمبيوتر.

 

جعفر

شكرا استاذ جعفر على هذه النصيحة .... و هذا الحل المثالي

السلام عليكم

اعضاء الكرام لدي قاعدة البيانات وسيغة accde المشكلة هو :

عند قطع كهرباء اثناء العمل على القاعدة و اغلاق كمبيوتر (shutting down)

سيحذف كل الكائنات القاعدة مثل جداول و استعلام و اعادة التسمية الديسك مسار القاعدة مثلا Local disc D سيغير الى ddd D

ما هو السبب و ما هو الحل

مع الشكر والتقدير

3 ساعات مضت, Shivan Rekany said:

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

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

تقبل تحياتي

شكرا استاذ شفان كما تفضلت بعد كليك اليمين سيعطي هذا الرسالة

10 ساعات مضت, mourad2012 said:

ما هو اصدار نسخة الاوفيس التي تعمل عليها؟؟؟؟

شكرا استاذ مراد على الاجابة نسخة ٢٠١٠ و وينور ١٠

السلام عليكم الاصدقاء الاعزاء

لدي مشكلة في ( عند اختيار الصورة في القاعدة البيانان القديمة والجديدة يعطي هذا الرسالة )

the operation on the ole object failed

The OLE server may not be registered

To register the OLE server,install it

ما هو المشكله‌ ، والحل ؟

مع الشكر والتقدير

OLE.rar

في 9/19/2017 at 20:59, Rebaz Bahram said:

السلام عليكم الاصدقاء

لدي قاعدة البيانات و علاقة (One to Many) كل الطالب لده عدة السنوات الدراسية المطلوب كل الطالب درجاته كل السنوات دراسيه يظهر في ورقة واحدة ، بدلا من رابورت رقم 2 يظهر كرابورت رقم 1 ، يعنى رابورت رقم1 المطلوب . ولكن الطالب ليس لده السنوات الدراسية المحددة ويعنى حتى التخرج يظهر كل درجاته في ورقة واحدة عموديا ... مع الشكر والتقدير

Database1.rar

السلام عليكم الاصدقاء

لدي قاعدة البيانات و علاقة (One to Many) كل الطالب لده عدة السنوات الدراسية المطلوب كل الطالب درجاته كل السنوات دراسيه يظهر في ورقة واحدة ، بدلا من رابورت رقم 2 يظهر كرابورت رقم 1 ، يعنى رابورت رقم1 المطلوب . ولكن الطالب ليس لده السنوات الدراسية المحددة ويعنى حتى التخرج يظهر كل درجاته في ورقة واحدة عموديا ... مع الشكر والتقدير

Database1.rar

55 دقائق مضت, Shivan Rekany said:

اتفضل

افتح التقریر فی وضع تصميم
واعمل كما في الصورة

Download Image

 

اليك المرفق بعد تعديل

Database1 (1).rar

شكرا استاذ شفان تم حل المشكلة

51 دقائق مضت, jjafferr said:

وهنا شرح كيف تستطيع ان تعمل التصفية بنفسك

 

جعفر

شكرا استاذ جعفر تم حل المشكلة