Moosak

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

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

ضع هذا السطر في أول الكود : 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

ممتاز .. جميل جدا .. راائع ☺️ جميع هذه الأفكار الإبداعية محل ترحيب أخي @Hamtoooo 🙂 وأعجبني جمال تصميمك للنموذج أيضاً 😉👌

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

وعليكم السلام .. 🙂 حسب علمي القاصر .. أنه لا يوجد تأثير إلا أنه تظهر بعض المشكلات لأسباب مختلفة .. قد تكون بسبب الشبكة أو بسبب تصميم قاعدة البيانات .. أو ... أو ... وحسب ما أعلم أن الأصل والهدف الرئيسي من مشاركة قاعدة البيانات بين أكثر من مستخدم هو إما لعرض أو تحرير البيانات من قبلهم جميعا 🙂

وعليكم السلام ورحمة الله وبركاته .. 🙂 مجهود رااااااااااااااائع من شخص تحفة .... بسم الله ما شاء الله ويبقى الأكسس معين لا ينضب ... وقدرة جبارة على حل جميع التحديات 😊💪 بس ناقصنا ملف التجربة (المثال) .. 😅 علشان زي منته عارف حضرتك .. المبتدئين أمثالنا 😁✌️

لله درك يا محمد يا عصام @ابو جودي 🙂 بس ممكن يا باش مهندس تكرما تدينا شرح مبسط لكيفية الحصول على الباراميترات أو المعطيات ( بمعنى كيف نعبي هذي البيانات؟) .. فضلا عن شرح الأستاذ المبدع @SEMO.Pa3x

أخي صابر جرب مبدأيا تعديل غلق السجل المحرر من خصائص النموذج كما يلي : وإذا لم تجدي جرب غلق جميع السجلات : جرب وأخبرنا بالنتيجة 🙂

أنا أستخدم هذا الكود البسيط (لتفعيل/إلغاء تفعيل) الشفت وشغال معي بدون إشكال 🙂 : إلغاء أو تعطيل زر الشفت : Private Sub ShiftOff() On Error GoTo err CurrentDb.Properties("allowbypasskey") = False Exit Sub err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, False) End Sub السماح بزر الشفت Private Sub ShiftOn() On Error GoTo err CurrentDb.Properties("allowbypasskey") = True Exit Sub err: CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, True) End Sub

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

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

شكرا لك أخي العزيز derbali ammar 🙂 🌹

سوف يتم تحديث المكتبة قريبا إن شاء الله .. الجديد : 1- إضافة مجموعة كبيرة من الأكواد . 2- تعديلات طفيفة على البرنامج. قريبا إن شاء الله 🙂🌷