ابوخليل

نعم هو فقط لإدراج الرقم التلقائي المحذوف . ........ ايضا تجد أدناه مثالا لإظهار الأرقام المحذوفة من عمل الأستاذة زهرة .. اتمنى ان تجد فيه الفائدة . ارقام التسلسل المفقودة.rar

المهم من خصائص الحقل يكون لا يقبل التكرار Set rs = CurrentDb.OpenRecordset("tbl1") i = text1 rs.AddNew rs!id = i rs.Update وادناه تطبيق لادراج رقمك المحذوف مع بعض الضوابط اعادة رقم محذوف في الترقيم التلقائي .mdb

تفضل التقرير يومي2.mdb

nmtext: IIf([time1]>=#06:00:00 ص# And [time1]<=#11:59:59 ص#;"صباح";IIf([time1]>=#12:00:00 م# And [time1]<#06:31:00 م#;"مساء";IIf([time1]>=#06:31:00 م# And [time1]<=#11:59:59 م#;"ليلا";IIf([time1]>=#12:00:01 ص# And [time1]<#06:00:00 ص#;"ليلا";"")))) في الكود اعلاه لان الاوفيس عندي عربي اختل ترتيب السطر يمكنك استبدال حرف الصاد المفرد بـــ Am وحرف الميم المفردة بـــ Pm تفضل تطبيق على العملية انظر في الاستعلام qry1 db4.mdb

يمكنك تحقيق ذلك باستخدام if او iif وتجعل شرطين اكبر ( < ) من الوقت الفلاني And اصغر (>) من الوقت الفلاني مثلا : if datetext > 05:59:59 And datetext < 12:00:00 then nmtext = "صباحا" الدالة الأخرى: nmtext : IIf (datetext > 05:59:59 And < 12:00:00 ; "صباحا")

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

لا يمكنك التحكم بحقل لوحة المفاتيح اذا كان منضما الى الجدول والحل هو ان تستخدم زر الادخال لنقل النتيجة الى الحقل المحدد انظر التعديل وبعد كتابة الرقم انقر انتر لوحة مفاتيح.rar

انظر في هذا الموضوع وهذا الموضوع كيف تعرض طابعاتك في قائمة وتختار منها الطابعة الافتراضية

المنتدى مليء بالمواضيع التي تتحدث عن هذا فقط ابحث وهذا واحد منها

اذا نظامك 32 الصق في اعلى الصفحة في محرر الفيجوال هذا السطر : Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long واذا نظامك 64 الصق السطر هذا : Private Declare PtrSafe Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long ثم استبدل كودك بهذا : Private Sub Command34_Click() On Error GoTo Err_Command34_Click Dim stDocName As String DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 '======================================== SetDefaultPrinter ("اكتب اسم الطابعة هنا") '=========================================== stDocName = "stool" DoCmd.OpenReport stDocName, acNormal Exit_Command34_Click: Exit Sub Err_Command34_Click: MsgBox Err.Description Resume Exit_Command34_Click End Sub

عليكم السلام ما نظام التشغيل لديك ؟ 32 ام 64

بعد الاطلاع على الفيديو لاحظت الزام مالا يلزم في عملية البيع والشراء وهي البيع والشراء بالدولار والدينار بطريقين منفصلين . الافضل توحيد العملية ( عملية واحدة ) تظهر فيهما العملتان ومن يريد الدفع يكون هو بالخيار : يدفع بأي عملة أراد . وحيث ان فرق الصرف بين العملات يتغير باستمرار يلزم تخصيص حقل في تحكم البرنامج يدرج فيه سعر العملة الاخرى بين فينة واخرى كلما تغير الفرق وانا مع الاستاذ خالد حين ذكر ان البرنامج قديم ، و 2015 لا يعتبر قديما ، ولكن فكرة التطبيق اقدم من ذلك بكثير من الافكار في البرامج القديمة التي تكون ضمن واجهات البيع : 1- البيع بالنقد أو الآجل 2- المدفوع والمتبقي 3- الحذف والتعديل

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

حسب الاحتياج الطريقة الثانية بلا وسيط تتجاوز النموذج الى الجدول مباشرة

السلام عليكم اخي د. ابو مهاب .. انت بحاجة لتحليل البيانات اشد من حاجتك لمحاسب حيث يمكنك الاستفادة من المحاسب والاستفسار منه وهو يعمل بين دفاتره واوراقه للمصطلحات المحاسبية التي يخفى عليك فهمها ثم تترجمها وتطبقها داخل مشروعك . على كل حال اي مبرمج قبل قيامه بتنفيذ اي مشروع يلزمه : جلسة عصف ذهني مع كوب من القهوة وجميل ان يصاحبها ورقة وقلم .. يحاول فيها ان يحيط بكل اجزاء المشروع . وبجملة مختصرة : تصور لبناء المشروع كاملا 1- ما البيانات التي يتم ادخالها 2- النتائج التي يتم عرضها او اخراجها . وانا اعلم اخي ان هذا لا يخفى عليك وانه من البديهيات عندك .. وانما طرحته للعموم . اعرض هنا امرين مهمين من واقع تجربتي عند تأسيس قواعد البيانات : 1- استخدام جدول واحد لتفاصيل البيع والشراء ( يدرج فيه كل شاردة وواردة : ""ارقام ومعرفات فقط قدر المستطاع"" ) 2- عدم استخدام العلاقات بين الجداول الا في اضيق الحدود ، مثلا عند تضمين نموذج فرعي يرتبط بالرئيسي ، وان امكن الاستغناء عن النماذج الفرعية المرتبطة فهو افضل . 3- الاكتفاء بالعلاقات داخل الاستعلامات .

اخي بارك الله فيك كل جهاز يرفق معه تعليمات من المصنع .. هذه التعليمات عبارة صور خطوط باركود ، كل صورة يتم قراءتها بالجهاز تقوم بتغيير خصيصة من خصائص الجهاز هذه الخصائص لـــ تغيير : حدة الصوت / اسلوب القراءة : يدوي ، آلي / اسلوب الكتابة : على السطر ، سطر جديد / اعادة الضبط المصنعي وهذه اعلاه اساسية في كل جهاز وغير ها كثير من الخصائص وهذا يعتمد على نوع الجهاز وامكاناته ( اجهزة آلية تقرأ عن بعد / اجهزة عادية / اجهزة تحتوي على ذاكرة للمخازن والجرد... الخ

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

ولا اجمل .. فكرة جميلة مختصرة رائعة .. سعدت بمشاركتك جربت الكود فوجدته يدرج حتى تاريخ الغد واخونا محمد سعيد يريده ان يتوقف عند تاريخ أمس لذا اضفت اليه سطرا لتقييده Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop

انت ذكرت المدة يومين او ثلاثة فأعطيتك الاجابة حسب الطلب اما من سنة فهذا يعني ان عدد الايام سيزيد كثيرا لذا غير السطر التالي : Dim i, ii As Byte الى : Dim i, ii As Integer

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

غريب طيب جرب تعمل تجزئة للسطر هذا : Dim i, ii As Byte بحيث يصبح Dim i As Byte Dim ii As Byte

تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub وهذا تطبيق : db4.mdb

تفضل وكما ذكرت لك الحل في خصائص العلاقة اتمنى ان يكون هو مطلوبك Sample.rar

الآن اتضحت الرؤية قيد النظر ...

عليكم السلام انت تريد عرض الأسماء على الشجرة ، وبالنقر على الاسم يفتح النموذج الخاص به ؟ اذا كان هذا صحيحا تفضل هذا مثال بسيط يمكنك محاكاته في برنامجك . Tree view22.mdb