A L M A I S T R O

يا اخوة هل الرد صعب ؟ ام لا يوجد رد؟ ارجوكم اريد هذا الكود على وجه الاهمية لاستخدمة بمشروعى

عايز كود برمجى مكتوب بلغة VBA يقوم بتحويل ملف الاكسيل لملف من نوع PDF بحثت كثير ولم اجد اتمنى ان اجد الكود لدى احد الاخوة الكرام

هذا البرنامج يعرفك رقم ID الخاص بأيقونات برنامج اكسيل وهو مفيد للمبرمجين الذين يصنعون برامج بها قوائم على العموم عليكم الاطلاع على البرنامج ID_Icon.rar

up

إليك المثال بالمرفق انا اقوم بإستخدام هذا الكود لتحويل ملف اكسيل لأكسيس (من داخل اكسيل نفسه) ملحوظة لو لديك مثال لذلك اكون شاكر لوترفقة وجزاك الله خير Book1.rar

وقمت بإضافة كل المكتبات اللازمة Sub NewAccessDatabase() ' ' Dim AppAccess As Access.Application Dim Dbs As Object, tdf As Object, fld As Variant Dim strDB As String Const DB_Text As Long = 10 Const FldLen As Integer = 40 strDB = "C:\Newdb.mdb" Set AppAccess = CreateObject("Access.Application.11") AppAccess.NewCurrentDatabase strDB Set Dbs = AppAccess.CurrentDb Set tdf = Dbs.CreateTableDef("Contacts") Set fld = tdf.CreateField("CompanyName", DB_Text, FldLen) tdf.Fields.Append fld Dbs.TableDefs.Append tdf Set AppAccess = Nothing End Sub ' Sub DisplayForm() 'On Error Resume Next Dim AppAccess As Access.Application Dim strDB As String Const strConPathToSamples = "C:\" strDB = strConPathToSamples & "Newdb.mdb" Set AppAccess = CreateObject("Access.Application") المشكلة تكمن هنا فى هذا السطر AppAccess.OpenCurrentDatabase strDB AppAccess.DoCmd.OpenTable "Contacts" End Sub أرجو ان اجد حل للمشكلة

الاخ الفاضل ابو تامر لا استطيع ان اعبر لك عن شكرى بارك الله فيك وجعل علمك ينتفع به الناس

الاخ الفاضل ابو تامر جزاك الله خير على ماقدمت وما تقدم انا فى اشد الحاجة لبرنامجك (التخلص من علامات الخطأ) كنت اريد كلمة المرور على البرنامج او ان ترسلى نسخة من غير كلمة السر nasrcity@nileprojects.com وشكرا لك

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

بارك الله فيك اخى الكريم هادى وجعل هذا بميزان حسناتك لقد قمت بعمل تعديل طفيف على الكود لكى يخدم مشروعى بعد إذنك تحياتى,,,

اخى الكريم هادى سالم انا اخذت الكود الموجود بملفك بالمشاركة التى اشرت إليها انت وقمت بتطبيقة بالمثال بالمرفق أعلاة ولكن هناك مشكلة بالكود بتاعك انة كلما كتبت شيء بملف Main وضغط الزر ترحيل البيانات يقوم بوضع المكتوب بملف Main مكان الموجود بالملف File1 انا اريد ان تتم عملية الترحيل للملف File1 اسفل الاسطر القديمة ارجو ان يكون سؤالى واضح ارجو النظر للمرفق بتاعى وجرب ان تضغط على زر الترحيل اكثر من مرة ستجد ان السطر المرحل للملف الاخر هو هو لم يتغير ولم يرحل للسطر الذى يلية

اخى الكريم هادى سالم انا اخذت الكود الموجود بملفك بالمرفق اعلا وقمت بتطبيقة بالمثال على الرابط التالى: http://www.officena.net/ib/index.php?showtopic=19845 ولكن هناك مشكلة بالكود بتاعك انة كلما كتبت شيء بملف Main وضغط الزر ترحيل البيانات يقوم بوضع المكتوب بملف Main مكان الموجود بالملف File1 انا اريد ان تتم عملية الترحيل للملف File1 اسفل الاسطر القديمة ارجو ان يكون سؤالى واضح

الهذة الدرجة السؤال صعب ؟

ارجوكم اخوانى اريد حل لمشكلتى الاخ خبور الاخ هادى كل اعضاء ومشرفين المنتدى اريد حل لمشكلتى بالمرفق ارجوكم :')

يوجد بالملف المرفق مشكلة تواجهنى الا وهى برجاء النظر للمرفق فهو خير دليل على سؤالى _____.rar

اين انت اخ هادى ؟

الاخ الفاضل هادى لى سؤال صغير برجاء رؤية المرفق Add.rar

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

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

الا يوجد رد على مواضيعى

ارجو توضيح اكثر لم افهم شيئا

اخى الكريم ابو اسامه اشكرك على المرفق ولكن اريد تطبيقه على المثال الموجود بالمرفق ارجو الا اكون قد اثقلت عليك Book1.rar

اخى الكريم شكرا على مساعدتك ولكن الموضوع لا يستاهل ان اضع ملف كل ماريدة انه عند فتح ملف اكسيل تظهر رسالة تقول للمستخدم انه يوجد تحديث للبيانات على الانترنت وعند موافقة المستخدم على تحديث الملف يتم إستيراد البيانات الجديدة من على الانترنت وتحديث الملف ولكن بشرط التاكد من ان النسخة الموجودة على الانترنت احدث من الموجودة لدى المستخدم وفى حالة ان النسخة الموجودة لدى المستخدم نفس النسخة الموجودة على الانترنت (على السيرفر) تظهر رسالة للمستخدم تقول له ذلك اعتقد ان سؤالى هكذا واضح جدا وشكرا لكم جميعا وكل عام وانتم بخير

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

up