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

وعليكم السلام ورحمة الله وبركاته خلينا نجرب نغير تنسيق التاريخ جرب ووافني بالنتيجة Select Case MbAll Case 1 T = Format(DateAdd("m", -12, Date), "yyyy-mm-dd") Case 2 T = Format(DateAdd("m", -6, Date), "yyyy-mm-dd") Case 3 T = Format(DateAdd("m", -3, Date), "yyyy-mm-dd") Case 4 T = Format(DateAdd("m", -1, Date), "yyyy-mm-dd") End Select

الاخ شفان موجو😉دة هنا اتفضل اليك هذا Private Sub الحالة_AfterUpdate() If Me.الحالة.ListIndex = 0 Then Dim AppendSql As String Dim DelSql As String AppendSql = "INSERT INTO mad ( الرقم, التاريخ, التفاصيل, المبلغ, العملة, الحالة, ملاحظات ) SELECT anas.الرقم, anas.التاريخ, anas.التفاصيل, anas.المبلغ, anas.العملة, anas.الحالة, anas.ملاحظات FROM anas WHERE (((anas.الرقم)=[Forms]![anas]![الرقم]));" DelSql = "DELETE anas.الرقم, anas.التاريخ, anas.التفاصيل, anas.المبلغ, anas.العملة, anas.الحالة, anas.ملاحظات FROM anas WHERE (((anas.الرقم)=[Forms]![anas]![الرقم]));" DoCmd.SetWarnings False DoCmd.RunSQL (AppendSql) DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Requery End If End Sub اليك ملف بعد تعديل Database1 (1) (1).rar

اتفضل اليك هذا عند كتابة رقم اي دي جديد سيعمل الكود Private Sub ID_AfterUpdate() If IsNumeric(Me.ID) Then Me.salaryname = DLookup("[salarynew]", "[TblSub]", "[ID]=" & Me.ID - 1 & "And [namee]='" & Me.namee & "'") Me.Lastdate = DLookup("[asthkakdate]", "[TblSub]", "[ID]=" & Me.ID - 1 & "And [namee]='" & Me.namee & "'") End If End Sub لكن يجب ان يكون اي دي الجديد بيكون رقم ويجب ان تكتب اي دي اكبر من اي دي السجل القبله AlawatProgram3.rar

وعليكم السلام ورحمة الله وبركاته استخدم: ="1" & Format([f_date],"yy") & Format([f_date],"mm") & Format([f_date],"dd") & Format([number],"0000")

جرب هذا الملف sakim_div.xlsx

دعوات من انسان طيب القلب مثلك ،،، بالدنيا وما فيها ولك بالمثل ولعامة المسلمين :: تحياتي

السلام عليكم ورحمة الله وبركاته @عبد اللطيف سلوم تعديلاتك استاذ لدي ملف بسيط فيه نموذجين anas يمثل الغير نمدفوع و mad هو المدفوع المطلوب عندما اكتب تم الدفع هو حذف السجل من نموذج anas ونقله الى نموذج mad مع الشكر للجميع Database1 (1) (1).rar

نعم بيختفي السجل وما يظهر في نموذج mad لان مصدر نموذج mad هو جدول anas وليس جدول mad لذلك قمت بتغيير مصدره والان كل شيء تمام اتفضل Database1 (1) (1).rar

مشاركة مع اخي شيفان في حدث بعد التحديث الحالة If Me.الحالة = "تم الدفع" Then Dim SQL As String '==== Insert SQL = "INSERT INTO mad([الرقم],[التاريخ],[التفاصيل],[المبلغ],[العملة],[الحالة],[ملاحظات])" & _ "SELECT [الرقم],[التاريخ],[التفاصيل],[المبلغ],[العملة],[الحالة],[ملاحظات] " & "FROM anas " & _ "WHERE [الرقم] NOT IN (SELECT [الرقم] FROM mad);" DoCmd.SetWarnings False DoCmd.RunSQL SQL DoCmd.SetWarnings True '==== Delete CurrentDb.Execute "DELETE * FROM anas WHERE [الرقم]=" & Me.[الرقم] & "", dbFailOnError '==== Ref Me.Requery '==== InsCmd.Enabled = False End If

اتفضل اليك هذا Private Sub TTarix_Click() Dim FariqYear As Integer FariqYear = DateDiff("yyyy", Me.FirstDate, Me.EndDate) Me.Form.SetFocus Me.Frm1.SetFocus Me.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Me.Frm1.Form.Recordset.RecordCount If Month(Me.FirstDate) <> 12 Then If i = 1 Then Form_Frm1.ShopDate = Me.FirstDate ElseIf i = 2 Then Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) Else Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 2) End If Else If i = 1 Then Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) Else Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1) End If End If DoCmd.GoToRecord , , acNext Next i End Sub كان من الممكن ان تجمع هذا الكود مع الكود الموضوع الاول في زر واحد ProgAssit28.rar

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

السلام عليكم ورحمة الله جرب الكود التالي بدل الآخر: Sub طباعة() Range("n3").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$m$42" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 If ActiveCell.Value > Range("d1").Value Then ActiveCell.Value = Range("d1").Value: Exit Sub ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("d1").Value Range("E1").Select End Sub

يجب ان توضع المعادلة للبحث عن تاريخ احدهما أو كلاهما يكون بين التاريخين وفي بعض الاحيان يكون جزا من الاجازة يدخل في حدود تاريح البداية وتاريخ النهاية مثل بحثت عن الموظفين المجازين من تاريخ 5/9/2018 الى 15/9/2018 ويوجد موظف تمتع باجازة من تاريخ 4/9/2018 الى 16/9/2018 لاحظ ان جزأ من الاجازة دخل ضمن نطاف البحث لذلك نستخدم هذه المعادلة في الاستعلام في معيار تاريخ البداية <=[forms]![اسم النموذج]![اسم حقل تاريخ البداية] Or <=[forms]![اسم النموذج]![اسم حقل تاريخ النهاية ] وهذه المعادلة تكون ف معيار تاريخ النهاية >=[forms]![اسم النموذج]![اسم حقل تارخ البداية] Or >=[forms]![اسم النموذج]![اسم حقل تارخ النهاية ] ::بالتوفيق::

استاذ احمد لم ادرس الاكواد جيداً بعد لكني لاحظت شيئاً ان المستخدم عندما ينفذ كود معين يجب ان يكون في الشيت التي يتبع لها هذا الكود ولا مجال هنا للخطأ لان عملية Undo غير مجدية في الاكواد (ربما يقوم الكود بمسح سجلات غير مرغوب بمسحها) لذا اقترح ان تدرج العبارة التالية في بداية كل كود If ActiveSheet.Name <> "ْXXXXXX" Then Exit Sub مكان XXXXXX تضع اسم الشيت حبث سينفذ الماكرو التقليل قدر المستطاع من استعمال Select التي ترهق البرنامج. مثلا بدل استعمال Sheets("Sheet1").Select Range("a1:a500").Select Range("a1:a500").Copy يكفي Sheets("Sheet1").Range("a1:a500").Copy

السلام عليكم ارفق قاعدة بيانات اكسس تحتوي على جدول باسم Data فيها مواد غذائية واسعارها ولكل مادة الباركود الخاص بها وكذلك تحتوي قاعدة البيانات على form مرتبط بالجدول list الذي يمثل قائمة البيع المطلوب فضلا وليس 1- امرا عند ادخال رقم المنتج عن طريق قارئه الباركود يتم اظافة المنتج بالجدول list اوتماتيكيا ويتم التحديث بدون الضغط على اي زر في الكمبيوتر ويتم تفريغ حقل الادخال ليكون مستعد لقراءة منتج اخر 2- رسالة تنبيه في حالة عدم وجود المنتج ضمن قائمة المواد الموجودة في الجدول Data 3- رسالة تنبيه في حالة تكرار قراءة المادة بجهاز الباركود وشكرا test 4.rar

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

ذا اردنا ان تختار مجموعة عشوائية من تلاميذ صف ( بعدد محدد) و ادراج اسمائهم في عامود (دون تكرار) و في عامود اخر ما بيقى منهم اكسل يحل لنا هذا الموضوع بواسطة هذا الملف الكود Option Explicit Sub RANDOM_ELEVES() If ActiveSheet.Name <> "Salim" Then GoTo Exit_Me ActiveSheet.Unprotect With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Dim x%: x = [h2] Dim y%: y = [h3] If Not IsNumeric(x) Or x < 1 _ Or x Mod 1 <> 0 Or x >= y Then x = Int(y / 2) [h2] = x End If Range("d2", Range("d1").End(xlDown)).ClearContents Range("f2", Range("f1").End(xlDown)).ClearContents Dim My_Rg: Set My_Rg = Range("b2:b" & lr) Dim g() ReDim g(1 To lr) Dim i Dim k%: k = 1 Do Randomize i = Int((lr - 1 + 1) * Rnd + 1) If g(i) = False Then g(i) = i k = k + 1 Cells(k, 4) = My_Rg.Cells(i) End If Loop Until k = [h2] + 1 Range("d2:d" & k).SortSpecial Header:=xlNo k = 2 For i = LBound(g) To UBound(g) If g(i) = vbNullString Then Cells(k, 6) = My_Rg.Cells(i) k = k + 1 End If Next Erase g ActiveSheet.Protect Exit_Me: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف ا Choose_Studiantes.xlsm

السلام عليكم اريد عمل كود للموظفين حسب تاريخ ميلادهم مثل الرقم القومى فلو الموظف تاريخ ميلاده مثلا ( 2018/9/11) فيبقى مثلا ( 11809110000) الاصفار ده التسلسل بتاع الموظف فى التاري خ ده .. ورقم واحد الاخير ده ثابت لقيت مثال هنا للترقيم التلقائى بس مظبطش مثال موظف تاريخ ميلاده 1981/10/11 يبقى الكود111100021 موظف اخر تاريخ الميلاد 1965/10/11 يبقى الكود 111100003 ارجو الرد شكرا جزيلا db9790.rar

اخواني الاعزاء كان لدي نموذج مصمم 2003 اكسس وعند نقله الى 2010 لم يعمل الكود وكان الكود هكذا DoCmd.ApplyFilter "", "left([rakm],10)+Left(Nz([goal],0),10)+Left([name],50) Like '*' & [Forms]![selectCustomer]![which2] & '*'" DoCmd.GoToControl ("SupplierName") If txtCount = 0 Then Dim rs ' As DAO.Recordset Dim Xsearch As String 'الاسم يجب وضعه If IsNull(which2) = True Then Exit Sub 'بحث لسجل قي الجدول Set rs = CurrentDb.OpenRecordset("data1", dbOpenDynaset) 'البحث بالاسم المدخل في مربع النص Xsearch = "[name] = '" & Me![which2] & "'" rs.FindFirst (Xsearch) If rs.NoMatch Then Beep MsgBox " المـعـذرة يـرجـاء الـتـأكـد .... لا يـو جـد عـمـيـل بـهـذا الإسـم : " & Me.which2, , DLookup(" [الاسم_التجاري] ", "بيانات_الشركه") & Space(5) & " : خـطـاء " cancel = True 'Else ' فتح النموذج اذا وجد الاسم 'DoCmd.OpenForm "data", , , "[name] = '" & Me.which2 & "'" End If Set rs = Nothing End If

تفضل اخى الكريم لك ما طلبت شامله حافظة-توريد-حصة-الادارة.xlsx

اذن ارفق ذلك الموقع من قاعدة بياناتك مع ذلك العملية لكي نشوفه

أشكرك أستاذي أبو ألاء على كرم أخلاقك وأسأل الله أن يوفقك لما يحبه ويرضاه وكل عام انت بخير

بارك الله فيك استاذى استاذى الفاضل @ahmedkamelelsayed0 ربي ىسعدك استاذى

وعليكم السلام تفضل و جعفر

وعليكم السلام المادة د من الرابط تعطيك الطريقة التي استعملتها انا جعفر

بارك الله فيك استاذى جميل جدا استاذى @سليم حاصبيا بارك الله فيم استاذي @بن علية حاجي

جرب المعادلات التي بالمرفق للرفع.rar

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

الله ينور دربك ياوزيرنا الف الف شكرا اليك زاداك الله علما واعطاك الصحه والعافيه والعمر المديد وحفظك الله من اي مكروه دوما وانت تفرحني بلمساتك فعلا تمت العمليه بنجاح لي ثلاث ايام احاول ابحث عن حل دون جدوي فجعله الله بميزان حسناتك هو المطلوب بكله قبله على راسك تحياتي اليك

اعتذر منك بشدة اليك هذاانا كان اضفت اشياء في الكود و نسيت احذفه اليك هذا ProgAssit28.rar

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

تسلم اخي Shivan Rekan نعم كلامك صحيح ميه في الميه تسلم بارك الله فيك كانت المشكلة كما قلت الف الف شكر

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

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

السلام عليكم جرب سحب المعادلة التي وضعتها في الخلية C1 إلى الأسفل في الملف المرفق... بن علية حاجي Book1 (2).xlsx

عليك بضغط الملف ببرنامج وين رير ثم رفعه

تريد استعلام الحاق مع استعلام حذف انا الان انا بالمبايل

قم بإنقاص العدد الموجود في الخلية D1 بمقدار (1) إن لم تستطع ذلك بمعادلة اذهب لخلية أخرى واكتب المعادلة =(d1)-1 وقم بتغيير Range ("d1") إلى اسم الخلية الجديدة

أشكرك أستاذي سليم على مرورك وملاحقوائم.xlsظاتك وتم التعديل قوائم.xls

قم بتجربة هذا الكود =IF(A2="";"";IF(A2<=SMALL($A$2:$A$17;5);15;IF(A2<=SMALL($A$2:$A$17;9);21;30)))

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

جرب هذا الماكرو (على اساس ان البيانات تبدأ من الخلية A1 ) و يتخللها صفوف و أعمدة فارغة Sub del_rows_and_columns() Dim my_rg1 As Range, my_rg2 As Range Dim y%: y = Cells(1, Columns.Count).End(1).Column Dim x%: x = Cells(Rows.Count, 1).End(3).Row Set my_rg1 = Range(Cells(1, 1), Cells(1, y)).SpecialCells(4) Set my_rg2 = Range(Cells(1, 1), Cells(x, 1)).SpecialCells(4) my_rg1.EntireColumn.Delete my_rg2.EntireRow.Delete End Sub

تفضل حذف الصفوف والخلايا الفارغة.xlsm

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

تفضل الكود المعدل المطلوب =IF(A2="";"";IF(A2<=SMALL($A$2:$A$17;5);15;21))

احبائي اعضاء المنتدى اوفيسنا السلام عليكم ورحمة الله وبركاته في هذه الاونة الاخيرة اشوف ان كثير من احبائنا بيسئلون عن ضغط و اصلاح و نسخ الاحتياطية لذلك قمت بدمج موضوعين واحد للسيد @أبو إبراهيم الغامدي والسيد @أ / محمد صالح وتم اضافة ملح و و بهارات شوية واهديكم ....... الى الموضوع هناك نموذجين بداخل القاعدة واحد اسمه Frm1 والاخر Form1 وفي نموذج Form1 هناك زرين الاول كتبت عليه ( قم بعمل كومباكت و نسخة احتياطية عند الاغلاق ) اي اذا ضغطت علي و في النهاية قمت باغلاق القاعدة اولا سيعمل نسخة احتياطية و بعدين سيعمل كومباكت اي ضغط و اصلاح القاعدة -------- اما الزر الثاني انا كتبت عليه ( الغي عمل كومباكت و نسخة احتياطية عند الاغلاق ) اي اذا ضغطت على الزر الاول وبعدين غيرت رأيك بعمل نسخة احتياطية او عمل كومباكت اي ضغط واصلاح القاعدة تقدر ان تضغط اليه واذا اغلقت القاعدة ما بيعمل كمباكت و نسخة الاحتياطية واستخدمنا هذه الاكواد في وحدة نمطية Option Compare Database Dim F As New Form_Frm1 Public Function Startup() On Error Resume Next F.OnClose = "=BackUpMyDb()" & "=CopactMyDb()" End Function Public Function CnacelStartup() On Error Resume Next F.OnClose = "" End Function Public Function BackUpMyDb() Dim MyPath As String, math1 As String, math2 As String math1 = CurrentProject.Path math2 = math1 & "\MyProg" MyPath = math2 & "\BackUpSaved" On Error GoTo MyErr Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB, TypeApp OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) If Right(DBwithEXT, 5) = "accdb" Then DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) TypeApp = ".Accdb" ElseIf Right(DBwithEXT, 3) = "Mdb" Then DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) TypeApp = ".Mdb" End If If Dir(math2, vbDirectory) = "" Then MkDir math2 If Dir(MyPath, vbDirectory) = "" Then MkDir MyPath NewFile = MyPath & "\" & DBwithoutEXT & "-" & Format(Now, "yyyy-mm-dd-Hh-Nn-Ss") & TypeApp CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Function Public Function compactDb(ByVal mydb As String, ByVal mypass As String, Optional openIt As Boolean = False) Dim F As Integer Dim filenoext As String, extension As String, Access As String Access = """" & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE""" filenoext = Left(mydb, InStrRev(mydb, ".")) extension = Right(mydb, Len(mydb) - InStrRev(mydb, ".")) F = FreeFile Open CurrentProject.Path & "\compact.bat" For Output As F 'wait until the Db closes (ldb file is gone), then compact it Print #F, "CHCP 1256" Print #F, ":checkldb1" Print #F, "if exist """ & filenoext & "l" & extension & """ goto checkldb1" Print #F, Access & " """ & mydb & """" & mypass & " /compact" If openIt Then 'wait until the Db closes, then start it Print #F, ":checkldb2" Print #F, "if exist """ & filenoext & "l" & extension & """ goto checkldb2" Print #F, Access & " """ & mydb & """" Else Print #F, "del ""%~f0""" End If Close F End Function Public Function CopactMyDb() On Error Resume Next Dim MyPath As String MyPath = CurrentProject.Path & "\" & CurrentProject.Name Call compactDb(MyPath, "", True) Shell """" & Left(MyPath, InStrRev(MyPath, "\")) & "\compact.bat""", 0 DoCmd.Quit acQuitSaveAll End Function واليكم القاعدة compactInClose.accdb

البيانات عندك كبيرة جداً كان يكفي ارسال بضعة صفوف جرب هذا الملف و قم بتعديل المعادلات لتتناسب مع ما هو موجود عندك taween.xlsx

بالنسبة للطلب الثاني فهو موجود في الكود الأول. و أما الطلب الأول يمكن تحقيقه بإضافة التعديل التالي على الكود: If DCount("*", "[list]", "[رقم الباركود]=" & Me.Text9) <> 0 Then MsgBox "هذه السلعة موجودة مسبقا" Exit Sub End If If DCount("*", "[Data]", "[رقم الباركود]=" & Me.Text9) > 0 Then DoCmd.GoToRecord , , acNewRec Me.رقم_الباركود = Me.Text9 Me.المادة = DLookup("[المادة]", "[Data]", "[رقم الباركود]=" & Me.Text9) Me.السعر = DLookup("[السعر]", "[Data]", "[رقم الباركود]=" & Me.Text9) Else MsgBox "هذه السلعة غير موجودة" End If Me.Requery Me.Text9 = Null Me.Text9.SetFocus test 5.rar

حاليا الله أعلم لم تصادفني طريقة أخرى للإخفاء

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