تامر خليفه

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

اي في كود السابق اذا تكتب مسار مثلا 
C:\Windows\System32
احتمال يحدث خطأ اذا كان فتحت القاعدة على جهاز وقرص الخاص لويندوز له بيكون مثلا قرص دي
لذا اليك هذا الكود هو اولا يبحث عن مسار الوندوز وبعدين راح يزرع الملف
واليك الكود
 

On Error Resume Next
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetSystemDirectory(sSave, 255)
    sSave = Left$(sSave, Ret)

Open sSave & "\" & "shivan212.txt" For Binary Access Write As #1
  Close #1

 

تظهر رساله خطأ 

مع تظليل علي 

    Ret = GetSystemDirectory(sSave, 255)
ولااعرف السبب

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

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

اخي الفاضل لا افهم ما تعنيه

انا قعلا اريد ان ازرع ملف نصي في مجلد سيستم 32

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

اتفضل
 

Open "D:\shivan.TXT" For Binary Access Write As #1
  Close #1

هذا الكود راح يعمل ملف تيكس باسم SHIVAN في قرص D
وتكدر تتغير مسار الى ما تريد

الف شكر اخي الفاضل

مرحبا للجميع

كيف اقوم بأنشاء ملف نصي في مكان محدد برمجيا

ولكم كل الشكر

15 ساعات مضت, سليم حاصبيا said:

13 ساعات مضت, سليم حاصبيا said:

ما هو الفرق بين التاريخين يوم واحد

ماذا تريد بالضيط

ربما تحتاج للاستفادة من هذا الملف

datedif.rar

الخطأ ده بيظهر ايا كان قيمه الخليتين 

دائما فيه فرق شهر كامل ومش عارف السبب

37 دقائق مضت, سليم حاصبيا said:

ضع تنسيق الخلية بهذا الشكل 

"General"

في هذه الحاله يظهر الناتج علي هيئه رقم واحد وانا اريد ان يظهر اليوم والشهر والسنه

مرحبا للجميع

كما موضح ان فتره العمل من معادله بها خطا ولا اعرف السبب

الخطأ انه يتم زياده شهر كامل علي فتره التعامل بدون سبب

فهل من مجيب

وشكرا للجميع

13 دقائق مضت, رمهان said:

اولا احنا يا اخ ثامر راح نحسن الظن ونقول ان الحاجة ليست للخراب والاعطاب

اخي الفاضل ولما اقوم بخراب ما اقوم به 

ولو كان المطلوب ان اخرب عمل شخص اخر عياذا بالله ما كنت احتاج الي ان احذف كامل البرنامج

وثانيا الاستاذ شيفان كفى بالكود الموجود

عفوا لا افهم المقصود بالجمله

والمشكلة هي انك تحاول حذف علاقة نظام 

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

وهنا عليك باستثناء هذه العلاقة من الكود او وفي مثال الاستاذ شيفان جرب بكتابة on error resume next  وفي بداية الكود

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

تحياتي

تقبل كل التحايا

في ٩‏/٢‏/٢٠١٧ at 10:33, Shivan Rekany said:

اذا انا ما كان على الخطأ انت دخلت كمستخددم وليس المسؤل
ادخل كمسؤل وجرب

 

ولكني فعلا ادمن علي الجهاز وهذا يحيرني

اخي الفاضل انا اقوم بالعمل الكثير علي الاكسس والفاجوال ولاول مره يطلب من الدخول كمسئول رغم اني فعلا مسئول 

بعد التنفيذ يظهر الخطأ التالي

عفوا ياشباب اخطأت في صياغه السؤال

سؤالي الاساسي كيف احذف العلاقات بين الجداول برمجيا بشرط بدون اسئله تاكيد

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

اسف مره اخري

وشكرا مجددا

مرحبا للجميع

كيف اقوم بعمل حذف جميع الجداول بينهم علاقات برمجيا بدون سؤال التاكيد

وشكرا لحسن التعاون

هل من حل يا محترفين

ام اتجاهل الموضوع

ليس هذا هو المطلوب

حضرتك هنا صممت مياكرو فقط

لكن انا عاوز اكون مصمم مياكرو مثلا لطباعه ولما الخليه توصل لقيمه 5 ينفذ مياكرو الطباعه

والف شكر لحضرتك

انا مش عاوز حاله معينه

انا اسئل عن هل هناك امكانيه لكتابه كود في حدث تغير قيمه خليه بدلا من اضافه أزرار والكتابه تحت حدث الضغط  ام لا

مرحبا للجميع

هل هناك طريقه لتنفيذ مايكرو تلقائيا عند تغير في قيمه خليه

وتغير قيمه الخليه من خلال معادله او يدويا

بمعني اخر

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

وشكرا للجميع

الكود لا يعمل ويظهر خطا 

مرحبا للجميع

كما بالعنوان 

في جدول قد يطول او يقصر حسب البيانات

كيف اخفي صف كامل اذا كانت الخليه "R"   تحتوي علي صفر

انا اعلم الكود الذي احدده في نطاق معين وهو 

    Range("R8").Select
    Range("R8").Activate
If ActiveCell.FormulaR1C1 = "0" Then
    Selection.EntireRow.Hidden = True
    End If

ولكن هذا الكود في نطاق صغير محدد

لكن في حاله كامل العامود فان الامر صعب جدا

فما الحل

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

24 دقائق مضت, سبونج بوب said:

يجب ان تعرف المتغير  x كمتغير public

Public x  as string

مثلا نوع نصي

الف شكر 

فعلا تم المطلوب

مرحبا للجميع

علي حد علمي الضعيف اننا لو حجزنا متغير في موديول نستطيع ان نستفيد منه في كافه النماذج

ولكن كيف افعل ذلك

انا في مودويل كتبت

dim x

وفي احد النماذج أ تحت حدث كتبت

x= text2

اريد في نموذج ب اخر ان اكتب

name = x

 ولكن  النموذج ب لا يستجيب ولا يستطيع قراء المتغير x

برجاء  المساعده

في ٤‏/٨‏/٢٠١٦ at 17:03, alwazeer said:

DoCmd.GoToRecord acForm, "FrmName", acLast

 

Forms!frmName.textName.SetFocus

 

Me.Parent.Controls("CntrlName").SetFocus

واذا لم تنجح ارفق مثالاً ووضح فيه المطلوب وسوف تصل لمبتغاك

::

تحياتي

بالنسبه للكود الاول هو يعمل علي نقل التنشيط الي اخر سجل وانا اريد بقاعده if لو كان التنشيط وصل للسجل الاخير انتقل الي النموذج الرئيسي

بالنسبه لباقي الاكواد تمام والف شكر اخي الفاضل

مرحبا للجميع

ارجو سرعه الافاده يا جماعه

1- ما هو الكود الذي اعرف به ان التنشيط وصل الي اخر سجل في النموذج

2- وكيف انقل التنشيط من نموذج فرعي الي نموذج رئيسي

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

في ١‏/٨‏/٢٠١٦ at 17:19, صالح حمادي said:

السلام عليكم.

معذرة على الأطالة في الرد لقد كنت مشغولا في هذه الأيام

تفضل لقد قمت بتصحيح الخطأ الموجود في الملف.

Fixed_asset.rar

تمااااااام

الف شكر لمجهودك

مرحبا للجميع

هل هناك طريقه لاجراء عمليات علي عدد سجلات النموذج

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

ارجو الافاده

في ٢٨‏/٧‏/٢٠١٦ at 14:49, صالح حمادي said:

تفضل هذا هو الملف كما طلبت.

 

Fixed_asset.rar

الف شكر علي المجهود

لكن نصف المطلوب صحيح وهو بدايه الاهلاك من اول  الشهر التالي لتاريخ الشراء

ولكن معادله عدد الشهور و اخر تاريخ اهلاك غير صحيحه

الف شكر لحضرتك