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

بارك الله فيك انا جربت الكود بهذا وهو شغال كويس اخي محمد ما انا الا طالب علم وما نتعلمه ونقدر نساعد به احد فهذا واجب علينا شكرا لك ولهذا المنتدى والقائمين فيه كلهم فيهم خير كثير create.accdb

بعد محاولات طويله اتفضل DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "emp", "aboyaseen", True Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!aboyaseen With tdfNew .Fields.Append .CreateField("idasxc", dbText, 255) ' .Fields.Append .CreateField("id_user", dbLong) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Dim strSQL1, strSQL2 As String strSQL2 = "ALTER TABLE aboyaseen ADD COLUMN id_user COUNTER CONSTRAINT [PrimaryKey] Primary key " 'strSQL1 = "ALTER TABLE aboyaseen ADD Primary key(id);" 'DoCmd.RunSQL strSQL1 DoCmd.RunSQL strSQL2 Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click

نحن بالخدمه بما نستطيع جرب هذا DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "emp", "aboyaseen", True Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!aboyaseen With tdfNew .Fields.Append .CreateField("idasxc", dbText, 255) .Fields.Append .CreateField("id_user", dbInteger) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click Dim strSQL1 As String strSQL1 = "alter table aboyaseen add primary key(id_user);" DoCmd.RunSQL strSQL1

اتفضل اخي محمد القدسي تعبت حتى طبقته دعوة بظهر الغيب تكفي DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentDb().Name, acTable, "emp", "aboyaseen", True Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!aboyaseen With tdfNew .Fields.Append .CreateField("idasxc", dbText, 255) .Fields.Append .CreateField("id_user", dbInteger) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click

بالتوفيق اخي ابو زاهر

تسلم حبيبي الوزير كلما كان هناك افكار كلما زاد الانسان بالعلم ونحن تلميذكم

بعد اذن اخي AlwaZeeR اظن هذا هو طلبه لانه مشروط برقم الفاتورة DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE [AfwtIar] SET [AfwtIar].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _ & " WHERE ((([AfwtIar].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));") DoCmd.RunSQL ("UPDATE [HRR] SET [HRR].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _ & " WHERE ((([HRR].Rjmfatwra)= [forms]![تنظيم_تسلسل]![Rjmfatwra]));") DoCmd.RunSQL ("UPDATE [Hrakatsanf] SET [Hrakatsanf].[Atarih]= [forms]![تنظيم_تسلسل]![Atarih].[value] " _ & " WHERE ((([Hrakatsanf].Rjmfatwra)=[forms]![تنظيم_تسلسل]![Rjmfatwra]));") DoCmd.SetWarnings True MsgBox "تم التعديل بنجاح", vbInformation, " حفظ التعديلات"

ممتاز جدا بارك الله فيك

الله يبارك فيك اخي هذا ما تعلمناه من هذا المنتدى العملاق الله يحفظك

اتفضل هذا رقم اساسي Dim strSQL1, strSQL2 As String strSQL1 = "SELECT emp.id, emp.name, emp.emp, emp.asxc, emp.cvcvcv, emp.fgf, emp.dsa, emp.kjh INTO aboyaseen " & vbCrLf & _ "FROM emp;" strSQL2 = "alter table aboyaseen add primary key(id);" DoCmd.RunSQL strSQL1 DoCmd.RunSQL strSQL2

بالتوفيق اخي

اتفضل ارجو ان يكون طلبك Dim strSQL1 As String strSQL1 = "SELECT emp.id, emp.name, emp.emp, emp.asxc, emp.cvcvcv, emp.fgf, emp.dsa, emp.kjh INTO aboyaseen " & vbCrLf & _ "FROM emp;" DoCmd.RunSQL strSQL1

جرب هذا Private Sub ÊÝÕíá_Click() Application.FollowHyperlink Address:=" http://www.ndedco.org/electricservice.aspx" End Sub

اخي jjafferr انا حاولت اعدله الكود حسيب مافهمت اطلع على على الملف المرفق Nouveau Microsoft Office Access 2007 قاعدة بيانات.accdb

اخي بلال اليامين If IsNull(Forms![88555]!التعديل!usr_ID) = True Then MsgBox "رقم الموظف فارغ" ElseIf Forms![88555]!التعديل!نص161 = "" Then MsgBox "حقل الاسم فارغ" ElseIf Forms![88555]!التعديل![142] = "" Then MsgBox "حقل اختيار مكان العمل فارغ" Else MsgBox "اسم الموظف " & Forms![88555]!التعديل!نص161 & vbNewLine & "رقم الموظف: " & Forms![88555]!التعديل!usr_ID Me.Refresh End If حاولت اعدلك الكود بما فهمته من كود الاخMo3taz3zzat Nouveau Microsoft Office A77777عدة بيانات (1).rar

بارك الله فيك اخي بالتوفيق

شوف هذا قد يكون طلبك سند.rar

بالتوفيق اخي محمدنجار الله يوفق الجميع

الاخ محمدنجار لم ترد على ما قدمته هل هو المطلوب

الكود واضح اخي CommandBars("Property Sheet").Enabled = True

نعم هو كذلك ولكن اخطات وعملته في موضوعك والان عدلت

اتفضل اخي اتمنا يكون المطلوب عملت الكود عند الخروج من النموذج بامكانك نعمله حبث شات On Error GoTo enderr DoCmd.SetWarnings False 'النموذج Set Rs = Forms![frm_SlsInvHd]![frm_TInvDt].Form.RecordsetClone 'الجدول للتحري Set RsEdit = CurrentDb.OpenRecordset("Tbl_Items") Rs.MoveFirst 'دوران Do While Not Rs.EOF RsEdit.MoveFirst 'دوران للجدول Do Until RsEdit.EOF 'اذا وجد السجل If RsEdit!itname = Rs!itname Then 'تحريره RsEdit.Edit RsEdit!vlbleQ = RsEdit!vlbleQ + Rs!vlbleQ RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing MsgBox " تم تعديل السجلات الى الجدول بنجاح ", vbInformation, "تم " Exit Sub enderr: MsgBox " خطا في البيانات ", vbInformation, "لم يتم التعديل" DoCmd.SetWarnings True UPdate QTY.rar

ان شاء الله الاخوه ما يصرو معك

ممتاز اخي صالح حمادي هو المطلوب الف الف شكر تسلم يداك

بارك الله فيك استاذ ابوخليل دائما مبدع في حلولك وشروحاتك الله يوفقك يارب