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

شكرا لمرورك اخي ابو زاهر انا اريد اتحكم بالخط عبر كود مختصر كود بالنموذج

اين اهل الخبرة

للرفع

السلام عليكم اخواني مشرقي المنتدى والاعضاء الكرام لدي استفسار كيف اكبر الخط في النموذج مثال كيف اتحكم بالخط عبر الكود Me.Caption = "ابو ياسين"

اخي شوف هذا الفيديو سوف تجد ظالتك

بارك الله فيك انا جربت الكود بهذا وهو شغال كويس اخي محمد ما انا الا طالب علم وما نتعلمه ونقدر نساعد به احد فهذا واجب علينا شكرا لك ولهذا المنتدى والقائمين فيه كلهم فيهم خير كثير 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