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

اذكر كنا نستخدم هذه الطريقة عند عمل برامج تتطلب ادخال بيانات بشكل كبير للتسهيل على الموظفين ونستخدم ارقام بدلا من مربعات التحرير والسرد لكون الامر اسهل في ادخال المعلومان مثلا بدلا من فتح مربع التحرير لاختيار الدولة مثلا الاردن يكتب رقم 1 = الاردن وهكذا لبقية الدول وفي حالة عدم حفظ رمز الدولة ينقر زر امر ⸫ مثل المشابه لما اشرت اليه فيتم فتح نموذج الدول فيختار الدولة ملاحظة الجنس 1=ذكر 2= انثى الجنسية من 1 الى 23 اذا ادخلت رقم اكبر سيفتح نموذج الدول او بامكانك مباشرة النقر على زر الثلاث نقاط لاختيار الدولة مرفق مثال بسيط عملته على السريع فاعتذر عن اي قصور ابو اشرف.accdb

وعليكم السلام ورحمة الله وبركاته ضع الامر التالي في زر امر DoCmd.RunCommand acCmdFind تحياتي

اخي حلبي الامر صحيح ولكنه يعمل مع الاصدارات الحديثة حيث ان اوامر RunCommand هي البديل لـ DoMenuItem وبالتالي فان الامر الذي وضعة الاستاذ @محمد أبوعبدالله في الحقيقة هو نفس الامر الذي وضعة الاستاذ @مسفر DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 = DoCmd.RunCommand acCmdFind وكذلك يمكن كتابة الامر الاخير هكذا DoCmd.RunCommand 30 وهنا 👇 بعض اوامر DoMenuItem وما يكافئها في runcommand على سبيل المثال لا الحصر والا فالحديث يطول acFormBar, acEditMenu, 2 = acCmdCopy acFormBar, acEditMenu, 6 = acCmdDeleteRecord acFormBar, acRecordsMenu, 5 = acCmdRefresh تحياتي

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

جرب DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

السلام عليكم جرب التعديل التالي Private Sub رقم_اللوحة_Click() X1 = Nz(DLookup("[الحروف] & '|' & [المصنع] & '|' & [الشاسيه] & '|' & [نوع_المعدة] & '|' & [المالك] & '|' & [المشروع] & '|' & [شركة_التأمين] & '|' & [انتهاء_الاستمارة] & '|' & [المالك]", "المعدات", "[رقم _اللوحة]=" & Me.رقم_اللوحة), "|||||||||") X3 = Split(X1, "|") Me.الحروف = X3(0) Me.المصنع = X3(1) Me.الشاسيه = X3(2) Me.نوع_المعدة = X3(3) Me.المالك = X3(4) Me.المشروع = X3(5) Me.شركة_التأمين = X3(6) Me.انتهاء_الاستمارة = X3(7) Me.المالك = X3(8) End Sub تحياتي

السلام عليكم استاذ عبد اللطيف..على ما اعتقد تعمل نموذج خاص للاضافة ويكون النموذج Datasheet ثم تعمل تنسيق شرطي للمرور على الحقول وطبعا حقول النموذج غير قابة للاضافة ... وعند حدث النقر على اي سطر اما ان تقوم بعمل ماكرو لاضافة هذه الحقول الى الحقول في النموذج الرئيسي او تعمل استعلام الحاق تقوم باستدعائه عند النقر او عن طريق VBA

اخي الكريم الدالة SUBSTITUTE تقوم باستبدال احرف اي نص بقيمة جديدة و انت اردت التخلص من السطر الجديد و هو مفتاح انتر Emter وهذا المفتاح يرمز له في كود المناتيح بـ Char(10) لذلك تقوم الدالة باستبداله الى " -" في اي مكان في النص جزاك الله خيرا اعتذر ان لم استطع الرد على اي نسائل آخر حيث انني متوجه الى الحج بعد قليل - و البركة في بقية الاخوة في المنتدى ,,, دمتم بخير

الاخ احمد حفظه الله ورعاه بارك الله لك في مالك وولدك ورزقك من حيث تحتسب ومن حيث لا تحتسب اشكرك من كل قلبي ... حفظك الله ورعاك

تفضل التعديل هذه الأعمدة التي سيتم استيرادها test.zip test.accdb

صحيح فهي اساس اي برنامج ترغب في انشائه

اشكرك على مجهودك الرائع التسلسل الرقمى ضبظ جدا معايا ولكن التاريخ لم يتم ادراجه

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

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

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

جزاك الله كل خير أستاذ

من خيارات الاكسس اتبع الصورة

تفضل هذا التعديل 22test.zip

استاذنا الفاضل / @مسفر تمام هذا الكود عمل معى ولم تظهر الرسالة بل ظهر مربع البحث اشكرك وجزاك الله كل خير استاذنا الغالى / @kha9009lid لقد فهمت من تحليل حضرتك كل شئ فعلا الكود يعمل معى الان جزاكم الله كل خير وكل عام وانتم والسادة الزملاء كلهم بخير

ما عندي تعليق على ملاحظتك. ولكن انظر الى هذه الملاحظة: فإذا وضعت الكود على حدث خطأ ، فالاكسس غير مذنب !! وارى الكثير يستعمل مثل هذا الكود ، والذي لن يعمل على هذا الحدث حتى لو حاولت فيه لبكرة الصبح : Private Sub iDate_AfterUpdate() cancel = true end if . فمناداة الحدث لا يوجد عندها متغير cancel ، والمتغير موجود في الحدث التالي ويعمل من اول مرة : Private Sub iDate_BeforeUpdate(Cancel As Integer) cancel = true end if جعفر

تفضل أخي فقط اعمل right click على اسم الsheet من الأسفل ومن ثم اختيار Protect sheet وضعت الباسورد Pas1 Pas2 Test6.xls

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

و عليكم السلام و رحمة الله و بركاته تقبل الله من الجميع =INDEX(D3:M3;;MATCH(MAX(D5:M5);D5:M5;0)) اعلى-ادنى.xlsx

تفضل 🙂 افتح التقرير rpt_Vertically_center_Fields الدالة التي تقوم بالعمل ، وعملت لها وحدة نمطية مستقلة ، حتى يمكننا الاستفادة منها لأكثر من تقرير: Public Sub VerticalAlignCenter(ByRef ctl As Control) ' 'From: https://www.vbforums.com/showthread.php?505561-VB-VBA-Set-TextBox-and-Label-text-to-Vertically-Align-Center&p=3675142&viewfull=1#post3675142 ' 'Sets the vertical alignment of a label or textbox to "Center" 'NOTE: 'MinimumMargin: the value of the smallest margin Access allows in twips. If you set the .TopMargin 'to "0", Access will actually place a gap equal to 1 point (or 20 twips) rather than actually 'placing the text at the very top border of the control. FURTHER NOTE: Access sucks. ' 'BorderWidth: half the value of .BorderWidth in twips. As you increase the border (Hairline, 1pt, 2pt, etc..) 'Access expands the border equally from the center. We're only concerned with the "inner" section of the border. ' 'TwipsPerPoint: global constant set to 20 On Error GoTo ErrorCode Dim MinimumMargin As Integer Dim BorderWidth As Integer Dim TwipsPerPoint TwipsPerPoint = 20 If Not ((TypeOf ctl Is TextBox) Or (TypeOf ctl Is Label)) Then Exit Sub 'Figure out how many lines it is Dim LenOfText, WidOfBox, NumberOfLines, HtOfText If TypeOf ctl Is TextBox Then LenOfText = ctl.Text Else: LenOfText = ctl.Caption End If 'how wide is this puppy? WidOfBox = ctl.Width LenOfText = (Len(LenOfText) * TwipsPerPoint * ctl.FontSize) / 2 NumberOfLines = Int(LenOfText / WidOfBox) + 1 HtOfText = NumberOfLines * TwipsPerPoint * ctl.FontSize MinimumMargin = 1 * TwipsPerPoint BorderWidth = (ctl.BorderWidth * TwipsPerPoint) / 2 ctl.TopMargin = ((ctl.Height - HtOfText) / 2) - MinimumMargin - BorderWidth ErrorCode: Exit Sub End Sub . ثم في التقرير ، انقر على فاصل قسم التفصيل Detail ، وفي حدث "عند الطباعة" (ولن يعمل يأي حدث آخر ، فهو آخر حدث قبل الطباعة ، بينما للاحداث الاخرى يكون فات الاوان لهذا العمل) ، ننادي الدالة اعلاه بإسم الكائن الذي نريد توسيطه : Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) VerticalAlignCenter Me.save VerticalAlignCenter Me.a1 End Sub . والنتيجة : . كما يوجد مثال عند ملك دوال الاكسس الثقيلة المتقاعد في : http://www.lebans.com http://www.lebans.com/DownloadFiles/A2KVerticalJustify.zip جعفر 1293.1.Report_Draw_BoxLine.accdb.zip

وعليكم السلام 🙂 هذا معناه : ان يكون عندك في الجدول ، حقل تمت الطباعة من نوع نعم/لا ولنسمية Printed ، والسجلات التي يتم ارسالها للطباعة تكون قيمة Printed =0 ، وبعد الطباعة على طول ، تعمل استعلام تحديث لهذا الحقل في جميع السجلات ، بقيمة Printed =-1 🙂 جعفر

احسنت دكتور كاف على الشرح..لكني اعتقد انه من المهم دراسة لغة السكوال مع الاكسس

ضع في القيمة الإفتراضية لحل السنة المالية ما يلي DLast("NowYaer", "EndYaer")

لإضافة قيم لأكثر من جدول في نفس الوقت اتبع التالي Dim db As DAO.Database Dim sSQL As String On Error GoTo errorhandle ' الجدول الأول Set db = CurrentDb sSQL = "INSERT INTO [Table_Name1] (Column1, Column2,...) VALUES (Value1, Value2,....) " db.Execute sSQL ' الجدول الثاني sSQL = "INSERT INTO [Table_Name2] (Column1, Column2,...) VALUES (Value1, Value2,....) " db.Execute sSQL MsgBox "تم اضافة البيانات الى الجداول بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

الإستعلامات لها انواع كثير لكني سوف اذكر الأكثر استخداما انواع الاستعلامات من حيث معالجة البيانات Select - INSERT INTO - Update - Delete إستخراج البیانات من قاعده البیانات : Select بناء الجملة يكون بالشكل التالي لعرض جميع البيانات SELECT * FROM Persons '================================= لعرض أعمدة محدددة مثلا الاسم الأول و الاسم الأخير للموظف SELECT LastName,FirstName FROM Persons '================================= لعرض البيانات بدون تكرار اضف بعد عبارة التحديد الجملة التالية DISTINCT SELECT DISTINCT Company FROM Orders إضافه بیانات جديده : INSERT INTO بناء الجملة يكون بالشكل التالي اضافة بيانات INSERT INTO table_name (column1, column2,...) VALUES (value1, value2,....) التعديل على البیانات المسجله : Update UPDATE table_name SET column_name = new_value WHERE column_name = some_value حذف البیانات من القاعده : Delete DELETE FROM table_name WHERE column_name = some_value استعلام التوحيد تستخدم لدمج حقلین من جدولین مختلفین ولكن يجب ان يكون نوع البیانات فى الحقلین واحد اى يكون نصوص او ارقام .………إلخ SELECT E_Name FROM table_name_1 UNION SELECT E_Name FROM table_name_2 استعلام الدوال Functions (AVG - COUNT-First-last-Max-Min-SUM) لنفترض انك تريد الحصول على اجمالي الفواتير للشركات المتعاقدة مع شركتك SELECT Company, SUM(Amount) FROM Sales حذف جدول DROP DATABASE DROP TABLE table_name لعمل نسخه إحتیاطیه من الجدول فى نفسالقاعده Persons="اسم الجدول" Persons_backup= اسم الجدول الجديد الذي سيتم انشائه و حفظ البيانات به في حال عدم وجوده SELECT * INTO Persons_backup FROM Persons IN لنسخ الجدول لقاعده بیانات أخرى : نستخدم SELECT Persons.* INTO Persons IN '\Backup.mdb' FROM Persons في النهاية انصحك بإستخدام اليوتيوب و البحث عن دروس في SQL فهي روح اي برنامج ان اسحنتها صلح برنامجك شكرا لك

اخي الكريم اتبع الشرح التالي في حال اردت اضافة بيانات الى جدول من حقول في النموذج غير منضمة اسهل طريقة بما أنك مبتدئ ان تستخدم الإستعلام الإلحاقي كما يلي بمجرد اختيار الجدول الذي سيتم الحاق البيانات به تبدء الأن اختيار حقول الجدول قم بإختيار الحقول التي ترغب بإضافة القيمة لها من النموذج تبقى الأن اضافة الحقول من النموذج داخل الإستعلام و هذا هو النموذج المستخدم كما ترى الحقول غير منضمة الأن نذهب للإستعلام لإضافة حقول النموذج داخل الإستعلام لإلحاق البيانات من النموذج الى الجدول ثم تضع اسماء الحقول كما يلي بعد تعبئة الحقول و حفظ الاستعلام الالحاقي تضع ازرار داخل النموذج لتشغيل الاستعلام و في حديث عند الضغط تضع التالي DoCmd.SetWarnings False DoCmd.OpenQuery " ضع هنا اسم الاستعلام الإلحاقي " DoCmd.SetWarnings True و كذلك الاستعلام التحديث بنفس الطريقة

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

وبعد ذلك هل تقصد طباعة الكل بطريقة آلية؟؟؟ إذا كان هذا هو المطلوب الثاني فهذه بعض نتائج البحث في منتدانا الرائع Showing results for 'طباعة الكل'. - أوفيسنا (officena.net) بالتوفيق

تفضل التعديل و لا تنسى تضيف رقم الحساب و المفتاح Function SendSMS(fromNumber As String, toNumber As String, body As String) Dim SmsUrl, ACCOUNTSID, AUTHTOKEN As String ACCOUNTSID = "ACCOUNT SID" ' ضع هنا رقم الحساب AUTHTOKEN = "AUTH TOKEN" ' ضه ضع هنا مفتاح الحساب On Error GoTo Error_Handler SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & ACCOUNTSID & "/SMS/Messages" Dim http As MSXML2.XMLHTTP60 Set http = New MSXML2.XMLHTTP60 http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" Dim postData As String postData = "From=" & fromNumber _ & "&To=" & toNumber _ & "&Body=" & body http.send postData Debug.Print http.responseText If http.status = 201 Then ElseIf http.status = 400 Then MsgBox "Failed with error# " & _ http.status & _ " " & http.statusText & vbCrLf & vbCrLf ElseIf http.status = 401 Then MsgBox "Failed with error# " & http.status & _ " " & http.statusText & vbCrLf & vbCrLf Else MsgBox "Failed with error# " & http.status & _ " " & http.statusText End If Exit_Procedure: On Error Resume Next Set http = Nothing Exit Function Error_Handler: Select Case Err.Number Case NOINTERNETAVAILABLE MsgBox "Connection to the internet cannot be made or " & _ "Twilio website address is wrong" Case Else MsgBox "Error: " & Err.Number & "; Description: " & Err.Description Resume Exit_Procedure Resume End Select End Function ODB_Database.zip

شكراً لكِ أرجو ذلك مما قلتي في الأيام القادمة الصبر مفتاح الفرج لكن بالنسبة لهذا المنتدى ف أنا لا أريد أي مقابل ومن يحتاج المساعدة أنا جاهز شكراً لكِ آنستي على هذا الكلام الرائع أنا حقا فخور بكلماتك واذا أردتي أي مساعدة فأنا موجود دائما هنا.

إذا كنت تقصد موقع BulkSMS فالموقع يقدم الدعم لمستخدمي أكسس.. الرابط التالي فيه مثال من الموقع لدعم مستخدمي أكسس http://developer.bulksms.com/eapi/libraries/supported/msaccess/ وهذا هو المثال: BulkSMS MS Access Samples.zip

السلام عليكم ورحمة الله تعالى وبركاته اخى الفاضل الاستاذ ahlamy90 اعتذر جدا جدا جدا والله لا أجد من الكلمات ما تعبر عن شديد اسفى تأخرت فى الرد على حضرتك بسبب ظروف عملى لانى مشغول جدا جدا هذه الايام وحتى منتصف الشهر ولكن اخى الحبيب تم الانتهاء من اعداد المثال لحضرتك وركز معى فى الاتى المثال يحتوى على عدد (2) وحدة نمطية اى خدمه *_^ مش واحدة بس زى ما حضرتك كنت عاوز ـــــــــــــــالوحدة الاولى ــــــــــــــــــ تقوم باعادة ترتيب او تصفير الترقيم التلقائى بمجرد فتح البرنامج بعد غلاقه المميزات ــــــــــــــــ - تقوم بتصفير الترقيم التلقائى ككل لو تم مسح كل السجلات - تقوم بإعادة ترتيب الترقيم التلقائى لو تم مسح بعض السجلات فقط وذلك دون اى تدخل من المستخدم - الاهم من ذلك أنها تتعامل مع الحقل الخاص بالترقيم التلقائى فى الجدول وهذا ما يميز الوحدة الاولى -تخرج التقارير من خلال الجدول بالترقيم السليم بعد اعادة ترتيبه ان اردت الترقيم من واقع الجدول يظهر فى التقرير العيب ـــــــــ لا يتم تنفيذ الترتيب او التصفير الا بعد اغلاق البرنامج واعادة فتحه ـــــــــــــــــــــــــــالوحدة النمطية الثانيةـــــــــــــــــــــــــــــــ الميزة الوحيدة ترى اعادة الترتيب او التصفير بمجرد اعادة تحميل النموذج فقط دون اغلاق البرنامج امممممم العيب ــــــــ غير مرتبطة بالترقيم الاصلى بجدول قاعدة البيانات لانها ترقيم تلقائى تخيلى فقط تراه بالنموذج دون الجدول مصدر البيانات الذى اعتمد النموذج عليه فى جلب ومعالجة البيانات والعمليات تقبل تحياتى اخى الحبيب بكل الحب والتقدير officena.rar

بعد اذن استاذى القدير/ بن علية ارجو تجربة المرفق قوائم التلاميذ الشغال 2013 2222.rar

السلام عليكم ورحمة الله أخي الكريم، انظر إلى الملف المرفق ربما تجد فيه ما تريد... أخوك بن علية المرفق : قوائم التلاميذ الشغال 2013.rar