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

في جميع اعمالي لا اربط علاقات بين الجداول .. الا نادرا لحاجات خاصة عند انشاء نموذج محدد دوما اعمل العلاقات داخل الاستعلامات ولكن يجب تهيئة العمل لذلك .. مثلا الحقل الفرعي المرتبط اذا ادخال القيمة فيه صريح يدوي ( اي لا نستخدم مربعات التحرير المحكومة) فيجب وجوبا ربط الجدولين بالعلاقة

جرب واعلمنا بالنتيجة .............. mu.accdb

جرب هذا ... لانه ليس لدي ماسح Public Function SelectScanner() 'يتطلب إضافة مرجع إلى “Microsoft Windows Image Acquisition Library v2.0 Dim ComDialog As New WIA.CommonDialog Dim wiaScanner As WIA.Device ' عرض نافذة لاختيار الجهاز Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.ScannerDeviceType, False, True) ' إذا تم اختيار جهاز، فإن DeviceID سيحتوي على معرف الجهاز المحدد If Not wiaScanner Is Nothing Then MsgBox "تم اختيار الجهاز: " & wiaScanner.DeviceID Else MsgBox "لم يتم اختيار أي جهاز." End If End Function

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

السلام عليكم ورحمة الله وبركاته شكرا جزيلا لإهتمامكم البالغ أخى محمد تمت الإفادة بحول الله تعالى وجزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاته.. اختنا الكريمه @hanan_ms ، الله يعطيكي العافية على مجهودك.. استفساري بسيط ولكن للآن ما فهمت اسم الأداة و وظيفتها 😬 أرجو المعذرة منك ولكن بودي أشاركك أفكارك لكن صدقاً ما قد فهمت الفكرة والهدف من البرامج واسمه كأداة شبكة القواعد بيانات بنطاق الجغرافي.

بارك الله فيك اخى الكريم وجعل علمك فى ميزان حسناتك

راجع هذا الموضوع للكلمات المحجوزة للاكسس

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

وعليكم السلام ورحمة الله وبركاته في صفحة مبيعات اكتب عدد صتف قمت ببيعة بتم انقاصه من المخزن وان كررت الصنف يتم انقاصه كذلك في حالة كتابة اسم الصنف خطأ تاتى رسالة بذلك في حالة عدد المبيع اكبر ما هو موجود بالمخزن تاتى رسالة بذلك الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim wsMokhzan As Worksheet Dim wsMabieat As Worksheet Dim productName As String Dim soldQuantity As Long Dim foundCell As Range Set wsMokhzan = ThisWorkbook.Sheets("مخزن") Set wsMabieat = ThisWorkbook.Sheets("مبيعات") If Not Intersect(Target, wsMabieat.Range("E5:E" & wsMabieat.Cells(wsMabieat.Rows.Count, "E").End(xlUp).Row)) Is Nothing Then Application.EnableEvents = False For Each cell In Intersect(Target, wsMabieat.Range("E5:E" & wsMabieat.Cells(wsMabieat.Rows.Count, "E").End(xlUp).Row)) If IsNumeric(cell.Value) And cell.Value > 0 Then productName = cell.Offset(0, -1).Value soldQuantity = cell.Value Set foundCell = wsMokhzan.Range("B4:B" & wsMokhzan.Cells(wsMokhzan.Rows.Count, "B").End(xlUp).Row).Find(What:=productName, LookIn:=xlValues, LookAt:=xlWhole) If Not foundCell Is Nothing Then If wsMokhzan.Cells(foundCell.Row, "C").Value >= soldQuantity Then wsMokhzan.Cells(foundCell.Row, "C").Value = wsMokhzan.Cells(foundCell.Row, "C").Value - soldQuantity Else cell.Value = "" cell.Value = "" End If Else MsgBox "المنتج " & productName & " غير موجود في المخزن", vbExclamation cell.Value = "" End If End If Next cell Application.EnableEvents = True End If End Sub الملف طرح المباع من المخزن.xlsb