سامي زغلول

ضع الامر / DoCmd.Save أو DoCmd.RunCommand acCmdSaveRecord والله الموفق

بالتأكيد من غير المعقول فعل ذلك ..:) الحل وبما اننا استخدما جملة ال (UPDATE ) فإننا عند الاضافة سنستخدم جملة ( INSERT) لفعل ذلك. لفعل ذلك سأترك المجال لك للمحاولة :) ... أتمنا انت تأخذ فكرة عن ( sql)

تحية لكم إخوتي في الله : الحقل ( bIsActive ) موجود كعداد بحيث لا يسمح الا بثلاث مرات ادخال كلمة المرور وبعدها يتحول الى القيمة صفر أي غير مفعل لانه بالوضع الافتراضي تكون قيمته -1 أي مفعل. العداد والذي قيمته 3 معرف داخل الكود . والله الموفق

تحية طيبة جرب المثال المرفق والله الموفق NewPassword.rar

تحية طيبة.. يمكنك استخدام ( ODBC) لتسهل الاتصال بقاعدة البيانات أو أستخدم الكود لعمل ذلك من خلال انشاء الاتصال بواسطه (ADO ) لعل ذلك هو المطلوب والله الموفق

تحية طيبة : هنالك عدة طرق لعمل ذلك.. وانا شخصيا افضل جملة (Update ) لعمل ذلك. فعلى سبيل المثال يوجد جدول يحوي اسماء المستخدمين وكلمات مرورهم ولنسميه ( tbl_User) وحقل لاسم المستخدم ونسميه (strUser ) واخر لكلمة المرور ولنسميه (strPassword ) فتكون كالتالي : "Update tbl_User SET strPassword=1234 Where strUser Like 'Sam'" وهنالك طرق أخرى باستخدام ال( RecordSet) سواء في (ADO ) او (DAO ) .والله الموفق

اخي الكريم نود مساعدتك .. لكن حسب قاعدة فهم السؤال نصف الاجابة... فللأسف لم أفهم ما تقصد والله الموفق

تحية طيبة : لحل مثل هذه الحالات إستخدم : Field Size =Double Format = Standard والله الموفق

أضف كومبو بوكس لأسم المستخدم وسميه (cmbUser ) أضف تيكست بوكس للباسورد وسميه (txtPassword ) أضف زر للدخول وسميه ( btnOk) الكود الاول يوضع في حدث ال(Click ) للزر الدخول الكود الثاني في حدث ( Load ) للفورم والله الموفق

تحية طيبة ... على فرض أن الجدول يحوي : strUser, strPassword, bIsActive ويحوي الجدول القيم التالية : Mohammed, 1234 , -1 Tareq , 1234 , -1 بالنسبة لحقل ال( bIsActive ) فهو يأخذ القيمتين اما ( 1-) في حالة انه مفعل أو يأخذ القيمة ( 0 ) في حالة انه غير مفعل . الكود كالتالي : Option Compare Database Dim intCounter As Integer Private Sub btnOk_Click() Dim dbUser As Database Dim rsUser As Recordset Dim cpass As String Set dbUser = DBEngine.Workspaces(0).Databases(0) Set rsUser = dbUser.OpenRecordset("tblUser") With rsUser .Index = "PrimaryKey" .Seek "=", cmbUser If Not .NoMatch Then If !bIsActive = -1 Then txtPassword.SetFocus cpass = !strPassword If txtPassword = cpass Then DoCmd.OpenForm "main form" DoCmd.Close acForm, "user acc" Else intCounter = intCounter + 1 If intCounter > 3 Then .Edit !bIsActive = 0 .Update End If MsgBox "ÇáÑÌÇÁ ÇáÊÇßÏ ãä ßáãÉ ÇáÓÑ" txtPassword.SetFocus End If Else MsgBox "ÇÓã ÇáãÓÊÎÏã ÛíÑ ãæÌæÏ Ãæ Êã ÅíÞÇÝå ÑÇÌÚ ÇáãÓÄæá" cmbUser.SetFocus Exit Sub End If End If End With End Sub Private Sub Form_Load() intCounter = 1 End Sub لو استطعت ان ارسل المثال لفعلت لكن لم اعرف كيف أتمنى أن يكون هذا هو المطلوب :pp:

تحية طيبة : الحل هو .... اذهب على لوحة التحكم .. اختر الطابعات ... علم على الطابعة اللتي تريد استخدامها ... اذهب الى File (ملف) .. اختر Server Propertis ومن ثم ستظهر لك شاشة تستطيع اختيار المقاس المناسب او تصنع مقاسك الخاص .. وبعد ذلك اذهب الى تقريرك الخاص واختر نوع الورق النوع الذي انشأته مسبقا ولك مني خالص الدعاء لك بالتوفيق انشاء الله يكون هو المطلوب