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

if [TextBox]>99 then MsgBox "الكمية تتجاوز الحد المسموح", vbCritical + vbMsgBoxRight, "تنبيه" DoCmd.RunCommand acCmdUndo End if تضعه في حدث بعد التحديث بعد التعديل عليه بما يتناسب الحقول لديك

برنامج كنترول مصغر لصفوف النقل الاعدادى لرصد الدرجات وطباعة النتيجة والشهادات عفوا تم تعديل خطأ فى معادلات صفحة الرصد إسم المستخدم محمد فتحى كلمة المرور ١٩٧٠ محرر الاكواد. ٦١٠١٩٧٠ كنترول شيت.xlsb

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

المثال مكتوب بالأكسس + VB.NET أولا: تحتاج 3 براميترات... الأول: مفتاح الإتصال بقاعدة البيانات SQLServer ثانياً: اسم الباك أب لقاعدة البيانات ثالثاً: مسار حفظ الباك أب Option Compare Database Private Sub Backup_Click() Dim BAK_File As String Dim SQLConnectionString As String Dim DatabaseBackupName As String Dim DatabaseBackupPath As String Dim Parameters As String BAK_File = CurrentProject.Path + "\BAK.exe" SQLConnectionString = "Data Source=.\SEMICOLONSQL;Persist Security Info=True;Database=AlraedDb;User id=sa;password=123@a;" DatabaseBackupName = "Backup" DatabaseBackupPath = "E:" DatabaseName = "AlraedDb" Parameters = SQLConnectionString & "," & DatabaseBackupName & "," & DatabaseBackupPath & "\" & "," & DatabaseName Call Shell(BAK_File & " " & """" & Parameters & """", vbNormalFocus) End Sub سورس ملف الـ VB.NET Imports System.Data.SqlClient Module BAK Sub Main() 'c0ded bY: SEMO.Pa3x 'date: 23-5-2021 : 05:01 PM For Each arg As String In My.Application.CommandLineArgs Dim argArray() As String = Split(arg, ",") 'vars to split args Dim SQLConnectionString As String = argArray(0) Dim DatabaseBackupName As String = argArray(1) & " " & DateTime.Now.ToString("yyyy-MM-dd-HH-mm tt") Dim DatabaseBackupPath As String = argArray(2) Dim DatabaseName As String = argArray(3) Using con = New SqlConnection(SQLConnectionString) 'open connection con.Open() 'check connection is open ? If con.State = ConnectionState.Open Then 'check connection is open ? Dim str As String = "backup database " & DatabaseName & " to disk='" & DatabaseBackupPath & DatabaseBackupName & ".BAK' WITH INIT" Using cmd = New SqlCommand(str, con) cmd.ExecuteNonQuery() End Using con.Close() End If End Using Next End Sub End Module مدة العمل ( 3 ساعات ) وأنا أكتب الأكواد Backup_By_SEMO_Pa3x.rar

وبإستخدام كود اخوي حسين ، ولكن على الحدث "قبل التحديث" : if [TextBox]>99 then MsgBox "الكمية تتجاوز الحد المسموح", vbCritical + vbMsgBoxRight, "تنبيه" cancel=true End if جعفر

اتفضل اليك هذا الكود If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then Dim sql As String sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح" Me.Text1 = "" End If ' msgbox Else MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا" End If ' dcount وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه ID.rar

لا اضن ان ذلك ممكن من خلال الأكسس. يمكنك استعمال لغة اخرى لعمل الباك اب مثلاً انا هنا استعملت لغة Visual Studio .NET Using con = New SqlConnection("Data Source=.\SQLEXPRESS;User id=sa;password=admin;") con.Open() Dim str As String = "backup database OFFICEMANAGEMENT to disk='C:\TMP\OM.bak' WITH INIT" Using cmd = New SqlCommand(str, con) cmd.ExecuteNonQuery() End Using con.Close() End Using ستقوم بعمل تطبيق تمرر له براميتر ( CommandLine ) يتضمن معلومات الاتصال بالسيرفر ومسار حفظ الباك اب وهو بدوره سيقوم بهذه العملية. مودتي

تفضل التعديل اخي الكريم invoice11.zip

دالة الخروج =IF(G2="";"";IF(F2>=TODAY();"دخول - خروج";IF(J2=0;"حجز منتهي";"موجود"))) الطلب الثاني اكتب حالة يدويا لتحويلها الى معادلة مع الشكر

اخوي صمم استعلام تجميع بحث يجمع كل الأصناف المتشابهة بإمكانك ترفق مثال عشان تكون الفكرة واضحة

كلام اخوي ابوخليل عن اذا كان النموذج به قسم واحد ، مثل الصورة اللي ارفقها (كل الكائنات في قسم التفصيل) ، بينما النموذج المرفق فيه قسم "رأس الموضوع" Form Header ، وقسم "التفصيل" Detail ، لذا ، فكل قسم له ترقيم خاص به 🙂 . جعفر

وعليكم السلام 🙂 عملت زر في النموذج الرئيسي . وهذا الكود لحدث تحميل النموذج ، وحدث آخر عن نقر الزر Private Sub Form_Load() Me.subtblIbriData.Form.AllowAdditions = False End Sub Private Sub cmd_Add_Record_Click() Me.subtblIbriData.Form.AllowAdditions = True Me.subtblIbriData.SetFocus Me.subtblIbriData!Block.SetFocus End Sub جعفر 1376.block5-.accdb.zip