Accessna

رابط ذو علاقة وجدته في موقع عربي /index.ph...st&p=687068

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

شكرا أختنا زهرة على هذه المعلومات المفيدة شدت انتباهي دالة Environ بعد أن تعرفت عليها لأول مرة هنا وقد قمت بعمل إجراء لاستعراض كل نتائجها : Sub Test() Dim I As Byte Dim E As String Dim N As String On Error Resume Next For I = 1 To 100 '34 E = Environ(I) If E <…

التقاويم والتحويل بينها

تستطيع فتح "موديول" وحدة نمطية جديدة وتواصل الكتابة

لا أعرف أخي مبرمج مبتدا هل أنت تسأل أم تصحح قيمة Shift أكيد لها معنى في الحدث فليس الضغط على الإدخال كـ (الضغط عليها مع الضغط على العالي) في ذات الوقت .. أكيد هناك فرق ولتجرب وتتعرف على الفرق بنفسك أما هذه الأسطر : With Me.ActiveControl .SelStart = 0 .SelLengt…

كما قالوا الأقاضل التنقل بالتاب لا يحتاج إلى كود ولكني كتبت كود للتنقل بين الحقول بالإدخال أي الـ Enter Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) On Error Resume Next If Shift = 0 Then Select Case KeyCode Case 13 SendKeys "{Tab}" DoEvents …

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

'yy (1428 - 1) * 360 = 513720 'mm ( 12 - 1) * 30 = 330 'dd = 30 'Total = 514080 'yy = (514080 - 1) / 360 = 1427.9972 'Total = 514080 - (1427 * 360) = 360 'mm = ( 360 - 1) / 30 = 11.9667 'dd = 360 - ( 11 * 30) = 30 'yy = yy + 1 'mm = mm + 1

رحم الله أمرء جب الغيبة عن نفسه من عرض نفسه للتهمة فلا يلومن من أساء به الظن وما أدراني ما بداخلك أخي القحم فأسلوب العبارة أقرب إلى التهديد من النصيحة أما وأنك أوضحت وجببت الغيبة عن نفسك فأطلب منك الصفح والسماح فأرجو منك قبول اعتذاري ولكني مع الأسف لن أمتنع عن…

موضوع سابق بمنتدى الأكسس قد يوضح المطلوب أكثر /index.ph...st&p=654214

فلتوضح أخي القحم ماهو المأزق الذي لا أحبه فأنت لو استغفرت من الآن إلى مابعد سنة فلن نخرج بنتيجة فأرجوك عاملني على قد فهمي

هذه طريقة إنشاء ملف نصي والكتابة فيه Sub CreateFile() Dim fs As Object Dim A As Object Dim FileName As String FileName = Application.CurrentProject.Path & "\testfile.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set A = fs.CreateTextFile(FileName, T…

'هذا إجراء للتبديل بين قيمتين Public Sub Swap(Var1 As Variant, Var2 As Variant) Dim Var3 As Variant Var3 = Var1 Var1 = Var2 Var2 = Var3 End Sub 'وهذا إجراء لتجربة إجراء التبديل Sub Test() Dim A, B A = 3 B = 6 Swap A, B '-- Call Swap(A, B) MsgBox A & vbNewLine …

تعبت كثيرا وأنا أبحث عن دالة تأتيني بقيمة متغير معرف سابقا ولكني لا أستطيع أن أتعرف على إسمه إلا بعد عمليات معالجة بجمع أكثر من نص على سبيل المثال بحثي تركز على الـ : VBA و API وأفترض أن تكون الدالة هكذا : VarVal("VarName") VarValue("VarName") GetVal("VarName"…

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

سأتوقف عن مواصلة الكتابة في هذا الموضوع ومن يصر على معرفة الأخطاء فليراسلني

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

الأخ علل السبب أنه لا يعرف طريق أبي هادي فزودناه بعنوان الطريق .. وسؤالي الثاني هو سؤال استفهامي ليس إلا ! أما تبريرك فليس في محله وأنا أعلم جيدا ما أقول وسؤالي لك هل لو وصل لك المثال دون علمك بما هو مكتوب بالموضوع هنا هل ستخرج بنفس الإنطباع الذي أنت به الآن !…

مرفق مثال والتحويل بواسطة الإجراء Transfer Transfer.rar