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

اتفضل ده مثال من أستاذى @دروب مبرمج Replace.accdb

طيب يا باش مهندس انا اكتشفت السبب اخيرا فى المشكلة عندى انا كنت فاتح اكثر من قاعدة اعدل على واحدة واجرب على واحدة تانى خالص منشان هيك ما كنت احصل اى نتيجة وشكيت فى نفسي ما انتبهت الا الان وعلى كل جزاكم الله خيرا ولارد بضاعتكم اليكم يا باش مهندس @Eng.Qassim سوف استخدم الكود بهذا الشكل If Nz(strOptionExtension, "") = "" Then .Filters.Add "Select File", "*.*" Else: .Filters.Add "Select File", strOptionExtension

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

تفضل أخي حسب مافهمت تقرير للكل وتفرير للرقم المختار ووافني بالرد test-1.rar

انشئ مديول جديد و الصق فيه الشفرة التالية Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String On Error GoTo errorhandle Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & EncodeQP2(strInput) Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.Send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.ResponseText .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit End Function Function EncodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String Dim n As Long For i = 1 To Len(s) n = AscW(Mid(s, i, 1)) If n < 128 Then r = r & "%" & Hex(n) ElseIf n < 2048 Then p1 = n \ 64 r = r & "%" & Hex(p1 + 192) p2 = n Mod 64 r = r & "%" & Hex(p2 + 128) Else End If Next i EncodeQP2 = r End Function و في حصل الاستعلام او النموذج او اي مكان ضع التالي Translate([TextBox1], "auto", "en")

برنامج عقارات مفتوح المصدر يمكن استخدامه الرقم السري 1975 ستجد ملف بعض الشروحات بالمجلد بعد فتح ضغط الملف ضع المجلد كاملا في c نرجو الإفادة estate.zip

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

كل ما يمكن عمله باستخدام GoTo يمكن عمله عند استخدام Resume Next، يفترض على المبرمج الإحاطة بما يكتب وبأخطاء التشغيل وكيف يصطادها ويعالجها أو تجاوزها. مشكلة البعض يعتقد أن استخدام GoTo مرحلة متقدمة وخاصة بالمبرمجين المتقدمين والأخرى خاصة بالمبتدئين وبمن يبرمج بـ "البركة". كل صنعة بها المتعلم وبها المتثقف بها بدون تعلم وبها الخبير وبها الهاوي والتلميذ والطالب، كما أن البرمجة مثل الطبيخ وليس البطيخ 🙂 وكل له "نفس" بفتح الفاء وبصمة خاصة به. رسالتي للجميع: لا تعتاد على شيء وتعتقد أنه الأفضل وتحاول فرضه على الآخرين.

انا بقصد ان هذا الملف فيه طلبك ممكن تضيف وتنقص أوراق العمل كما تريد بنفس الطريقة وتنقل الأكواد التي اضفتها انت اليه بكل سهولة او كان من المفروض رفع هذا الملف من قبل تفاديا لتكرار الاشتغال على الملف أكثر من مرة بالتوفيق...

حمدا لله على سلامتك استاذ خليفة

كل الإحترام والتقدير لك ، على رأي الإخوة السوريين في مثل عندهم يقول ( نهز الورد لحتى نشم ريحته 🌹 )

أخي الكريم @ابو جودي ، هل تقصد من كلامك أنك تريد اختيار صورة من مكان ما ، وحفظها مع امكانية تغيير اسم و امتداد الصورة ؟؟ هذه تجربة صغيرة خطرت في بالي ، وأعتقد نستطيع التطوير عليها لتلبي حاجتنا بجهود الإخوة 😊 من خلال فكرة اني اختار صورة شعار لبرنامجي من خلال نموذج بيانات الشركة وددت ان يكون مكان حفظ الصور في مكان خاص قريب من البرنامج ، وبطريقة ملتوية جعلت البرنامج عند اختيار الصورة يقوم بحفظها في المجلد بامتداد مصدره قائمة منسدلة قابلة للتعديل ..... شوف المرفق أفضل من شرحي 😂 والصحيح اني عندما رأيت أنك من فريق الموقع ترددت وخفت من الإجابة 😁 ( أمزح طبعاً 😅) * ملاحظة :- طبعاً انا لم استخدم الكود الذي تعمل عليه. Pic.accdb

وعليكم السلام استاذ @ابو جودي هي محاولة ..استبدل السطر اعلاه ب If Len(strOptionExtension) > 0 Then .Filters.Add "Select File", strOptionExtension Else .Filters.Add "Select File", "*.jpg;*.png" End If الاستدعاء .. Dim selectedFile As String selectedFile = CustomPicker(0, "*.jpg;*.png")

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

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

لتنسيق تاريخ اليوم الحالي نستعمل هذه المعادلة =TEXT(TODAY(),"m/d/yyy") ويمكن تغيير today إلى مرجع خلية بها تاريخ بالتوفيق

مع ان خونا شايب مبتدئ في الاكسس والحاسب بشكل عام واغلب الحوار هنا بين محترفين واساتذة ولم يستوعب منه الا اقل القليل الا انه يعتقد ان الملف التنفيذي يمكن استخراج محتوياته لذا بعض المحترفين يقومون بعمل ملف تنفيذي مشفر ومضغوط لتصعيب عملية الفك ومع ذلك فهناك ادوات تقوم بفك التشفير والضغط ولكن هذا موضوع كبير ويحتاج الى خبرات في الهندسة العكسية بالنسبة للملف برنامج بيع.accde لم يعمل معي لكوني استخدم اصدار 64 بت اخيرا الاخ شايب لم يقم بتنصيب البرنامج لكونه لا يقوم بتشغيل اي ملف exe حتى لو كان من اخ عزيز وثقه مثل استاذنا ودكتورنا المبجل د حلبي فهو يتمثل بالقول يؤتى الحذر من مكمنه لذا اكتفى باستخلاص ملف الاكسس اخونا شايب

تفضل اخي سعد محمد_2.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي سعد تم تنفيد دالك مع بعض التحسينات البسيطة على الاكواد Private Sub UserForm_Initialize() Dim A, B, C, D Set WSData = ActiveSheet rngData = ActiveSheet.ListObjects(1).Name A = [Tableau1]: B = [Tableau2]: C = [Tableau3]: D = [Tableau4] Colonnes = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Tbl = Range(rngData).Value Rng = UBound(Tbl, 2) Me.ListBox2.List = Tbl Me.ListBox2.ColumnCount = Rng ListBox2.ColumnWidths = "50;65;180;80;75;75;65;80;60;35;40" Transférer Me.ListBox1.Visible = False Me.Show_file.Caption = "إظهار ملف العمل" NbLigne = [Tableau1].Rows.Count + [Tableau2].Rows.Count + [Tableau3].Rows.Count + [Tableau4].Rows.Count If Me.ComboBox1.Value = Empty Then Counter.Caption = "المجموع" & " / " & NbLigne Else Counter.Caption = Me.ComboBox1.Text & " / " & ListBox2.ListCount + 0 End Sub

تفضل هذا مثال على الاضافة و الحذف و التعديل و فراغ الحقول لنموذج غير منضم الاضافة و الحذف.accdb

وعليكم السلام طبعا يوجد باستخدام recordset او باستخدام استعلام الحاق

بالمناسبة ... UcanAccess ...لايعمل ان كان هناك ماكرو

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

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

@M.NHAKAMI ولكن لماذا كل هذه الاسطر وعدم تنظيم في ارقام الليبل ؟! اقترح عليك بجعل ارقام الليبل بشكل متتالي حتى تسهل الامر عليك ومن تم وضعها في حلقة تكرارية ووضع الخلايا في مصفوفه على اي حال في نهاية مدى كل خليه ضع كلمة TEXT هذا مثال Label163.Caption = Sheets("دراسة فندق").Range("h6").Text

أخي الكريم يجب أولا ضبط المدخلات بحيث أن كل جزء ج1 أو ج2 وهكذا يحتوي على 3 صفوف أعلاه ثم 12 صف أرقام ثم 3 صفوف أسفله وعليه يكون عدد صفوف الجزء 18 صفا ومعنى ضبط المدخلات أن تكون هذه الطريقة هي المتبعة في جميع الخلايا من ج1 حتى ج 9 ويمكنك استعمال هذه المعادلة في الخلية C8 ثم سحبها لأسفل =COUNTIFS(INDIRECT("'1'!C"&(B8-1)*18+1&":C"&B8*18),">"&0) وهذا ملفك بعد تنفيذ الفكرة على شيت 1 فقط بالتوفيق جمع عدد المستندات في القائمة حسب شروط.xlsm

حدد الخلايا المطلوب تنسيقها ثم اضغط CTRL+1 لفتح نافذة تنسيق الخلايا format cells في التبويب الأول رقم number اختر تاريخ date واختر من الجزء الأيمن تنسيق التاريخ المطلوب وإذا لم تجد المطلوب غير نوع التقويم من أسفل الجزء الأيمن ستجد تنسيقات أكثر بالتوفيق

عليكم السلام ورحمة الله وبركاته يمكنك استخدام هذه المعادلة في الخلية J9 =IF(F9=5,IF(COUNTIF($F$9:F9,5)/COUNTIF($F$9:$F$1000,5)<=0.5,"الفرح","الزهور"),"اشراقة") بالتوفيق

جرب أن تضع هذه المعادلة في الخلية B3 =IF(A3<=100,A3*1.5,IF(A3<=150,150+(A3-100)*2,IF(A3<=200,250+(A3-150)*5,500+(A3-200)*6))) على افتراض أن الأكثر من 200 ب 6 وطبعا ال 150 عبارة عن 100 في 1.5 وطبعا 250 عبارة عن 150 + ( 50 في 2) وطبعا ال 500 عبارة عن 250 + (50 في 5) بالتوفيق

اخي sabah2023 ضع المعادلة هذه في اي خلية تحددها واكتب رقم القائمة في F12 ..... واكتب الشيء المراد البحث عنه في F13 ... وستجد النتيجة =IF(F12=1;COUNTIF($A$2:$D$16;F13);IF(F12=2;COUNTIF($A$22:$D$36;F13)))

وعليكم السلام ورحمة الله وبركاتة تفض =COUNTIF($A$2:$D$36;$F$12)

لم اجد تفاعل أو اى رد يدل على نجاح فاعلية التطبيق والتجربة وهذه القواعد للتجربة تم مراعاة عند كتابة الأكواد العمل على كل من النواتان 32x , 64x استاذى الجليل الاستاذ @Moosak اردت فقط الاطمئنان على المكتبة العامرة Moh3sam.zip

يعمل بكفائة اذا المشكلة في اعدادات اللغة لدى صاحب الطلب