ابو ياسين المشولي

لازم تحمل اكسس 2016

واذا كان يساوي success_limit يطلع الناتج صفر شوف هذا اتمنى يكون طلبك استعلام.mdb

هل هذا ما تريده استعلام.mdb

ابو عبدلله بصراحه لم الفهم ممكن توضح اكثر

يعني رقم واحد مش عايزة يظهر

اخي الكريم نرجو انت تختار عنوان مناسب بعد اذن الادارة شوف ملفك وشوف نموذج بحث2 تم عمل المطلوب حوسبة العمل الاداري .rar

اتفضل هل هذا ماتقصده D: Nz(DSum("degree";"season_c";" course_id=" & [cors_id]))+Nz(DSum("degree";"season_b";" course_id=" & [cors_id]))+Nz(DSum("degree";"season_a";"course_id=" & [cors_id]);"0") لم افهم ما المقصود بي لا تساوي success_limit استعلام بشرط.rar

me.r=me.a*me.b حيث ار هو حقل خمسه واي حقل ثلاثه وبي هو حقل 4

ارفق مثال مع شرح المطلوب

طلبك تجده هنا

جرب هذا شوف استعلام q2 استعلام بشرط.rar

سلمت يمناك اخي jjafferr

تسلم اخيjjafferr كيف بايكون لهذا الكود INSERT INTO Data4 ( rakm, name, daftar, nofatora, [user], [date], sar, madfoa, taslim, datew, bage, kasm, tob, taslim2, date2, komash, quntt, komash1, quntt1, komash2, quntt2, komash3, quntt3, komash4, quntt4, komash5, quntt5, komash6, quntt6, komash7, quntt7, molhda, oakt, goal, الطول, الكتف, [طول اليد], الرقبة, الوسع, [وسع اليد], [وسع اليد1], [وسع اليد 2], [طقطق مع زر], [الوسع الاسفل], [كفه اسفل], حشوه, جيبزور, يد, جيب, [رقبة قلاب], [رقبة سادة], خياطه, [جيب جوال], [الثوب كامل دقتين], تطريز, زرار, ملاحظات, ملون, astalim, notaslem, astalim2, date3, kiyat, date4, x1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, نص1, نص2, نص3, نص4, نص5, نص6, نص7, نص8, نص9, نص10, نص11, نص12, نص13, نص14, نص15, نص16, نص17, sora, date5, رقم_القماش, رقم_القماش1, رقم_القماش2, رقم_القماش3, رقم_القماش4, رقم_القماش5, رقم_القماش6, رقم_القماش7, daraba ) SELECT Data.rakm, Data.name, Data.daftar, Data.nofatora, Data.User, Data.Date, Data.sar, Data.madfoa, Data.taslim, Data.datew, Data.bage, Data.kasm, Data.tob, Data.taslim2, Data.date2, Data.komash, Data.quntt, Data.komash1, Data.quntt1, Data.komash2, Data.quntt2, Data.komash3, Data.quntt3, Data.komash4, Data.quntt4, Data.komash5, Data.quntt5, Data.komash6, Data.quntt6, Data.komash7, Data.quntt7, Data.molhda, Data.oakt, Data.goal, Data.الطول, Data.الكتف, Data.[طول اليد], Data.الرقبة, Data.الوسع, Data.[وسع اليد], Data.[وسع اليد1], Data.[وسع اليد 2], Data.[طقطق مع زر], Data.[الوسع الاسفل], Data.[كفه اسفل], Data.حشوه, Data.جيبزور, Data.يد, Data.جيب, Data.[رقبة قلاب], Data.[رقبة سادة], Data.خياطه, Data.[جيب جوال], Data.[الثوب كامل دقتين], Data.تطريز, Data.زرار, Data.ملاحظات, Data.ملون, Data.astalim, Data.notaslem, Data.astalim2, Data.date3, Data.kiyat, Data.date4, Data.x1, Data.[1], Data.[2], Data.[3], Data.[4], Data.[5], Data.[6], Data.[7], Data.[8], Data.[9], Data.[10], Data.[11], Data.[12], Data.[13], Data.[1 ], Data.[15], Data.[16], Data.[17], Data.[18], Data.[19], Data.[20], Data.[21], Data.[22], Data.[23], Data.[24], Data.[25], Data.[26], Data.[27], Data.[28], Data.[29], Data.[30], Data.[31], Data.[32], Data.[33], Data.[34], Data.[35], Data.[36], Data.[37], Data.[38], Data.[39], Data.[40], Data.[41], Data.[42], Data.[43], Data.[44], Data.[45], Data.[46], Data.[47], Data.[48], Data.[49], Data.[50], Data.[51], Data.[52], Data.[53], Data.[54], Data.[55], Data.[56], Data.[57], Data.نص1, Data.نص2, Data.نص3, Data.نص4, Data.نص5, Data.نص6, Data.نص7, Data.نص8, Data.نص9, Data.نص10, Data.نص11, Data.نص12, Data.نص13, Data.نص14, Data.نص15, Data.نص16, Data.نص17, Data.sora, Data.date5, Data.رقم_القماش, Data.رقم_القماش1, Data.رقم_القماش2, Data.رقم_القماش3, Data.رقم_القماش4, Data.رقم_القماش5, Data.رقم_القماش6, Data.رقم_القماش7, Data.daraba from Data WHERE (((Data.nofatora)=[Forms]![DATA]![رقم الفاتورة2]));

العفوووو

اتفضل On Error Resume Next If Me.txt < 0 And Me.fb = False Then Me.txt = Null Else Me.txt = Me.txt End If

هذا ملفك كما ارسلته 2007 للاسف لا استطيع تحويله شوف الصوره ارسلت لك ملفك كما ارسلته 2007 2222.accdb

للاسف لم يتحول معي الى 2003 انا عندي 2010 على العموم عملت هذا الكود في حدث قبل نقص الكميه If Me.txt < 0 And Me.fb = False Then MsgBox "عفوا غير مسموح بالسالب" Undo Exit Sub End If وغيرت اسم الاختيار الى هذا fb وفي حدث بعد التحديث في الاختيار هذا الكود On Error Resume Next Dim intinput As Integer intinput = InputBoxDK("فضلاً ادخل الرقم السري لتمكين التعديل السجلات", "دخول") If intinput = 123 Then Me.fb = True MsgBox "تم تمكين تعديل " Else MsgBox "تم منع التعديل " Me.fb = False End If وعملت مدويل جديد كي يطلع الرمز نجوم هذا المدويل Option Compare Database Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias _ "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long '~~> Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) '~~> Class name of the Inputbox If Left$(strClassName, RetVal) = "#32770" Then '~~> This changes the edit control so that it display the password character *. '~~> You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If '~~> This line will ensure that any other hooks that may be in place are '~~> called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook End Function 2222.accdb

اتفضل اذا طلع المطلوب دعوة طيبه بظهر الغيب 2222.rar

اذا انت تريد تطبيق فعليك ارفاق المثل

هذا ما تم عمله تعديل في الكود فاصبح هكذا وتعديل في تصميم الحقول اللي في الصورة Set db = CurrentDb Set Td = db.TableDefs(Me.ChooseTble) Me.ChooseField.RowSource = "" Me.ChooseField.AddItem ("اسماء الحقول") For Each fld In Td.Fields On Error Resume Next sCaption = fld.Properties("Caption") If fld.Type = 4 And fld.Attributes = 17 Then Me.ChooseField.AddItem fld.Name & ";" & sCaption Else Me.ChooseField.AddItem fld.Name & ";" & sCaption End If Next

بعد اذن اخي jjafferr اظن اني فهمت الاخ زياد الحسناوي اتفضل شوف اظن انه طلبك حسب ما فهمت وهذا مع عنوان العمود final.rar

بعد اذن اخي jjafferr اظن اني فهمت الاخ زياد الحسناوي اتفضل شوف اظن انه طلبك حسب ما فهمت اكسل.rar وهذا بالطريقه الاخرى final.rar

merg two table.rar

جميل جدا اخي Elsayed Bn Gemy ولكن لدي ملاحظه هلا بالامكان تعديل الكود حيث نعهله ياخذ من المجلد ماهو صور فقط اي بصيغه جميع الصور فقط وليس جميع محتويات المجلد وكذلك هل ممكن هل توجد طريقه لنقل الى مجلد اخر مع الترقيم حسب ترقيم الصور

جرب هذا في حدث قبل التحديث If Me.txt1 < 0 Then MsgBox "عفوا غير مسموح بالسالب" Undo Exit Sub End If اسم الحقل هو Me.txt1