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

بعد اذن اخي علي Book12.xlsm

السلام عليكم ورحمه الله وبركاته أخي أبو يحي معذرتا السموحه لم احصل على وقتي لمساعدتك لظروف قاهره نشكر الأستاذ الخبير كناري على ما قدمه لك وللحبايب بالمنتدي تحياتي اليكم

والسبب يرجع لان حضرتك عمل هذا ونسيت هذا تحياتي

الكود يعمل بمنتهي الكفاءة شكرا جزيلا استاذي @kanory ربنا يجزيك كل خير لكن هو فيه مشكلة صغيرة بعد الرسالة اللصق اللي بتظهر وبالضغط علي موافق لا يظهر النسخ الا بعد غلق النموذج وفتحه مرة أخري او الدخول داخل النموذج نسخ حقل في النماذج - Copy.rar

جرب هذا الكود ..... DoCmd.RunSQL "UPDATE DISTINCTROW tasweat LEFT JOIN safy_madfoa ON tasweat.emp_code1 = safy_madfoa.emp_code SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa] " & vbCrLf & _ "WHERE (((tasweat.mn1)=[forms]![quary]![mm]) AND ((tasweat.yr1)=[forms]![quary]![nn]));"

اتفضل اليك هذه الطريقة تم الغاء خاصية اضافة في النموذج وللاضافة تم استخدام كم مربعات نصية مع الكود الاسفل Private Sub Command29_Click() DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Temp ( [اسم الموظف], [المبلغ المستلم], WrTahdeeth2, ملاحظات, [قيمة القرض] )" & _ "SELECT [Forms]![Temp]![N] AS N, [Forms]![Temp]![M] AS M, [Forms]![Temp]![TAR] AS TAR, [Forms]![Temp]![MIL] AS MIL, [Forms]![Temp]![R] AS R;" DoCmd.SetWarnings True Me.N = Null: Me.M = Null: Me.TAR = Null: Me.MIL = NUL: Me.R = Null Me.Requery End Sub asd.rar

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

هل جربت الكود ونسخ كل القيم .... هناك شرطين في الكود وهو توافق السنه والشهر في النموذج ... كرم جرب على قاعدة بها بيانات متنوعة ... سوف اجرب عند توفر الكمبيوتر لاني على الموبايل الان . [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

ممتاز استاذ سليم ابدعت فأحسنت كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

ضع هذا الكود تحت زر النسخ .... DoCmd.RunSQL "UPDATE safy_madfoa INNER JOIN tasweat ON safy_madfoa.emp_code = tasweat.emp_code1 SET tasweat.madfoa_kabl_tasweat = [safy_madfoa].[safy_madfoa], tasweat.mn1 = [forms]![quary]![mm], tasweat.yr1 = [Forms]![quary]![nn];"

جرب هذا الملف (لا حاجة لليوزرفورم ) الكود Option Explicit Sub tranfere_data() Dim Source As Worksheet: Set Source = Sheets("Sheet1") Dim Trg As Worksheet: Set Trg = Sheets("Sheet2") Dim Last_Row%, Last_Col% Dim Rg_To_Copy Dim My_place% Set Rg_To_Copy = Source.Range("a1").CurrentRegion Last_Row = Rg_To_Copy.Rows.Count Last_Col = Rg_To_Copy.Columns.Count Set Rg_To_Copy = Rg_To_Copy.Offset(1).Resize(Last_Row - 1) My_place = Trg.Cells(Rows.Count, 1).End(3).Row + 1 If My_place <> 2 Then My_place = My_place + 1 Trg.Cells(My_place, 1).Resize(Last_Row - 1, Last_Col).Value = _ Rg_To_Copy.Value Trg.Cells(My_place, 1).Offset(, Last_Col + 1) = Time Trg.Cells(My_place, 1).Offset(, Last_Col + 2) = Date End Sub الملف مرفق salim_tasjil.xlsm

بارك الله فيك استاذ سليم معادلة رائعة جزاك الله كل خير

تفضل .... Dim FormCount As Integer Dim i As Integer FormCount = Forms.Count For i = FormCount - 1 To 0 Step -1 If Forms(i).Name <> FormName Then DoCmd.Close acForm, Forms(i).Name End If Next i DoCmd.OpenForm "kanory"

الف شكر على المساعدة المعادلة تمام

ارفع مثالاً عما تريد لا يمكن التكهن بنتيجة لا نعرف تفاصيل معطياتها

جرب هذه المعادلة =IF(N(C2)<=0,"",VLOOKUP(C2,{0,0;31,75;121,85;181,100},2)) اذا لم تعمل المعادلة معك استبدل الفاصلة بفاصلة منقوطة ( الفاصلة خارج الأقواس { } ) (حسب اعدادات الحهاز عندك) لتصبح المعادلة بهذا الشكل =IF(N(C2)<=0;"";VLOOKUP(C2,{0,0;31,75;121,85;181,100};2)) بالنسبة للخاية الثانية نفس المعادلة مع تغيير المعطيات

أهلا بك اخ كريم بالمنتدى كان عليك استخدام خاصية البحث فى المنتدى تفضل https://www.officena.net/ib/topic/86688-مطلوب-كود-يجعل-شيت-الاكسيل-لا-يعمل-الا-على-كمبيوتر-واحد-فقط/ https://www.officena.net/ib/topic/86721-كيفية-منع-التعديل-على-الملفات/ بارك الله فيك

استاذ @Shivan Rekany لى ملاحظة على كومبو بوكس مدة التفعيل وهو ان المستخدم هو من سيحدد المدة وبالتالى سيختار تفعيل مدى الحياة والمطلوب ان يكون الاختيار بيد المبرمج فقط

لو ممكن رفع ملف pdf نفسه بارك الله فيك

النماذج : في قاعدة بيانات للعميل : نحن محتاج نموذج واحد للتسجيل ونموذج اخر بعد تسجيل لكي يفتح نقدر ان نستخدم النموذج الدخول لكن هنا عملنا نموذج بسيط هذه صورهم في النموذج الاول نحتاج لزرين واحد للتحقيق التسجيل والثاني لاغلاق القاعدة البيانات ونحتاج ايضا ل كومبوبوكس واحد و ثلاث مربعات النصية وخالي من المصدر و والمهم هنا هو خصائص كومبوبوكس شوف الصور لخصائصه قمنا بعمل كومبوبوكس وبيكون لها عمودين وعطينا لكل عمود حجمه العمود الاول عطينا صفر لكي يختفى والعمود الثاني عطيناه 3 سنتيمتر وغيرنا نوع مصدر الصف الى فاليو ليست وكتبنا لمصدر الصف الكومبوبوكس نفس المصدر في حقل Midda فی جدول وتم منع ادخال شيء اخر عدى اللي مكتوبة في مصدر الصف لكومبوبوكس

تقدر تستخدم هذا ايضا xlWB.SaveAs "D:\Excel Destn Temp" & Format(Now, "YYYYMMDDHHNNSS") & ".xlsx"

هل هذا هو المطلوب ..... test.rar

وعليكم السلام يمكنك تجربة هذه البرامج Passware kit Forensic.V13.5.855 والأخر Reset VBA Password

وعليكم السلام ورحمة الله وبركاته تفضل: فقط اضف في التقرير تجميع لـ: EmployeeID وانقل التقرير الفرعي داخله newQ.mdb

تفضل اخي سلمان رقم الصنف في tabl1 هو الباركود بالتوفيق برنامج المطاعم.rar

الاخ الكريم بالفعل لا يوجد مرفق لك بالموضوع ولكن شاهد المرفق الرابط التالي ... هل هذا ما تقصده ( كمثال ) http://www.officena.net/ib/index.php?showtopic=49499 اضافة تاريخ في خلايا عمود بناءا علي خلايا عمود آخر.rar

السلام عليكم إليك البرنامج كاملا على موقع طق طق http://upload.9q9q.net/file/DEC9c4UQqsO/er...Accounting.html أما السيريال الخاص بالبرنامج فهو: LBSMM-RNN62-SYJSL-HFRSD-7Z4HEJ إن شاء الله يعمل دون مشاكل

وعليكم السلام ورحمة الله وبركاته الأستاذة الفاضلة : جزاك الله خيرا ملفاتك متميزة ومفيدة أسأل الله أن يبارك بك والآن سأعلمك كيف تصطاد السمكة؟ حتى يسهل عليك فك ملفات الوورد قومي بتحميل البرنامج المرفق، وهو عباران عن ملفين استخلصتهما من برنامج كبير هذان الملفان يقومون بفك حماية ملفات الوورد والإكسل بإعطاءك كلمة السر الخاصة بهما طريقة الفك: اضغطي الملف المسمى offkey ومن قائمة File اختاري Recover ومنها اختاري الملف الذي تريدين كسر حمايته وخلال ثوانٍ سيعطيك كلمة السر الخاصة به بجانب كلمة السر ستجدين عبارة النسخ copy اضغطي عليها واذهبي لملف وافتحيه ومن قائمة أدوات اختاري إلغاء حماية المستند سيخرج لك مربع يطالبك بكلمة المرور ضعي سهم الفأرة داخله ومن لوحة المفاتيح اضغطي زري النسخ CTRL+V ومن ثم اضغطي موافق عندها سيتم فك حماية الملف ... تهانينا لا تنسينا من صالح دعاءك ودروس موفقة أستاذتنا العزيزة Break_Office.rar