Moosak

حكم تنهال علينا كالدرر .. فلله در قائلها ☺️ ولما بنتكلم عن الإبداع في الإخراج واللعب في الأحجام بنقول أيييييييه ؟ 😁 مع إدخال التنسيق الشرطي لمربعات النص في اللعبة

أحلى شي فيها أنها جابتك لينا .. ورجعتك بالسلامة 😂

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

:: بسم الله الرحمن الرحيم :: ** السلام عليكم ورحمة الله وبركاته ** .. أما قبل .. فالصورة التالية تحكي لكم الفكرة باختصار : .. أما بعد : .. فإليكم الطريقة كما هداني إليها رب العالمين 🙂 : أولا :: تقوم بتصميم جدولك وإضافة حقول نعم/لا بالطريقة العادية ثانيا :: تصمم استعلام يكون مصدره جميع حقول جدولنا الجميل 🙂 ثالثا :: تضيف حقول جديدة في الاستعلام ( حقل مقابل كل حقل من نوع (نعم/لا) في الجدول ) نسميه بنفس اسم العقل مع إضافة رقم2 لتفنيده عن الحقل الأصلي وتضيف له هذه الدالة : .. NewFeildName: IIf([TrueOrFalseFeild]=-1;ChrW(10004);ChrW(10008)) وتقوم بتغيير اسم الحقل لكل واحد من حقول الجدول ملاحظة : ChrW(10004) تعطيك الرمز ✔ و ChrW(10008) تعطيك الرمز ✘ لتكون التيجة النهائية هكذا : وعند حفظ الاستعلام وعرضه يظهر لنا هكذا : رابعا :: تقوم بإنشاء نموذج جديد مبني على الاستعلام الظريف وتنسقه بالطريقة التي تحبها .. وتنتبه أنك ستدرج الحقول الجديدة التي أنشأناها في الاستعلام بدلا عن الحقول الأصلية .. ستكون الحقول البديلة عبارة عن حقول نصية عادية غير قابلة للتعديل ( لأنها حقول محسوبة ) .. لذلك سيسهل عليك تنسيقها باللون والشكل الذي تحبه تماما كما تنسق أي حقل نصي آخر 🙂 خامسا :: فقط بقي علينا أن نظيف أمر تغيير قيمة حقول (نعم/لا) الأصلية عند النقر على الحقول البديلة .. ولعمل ذلك نضع الأمر (الكود) البسيط التالي في حدث عند النقر على لكل خانة ( IsActive كمثال ) : Private Sub IsActive2_Click() IsActive = Not IsActive x.SetFocus End Sub وتكرر نفس العملية لكل واحد مع تغيير أسماء الحقول .. لاحظ أنني أضفت هذي للكود ( x.SetFocus ) في النهاية ، وهي باختصار حركة تجميلية .. حيث قمت بإضافة مربع نص (غير منظم) للنموذج وسميته x وجعلت لونه ولون حدوده نفس لون خلفية النموذج ، وجعلت حجمه صغيييييييييييييييير جدا 🙂 يعني الطول x العرض بمقدار = 0.01 تقريبا ..( الهدف أنه ما يظهر للمستخدم) وبعدها خليت الأمر ينقل التركيز لهذا المربع الصغير .. فكانت النتيجة كما شاهدتم سيداتي وسادتي 😊 ونكون بذلك قد انتهينا من عمل مربعات صح أو خطأ كبيرة وجميلة وتنفتح لها النفس 😉👌 وبعدها ينفتح لكم باب الخيال الواسع للإبداع والزيادة كما تشتهي أنفسكم وتلذ أعينكم 😊 ولا تنسونا من صالح دعواتكم وزكواتكم وهداياكم 😅 :: وختامها رابط المثال للتحميل (مجاناً) 😁 :: صح أو خطأ.accdb

جرب ضع هذا الأمر في حدث بعد التحديث للنموذج الأول : Private Sub Form_AfterUpdate() On Error Resume Next [Forms]![Form2].Requery End Sub

تعديل على كود أستاذنا @مبرمج سابق ليوافق سؤالك 🙂 : Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rs As Recordset Set rs = Me.RecordsetClone rs.FindFirst "[LockupFeildInTheTable] = " & Me.FeildInTheFormTxt If Not rs.NoMatch Then If MsgBox("هذه القيمة مكرره هل توافق على التكرار.", vbYesNo, "تنبيه") = vbNo Then Cancel = True End If Else End If rs.Close Set rs = Nothing End Sub

جرب الآن أخي أبو البشر 🙂 إرسال مع مرفقات .. ABO.mdb

جرب إضافة هذه قبل الرابط : http:\\

تفضل 🙂 ABO.mdb

جرب استخدم هذه الدالة لفتح الملفات : Public Sub OpenPath(strPath As String) Shell "explorer.exe" & " " & strPath, vbNormalFocus End Sub وطريقة استخدامها بالشكل التالي : OpenPath "C:\Windows"

أخي أبو الحسن رفع الله قدرك 🙂 ألاحظ أنك كلما تنزل موضوع وفيه نفس هذا البرنامج أنك لا تقدم كل المعطيات اللتي يحتاجها الإخوة لتقديم المساعدة .. - البرنامج له واجهة ( اسم مستخدم وكلمة سر ) ... !! لا تتوقع أننا عارفينها وحافظينها 😅 لازم تخبرنا بها كل مرة . - النموذج الذي تذكره مرتبط بتسجيل الدخول ولا يفتح ويعلق إلا إذا دخلنا باسم المستخدم وكلمة المرور . - وبهذا سيضطر الإخوة لإعادة سؤالك عن هذه المعطيات ( الأساسية ) كل مرة !! وهذا في اعتقادي سبب التأخر في الرد على مواضيعك دائما 😏 ومنك المعذرة .. أعتبرها نصيحة من أخوك المسلم 😊🌹

أخي @صابر سليمان جيد لو ترفق الجزئية ذات المشكلة من برنامجك .. ربما المشكلة في الربط بين رأس وتفاصيل الفاتورة ( يعني في التصميم ) .. أو أوامر الحفظ .. 🙂

كلنا نفتقده .. أعاده الله إلينا سالما غانما 😊

ضع هذا السطر في أول الكود : If IsNull(Me.كود_المشروع) Then Exit Sub هكذا : Private Sub btnCount_Click() If IsNull(Me.كود_المشروع) Then Exit Sub x = Me.كود_المشروع strSql = "SELECT [MAIN-TABLE].*, [MAIN-TABLE].[كود المشروع] " & _ "FROM [MAIN-TABLE] " & _ "WHERE [MAIN-TABLE].[كود المشروع]=" & x Dim rs As Recordset Set rs = CurrentDb.OpenRecordset(strSql) i = 0 For y = 0 To rs.Fields.Count - 1 If rs.Fields(y).Value = "NA" Or rs.Fields(y).Value = Chr(34) & "NA" & Chr(34) Then i = i + 1 End If Next Me.txtCount = i End Sub

تظل في عيني مهندس .. ومن كبار المهندسين 😊 وليست الهندسة هنا شهادة تعليمية ( ورقية ) .. ولكنها مكانة علمية وقيمة واجب علينا تقديرها 👍🏼😉 نعم مهندسنا العزيز كما قلت .. وما كان تعليقي إلا إضافة لما تفضلت به .. والمقصد هو توضيح الصورة للمبرمج وتوسيع الأبعاد لما يمكن أن يواجه لاحقا ووضع السيناريوهات المختلفة للأمر 🙂 تحياتي وتقديري 🌹

ضع هذا الكود على حدث بعد التغيير لمربع التحرير والسرد ولا تنسى تغيير اسم الفورم واسم مربع التحرير والسرد الذي في النموذج الرئيسي ( في الكود ) : Dim V V = Me.ActiveControl.Value [Forms]![MainFormName]![ComboName] = V جرب 🙂

نعم أخي العزيز ممكن .. تقوم بعملها في التقرير بنفس الطريقة التي تعملها في النموذج 🙂

أحسنت مهندسنا العزيز 🙂 ولكن ربما نضطر لوضع الأسطر البرمجية التي استغنينا عنها الآن لاحقاً عندما نريد أن نستخدم قيمة الحقل لتفنيد نوع البيانات 😅

وعليكم السلام ورحمة الله وبركاته أخي يونس .. 🙂 طبعا من ناحية الإمكانية ... نعم ممكن ولكن ما هي فكرتك من عملها بهذه الطريقة ؟ ربما تكون هناك فكرة عملية أكثر من هذه

بعد إذن مهندسنا @احمد الفلاحجي وإجابة على سؤالك 🙂 .. ضع السطر التالي عند حدث في الحالي للنموذج : Private Sub Form_Current() btnCount_Click End Sub

ما يقصده الأستاذ @احمد الفلاحجي هو أن تلغي خاصية التجميع أو الإجماليات من تصميم الاستعلام :

مشاركة مع معلمنا الكبير @مبرمج سابق ، ولحل قضية نوع البيانات المدخلة هذا تعديل بسيط على الكود ليستقبل أرقام أو نصوص أو تواريخ بدون الحاجة لوضع الأقواس أو ال # : 🙂 Dim dv As String dv = Nz(BB, " ") DoCmd.OpenForm "form1", acDesign Select Case dv Case IsNumeric(dv): [Forms]![form1]!AA.DefaultValue = dv Case IsDate(dv): [Forms]![form1]!AA.DefaultValue = "#" & dv & "#" Case Else [Forms]![form1]!AA.DefaultValue = "'" & dv & "'" End Select DoCmd.close acForm, "form1", acSaveYes DoCmd.OpenForm "form1", acNormal قيمة افتراضية.accdb

وعليكم السلام أخي عبد القدوس 🙂 وجدت لك هذا الكود .. ولم أجربه .. لعله يفيدك : '***************************************************** '****************SELECTING A FILE LOCATION**************** '***************************************************** 'ATTENTION: YOU MUST go to Tools->References and select 'Microsoft Office X.X object Library' for 'the FileDialog function to work properly Dim retFile As String, dlg As Variant, s As String Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg 'This is the title of the browser window you will use to select the file path. .Title = "Select a Latitude Longitude Snapshot File" .AllowMultiSelect = False ' Name and select the file type. *.* will show all file types .Filters.Add "Snapshot files", "*.html" ' The initial file name can be anything you choose, the example below will start you at the root of your "C" drive ' .InitialFileName = "c:\" If .Show = -1 Then s = .SelectedItems(1) End With If s <> "" Then '*** retFile stores the full path to the selected file *** retFile = s End If '*** Linking the Acess DB to the HTML datasheet *** '*** Once the link is complete, it will display in access as a table. Following we declare a tab name. *** Dim tabName As String tabName = "LatLon" DoCmd.TransferText acLinkHTML, , tabName, retFile, -1 :: المصدر ::

لله درك أخي @احمد الفلاحجي 👍🏼😄 الآن فقط انتبهت أن الرجل يقصد إدراجها هنا في المنتدى وليس في برنامج الأكسس 😅

للأسف لم أجد موضوع شافي وكافي يشرح الطريقة في المنتدى .. ولكن وجدت لك هذه الفيديوات تشرح لك الطريقة 🙂 : https://www.youtube.com/watch?v=A5cdjV2a9FQ https://www.youtube.com/watch?v=2I0aZmZ62Lk https://www.youtube.com/watch?v=ux7X8C3K_bU https://www.youtube.com/watch?v=3s9OI-6t8fM