mrnooo2000

من الواضح ان لديك ذوق فنى عالى اولا استأذنك ان اطلب منك تصميم واجهه لبرنامج موافيت الصلاه الذى نقوم بتطويره ثانيا من الواضح انك صممت هذا البرنامج على نسخة اوفيس غير اوفيس 2003 ثم حولته بعد ذلك فجميع اكواد الازرار لا تعمل ( بل لا يوجد كود اصلا ) فيرجى مراجعة عم…

كيف يستطيع الدخول اذا لم تعطى له صلاحيات لذلك عموما ما يطبق على الرئيسى يطبق على الفرعى فلا فارق بين هذا و لا ذاك

الاخ عصام النموذج مبنى على جملة sql ( استعلام ) و من جلال هذا الاستعلام يتم عرض نتائج البحث حيث انه مرتبط بالنموذج الرئيسى كما تفضلت يمكنك بكل سهولة ان تأخذ هذه الجملة و تضعها فى استعلام و تبنى النموذج عليها و ستجد انه لا يوجد فارق و بالنسبة للتعديل الذى قمت ا…

يحدث ذلك لانك تنتقل الى سجل جديد ستجد ان رقم الملف 0 للتغلب على ذلك اضف هذا الكود لحدث بعد التحديث لكومبو العميل Me.AllowAdditions = False

جزاك الله خيرا اخى و لكن نرجو ارفاق صورة النموذج الرئيسى لانه لا تظهر انظر الى شكل البرنامج لدى

بالنسبة للجزء الاول CurrentDb.Execute "UPDATE a2 SET a2.TotalPaid = " & Me.a2 & ", a2.chn = " & Nz(Me.a3,0) & ", a2.bank = '" & Nz(Me.a4,0) & "', a2.RebhPaid = " & x1 & ", a2.QestPaid = " & x2 & ", a2.dpaid = #" & Me.a1 & "# WHERE (((a2.Ns)=" & DLookup("ns", "…

هذا الاستعلام يعطيك البيانات بالجدول بدون تشفير SELECT users.SN, deCode([UName],'User') AS [User], decode([PW],"Pass") AS pass FROM users;

اليك التعديل ليعطيك السنوات الى ما شاء الله او ان تعدل وزارة الداخلية نظام الترقيم Dim yy yy = Mid([IDNumber], 1, 1) * 100 + 1700 Me![DateOfBirth] = yy + (Mid([IDNumber], 2, 2)) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2) Me![sex] = IIf(Mid([ID…

فقط كل ما تحتاج اليه ان تضع كلمة السر بين علامتى تنصيص ElseIf passwd = "123456" Then

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

اليك اخى التعديل Private Sub Form_Open(Cancel As Integer) ' On Error Resume Next Dim Db As Database, RS As Recordset, Vacation As String Set Db = CurrentDb Set RS = Db.OpenRecordset("SELECT table0.folderno, [fnamr] & ' ' & [family] AS namep, table1.dateend,emp…

اليك هذا المثال من المنتدى لاحد الاخوة حول التطبيق عندك و استخدم البحث و ستجد الكثير بالمنتدى /index.php?app=core&module=search&section=search&do=search&fromsearch=1 ممتاز الصلاحيات مع من قام بالتعديل.rar

استخدم هذا الكود فى البداية If Len(Nz(Me.a4, "")) = 0 Then MsgBox "no bank " Exit Sub End If CurrentDb.Execute "UPDATE mo SET mo.Rebh = mo.Rebh +" & x1 * DSum("Rebhp", "mo") & "* mo.Rebhp/" & DSum("Rebhp", "mo") & ";"

New Microsoft Office Access Application.rar

اليك اخى ما تريد ابوحمد.rar

اليك اخى هذا الرابط ستجد به ما تريد و اكثر /index.php?showtopic=106087&st=0&p=538275&hl=%D8%AA%D8%B5%D8%AF%D9%8A%D8%B1%20%D8%AA%D9%82%D8%B1%D9%8A%D8%B1%20%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D8%B3&fromsearch=1entry538275

اليك اخى ما تريد Copy of db.rar

تقوم باضافة القيمة الموجودة CurrentDb.Execute "UPDATE a1 SET a1.Rebh = a1.Rebh +" & x1 * 0.9 & "* a1.Capital /" & DSum("Capital", "a1") & ";" CurrentDb.Execute "UPDATE mo SET mo.Rebh = mo.Rebh+" & x1 * 0.1 & "* mo.Rebhp/" & DSum("Rebhp", "mo") & ";"

استخدم هذا الكود اخى Private Sub IDNumber_AfterUpdate() Me![DateOfBirth] = 1900 + (Mid([IDNumber], 2, 2)) & "/" & Mid([IDNumber], 4, 2) & "/" & Mid([IDNumber], 6, 2) Me![sex] = IIf(Mid([IDNumber], 13, 1) Mod 2 = 0, "ذكر", "انثى") Me.gov = DLookup("gov", "gov",…

اليك التعديل المطلوب If MsgBox("åá ÊÑíÏ ÈÇáÊÃßíÏ ÍÝÙ ÇáÈíÇäÇÊ", vbInformation + vbYesNo, "ÍÝÙ") = vbYes Then Dim x1, x2 As Long x1 = Me.a2 * DLookup("rebh", "a2", "TotalPaid=" & 0 & " and n=" & Me.NoFile) / DLookup("Amount", "a2", "TotalPaid=" & 0 & " and n=" …