ابوخليل

اذا نظامك 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

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

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

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

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

عليكم السلام هذا الأمر لإظهار مربع خصائص الطابعة الافتراضية Shell "rundll32 printui.dll,PrintUIEntry /p /n""" & Printer.DeviceName & """", vbNormalFocus وهذا لإظهار مربع حوار الطباعة DoCmd.RunCommand acCmdPrint

تم التعديل خطوات التعديل : 1- التعديل على السطر : Me.DayZero = -1 * Weekday(MyGrDate) ليصبح : Me.DayZero = -1 * Weekday(MyGrDate) + 1 2- التعديل على مسميات الايام : احد /اثنين / ثلاثاء ... الخ ( تعديل الارقام داخل التسمية ) UmAlQuraUp.rar

العنوان مخالف .. المنتدى عربي فاكتب بالعربية

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

قد تستغرب ! لماذا لم تحصل على اجابة السبب ان مثالك المرفق لا يشتمل على بيانات كافية كما في الصورة التي ارفقتها يجب ان تتأكد من مثالك قبل رفعه