نجوم المشاركات

نموذج منبثق - Pop-up Popup.mdb

تم تطبيق المثال اخي الكريم فقط قم باستخراج الملفات على سطح المكتب و افتح الملف الذي يحمل الاسم " الأساسي " Desktop.zip

ومن يعمل على جداول فارغة؟؟؟؟

جرب هذا الماكرو Sub extractmonth_name() Dim i As Long For i = 4 To 115 Cells(i, 5).Value = Month(Cells(i, 2).Value) Next i End Sub 5.xlsm

ممكن تستخدم مثلا هذا الكود ان اردت ..... If Len([mobile1]) < 11 Or Len([mobile1]) > 11 Then Beep MsgBox " عقواً .... تأكد من رقم الموبايل الصحيح ", 64, "تنبيه" Cancel = True Me.mobile1 = "" End If With mobile1 If Not IsNumeric(.Value) And .Value <> vbNullString Then Beep MsgBox "عفوا ... مسموح ادخال الارقام فقط", 16, " تحذير" .Value = vbNullString End If If Mid(mobile1, 1, 3) <> "078" Then MsgBox "عفوا ... تأكد من رقم الشبكة", 16, " تحذير" Me.mobile1 = "" End If End With

تفضل اخى الكريم هذه معادلة حساب الأيام =MOD(E4+E6,30) وهذه لحساب الشهور =MOD(F4+F6,12)+QUOTIENT(E4+E6,30) وأخرى لحساب اجمالى السنوات =G4+G6+QUOTIENT(F4+F6,12) وهذا هو ملفك ... بارك الله فيك حساب الترقيات1.xlsx

تفضل يا صديقي قدر الامكان تجنب الخلايا المدمجة حبث يوجد معادلات اكنب الاسم في الخلية G3 ولو كنت تراه في H3 Hasan.xlsx

مشاركة مع استاذي العزيز ابو عبد الله تفضل هذه المحاولة ارجو ان تكون موفقة test2.rar

ترفع ملفاً فارغاً (سطربن من البيانات) وتطلب معالجته

بسيطه اخي الكريم استخدم الكود التالي set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" ' اصدار قاعدة البيانات conn.Open "مسار قاعدة البيانات" set rs=Server.CreateObject("ADODB.recordset") Dim MyData as string MyData=" اسم جدول مصدر البيانات" rs.Open "Select * from " & MyData , conn for each x in rs.fields MsgBox rs.Fields("FieldsName") next

اجعل مصدر الحقل الذي يسمي المبلغ الكلي هذه الدالة =Nz(Dlookup("[المبلغ المتبقي]";"[اسم الجدول المصدر]";"ID=" & [ID]-1);[المبلغ الكلي]) جرب هذا ووافنا بالنتائج

تفضل هذا المثال اخي الكريم MyImage.accdb

وعليكم السلام -ما تطلبه ليس بالسهل او الهين فهو كثير جداً وصعب تصميمه فى نفس الوقت ... فلا اعتقد ان هناك من يمتلك الوقت لتصميم كل هذا وكما تعلم ان المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة بارك الله فيك

أستخدم دالة Month عذرَا لم أنتبه ان الطلب كود وليس دالة

جرب هذا الملف تم وضع الضريبة في خلية مستقلة (B1) ربما طرأ نعديل عليها (افضل من تعديل كل المعادلات) لا يتم نلوين الصف الا اذا اكتملت عناصره ( 8 أعمدة غير فارغة من A الى H ) Fatura.xlsx

تفضل تم ضبط تنسيق التواريخ بتكست بوكس 9 وتكست بوكس12 داخل فورم3 وفورم4 ... وذلك بإضافة هذان السطران بكلا الفورمين داخل حدث هذا الكود Private Sub TextBox1_Change() TextBox9.Text = Format(TextBox9.Text, "dd/mm/yyyy") TextBox12.Text = Format(TextBox12.Text, "dd/mm/yyyy") AHMAD.xlsm

تفضل هذا التعديل حسب فهمي لطلبك test3.rar

اهلا وسهلا ابا جودي .. وعودا حميدا عمل جميل .. شكرا لك المهم التعبير عن الانبثاق في الصورة .هههههههه

هذا الفيديو يقوم بشرح تنسيق التاريخ في عملية دمج المراسلات وهذا الرابط للفيديو :

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

السلام عليكم ورحمة الله أخي الكريم، في اعتقادي أنه لحل هذه المشكلة في الوورد يجب اتباع ما يلي : 1- الضغط على : ALT+F9 وفي هذه الحالة كل الحقول المدرجة في الورقة تُفتح على الشكل : { MERGEFIELD Name } حيث Name يمثل اسم الحقل... 2- تختار الحقل الذي تريد تغيير التنسيق فيه وتضيف له بعد اسم الحقل العبارة MM/dd/yyyy @\ أو العبارة dd/MM/yyyy @\ (حسب الحالة) بعد اسم الحقل، فيكون الحقل من الشكل : { MERGEFIELD Name \@ MM/dd/yyyy } أو { MERGEFIELD Name \@ dd/MM/yyyy } 3- الضغط على : ALT+F9 مرة أخرى للرجوع إلى حالة الدمج... أرجو أن يفيدك هذا في حل مشكلتك.... أخوك بن علية