بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
كل الانشطه
- الساعة الأخيرة
-
sheet1.Range("i1") = ComboBox1.Text TextBox1.Value = sheet1.Range("i2").Value Dim a Dim i As Long Me.ComboBox1.Text = StrConv(Me.ComboBox1.Text, vbProperCase) Me.ListBox1.Clear For i = 3 To Application.WorksheetFunction.CountA(sheet1.Range("A:A")) a = Len(Me.ComboBox1.Text) If Left(sheet1.Cells(i, 6).Value, a) = Left(Me.ComboBox1.Text, a) Then Me.ListBox1.AddItem sheet1.Cells(i, 1).Value Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sheet1.Cells(i, 2).Value Me.ListBox1.List(ListBox1.ListCount - 1, 2) = sheet1.Cells(i, 3).Value Me.ListBox1.List(ListBox1.ListCount - 1, 3) = sheet1.Cells(i, 4).Value Me.ListBox1.List(ListBox1.ListCount - 1, 4) = sheet1.Cells(i, 5).Value Me.ListBox1.List(ListBox1.ListCount - 1, 5) = sheet1.Cells(i, 6).Value End If Next i يوجد خطاء عند الدخول فى (( Me.ListBox1.Clear )) و يكوم باظهار العامود الاول فقط
- Today
-
ولا يهمك أخي الكريم 🤗 على العموم لتوضيح الفكرة لديك . في الجدول وداخل الحقل المحسوب لا يمكنك التعديل او الإضافة فيه نهائياً.
-
كيف ابدأ فى هذا المشروع ( طلب مشورة ونصيحة )
kkhalifa1960 replied to ابو محمد 4's topic in قسم الأكسيس Access
تفضل استاذ @ابو محمد 4 المرفق بعد التعديل. ومعه شرح عمله .ووافني بالرد . هنا الشرح https://www.mediafire.com/file/nc4hq82nq7xeotw/150.gif/file واليك المرفق DDTest506-2.rar -
تعديل التقرير وترتيبه من المبلغ الاكبر الي الاصغر
ابوالعزائم replied to ابوالعزائم's topic in قسم الأكسيس Access
شكرا اخي وفي انتظاركم غدا اذا توفر لكم الوقت ان شاء الله . -
تعديل التقرير وترتيبه من المبلغ الاكبر الي الاصغر
Foksh replied to ابوالعزائم's topic in قسم الأكسيس Access
ولا يهمك أخي الكريم ، إن شاء الله سأتابع معك والأساتذة ، ولكن دوامي انتهى اليوم بنهاية الأسبوع ، إن استطعت غداً سأرسل لك طلبك -
الرصيد التراكمى للـ (شرا ء ـ بيع ـ مرتجع شراء ـ مرتجع بيع) جملة وقطاعى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
أخي الدكتور @الحلبي ، في مربع النص Text131 اجعل مصدره هذه الجملة :- =IIf([unitmain]="جملة",[qtyin]+[qtyout]+[reout]+[rein],([qtyin]+[qtyout]+[reout]+[rein])/[no]) أو هذه الكود لإختلاف النتيجة التي تريدها في فكرة الحساب التراكمي :- =IIf([unitmain]="جملة",[qtyin]-[qtyout]+[reout]-[rein],([qtyin]-[qtyout]+[reout]-[rein])/[no]) وأخبرني بالنتيجة إن كانت صحيحة -
كيف ابدأ فى هذا المشروع ( طلب مشورة ونصيحة )
kkhalifa1960 replied to ابو محمد 4's topic in قسم الأكسيس Access
أبشر أخي -
بارك الله فيكم جميعا استاتذتي
-
قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××
-
أخي الكريم هذا يعتمد على طريقة بنائك للجداول وآليه جلب السعر في نموذج الفاتورة وأمور كثيرة ، ولكن كما قلت لك بتصوري ان الفواتير السابقة سيتم تخزينها في الجداول وما يمكن تغييره هو الحقول المرتبطة كمثال :- اسم العميل ، اسم المورد ، اسم الصنف .... الخ . قمت بتصميم عدة برامج للمحاسبة ولم أواجه هذه المشكلة في البرامج
-
تعديل التقرير وترتيبه من المبلغ الاكبر الي الاصغر
ابوالعزائم replied to ابوالعزائم's topic in قسم الأكسيس Access
الأخ Foksh هل يمكنك مساعدتي في إعادة هيكلة الاستعلامات والتقارير فمعرفتي محدوده وانا محاسب ولست خبير مثلكم والبرامج بساعدني كتير في عملي مشكورا -
ابوالعزائم started following Foksh
-
كيف ابدأ فى هذا المشروع ( طلب مشورة ونصيحة )
ابو محمد 4 replied to ابو محمد 4's topic in قسم الأكسيس Access
بارك الله فيكم استاذى الفاضل كيف ابداء الفاتورة عند بدايتها لا تعمل معى جيدا -
بمنتهى الوضوح يؤثر ام لا طيب لو حبيت اخليه يأثر الفوتير القديمة لا تهمنى
-
كيف أقوم بتغيير كلمة المستخدم وكلمة السر
حسونة حسين replied to Hussein Taso's topic in منتدى الاكسيل Excel
بارك الله فيك اخى كمال اخى السائل هذا رابط للموضوع الاساسي للمرفق الذي في سؤالك يمكنك الاستفاده منه -
نداء الدين joined the community
-
تعديل التقرير وترتيبه من المبلغ الاكبر الي الاصغر
Foksh replied to ابوالعزائم's topic in قسم الأكسيس Access
طريقتك في بناء التقرير والاستعلامات اعتقد تحتاج الى اعادة هيكلة للحصول على النتيجة المطلوبة . -
انا صممت برنامج محاسبة ولما بعد فترة نعدل سعر الشراء والبيع كان يؤثر على كل الفواتير حتى لو كانت قبل 5 سنوات الحل اني الغيت سعر الشراء وسعر البيع من جدول الاصناف وجعلته يضاف يدويا لكل فاتورة
-
سلام ..اعتذر استاذي على الحاحي في الطلب ولاكن هل ممكن تقول لي متى ستعود لاني واللهي محتاجه لهذا الطلب كثير وساكون شاكرة لك وداعيه لك من القلب وعذرني 😊
-
تعديل على كود لفتح تبويب معين على حقل معين
عبد اللطيف سلوم replied to jo_2010's topic in قسم الأكسيس Access
جرب ضع me.creat.setfoucus بدل اخر سطر -
تعديل التقرير وترتيبه من المبلغ الاكبر الي الاصغر
عبد اللطيف سلوم replied to ابوالعزائم's topic in قسم الأكسيس Access
ضع معيار في الاستعلام تحت المتبقي 0<> لا تساوي صفر هيك لا تظهر معك أي قيمة صفر بالمتبقي -
شكرا لحضرتك
-
Abd EL Rahman Saeed joined the community
-
استكمالاً لما سبق في النموذج Home 👆 :- نستكمل العمل لضبط الوقت المتبقي لكل صلاة خلال اليوم ، بحيث عندما يحين موعد صلاة الظهر مثلاً يتغير الوقت لإحتساب الوقت المتبقي لصلاة العصر ( وقت تنازلي ) . وهذا العمل من شأن حدث On Timer وعليه فإننا سنخبره انه مقارنة مع الوقت الحالي كم تبقى لحين موعد صلاة الفجر ( على سبيل المثال ) ؟ فسيقوم الكود التالي بحساب جملة الأوقات لكل صلاة وإدراجها في مربع النص الذي سنتحدث عنه وغيره فيما يلي :- ✨ مربع النص Txt_Pry_Name = عرض اسم الوقت الحالي للصلاة ( فجر , ظهر , عصر , مغرب , عشاء ) . ✨ مربع النص Txt_Time_Count = هنا سيتم عرض الوقت المتبقي لكل صلاة بالتنسيق ( 00:00 بعداد تنازلي ) . وحين يتبقى دقيقة واحدة على موعد الأذان سيصبح العداد الزمني بهذا التنسيق ( 00:00:59 ) ويبدأ بالنزول كل ثانية إلى حين موعد الأذان التالي فسيعود إلى التنسيق السابق ( 00:00 ) . طبعاً حالياً سيتم عرض رسالة عادية فقط عند دخول وقت الصلاة مفادها : ( "حان الآن موعد أذان الفجر" ) . وهذا الكود الذي سيقوم بالمهام التي ذكرتها لكم Private Sub Form_Timer() On Error Resume Next Dim tfajr As Date, tzohr As Date, tasr As Date, tmagrib As Date, tisha As Date Dim dt As Integer Dim currentTime As Date, nextPrayerTime As Date, timeLeft As Date Dim hoursLeft As Integer, minutesLeft As Integer, secondsLeft As Integer Dim fajrTime As Date, Country_Name As String If Me.daylight = True Then dt = 1 Else dt = 0 End If tfajr = GetTimes(Me.longitude, Me.latitude, Me.timezone, "fajr", Me.tx, dt, Date) currentTime = Time fajrTime = CDate(Me.fajr) Country_Name = DLookup("[city_name]", "City", "ID=" & [city_name]) If currentTime < fajrTime Then Txt_Pry_Name.Value = "الفجر" nextPrayerTime = fajrTime Else Txt_Pry_Name.Value = "الفجر" nextPrayerTime = DateAdd("d", 1, fajrTime) End If If currentTime < nextPrayerTime Then timeLeft = nextPrayerTime - currentTime Else timeLeft = DateAdd("h", 24, nextPrayerTime) - currentTime End If hoursLeft = Hour(timeLeft) minutesLeft = Minute(timeLeft) secondsLeft = Second(timeLeft) If Me.Txt_Time_Count = "00:00" Then Me.Txt_Time_Count = "00:00:59" Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") & ":" & Format(secondsLeft, "00") Else Me.Txt_Time_Count = Format(hoursLeft, "00") & ":" & Format(minutesLeft, "00") End If Me.Caption = Country_Name & " " & "بقي لصلاة " & Txt_Pry_Name & " " & Txt_Time_Count & " تقريباً" & " ، في مدينة " If Time() = tfajr Then MsgBox "حان الآن موعد أذان الفجر", , "" End If End Sub Salawat.accdb يتبع ... 👈
-
صديقي ، هذه المشاركة عمرها تقريباً 10 سنوات ، افتح موضوع جديد لتتم متابعته
-
لحد ما فهمت الدنيا عاملة ازاي في الملف قدرت اوصل للمطلوب 😅 في النموذج NewPU > في الزرار U حط الكود ده Private Sub U_Click() DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara]!Normal.SetFocus ElseIf Me.TN.Caption = "Creat" Then Forms![newpara].Chemistry.SetFocus DoCmd.GoToControl "Creat_Print" ElseIf Me.TN.Caption = "Lipids" Then Forms![newpara]!Cholesterol.SetFocus ElseIf Me.TN.Caption = "Liver" Then Forms![newpara]!ALT(SGPT).SetFocus End If End Sub