فريدالطحان

الله يرحمه ويغفر له ويسكنه فسيح جناته 

تسلم ايدك 

خلى المعادلة

منذ ساعه, ابراهيم170 said:

في نقطة تانية معليش بدل الاجازة الشهري 

المعادلة محسوبة من الاساسي المفروض من الراتب الاجمالي 

IF(Q2=21; 1.75; IF(Q2=30; 2.5; 0)) / 100 *AB2

بص كده

بيانات بحاجة الى تعديل.xlsx

روعة يا استاذنا

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

lمرفق تعديل للتنسيق اعتقد ظبط شوية ونطوره برضه مع بعض

Gemini API.rar

10 ساعات مضت, hanan_ms said:

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

Form 1

Fomr 2 

Action = Len (Text) 

For 1 To  Action

IF Len (Text) = 20 then 

او نهاية عدد الحروف او نهاية السطر 

انتقل الى سطر جديد Next

لتنفيذ حركة الذكاء الاصطناعي 

 

والاسهل اذا كان سجلات 

 

كود تحويل النص الى ارقام 

 

وغير تنسيق الحقل الى رقم وليس كلمة مرور "*"

غير نص الى أخضر ونص لون اسود 

مر عليك تلوين الاحرف بالكلمة 

والخلفية سوداء 

 

بس ياخذ من Len(text) +1

============================

,والاسهل استبدال الرقام ب "_"

فقط تمرير حركة المشر النص 

تستخدم Integer 

تركيز للاحرف بس في متشابه الاحرف 

دور على حل  

 

===================================

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

جعل الجواب امر تنفيذ لعملية

واجابات للعملاء والخدمات 

ذكاء مخصص للعملاء الشركة والتسويق

 

 افضل من غير واجهة برنامج اكسس تطلب من ذكاء الاصطناعي تحليل التقارير 😂

تضخم المشروع 

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

مستنى التعديل 💯

11 دقائق مضت, Moosak said:

ما شاء الله تبارك الرحمن .. لله درك باش مهندس @فريدالطحان 

هذه الإفتتاحية لها ما بعدها إن شاء الله من تطور قواعد البيانات بإذن الله ☺️👌🏼

انتم اوفيسنا أساس التطوير والتعليم 

15 دقائق مضت, Foksh said:

 

عمل جميل ورائع ، أحسنت أخي @فريدالطحان

إبداع في توظيف وتطوير المهارة

من علمكم ننهل ... اريد تطويرها بمساعدتكم لمثل تلك الأداة https://www.askyourdatabase.com/

Gemini API.accdb

جرب تانى

4 دقائق مضت, hanan_ms said:

@فريدالطحانشكرا على المرفق

تعديل مرفق😇

1- اضافة اكشن عند الفتح 

2- عدم تمكين اضافة احرف العربية عند ادخال كلمة المرور او السر مع التجديد 

 

 

Ferry Login v1free.rar 90.9 kB · 0 downloads

شكرا للإضافة منكم نتعلم،

2 ساعات مضت, ابو البشر said:

اولا شكرا على الهدية

ثانيا اسمح لي بإضافة الملف في الموضوع بعد الضغط والاصلاح للملف من خلال الاكسس ... لان ملف الميديا يمكن حذفه بعد فترة من الزمن وسوف يخسر المنتدى هذه الهدية القيمة .....

 

Ferry Login v1free.accdb 564 kB · 5 downloads

شكرا لذوقك 

شرف ليا انى اضيف موضوع وسط اساتذتى

https://www.mediafire.com/file/pzr38qxqwg4e2a2/Ferry_Login_v1-_free.accdb/file

Ferry Login v1free.accdb

ابدعت استاذي @ابو جودي اثابكم الله

ابدعت استاذي @Moosak نفعكم الله

مسلسل.accdb

تقليل الحجم وتصليح اى  مشكلة او تلف داخل القاعدة لو فى تعديل ارجو الافاده 

على هدى فكرتك

ferrylaw.rar

يعطينى error فى تلك الجملة

Private Function GetContentLength(ByVal url As String) As Long
    Dim hInternet             As Long
    Dim hRequest              As Long
    Dim dwFileSize            As Long
    Dim dwLength              As Long
    Dim dwIndex               As Long

    dwLength = 4    ' DWORD 32 bit value buffer length.
    hInternet = InternetOpenW(0, 1, 0, 0, WININET_API_FLAG_SYNC)
    hRequest = InternetOpenUrlW(hInternet, StrPtr(url), 0, 0, 0, 0)

    If HttpQueryInfoW(hRequest, HTTP_QUERY_CONTENT_LENGTH Or HTTP_QUERY_FLAG_NUMBER, dwFileSize, dwLength, dwIndex) Then
        GetContentLength = dwFileSize
    Else
        GetContentLength = (-1)
    End If

    InternetCloseHandle hRequest
    InternetCloseHandle hInternet
End Function