-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-
-
عدد المشاركات
3,000 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
el-shazly أعطى سمعة إيجابية لــ إجابة على سؤال: حساب الارصدة بطريقة الوارد أولا يخرج أولا FIFO
-
عبدالرحمن هاشم أعطى سمعة إيجابية لــ إجابة على سؤال: [ تمت الإجابة ]اغلاق وفتح نموذج فرعي داخل نموذج رئيسي عن طريق زر أمر
-
عبدالرحمن هاشم أعطى سمعة إيجابية لــ إجابة على سؤال: [ تمت الإجابة ]طريقة احتساب الوقت المتبقي
-
الي هل الخبره والمعرفه (مشكله لم اجد لها حل)
mrnooo2000 رد على ahmed_204079's موضوع في قواعد بيانات Microsoft Access
تفضل أخى الميزانية اضافة.accdb -
تحويل الملف المرفق الي اكسيس
mrnooo2000 رد على himaabohager's موضوع في قواعد بيانات Microsoft Access
تفضل أخى xlx.mdb -
هل يوجد كود لتحويل قاعدة البيانات إلى إمتداد accde أوmde
mrnooo2000 رد على عبدالرحمن أحمد's موضوع في قواعد بيانات Microsoft Access
الامر ليس بهذه البساطة اولا لا يمكنك عمل ذلك من نفس قاعدة البيانات و لكن سيتوجب عليك استخدام قاعدة بيانات خارجية ثانيا يجب أن تتأكد من عدم وجود أخطأ بأكواد قاعدة البيانات لأن اى خطأ سيمنع عملية التحويل ثالثا سنقوم باستخدام Undocumented SysCmd Function SysCmd 603 Dim objAccess As Object 'Create the Access Automation object Set objAccess = CreateObject("Access.Application") 'Now call the undocumented function... objAccess.SysCmd 603, strPathSourceMdb, strPathOutputMde Set objAccess = Nothing -
aimanano أعطى سمعة إيجابية لــ إجابة على سؤال: [ تمت الإجابة ]اغلاق وفتح نموذج فرعي داخل نموذج رئيسي عن طريق زر أمر
-
نهى عيسى أعطى سمعة إيجابية لــ إجابة على سؤال: محتاج ثيمات أو SKIN لتجميل المشروع
-
start access أعطى سمعة إيجابية لــ إجابة على سؤال: ملاحظات قبل كتابة موضوع جديد
-
محتاج ثيمات أو SKIN لتجميل المشروع
mrnooo2000 رد على ABO-TALAL's موضوع في Microsoft Visual Basic.NET
اخى الكريم العلم متاح و موجود و لو كلفت نفسك بالبحث لوجدت الكثير جرب أى من هذه المشاركات بالرابط http://arabteam2000-forum.com/index.php?/search/- 2 ردود
-
1
-
من الواضح أن هذا الكود تم الحصول عليه من ملف exe بعد فكه بأحد البرامج Decompiler الاسهل لك أخى أن عمل نموذج جديد عموما المرفقات بها النموذج المطلوب كل ما عليك الا اضافة الملفات الى المشروع لكن هناك جزء بكود النموذج يعتمد على أنه لديك نموذج باسم Form7 و متغير فى موديول module1 باسم Path1 Form118.rar
-
أخى السائل ضع مثالك هنا أو على الأقل ضع الكود حتى يمكننا المساعدة
-
جرب أخى هذا التعديل Private Sub code_AfterUpdate() Dim x As Integer x = Nz(DLookup("[id_m]", "[movemnt_fleet]", "[code] = " & Nz(Me.code, 0)), 0) If x > 0 Then Beep MsgBox "هذا الموقف محجوز لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الموقف المكرر بكامل بياناته" Me.Undo DoCmd.GoToRecord , , acGoTo, x End If If [code] > 301 Then Beep MsgBox "عددالمواقف كامل" Me.Undo End If End Sub
-
GAVAN بدأ بمتابعة mrnooo2000
-
Hosain21 أعطى سمعة إيجابية لــ إجابة على سؤال: كيف يتم الغاء النص المتحرك من خانه الاختيار
-
abrhem11 بدأ بمتابعة mrnooo2000
-
mnaser بدأ بمتابعة mrnooo2000
-
تفضل أخى Database3.mdb
-
اخى الكريم الموضوع يحتاج الى اعادة تفكير انت تحتاج الى عدد اذا انت تحتاج الى استخدام دالة dcount و ليس dlookup و لا يمكن لاى منهما البحث فى اكثر من عمود بالجدول لذلك ستحتاج الى جمع ناتج البحث فى كل عمود لتحصل على ما تريد text1=DCount("[vac1]","[book]","[vac1]=" & " سرير كهربائي ")
-
فى هذه الحالة الحل بسيط أخى الكريم فقط سنعدل فى حقل المجموع فى التقرير ليكون بهذا الشكل =Sum([2]+[1]*100)
-
حتى يمكن ايجاد حل مناسب لما تريد يجب ان نعرف كيف يتم ملء الحقلين الاول و الثانى الذى يستمد منهما الحقل الثالث قيمته و لكن نصيحتى لك الا تحتفظ بقيمة الحقل المحسوب فى الجدول و الافضل استحدام استعلام لعرض القيمة .
-
akabawya بدأ بمتابعة mrnooo2000
-
hideriraqi أعطى سمعة إيجابية لــ إجابة على سؤال: عمل زر بحث في نفس النموذج
-
kwedu أعطى سمعة إيجابية لــ إجابة على سؤال: مشكلة في عدد سنوات الخدمة
-
هذه الدالة تعطيك ما تريد و بدون الحاجة الى جدول ثانى يمكنك عرض اى جزء تريده فى استعلام او نموذج Function Text2Columns(AnyName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim I As Integer, U As Integer Clear_Extra_Spaces: '================= If InStr(1, AnyName, " ", 1) > 0 Then AnyName = Replace(AnyName, " ", " ") GoTo Clear_Extra_Spaces End If Text2Columns = "" If AnyName = "" Then Exit Function Do U = I I = InStr(I + 1, AnyName, " ", 1) 'find number of spaces in the name If I <> 0 Then TheSpaceNumber = TheSpaceNumber + 1 If TheSpaceNumber = NumberOfPart Then Exit Do ElseIf TheSpaceNumber + 1 = NumberOfPart Then I = Len(AnyName) + 1 Exit Do Else Exit Function End If Loop Text2Columns = Trim(Mid(AnyName, U + 1, I - U - 1)) End Function text to columns.accdb
-
Abualezz أعطى سمعة إيجابية لــ إجابة على سؤال: المقارنة الشاملة بين قواعد البيانات
-
تفضلوا برنامج لمقارنة قاعدة البيانات الحالية مع قاعدة بيانات أخرى.
mrnooo2000 رد على Khodor1985's موضوع في قواعد بيانات Microsoft Access
مجهود جيد اخونا الكريم و فى الرابط التالى مشروع عملنا عليه منذ فترة و يتم من خلال الاداة مقارنة كافة كائنات قاعدة البيانات و ليس الجداول فقط http://arabteam2000-forum.com/index.php/topic/215031-%D8%A7%D9%84%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9-%D8%A7%D9%84%D8%B4%D8%A7%D9%85%D9%84%D8%A9-%D8%A8%D9%8A%D9%86-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA/?hl=%20%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9%20%20%D9%82%D9%88%D8%A7%D8%B9%D8%AF%20%20%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA- 17 ردود
-
1
-
لا يمكنك التحكم فى الواجهة من قاعدة البيانات ما تريده يحتاج الى اكواد تضاف الى البرنامج
-
mrnooo2000 بدأ بمتابعة منع التعديل على قوائم البرنامج
-
[مخالف - عنوان غير مناسب :]ارجو المساعدة
mrnooo2000 رد على A3.com's موضوع في قواعد بيانات Microsoft Access
الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع. قواعد طرح المشاركات http://www.arabteam2000-forum.com/index.php?showtopic=29343 شاكرين لكم حُسن تعاونكم