-
Posts
12 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
فايز العميسي changed their profile photo
-
البحث في كومبو بوكس بالحرف وإظهار النتائج
فايز العميسي replied to كريم أبو الفتوح's topic in قسم الأكسيس Access
السلام عليكم اساتذتي المبرمجين أرجو التعديل على الكود الذي تم نشروه في هذا الموقع الصرح التعليمي الشامخ من قبل الأستاذ أبا عمر ليعمل على نظام 64 بت Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Function LaunchCD(strform As Form) As String Dim OpenFile As OPENFILENAME Dim lReturn As Long Dim sFilter As String OpenFile.lStructSize = Len(OpenFile) OpenFile.hwndOwner = strform.Hwnd sFilter = "Access Databases (*.mdb;*.accdb)" & Chr(0) & "*.mdb;*.accdb" & Chr(0) & _ "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) OpenFile.lpstrFilter = sFilter OpenFile.nFilterIndex = 1 OpenFile.lpstrFile = String(257, 0) OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1 OpenFile.lpstrFileTitle = OpenFile.lpstrFile OpenFile.nMaxFileTitle = OpenFile.nMaxFile OpenFile.lpstrInitialDir = "C:\" OpenFile.lpstrTitle = "Officena.net ... Find The location of Back End File" OpenFile.flags = 0 lReturn = GetOpenFileName(OpenFile) If lReturn = 0 Then MsgBox "A file was not selected!", vbInformation, _ "Select a file using the Common Dialog " Else LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1)) End If End Function ولكم جزيل الشكر والتقدير -
برنامج_مدرسي.rarالأساتذة مشرفي وأعضاء المنتدى في المرفق اريد 1 ) أن يتم التعديل في جدول الترم الأول أساسي بمجرد التعديل في في جدول الدرجات 2 ) أو أن يتم تفريغ جدول الدرجات بحسب رقم الطالب ورقم المادة إلى المكان المخصص له في جدول الترم الأول أساسي
-
الله يجزيكم خيرا على ما تقدمونه من معلومات قيمة
-
تقسيم وتوزيع النص على عدة حقول ( تجزئة الاسم الرباعي )
فايز العميسي replied to ابوخليل's topic in قسم الأكسيس Access
السلام عليكم اساتذتي الأجلاء ممكن شرح هذا الكود وعمل حل للأسماء المركبة ( عبد الرحمن ، ضيف الله ، شمس الدين ) التي يوجد بينهما فاصلة. Function PartOfName(InName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim i As Integer, U As Integer InName = NoSpaces(InName) PartOfName = "" If InName = "" Then Exit Function Do U = i i = InStr(i + 1, InName, " ", 1) If i <> 0 Then TheSpaceNumber = TheSpaceNumber + 1 If TheSpaceNumber = NumberOfPart Then Exit Do ElseIf TheSpaceNumber + 1 = NumberOfPart Then i = Len(InName) + 1 Exit Do Else Exit Function End If Loop PartOfName = Trim(Mid(InName, U + 1, i - U - 1)) End Function -
السلام عليكم ورحمة الله وكل سنة وانتم طيبين أساتذتي الأجلاء ارجوا مساعدتي في أخذ الرقمين الأولين من السنة كأن ناخذ 14 من 2014 / 2015 في مربع نص داخل تقرير
-
السلام عليكم استاذ حسين جزاك الله خير على ماقدمت وعندي ملاحظة يا ليت تنظر فيها نريد تحويل الدينار إلى ريال والفلس إلى هللة هناك خطأ في تفقيط الفلس في الدالة
-
دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل
فايز العميسي replied to الحسامي's topic in منتدى الاكسيل Excel
أخي الشهابي بارك الله لك في عقلك وعلمك وأثاب الله أستاذنا القدير عماد الحسام خير الثواب على عطائه وكرمه العمل قيم وفي غاية الروعة وارجو مراعاة التذكير والتأنيث في الأول و الأولى وكذا الثاني والثانية. ولكم أرجو أن يوفقكم الله للتوصل إلى دالة نستطيع من خلالها معرفة ترتيب الطلاب في عمود الترتيب AU من ورقة نتيجة 2012 - 2013 دون الحاجة إلى استدعائه إلى الورقة الأخرى كما في ورقة الترتيب والأوائل -
دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل
فايز العميسي replied to الحسامي's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله أساتذتي المبرمجين في الملف المرفق ملف أكسس أريد فيه معرفة كم يحتاج الطالب من الدرجات للنجاح كما هو مبين في عمود الاحتياج في ملف الأكسل المرفق درجات احتياج الطالب للنجاح.rar -
دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل
فايز العميسي replied to الحسامي's topic in منتدى الاكسيل Excel
هنى ورقة أكسل فيها العمل استخراج أوائل الطلاب على مستوى الصف والجنس.rar -
دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل
فايز العميسي replied to الحسامي's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله وبركاته اساتذتي المبرمجين وزملائي طلبة علم البرمجة أخواني جزاكم الله خير على علمكم افتمونا بدوالكم ولدي استفسار حول استخدام دالة العشرة الأوائل لاستخراج اوائل كل صف على مستوى الجنس في ورقة عمل واحدة أي طلاب الصف الأول الذكور يليهم طالبات الصف الأول اناث يلهم طلاب الصف الثاني ذكور يلهم طالبات الصف الثاني اناث وهكذا حتى آخر طلاب آخر صف دراسي ولكم خالص تقديري وامتناني -
دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل
فايز العميسي replied to الحسامي's topic in منتدى الاكسيل Excel
السلام عليكم قادة البرمجة السلام عليكم نجوم العلم السلام عليكم قدوتنا واساتذتنا فضلاً منكم وتكرماً على تلاميذكم الذين يطلبون مساعدتكم اريد استخراج العشرة الأوائل على مستوى الصف وعلى مستوى الجنس من ورقة عمل واحدة في الملف المرفق ترتيب الأوائل على مستوى الصف والجنس.zip -
كود ترحيل الناجح والراسب واوائل المدرسة
فايز العميسي replied to قنديل الصياد's topic in منتدى الاكسيل Excel
اريد دالة استخراج العشرة الأوائل على مستوى الصف والجنس في الملف اللمرفق وجزاكم الله خيرا على علمكم وعملكم الرائعترتيب الأوائل على مستوى الصف والجنس.zip