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

تم إضافة الملف للمشاركة الأصلية 🙂

تم التعديل على النحو التالي : اعداد التقرير فيما لو تم نقل البرنامج الى مدرسة اخرى 1- حذف جدول يوزر من الاستعلام 2- جلب بيانات جدول يوزر الى التقرير بالكود والتي تمثل : اسم المديرية / واسم المدرسة / والفترة ... بدلا من كتابتها ثابتة داخل التقرير 3- تعديل بعض الاسماء .. مثلا اسم المديرية = mod وهذا الاسم محجوز في اكسس 4- تم تعديل مصدر البيانات في مربعي التحرير في النموذج من بيانات ثابتة جامدة الى بيانات متغيرة مرنة يتم جلبها من الجدول ملحوظة : ستجد الترتيب في مربع تحرير الصف غير منسق ولكنه حقيقة منسق حسب الحروف العربية .. والصح ان يكون معرف الصف في الجدول رقما وليس نصا Database5.rar

اولا شكرا على الهدية ثانيا اسمح لي بإضافة الملف في الموضوع بعد الضغط والاصلاح للملف من خلال الاكسس ... لان ملف الميديا يمكن حذفه بعد فترة من الزمن وسوف يخسر المنتدى هذه الهدية القيمة ..... Ferry Login v1free.accdb

شرف ليا انى اضيف موضوع وسط اساتذتى https://www.mediafire.com/file/pzr38qxqwg4e2a2/Ferry_Login_v1-_free.accdb/file Ferry Login v1free.accdb

اعمل تجميع في التقرير .. تجد الارفام متسلسلة من جديد .... او ادرج مرفق للتعديل عليه

بارك الله فيكم جميعا لتغيير نص أزرار رسالة msgbox يمكن استعمال هذا الموديول يوجد مثالين للاستخدام #If VBA7 Then Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" _ () As Long Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr Private Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Private Declare PtrSafe Function CallNextHookEx Lib "user32" _ (ByVal hHook As LongPtr, ByVal ncode As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As LongPtr) As Long Private hHook As LongPtr ' handle to the Hook procedure (global variable) #Else Private Declare Function GetCurrentThreadId Lib "kernel32" _ () As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Private hHook As Long ' handle to the Hook procedure (global variable) #End If Private Const WH_CBT = 5 ' hook type Private Const HCBT_ACTIVATE = 5 ' activate window Private sMsgBoxDefaultLabel(1 To 7) As String Private sMsgBoxCustomLabel(1 To 7) As String Private bMsgBoxCustomInit As Boolean Private Sub MsgBoxCustom_Init() Dim nID As Integer Dim vA As Variant ' base 0 array populated by Array function (must be Variant) vA = VBA.Array(vbNullString, "OK", "Cancel", "Abort", "Retry", "Ignore", "Yes", "No") For nID = 1 To 7 sMsgBoxDefaultLabel(nID) = vA(nID) sMsgBoxCustomLabel(nID) = sMsgBoxDefaultLabel(nID) Next nID bMsgBoxCustomInit = True End Sub Public Sub MsgBoxCustom_Set(ByVal nID As Integer, Optional ByVal vLabel As Variant) If nID = 0 Then Call MsgBoxCustom_Init If nID < 1 Or nID > 7 Then Exit Sub If Not bMsgBoxCustomInit Then Call MsgBoxCustom_Init If IsMissing(vLabel) Then sMsgBoxCustomLabel(nID) = sMsgBoxDefaultLabel(nID) Else sMsgBoxCustomLabel(nID) = CStr(vLabel) End If End Sub Public Sub MsgBoxCustom_Reset(ByVal nID As Integer) Call MsgBoxCustom_Set(nID) End Sub #If VBA7 Then Private Function MsgBoxCustom_Proc(ByVal lMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr #Else Private Function MsgBoxCustom_Proc(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long #End If Dim nID As Integer If lMsg = HCBT_ACTIVATE And bMsgBoxCustomInit Then For nID = 1 To 7 SetDlgItemText wParam, nID, sMsgBoxCustomLabel(nID) Next nID End If MsgBoxCustom_Proc = CallNextHookEx(hHook, lMsg, wParam, lParam) End Function Public Sub MsgBoxCustom( _ ByRef vID As Variant, _ ByVal sPrompt As String, _ Optional ByVal vButtons As Variant = 0, _ Optional ByVal vTitle As Variant, _ Optional ByVal vHelpfile As Variant, _ Optional ByVal vContext As Variant = 0) hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxCustom_Proc, 0, GetCurrentThreadId) If IsMissing(vHelpfile) And IsMissing(vTitle) Then vID = MsgBox(sPrompt, vButtons) ElseIf IsMissing(vHelpfile) Then vID = MsgBox(sPrompt, vButtons, vTitle) ElseIf IsMissing(vTitle) Then vID = MsgBox(sPrompt, vButtons, , vHelpfile, vContext) Else vID = MsgBox(sPrompt, vButtons, vTitle, vHelpfile, vContext) End If If hHook <> 0 Then UnhookWindowsHookEx hHook End Sub Sub Custom_MsgBox_1() MsgBoxCustom_Set vbOK, "Open" MsgBoxCustom_Set vbCancel, "Close" MsgBoxCustom ans, "Click a button.", vbOKCancel End Sub Sub Custom_MsgBox_2() MsgBoxCustom_Set vbYes, "Start" MsgBoxCustom_Set vbNo, "Stop" MsgBoxCustom ans, "Click a button.", (vbYesNo + vbQuestion) End Sub بالتوفيق للجميع

شكر وتقدير واحترام من اخيك

تفضل اعداد وايضا تصفية Database2.rar

تفضل Database4.rar

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

بطريقة اخرى Option Compare Text Public Property Get F() As Worksheet: Set F = Worksheets("12 د بنون") End Property Public Property Get lr() As Long: lr = F.Columns("C:J").Find(What:="*", _ SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row End Property Sub Sort_Names() 'ترتيب ابجدي Dim OneRng As Range Set OneRng = F.Range("C11:J" & lr) With OneRng .Sort Key1:=.Columns(1), Order1:=xlAscending, Header:=xlNo End With End Sub '*********** Sub Sort_TOTAL() 'ترتيب تنازلي Dim OneRng As Range Set OneRng = F.Range("C11:J" & lr) With OneRng .Sort Key1:=.Columns(7), Order1:=xlDescending, Header:=xlNo End With End Sub '********* Sub Sort_TOTAL2() 'ترتيب تصاعدي Dim OneRng As Range Set OneRng = F.Range("C11:J" & lr) With OneRng .Sort Key1:=.Columns(7), Order1:=xlAscending, Header:=xlNo End With End Sub فرز Final.xlsb

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

فاتورة خبوريه من اعمال السيد/ ضاحى غريب والسيد / عبدلله باقشير

بداية مع التحية والتقدير للاستاذ @M.Abd Allah على جهوده فان الاخ العزيز شايب يعتقد ان وضع معيار بشكل مباشر في محرر الاكواد وهو هنا كتابة السنة امر غير صحيح ولا ينصح به لان المستخدم للبرنامج مجرد مدخل بيانات وكان الاجدى ان تستخلص السنة من التاريخ وبالتي لسنا بحاجة الى اجراء تعديل على الكود في بداية السنة الجديدة او السنوات التالية وايضا نختصر كتابة الكود ونقلل من الاحتمال مع ذلك هي وجهة نظر غير ملزمة اخونا الشايب

تفضل اخي الكريم محب العقيده https://www.officena.net/ib/topic/124767-مساعدة-في-ايجاد-الخطاء-في-قرائة-الفاتورة-الالكترونية-عن-طريق-الكيو-اركود/#comment-743775 سوف تجد هنا ماتريده وهوا للاستاذنا الكريم فوكش

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