ابوآمنة

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

تفضل الإجابة في نموذج (نموذج12) استراد وتصدير.accdb

تفضل الكود Private Sub Comand3_Click() If Len(Me.text & vbNullString) = 0 Then 'في حال عدم وجود شرط بحث strcriteria = Replace(strcriteria, " Where ", "") DoCmd.OpenReport "rptItems", acViewPreview, , strcriteria Else 'في حال وجود شرط بحث Dim RName, FldCriteria As String RName = "rptItems" FldCriteria = "[ID]=" & "'" & Me.text & "'" DoCmd.OpenReport RName, acViewPreview, , FldCriteria End If End Sub وبقية التفاضيل في برنامج الخليل في نموذج FrmFilteringQTY

Dim req As String req = "select * from saleh where id=3;" Me.RecordSource = req السطر الأخير معناه نجعل مصدر السجلات لنموذج الحالي هو الاستعلام req ومساهمة أخرى مع أخي @MTGFM و للمنوذج الفرعي هكذا Me.frmSub.Form.RecordSource = ("Select * From saleh")

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

تفضل نسخة accdb وتم إضافة بعض التحسينات في هذه النسخة . BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

تابع هذا الفيديو حل مشكلة فشل Microsoft Access من إنشاء الوحدة النمطية Visual Basic

جرب Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label1.Caption = Me.Text0.Name Me.Text0 = Me.Text0.Name End Sub

جرب هذا الكود If NewData = Not Null Then Me.STATION_OUT_DEP = Null Else Response = acDataErrContinue End If

جرب إزالة الرسالة والاكتفاء Response = acDataErrContin

Private Sub STATION_OUT_DEP_NotInList(NewData As String, Response As Integer) MsgBox "الادخال خاطيء ...انت محدد بالقائمة ... يرجى عدم ادخال اي شيء آخر", vbOKOnly Response = acDataErrContin End Sub فقط ضع هذا الكود اسفل الرسالة Response = acDataErrContin لست بحاجة لاستخدام كود إخفاء رسائل الاستعلام هذا DoCmd.SetWarnings False الملف بعد التعديل COMBO BOX ERROR.accdb

تسلم أخي أحمد لك 😘 لجهودك المتميزة في المنتدى بارك الله فيك وفي امثالك .

في الخدمة يا أخي عبداللطيف😘

تفضل أخي عبداللطيف تجربة متعددة.accdb

حياك الله أخي @أحمد الفلاحجى اشغلتنا مشاغل الدنيا كنت قبل اسبوع اقدم برنامج تدريبية في جهة عملي عن إنشاء قواعد البيانات باستخدام برنامج اكسيس ودللتهم على هذا المنتدى المبارك ومشرفيه وخبراء المتميزين . والفترة القادمة سأحاول تعلم لغة #C بتقنية asp.net الله يسهل دعواتكم اشكر لك سؤالك

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

شاهد المرفق تنزيل

اطلع على هذا الموضوع

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

ما هي المشكلة بالضبط . وما هو نوع الخطأ.

تفضل لعله يكون هذا طلبك Select Case MsgBox(Prompt:="هل تريد إكمال عملية إشعار المقبولين ؟", Title:=Compan, Buttons:=vbYesNo + vbInformation + vbDefaultButton1 + 1572864) Case vbYes Dim RC As Integer Dim i As Integer Dim rst As Variant Dim T As String Set rst = CurrentDb.OpenRecordset("Select * From QrySet where [rashaqa]=" & Me.a & "") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC txtMessage = "السلام عليكم أ." & qsplit(rst.leader_name, 0) & vbCrLf & _ "تم قبولك في دورة" & vbCrLf & rst.school_name & _ vbCrLf & "المكان" & vbCrLf & rst.marhala & _ vbCrLf & "نهاية الرسالة" T = send(URLEncode(UserName), URLEncode(Password), ConvertToUnicode(txtMessage.Value), txtSender.Value, rst.phone1.Value) ShowResult T updateBalance rst.MoveNext Next i rst.close: Set rst = Nothing txtMessage = "" MsgBox "لقد تمت العملية بنجاح" Case vbNo MsgBox "تم الرجوع" End Select test.accdb

وعليكم السلام أخي @أحمد الفلاحجى رجل مكافح ،ويتعلم بأدب، ويخدم الناس . دائما يثري المواضيع ويسأل عن أدق التفاصيل بصراحة نحن نفخر بهذه الكوكبة المباركة . تستحق أن تكون خبيرا وبالتوفيق 🌹

شاهد الموضوع

شاهد هذا الموضوع

برنامج HR مفتوح المصدر ربما ينفع معك