بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
6,503 -
تاريخ الانضمام
-
Days Won
167
ابو جودي last won the day on يناير 15
ابو جودي had the most liked content!
السمعه بالموقع
4,670 Excellentعن العضو ابو جودي
- تاريخ الميلاد 28 فبر, 1982
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
عبد الله
-
البلد
مصــ♥ـــــر
-
الإهتمامات
رضا الله هو كل غايتى
وسائل التواصل
-
MSN
eg_82@hotmail.com , eg_82@outlook.com , eg-82@hotmail.com , eg-82@outlook.com
-
Website URL
www.officena.net/ib/forum/89-قسم-الأكسيس-access/
اخر الزوار
-
☺ تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين
ابو جودي replied to ابو جودي's topic in قسم الأكسيس Access
اعتذر عن الانقطاع لظروف مرضية ان شاء الله سوف نبدأ فى الاستمرار تباعا بامر الله- 4 replies
-
- 6
-
- شئون العاملين
- ادارة يوميات العاملين
-
(و1 أكثر)
موسوم بكلمه :
-
mohammed alrabeai started following ابو جودي
-
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
ابو جودي replied to دروب مبرمج's topic in قسم الأكسيس Access
الله يسامحك انا بالنسبة لى كان متخلف وغبى جدا جدا جدا ثلاثه جدا مش واخدة بس اقولكم لك على حاجة مفيش اجمل من ان الواحد يسرح فى بنات افكاره وجمالهم ويتأمل فيهم ويحلم معاهم ويحقق بيهم حلمه صدقونى الطبيعى طبيعى مش تقولوا لى اصطناعى -
توسيط النماذج على طريقة أبو جودي مع إخفاء إطار أكسس.
ابو جودي replied to abofayez1's topic in قسم الأكسيس Access
لا شكر على واجب اهلا بك جزانا والله واياكم خير الجزاء وسعيد جدا والله الحمد انا فى حد بتعجبة شخابيطى وعلشان بتحب الشخبطة خد اخر شخابيطى توسيط واخفاء بطريقة جديدة HideAccess.accdb -
توسيط النماذج على طريقة أبو جودي مع إخفاء إطار أكسس.
ابو جودي replied to abofayez1's topic in قسم الأكسيس Access
للاسف مع الاخفاء لابد من ان تكون Pou Up = yes Modal = YES لكل النماذج والتقارير ولا انصحك باعتماد كود اخفاء اطار الاكسس هذا -
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
ابو جودي replied to دروب مبرمج's topic in قسم الأكسيس Access
انا جربته مره من باب الفضول لما انت قلت لى عليه بصراحة لم تكت تجربة ممتعة بالمرة احسست وقتها انه سوف يصيبنى بالانفعال الشديد من نتائجه الغبية والمغلوطه -
الذكاء الإصطناعي chatGPT في انشاء اكواد VBA
ابو جودي replied to دروب مبرمج's topic in قسم الأكسيس Access
فعلا انت صح ده كمان صح لما تكون طلبات صريحة وبسيطة بس هو سوف يظل دائما عاجزا و يفتقر للخيال ويفتقر للابداع وصدقنى لو اعتمدت عليه انت رايح فى داهيه لانه غبى هو حافظ مش فاهم كانت التجربه سيئة جدا جدا جدا ودرب من الغباء اعتقد ان تناول العمل مع اكواد الاكسس اصعب من لغات برمجة اخرى ويعتمد اكثر على الابداع والتفكير للحلول خارج الصندوق فى الكثير من الاحوال فهو اكثر تعقيدا من غيره -
لو لاحظت انا كتبت الدالة الاولى وحتكون ثابته على طول لاى جدول ولاى معايير الدالة التانية بس للاستدعاء كل ما عليك تكتب اسم الجدول والحقل والمعيار وتختار ان كان رقمى او نصى او تاريخ واللذيذ ان فى مصفوفة بتجيب لك كل الحقول يعنى تعرف متغير result ويكون مصدر بيانات الحقل result(i) طبعا لو فى عمليات حسابية معقدة داخل الكود تكون اسرع من الاستعلام لو استخدمت فيه دوال المجال وفى الاخير انت الان معاك اكثر من طريقة
-
على طريقة المعقدين امثالى اعمل مديول ضع الوظيفة الاتية Enum TypeWHERE asString asDate asNumeric End Enum Dim rsArryFieldName As Variant Function RetrieveData(ByRef tableName As String, _ ByRef fieldName As String, _ Optional varMyWHERE As Variant = "", _ Optional TypeMyWHERE As TypeWHERE = TypeWHERE.asString, _ Optional LinkCriteria As String = "") As Variant ' This function retrieves data from the specified table and field based on the provided criteria. ' Translate the criteria type to the appropriate SQL syntax Select Case TypeMyWHERE Case TypeWHERE.asDate LinkCriteria = "[" & fieldName & "] = #" & varMyWHERE & "#" '| Date Case TypeWHERE.asNumeric LinkCriteria = "[" & fieldName & "] = " & varMyWHERE '| Numeric Case TypeWHERE.asString LinkCriteria = "[" & fieldName & "] = '" & varMyWHERE & "'" '| String End Select ' Declare a DAO Recordset variable Dim rs As DAO.Recordset ' Open a recordset based on the provided table and field names Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & tableName & " WHERE " & LinkCriteria) ' Check if the recordset is not empty If Not rs.EOF Then ' Create an array to hold values of all fields in the record Dim fieldValues() As Variant ReDim fieldValues(1 To rs.fields.Count) Dim i As Integer ' Populate the array with values from all fields For i = 1 To rs.fields.Count fieldValues(i) = rs.fields(i - 1).Value Next i ' Return the array containing values of all fields RetrieveData = fieldValues Else ' Return an empty string if no matching record is found RetrieveData = "" End If ' Close the recordset rs.Close Set rs = Nothing End Function وشوف التجربة من خلال هذا الروتين Sub ExampleUsage() ' Set the table name and field name Dim tableName As String Dim fieldName As String Dim criteriaValue As Variant Dim criteriaType As TypeWHERE ' Set default values tableName = "YourTableName" ' | << Set the table name fieldName = "YourFieldName" ' | << Set the field name criteriaValue = "YourCriteriaValue" ' | << Set Your Criteria Value criteriaType = TypeWHERE.asString ' | << Set the type of criteria and You can change it based on the case type of criteria ' Call the RetrieveData procedure Dim result As Variant result = RetrieveData(tableName, fieldName, criteriaValue, criteriaType) ' Display values of all fields in the array If IsArray(result) Then Dim i As Integer For i = 1 To UBound(result) Debug.Print i & ": " & result(i) Next i ' Display the value of field number 3 (For example, EmployeeName) Debug.Print result(3) Else ' If no matching record is found, show an appropriate message MsgBox "No matching record found for the specified criteria." End If End Sub وعيش مع الكود ومع بنات افكارك
-
طبعا لا يفتى ومالك فى المدينة اممم تصدق مش عارف اقول اه واللا لاء بس بعد الشرح ده انت قول الاجابة دوال المجـــــــ(Domain Functions)ـــــــــال جزءا من مجموعة من الدوال التي تستخدم للتلاعب بالبيانات في قاعدة البيانات وهى ليست استعلامات هذه الدوال تعتبر جزءا من استعلامات SQL (Structured Query Language) التي تستخدم لاسترجاع وتحديث البيانات دوال المجال تسمح لك بتنفيذ عمليات معينة على البيانات في حقل معين من جدول معين على سبيل المثال : - يمكن استخدام دالة المجال Dlookup للبحث عن قيمة في حقل محدد بناء على شرط معين او عدة شروط هذه الدوال تستخدم ضمن تعبيرات SQL داخل استعلامات يعنى خى ليست استعلامات انما هى تستخدم كجزء داخل الاستعلامات Dlookup >>----> للبحث عن قيمة في حقل معين DCount >>----> لحساب عدد السجلات التي تستوفي شرط محدد DSum >>----> لحساب مجموع قيم حقل معين بناءً على شرط يبقى الاجابة ايه
-
ممكن طريقه ارسال ملفات ب د اف عن طريق الواتس الويب
ابو جودي replied to safaa salem5's topic in قسم الأكسيس Access
للاسف بسبب تحديثات ويندوز الاخيرة الكود مش بشتغل لكن على كل حال لو ملف الاكس اللى معاكى شغال ممكن لو مفتوخ اشوف الاكواد واعدلهولك للاكسس واو مقوفل ممكن اخاول ابعت البيانات من اكسس ليه بس ده مش وعد لان مش عارف شكل الملف ايه -
منكم نتعلم استاذى الجليل ومعلمى القدير هذا من فضل الله سبحانه وتعالى ثم لكلم ولكل اساتذتى العظماء تعرف يا استاذى انا تقريبا بطلت ستخدم DLookup الا فى اضيق الحالات كل ما اجى استخدمها افتكر كلمة استاذ @jjafferr سر قوة الاكسس فى الاستعلامات الان تقريبا اعيد ما اريد من خلال الاستعلامات بدلا من DLookup فعلا الاستعلامات رهيبة جدا جدا جدا جدا
-
ممكن طريقه ارسال ملفات ب د اف عن طريق الواتس الويب
ابو جودي replied to safaa salem5's topic in قسم الأكسيس Access
على سبيل المثال #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Public Function SendWhatsAppMsg(toNumber As String, Optional Msg As String, Optional FilePathh As String) Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False IE.Navigate "whatsapp://send?phone=" & toNumber & "&Text=" & Nz(Msg, "") Sleep 2000 If Len(FilePathh) > 5 Then SendKeys "+{TAB}" SendKeys "~" Sleep 2000 SendKeys "{UP}" SendKeys "{UP}" SendKeys "~" Sleep 2000 SendKeys Nz(FilePathh, "") SendKeys "~" Sleep 3000 Else 'MsgBox "No" End If SendKeys "~" SendKeys "{NUMLOCK}", True Set IE = Nothing End Function هذا الكود يستخدم VBA لفتح WhatsApp Web (WhatsApp عبر المتصفح) وإرسال رسالة نصية أو رسائل معينة تعتمد هذه الطريقة على استخدام إطار الإنترنت (InternetExplorer.Application) لفتح WhatsApp Web ومحاكاة إرسال الرسائل باستخدام SendKeys. ومع ذلك، يجب أن ألفت انتباهكم إلى أن استخدام SendKeys يعتبر طريقة غير موثوقة وقد تتعرض للمشاكل في بيئات مختلفة تعتمد هذه الطريقة على تحكم البرنامج في العناصر التفاعلية في واجهة المستخدم وهو شيء قد يتغير في التحديثات المستقبلية لتطبيقات المتصفح وبالفعل تم وقف التعامل مع هذا المتصفح نهائيا فى تحديثات ونسخ الويندوز الحديثة فأصبح غير معتمد نهائيا إذا كنتم بحاجة إلى التفاعل مع واتساب بشكل برمجي يمكن الأفضل استخدام واجهة برمجة تطبيقات WhatsApp Business API ولكن هذا يتطلب تسجيلًا كشركة واستخدامه لأغراض الأعمال -
ممكن طريقه ارسال ملفات ب د اف عن طريق الواتس الويب
ابو جودي replied to safaa salem5's topic in قسم الأكسيس Access
للاسف مشكلة اى تطبيقات تعمد على وسيط قد تعمل عند البعض ولا تعمل عند اخرين ويرجع ذلك الى اصدارات الوسطاء السبب ان التطبيق يقوم بارسال البيانات عبر دوال للمتصفحات او للتطبيق ومع التحديثات التى تصل الى الويندوز او جوجل كروم او باقى المتصفحات قد تحدث تتغيرات تعود بالسلب على مثل هذه التطبيقات لذلك لا احب استعمال اى وسطاء .. الوسطاء يمتنعون لا يمكن إرسال رسائل WhatsApp من خلال VBA مباشرة باستخدام WhatsApp Desktop أو WhatsApp Web يتم استخدام WhatsApp Desktop و WhatsApp Web للتفاعل مع رقم هاتف مرتبط بحساب WhatsApp على هاتفك المحمول يمكنك التفاعل مع WhatsApp عبر الحوارات النصية والوسائط والمزيد من خلال تلك الوسائل ولكن الوصول إلى واجهة برمجة التطبيقات (API) الخاصة بـ WhatsApp مباشرةً لا يزال مقيدًا ويتم حاليًا توفير واجهة برمجة تطبيقات (API) WhatsApp Business API لأغراض الأعمال إذا كنتم بحاجة إلى التفاعل مع WhatsApp من خلال VBA يمكنك استخدام تقنيات أخرى مثل استخدام السيرفرات الوسيطة والتي تتيح لك التحكم في التطبيق من خلال البرمجة (على الرغم من أن هذا قد يتطلب إعدادات متقدمة والتى لن يكون مسموحًا به أصلا ً من قبل WhatsApp) وذلك بسبب سياسات WhatsApp وشروط الاستخدام الخاصة بها -
وممكن SELECT VAL([ID]) AS valID, * FROM tblEmployees WHERE VAL([ID]) BETWEEN 50 AND 80; وممكن استخدام دالة CDBL لتحويل إلى رقم مزدوج (Double): SELECT CDBL([ID]) AS cdblID, * FROM tblEmployees WHERE CDBL([ID]) BETWEEN 50 AND 80; وممكن استخدام دالة CDATE للتحويل إلى تاريخ (إذا كان يمكن تفسير القيم كتواريخ) SELECT CDATE([FieldName]) AS cdateFieldName, * FROM TableName WHERE CDATE([FieldName]) Between #50# And #80#;
-
وانا كمان مثل استاذى الحليل ومعلمى القدير و والدى الخبيب الاستاذ @ابوخليل من تم طرحك للاصدار الأول ، حين اشرع ببناء اي برنامج اذهب الى المكتبة العامرة ( طبعا عارف المكتبه مش محتاج اعرفك ) اول اضافة للمشروع استورد نموذجك علشان اخلص من اللى عليك .. ويبقى محاطا بالعناية والحنان .. والدعوات لك مع كل عملية . حتى نهاية المشروع
- 14 replies
-
- 1
-
- الكاتب الذكي
- دوال المجال
-
(و3 أكثر)
موسوم بكلمه :