Shivan Kurdi - شڤان کوردی

بعد ما خلصت انا بعض من السجلات اي الموظفين بها 5 سجل لكل يوم اي خرج و دخل وخرج ودخل وخرج في يوم واحد لكن ساعمل على جزء من البيانات وسافديك ان شاء الله

اتفضل جرب هذ الكود DoCmd.SendObject acSendReport, "x", "PDFFormat(*.pdf)", shivan_rekany212@yahoo.com, "", "", "", "", True, "" غير ايميلي بايميلك جرب ووافيني بالنتيجة تحياتي

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

ما نزلت المرفق لكن حسب شرحك استخدم max لحقل تاريخ

اتفضل استخدم هذا الكود اخي If DCount("[id]", "Table1", "[to]<=" & 0) >= 1 Then MsgBox "هناك ترقيات يجب مراجعتها" End If لكن اضف سجل واحد لكي الحقل to بيكون يساوي صفر تحياتي اليك ملفك بعد تعديل ترقيات.rar

ممكن ترفع نسخة مصغرة من قاعدة بياناتك لكي اعمل عليها تحياتي

هههههه تمام اخي جرب اللي انا قلت لك ووافيني بالنتيجة

لا اخي استخدم دالة DCount بدل دي لوك اب في كود الاعلاه بس غير ديلوك اب ب دي كوانت جرب ووافيني بالنتيجة تحياتي

ممکن تخبرنا لماذا تريد ان يبحث عن رقم صفر في جميع السجلات اي وضح لنا فكرة عملك تحياتي

انتظرني حتى غدا ان شاء الله راح اعطيك حل

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

استأذن من استاذنا ابو خليل على المداخلة اتفضل ما طلبت للعلم انا غيرت اسماء الحقول من number الى number1 ومن code الى code1 لان تلك الاسماء محجوزة لكي يتجنب من الاخطاء واتفضل استخدمت هذا الكود Private Sub f_date_AfterUpdate() On Error Resume Next If Me.number1 <> 0 Then Me.Undo Exit Sub End If If DCount("number1", "tp1") < 1 Or IsNull(DMax("number1", "tp1", "[f_date]=#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#")) = True Then Me.number1 = 1 Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1 Else Me.number1 = DMax("number1", "tp1", "[f_date] =#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#") + 1 Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1 End If End Sub واليك ملفك بعد تعديل واذا ما فهمت من الكود راح نشرح لك باذن الله تقبل تحياتي db9790.rar

* ملحوظة : انا خذت الكود في موقع اجنبي في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library الصق هذا الكود في وحدة نمطية Option Compare Database Option Explicit Const Arr = 2 Public Function GetPcSnCpuAndMotherboard() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" varObjectToId(2) = "Win32_Processor,ProcessorId" For i = 1 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك Next DoCmd.Hourglass False End Function وفي النموذج في اي حدث تريد مثلا عند تحميل او عند الضغط على كليك مثلا اكتب في محرر فيجوال هذا Call GetPcSnCpuAndMotherboard ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده‌ نمطية =============== واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية اليك هذا Private Sub Form_Load() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة Dim varObjectToId As String Dim varSerial As String On Error Resume Next varObjectToId = "Win32_BaseBoard,SerialNumber" ' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه 'varObjectToId = "Win32_Processor,ProcessorId" Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0)) varSerial = "" For Each SWbemObj In SWbemSet varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1)) varSerial = Trim(varSerial) If Len(varSerial) < 1 Then varSerial = "Unknown value" Next Me.Text1 = varSerial End Sub واخيرا اتفضل مع قاعدة بيانات بها الطريقتين لمعرفة سريال نمبر المعالج واللوحة الأم.rar

هل تريد هذا شوف الصورة اتفضل مع مرفق المدرسة.rar

اليك هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 122 KeyCode = 0 End Select End Sub لكن لازم تتغير خاصية Key Preview الى نعم للنموذج او يجب تستخدم هذا الكود معه Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub تحياتي

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

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

الان وقت النوم غدا راح اشوف لاني عندي دوام وغدا ساتابع ان شاء الله اکید عندک شی ماعندنا کل مرة عندك حل اضافي

استخدم هذا الكود Dim stDocName As String Dim TheFile As String TheFile = "D:\" ' اكتب المكان اللي تريد ان يحفظ فيه stDocName = "X" 'هو اسم التقريرك DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, TheFile & stDocName & ".pdf", False او هذا DoCmd.OutputTo acOutputReport, "X", acFormatPDF, "D:\" & "X" & ".pdf", False للعلم كلا من الكودين يحفظ التقرير باسم ئيكس في قرص دي باسم التقرير اي باسم ئيكس تحياتي

اتفضل هذا الكود بيعطيك سريال نمبر لمزربورد Const Arr = 1 Public Function GetPCInfo() 'You need to have Microsoft WMI Scripting v2.1 library Registered in your references DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" For i = 0 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("form2")(fld) = varSerial(i) Next DoCmd.Hourglass False End Function خذت من موقع اجنبي وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي

الله یجزیک كل خير اخي واستاذي رمهان انا مش مستحق لذلك وشكرا لك على كلامك تحياتي

ما عليك الا خطوات التالية 1 : حدد جميع مربعات النصية 2: اختر قائمة Arrange 3: اختر Tabular وشوف النتيجه‌ تحياتي

اهلا بك احنا في الخدمه‌ ان شاء الله بقدر مستطاعنا راح نساعد من يحتاج اليك الف تحية وجزاك الله كل خير

فقط اضيف على كودك عند اوبديت اي عند اختيار احد من الجوابات Me.TimerInterval = 0 يعني الكود سيكون كالاتي Private Sub Frame3_AfterUpdate() Dim MyAnswer As String MyAnswer = MsgBox("هل انت متأكد من اجابتك" & vbNewLine & "Are you sure from your answer?", vbYesNo, "تأكيد") If MyAnswer = vbYes Then Call Submit Me.MyAnswers.Visible = True Me.L1.Visible = True Me.TimerInterval = 0 Else Cancel = True End If End Sub تحياتي

بيقولون فهم السؤال نصف الجواب لذا اريد نعرف المزيد قلت اذا ولي امر عنده 3 ابمناء ومجموع المصروفات بيكون 13745 تمام هل تريد اذا اضاف سجل جديد اي سجل سجل جديد لاين اخر اي ابن الرابع ام اي ؟ فهمنا بالضبط واعطينا مثال توضيحي على ذلك بالارقام مثلا 2 + 3 نريد بيكون 7 مثلا