رمهان

المرة هذي لن اقول تعجبني ردودك ! ولكن من الآن لعل ردودنا نحن التي تعجبك استاذ ابا عارف ! بل عرفنا ان ابا عارف هو الاستاذ كنعان ! واسمح لي ان الخص مفاتيح الحل : 1. فكرة سرد النماذج الفرعية وبنفس اللون للنموذج الرئيسي 2.استخدام العد الافتراضي في الاستعلام ! 3. تغيير خصائص مربع النص ليبدو زر امر ووضع خاصية زر الامر شفاف ووضعه فوق مربع النص تلك المفاتيح هي حل لمشكلة واجهتنا كثيرا ! واتحدى انه تم التطرق لهذا في جميع المنتديات العربية ! لا اخفيك استاذ ابا عارف انني قد شاركت بمفتاح رقم 3 في موقع الفريق العربي للبرمجة ! هذا ومازالت الفكرة تحتاج لللتطوير حيث يتوقف العدد 3 نماذج فرعية لتكفي 30 صنفا واذا زاد فتحتاج الى اضافة نموذج فرعي رابع وهذا لابد من تدخل المبرمج ! لدي فكرة من زمان وساحاول تنفيذها ولكن اتمنى ان تفتح الادارة موضوع ينقل له هذا المرفق وبعد اذن الاخ حسين الفاضل ويكون عنوانه نقاط بيع بالاكسس ويشارك فيه الاخوة جميعا ! كما انه لو اردنا ان تكون التصنيف ازرار امر وكذلك الاصناف ! تحياتي للجميع !

النسخة لدي عربي ولكن على ما اذكر : file>options>client setting>edit: next field هذا حسب الاصدار 2010 وما هو الاصدار لديك ؟ بالتوفيق

حياك الله اخي ابو جمانة للعلم الاكسس افتراضيا يقوم بنفس ماطلبت : عند الانتر ينقل للحقل التالي وهو الخلية حسب ما ذكرت ! وعليك فقط التاكد من الخيار : ملف > خيارات > اعدادات العميل > تحرير : انتقال بعد الادخال = الحقل التالي بالتوفيق

تمام ابا اعارف ! ونرجع للموضوع الاساسي وعنوانه ! اليس هذا استاذ عارف بيرجع اللغة الحالية للواجهات ؟ ! : Application.LanguageSettings.LanguageID(msoLanguageIDUI) مع وضع المرجع ل office object library تحياتي

نبهت بهذا سابقا ! لا ! عليك بحذف السجلات : docmd.runsql "delete * from table1" واذا الحقول متغيرة احذف الجدول : docmd.deleteobject actable,"table1" بالتوفيق

هذه الطريقة اخ علي بدأت من الاكسس 2002 ومافوق ! اذا كنت حتعمل مثلا على 2000 او 97 استخدم طريقة api وهي معروفة ومنتشرة http://access.mvps.org/access/api/api0001.htm طبعا كلك بركة ! انا ذكرت انه لابد من عمل مرجع للطريقة السابقة وهذا معروف لدى الكثير بل ان الاكسس 2010 يعطيك رسالة تنبيهية اثناء كتابة الكود بانه لابد من المرجع فهل تريد اضافته وعند اختيار موافق من الرسالة يضيف المرجع تلقائيا ! يمكن هذه الخطوة تجعلك تقوم بخطوة اضافة المرجع اليا ومن الكود وهذا يتطلب عمل اضافي ! هنا تم تحسين الكود لكي يعمل بدون الحاجة للمرجع وهو ما يسمى الربط المتاخر للكائنات : Set xlfile = Application.FileDialog(1) If xlfile.Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", xlfile.SelectedItems(1), True جرب ستجده يعمل وبدون وضع المرجع ! وطبعا لاتنسى من 2002 وما فوق ! بالتوفيق

مرحبا اخ وائل جربت البرنامج الاخير new ومش شايف اي مشكلة : انتبه هل تعلم ان هناك فرق عندما تحدد سجل مدخل سابقا ثم الضغط على الصنف وهناك عندما تختار سجلا جديدا فارغا ثم تختارالصنف !! وهنا طيب تريد ماذا ؟ لاتخرج الرسالة اذا حصل اختيار صنف جديد بعد اختيار الصنف الاول ؟

هل تم المراد اخ علي وتمت الاجابة ؟ ام لك ملاحظة على الكود ؟ تحياتي

اخي ابو عارف مسألة اكتشف لغة التطبيق اي القوائم هل هي بالعربي ام غير ذلك اتوقع ممكنه وباحتمال ثلاث طرق 1. دوال api 2. القراءة من الريجيستري 3 . دالة مستخدم اقرأ بها احد حروف القوائم الموجودة ومعرفة لغة الحرف ولكن قبل ذلك خلينا نتطفل شوية ونريد معرفة لماذا تريد معرفة واجهة اللغة ؟ خلينا نعرف الهدف ؟ يمكن نوصل له بطريقة اخرى ؟ مثلا ضغط واصلاح القاعدة الحالية ؟! مشكور على سعة صدرك ابا عارف

بالنسبة لزر التنقل : Me.NavigationButtons = False وطبعا للاظهار تكون القيمة true وبالنسبة لزري التكبير والتصغير وزر الاغلاق فما يحتاج اجابة .. سهلة جدا تحياتي

لم افهم المقصود هنا استاذ علي ! هذا كود للتصدير ! ام ماذا ؟

بالعكس اخي وائل انا لي تحفظ على الاكواد ! ولكن حاولت ان اعدل وبالحفاظ على السيناريو تبعك حيث انك لاتريد التغيير كثيرا على السيناريو الحالي ! وهذا ما يزيد الامر صعوبة ايجاد الاجابة المناسبة بدون التغير على الاكواد والتصميم ! الآن هل تمت الاجابة وحسب تعديل الاستاذ جعفر ؟ بالتوفيق

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

وهذه زيادة http://www.officena.net/ib/topic/62218-ايجاد-طريقة-لاستيراد-sheet-اكسل-الى-قاعدة-بيانات-اكسيس-من-خلال-فورم/

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

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

مشكور اخوي جعفر وكلك بركة ! وعذرا اخت نوال على التاخر !

تفضل مع ملاحظة وضع مرجع ل microsoft office object library وحسب الاصدار لديك If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1), True بالتوفيق ولديك الخيار استاذ علي في تنفيذ امر مسح السجلات من الجدول او حذف الجدول قبل تنفيذ الامر السابق تحياتي

ماتشيلشي هم اخوي جعفر ! وانبه فقط على ان السؤال يختلف عن ماشاركة به !! ليس السؤال عملية استخدام مكتبات ال ado ! "وسؤالى ... هل يمكن تصميم نموذج فرعى غير متصل بجدول أو حتى بإستعلام وله أكثر من صف." المراد سجلات اكتب فيها زي مااحب زي الاكسل او زي الداتا قريد بالفيجول او msflexgrid في الفي بي زمان ! وبدون استناد على جدول او استعلام ! تحياتي

تفضل استاذ علي واسف عالتاخير لانشغالي جدا DoCmd.TransferSpreadsheet , , "table1", "c:\Users\ali\Documents\ali.xlsx", True وانا متاكد ان الامر السابق لديكم علم به ولكن مع النقاش سنصل لما تريد باذن الله تحياتي

اولا اعتذر عن التاخير لسا اتذكر الموضوع وانا امر على كتاباتي ! وجدت لك عزيزي طريقتين : 1. اعمل مرجع للمكتبة microsoft office object library وحسب الاصدار لديك ثم هذا الكود Application.LanguageSettings.LanguageID(msoLanguageIDUI) وهذه مرجع للغات : https://msdn.microsoft.com/en-us/goglobal/bb964664 2. عمل وحدة نمطية عامة بها : Private Const LOCALE_USER_DEFAULT = &H400 Private Const LOCALE_SNATIVELANGNAME = &H4 Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _ (ByVal Locale As Long, _ ByVal LCType As Long, _ ByVal lpLCData As String, _ ByVal cchData As Long) As Long Private Function GetInfo(ByVal lInfo As Long) As String Dim Buffer As String, Ret As String Buffer = String$(256, 0) Ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, Len(Buffer)) If Ret > 0 Then GetInfo = Left$(Buffer, Ret - 1) Else GetInfo = vbNullString End If End Function وعند اي حدث في البرنامج تعمل المناداة وكرسالة مثلا : MsgBox GetInfo(LOCALE_SNATIVELANGNAME) تحياتي اخي استاذ ابوعارف

مشكور اخوي جعفر واتوقع ان الاخ وائل عايز الشغل على زر الحفظ وهنا انا حسولف معاه شويه : اخ وائل : في نص المشاركة الاصلية طلبك في زر الحفظ ولكن مع النقاش تحول الى الضغط على الازرار وكما اشرت لك سابقا ! وعالعموم خلينا في الزبدة : انت تريد ان التشييك عند زر الحفظ ؟ في برنامجك الحالي عند النقر على سطر جديد خالي فانه يضيف الصنف كسطرا جديدا وبكمية 1 ولا يزيد سجل سابق ! تمام ! اتفقنا ياباشا ؟! طيب لو حصل ان تم تكرار هذه العمليه ثلاث مرات بمعنى اصبح لدينا احد الاصناف مكرر في ثلاث سجلات وبكميات مختلفة ! هنا ياترى ماهو التنبيه الذي سيظهر عند النقر على زر حفظ ؟ تريده يقول لك هناك 3 سجلات ؟ واين يذهب : هل يذهب لاخرهم ام اولهم ام ماذا ؟ تحياتي

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

على قولة الاستاذ ابا خليل : هذه ماخطت اناملك ! ولي عودة معك ! مشغول الان ! تحياتي

حاولت فهم اسمك ولم استطع مع انه بحروف عربية ! اشكرك اولا على تلبية طلبي وهنا فهمت قصدك بانه عملية ربط النموذح بمصادر البيانات وليس انشاء النموذج ! ونحن اخوة لك انشاءالله اسوة بالاستاذ جعفر ( ساحرهم يا جعفر ) وهذه وجهة نظر العضو رمهان في الموضوع : لابد ان تعلم ان الاكسس اتى بسياسة معينة في التعامل مع البيانات ويجب علينا فهم هذه السياسة او السيناريوهات لكي نستفيد من مميزاته والتي تختلف عن الادوات والبرامج الاخرى ! ومقابل هذه الميزات هناك عيوب ! ولكن علينا الرضا بهذا البرنامج مقابل مالدبه من حسنات ولعل من اهمها عدم الحاجة للدراسة العلمية في قواعد البانات والبرمجة بشكل خاص وسرعة انشاء التطبيق ! طريقتك في البرمجة جميلة وباستخدام المكتبات وهنا انت تركت الميزات التي اتي بها الاكسس! هنا انصحك بالانتقال الى لغة افيجول بيسك فاكوادك وطريقتك مناسبة لذلك ! ولكي تستفيد من ادوات التطوير الاخرى قافزا عيوب الاكسس وخصوصا في حماية التطبيق! اخوك رمهان