Jump to content
أوفيسنا

احمد الفلاحجي

03 Special Member
  • Content Count

    296
  • Joined

  • Last visited

  • Days Won

    2

احمد الفلاحجي last won the day on February 12

احمد الفلاحجي had the most liked content!

Community Reputation

208 Excellent

3 Followers

About احمد الفلاحجي

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • Location
    مصر

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. السلام عليكم مشاركه مع الاستاذ كريم جرب الكود بعد التعديل وهو باضافه PtrSafe Option Compare Database Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate f
  2. جزاك الله خيرا اخى واستاذى هاوى 💐 وفيك بارك الله واياكم ان شاء الله وفعلا كلام اخى واستاذى هاوى صحيح وارجو العمل به بالتوفيق اخوانى واساتذتى
  3. وعليكم السلام ورحمه الله وبركاته @abouelhassan التاريخ يتم كتابته بين علامتى الشباك ## #01/01/2020# بالتوفيق
  4. جزاكم الله خيرا اخووانى واساتذتى 💐 ومشاركه مع اخوانى واساتذتى حاجه ع قد حالى وتاكيدا على وجود جدول خاص بالاسماء قمت بانشاء جدول خاص بالاسماء ولبيان السبب انظر الاستعلام رقم 1 هتلاقى عندك 4 اسماء والاستعلام الثانى 5 SELECT tblNames.Sname, DSum("[عدد العمليات]","Table1","[الاسم] Like '*" & [Sname] & "*'") AS Expr1 FROM tblNames; دى صوره الاستعلام الاول ودى صورة الاستعلام الثانى جزاكم الله خيرا اخوانى واساتذتى بالتوفيق op_1.accdb
  5. واياكم اخى ازهر وياريت تتفضل وترفق حلك الذى توصلت اليه لتعدد الحلول بارك الله فيك
  6. وعليكم السلام اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد Private Sub idx_NotInList(NewData As String, Response As Integer) Dim strSql As String, x As Integer x = MsgBox("هذا الاسم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into tbx (x1) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub بالتوفيق XY.accdb
  7. اتفضل استاذ @haniameen تم انشاء موديول كالتالى Public Function GetCountKind(strCode As Integer, strMale As Integer) As Integer 'لعدد الذكور والاناث GetCountKind = DCount("*", "sheet", "[dept_code] = " & strCode & " and [c_male]=" & strMale) End Function Public Function GetCountReligion(strCode As Integer, strReligion As Integer) As Integer 'لعدد المسلمين والمسيحين GetCountReligion = DCount("*", "sheet", "[dept_code] = " & strCode & " and [c_moslem]=" & strReligion) End Function Public Function GetCounTotal(strCode As Integer) As Integer 'للاجمالى GetCounTotal
  8. هل قمت بتشغيل الاستعلام وانت مازلت فالجدول وبالتحديد لم تنتقل من هذا السجل الجديد ؟
  9. وعليكم السلام اتفضل ان شاء الله يكون ما تريد بالتوفيق New LastDate.accdb
  10. وعليكم السلام استاذ ازهر اتفضل ان شاء الله يكون ما تريد Private Sub Form_BeforeUpdate(Cancel As Integer) L = Nz(DLast("unit2", "TBaction", "idexperience=" & Me.idexperience & "and [namemetal]='" & Me.namemetal & "'"), 0) If DCount("*", "TBaction", "idexperience=" & Me.idexperience & "and namemetal='" & Me.namemetal & "'") > 0 Then Dim stry As String stry = Me.namemetal Me.Undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[namemetal] = '" & stry & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark
  11. وعليكم السلام مشاركه مع أخي العزيز بيسكرا جرب وضع DoCmd.RunCommand acCmdSaveRecord قبل end sub
  12. وعليكم السلام ومشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير اضع لك رابط للاطلاع بالتوفيق
  13. وعليكم السلام واتفضل راجع هذا الموضوع وستجد الكثير بالموقع بالتوفيق اخوانى
  14. جزاكم الله خيرا معلمينا الأعزاء @jjafferr و @ابوخليل 💐
  15. اتفضل لعلى قد فهمت ما تريد Private Sub txt_AfterUpdate() x = Me.txt.Column(0) 'Me.rmb.SetFocus 'DoCmd.GoToRecord , , acNewRec Me.rmb.Form!idrxt.DefaultValue = x End Sub بالتوفيق t1.accdb
×
×
  • Create New...

Important Information