محمد أبوعبدالله

وعليكم السلام ورحمة الله وبركاته اغلق قاعدة البيانات حدد قاعدة البيانات ثم اضفط مفتاح Shift واضغط على قاعدة البيانات بمفتاح Enter تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم سيتم حفظ الصورة بمجلد الصور برقم جلوس كل طالب برنامج لحفظ صور القاعدة داخل مجلد.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم جرب الكود التالي Dim stDocName As String stDocName = me.textbox Me.Subform.Form.RecordSource = stDocName تحياتي

وعليكم السلام ورحمة الله وبركاته اغلق قاعدة البيانات حدد قاعدة البيانات ثم اضفط مفتاح Shift واضغط على قاعدة البيانات بمفتاح Enter تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم لانك جعلت طريقة عرض النموذج = ورقة بيانات / Datasheet والصجيح ان تكون Single Form وعندك مشكلة في حقل الرقم فمصدر البيانات غير معروف والصحيح ان يكون مصدره = الرقم تم وضع فلتر في كود عرض النموذج لعرض السجل الحالي توضيح.rar تحياتي

وعليكم السلام ورحمة الله وبركاته في الاستعلام اجعل الترتيب لحقل الاسم تصاعدي / Ascending تحياتي

هذا نص رسالة " هل تريد حفظ التغيرات " ةعنوان الرسالة "تأكيد الحفظ" MsgBox Chr(229) & Chr(225) & Chr(32) & Chr(202) & Chr(209) & Chr(237) & Chr(207) & Chr(32) & Chr(205) & Chr(221) & Chr(217) & Chr(32) & Chr(199) & Chr(225) & Chr(202) & Chr(219) & Chr(237) & Chr(209) & Chr(199) & Chr(202), , Chr(202) & Chr(195) & Chr(223) & Chr(237) & Chr(207) & Chr(32) & Chr(199) & Chr(225) & Chr(205) & Chr(221) & Chr(217) تحويل النص الى أسكاى(ascii).rar تحياتي

وعليكم السلام ورحمة الله وبركاته المشكلة الاساسية هي تسمية العناصر ( اسم العنصر / الكائن ) بلغة غير الانجليزية والحل اعادة تسمية هذه العناصر باسماء انجليزية ( كما انصح بعد الانتهاء بانشاء قاعدة بيانات فارغة واستيراد الكائنات من قاعدة البيانات القديمة اليها ) اما بالنسبة لنص الرسالة فيمكن التغلب عليها بمرفق اخونا ابوعبدالله الخلواني http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=107469 تحياتي

بالتوفيق اخي الكريم ولا تنسى انهاء الموضوع بالضغط على زر تمت الاجابة تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ضع هذا الكود داحل مربع النص بالنماذج والتقارير التي تريد ظهور اسم المستخدم بها [forms]![UserLogin]![n1] 233.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم A_dbu - Add-Delet.rar تحياتي

جزاك الله خيرا استاذي الفاضل والحقيقة منتظر هذا الجزء بفارغ الصبر دمت لاخيك تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub مربع_تحرير_وسرد5_Click() Me.Child14.Form.FilterOn = False myCriteria = "" If Me.مربع_تحرير_وسرد5 = "كل المستويات" Then Me.Child14.Form.FilterOn = False Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[القسم]= '" & Me.مربع_تحرير_وسرد5 & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Child14.Form.Filter = myCriteria Me.Child14.Form.FilterOn = True End If End Sub Private Sub نص3_Click() Me.Child14.Form.FilterOn = False myCriteria = "" If Me.نص3 = "كل الافواج" Then Me.Child14.Form.FilterOn = False Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[رقم الفوج]= '" & Me.نص3 & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Child14.Form.Filter = myCriteria Me.Child14.Form.FilterOn = True End If End Sub A_dbu - Add-Delet.rar تحياتي

تفضل اخي الكريم kkkkk1.rar تحياتي

لحطة من فضلك د.كاف يار بارك الله فيك رجاءاً افتح موضوع جديد لنتابع معك خطوة خطوة وجزاكم الله خيراً تحياتي

جرب المرفق اخي الكريم بارك الله فيك DbIcon.rar تحياتي

اذا كنت تقصد Calendar من نسخة 2010 واعلى اذا جعلت نوع الحقل Date/Time فسيقوم اوفيس باضافة Calendar تلقائي للحقل يظهر عند النقر عليه تحياتي

اين المرفقات ؟ تحياتي

وعليكم السلام ورجمة الله وبركاته انت تكتب في المعيار اسم النموذج خطأ kkk1 والصحيح kk1 ايضا تكتب في المعيار Like "*" & [Forms]![kk1]![tt1] And [Forms]![kk1]![tt2] & "*" والصحيح Like "*" & [Forms]![kk1]![tt1] & "*" Like "*" & [Forms]![kk1]![tt2] & "*" تفضل اخي الكريم c12.rar تحياتي

تفضل اخي الكريم Up+اخفاء الرقم السري.rar تحياتي

وعليكم السلام ورحمة الله وبركاته ليعمل الكود على 32 و 64 بت معاً تعامل مع الكود بالشكل التالي #If VBA7 Then Declare PtrSafe Sub... #Else Declare Sub... #EndIf وبذلك يمكن تعديل الوحدة النمطية كالتالي Option Compare Database #If VBA7 Then Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare PtrSafe Function SetTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _ lpTimerFunc&) Private Declare PtrSafe Function KillTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&) Private Declare PtrSafe Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long #Else Private Declare Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function SetTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _ lpTimerFunc&) Private Declare Function KillTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&) Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long #End If Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long ' Constants for API set A Const EM_SETPASSWORDCHAR = &HCC Public Const NV_INPUTBOX As Long = &H5000& Public Function TimerProc(ByVal lHwnd&, ByVal uMsg&, _ ByVal lIDEvent&, ByVal lDWTime&) As Long ' This function allows for a mask character on an inputbox ' ' Usage (Replace anything between [] with valid names from your project): ' From a form or module: ' 1. Declare a Long variable ' 2. Call the timer function: [variable] = SetTimer([form].Hwnd, NV_INPUTBOX, [elapsed time], AddressOf [function name]) ' 2b. Example usage from a form: lTemp = SetTimer(Me.Hwnd, NV_INPUTBOX, 1, AddressOf TimerProc) ' 3. Create your InputBox as usual Dim lEditHwnd As Long ' Find a handle to the InputBox window, then to the textbox ' the user types in (Known as "Edit") ' ' **This part is VERY important, here is how the FindWindowEx call should look: ' **Only change the parameters that are enclosed in [ ] in the following example ' ' [variable] = FindWindowEx(FindWindow("#32770", "[caption of your InputBox]"), 0, "Edit", "") ' lEditHwnd = FindWindowEx(FindWindow("#32770", "Security Dialogue"), 0, "Edit", "") ' Send the mask character to the target InputBox when the user types ' The mask character in this sample is the Asc("*") - the "*" can be changed ' to whatever you like. Call SendMessage(lEditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0) ' Destroy the timer object when done (The user clicks OK or Cancel from the InputBox) KillTimer lHwnd, lIDEvent End Function Up+اخفاء الرقم السري.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ضع هذا الكود في وحدة نمطية Option Compare Database Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function SetTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _ lpTimerFunc&) Private Declare Function KillTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&) Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long ' Constants for API set A Const EM_SETPASSWORDCHAR = &HCC Public Const NV_INPUTBOX As Long = &H5000& Public Function TimerProc(ByVal lHwnd&, ByVal uMsg&, _ ByVal lIDEvent&, ByVal lDWTime&) As Long ' This function allows for a mask character on an inputbox ' ' Usage (Replace anything between [] with valid names from your project): ' From a form or module: ' 1. Declare a Long variable ' 2. Call the timer function: [variable] = SetTimer([form].Hwnd, NV_INPUTBOX, [elapsed time], AddressOf [function name]) ' 2b. Example usage from a form: lTemp = SetTimer(Me.Hwnd, NV_INPUTBOX, 1, AddressOf TimerProc) ' 3. Create your InputBox as usual Dim lEditHwnd As Long ' Find a handle to the InputBox window, then to the textbox ' the user types in (Known as "Edit") ' ' **This part is VERY important, here is how the FindWindowEx call should look: ' **Only change the parameters that are enclosed in [ ] in the following example ' ' [variable] = FindWindowEx(FindWindow("#32770", "[caption of your InputBox]"), 0, "Edit", "") ' lEditHwnd = FindWindowEx(FindWindow("#32770", "Security Dialogue"), 0, "Edit", "") ' Send the mask character to the target InputBox when the user types ' The mask character in this sample is the Asc("*") - the "*" can be changed ' to whatever you like. Call SendMessage(lEditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0) ' Destroy the timer object when done (The user clicks OK or Cancel from the InputBox) KillTimer lHwnd, lIDEvent End Function وهذا الكود في النموذج Dim lTemp As Long Dim sTemp As String Dim X As String X = "1234" lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc) sTemp = InputBox("ادخل الرقم السري", "Security Dialogue") If X = sTemp Then MsgBox "ok" Else DoCmd.Close acForm, Me.Form.Name, acSavePrompt End If Up+اخفاء الرقم السري.rar تحياتي

تفضل اخي الكريم اذا كنت تقصد اخفاء رأس التقرير استخدم الكود التالي Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) Me.PageHeaderSection.Visible = False End Sub تحياتي