ابو ياسين المشولي

اعمل استعلام عند حذف الماده او ارفق مثال

جرب الان فاتورة احترافية.accdb

ارفق مثال يطبق عليه

كيف اغير الشريط

للرفع

انفضل اخي هذا كود يحذف كل الجداول الموجوده بالقاعده ماعليلك سوى تغير مسار القاعده وصيغتها مثلا انا عمامل mdb Dim x Beep x = MsgBox(" سـوف يـتـم حـذف كـل الـبـيـانـات الـمـسـجـلـة سـتـفـقـد كـل شـي هـل تـريـد الاسـتـمرار " & vbCrLf & "", vbYesNo, " بـرنـامـج الـخـيـاط ") Dim strSQL As String Dim tdf As TableDef Dim BackDB As DAO.Database Dim strPath As String strPath = CurrentProject.Path & "\data\tailor.mdb" Set BackDB = OpenDatabase(strPath) For Each tdf In BackDB.TableDefs If Not (Left(tdf.NAME, 4)) = "MSys" Then BackDB.Execute ("delete * from " & tdf.NAME) strSQL = "INSERT INTO " & tdf.NAME & " SELECT " & tdf.NAME & ".* FROM " & tdf.NAME & " IN '" & myfile & "';" BackDB.Execute (strSQL) End If Next DoCmd.Requery MsgBox " تـم حـذف كـل الـبـيـانـات الـمـسـجـلـة بـنـجـاح", vbInformation, " بـرنـامـج الـخـيـاط " BackDB.Close

نعم ولكن لم يجد لها اجابه

شكرا اخي ولكن ليس هو المطلوب هذا الكود هو يحرك النموذج انا اريد كود يتحكم بخط تسميه توضيحيه بالنموذج

شكرا لك اخي سوف اشوفه واعطيك خبر

بالتوفيق

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

اتفضل

لم اعدل غير الكود اخي محمد

مازال الامل يرودني اني بجد له حل

وهذا بالكود بعد اذن اخي Shivan Rekany زياده خير الحاق سجل1.mdb

اتفضل اتمنى يكون هو طلبك لم انتبه بان الاخ Shivan Rekany قد اجاب على السوال وزياده الخير خيرن 1 (4).accdb

للرفع

اتفضل اخي محمد قاسم 12 اتمنى يكون هو الصح Dim i, x As Long i = Nz(Me.Qtyout) x = Nz(Me.rsd) If i > x Or x = 0 Then MsgBox "الرصيد لا يغطي" DoCmd.CancelEvent Undo Qtyout = "" Exit Sub Else Total = Nz(Qtyout) * Nz(PRICESALE) End If

مرورك اخي Khalf لكي تتضح لكم الصورة اريد اتحكم بحجم خط النموذج التسميه التوضيحيه انا عامل في النموذج عند حدث التحميل هذا ولكن يطلع الخط صغير وما عرفت كيف اجعله كبير Me.Form.Caption = DLookup(" [اسم المحل] ", "الجدول") & Space(100)

شكرا لمرورك اخي ابو زاهر ماقصرت

شكرا لمرورك اخي ابو زاهر انا اريد اتحكم بالخط عبر كود مختصر كود بالنموذج

اين اهل الخبرة

للرفع

السلام عليكم اخواني مشرقي المنتدى والاعضاء الكرام لدي استفسار كيف اكبر الخط في النموذج مثال كيف اتحكم بالخط عبر الكود Me.Caption = "ابو ياسين"

اخي شوف هذا الفيديو سوف تجد ظالتك