ابن مسقط

حياكم الله وتستاهلوا كل الخير :(

الصوت سريع هل استطيع تغييره أو تقليل السرعة

<{POST_SNAPBACK}>

للأسف حتى الآن لم أتوصل لتقليل السرعة .

الحمدالله أن المشكلة قد أنحلت .

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

المثال الذي وجدته لكم أثناء تصفحي لأحد المواقع الاجنبية ، يتميز بإمكانيته على نطق وقراءة الكلمات الموجدة بالسجلات.

شرح طريقة عمله :-

المثال يتكون من نموذج بمسمى 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

بارك الله فيك أخي الكريم

اللهم آمين

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

هل تخيلت يوماً أنك تستطيع إستعراض سجلات قاعدة بيانات أكسس بواسطة برنامج الباوربوينت (وما أدراك ما البوربوينت )

قاعدة البيانات المرفقة تحوي بداخلها نموذجين وهما كالأتي :-

أولاً : النموذج: 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

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

هل سئمت من الجداول المرتبطة

ورسائل وجود خطاء في عدم الإتصال ببعضها ؟

هل تريد أن تتصل بقاعدة أخرى وتفتح نماذجها وتطلع على تقاريرها بدون وجود إرتباط بينها ؟

إذا عليك بتجربة المثال المرفق ، فهو يحتوي على قاعدتين :-

الأولى : REMOTE (القاعدة المراد الإتصال بها وإستعراض محتوياتها)

الثانية : LOCAL (القاعدة التي تُستخدم كمستعرض)

تستطيع بواسطة القاعدة الثانية عمل الأتي :-

1- معاينة تقرير من القاعدة الأولى

2- طباعة تقرير من الأولى في الخلفية وبعد الإنتهاء يتم إغلاق القاعدة بدون إزعاج المستخدم للقاعدة الثانية.

3- فتح نموذج من الأولى.

4- تشغيل إستعلام وإستخدام بيانات جدول من القاعدة الثانية

ملاحظة : المثال يستخدم مرجع DAO 3.6

يجب أن تضع الملفين بداخل مجلد واحد.

--------------

أرجو أن يكون المثال مفيدا لكم والله الموفق

المرجع أنقر هنا

RemoteDb_2K.rar

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

أخي الكريم

في حالة أن جميع الجداول متشابهة في الصفات البنائية ، فيمكنك إستخدام إستعلام التوحيد لدمج جميع الجداول .

تجد هنا مثال على إستعلام التوحيد : http://www.officena.net/ib/index.php?showtopic=730

والله يوفق .

لكي تقوم بتحديد القاعدة المراد توثيقها ، أنقر على الرز "ذو الثلاث النقاط"

وحين ينفتح لك "مربع الحوار" ، حدد القاعدة التي تريدها

وكأنك تنقر أيقونة "My Computer" وتريد أن تفتح ملف معين في مكان محدد ، كذلك تعمل مع "مربع الحوار" تحدد القاعدة ثم تنقر على زر Open

ستجد بعدها حقول القاعدة ظهرت في الإطار

ثم أخترها كلها أو بعضها

أرجو أن يكون واضحا شرحي ؟

أخي الكريم التقني

بعد أن تحدد القاعدة المراد توثيقها ، ستظهر لك داخل الإطار الجداول المراد إجراء التوثيق عليها.

حدد كل الجداول بواسطة زر "الكل" أو أختر بعض منها بواسطة إنتقائها وأنت ضاغط على مفتاح Ctrl

ثم أنقر على زر "إنشاء التقرير" وسترى بعدها التقرير المطلوب.

والله يوفقك.

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

البرنامج الذي أود أن أعرضه عليكم يمكن من خلاله معرفة مواصفات وأداء جهازك من خلال الأتي :-

1- نوع المعالج

2- إجمالي الذاكرة الأساسية

3- الإجمالي المتبقي من الذاكرة الأساسية

4- إجمالي الذاكرة الإفتراضية

5- الإجمالي المتبقي من الذاكرة

6- نظام التشغيل وإصداره

7- رقم الأيبي

والباقي أتركه لكم لإكتشافه بأنفسكم وأرجو أن تستفيدو منه .

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

ولكم جميعاً خالص التقدير والإحترام

ACC02_SysInfo.rar

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

المثال المرفق قد يساعد أولائك المتمرسين والمحترفين الذين يهتمون بتوثيق Documention بناء القاعدة ، بحيث يستطيع من يأتي بعدهم أن يعرف هيكلية وبناء القاعدة ليسهل صيانتها أو إرسال تقرير عنها إلى أي مسؤول عن تكوينها (y) .

المثال بإختصار يقوم بإنشاء تقرير يسرد بناء وتكوين أي قاعدة اكسس تختارها وتود حفظ توثيقها ، وقد قمت بتعريب واجهة البرنامج ليسهل التعامل معه وإستخدامه من قبل أي شخص.

والله الموفق.

DataBaseDocumention.rar

بارك الله فيك يأستاذ/ أبو هادي

قمت اليوم بتجربة المثال على الإسكانر من نوع HP ScanJet ونجحت العملية تماماً.

ولكن لدي ملاحظة على الصورة التي تظهر داخل مربع الصورة ، فقد حاولت أن أوسط الصورة بتعديل خصائص المربع وجعل خاصية وضع الحجم إلى "تمدد" ولكنها ظهرت غير نقية أو واضحة.

تظهر الصورة فقط واضحة في حالة وضع خاصية المربع إلى "قطع" ولكنها كبيرة ويجب تكبير المربع لإحتواء أبعاد الصورة

أما خيار "تكبير/وتصغير" الصورة أيضا غير مرضي.

فهل توجد طريقة أخرى لإظهار الصورة نقية وكاملة الأبعاد في نفس حجم الإطار الذي في القاعدة ؟

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

يعمل المثال بنفس تقنية الريجيستري registry في الويندوز ، حيث يقوم بتخزين المواقع التي تقوم بزيارتها. ولكن بدل أن يخزنها في الريجيستري يخزنها بداخل جدول أكسس ، فما رأيكم ؟

أترك لكم فرصة الحكم بأنفسكم

ولا نسألكم سوى الدعاء الصالح.

المصدر

ExplorerHistory.rar

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

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

والله الموفق

FindFiles.rar

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

أرجو المعذرة على المداخله

الصورة أعلاه تعبر عن واحده من مشاكل الأكسس العربي.

التعبير السابق لايعمل ويجب تعديله إلى الجملة التالية :

[forms]![frm_TableEncryptExample]![txtTableName]

فهل من رأي ؟

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

الأستاذ/ أبو أهادي والأستاذ/ خضر رجبي

كل الشكر والتقدير على هذا المجهود الذي بذلتماه في إخراج التحفة البرمجية الراعئة والتي سوف تفيد المبرمجين العرب في برامجهم.

أسأل الله بكل حرف تم كتابته في أسطر البرامج أن يمحو سيئاتكم ويزيد من حسناتكم أنه سميع مجيب الدعاء.

مع خالص تحياتي وتقديري للجميع.

الله يوفقك ويسعدك في الدنيا والآخره.

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

لتعم الفائدة للجميع أرفقت المثال بتعديل الأخ العزيز/ خضر رجبي

والله الموفق.

Google_______________.rar

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

شكرا لك أخي مهند

أخي خضر ماشاء الله عليك ، عيني عليك بارده ، عملك يسمى السهل الممتنع

أخي سهل ، العفو وهذا واجبي.

الله يوفقك

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

تجدون في المرفقات مثال أجنبي وجدته في أحد المواقع معمول على قاعدة الأكسس ، يملك الإمكانية في البحث داخل موقع جوجول الشهير الغني عن التعريف

مع العلم أن البحث يقتصر على الكلمات الإنجليزية فقط ، ولكن أعتقد يوجد في المنتدى من سوف يطوره ان شاء الله ليصبح قادراً على البحث باللغة العربية أيضاً.

أرجو أن يفيدكم بشىء والله الموفق.

Google.rar

السلام عليكم ورحمة الله

بسم الله وما شاء الله

مبروكين جميعاً على هذا الإنجاز الذي يعد على حسب علمي الأول على مستوى المنتديات العربية ،، فألف فألف مبروك والله يوفقكم.

شكرا لك أخي الكريم على هذا الموضوع المفيد

وبما أنك تطرقت إليه ، فأرجو أن تكمل جميلك بشرح طريقة إستخدام برنامج aspmaker

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

الأستاذين/ خضر الرجبي و فتي الوادي

بارك الله فيكما ووفقكم إلى كل خير وجعل مثواكم جنة الفردوس.