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

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

ولا يهون اخوي جعفر .. هنا كود اخر اضف نموذج .. DetectIdelTime .. بالكود الموجود فيه لبرنامجك اضف كود فتحه ( مخفي ) في نموذج البدأ ... واستفسارك الاخير لو فيه طريقه بتوكن ميه ميه اغلاق البرنامج عند عدم التنشيط.rar

الیک

اخى راجع المواضيع السابقه ستجد طلبك

السلام عليكم ورحمة الله قارن بين هذا الكود و الكود السابق وستلاحظ الفرق بنفسك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Dim sh As Worksheet, Found Set sh = Sheets("بيانات") Application.ScreenUpdating = False Application.EnableEvents = False On Error GoTo Skipper Found = Application.Match(Target.Value, sh.Columns(2), 0) Target.Offset(0, 3).Value = sh.Cells(Found, 1).Resize(1, 6).Value Skipper: Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

الدرس السادس: الدوال النصية هنالك الكثير من الدوال المستعملة في VBA و سوف نحاول ذكر الدوال المشهورة منها حسب عملها: Asc: إرجاع عدد صحيح يمثل رمز الحرف الأول في السلسلة النصية. مثال: Me.y = Asc("أوفيسنا") النتيجة=195 Chr: تحويل عدد صحيح إلى حرف أو رمز. مثال: Me.y = Chr("210") النتيجة=ز InStr: استخراج موضع بداية سلسلة ضمن سلسلة أخرى. مثال: Instr(المقارنة,السلسلةالمبحوث عنها,السلسلة التي يتم فيها البحث,مكان بداية البحث) Me.y = InStr(1,"homsalah", "a")=5 InStrRev: إرجاع موضع تواجد سلسلة ضمن سلسلة أخرى بدءا من نهاية السلسلة. InStrRev(المقارنة,بداية البحث,السلسلة المبحوث عنها,السلسلة) Me.y = InStrRev("homsalah", "a", -1)=7 LCase: تحويل حروف سلسلة إلى حروف صغيرة. مثال: Me.y = LCase("ABC")=abc UCase: تحويل الأحرف إلى أحرف كبيرة. مثال: UCase(السلسلة النصية) Me.y = UCase("abcd")="ABCD" Left: ارجاع جزء من سلسلة حرفية حسب عدد الحروف المطلوبة من جهة اليسار. مثال: Left(عدد الأحرف المطلوبة,السلسلة ) Me.y = Left("1999", 2)=19 Len: حساب عدد الأحرف في السلسلة. مثال: len(السلسلة) Me.y = Len("1999")=4 LTrim: حذف الفراغات الموجودة في الجهة اليسرى. مثال: Trim(السلسلة) Me.y = Trim(" 1999")="1999" Mid: ارجاع جزء من سلسلة بحيث تحدد بداية الجزء و طوله (عدد الأحرف). مثال: Mid(عدد الأحرف,نقطة البداية(رقم),السلسلة) Me.y = Mid("SALAH", 3, 2)="LA" Replace: تعويض جزء من سلسلة بجزء آخر. مثال: Replace(الجزء المعوض,الجزء الذي نريد استبداله,السلسلة) Me.y = Replace("SALAH", "H", "T")="SALAT" Right: ارجاع جزء من سلسلة حرفية حسب عدد الحروف المطلوبة من جهة اليمين. مثال: Right(عدد الحروف,السلسلة) Me.y = Right("SALAH", 2)="AH" RTrim: حذف الفراغات الموجودة في الجهة اليمنى لسلسلة. مثال: RTrim(السلسلة) Me.y = RTrim("15 ")="15" Trim: حذف المسافات البادئة و الزائدة من سلسلة. مثال: Trim(السلسلة) Me.y = Trim(" 15 ")="15" Space: ارجاع سلسلة تتألف من عدد من المسافات المحددة. مثال: Space(عدد الفراغات) Me.y = Space(3)=" " Str: ارجاع متغير من نوع string يمثل رقم.(تحويل متغير من نوع رقم إلى متغير من نوع سلسلة نصية) مثال: Str(العدد) Me.y = Str(3)=" 3" Me.y = Str(-3)="-3" تقوم بإرجاع مسافة قبل الأعداد الموجبة StrComp: ارجاع عدد صحيح يشير إلى نتيجة مقارنة سلسلتين.إذا كانت متساوية يرجع 0 و إذا كانت مختلفة يرجع 1 أو 1- مثال: StrComp(السلسلة2,السلسلة1,المقارنة) Me.y = StrComp("ass", "ass")=0 Me.y = StrComp("as", "ass")=-1 StrConv: ارجاع سلسلة تم تحويلها كما هو محدد. مثال: StrConv(رقم يمثل رمز التحويل,السلسلة,LCID) Me.y = StrConv("ass", 1)="ASS" رموز التحويل: 1: يحول السلسلة إلى أحرف كبيرة 2: يحول السلسلة إلى أحرف صغيرة 3: يحول الحرف الأول من كل كلمة في السلسلة إلى حرف كبير 64: تحول السلسلة إلى Unicode باستخدام مخطط الشفرة الافتراضي للنظام. 128: تحول السلسلة إلى Unicode باستخدام مخطط الشفرة الافتراضي للنظام. و هذا الرابط به مختلف الرموز: https://support.office.com/ar-SA/article/الدالة-StrConv-19c3816f-dbc9-4adf-891c-fd32734c92e0 String: تكرار أحرف بعدد معين. مثال: String(الحرف, عدد التكرارات) Me.y = String(3, "S")="SSS" StrReverse: قلب ترتيب أحرف سلسلة نصية. مثال: StrReverse(السلسلة) Me.y = StrReverse("ABCD")="DCBA"

أخي الكريم مفيش حاجة اسمها موضوع صعب ، لكن فيه حاجة اسمها شرح مش واضح أو مفيش تفاصيل كفاية حاول دايماً يكون فيه شرح مفصل + نتائج متوقعة + إرفاق ملف وبعض الصور للتوضيح (وشوف الردود في الموضوع هتكون إزاي) وإنت بنفسك جربت قبل كدا موضوعات طرحتها وكانت الاستجابة فيها سريعة ويمكن كانت أصعب من موضوعك ده ، لكن الفكرة دائماً في التوضيح الأمثل

وعليكم السلام قم بطرح طلبك في موضوع مستقل لتجد استجابة بشكل أفضل

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

السلام عليكم أخي كريمو امر فتح التقرير عندك لازم يكون هكذا Dim stDocName As String stLinkCriteria = "EmployeeID=" & Me.EmployeeID stDocName = "x03" 'DoCmd.OpenReport stDocName, acPreview DoCmd.OpenForm "PrintPreviewFrm", , , , , acDialog, stDocName & ";" & Me.Name . انت لا تفتح التقرير ، وانما تفتح النموذج PrintPreviewFrm ، وترسل اليه اسم التقرير واسم النموذج الذي به زر فتح التقرير ، والنموذج PrintPreviewFrm هو الذي يقوم بفتح التقرير جعفر

السلام عليكم اخي أبونادر البحث السابق كان لجميع الحقول ، والبحث الجديد يجب ان يكون لجميع الحقول و بين التاريخين ، والظاهر انك نسيت البحث في الحقول ، وعملت البحث بين تاريخين فقط جعفر

أخي راجع ما كتبته لعل فيه خطأ الرجاء أعطاء مثال تفصيلي كما في مشاركتك في الأعلى

اخي الكريم راجع قاعده‌ بياناتك مجددا اعمل تعديلات عليه Database5 (1).rar

الان انا بستخدم موبايل غدا ان شاء الله راح اعمل على القاعدة البيانات اذا ما سبقني احد انتظرني

موضوع في غاية الروعة ..من الدرر

بارك الله فيكم ابداع ما بعده ابداع

جزاكم الله خيرا جميعا

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

طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله التحقق من الصحه بربط كومبكس في حدث الصفحه اليكم الكود يشرح نفسه ومرفق مثال Option Explicit Private Sub TempCombo_KeyDown(ByVal _ KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) Select Case KeyCode Case 9 ActiveCell.Offset(0, 1).Activate Case 13 ActiveCell.Offset(1, 0).Activate Case Else End Select End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Dim wsList As Worksheet Set ws = ActiveSheet Set wsList = Sheets("æÑÞÉ1") Cancel = True Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .ListFillRange = "" .LinkedCell = "" .Visible = False End With On Error GoTo errHandler If Target.Validation.Type = 3 Then Application.EnableEvents = False str = Target.Validation.Formula1 str = Right(str, Len(str) - 1) With cboTemp .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 15 .Height = Target.Height + 5 .ListFillRange = str .LinkedCell = Target.Address End With cboTemp.Activate End If errHandler: Application.EnableEvents = True Exit Sub End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Application.EnableEvents = False Application.ScreenUpdating = False If Application.CutCopyMode Then GoTo errHandler End If Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .Top = 10 .Left = 10 .Width = 0 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With errHandler: Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End Sub abood.rar

اخي واستاذي يحياوي : بداية اشكرك على المرفق بشأن كود التفسم واشكر لك اهتمامك هنا كود : يقوم هذا الكود بفرز البيانات بمجرد الضغط المزدوج Double Click على أي عنوان من عناوين الأعمدة Headers في الصف الأول تحياتي للجميع وفقكم الله ياسر الحافظ فرز.rar

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

العزيز يحياوي : بداية اشكرك كود يقوم بعمل حماية على جميع أوراق العمل في ملف أكسيل مع ملاحظة كود تقسم الخلايا لم يعمل معي ؟؟ ربما لم اعرف التعامل معه ارجو المساعدة في اعادة الكود بملف اكسل آخر ... وعذرا وفقك الله ياسر الحافظ حماية مصنف.rar

أخي الكريم تحية طيبة وبعد ،،،،،،،،،،،،، اليك هذه القاعدة حيث تتكون من نموذجين أحدهم للإدخال ومن خلاله تستطيع ادخال بيانات المشتركين واذا تكرر نفس الرقم المدخل سوف تظهر رسالة بذلك والآخر للتعديل حيث بامكانك ادخال رقم المشترك تظهر جميع بياناته والآن أتركك مع تنزيل القاعدة. مع خالص تحياتي لك بالتوفيق BILLS_WATER.rar