اذهب الي المحتوي
أوفيسنا

ابن مسقط

04 عضو فضي
  • Posts

    133
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

19 Good

عن العضو ابن مسقط

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • البلد
    سلطنة عمان

وسائل التواصل

  • Website URL
    http://
  • ICQ
    0

اخر الزوار

1,210 زياره للملف الشخصي
  1. السلام عليكم ورحمة الله وبركاته المثال الذي وجدته لكم أثناء تصفحي لأحد المواقع الاجنبية ، يتميز بإمكانيته على نطق وقراءة الكلمات الموجدة بالسجلات. شرح طريقة عمله :- المثال يتكون من نموذج بمسمى frmTextToSpeech عليه مربعي نص غير منتظمين تم تسميتهما txtQuote و txtAuthor بالإضافة إلى زر أمر بأسم cmdSpeak والذي يقبع أسفل منه الكود التالي : Private Sub cmdSpeak_Click() 'On Error Resume Next Dim strValue As String Dim strQuote As String Dim strAuthor As String If Me.cmdSpeak.Caption = "&Get Random Quote" Then ' get quote strValue = GetRandomQuote If InStr(1, strValue, ":") Then Me.txtQuote = Split(strValue, ":")(0) Me.txtAuthor = Split(strValue, ":")(1) Me.cmdSpeak.Caption = "&Speak" End If Else ' speak quote Me.ctlDirectSS.AudioReset Me.ctlDirectSS.Speak Me.txtQuote & " Author: " & Me.txtAuthor Me.cmdSpeak.Caption = "&Get Random Quote" End If End Sub الكود أعلاه يبدأ عمله بمجرد النقر على زر أمر cmdSpeak ، حيث يقوم على إستجلاب بيانات أحد السجلات من حقلي Quote و Author بصورة عشوائية من جدو ل tblQuotes وإظهارها على مربعي النص الغير منتظمين بمساعدة الوحدة النمطية الخاصة التالية ثم القيام بقراءة النصوص المعروضة فيهما : Private Function GetRandomQuote() As String On Error Resume Next Dim rs As ADODB.Recordset Dim strSQL As String Dim lngMaxID As Long Dim lngID As Long Dim strOut As String Set rs = CreateObject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic ' get the maximum ID in tblQuotes strSQL = "SELECT Max(tblQuotes.ID) AS MaxOfID FROM tblQuotes" rs.Open strSQL, CurrentProject.Connection If rs.State = 1 Then If Not rs.BOF Then lngMaxID = rs("MaxofID") End If rs.Close End If ' get a random positive number that is <= MaxID Randomize lngID = CLng(lngMaxID * Rnd + 1) ' use this random number to get a quote strSQL = "SELECT Quote, Author FROM tblQuotes WHERE ID = " & lngID rs.Open strSQL, CurrentProject.Connection If rs.State = 1 Then If Not rs.BOF Then strOut = rs("Quote") & ":" & rs("Author") End If rs.Close End If Set rs = Nothing GetRandomQuote = strOut End Function أرجو الإحاطة أن المثال يحتاج إلى مكتبة الربط المسماة XVoice.dll وكذلك المرجع المسمى Microsoft Dirct Speech Sysnthesis ليستطيع نطق الكلمات والعمل بصورة جيدة. ومن يحتاج إلى ملف مكتبة الربط فيمكن إنزاله بالنقـر هنـا (للأسف المثال غير قادر على نطق الكلمات العربية) أتمنى أن أكون قد وفقت في شرح المثال وأن يكون مفيدا لكم والله الموفق . TextToSpeech.rar
  2. السلام عليكم ورحمة الله وبركاته هل تخيلت يوماً أنك تستطيع إستعراض سجلات قاعدة بيانات أكسس بواسطة برنامج الباوربوينت (وما أدراك ما البوربوينت ) قاعدة البيانات المرفقة تحوي بداخلها نموذجين وهما كالأتي :- أولاً : النموذج: CreateFromAccessData هذا النموذج يوجد عليه زر بأسم "PowerPoint Example " بمجرد النقر عليه ينشىء شريحة عرض بالباوربوينت جديدة ، يتم من خلالها عرض أحد سجلات قاعدة بيانات أكسس المرفقة مع المثال. وشفرة الكود كالتالي :- Sub cmdPowerPoint_Click() Dim db As Database, rs As Recordset Dim ppObj As PowerPoint.Application Dim ppPres As PowerPoint.Presentation On Error GoTo err_cmdOLEPowerPoint ' Open up a recordset on the Employees table. Set db = CurrentDb Set rs = db.OpenRecordset("Employees", dbOpenDynaset) ' Open up an instance of Powerpoint. Set ppObj = New PowerPoint.Application Set ppPres = ppObj.Presentations.Add ' Setup the set of slides and populate them with data from the ' set of records. With ppPres While Not rs.EOF With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle) .Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1 .SlideShowTransition.EntryEffect = ppEffectFade With .Shapes(2).TextFrame.TextRange .Text = CStr(rs.Fields("LastName").Value) .Characters.Font.Color.RGB = RGB(255, 0, 255) .Characters.Font.Shadow = True End With .Shapes(1).TextFrame.TextRange.Characters.Font.Size = 50 End With rs.MoveNext Wend End With ' Run the show. ppPres.SlideShowSettings.Run Exit Sub err_cmdOLEPowerPoint: MsgBox Err.Number & " " & Err.Description End Sub ثانياً : النموذج: UseExistingPresentation هذا النموذج يقوم بعرض شرائح مشروع باوربوينت (Access2PowerPoint) الذي ستجدو ملفه من ضمن المرفقات على النموذج المذكور وذلك بمجرد النقر على الزر "Get Presentation" وشفرته كالتالي :- Private Sub insertShow_Click() On Error GoTo insertShow_Click_Error ' Open PowerPoint Dim strPowerPointFile As String Dim pptobj As PowerPoint.Application Set pptobj = New PowerPoint.Application pptobj.Visible = True pptobj.WindowState = ppWindowMinimized strPowerPointFile = CurrentProject.Path & "\Access2PowerPoint.ppt" ' Fill a collection with all Slide IDs. With pptobj.Presentations.Open(strPowerPointFile) Set mcolSlideIDs = New Collection Dim ppSlide As PowerPoint.Slide For Each ppSlide In .Slides mcolSlideIDs.Add ppSlide.SlideID Next .Close End With ' Close PowerPoint pptobj.Quit Set pptobj = Nothing ' Make object frame visible and enable "navigation" buttons. pptFrame.Visible = True frstSlide.Enabled = True lastSlide.Enabled = True nextSlide.Enabled = True previousSlide.Enabled = True ' Specify OLE Class, Type, SourceDoc, SourceItem and other properties. With pptFrame .Class = "Microsoft Powerpoint Slide" .OLETypeAllowed = acOLELinked .SourceDoc = strPowerPointFile End With SetSlide 1 frstSlide.SetFocus insertShow.Enabled = False Exit Sub insertShow_Click_Error: MsgBox Err.Number & " " & Err.Description Exit Sub End Sub وكذلك تستطيع بواسطة بقية الأزار التي على النموذج التحكم بعرض كل شريحة من ناحية التقديم أو التأخير ... إلخ. ملاحظة: يجب أن يكون لديك Access 2000 أو الإصدار الأحدث وكذلك PowerPoint 2003 وستحتاج أن يكون لديك في قائمة المراجع References إلى مكتبات الربط التالية : Microsoft PowerPoint 9.0 Object Library Microsoft DAO 3.6 Object Library وأخيرا أترك لك الفرصة لإنزاله وإستكشافه من الرابط التالي : http://www.microsoft.com/downloads/details...&displaylang=en ------------ المصدر : http://msdn.microsoft.com/office/default.a...2Powerpoint.asp بعد إنزال المثال سيتم تنصيبه داخل المجلد التالي : C:\Office Samples\OfficeAccess2PowerPointSample
  3. السلام عليكم ورحمة الله وبركاته هل سئمت من الجداول المرتبطة ورسائل وجود خطاء في عدم الإتصال ببعضها ؟ هل تريد أن تتصل بقاعدة أخرى وتفتح نماذجها وتطلع على تقاريرها بدون وجود إرتباط بينها ؟ إذا عليك بتجربة المثال المرفق ، فهو يحتوي على قاعدتين :- الأولى : REMOTE (القاعدة المراد الإتصال بها وإستعراض محتوياتها) الثانية : LOCAL (القاعدة التي تُستخدم كمستعرض) تستطيع بواسطة القاعدة الثانية عمل الأتي :- 1- معاينة تقرير من القاعدة الأولى 2- طباعة تقرير من الأولى في الخلفية وبعد الإنتهاء يتم إغلاق القاعدة بدون إزعاج المستخدم للقاعدة الثانية. 3- فتح نموذج من الأولى. 4- تشغيل إستعلام وإستخدام بيانات جدول من القاعدة الثانية ملاحظة : المثال يستخدم مرجع DAO 3.6 يجب أن تضع الملفين بداخل مجلد واحد. -------------- أرجو أن يكون المثال مفيدا لكم والله الموفق المرجع أنقر هنا RemoteDb_2K.rar
  4. السلام عليكم ورحمة الله وبركاته أخي الكريم في حالة أن جميع الجداول متشابهة في الصفات البنائية ، فيمكنك إستخدام إستعلام التوحيد لدمج جميع الجداول . تجد هنا مثال على إستعلام التوحيد : http://www.officena.net/ib/index.php?showtopic=730 والله يوفق .
  5. لكي تقوم بتحديد القاعدة المراد توثيقها ، أنقر على الرز "ذو الثلاث النقاط" وحين ينفتح لك "مربع الحوار" ، حدد القاعدة التي تريدها وكأنك تنقر أيقونة "My Computer" وتريد أن تفتح ملف معين في مكان محدد ، كذلك تعمل مع "مربع الحوار" تحدد القاعدة ثم تنقر على زر Open ستجد بعدها حقول القاعدة ظهرت في الإطار ثم أخترها كلها أو بعضها أرجو أن يكون واضحا شرحي ؟
  6. أخي الكريم التقني بعد أن تحدد القاعدة المراد توثيقها ، ستظهر لك داخل الإطار الجداول المراد إجراء التوثيق عليها. حدد كل الجداول بواسطة زر "الكل" أو أختر بعض منها بواسطة إنتقائها وأنت ضاغط على مفتاح Ctrl ثم أنقر على زر "إنشاء التقرير" وسترى بعدها التقرير المطلوب. والله يوفقك.
  7. السلام عليكم ورحمة الله وبركاته البرنامج الذي أود أن أعرضه عليكم يمكن من خلاله معرفة مواصفات وأداء جهازك من خلال الأتي :- 1- نوع المعالج 2- إجمالي الذاكرة الأساسية 3- الإجمالي المتبقي من الذاكرة الأساسية 4- إجمالي الذاكرة الإفتراضية 5- الإجمالي المتبقي من الذاكرة 6- نظام التشغيل وإصداره 7- رقم الأيبي والباقي أتركه لكم لإكتشافه بأنفسكم وأرجو أن تستفيدو منه . وقد قمت بتعريب واجهته ليسهل فهمه للجميع وأرجو المعذرة أن كانت الترجمة ركيكه نوعا ما. ولكم جميعاً خالص التقدير والإحترام ACC02_SysInfo.rar
  8. السلام عليكم ورحمة الله وبركاته المثال المرفق قد يساعد أولائك المتمرسين والمحترفين الذين يهتمون بتوثيق Documention بناء القاعدة ، بحيث يستطيع من يأتي بعدهم أن يعرف هيكلية وبناء القاعدة ليسهل صيانتها أو إرسال تقرير عنها إلى أي مسؤول عن تكوينها (y) . المثال بإختصار يقوم بإنشاء تقرير يسرد بناء وتكوين أي قاعدة اكسس تختارها وتود حفظ توثيقها ، وقد قمت بتعريب واجهة البرنامج ليسهل التعامل معه وإستخدامه من قبل أي شخص. والله الموفق. DataBaseDocumention.rar
  9. بارك الله فيك يأستاذ/ أبو هادي قمت اليوم بتجربة المثال على الإسكانر من نوع HP ScanJet ونجحت العملية تماماً. ولكن لدي ملاحظة على الصورة التي تظهر داخل مربع الصورة ، فقد حاولت أن أوسط الصورة بتعديل خصائص المربع وجعل خاصية وضع الحجم إلى "تمدد" ولكنها ظهرت غير نقية أو واضحة. تظهر الصورة فقط واضحة في حالة وضع خاصية المربع إلى "قطع" ولكنها كبيرة ويجب تكبير المربع لإحتواء أبعاد الصورة أما خيار "تكبير/وتصغير" الصورة أيضا غير مرضي. فهل توجد طريقة أخرى لإظهار الصورة نقية وكاملة الأبعاد في نفس حجم الإطار الذي في القاعدة ؟
  10. السلام عليكم ورحمة الله وبركاته يعمل المثال بنفس تقنية الريجيستري registry في الويندوز ، حيث يقوم بتخزين المواقع التي تقوم بزيارتها. ولكن بدل أن يخزنها في الريجيستري يخزنها بداخل جدول أكسس ، فما رأيكم ؟ أترك لكم فرصة الحكم بأنفسكم ولا نسألكم سوى الدعاء الصالح. المصدر ExplorerHistory.rar
×
×
  • اضف...

Important Information