ابوخليل

عليكم السلام لا يمكنني التعديل على المرفق هذه الدالة تستخرج مسار سطح المكتب لديك Function GetDesktop() As String Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") GetDesktop = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing End Function

في اكسس اغلب العمليات يتم معالجتها من خلال الاستعلامات ، والأكواد المساعدة حسب الحاجة وقد تتم المعالجة لبعض الجزئيات داخل التقارير اي مشروع على اكسل غالبا يمكن تطبيقه على اكسس وبشكل افضل لكي نبدأ العمل على اكسس ، يلزم الإلمام الكامل بالمشروع وشرح مفصل للعمليات التي تتم ( المدخلات ) والنتائج المطلوبة ( المخرجات ) الإلمام الكامل بالمشروع يتيح للمصمم تصور العمل جيدا وتحليل البيانات بشكل متكامل وسليم . اذا كنت على استعداد لتعلم اكسس بخطوات علمية سليمة افتح موضوعا جديدا واختر العنوان المناسب واشرح مشروعك بالتفصيل الدقيق ولا بأس ان تعرض بعض المرفقات المساعدة .

انا في اكسل صف ابتدائي فإذا لم تجدي رد من الاعضاء هنا ، فأرى ان تنقلي سؤالك مع مثالي المرفق ومثالك الاخير الى منتدى اكسل اعتقد بأنك ستجد بغيتك هناك ان شاء الله

هذا مثال من عمل معلمي الأستاذ القدير عبدالله باقشير ( خبور ) ارجوا ان تجدي به ما يحقق حاجتك استيراد وتصدير اكسل إلى اكسس.rar

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

اعتقد اذا تم التصفح من خلال الأداة WebBrowser فإنه يمكنك استهداف اي حقل اما اذا تم فتح المتصفح حرا خارج اكسس فإني لم امر بهذه التجربة ، ولا اعلم ان كان الامر SendKeys يقوم بالمهمة لعل احدا من اخوتنا الخبراء الأفاضل يفيدنا في ذلك

لا اعلم ما هي المشكلة لديك هل لنسخة اكسس دخل في ذلك ؟؟ فأنا اعمل على الاصدار 2003 ولا يمكنني فتح المرفق الأخير المثال عندي يعمل على اكمل وجه ، انظر الصور ( عند زيادة البيانات وحين تكون قليلة )

هذا ما يحدث بالفعل عند عرض النموذج للطباعة يمر الكود على جميع الحقول ، عندها يأخذ المتغير fildMaxHeight اعلى قيمة ارتفاع لاحظ ان قيمة المتغير لن تتغير حتى يتم غلق النموذج وفتحه مرة أخرى على البيانات الجديدة . لن يختلف الأمر .. فقط مكان الحدث قم بتغيير الأحداث من رأس الصفحة hed1 الى التفصيل Detail

تفضل حسب طلبك Dim fildMaxHeight As Integer Dim ctl As Control Private Sub hed1_Format(Cancel As Integer, FormatCount As Integer) Me.hed1.Height = fildMaxHeight End Sub Private Sub hed1_Print(Cancel As Integer, PrintCount As Integer) For Each ctl In Me.Section(5).Controls If ctl.Height > fildMaxHeight Then fildMaxHeight = ctl.Height End If Next For Each ctl In Me.Section(5).Controls Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbWhite, BF Me.Line (ctl.Left, ctl.Top)- _ Step(ctl.Width, fildMaxHeight), vbBlack, B Next End Sub ضبط ارتفاع جميع الخلايا_ تقرير .mdb

عليكم السلام انت وضعت الحقول في قسم (مقطع) رأس الصفحة يمكن تحقيق مطلوبك ولكن تطبيق الكود داخل تفصيل التقرير اكثر اتقانا سأوافيك بمثالك معدلا وسوف نطبق من خلاله الحالتين

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

استخدم هذه الدالة UCase في الحدث المناسب في الحقل مثلا : عند فقدان التركيز أو بعد التحديث للحقل المطلوب field1 = UCase(field1)

تفضل Private Sub zer1_Click() Dim ctl As CommandButton Set ctl = Me!zer1 With ctl .HyperlinkAddress = "https://www.google.com/maps/place/" & Me.comloc .Hyperlink.Follow End With End Sub db1.mdb

وعليكم السلام ورحمة الله وبركاته اخي الكريم من المهم قراءة قواعد المشاركة والتقيد بما جاء فيها .. ومنها : 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. سيتم غلق الموضوع .. ويمكنك انشاء موضوعك من جديد مراعيا قواعد المشاركة

تفضل تم تعديل المثال اعلاه حسب طلبك Access2.mdb

وعليكم السلام اخي الفاضل من ضمن قواعد المشاركة البحث في المنتدى ابحث عن : الرقم القومي .. ستجد الكثير من الاكواد والدالات والامثلة

نعم يمكن استخدم الارتباط التشعبي https://www.google.com/maps/place/28°46'11.5"N 30°53'56.4"E db1.mdb

عليكم السلام Private Sub endpage_Click() strSql = "SELECT * FROM tblData WHERE tblData.ID > ( (select COUNT(*) from tblData) - 10)" Me.RecordSource = strSql End Sub Private Sub firstpage_Click() strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData WHERE (((tblData.ID)>=1))" Me.RecordSource = strSql End Sub السجلات في النموذج .mdb

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

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

لحظات _ ان شاء الله _ وارسلها لك على الخاص

السلام عليكم ابو اشرف يمكنك استيراد الجداول الى قاعدة Accdb

اخي نبيل يجب ان تضع مرفقا يتضمن المشكلة

نعم يعمل عندي ، ولزيادة التأكيد انني قمت بحذفه وتنصيبه اكثر من مرة بلا مشاكل والطريقة بالضبط كما ذكر صاحب الموضوع اعلاه وايضا ذكر هذا بالتفصيل هنا علما ان جهازي وندوز 7 ، 32 بت

عندي يعمل