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

ايضا انظر هنا تطبيق لتثبييت المواعيد والأحداث

انظر هل تريد الكتابة في الكليندر مباشرة وحفظ النتائج مثل الصورة ؟؟

السلام عليكم و رحمة الله وبركاته Sub فاتورة_بيع_للمخزن() ' ' فاتورة_بيع_للمخزن ماكرو ' Dim FS As Worksheet, TS As Worksheet Dim Q1 Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("المخزن") For FR = 5 To 69 Q1 = FS.Cells(FR, 5).Value Q3 = FS.Cells(FR, 8).Value For TR = 1 To 999 If TS.Cells(TR, 1) = Q1 Then TS.Cells(TR, 3) = TS.Cells(TR, 3) - Q3 GoTo 9 End If Next 'TR 9 Next ' FR ' End Sub Sub فاتورة_مورد_للمخزن() ' ' فاتورة_بيع_للمخزن ماكرو ' Dim FS As Worksheet, TS As Worksheet Dim Q1 Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("المخزن") For FR = 5 To 69 Q1 = FS.Cells(FR, 5).Value Q3 = FS.Cells(FR, 8).Value For TR = 1 To 999 If TS.Cells(TR, 1) = Q1 Then TS.Cells(TR, 3) = TS.Cells(TR, 3) - Q3 GoTo 9 End If Next 'TR 9 Next ' FR ' End Sub

استبدل التالي DLookup("[pass]", "TblEmp", "arname Like '*" & Me.Cuser & "*'")

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

استخدم المعادلة ادناه =SUMIF(الفواتير!B$2:B$7;'مديونية العملاء'!B2;الفواتير!F$2:F$7) فضلا انظر للمرفق يومية.xls

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

حسناً، سأجيب على الأسئلة قدر استطاعتي وسيكون الشرح على Visual Studio .NET الـ SDK هو عبارة عن reference يتم اضافته لمشروع الـ NET. على هيئة ملف dll. كيف نقوم بإضافته لمشروعنا ؟ وسيصبح بجانب البرنامج عند عمل Compile أي إن البرنامج لن يعمل بدون هذه المكتبة. وهذه المكتبات التي قلنا انها ملفات dll. تكون مكتوبة حصراً بلغة NET. وهي عبارة عن classes / modules تمرر لها مدخلاتك تقوم هية بالفلترة وتعطيك المخرجات وانت بدورك ستقوم بإستقبالها بحسب اللغة المقابلة. حسناً، عمل الوسيط وإرسال المعلومات له ليس بالشيء الصعب لكن الصعب هو استلام البيانات من الوسيط.. أولا: نقوم بعمل الوسيط... سنقوم بعمل تطبيق وظيفته نرسل له عبارة معينة فيرد علينا بعبارة أخرى بلغة NET. Module Module1 Sub Main() For Each arg As String In My.Application.CommandLineArgs Select Case arg Case "hi" Console.WriteLine("Hi, How are you !") Case "how old are you" Console.WriteLine("i'm 25 years old") Case Else Console.WriteLine("ask me !") End Select Next End Sub End Module لاحظ الحلقة Select Case اذا قلنا Hi يجيبنا Hi, How are you ..الخ من باقي التخمينات في الحلقة. السطر الأهم هو Console.WriteLine هو سيقوم بكتابة الإجابة على الكونسول وسنقوم بقراءتها المشكلة ان الكونسول ( cmd.exe ) لا يدعم اللغة العربية ! ممكن نقوم بحل المشكلة بإستبدال الحروف العربية بإنكليزية مثال ( A = أ ) وسنقوم بالأكسس باستبدال الأنكليزي بالعربي وارجاع الحروف لإصلها اضن ان الفكرة وصلت.. ------------------------------------------------------------------------------------------- الآن مرحلة ارسال وإستقبال البيانات في الأكسس والطريقة الأفضل هي Windows API والدوال المطلوبة هي: CreatePipe CreateProcessA ReadFile CloseHandle WaitForSingleObject GetExitCodeProcess GetStartupInfo GetFileSize لتفاصيل أكثر، اضغط على إسم الدالة أرفقت لكم مصادر من MSDN Option Compare Database Option Explicit '-------------------------------------------------------- 'c0ded bY : SEMO.Pa3x 'telegram : semo_pa4x 'facebook : https://www.facebook.com/Nisr.Aln3jaf 'last edit : 26/4/2019 '-------------------------------------------------------- Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Private Type STARTUPINFO cb As Long lpReserved As Long lpDesktop As Long lpTitle As Long dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Const WAIT_INFINITE As Long = (-1&) Private Const STARTF_USESHOWWINDOW As Long = &H1 Private Const STARTF_USESTDHANDLES As Long = &H100 Private Const SW_HIDE As Long = 0& Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As SECURITY_ATTRIBUTES, ByVal nSize As Long) As Long Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Sub GetStartupInfo Lib "kernel32" Alias "GetStartupInfoA" (lpStartupInfo As STARTUPINFO) Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Private Function Redirect(szBinaryPath As String, szCommandLn As String) As String Dim tSA_CreatePipe As SECURITY_ATTRIBUTES Dim tSA_CreateProcessPrc As SECURITY_ATTRIBUTES Dim tSA_CreateProcessThrd As SECURITY_ATTRIBUTES Dim tSA_CreateProcessPrcInfo As PROCESS_INFORMATION Dim tStartupInfo As STARTUPINFO Dim hRead As Long Dim hWrite As Long Dim bRead As Long Dim abytBuff() As Byte Dim lngResult As Long Dim szFullCommand As String Dim lngExitCode As Long Dim lngSizeOf As Long tSA_CreatePipe.nLength = Len(tSA_CreatePipe) tSA_CreatePipe.lpSecurityDescriptor = 0& tSA_CreatePipe.bInheritHandle = True tSA_CreateProcessPrc.nLength = Len(tSA_CreateProcessPrc) tSA_CreateProcessThrd.nLength = Len(tSA_CreateProcessThrd) If (CreatePipe(hRead, hWrite, tSA_CreatePipe, 0&) <> 0&) Then tStartupInfo.cb = Len(tStartupInfo) GetStartupInfo tStartupInfo With tStartupInfo .hStdOutput = hWrite .hStdError = hWrite .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES .wShowWindow = SW_HIDE End With szFullCommand = """" & szBinaryPath & """" & " " & szCommandLn lngResult = CreateProcess(0&, szFullCommand, tSA_CreateProcessPrc, tSA_CreateProcessThrd, True, 0&, 0&, vbNullString, tStartupInfo, tSA_CreateProcessPrcInfo) If (lngResult <> 0&) Then lngResult = WaitForSingleObject(tSA_CreateProcessPrcInfo.hProcess, WAIT_INFINITE) lngSizeOf = GetFileSize(hRead, 0&) If (lngSizeOf > 0) Then ReDim abytBuff(lngSizeOf - 1) If ReadFile(hRead, abytBuff(0), UBound(abytBuff) + 1, bRead, ByVal 0&) Then Redirect = StrConv(abytBuff, vbUnicode) End If End If Call GetExitCodeProcess(tSA_CreateProcessPrcInfo.hProcess, lngExitCode) CloseHandle tSA_CreateProcessPrcInfo.hThread CloseHandle tSA_CreateProcessPrcInfo.hProcess If (lngExitCode <> 0&) Then Err.Raise vbObject + 1235&, "GetExitCodeProcess", "Non-zero Application exist code" CloseHandle hWrite CloseHandle hRead Else Err.Raise vbObject + 1236&, "CreateProcess", "CreateProcess Failed, Code: " & Err.LastDllError End If End If End Function Public Function MainRedirect(param As String) Dim resp As String resp = Redirect(CurrentProject.Path & "\" & "app.exe", param) MainRedirect = resp End Function طبعاً app.exe هو اسم التطبيق الذي قمنا بعمله في الأعلى ووضعناه بجانب قاعدة بيانات الأكسس. الإستدعاء: Private Sub cmd_send_Click() MsgBox MainRedirect("hi") End Sub النتيجة: وأخيراً، استميحك عذراً في الإجابة عن هذا السؤال الموجه لأخي @د.كاف يار أغلب الطرق فاشلة وغير فعالة وهي بتحويل البرامج المكتوبة في الدوت نت الى مكتبات بصيغة tlb. لكن أؤكد لك انها طرق فاشلة وغير فعالة، هناك طريقة وجدتها سابقا وهي تحميل مكتبة دوت نت في لغات غير الدوت نت - Load vb.net to unmanaged process https://www.dev-point.com/vb/threads/389438 هذا هو الدرس، لمن يريد قراءته.. وأخيراً، ارجو ان اكون قد وفقت بإيصال الفكرة ولو بالشيء اليسير تحياتي لك يا مُعلمي @jjafferr

للأسف المتطلبات كثيرة جدا و عشان اقدر اشتغل عليها لابد يكون معاي معلومات المنشأة الخاصة بالزكاة و الدخل لأن الفاتورة النهائي لابد تكون بأحد الصيغتين XMIL أو PDF و هذا رابط مشروع الفوترة الالتكرونية مشروع الضوابط والمتطلبات والمواصفات الفنية والقواعد الإجرائية اللازمة لتنفيذ أحكام لائحة الفوترة الإلكترونية لكن في كل الأحوال كل الطرق سهلة بستثناء الأكسس و راح ابدء اشتغل على هذا النظام على C#.net و راح اضيفه في المنتدى حال الانتهاء منه انشاء الله

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

تفضل التعديل DATA143.zip

يختلف استدعاء المكتبة من لغة برمجة لأخرى.. وكذلك الإتصال، حدد اللغة التي تريد العمل عليها، ثم ابحث عن طريقة الاتصال واستدعاء المكتبة فـ google سيعطيك الاجابات الكافية لذلك

ربما ينفعك هذا الموضوع: نموذج التقويم ( النتيجة )

السلام عليكم و رحمة الله تعالى و بركاته من بين أكثر الأسئلة الموجودة في المنتدى هي حول التعامل مع الأكسل من الأكسس سواءا إستيراد أو تصدير. و لما لهذا الموضوع من أهمية قررت إضافة موضوع أشرح فيه جميع حالات التعامل بين الأكسس و الأكسل. و يبقى لنا كمرجع يرد منه من يشاء إن شاء الله. أولا: شرح بعض المصطلحات الأكسل هو تطبيق Excel.Application يقوم بفتح أو عرض المصنف Workbook و المصنف يحتوي على عدة أوراق WorkSheets و الشيت يحتوي على الكثير من الأعمدة Columns و الأسطر Rows تقاطع كل سطر و عمود يشكل لنا خلية Cells و كل مجموعة خلايا نحددها تسمى نطاق range -*- تذكرو هذه المصطلحات جيدا. سوف نعتمد عليها في هذا الموضوع إن شاء الله -*- ثانيا: إنشاء ملف أكسل جديد لإنشاء ملف أكسل سوف نقوم بإنشاء تطبيق أكسل Excel.Application و نضيف له مصنف جديد Workbook به ثلاث أوراق sheets و نستطيع إضافة شيت آخر أو أكثر لهذا المصنف ثم نقوم بحفظ هذا الملف بمسار محدد و هذا هو الكود: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Set xlApp = CreateObject("Excel.Application") Set xlWB = xlApp.Workbooks.Add ' إضافة مصنف جديد Set xlWs = xlWB.Worksheets.Add ' إضافة شيت جديد xlWB.SaveAs CurrentProject.Path & "\2026.xlsx" ' حفظ الملف باسم 2026 xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح" ثالثا: التصدير لملف أكسل موجود مسبقا سوف نقوم بإرسال بيانات ثابتة لخلايا محددة بملف الأكسل الذي أنشأناه في الأعلى و نستطيع بنفس الطريقة إرسال بيانات من جدول أو إستعلام من خلال الكود التالي: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlWs As Object 'Excel.Sheet Dim curPath As String curPath = CurrentProject.Path & "\2026.xlsx" 'مسار ملف الأكسل Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False ' إخفاء التطبيق Set xlWB = xlApp.Workbooks.Open(curPath) Set xlWs = xlWB.Worksheets(1) ' 1 هو رقم الورقة في ملف الأكسل xlWs.Cells(1, 1).Value = "الاسم" xlWs.Cells(2, 1).Value = "ابوخليل" ' 2 رقم السطر و 1 هو رقم العمود xlWs.Cells(3, 1).Value = "جعفر" xlWs.Cells(1, 2).Value = "العنوان" xlWs.Cells(2, 2).Value = "الدمام" xlWs.Cells(3, 2).Value = "مسقط" xlWs.Cells(1, 3).Value = "الهاتف" xlWs.Cells(2, 3).Value = "011245632" xlWs.Cells(3, 3).Value = "033156513" xlWB.Save xlApp.Quit Set xlWs = Nothing Set xlWB = Nothing Set xlApp = Nothing MsgBox "انتهت المهمة بنجاح" التحكم في الأكسل.accdb

اذا يلزم انك تحصل على المكتبة عشان تثبتها و تقدر من خلالها تستدعي API عشان تتصل بالسيرفر سواء كان في الزكاة و الدخل او غيره لكن انصحك انك تشتغل على ASP.Net أو VB.Net أو #C راح تجد سهولة في التعامل مع جميع خصائص API و سهلة في تثبيتها

عندنا مثل يقول: ايش لك في البحر واهواله ، ورزق الله على السِيف (الشاطئ/اليايسة)🙂 وترجمته بالاكسس: ايش لك بالغير منضم واكواده ، والاكسس بالطريقة العادية يعمل وبكل بساطة 🙂 هنا تناقشنا عن النموذج الغير مضمن: كيفية عمل Unbound Sub Form له أكثر من صف - صفحه 2 - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

ولكن الكود مكرر في ملفك والتاريخ ايضا اذا كان ذلك مقصود فانصحك باستعمال الليستبوكس في البحث بدل الكومبوبوكس يعني فورم يحتوي على textbox للبحث بالكود و listbox لاطهار نتيجة البحث عند عمل كليك على اي صف داخل listbox يحدد الخلية في الشيت لي فيه نقس الكود في نفس row اعطيني قليل من الوقت لاجهز تجربة عن هذا وهذه تجربة جرب ورد active cell.xlsm

جزاك الله خير هل من الممكن ان تعطيني الملف مفتوح المصدر لاجراء بعض التغييرات تتناسب مع عملي وشكرا

البرنامج بعد اضافة الصيانات برنامج السيارات.rar

Calendar.mdb

أخي في الله أحمد .. شرفت منتدانا ويشرفني أن أكون أول من يرحب بك في منتدانا :fff: أخي الفاضل ارفق مثال للتوضيح .. اجعل ملفك بالصورة التي ترغب بها وإن شاء المولى تجد من يساعدك

السلام عليكم وتحية طيبة .. هذا ملف فيه طريقة إنشاء قاعدة بيانات على الملقم وبعض الفوائد databaseOnMsde.rar

أولاً الحرف * وهو حرف العلامة النجمية ويمكن استخدامه في موضع الحرف الأول او موضع الحرف الأخير أو موضع الحرف الأوسط أو مجموعة الحروف الأولى أو مجموعة الحروف الأخيرة أو مجموعة الحروف الوسطى لسلسلة حرفية. فمثلاً:لو قمنا بوضع م* فهذا يستخرج لنا جميع الجمل التي تبدأ بحرف الميم يعني يطلع لنا – محمد – محمود – ماهر – مصطفى ... لو قمنا بوضع *م فهذا يستخرج لنا أي كلمة تنتهي بحرف الميم مثل – سهم – شحم لو قمنا بوضع *م* فهذا يستخرج لنا أي كلمه أوسطها حرف الميم مثل – محمد – احمد – محمود

مثال علي اختيار رقم عشوائي مع السماح بالتكرار أو عدم السماح ( لابو حمود ) RANDOM_abuh.rar

مثالين لابو هاجر للتحكم فى دقة الشاشة من نموذج و آخر للتحكم عند الفتح للنموذج و العودة للاصل عند الاغلاق resulotion1_abuhagar.rar

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

هذا المثال يوضح كيفية منع ادخال قيمة أكبر من صفر فى حقل رقمي اسمه App1 و ذلك فى حال كون هناك قيمة أكبر من صفر سبق تسجيلها فى هذا الحقل و ذلك لنفس التاريخ و الذي يتم تسجيله فى حقل mdate فيتم اختبار القيم فى الجدول التي لها نفس التاريخ و اذا كان هناك سجل لنفس التاريخ لديه قيمة أكبر من صفر لنفس الحقل فنمنع التسجيل - , و هذا يتم باستخدام الدالة Dcount كما نمنع تسجيل أي قيمة أكبر من صفر للحقل فى حال عدم تسجيل التاريخ فى حقل التاريخ اولا ا ChechOtherFields.rar

الاخوة الكرام حاولت اصمم برنامج بسيط على الرابط أسفل لرصد درجات المواد وذلك لكي أتدرب على تكوين العلاقات بين الجداول لدي استفسارات: - اريد ان يكون نموذج التسجيل بالمواد يعني عندما عندما اختار المادة من مربع تحرير وسرد تنزل أسماء الطلاب في النماذج الفرعية .( هل طريقتي مناسبة في بنية الجداول ام تحتاج تعديل ) أرجو التفصيل - كيف يمكن أن أضع ثلاث مربعات تحرير وسرد مرتبطة ببعظها بمعنى المربع الأول أحدد منه الصف والثاني احدد منه الفصل ( أ أو ب ) والثالث أسماء الطلاب مثلا يعني ما تظهرلي في الثالث الا اسماء طلاب الصف والفصل اللي حددتهما في المربعين السابقين. ونفس الفكرة اريدها للمواد اي المربع الثالث يكون لمواد الصف والفصل المختارين أرجو ان يكون الشرح بالتفصيل فماأريده هو أن تعرف على كيفية بناء علاقات من هذا النوع. القاعدة على الربط ( لم اهتم بإخراج النماذج بشكل مناسب ) http://www.tnmeyah.com/db6.rar

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

الأخوة الأفاضل ... تواجهني مشكلة عندما أكتب الكود في الأكسس لأصدار ويندوز باللغة العربية .. حيث عندما أريد أن أفتح نفس البرنامج في ويندوز نفس الأصدار لكن غير مدعم باللغة العربية تخرج رسالة بأنه بخظأ في الماكرو وبشكل عام لا يتعرف على الكود الذي كتبته ... علما أنني أكتب أسماء الحقول وإسم المشروع باللغة الأنجليزية ... فهل هناك حل ؟

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