محمد أبوعبدالله

تفس الفكر اخي الكريم Dim T_Export As String ' T_Export = "SELECT * FROM Table1 WHERE [name] LIKE '*" & Me.Combo7 & "*'" ' T_Export = "SELECT * FROM Table1 WHERE [nam2] LIKE '*" & Me.Combo2 & "*'" T_Export = "SELECT * FROM Table1 WHERE [name3] LIKE '*" & Me.Combo3 & "*'" Set T_Query = CurrentDb.CreateQueryDef("tQueryDef", T_Export) DoCmd.OutputTo acOutputQuery, "tQueryDef", acFormatXLS, CurrentProject.Path & "\Query1.xls", True CurrentDb.QueryDefs.Delete T_Query.name id.rar تحياتي

تفضل اخي الكريم Database31.rar تحياتي

تفضل اخي الكريم الفكرة ببساطة هي كتابة جملة Sql بالتصفية المطلوبة ثم انشاء استعلام مؤقت ثم تصدير الاستعلام الى اكسيل ثم حذف الاستعلام المؤقت Dim T_Export As String T_Export = "SELECT * FROM Table1 WHERE [name] LIKE '*" & Me.Combo7 & "*'" Set T_Query = CurrentDb.CreateQueryDef("tQueryDef", T_Export) DoCmd.OutputTo acOutputQuery, "tQueryDef", acFormatXLS, CurrentProject.Path & "\Query1.xls", True CurrentDb.QueryDefs.Delete T_Query.name id.rar تحياتي

السلام عليكم تفضل اخي الكريم DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, CurrentProject.Path & "\Query1.xls", True Database5.rar تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي DoCmd.OpenReport "we1", acViewPreview, , "[num] = '" & me.num & "'", acWindowNormal DoCmd.OpenReport "we2", acViewPreview, , "[num] = '" & me.num & "'", acWindowNormal تحياتي

السلام عليكم لمعرفة تاريخ الميلاد يجب متابة الرقم القومي اولاً ثم نستخدم الكود التالي Me![تاريخ الميلاد] = Format(IIf(Left([الرقم القومي], 1) = 3, Mid([الرقم القومي], 2, 2) + 2000, Mid([الرقم القومي], 2, 2) + 1900) & "/" & Mid([الرقم القومي], 4, 2) & "/" & Mid([الرقم القومي], 6, 2), "yyyy/mm/dd") ومن تاريخ الميلاد نستطيع تحديد تاريخ المعاش باضافة 60 سنة لتاريخ لميلاد هكذا Me.[تاريخ الاحالة للمعاش] = DateAdd("yyyy", 60, [تاريخ الميلاد]) ميكنة الاعمال الادارية.rar تحياتي

وعليكم السلام ورحمة الله وبركاته اجعل مربع النص >>> كمبوبوكس كما هو موجود في الجدول Database31.rar تحياتي

مرحبا اخي الكريم هل نسخت الكود ووضعه في وحدة نمطية كما هو ؟ هل لديك حقل XID في الجدول ؟ هل انشأت استعلام باسم Query1 ؟ وهل وضعت بالاستعلام ID: SerID([XID];"XID") تحياتي

تفضل اخي الكريم تحياتي

تفضل اخي الكريم جرب الكود التالي If Me.X.Form.RecordsetClone.RecordCount = 0 Then MsgBox "النموذج الفرعي فارغ" end If تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الريم If Nz([X].[Form]![Id], 0) = 0 then MsgBox "النموذج الفرعي فارغ" end If تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

بالضبط تحياتي

وعليكم السلام ورحمة الله وبركاته سنفرض ان لديك جدول به حقل الترقيم باسم XID ننشىئ استعلام باسم Query1 ونضغ فيه الجملة التالية ID: SerID([XID];"XID") ونضع الكود التالي في وحدة نمطية جديدة Function SerID(mID As Variant, fldName As String) As Variant Dim rst As Recordset Dim Fld As Field Dim I As Long If IsNull(mID) Then Exit Function Set rst = CurrentDb.QueryDefs("Query1").OpenRecordset If rst.RecordCount = 0 Then Exit Function Set Fld = rst!XID With rst .MoveFirst Do Until .EOF I = I + 0 If I = 25 Then I = 1 Else I = I + 1 End If If Fld = mID Then Exit Do .MoveNext Loop End With rst.Close SerID = I End Function شغل الاستعلام وانظر النتيجة تحياتي

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

اولا يجب تحويل الملف الى accde ثانيا طريقة التحزيم هذه تم عملها ببرنامج winrar وهي تفتقد الى بعض الخصائص كارفاق ملفات dll فانت تستخدم في البرنامج ملف pdf viewer dll وهو غير موجود في الملف المرفق انصحك باستخدام Smart Install Maker فلديه الكثير من الخصائص كارفاق الملفات وتسجيل المكتبات والخطوط بدون تدخل منك وانشاء اختصار على سطح المكتب او في قائمة ابدأ جرب وان شاء الله ستجده مفيد جدا واليك البرنامج مرفق ارجو من الاخوة اضافة ملاحظاتهم HandicapésV.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته يوجد برامج حاصة لتجزيم البرامج منها Smart Install Maker البرنامج بعدة لغات ويمكن حزم قاعدة البيانات مع ملفات البرنامج ( الخطوط الصور - الريجستري ... الخ ) اخي الكريم سامحني واعذرني فلن تجد في منتدى تعليمي من يقوم بتحميل ملف تنفيذي لا يعلم مصدره لمجرد التجربة ... هذا ليس بسوء ظن وسامحني مرة اخرى تحياتي

ممكن وضع مربع نص غير منضم على النموذج ( مخفي ) مثلاً txt1 ثم نصع في حدث قبل التحديث الكود التالي Private Sub Form_BeforeUpdate(Cancel As Integer) Me.txt1 = 1 If Me.txt1 = 1 Then MsgBox "تم التعديل على قيم النموذج" Else End If End Sub اذا اصبحت قيمة الحقل txt1 = 1 تظهر الرساله تحياتي

تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي Private Sub Form_Open(Cancel As Integer) Dim z0 z0 = DLookup("HIDENX1", "TBsystem") If z0 = -1 Then x1.Visible = True Else If z0 = 0 Then x1.Visible = False End If End If End Sub hid.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub التفاصيل_Click() Me.التوبيب = DLookup("[رقم_التوبيب]", "[جدول_التوبيب]", "[التفاصيل] ='" & التفاصيل & "'") End Sub مستند قيد.rar تحياتي

وضعت فقط تنسيق / Format للوقت فقط لنفس الكود الخاص بك تحياتي

ضع اول الكود on errot goto Err: وفي نهاية الكود Err: exit sub تحياتي

جرب بهذا الشكل If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# Or Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.Sdate = Date - 1 Else Me.Sdate = Date End If تحياتي