sofiane05552

السلام عليكم طلب مساعدة في تحويل بعض اكواد vba الى اس كي ال لدي قاعدة بيانات نقلتها الى اس كي ال صارت ماتشتغل لابد من تغييرات في اكواد عشان تشتغل في اس كل ال

السلام عليكم ممكن مساعدة في انشاء طريقة عند نسيان الرقم السري استرجاعه عبر ايميل يعني تضع بريد ويتم ارسال رقم السري المنسى الى بريد

بارك الله فيك

جزاك الله خيرا بارك الله فيك

ممكن ؤابط موضوع جزاك الله خيرا

بارك الله فيك وجعله الله في ميزان حسناتك فهمت من موضوعك الى قليل فهمت ولم افهم لكن هل يمكن فعله بلبرمجة

السلام عليكم اريد ان اسأل على شئ محيرني ممكن تفيدوني علما ان قاعدة بيانات اكسس حدها اقصى 2 جيجا نفترض انا الجدول تعبئ هل هناك مثلا كود سورس او شئ مثلا لو تعبئ الجدول وصار 2 جيجا اتوماتيك كود ينشئ جدول جديد بنفس اسم وجدول اول يتم ارشفته لكن يمكن البحث فيه يعني يبقي مرتبط مع الجدول الجديد كأنهم جدول واحد

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

بارك الله فيك اخي اشتغل كود بدون مشاكل جزاك الله خيرا استاذ اشتغل كود بارك الله فيك

عند الضغط على الغاء تضهر رسالة خطأ

DoCmd.RunSQL "DELETE friends.NameOfFriends " & vbCrLf & _ "FROM friends " & vbCrLf & _ "WHERE (((friends.NameOfFriends)=[ادخل الاسم]));" Me.Requery Me.Refresh

لا شغالة كل شئ تمام فقط اذا ضغطت Annuler تضهر رسالة ذي

السلام عليكم لدي مشكلة كيف اخفي رسالة ذي عندما اضغط على "Annuler" تضهر رسالة الي بصورة

مشكورين لقد تم اصلاح المشكل هاهو كود بعد اصلاح If IsNull(UserName) Or Me.UserName = "" Then MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur" Exit Sub End If If IsNull(password) Or Me.password = "" Then MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur" Exit Sub End If If IsNull(TexPassword2) Or Me.TexPassword2 = "" Then MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur" Exit Sub End If Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("usersm") rs.AddNew rs!UserName = UserName rs!password = password rs!DateReg = Date rs.Update Set rs = Nothing Me.UserName = "" Me.password = "" SetFocus MsgBox "Enregistré avec succès" DoCmd.Close End Sub

السلام عليكم لدي مشكلة في تسجيل مستخدم جدبد عندما اسجل مسخدم جديد يضهر تاريخ تسجيل الحساب لكن في جدول عندما اسجل تاريخ لا يتوافق مع اسم مستخدم في جدول هاهي صورة مشكلة تاريخ تسجيل في جهة واسم مستخدم ورقم السري في جهة ولكود مستعمل تحت صورة If IsNull(UserName) Or Me.UserName = "" Then MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur" Exit Sub End If If IsNull(password) Or Me.password = "" Then MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur" Exit Sub End If If IsNull(TexPassword2) Or Me.TexPassword2 = "" Then MsgBox "S'il vous plaît Assurez-Vous De Remplir Tous Les Champs D'inscription", vbCritical + vbMsgBoxleft, "Message d'erreur" Exit Sub End If DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO usersm(username,password)values(username,password)" DoCmd.SetWarnings True Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("usersm") rs.AddNew rs!UserName = texUserName rs!password = TexPassword rs!DateReg = Date rs.Update Set rs = Nothing Me.UserName = "" Me.password = "" SetFocus MsgBox "Enregistré avec succès" DoCmd.Close End Sub

بارك الله فيك استاذ

جزاك الله خيرا استاذ بارك الله فيك

السلام عليكم نفترض لدي جدول اصدقاء اسمها (frindes) ولدي فورم فيها قائمة اصدقاء مؤخوذة من جدول frindes مثلا اريد حذف صديق معين من قائمة اصدقاء الي بالفورم مثلا امام كل صديق زر حذف الخاص به ممكن كود الذي يقوم بمهمة ذي

بارك الله فيك استاذ ممكن مساعدة في موضوع هذا جزاك الله خيرا

هل من احد يفيدنا

هاهو المرفق 709.Database4.rar

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

بارك الله فيك اخي عبدالله كاظم روعة

جزاك الله خيرا اخي بارك الله فيك ممكن تنزل لي مثال لو مافي مانع