Jump to content
أوفيسنا

محمد أبوعبدالله

Expert
  • Posts

    1,766
  • Joined

  • Days Won

    25

محمد أبوعبدالله last won the day on October 7 2020

محمد أبوعبدالله had the most liked content!

Reputation

1,201 Excellent

About محمد أبوعبدالله

  • Birthday 01/01/1974

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    معلم
  • Location
    مصر
  • Interests
    حب الله ورسوله صلى الله عليه وسلم

Recent Profile Visitors

2,594 profile views
  1. جميل استاذنا الفاضل عمل موفق ورائع ما شاء الله عليك تحياتي
  2. وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به الاخوة الكرام ولهم جزيل الشكر وبحسب ترتيب حروف " ابجد هوز حطي كلمن " وكما هو موجود بالنموذج 14 حرف وكما هو موضح بمثالك ( الحرف الاول - الحرف الثاني ... الخ ) يكون الكود كالتالي Option Compare Database Option Explicit Private Sub XTotal_Exit() If Me.A = "ا" Then Me.A1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.A & "'") Else Me.A1 = 0 End If If Me.B = "ب" Then Me.B1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.B & "'") Else Me.B1 = 0 End If If Me.C = "ج" Then Me.C1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.C & "'") Else Me.C1 = 0 End If If Me.D = "د" Then Me.D1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.D & "'") Else Me.D1 = 0 End If If Me.E = "ه" Then Me.E1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.E & "'") Else Me.E1 = 0 End If If Me.F = "و" Then Me.F1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.F & "'") Else Me.F1 = 0 End If If Me.G = "ز" Then Me.G1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.G & "'") Else Me.G1 = 0 End If If Me.H = "ح" Then Me.H1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.H & "'") Else Me.H1 = 0 End If If Me.I = "ط" Then Me.I1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.I & "'") Else Me.I1 = 0 End If If Me.J = "ي" Then Me.J1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.J & "'") Else Me.J1 = 0 End If If Me.K = "ك" Then Me.K1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.K & "'") Else Me.K1 = 0 End If If Me.L = "ل" Then Me.L1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.L & "'") Else Me.L1 = 0 End If If Me.M = "م" Then Me.M1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.M & "'") Else Me.M1 = 0 End If If Me.n = "ن" Then Me.n1.Value = DLookup("[N]", "Query1", "[L] ='" & Me.n & "'") Else Me.n1 = 0 End If Me.tot.Value = Nz(A1) + Nz(B1) + Nz(C1) + Nz(D1) + Nz(E1) + Nz(F1) + Nz(G1) + Nz(H1) + Nz(I1) + Nz(J1) + Nz(K1) + Nz(L1) + Nz(M1) + Nz(n1) ' Debug.Print Me.tot End Sub Private Sub A_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub b_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub c_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub d_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub e_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub f_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub g_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub h_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub i_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub j_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub k_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub l_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub m_Exit(Cancel As Integer) Call XTotal_Exit End Sub Private Sub n_Exit(Cancel As Integer) Call XTotal_Exit End Sub 001.rar تحياتي
  3. يمكن تغيير خاصية محاذاة النص الى توزيع تحياتي
  4. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا الموضوع يتناول تشغيل قاعدة البيانات على الشبكة وتعدد المستخدمين وبه حلول لاكثر المشاكل تحياتي
  5. استعلام abc هو استعلام تجميعي اما لو اردت عرض التاريخ فقم بتصميم تقرير يعتمد على جدول 22 واسفل التقرير اجمع الايام تحياتي
  6. السلام عليكم انت تريد عدد حقل prop وهذا الحقل غير موجود في جدول2 والصحيح ان يكون geab والمعادلة كالتالي abs: DCount("[geab]";"22";"[s]='" & [1]![S] & "'") ASD123.accdb تحياتي
  7. مرحباً اخي الكريم الموضوع قديم اخي الكريم الافضل طرح موضوع جديد عندما تواجهك مشكلة على كل حال تفضل قاعدة البيانات بتنسيق mdb القاعدة.rar تحياتي
  8. جزاك الله خيرا استاذي الفاضل تعلمنا منكم الكثير فجزاكم الله عنا كل خير تحياتي
  9. بالاضافة الى ما تفضل به استاذنا الجليل @ابوخليل وله جزيل الشكر تفضل اخي الكريم ضع هذا الكود في موديول جديد Public Sub Set_Pass(sDBName As String, soLdPass As String, Optional sNewPass As String = "") Dim db As DAO.Database On Error GoTo Err: Set db = OpenDatabase(sDBName, True, False, ";PWD=" & soLdPass) db.NewPassword soLdPass, sNewPass Exit Sub Err: Resume Next End Sub وهذا الكود في زر امر Dim DB_Full_Name As String Dim DB_Pass As String DB_Pass = 777 ' كلمة مرور قاعدة بيانات aa.mdb DB_Full_Name = CurrentProject.Path & "\" & "aa.mdb" Set_Pass DB_Full_Name, DB_Pass ShellExecute Me.hwnd, "open", DB_Full_Name, "", "", 1 تحياتي
  10. او بطريقة اخرى Private Sub Form_Load() X = CurrentProject.Path & "\Setting.ini" If Len(Dir(X)) = 0 Then Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(CurrentProject.Path & "\Setting.ini", True) a.WriteLine ("1") a.Close Else Open CurrentProject.Path & "\Setting.ini" For Input As #1 Input #1, X Me.L1 = X Close #1 End If End Sub تحياتي
  11. تفضل اخي الكريم Private Sub Form_Load() On Error GoTo err: Dim X As String Open CurrentProject.Path & "\Setting.ini" For Input As #1 Input #1, X Me.L1 = X Close #1 err: Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(CurrentProject.Path & "\Setting.ini", True) a.WriteLine ("1") a.Close End Sub تحياتي
  12. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub cmdSave_Click() X1 = CurrentProject.Path & "\Setting.ini" X3 = FreeFile Open X1 For Input As X3 Line Input #X3, X X5 = X5 & X Close X3 If Me.L1 = 1 Then X7 = 2 Else X7 = 1 End If X5 = Replace(X5, X7, Me.L1) X3 = FreeFile Open X1 For Output As X3 Print #X3, X5 Close X3 End Sub Private Sub Form_Load() Dim X As String Open CurrentProject.Path & "\Setting.ini" For Input As #1 Input #1, X Me.L1 = X Close #1 End Sub Project201.rar تحياتي
×
×
  • Create New...

Important Information