اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عبدالمانع

عضوية شرفية
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    30

  • تاريخ الانضمام

  • تاريخ اخر زياره

 نوع المحتوي 

مشاركات المكتوبه بواسطه عبدالمانع

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

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    اخي الكريم /

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

    وتمناتي بالتوفيق للجميع ،،،

    عبدالمانع

    معاينة التقرير بنوعية الالوان التي في النموذج

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني أخواتي ، جميعا ،

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

    وفيها طرق تصنيف السجلات في النموذج الفرعي والباقي عليكم ...

    مع التحية والتقدير للجميع ،،،

    عبدالمانع

    ClorCon_27_11_2005.zip

    الفرق في التوقيت العالمي لعدد من الدول العالمية

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني و أخواتي جميعا ،،،

    كل سنة وانتم بصحة وعافية ، وينعاد عليكم الشهر وانتم بصحة وسلام ،

    برنامج اليوم هو عن التوقيت العالمي للعدد من الدول الاوربية والعربية وغيرة ...

    تفضلوا بالبرنامج ولكم كل التقدير والاحترام ،،،

    عبدالمانع

    Clocks__10_10_2005.rar

    فتح عده نماذج في نموذج واحد وبحجم واحد

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    شكرا لمروك الكريم / التقني

    وشكرا للاستاذ / رضوان

    الذين لم يعمل معهم المثال اليهم الكود البرمجي ...

    تضع الكود التالي في الوحدة النمطية العامة بالقاعدة 

    Option Compare Database
Option Explicit

Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Sub SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _
ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const GWL_HWNDPARENT = (-8)
Private Const GWL_WNDPROC = (-4)

Private Const WS_OVERLAPPEDWINDOW = &HCF0000
Private Const WS_POPUP = &H80000000
Private Const WS_THICKFRAME = &H40000
Private Const WS_VSCROLL = &H200000
Private Const WS_HSCROLL = &H100000
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_CLIPCHILDREN = &H2000000
Private Const WS_DLGFRAME = &H400000
Private Const WS_CAPTION = &HC00000
Private Const WS_BORDER = &H800000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0&
Private Const HWND_TOPMOST = -1

Private Const SWP_NOSIZE = 1
Private Const SWP_NOMOVE = 2
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_DRAWFRAME = &H20

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&

Dim frmChild As Form
Dim frmParent As Form

Public Function ChildWindowX(ChildName As String, ParentName As String, PosX As Long, PosY As Long)
Dim style As Long
Dim hWndChild As Long
Dim hWndParent As Long
Dim intObjState As Integer
Dim SysMenu As Long
Dim RectPos As Long
Dim rectposold As Long
'open child
    DoCmd.OpenForm ChildName
'open parent
    DoCmd.OpenForm ParentName
'set forms
    Set frmChild = Forms(ChildName)
    Set frmParent = Forms(ParentName)
'retrieve window handles
    hWndChild = frmChild.hWnd
    hWndParent = frmParent.hWnd
'set parent of child window
    SetParent hWndChild, hWndParent
'get child style
    style = GetWindowLong(hWndChild, GWL_STYLE)
'Popup
    style = style Or WS_POPUP
'Clip against fellow sibling windows
    style = style Or WS_CLIPSIBLINGS
'make child invisible to prevent graphical errors
    frmChild.Visible = False
'Apply style
    SetWindowLong hWndChild, GWL_STYLE, style
'place child in parent structure
    SetWindowLong hWndChild, GWL_HWNDPARENT, hWndParent
'set pos
    SetWindowPos hWndChild, HWND_TOP, PosX, PosY, 0&, 0&, _
    SWP_NOSIZE Or SWP_SHOWWINDOW
'Get sys menu on child
    SetParent hWndChild, hWndParent
    SysMenu = GetSystemMenu(hWndChild, 0)
'Remove sys menu "Next"
    RemoveMenu SysMenu, 8, MF_REMOVE Or MF_BYPOSITION '"next"
    RemoveMenu SysMenu, 7, MF_REMOVE Or MF_BYPOSITION 'menu line
End Function

Public Function ChildTopX(hWndChild As Long)
    SetWindowPos hWndChild, HWND_TOP, 0&, 0&, 0&, 0&, _
    SWP_NOSIZE Or SWP_NOMOVE Or SWP_SHOWWINDOW
End Function
    وتعمل عدد من النماذج مثلا تريد اربعة نماذج حسب المثال المرفق ويكون حسب الاسماء التالية "None" "Size" "Dialogue" "Thin" كل نموذج لوحدة ثم تعمل نموذج آخر باي اسم تريد وتضع فية الكود عند التحميل :- 
    ChildWindowX "None", Me.Name, 15, 35
ChildWindowX "Size", Me.Name, 200, 30
ChildWindowX "Dialogue", Me.Name, 100, 140
ChildWindowX "Thin", Me.Name, 250, 100
    وتضع عند تغيير الحجم الكود هذا :- 
    ChildTopX Me.hWnd

    ارجوا ان يكون الشرح واضح ،،،

    عبدالمانع

    فتح عده نماذج في نموذج واحد وبحجم واحد

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أساتذتي ، وأخواني ، وأخواتي ،

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

    وهذه صورة عن النموذج ...

    Hu18-09-2005.JPG

    مع التحية والتقدير لجميع ،،،

    عبدالمانع

    Open_Form_18_09_2005.rar

    مكبر المستوى الادنى من الوظائفية للمستخدمين

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني ، وأخواتي ، جميعا

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

    لمشاهده البرامج بصورة أكبر او بصورة عكسية وغيرة ...

    مثلا :-

    Ty1.jpg

    Ty2.jpg

    Ty3.jpg

    مع التحية والتقدير للجميع ،،،

    عبدالمانع

    LoadimageVer2_27_08_2005.zip

    مرلين والحركات التعليمية والارشادية

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني ، أخواتي ، جميعا

    مثال اليوم هو عن الشيخ (مرلين)

    مرلين هو احد المساعدين لبرنامج اوفيس ، صورتة هي

    Taq1.jpg

    اكيد الكل ما يسغني عن خدمات المساعد في اوفيس ولكنة اليوم طلع بطريقة اخرى

    وقد الواحد يزهق من الرسائل الارشادية ويمكنة اليوم ان يغيرها حسب الرغبة باسلوب جميل ...

    * اعتذر لعدم التواصل بأستمرار ...

    مع التحية للجميع ،،،

    عبدالمانع

    AgentMerlin23_08_2005.zip

    البحث داخل التقرير ونتيجة البحث ،،،

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني ، أخواتي ، جميعا

    Tan1.jpg

    Tan2.jpg

    تستطيع من خلال البرنامج ان تبحث داخل التقرير وتضهر نتيجة البحث وتلون النتيجة ان وجدت وإن لم توجد فرسالة تفيد بذلك

    اليكم الصور على الطريقة بذلك ... ارجوا ان يفيدكم جميعا المثال ، لعرض كافة البيانات الموجودة بالجدوال (*) ثم عرض ...

    مع التحية والتقدير للجميع ،،،

    عبدالمانع

    CategDesc_2k_09_08_2005.zip

    تلوين عنصر تحكم علامة الجدولة ،

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني ، وأخواتي ، جميعاً

    هذا برنامج أجنبي الذي يقوم بة البرنامج انة يلون عنصر تحكم علامة الجدولة مثل الصورة التالية قبل إجراء التغيير

    tab-09-08-2005-2.jpg

    الصورة بعد إجر عملية التغيير

    Tab-09-08-2005-1.jpg

    فكثير من الاعضاء يهتم بتلوين العناصر التحكم فارجوا ان يفيدكم البرنامج أيضا فية طرق أخرى ...

    مع التحية والتقدير للجميع ،،،

    عبدالمانع

    A_09_08_2005TabsVer16.zip

    عرض سجل بلون والاخر عادي في النماذج المستمرة

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخواني / أخواتي ,,, جميعا

    مثال حصلت علية وهو يعرض الوان للنموذج المستمر وتغيير اللوان حسب المستخدم وحيث إذا حذفت سجل

    Tag1.jpg

    او عدة سجلات فانة يعرض سجل بلون والاخر عادي ، وفية كثير من الفائدة ارجوا ان يستفيد الجميع من المثال ،،،

    أيضا انتظرو امثلة اجمل منها بكثير ...

    مع التحية والتقدير للجميع ،،،

    عبدالمانع

    AlternateColorDetailSectionVer06_08_2005.zip

    post-6884-1123350658_thumb.jpg

    طباعة سجل Access

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمه الله وبركاته ،،،

    أهلا بك أخي الكريم / baran

    وبالتوفيق إن شاء الله ،،،

    أما الاستاذ / رضوان

    بارك الله فيك على مجهواتك القيمه في المنتدى وأسال الله التوفيق لنا ولكم ،،،

    مع التحية ،،،

    عبدالمانع

    طباعة سجل Access

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخي الكريم / baran

    تضع الكود التالي عند النقر في الزر الامر المراد معاينه الطباعة ، كما يراد منك إضافه ترقيم تلقائي وإضافتة الى الجدول ثم تضيفه الى النموذج لكي تتم المعاينة بالشكل المطلوب والحقيقة ان فية عده طرق لكن هذة ابسط طريقه ،،،

    الكود بالشكل هذا :

        DoCmd.OpenReport "اسم التقرير", acViewPreview, , "CSN= " & CSN

    الطريقة :

    - أسم التقرير الذي لديك = اسم التقرير

    - اسم حقل الترقيم التلقائي في النموذج = CSN

    - اسم حقل الترقيم التلقائي في التقرير = CSN

    أتمنى ان تكون الطريقه مناسبك لك ،،،

    مع تحياتي للجميع ،،،

    عبدالمانع

    سلسلة دروس VBA

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    الله يعطيك العافيه على المشاركة القيمة التي تفيد المبرمج ،،، جزاك الله خير الجزء ،،، وبارك الله في علمك وزادك اكثر فأكثر ،،،

    مع تحياتي للجميع ،،،

    عبدالمانع

    ما المشكله في هذا الكود

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخي الكريم /

    معنى (IsNull) يتأكد من القيمه الموجوده في المربع (t1) هل هي ملغيه

    ام لا بمعنى آخر هل هل توجد بياناتات في المربع t1 لكي يقوم بعمليه الشرط

    ان لم تكن موجوده بيانات ،،،

    هذا والله ولي التوفيق ،،،

    عبدالمانع

    ما المشكله في هذا الكود

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم ورحمه الله وبركاته ،،،

    أخي الكريم / aboasem33

    قد يفيدك هذا الكود مع الملف المرفق ،،،

    تفضل ...

    كود : 

    If IsNull(Me.t1.Value) Then
MsgBox "سوف يتم مسح سجل الهاتف "
Me.t2 = ""
Exit Sub
End If

    والمثال :

    مع تحياتي للجميع ،،،

    عبدالمانع

    * لم أستطع ان ارفق المثال ...

×
×
  • اضف...

Important Information

  I accept