fwares

9 ساعات مضت, Maznahmad said:

لكن الامر لم ينجح معي بعد ويعطيني رسالة المسار خطأ 

سيد مازن 

قلت لك ان المثال الذي قمت بارساله لك لن يعمل عندك بشكل اكيد لان البرنامج مربوط على قاعدة موجودة على جهازي وبالتالي لن تعمل عندك 

فيديو عن طريقة الربط

هل تريد ارسال رقم برنامج Anydesk لاقوم بتعيير الربط امامك 

اسمي فراس من سوريا 

الموضوع ليس بالامين 

الموضوع هو ربط بين الاكسس وبين ال SQL لان قاعدة بنانات الامين هي ال sql  

من الاكسس تختار external data  وتختار Link data ونختار sql 

ولكن يجب ان تعلم اي جداول من الامين  يجب ربطها مع الاكسس والتي تفيدك في العمل 

ارسلت لك ملف مربوط بقاعدة الامين لدي (طبعا لن يعمل لديك لانه مربوط بالقاعدة المحلية لدي )

Database1.accdb

من تجربتي وانا متاكد جدا نعم ممكن جدا جدا 

وقد قمت بربط الاكسس لتوليد سند قيد في الامين وسند قبض 

وبالعكس عند إضافة مادة تظهر في الاكسس مباشرة 

الموضوع بسيط جدا فقط عليك استيراد بيانات خارجية من قاعدة sql الخاصة بالامين لجدول اسمه mt000 

السلام عليكم

لله الحمد لدي القدرة عل انشاء برامج متكاملة باستخدام برنامج اكسس ولكن يوجد العديد من الاسئلة التي تشغل بالي دوما
السؤال الاول 

هل نستخدم الماكرو ام نستخدم ال VBA وما هو الافضل والاسرع ؟
احتاج بشكل دائم استدعاء بيانات من جداول مختلفة فاستخدم Dlookup بشكل كبير هل يوجد طريقة اسرع ام تعتبر dlookup جيدة وسريعة ؟

هل نقوم باستخدام ال Moudel بشكل دائم للعمليات التي تتكرر بشكل بسيط ام انها ابطئ من لو اننا اعدنا التعليمات طالما انها لا تتكرر عدد كبير (مرتين او ثلاث)

في حال كان لدي استعلام يعتمد عل استعلام اخر ويوجد معايير 
هل اضع المعايير في كل استعلام بشكل متكرر ام اضعه بالاستعلام الاخير ام الاول ام لا يوجد فرق ؟؟

هل استخدام قواعد ال SQL (Insert - update - delete اسرع ام استخدام الطرق التقليدية في التعامل مع الجداول وحفظها وتعديلها ؟؟؟؟

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

ارجو مساعدتنا للوصول الى الصحيح والسريع والمستقر 

لساني يعجز عن شكرك 

بالفعل حللت مشكلة كبيرة لي ولك جزيل الشكر بالاضافي إلى انني تعلمت اشياء جديدة من الكود الذي ارسلته 

شكرا شكرا شكرا

شكرا جزيلا واكرمك الله 

عملت المطلوب تماما تماما 

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

علما انه يمكنني القول انني حققت المطلوب وشكرا

السلام عليكم

قمت باتتمة نظام امتحانات عام ويوجد سؤال عن كتابة موضوع طويل وكانت النتائج ممتازة 

ظهرت المشكلة ان معظم المستخدمين لديهم عادة الضغط عل اختصار التراجع عند كتابة نص خطا 

المشكلة ان الاكسس يقوم بالغاء النص المكتوب بالكامل من مربع النص وليس اخر كلمة مثل برنامج الورد وهنا تكون مشكلة كبيرة جدا حيث يذهب كل المكتوب ولا يمكن اعادته 

المطلوب إما إلغاء زري ctr + z  عند الكتابة او جعل مربع النص مثل برنامج الورد يقوم بالغاء اخر كلمة فقط 

ارجو المساعده 

Database1.accdb

السلام عليكم 

شكرا جزيلا على المساعدة ولكن سوالي ليس عن موقع bulksms ولكن عن موقع مختلف تماما 
فهل يمكن استخدام موقع ارسال رسائل مختلف تماما؟

السلام عليكم

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

ولكن للاسف لم اجد ما يكفي من المعلومات عن هذا الموضوع 

ارجو ممن لديه اي افكار او طرق ان لا يبخل علينا بها 

ولكم جزيل الشكر

ياجماعة الخير مساعدة لوجهة الله

السلام عليكم

اود ان اطرح سوالا وارجو من المختصين مساعدتي بدلي على مقالات او حلول 

قمت بتصميم برنامج يقوم بعمليا ت معقدة وجميلة ويتعامل مع عدد كبير من حقول النص (540) مربع نص تقريبا ضمن خوارزمية وعدد من الحلقات المتداخلة

النتيجة راااااااااااااائعة للغاية 

 ولكن المشكلة هي ان زمن التنفيذ طويل نوعا ما وخاصة ان البرنامج على الشبكة 

اود ان استفسر عن طريقة لقياس سرعة تنفيذ مجموعة من العمليات لمعرفة مكان العملية التي تستغرق زمن طويل وخاصة انني لا استطيع قياس العملية بالكامل بطرق تقليدية لوجود حلقات 

هل هناك طريقة تحلل الكود وتعطي كل عملية الزمن لتنفيذها؟؟؟

وقمت بارفاق الكود لعله يوجد طريقة لتسريع التنفيذ

Public Sub Occup(weekdate1, weekdate2, weekdate3, selDate1, seldate2, seldate3)
Dim week(1 To 3)
Dim daa(1 To 3)
week(1) = weekdate1
week(2) = weekdate2
week(3) = weekdate3
daa(1) = selDate1
daa(2) = seldate2
daa(3) = seldate3
    Dim strsql As String
    Dim rst
    Dim Noo As Integer

For PP = 1 To 3

Form_Loading.Label2.Width = Form_Loading.Label1.Width / 3 * PP
Me("Tog" & week(PP)).Value = -1

'selDate = selDate + PP - 1

    
    
    strsql = "SELECT Occup.ID, Occup.courseID, Occup.courseNa, Occup.trainer, Occup.roomID, Occup.room, Occup.frmdate, Occup.toDate, Occup.timID, Occup.timFrm, Occup.TimTo, Occup.DayID,  Occup.Status, Occup.dayweek " & _
"FROM Occup " & _
"WHERE (((Occup.DayID) = " & week(PP) & "))ORDER BY Occup.ID;"
    '
    Set rst = CurrentDb.OpenRecordset(strsql)
   Noo = 0

    For N = 1 To 13
    Ro = DLookup("Room", "Room", "RoomID = " & N)
    Me("Ro" & PP & Ro) = DLookup("Room", "Room", "RoomID = " & N)
    Me("da" & PP & Ro) = DLookup("day", "dday", "Dayid =" & (week(PP)))
    
    For emp = 1 To 14
       Me("ocp" & PP & Ro & emp).Visible = True
       Me("ocp" & PP & Ro & emp).Width = wdStan.Width
        Me("ocp" & PP & Ro & emp) = ""
        Me("ocp" & PP & Ro & emp).BackColor = 16777215
         Me("ocp" & PP & Ro & emp).ForeColor = 0
        Me("Ocp" & PP & Ro & emp).FontSize = 12
    Next emp
    
    Next N
   
    
    If rst.RecordCount > 0 Then
    While Not rst.EOF
  
  rst.MoveNext
  Noo = Noo + 1
Wend
rst.MoveFirst


    For I = 1 To Noo
        Ro = DLookup("Room", "Room", "RoomID = " & rst!RoomID)
        
        CourseNm = DLookup("SchName", "Newcourse", "Id =" & rst!courseID) 
        
        If chRoomId = rst!RoomID And ChdayID = rst!DayID And chtimeID = rst!timID - 1 And chcourseID = rst!courseID Then
        repNo = repNo + 1
        Me("Ocp" & PP & Ro & rst!timID).Visible = False
        Me("Ocp" & PP & Ro & (rst!timID - repNo)).Width = wdStan.Width * (repNo + 1) + (60 * repNo)
        
       Else
        Me("Ocp" & PP & Ro & rst!timID) = CourseNm
        Me("Ocp" & PP & Ro & rst!timID).Tag = rst!Id
        
        repNo = 0
       End If
        Me("Ocp" & PP & Ro & rst!timID).BackColor = Nz(DLookup("CourseColor", "cName", "courseName ='" & DLookup("courseNa", "Newcourse", "Id =" & rst!courseID) & "'"), 15570276)
        chRoomId = rst!RoomID
        ChdayID = rst!DayID
        chtimeID = rst!timID
        chcourseID = rst!courseID
        
    rst.MoveNext
    Next I
    repNo = 0
    End If
    
rst.Close
   Noo = 0
strsql = "SELECT OneCan.canID, OneCan.CancourID, OneCan.canDate, OneCan.canroomID, OneCan.canDayID, OneCan.cantimID " & _
"FROM OneCan " & _
"WHERE (((OneCan.canDate) = #" & Format(daa(PP), "mm  dd  yyyy") & "#)) ORDER BY OneCan.canID ;"


   
    Set rst = CurrentDb.OpenRecordset(strsql)
     If rst.RecordCount > 0 Then
    While Not rst.EOF
  
  rst.MoveNext
  Noo = Noo + 1
Wend
   rst.MoveFirst
    For I = 1 To Noo
        Ro = DLookup("Room", "Room", "RoomID = " & rst!canroomID)
        
        CourseNm = "Cancel" & DLookup("SchName", "Newcourse", "Id =" & rst!CancourID) 
        

        Me("Ocp" & PP & Ro & rst!cantimID) = CourseNm ' اسم مربع النص
        Me("Ocp" & PP & Ro & rst!cantimID).Tag = rst!canID
        

        Me("Ocp" & PP & Ro & rst!cantimID).BackColor = 2237106
        Me("Ocp" & PP & Ro & rst!cantimID).ForeColor = 15792895
        
        Me("Ocp" & PP & Ro & rst!cantimID).FontSize = 10
        
    rst.MoveNext
    Next I
    
    End If

    rst.Close
        chRoomId = 0
        ChdayID = 0
        chtimeID = 0
        chcourseID = 0
    Noo = 0
    strsql = "SELECT excpDate.excpID, excpDate.courseID, excpDate.excpDate, excpDate.roomID, excpDate.DayID, excpDate.timID " & _
"FROM excpDate " & _
"WHERE (((excpDate.excpDate) = #" & Format(daa(PP), "mm  dd  yyyy") & "#)) ORDER BY excpDate.excpID;"

   
    Set rst = CurrentDb.OpenRecordset(strsql)
     If rst.RecordCount > 0 Then
    While Not rst.EOF
  
  rst.MoveNext
  Noo = Noo + 1
Wend
   rst.MoveFirst
    For I = 1 To Noo
        Ro = DLookup("Room", "Room", "RoomID = " & rst!RoomID)
        
        CourseNm = "Exp" & DLookup("SchName", "Newcourse", "Id =" & rst!courseID) ' & " " & Left(DLookup("courseSubNa", "Newcourse", "Id =" & rst!courseID), 5) & " " & DLookup("trainer", "Newcourse", "Id =" & rst!courseID)
        
        If chRoomId = rst!RoomID And ChdayID = rst!DayID And chtimeID = rst!timID - 1 Then
        repNo = repNo + 1
        Me("Ocp" & PP & Ro & rst!timID).Visible = False
        Me("Ocp" & PP & Ro & (rst!timID - repNo)).Width = wdStan.Width * (repNo + 1) + (60 * repNo)
        
       Else
        Me("Ocp" & PP & Ro & rst!timID) = CourseNm
        Me("Ocp" & PP & Ro & rst!timID).Tag = rst!excpID
        
        repNo = 0
       End If
        Me("Ocp" & PP & Ro & rst!timID).BackColor = Nz(DLookup("CourseColor", "cName", "courseName ='" & DLookup("courseNa", "Newcourse", "Id =" & rst!courseID) & "'"), 15570276)
        chRoomId = rst!RoomID
        ChdayID = rst!DayID
        chtimeID = rst!timID
        
    rst.MoveNext
    Next I
    
    End If

 rst.Close
Next PP
MsgBox "Done"

End Sub

السلام عليكم 

ارجو مساعدتي في هذه المسالة الصعبة جدا ورفد المحتوى العربي بالمعلومات عن برمجة OOp في اكسس

لدي نموذج لتسجيل الدفعات وفيه نموذج فرعي

اقوم بفتح النموذج العام بطريقة instance بمعنى انني استطيع فتح الكثير من النوافذ  لنفس النموذج 

المشكلة التي لم اجد لها اي حل 

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

حيث يتم الادخال في النموذج الفرعي الموجود ضمن اخر نموذج مطابق تم انشاءه 

هل يمكن وضع نموذج فرعي instance داخل النموذج الرئيسي؟؟؟

لفهم المطلوب تماما

قم بفتح دفع متعدد اكثر من نافذة
ثم قم بوضع المؤشر ضمن اسم الحساب في اول نموذج فتحتة

قم بكتابة اي جزء من الاسم

اختر اي اسم من النموذج الجديد وانقر موافق

وانظر النتيجة كيف ستظهر في اخر نموذج قمت بفتحه

Database5.zip

لقد وجدت كل ماهو مطلوب للباركود 1D والباركود QRلقراءة الباركود وعملية استرجاع السجل

وعن طريق كميرا ويب 

الاخوة الاعزاء
السلام عليكم و رحمة الله و بركاته

كان بالمنتدى موضوع  عن الباركود و الاكسس و على ما اذكر ان وقتها كان الكلام على الباركود العادى 1d
و كان سهولته ان الاجهزة التى تستخدم لقراءته تعرف تلقائيا على النظام و تكتب ما تقرأه مباشره فى الاكسس

المهم نظرا لصعوبة حصولى على جهاز قارئ للباركود لغلو ثمنه  صرفت النظر عن الفكره

و لكن منذ فترة و انا ارى اشكال الباركود متغيره على علب البيبسى و بعض المنتجات و عندما بحثت عرفت ان هذا النوع اسمه QR Barcode

و لمن يريد الاستزاده http://en.wikipedia.org/wiki/Qr_code

المهم وجدت به مميزات كثيره ووجدت ان كاميرا الموبايل مع نظام الاندرويد بتقرأه عادى ففكرت ان اكيد كاميرا الكمبيوتر الخاصه بالويب web cam هتقرأه هى كمان

بعد بحث وجدت برنامج يقرأ هذا الباركود بواسطة الويب كام و كان رائع 
http://www.quickmark...ownloadMain.asp

ثم وجدت برنامج لعمل هذا الكود و جربته على الاكسس و كان اكثر من رائع و لو انه ديمو 
http://strokescribe.com/en/about.html


السؤال هو 
كيف استخدم الويب كام لتقرأ هذا الباركود داخل الاكسس 
اى على مرحله واحده 

لتجريب الباركود تحتاج إلى تنصيب IDAutomation_QRCodeFontEncoderDEMO

http://www.idautomation.com/barcode-fonts/2d/qr-code/download.html
جزاكم الله خيرا

Database6.rar

شكرا جزيلا والله يعطيك العافية
لقد حللت لي مشكلة حاولت كثيرا حلها دون ان يخطر ببالي وضعها على عدة مستويات
ولكن ان نتيجة الاستعلام بالطريقة التي وضعتها تقوم باظهار كافة المعاهد والاجازة الساعية في حال كانت المركز هو معهد والمعاملات هي نوع اجازة
الحقيقة ان المشكلة الحقيقية هي القيم الفارغة بطريقة استعلامي

للاسف ليس ذلك المشكلة
المشكلة انني اربط الاستعلام بمربعات سرد ولا يعطي نتائج صحيحة عند وجود قيم فارغة
اتمنى ان تستطيع رؤية المرفق

Database5.rar

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

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

Database5.rar

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