ابو جودي

فضلا وكرما وليس امرا فى المرات القادمة ان شاء الله تضع ما تريد جملة وتفصيلا واتمنى ان يكون هذا المرفق كاف و وواف ان شاء الله ملاحظة حاول الابتعاد عن اللغة العربية فى محرر الاكواد انا غيرت ما يلزم لتلاشى مشاكل اللغة العربية داخل المحرر عندى فكرة ان احببت انفذها وهو سماع الاذان مع كل وقت بس الان انا ذاهب الى العمل ان شاء ان كان فى العمر بقية وقدر الله لنا اللقاء بعد عودتى من العمل بأمر الله اتيكم بتحديث رائع لهذه الفكرة az(v3).accdb

اتفضل اعتقد هذا كما تريد ان شاء الله az(v2).accdb

طبعا النموذج frmMain لازم يكون مفتوح وممكن تخفى كل مربعات النص من النموذج انا تركتهم فقط للاطلاع اسف نسيت الرسالة انتظر قليلا

اتفضل az.accdb

ممكن المرفق لو تكرمت

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

لانه لا يوجد عنصر تحكم فى نموذج يحمل هذا الاسم subDhankData جرب استبدال subDhankData ب subtblDhankData

لا تجهل التقارير تستخدم كود التوسيط طالما تستخدم احفاء اطار الاكسس فبدلا من كود التوسيط للتقارير اجعلها تكبر تلقائيا عند الفتح DoCmd.Maximize امام بخصوص مرفقكم استاذى الكريم على وجه الخصوص فان زر الامر المكتوب عليه تقرير مهم جدا هو يفتح تقرير باسم rpt_Items_Pages_3 ان قمت بفتحه فى وضع التصميم تجد الاتى كائنات بها خطأ فى مصدر البيانات الخاص بها ثانيا لى تعقيب صعير على الكود المستخدم فى اخعاء الاطار لا يظهر على شريط المهام وبالتالى ان حدثت مشكلة فى الاكسس اثناء العمل والجهاز هنج يغلق ملف القاعدة ولكن يبقى معلق بالذاكرة وان حاولت فنح التطبيق لن يفتح بعد اذنك سوف اقوم بالتعديل على الملف واقوم باعادة رفعه مرة اخرى على طريقتى المتواضعة

هل تريد تمرير بيانات من الاكسس لاكثر من صفحة فى pdf ?

انا مش فاهم ايه موضوع ان تكون النماذج غير منبثقة وما المشكلة من كونها تكون منبثقة ممكن التكرم بالتوضيح جزاكم الله خيرا

لو تكرمت ممكن تقوم بملئ سجل واحد يحتوى على البيانات الاساسية والتى تريد تمريرها من اكسس الى pdf لان قاعدة البيانات فارغه ولا ادرى اى بيانات تريد تمريرها وملف ال pdf صفحتان

هات مرفق من pdf + قاعدة بيانات

السلام عليكم اولا ارجوك الحفاظ على قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ------------------- وبخصوص طلبك برنامج الموارد البشرية HR - قسم الأكسيس Access - أوفيسنا (officena.net)

تمام يا دكتور الان اتضحت المسألة بشكل سليم واكتملت كل الافكار تقريبا من النقاش جزاكم الله خيرا

هذا ملف التطبيق الخاص بى قمت بتعطيل الكود الذى عمل بشكل صحيح لاتلافى الخطأ من خلال الدالة CInt وذلك حتى يمكنكم الاطلاع عليه يا دكتور @SEMO.Pa3x tt.accdb

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

يعنى الكود الاول اساس المشاركة يكون Private Sub textbox1_Change() textbox3.Value = Nz(textbox1.Text, 1) + Nz(textbox2, 1) End Sub

أعطى خطأ معى عند التطبيق لانه لا يمكن نقل التركيز فى الحدث الى مربع النص 2 مع تنفيذ هذ الحدث عند التغير لمربع النص 1 ممكن مرفق لعلى أخطات بالتطبيق

فى الوفت الراهن لا استطيع العمل على اكسس والتجربة انا كتبت فى البوست السابق الفكرة والان قمت بتحويل الفكرة الى اكواد ولكن لا اعرف هل هذا منطقى ام لا Dim RS As DAO.Recordset Dim crntRS As Integer Dim nextRS As Integer Set RS = CurrentDb.OpenRecordset("tblName") If Not RS.EOF Then RS.MoveFirst Do Until RS.EOF crntRS = RS![IDNo] RS.MoveNext nextRS = RS![IDNo] If nextRS > crntRS + 2 Then RS.MovePrevious RS.Edit RS![IDNo] = crntRS + 1 RS.Update RS.MoveFirst Else RS.MoveNext End If Loop MsgBox "Done!", vbInformation, "Completed"

طيب هل ممكن نعمل لوب بشرط يبدأ اللوب من السجل الاول والشرط ان كان الرقم فى السجل التالى = الرقم فى السجل الحالى او ان كان الرقم فى السجل التالى اكبر من الرقم فى السجل الحالى +1 يستكمل اللوب والا ان كان الرقم فى السجل التالى اكبر من الرقم فى السجل الحالى +2 يتم يتوقف اللوب ويتم تحديث هذا الرقم برقم السجل السابق +1 ويبدأ اللوب من جديد

ممكن مرفق

حزانا الله واياكم وكل أساتذتنا خير الجزاء اتفضل تحت امرك AutoCentre.mdb

ضع الكود الاتى فى مديول Private Type RECT X1 As Long Y1 As Long X2 As Long Y2 As Long End Type #If VBA7 Then Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As Long Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hDC As LongPtr, ByVal nIndex As Long) As Long #Else Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, Rectangle As RECT) As Boolean Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long #End If Private Const WU_LOGPIXELSX = 88 Private Const WU_LOGPIXELSY = 90 Sub CenterForm(f As Form) Dim formWidth As Long, formHeight As Long Dim MaxWidth As Long, maxHeight As Long Dim ScreenWidth As Long, ScreenHeight As Long Dim formAllMarginsHeight As Long, formAllMarginsWidth As Long GetScreenResolution ScreenWidth, ScreenHeight ScreenWidth = ConvertPixelsToTwips(ScreenWidth, 0) ScreenHeight = ConvertPixelsToTwips(ScreenHeight, 0) MaxWidth = ScreenWidth * 0.6 maxHeight = ScreenHeight * 0.9 formAllMarginsHeight = f.WindowHeight - f.Section(acDetail).Height formAllMarginsWidth = f.Width formWidth = formAllMarginsWidth formHeight = formAllMarginsHeight If formHeight < f.WindowHeight Then formHeight = f.WindowHeight End If DoCmd.MoveSize (ScreenWidth - formWidth) / 2, (ScreenHeight - formHeight) / 2, formWidth, formHeight End Sub Sub CenterReport(R As Report) Dim ReportWidth As Long, ReportHeight As Long Dim MaxWidth As Long, maxHeight As Long Dim ScreenWidth As Long, ScreenHeight As Long Dim ReportAllMarginsHeight As Long, ReportAllMarginsWidth As Long GetScreenResolution ScreenWidth, ScreenHeight ScreenWidth = ConvertPixelsToTwips(ScreenWidth, 0) ScreenHeight = ConvertPixelsToTwips(ScreenHeight, 0) MaxWidth = ScreenWidth * 0.6 maxHeight = ScreenHeight * 0.9 ReportAllMarginsHeight = R.WindowHeight - R.Section(acDetail).Height ReportAllMarginsWidth = R.Width ReportWidth = ReportAllMarginsWidth ReportHeight = ReportAllMarginsHeight If ReportHeight < R.WindowHeight Then ReportHeight = R.WindowHeight End If DoCmd.MoveSize (ScreenWidth - ReportWidth) / 2, (ScreenHeight - ReportHeight) / 2, ReportWidth, ReportHeight End Sub Function ConvertTwipsToPixels(lngTwips As Long, lngDirection As Long) As Long Dim lngPixelsPerInch As Long Const nTwipsPerInch = 1440 #If VBA7 Then Dim lngDC As LongPtr #Else Dim lngDC As Long #End If lngDC = GetDC(0) If (lngDirection = 0) Then lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX) Else lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY) End If lngDC = ReleaseDC(0, lngDC) ConvertTwipsToPixels = (lngTwips / nTwipsPerInch) * lngPixelsPerInch End Function Function ConvertPixelsToTwips(lngPixels As Long, lngDirection As Long) As Long Dim lngPixelsPerInch As Long Const nTwipsPerInch = 1440 #If VBA7 Then Dim lngDC As LongPtr #Else Dim lngDC As Long #End If lngDC = GetDC(0) If (lngDirection = 0) Then lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX) Else lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY) End If lngDC = ReleaseDC(0, lngDC) ConvertPixelsToTwips = (lngPixels * nTwipsPerInch) / lngPixelsPerInch End Function Private Sub GetScreenResolution(ByRef Width As Long, ByRef Height As Long) Dim R As RECT Dim RetVal As Long #If VBA7 Then Dim hWnd As LongPtr #Else Dim hWnd As Long #End If hWnd = GetDesktopWindow() RetVal = GetWindowRect(hWnd, R) Width = R.X2 - R.X1 Height = R.Y2 - R.Y1 End Sub ويتم وضع الكود الاتى فى حدث عند فتح النموذج Call CenterForm(Me) ويتم وضع الكود الاتى فى حدث عند فتح التقرير Call CenterReport(Me)

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

الله يفتح عليك يا دكتور @حلبي الله الله الله الله عليك والله ما عارف اقولك ايه جزاكم الله خير ورزقكم البركة فى العمر والعلم والاهل والولد