Elsayed Bn Gemy

تفضل اخى الكريم حذف الجداول نهائيا.rar

او كما يقال اهل مكة ادرى بشعابها :smile:

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

اخى الكريم ها تريد حذف البيانا ت ام حذف الكائن جدول ؟؟؟

كدا اعتقد ان فى مشكله مع اللغة فى الويندوز ادخل على control panel ثم language ثم administrative ثم change system locale وتاكد من اختيار بلدك وتاكد ايضا من تثبيت اللغة بشكل ممتاز

وهذه اضافة بسيطة على ما ذكره اخى الفاضل فقط اكتب القيمة التى تريدها بدون تكرار الضغط على الزر مرات عديدة On Error Resume Next num = InputBox("Please Enter the number") If ([Forms]![f_order]![F_ordersubform]![itemcode]) > 0 And ([Forms]![f_order]![F_ordersubform]![itemcode]) <> 1001 Then DoCmd.CancelEvent Exit Sub End If If ([Forms]![f_order]![F_ordersubform]![itemcode]) = 1001 Then [Forms]![f_order]![F_ordersubform]![Qty] = Nz([Forms]![f_order]![F_ordersubform]![Qty]) + num [Forms]![f_order]![F_ordersubform]![itemcode].SetFocus F_ordersubform.SetFocus [Forms]![f_order]![F_ordersubform]![Qty].SetFocus End If If IsNull([Forms]![f_order]![F_ordersubform]![itemcode]) Then [Forms]![f_order]![F_ordersubform]![itemcode] = 1001 DoCmd.Beep [Forms]![f_order]![F_ordersubform].SetFocus DoCmd.GoToControl "itemcode" DoCmd.GoToControl "qty" [F_ordersubform]![Qty].SetFocus Me.F_ordersubform!Qty.Value = 1 End If

هل هذا ما تريد اخى الكريم Accounting System .rar

الكود الاخير هو الذى يقوم باخفاء كل استعلام على حدا اما لو نظرت الى المرفق فستجده يخفى كل الاستعلامات

يا سيدى الفاضل انا اجهل ما هو الشيت ولكن اعتقد انى قابلت موضوعا هنا فى منتى الاكسل عن الشيتات

انظر هذا الموضوع ان لم تستطع التعديل عليه ارفق مثالا اخى الكريم http://www.officena.net/ib/index.php?showtopic=45998

ارفق مثالا يا اخى لم تضح الصورة لدى بعد تسطيع استعمال الدالة Dlast فى حدث عند الفتح Me.numper_= DLast("[fld_numper]", "table") حيث numper_ هو مربع النص فى النموذج الذى تريد عرض الرقم فيه fld_numper هو الحقل فى الجدول المخزن فيه الرقم table هواسم الجدول الذى فيه الرقم يفضل استخدام اللغة الانجليزية

ارفق مثالا حتى يكرمنا الله بالتعديل عليه

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

شكرا لمرورك اخى الكريم وانتم فضلكم علينا كثيرا

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

لك ما تريد يا اخى هذا حقك ولكن نحن فقط نطمئن فى حدث الحالى Private Sub Form_Current() If Me.R <= 0 Then Me.LB1.Visible = True '........................... Dim db Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.Name) If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then DoCmd.DeleteObject acTable, obj.Name End If Next For Each obj In dbs.AllQueries DoCmd.DeleteObject acTable, obj.Name Next obj Set tdf = Nothing db.Close '...................................... End If refresh End Sub

وفقك الله وسدد خطاك

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

جارى التحميل شكرا لك

ماذا تعنى بتدمير ؟؟ حذف البيانات فقط من الجداول ؟؟؟ ام ماذا تريد

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

نعم عن طريق التقارير الفرعية ؟؟ ام ماذا تقصد

ابدأ من حيث انتهى الاخرون والزم غرز اوفيســــــــــــــــــنا تصل بر الامان http://www.officena.net/ib/index.php?showforum=73 اخوووووك مارد ومرحبا بك

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

اخى يمكنك مراجعة هذا الرابط منتديات الدعم من مطورى الاكسس ميكروسوفت https://social.msdn.microsoft.com/Forums/office/en-US/25d9dafd-b446-40ba-8dbd-a0efa983f2ff/how-to-programatically-hide-a-querydef?forum=accessdev Const strcQueryName As String = "QueryName" Dim fIsHidden As Boolean ' To determine if the query is hidden: fIsHidden = GetHiddenAttribute(acQuery, strcQueryName) Debug.Print fIsHidden ' To show the query: SetHiddenAttribute acQuery, strcQueryName, False ' To hide the query: SetHiddenAttribute acQuery, strcQueryName, True