طاهر الوليدي

اناريد ماهو مضمون وكيف والقاعدة تنفيذي او شبه تنفيذيه

مافهت قصدك اخي العزيز

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

عفوا السابق بالريال هذا بدينار بعد التعديل عليه تحويل الارقام الى حروف - انجليزي.rar

هذا الكود ضعه في موديل وحدة نمطية Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function كيفية استخدام نموذج دالة SpellNumber لاستخدام نماذج الدوال لتغيير رقم ليصبح نص مكتوب، استخدم إحدى الطرق الموضحة في الأمثلة التالية: الطريقة الأولى: إدخال مباشر يمكنك تغيير 32.50 ليصبح "اثنين وثلاثين دولارًا وخمسين سنتا" بإدخال الصيغة التالية في خلية: =SpellNumber(32.50) الطريقة الثانية: مرجع الخلية يمكنك الإشارة إلى خلايا أخرى في المصنف. على سبيل المثال، أدخل رقم 32.50 في الخلية A1، واكتب الصيغة التالية في خلية أخرى: =SpellNumber(A1) الطريقة الثالثة: إدراج دالة لاستخدام إدراج دالة، اتبع الخطوات التالية: Excel 2003: حدد الخلية التي تريدها. انقر فوق إدراج دالة على شريط الأدوات القياسي. ضمن أو تحديد فئة، انقر فوق معرفة من قِبل المستخدم. في قائمة تحديد دالة، انقر فوق SpellNumber، ثم انقر فوق موافق. أدخل الرقم أو مرجع الخلية المرادين، ثم انقر فوق موافق. Excel 2007 و 2010: حدد الخلية التي تريدها. انقر فوق إدراج دالة على الشريط الصيغ . ضمن أو تحديد فئة، انقر فوق معرفة من قِبل المستخدم. في قائمة تحديد دالة، انقر فوق SpellNumber، ثم انقر فوق موافق. أدخل الرقم أو مرجع الخلية المرادين، ثم انقر فوق موافق. هذا المثال جاهز من تصميم الاخت زهره Convert_Numbers_into_English_Words.rar

للاخوة الاعزاء ممكن ترجمت هذه النظام بشكل صحيح واعادة ارسالها ليستفاد منها ومن بعض الافكار فيها lممتاز.rar

هل تقصد اعداد ترقيم الصفحات في اكسس

بارك الله فيك اخي وفيكم جميعا

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

Sub FindTextInDatabase() strSearchText = "find this text" Dim varTableDef As TableDef, varTableName As String, varFieldObj As Field, varFieldName As String, varFieldType As Integer Dim varCN As ADODB.Connection, varRS As ADODB.Recordset Dim strSearchText As String, strSearchClause As String 'Loop through every table For Each varTableDef In Application.CurrentDb.TableDefs varTableName = varTableDef.Name 'Loop through every field in the table For Each varFieldObj In varTableDef.Fields varFieldType = varFieldObj.Type 'If not a system table and if a memo or text field then run query to find text If Left(varTableName, 4) <> "MSys" And Left(varTableName, 4) <> "usys" And Left(varTableName, 1) <> "~" And (varFieldType = dbMemo Or varFieldType = dbText) Then varFieldName = varFieldObj.Name varFieldRefID = varTableDef.Fields(0).Name Set varCN = CurrentProject.Connection Set varRS = CreateObject("ADODB.Recordset") varRS.CursorLocation = adUseClient 'adUserServer would be faster, but need RecordCount. could use adUserServer and SELECT Count(ID) From MyTable to get count too varRS.CursorType = adOpenForwardOnly varRS.LockType = adLockReadOnly varOkay = varRS.RecordCount > 0 If varOkay Then vSQL = "SELECT [" & varFieldRefID & "], [" & varFieldName & "] FROM [" & varTableName & "] " & strSearchClause varRS.Open vSQL, varCN 'Do something here to add it to GridView or DataTable or Repeater Control to display results to user on seperate page(like google) varRS.Close Set varRS = Nothing End If End If Next Next End Sub

هذه محاولة متميزة من الاخوة المبرمجين المتميزين قام بعملية برمجة البحث عربي انجليزي تكتب حتى في حالة عدم التحويل اللغة يبحث بنفس طريقة جوجل المطلوب هو تطوير الفكرة بنفس الفورم ser م1-جعل التكست اللست مطاطي يطول ويقصر على قدر البيانات المبحثة بنفس جوجل . 2- التكست اللست يختفي ويظهر عندما تقوم بالبحث فيه . 3- تنتقل البيانات من اللست الى تكست البحث بمجرد النقر عليها وتستقر في الجدول الحقل المخصص للاسم 4- التلوين على الاسم عند المرورعليه الى لون اخر خطوات للوصول الى بحث جوجل.rar

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

كيف لم افهم قصدك

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

سويت كما قلت مانفع او اني سويتا بطريقة مش صحيحه مانفع اخي العزيز

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

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

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

ممتاز اخي بارك الله فيك وفي اوقاتك واولادك وشكرا الف شكر

بارك الله فيكم جميعا اخواني الاعزاء وجعل كل السعي للمساعدة يعود عليكم بالخير

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

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

مشكلة عندما ضع المعيار التالي في حقل التاريخ في الاستعلام اسمه q_aa لايظهر لي رصيد الفترة قبل التاريخ الدي وضعته وعندما احذفه يظهر ولكن الفترة ي التقرير لاتنحصر بسبب حذف المعيار والمعيار هو >=[forms]![fr_dat]![ta1] And <=[forms]![fr_dat]![ta2] كيف حل هذه المشكلة حاسس انها سهلة ولكن دماغي مقفل الان من يحلها له مني خالص الدعاء والشكر تجربه.rar