استفسارت للخبراء الاكسس عن بعض الاخطاء في الاكسس

ما في معلومات عن الموضوع 

zahrah كتب:

 

اخي الفاضل

 

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

 

دعني اوضح لك بعض الأمور بخصوص المرفقات في الـ Sharepoint  

 

1. الحجم الإفتراضي للمرفقات في كل سجل هو 2 ميقابايت  فقط  ولا يمكنك زيادة ذلك إلا عن طريق الدخول الى خصائص المرفق

 

في نفس صفحة  Sharepoint  وتقوم بتعديل الحجم من هناك اذا كان مسموح لك بذلك .

 

2. عندما تكون المرفقات على الجهاز الخاص بك  محلي  Local فلا يوجد مشكله فإنك تستطيع الإضافة والتعديل والحذف اما على الـ  Sharepoint  

 

فإنت تحتاج الى اضافة اكواد اضافية لعمل ذلك ويكون الكود بتقنية  ADO وكمثال على ذلك هذا الكود الذي يقوم بتحديث المرفقات

Private Sub Command0_Click()
    Dim rstFrom As ADODB.Recordset
    Dim rstTo As ADODB.Recordset
    Dim rstMVF As ADODB.Recordset
    Dim rstMVT As ADODB.Recordset
 
    Set rstFrom = New ADODB.Recordset
' table1 is where my attachments are currently stored
    rstFrom.Open "select * from table1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    Set rstTo = New ADODB.Recordset
' no_spend is the table where I am putting them.
    rstTo.Open "No_Spend", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    Do While rstFrom.EOF = False
        rstTo.AddNew
'these next three lines are other data fields, not part of the attachments.
        rstTo!Month = rstFrom![mth]
        rstTo!Year = rstFrom![yr]
        rstTo![Employee ID] = rstFrom![Employeeid]
'you do need something in the row... you cannot attach to a empty row.  
        rstTo.Update
        Set rstMVF = rstFrom!Attach.Value
        Set rstMVT = rstTo!Attachments.Value
        
        Do While rstMVF.EOF = False
            Dim url As String
 'both the filename and the URL need to be proper URL's           
            url = "https://<put your URL here>/Lists/No_Spend/Attachments/" & rstTo.Fields(0) & "/" & rstMVF!Filename
                       
            rstMVT.AddNew
            rstMVT!FileData = rstMVF!FileData
            rstMVT!FileFlags = rstMVF!FileFlags
            rstMVT!Filename = url ' rstMVF!Filename
            rstMVT!FileTimeStamp = rstMVF!FileTimeStamp
            rstMVT!FileType = rstMVF!FileType
            rstMVT!FileURL = url ' rstMVF!FileURL
            rstMVT.Update
            rstMVF.MoveNext
        Loop
        
        Set rstMVF = Nothing
        Set rstMVT = Nothing
        
        rstTo.Update
        rstFrom.MoveNext
        
    Loop
        
    rstFrom.Close
    rstTo.Close
End Sub

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

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

zahrah كتب:

 

اخي الفاضل

 

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

 

دعني اوضح لك بعض الأمور بخصوص المرفقات في الـ Sharepoint  

 

1. الحجم الإفتراضي للمرفقات في كل سجل هو 2 ميقابايت  فقط  ولا يمكنك زيادة ذلك إلا عن طريق الدخول الى خصائص المرفق

 

في نفس صفحة  Sharepoint  وتقوم بتعديل الحجم من هناك اذا كان مسموح لك بذلك .

 

2. عندما تكون المرفقات على الجهاز الخاص بك  محلي  Local فلا يوجد مشكله فإنك تستطيع الإضافة والتعديل والحذف اما على الـ  Sharepoint  

 

فإنت تحتاج الى اضافة اكواد اضافية لعمل ذلك ويكون الكود بتقنية  ADO وكمثال على ذلك هذا الكود الذي يقوم بتحديث المرفقات

Private Sub Command0_Click()
    Dim rstFrom As ADODB.Recordset
    Dim rstTo As ADODB.Recordset
    Dim rstMVF As ADODB.Recordset
    Dim rstMVT As ADODB.Recordset
 
    Set rstFrom = New ADODB.Recordset
' table1 is where my attachments are currently stored
    rstFrom.Open "select * from table1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    Set rstTo = New ADODB.Recordset
' no_spend is the table where I am putting them.
    rstTo.Open "No_Spend", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    Do While rstFrom.EOF = False
        rstTo.AddNew
'these next three lines are other data fields, not part of the attachments.
        rstTo!Month = rstFrom![mth]
        rstTo!Year = rstFrom![yr]
        rstTo![Employee ID] = rstFrom![Employeeid]
'you do need something in the row... you cannot attach to a empty row.  
        rstTo.Update
        Set rstMVF = rstFrom!Attach.Value
        Set rstMVT = rstTo!Attachments.Value
        
        Do While rstMVF.EOF = False
            Dim url As String
 'both the filename and the URL need to be proper URL's           
            url = "https://<put your URL here>/Lists/No_Spend/Attachments/" & rstTo.Fields(0) & "/" & rstMVF!Filename
                       
            rstMVT.AddNew
            rstMVT!FileData = rstMVF!FileData
            rstMVT!FileFlags = rstMVF!FileFlags
            rstMVT!Filename = url ' rstMVF!Filename
            rstMVT!FileTimeStamp = rstMVF!FileTimeStamp
            rstMVT!FileType = rstMVF!FileType
            rstMVT!FileURL = url ' rstMVF!FileURL
            rstMVT.Update
            rstMVF.MoveNext
        Loop
        
        Set rstMVF = Nothing
        Set rstMVT = Nothing
        
        rstTo.Update
        rstFrom.MoveNext
        
    Loop
        
    rstFrom.Close
    rstTo.Close
End Sub

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

zahrah كتب:

 

اخي الفاضل

 

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

 

دعني اوضح لك بعض الأمور بخصوص المرفقات في الـ Sharepoint  

 

1. الحجم الإفتراضي للمرفقات في كل سجل هو 2 ميقابايت  فقط  ولا يمكنك زيادة ذلك إلا عن طريق الدخول الى خصائص المرفق

 

في نفس صفحة  Sharepoint  وتقوم بتعديل الحجم من هناك اذا كان مسموح لك بذلك .

 

2. عندما تكون المرفقات على الجهاز الخاص بك  محلي  Local فلا يوجد مشكله فإنك تستطيع الإضافة والتعديل والحذف اما على الـ  Sharepoint  

 

فإنت تحتاج الى اضافة اكواد اضافية لعمل ذلك ويكون الكود بتقنية  ADO وكمثال على ذلك هذا الكود الذي يقوم بتحديث المرفقات

Private Sub Command0_Click()
    Dim rstFrom As ADODB.Recordset
    Dim rstTo As ADODB.Recordset
    Dim rstMVF As ADODB.Recordset
    Dim rstMVT As ADODB.Recordset
 
    Set rstFrom = New ADODB.Recordset
' table1 is where my attachments are currently stored
    rstFrom.Open "select * from table1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    Set rstTo = New ADODB.Recordset
' no_spend is the table where I am putting them.
    rstTo.Open "No_Spend", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
 
    Do While rstFrom.EOF = False
        rstTo.AddNew
'these next three lines are other data fields, not part of the attachments.
        rstTo!Month = rstFrom![mth]
        rstTo!Year = rstFrom![yr]
        rstTo![Employee ID] = rstFrom![Employeeid]
'you do need something in the row... you cannot attach to a empty row.  
        rstTo.Update
        Set rstMVF = rstFrom!Attach.Value
        Set rstMVT = rstTo!Attachments.Value
        
        Do While rstMVF.EOF = False
            Dim url As String
 'both the filename and the URL need to be proper URL's           
            url = "https://<put your URL here>/Lists/No_Spend/Attachments/" & rstTo.Fields(0) & "/" & rstMVF!Filename
                       
            rstMVT.AddNew
            rstMVT!FileData = rstMVF!FileData
            rstMVT!FileFlags = rstMVF!FileFlags
            rstMVT!Filename = url ' rstMVF!Filename
            rstMVT!FileTimeStamp = rstMVF!FileTimeStamp
            rstMVT!FileType = rstMVF!FileType
            rstMVT!FileURL = url ' rstMVF!FileURL
            rstMVT.Update
            rstMVF.MoveNext
        Loop
        
        Set rstMVF = Nothing
        Set rstMVT = Nothing
        
        rstTo.Update
        rstFrom.MoveNext
        
    Loop
        
    rstFrom.Close
    rstTo.Close
End Sub

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

azim stot كتب:

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

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

اخي الفاضل

اعتذر منك اشد الإعتذار  فأنا لا استقبل اي برامج لا على الخاص ولا على البريد الإلكتروني

دورنا هنا في المنتدى هو مساعدة الأعضاء فقط بأعطاؤهم رؤوس الحلول وليس اصلاح برامجهم 

لذا اعتذر منك على تلبية طلبك

بالتوفيق

تم نقل السؤال الى الصفحة الرئيسية للمنتدى،،

اعتذر عن الخطأ الحاصل،،

Majid12 كتب:

السلام عليكم

رمضان كريم وكل عام وانتم بخير

 

الاخت الكريمة زهرة

 

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

وقد وضعت الكود وظهر النتيجة المطلوبة  ،،، ولكن عند عمل فرز للاسم ( دبل كليك على الاسم ) كانت النتائج غير صحيحة

 

هل بالامكان اعلامي ماهو الخطأ الذي وقعت به ؟؟

 

مرفق ملف العمل

 

مع التقدير

 

كشف حسابات -2011-2012 -.rar

اخي الفاضل : ماجد

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

وكل عام وانتم بخير

هل من الممكن ان اسأل سؤال بارك الله بك

لماذا وضعت هذه السؤال الخاص بك في مشاركة لا تمت لسؤالك بأي صلة

فمن قوانين المنتدى والمشاركات عدم وضع اي سؤال لا يخص السؤال السابق وإلا يتم حذف السؤال المخالف

لذا بارك الله بك ضع سؤالك الخاص في مشاركة خاصة لك انت واشرح فيها ما هي المشكلة وما هو الخطأ حتى تحصل على الإجابه 

بالتوفيق

zahrah كتب:

اخي الفاضل

 

اعتذر منك اشد الإعتذار  فأنا لا استقبل اي برامج لا على الخاص ولا على البريد الإلكتروني

 

دورنا هنا في المنتدى هو مساعدة الأعضاء فقط بأعطاؤهم رؤوس الحلول وليس اصلاح برامجهم 

 

لذا اعتذر منك على تلبية طلبك

 

بالتوفيق

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

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

ata12.rar

اخي الفاضل

بعد استعراض الجداول المرتبطة بالموقع في برنامجك اتضح ان الصور  بصيغة PNG وهذه الصور لا يقبلها الموقع بل يقبل فقط  صيغة  JPG 

وايضا يجب ان تكون صغيرة الأحجام  وليست كبيره  كأن تضع صوره  مقاسها  1200 * 1600  وتريد من الموقع ان يقوم بعرضها لك

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

الآن قم بحذف جميع الصور من الجداول التي في البرنامج ثم ادخل الموقع  وقم بفتح الجداول من هناك واضف الصور الخاصة بك وتكون

بأحجام صغيره ومقاسات صغيره لكل سجل من السجلات

بالتوفيق

zahrah كتب:

اخي الفاضل

 

بعد استعراض الجداول المرتبطة بالموقع في برنامجك اتضح ان الصور  بصيغة PNG وهذه الصور لا يقبلها الموقع بل يقبل فقط  صيغة  JPG 

 

وايضا يجب ان تكون صغيرة الأحجام  وليست كبيره  كأن تضع صوره  مقاسها  1200 * 1600  وتريد من الموقع ان يقوم بعرضها لك

 

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

 

الآن قم بحذف جميع الصور من الجداول التي في البرنامج ثم ادخل الموقع  وقم بفتح الجداول من هناك واضف الصور الخاصة بك وتكون

 

بأحجام صغيره ومقاسات صغيره لكل سجل من السجلات

 

 

بالتوفيق

السلام عليكم .. اتمنى ان تكوني اختي الدكتورة ام عهود بخير .. اعاد الله رمضان عليكم بالبركة والخير 

اختي ام عهود انا عندما رفعت ملفات الصور على السرفر فقط لتجربة ..هذه الملفات لا تعني لي شيء فقط لتجربة الرفع فقط .. البرنامج با الداتا الحقيقة سوف يرفع عليها ملفات مرفقة باحجام تزيد عن  25 مجا بايت وليست امتدادت صور .. مشكلتي كما ذكرتي هي سماحية السرفر بحجم المرفق كيف اغيرها لكي احصل على رفع ملفات لاحجام كبيرة تزيد عن 2 ميجا بايت  ..؟؟؟؟؟؟؟ 

zahrah كتب:

اخي الفاضل : ماجد

 

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

 

وكل عام وانتم بخير

 

 

هل من الممكن ان اسأل سؤال بارك الله بك

 

لماذا وضعت هذه السؤال الخاص بك في مشاركة لا تمت لسؤالك بأي صلة

 

فمن قوانين المنتدى والمشاركات عدم وضع اي سؤال لا يخص السؤال السابق وإلا يتم حذف السؤال المخالف

 

لذا بارك الله بك ضع سؤالك الخاص في مشاركة خاصة لك انت واشرح فيها ما هي المشكلة وما هو الخطأ حتى تحصل على الإجابه 

 

 

بالتوفيق

الاخت الفاضلة زهرة

السلام عليكم

اعتذر عن ادراج سؤالي في محتوى موضوع اخر،،، وتم ادرج السؤال في مشاركة جديدة 

مع التقدير

zahrah كتب:

اخي الفاضل

 

بعد استعراض الجداول المرتبطة بالموقع في برنامجك اتضح ان الصور  بصيغة PNG وهذه الصور لا يقبلها الموقع بل يقبل فقط  صيغة  JPG 

 

وايضا يجب ان تكون صغيرة الأحجام  وليست كبيره  كأن تضع صوره  مقاسها  1200 * 1600  وتريد من الموقع ان يقوم بعرضها لك

 

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

 

الآن قم بحذف جميع الصور من الجداول التي في البرنامج ثم ادخل الموقع  وقم بفتح الجداول من هناك واضف الصور الخاصة بك وتكون

 

بأحجام صغيره ومقاسات صغيره لكل سجل من السجلات

 

 

بالتوفيق

السلام عليكم .. اتمنى ان تكوني اختي الدكتورة ام عهود بخير .. اعاد الله رمضان عليكم بالبركة والخير 

اختي ام عهود انا عندما رفعت ملفات الصور على السرفر فقط لتجربة ..هذه الملفات لا تعني لي شيء فقط لتجربة الرفع فقط .. البرنامج با الداتا الحقيقة سوف يرفع عليها ملفات مرفقة باحجام تزيد عن  25 مجا بايت وليست امتدادت صور .. مشكلتي كما ذكرتي هي سماحية السرفر بحجم المرفق كيف اغيرها لكي احصل على رفع ملفات لاحجام كبيرة تزيد عن 2 ميجا بايت  ..؟؟؟؟؟؟؟