فريدالطحان

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

خلى المعادلة IF(Q2=21; 1.75; IF(Q2=30; 2.5; 0)) / 100 *AB2

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

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

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

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

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

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

Gemini API.accdb

جرب تانى

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

شكرا لذوقك

شرف ليا انى اضيف موضوع وسط اساتذتى 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