hero92

بارك الله فيك ههههههههه  والله قمت التواضع  تقبل خالص تحياتى قال رسول الله صلى الله عليه وسلم: " من سعى لأخيه المسلم في حاجة، فقضيت له أو لم تقض غفر الله له ما تقدم من ذنبه وما تأخر، وكتب له براءتان براءة من النار وبراءة من النفاق.

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

استاذى الفاضل  جزاك الله خيرا أحب ان اشكرك على مجهودك العظيم  يوجد لدى بعض النقاط ارغب فى التعديل عليها  1 - بعد تحديد الشروط وعمل Export تم تجميع جميع الارقام المطابقة عليها الشروط ثم وضعها فى ملف اكسل واحد   المطلوب هو انشاء ملف اكسل لكل رقم  بمعنى يتم تجميع كل TAG200 فى ملف اكسل واحد و TAG500 فى ملف اكسل واحد  2 - تم تحديد المسار فى الكود بهذا الشكل "D:\Hero92" عند تصدير ملفات الاكسل لم يضع ملفات الاكسل فى المجلد المحدد فى المسار بل وضع ملفات الاكسل فى الــ D: بشكل مباشر و تم انشاء اسم ملف الاكسل بهذا الشكل (Hero92TAG200)   ارغب فى ان يضع ملفات الاكسل فى المجلد المحدد فى المسار ويكون اسم ملف الاكسل رقم العمود فقط  (TAG200) 3 - أرغب فى تحديد التاريخ ضمن الشروط  تقبل خالص تحياتى   

تفضل أستاذى العزيز مرفق المشروع  وصورة توضح الاعمدة التى يتم عليها الشروط  تقبل خالص تحياتى  Students1.rar

استاذى الفاضل تم تجربة الكود مع تعديل قاعدة البيانات ولم ينجح الامر الكود بعد التعديل   يظهر خطأ ولم يعمل مرفق صور الخطأ تقبل خالص تحياتى     Public Sub Main()         Dim sConnectionString As String = ("Data Source=.;Initial Catalog=Users;Persist Security Info=True;User ID=sa;Password=123")         Dim myCriteria As String         myCriteria = "[Batchname]=" & (Me.Idate.Value)         myCriteria = myCriteria & " And [Error]='" & Me.iLe.Text & "'"         myCriteria = myCriteria & " And [CertificateType]='" & Me.iMod.Text & "'"         Dim sSql As String = "select DISTINCT [CenterCode], [Batchname] as D1, [Error], [CertificateType] as M1 From candidaboz Where" & myCriteria         Dim oConnection As SqlConnection = New SqlConnection(sConnectionString)         Dim oCommand As SqlCommand = New SqlCommand(sSql, oConnection)         Dim oDataReader As SqlDataReader = Nothing         Try             oConnection.Open()             oDataReader = oCommand.ExecuteReader()             If oDataReader.HasRows Then                 While oDataReader.Read()                     Dim sOutputPath As String = "D:\DATABASE" & oDataReader("CenterCode").ToString()                     Dim oDataAdapter As SqlDataAdapter = New SqlDataAdapter("select * from CIT where =CenterCode" & oDataReader("CenterCode").ToString(), oConnection)                     Dim oDataTable As DataTable = New DataTable                     oDataAdapter.Fill(oDataTable)                     DatatableToExcel(oDataTable, sOutputPath)                 End While                 MsgBox("Excel Exporting completed")             Else                 MsgBox("No Records to Print")             End If         Catch ae As SqlException             MsgBox(ae.Message())         Catch ae As Exception             MsgBox(ae.Message())         Finally             oDataReader.Close()             oConnection.Close()         End Try     End Sub     Private Sub DatatableToExcel(ByVal dtTemp As DataTable, ByVal strFileName As String)         Dim _excel As New Microsoft.Office.Interop.Excel.Application         Dim wBook As Microsoft.Office.Interop.Excel.Workbook         Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet         wBook = _excel.Workbooks.Add()         wSheet = wBook.ActiveSheet()         Dim dt As System.Data.DataTable = dtTemp         Dim dc As System.Data.DataColumn         Dim dr As System.Data.DataRow         Dim colIndex As Integer = 0         Dim rowIndex As Integer = 0         For Each dc In dt.Columns             colIndex = colIndex + 1             _excel.Cells(1, colIndex) = dc.ColumnName         Next         For Each dr In dt.Rows             rowIndex = rowIndex + 1             colIndex = 0             For Each dc In dt.Columns                 colIndex = colIndex + 1                 _excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)             Next         Next         wSheet.Columns.AutoFit()         If System.IO.File.Exists(strFileName) Then             System.IO.File.Delete(strFileName)         End If         wBook.SaveAs(strFileName)         wBook.Close()         _excel.Quit()     End Sub

عليكم السلام ورحمة الله وبركاته الاستاذ  الفاضل / كرم اولا احب ان اشكرك على الرد  نعم بالفعل CIT هو استعلام   فى قاعدة بيانات اكسس   وقيمة  Me.iIDD   هى عبارة عن ارقام امام البيانات ليتم تجميع الارقام المتشابه مع بعض فى ملف اكسل    تم عمل قاعدة بيانات جديدة بال Sql Sever وتم ربطها ب VB.net  لكثرة البيانات بشكل كبير جدا وارغب فى تنفيذ نفس الكود على النظام الجديد ب 2012 Sql Sever  + VB.net   و لكن لم اتمكن من تنفيذ الكود على النظام الجديد بشكل كامل بعد التعديل والهدف من الكود لدى بيانات فى datagridview ارغب فى تصديرها لملفات اكسل و لكن بشروط   يتم تحديد الشروط فى فورم بأختيار (التاريخ والناجحين والنوع ) وبعد ذلك يتم الضغط على زر  يتم انشاء ملفات اكسل لكل رقم بالشروط المحدده وحفظه بأسم الرقم  فى مجلد ارجو المساعدة لعمل نفس الاجراء على النظام الجديد تقبل خالص تحياتى      

السلام عليكم أرغب فى تعديل الكود الى كود VB.net2012 تحياتىPrivate Sub a18_Click()On Error GoTo err_cmd_Export_to_pdf_ClickDim rst As DAO.RecordsetmyCriteria = "[Batchname]=" & DateFormat(Me.Idate)myCriteria = myCriteria & " And [Error]='" & Me.iLe & "'"myCriteria = myCriteria & " And [CertificateType]='" & Me.iMod & "'"Set rst = CurrentDb.OpenRecordset("select DISTINCT [CenterCode], [Batchname] as D1, [Error], [CertificateType] as M1 From candidabozala Where " & myCriteria)rst.MoveLast: rst.MoveFirstRC = rst.RecordCountFor I = 1 To RCMe.iIDD = rst!CenterCodeIf DCount("*", "CIT") <> 0 ThenOutput_Path = "\\Storagea\Cambridge IT\CIT Management\Batchname\7M\College\" & rst!CenterCodeDoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "CIT", Output_Path, TrueEnd Ifrst.MoveNextNext IMe.iIDD = ""rst.Close: Set rst = NothingMsgBox "Excel Exporting completed"cmd_Export_to_pdf_Click_Exit:Exit Suberr_cmd_Export_to_pdf_Click:If Err.number = 3021 ThenMsgBox "No Records to Print"Resume cmd_Export_to_pdf_Click_ExitElseMsgBox Error$End IfEnd Sub

السلام عليكم ورحمة الله وبركاته   الاساتذة / زهرة    المحترمة   اشكرك على حسن تعاونك معنا  وسيتم الاطلاع على الرابط   تقبلى خالص تحياتى

السلام عليكم ورحمة الله وبركاته تحية طيبة ،،   السادة والاساتذة / خبراء الاكسس            المحترمين   يوجد لدى قاعدة بيانات اكسس يعمل عليها اكثر من مستخدم  هل يوجد طريقة او كود  لغلق قاعدة البيانات على جميع المستخدمين حتى يتم التعديل عليها ؟؟؟؟؟     شاكرين حسن تعاونكم معنا

الاستاذة  / زهرة       حفظها الله   اشكرك على المجهود الرائع الذى بذلتيه فى هذا الموضع ولا احد ينكر انك استاذه وخبيره فى هذا المجال  واعتذر عن عرض المشكلتين الذى واجهونى   وأن شاء الله سأبحث عن هذا الموضوع فى اكثر من مكان للعثور على حلول   تحياتى

الاستاذة / زهرة      المحترمة   الف شكر على المجهود الرائع  وجزاك الله خيرا  ، ولكن تواجهنى مشكلة اخرى   وهى :  لايمكن التعديل على صلاحيات مستخدم او اضافة مستخدم جديد  (فى حالة التعديل على صلاحيات مستخدم لن اتمكن من الدخول الى قاعدة البيانات ويظهر رسالة خطأ وعند اضافة مستخدم جديد يتم حذفه )   يرجى حل هذه المشكلة مرفق لسيادتك قاعدة البيانات يرجى التعديل عليها  تم اضافة نموذج اسمه Users  لاعطاء الصلاحيات منه او اضافة مستخدم جديد   وتقبلى خالص تحياتى za-HH-END-.rar

الاستاذة  / زهرة     المحترمة   اود افادتك بأنه تم المناقشة فى مشاركة سابقة معك بخصوص تشفير اسم المستخدم وكلمة المرور فى جدول users وجزاك الله خيرا تم تزويدى بالطريقة من قبلك وشرح سيادتك مرفق ادناه ،   طبعا التشفير وفك التشفير يعمل عند استخدام قاعدة البيانات بطريقة نظامية عند الدخول يتم فك التشفير  وعند الخروج يتم التشفير ولكن واجهتنى مشكلة وهى : تم حدث مشكلة فى قاعدة البيانات وتم اظهار رسالة من الويندوز بأنه سيتم اغلاق قاعدة البيانات مما ادى الى غلق قاعدة البيانات بطريقة غير نظامية ولكن عند فتح قاعدة البيانات مرة اخرى اتضح انه تم حذف اسماء المستخدمين وكلمات المرور من قاعدة البيانات لانه تم الخروج من قاعدة البيانات دون تشفير اسم المستخدم وكلمة المررو وهذا على حد علمى  مرفق لسيادتك قاعدة البيانات التى تم التعديل عليها من قبلك يرجى تعديل كود التشفير اذا تم غلق قاعدة البيانات بأى طريقة ( نظامية اوغير نظامية ) يتم تشفير اسم المستخدم وكلمة المرور  وعدم حذف اسم المستخدم وكلمة المرور  للقدرة على الدخول لقاعدة البيانات مره اخرى   وتقبلى خالص تحياتى   تفضل اخي الكريم   ارجو ان تنتبه للشرح بالتفصيل   1. قم بفتح قاعدة بياناتك الإساسية الأصلية ثم قم بحذف الكائنات التالية منها   جدول USERS   نموذج Form1   نموذج Main     2. قم بإستيراد الكائنات التالية من القاعدة التي عدلتها لك  في المرفقات   za-HH-up   جدول USERS   نموذج Form1   نموذج Main   وحده نمطية بإسم  Module1 ( يوجد بها كود التشفير وفك التشفير )     3. اسماء المستخدمين وارقامهم السرية في الجدول Users هي   admin   2014   user1 1234   user2 5678   user3 9876   الآن هي مشفره بالكامل لأنه عند اغلاق قاعدة البيانات تتم عملية تشفير الأسماء والارقام السريه   وعند فتح قاعدة البيانات يتم فك التشفير عن الأسماء والارقام السريه     عند محاولة اي شخص جلب البيانات من الجدول بواسطة برنامج الأكسيل فإنه سيحصل على مثل هذه الحروف     ولن يستفيد شيء لأنها مشفره ولن يتم قبولها في قاعدة البيانات حتى يتم فك التشفير عنها   وتقبلى خالص تحياتى za-HH-UP.rar

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

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

الاستاذة / زهرة   مرفق قاعدة البيانات المطلوب عليها التعديل   وتقبلى خالص تحياتى HH.rar