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

الفضل لله وحدة اخي الكريم ... بارك الله فيك غير هذا السطر DoCmd.OpenReport "Filters", acViewPreview بهذا السطر DoCmd.OpenReport "Filters", acViewNormal تراني من الشياب الى ما ينسوا ...... انتظر ابريق القهوة ....... بارك الله فيك على لطفك اخي الكريم

هذا تواضع الكبار ..... تعلمنا منك الكثير من الافكار والابداع ....

وهذه طريقة ثانية بعد كوب القهوة ..... ‏‏New1 - Kan.accdb

تفضل مشاركة مع مروض الاكسس @ابا جودى New1.accdb

تاكد اخي من المرفق

ربما هذا مطلوبك ..... متعدد_ Kan.accdb

مفيش مشكلة المهم مراعاة شروط تسمية الملفات في ويندوز ولا داعي لتغيير نوع بيانات المتغير فغير مسموح مثلا بالشرطة المائلة / او \ وكذلك علامة الاستفهام ؟ وكذلك > او < وهكذا

لدعم اللغة العربية في ملفات الدوس أضف هذا السطر كأول سطر في النص الذي يكتب في الباتش s = s & "chcp 1256" & vbCrLf بعد الإعلان عن المتغير s dim s as String

اتفضل هذا ملف المشروع WindowsApplication1.zip

على حسب فهمي للموضوع مع أن أكسس تم عمله لتجنب قاعدة البيانات المسطحة Database1.rar

ملفك يجب اعادة تنسيقه خصوصا الغاء دمج الخلايا هذه الاكواد تعمل معي ان لم تعمل معك بسبب الخلايا المدمجة ثم انك ارفقت ملف دون ان توضح اي شيء هل علينا فك الغاز لحل هكذا مواضيع بعد هذه المقدمة هذاين كودين للطباعة والترحيل مع مراعة تسمية الاوراق بالانجليزي الفاتورة INVOICE والورقة المرحل اليها DATA Sub CCTO() Dim LR As Long, i As Long, cls cls = Array("a10", "b11", "b13", "b14") With Sheets("data") LR = WorksheetFunction.Max(2, .Range("A" & Rows.Count).End(xlUp).Row + 1) For i = LBound(cls) To UBound(cls) .Cells(LR, i + 1).Value = Sheets("invoice").Range(cls(i)).Value Next i End With With Sheets("INVOICE") .Range("A10").ClearContents .Range("A16:A25").ClearContents .Range("B11").ClearContents .Range("B13").ClearContents .Range("B14").ClearContents .Range("B16:B25").ClearContents End With End Sub Sub PPRINT() ActiveSheet.PageSetup.PrintArea = "$A$1:$E$31" ActiveSheet.Range("A1:E31").PrintOut End Sub

استاذ @أ / محمد صالح بارك الله فيك وجعلها في ميزان حسناتك كل شيء تمام شكرا لك

بعد إذن أخي الكريم @بن علية حاجي تفضل هذا ملفك بعد إعادة هيكلة لصفحة أيام الحراسة وجلب بيانات الحراس الاحتياطيون نصيحتي لك: لا تلجأ إلى دمج الخلايا مطلقا وإذا كان لابد ففي أضيق الحدود مع ملحوظة أن القاعات في شيت توزيع الحراسة 30 وفي شيت أيام الحراسة 20 . مع العلم أنك إذا فهمت آلية عمل المعادلة التي ساعدك بها الأستاذ بن علية يمكنك عمل معادلات الاحتياط بنفس الطريقة. وفي الأخير: أولى خطوات العلم هي الرغبة في التعلم. وليست الاعتماد على الآخرين بالتوفيق جدول الحراسة 2022.rar

جرب هذا الملف مجرب مجرد تضع الارقام التي تريدها وتكتب نص الرسالة ، شرط ان تقوم بتنزل برنامج الواتساب للكمبيوتر ,, تحياتي الواتس.accdb

انظرهنا

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

وعليكم السلام ورحمة الله وبركاته المشكلة لديك انه كانت هناك مكتبات تعمل في قاعدة البيانات القدية ولم يتم اضافتها الى الجديد على كل حال تفضل هذا الكود البسيط لاضافة الصور ويعمل على 64 و 32 بت ايضاً Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Me.PicFile = fpathz Me.imgPicture.Picture = fpathz End If End With بيانات.rar تحياتي

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

طيب بص اولا انا لم اقم بعمل فلتر على النموذج حتى افتح التقرير يكفينى فقط الوقوف على السنة المراد عمل الفلتر لها والضغط على زر الامر لفتح التقرير ولانى الان لا املك طابعة هذا هو المخرج بعد استخدام طابعة pdf وطبعا وجب التنبيه لانى تسرعت ان كان الفلتر متعدد لاكثر من قيمة لن تعمل تلك الطريقة ولذلك طريقة استاذى الجليل ومعلمى الاستاذ @kanory افضل اجابة Filters.pdf

جرب هذه المعادلة في D2 =INDEX(codes!B$2:B$30, MATCH(INT(MID(B2, 8, 2)), codes!A$2:A$30,0)) بالتوفيق

بعد إذن أخينا الأستاذ إبراهيم تفضل بإذن الله هذا ما تريد mas_filter_data.xlsx

تفضل هذا كود لتغيير اسم قاعدة البيانات الحالية يمكن استعماله بعد الضغط على زر مثلا Public Sub RenameMe(newname As String) Dim dbname As String, ext As String, lockext As String, accesspath As String, scriptpath As String, idx As Integer Const TIMEOUT = 30 scriptpath = Application.CurrentProject.FullName & ".dbrename.bat" accesspath = SysCmd(acSysCmdAccessDir) & "msaccess.exe" For idx = Len(CurrentProject.FullName) To 1 Step -1 If Mid(CurrentProject.FullName, idx, 1) = "." Then Exit For Next idx dbname = Left(CurrentProject.FullName, idx - 1) ext = Mid(CurrentProject.FullName, idx + 1) lockext = IIf(Left(ext, 2) = "ac", "laccdb", "ldb") Dim s As String s = s & "chcp 1256" & vbCrLf s = s & "SETLOCAL ENABLEDELAYEDEXPANSION" & vbCrLf s = s & "SET /a counter=0" & vbCrLf s = s & ":CHECKLOCKFILE" & vbCrLf s = s & "ping 0.0.0.255 -n 1 -w 100 > nul" & vbCrLf s = s & "SET /a counter+=1" & vbCrLf s = s & "IF ""!counter!""==""" & TIMEOUT & """ GOTO CLEANUP" & vbCrLf s = s & "IF EXIST """ & dbname & "." & lockext & """ GOTO CHECKLOCKFILE" & vbCrLf s = s & "ren """ & dbname & "." & ext & """ """ & newname & "." & ext & """" & vbCrLf s = s & """" & accesspath & """ """ & CurrentProject.Path & "\" & newname & "." & ext & """" & vbCrLf s = s & ":CLEANUP" & vbCrLf s = s & "del %0" Dim intFile As Integer intFile = FreeFile() Open scriptpath For Output As #intFile Print #intFile, s Close #intFile s = """" & scriptpath & """" Shell s, vbHide Application.Quit acQuitSaveAll End Sub وطريقة استدعائه RenameMe "mynewname" لاحظ أن الاسم الجديد mynewname بدون الامتداد لأنه يحافظ على نفس امتداد الملف بالتوفيق

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية "C6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A1))-4;2);"") ثم اصغط "CTRL+SHIFT+ENTER" ثم اسحب نزولا حتى الخلية "C35" ثم اكتب المعادلة التالية فى الخلية "E6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A31))-4;2);"") و كر ر ما سبق

السلام عليكم بعد اذن استاذنا الغالي شيفان و اسأل الله ان يجعل ما يقدمه لخدمة اخواننا في موازين حسناته يمكن استبدال تلك الرسالة بوضع الكود التالي بحدث عند الخطأ لنموذج البدء If DataErr = 3043 Or DataErr = 3024 Or DataErr = 3044 Or DataErr = 3078 Then Response = MsgBox("اتصال خاطئ بالمصدر", vbExclamation, "اتصال خاطئ") Response = acDataErrContinue DoCmd.RunCommand (acCmdLinkedTableManager) DoCmd.Quit End If و حل آخر تجده بالرابط ادناه للاستاذ الغالي ابو خليل جزاه الله كل خير تفضل من هنا بالتوفيق

في البداية أتقدم بالشك رالجزيل لمنتدينا الرائع والجميل والذي نعجز عن وصفه في محتوياته وأعضائة . ومن ثم فإن عندي سؤالين لا ثالث لهما : الأول : هناك لدي ملفات أكسس صنعتها بالاكسس 2000 ويوجد لدي أكسس 97 ولكن الملفات لا تعمل رغم تحويلها . والثاني : عند تنصيب اكسس 2000او xp وازالته وتنزيل اكسس 97 بعده لإان الرسالة التالية تظهر عند فتح اكسس 97: ان المنتج غير مرخص لجهازك . ما السبب ومال العلاج وأكون شاكراً لكل أخواني والله يرعاكم

اعزائي الاعضاء السلام عليكم , لديى مشكله في الاكسس أرجو أن تتسع صدوركم لها لقد قمت بتصميم برنامج عن التقسيط . وقمت بوضع جدولين للمقترض و الاخر للكفيل جدول المقترض به حقل ( رقم الكفيل . وهو ترقيم تلقائي ) وجدول الكفيل به حقل ( رقم الكفيل ) وقمت بتصميم نموذجين للمقترض وبه زر فتح نموذج للكفيل وقمت بتصميم نموذج للكفيل . من البديهي أنه عندما أقوم بفتح نموذج المقترض مثلاً رقم ( 5 ) وأفتح نموذج الكفيل ان يفتح على الكفيل رقم ( 5 ) وهكذا المشكله انه يقوم بفتح نموذج الكفيل على رقم ( 0 ) فما هو الحل

اعزائي الاعضاء السلام عليكم , لديى مشكله في الاكسس أرجو أن تتسع صدوركم لها لقد قمت بتصميم برنامج عن التقسيط . وقمت بوضع جدولين للمقترض الاخر للكفيل جدول المقترض به حقل ( رقم الكفيل . وهو ترقيم تلقائي ) وجدول الكفيل به حقل ( رقم الكفيل ) وقمت بتصميم نموذجين للمقترض وبه زر فتح نموذج للكفيل وقمت بتصميم نموذج للكفيل . من البديهي أنه عندما أقوم بفتح نموذج المقترض مثلاً رقم ( 5 ) وأفتح نموذج الكفيل ان يفتح على الكفيل رقم ( 5 ) وهكذا المشكله انه يقوم بفتح نموذج الكفيل على رقم ( 0 ) فما هو الحل

ما هو استعلام الإلحاق وكيف يمكنني استخدامه وهل من مثال على ذلك ولكم جزيل الشكر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اريد ان اعمل تقرير يلم جميع اسماء الموظفين لدى المؤسسة ولكن لكثرة الاسماء تأتي في صفحتان واريد ان اعمل في التقرير عمودان فتأتي الاسماء في صفحة واحدة ضمن هذان العمودان....فهل استطيع ذلك؟ وشكراً.

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

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

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

السلام عليكم كيف يمكن تحديد عدد خانات حقل بحيث لا يزيد ولا ينقص عن عشرة أرقام ؟؟!!

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