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

سيكون الكود بهذا الشكل #If VBA7 Then Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As LongPtr Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As LongPtr #ElseIf Win64 Then Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As LongPtr Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As LongPtr #Else '32-bit Office Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long #End If

للرفع

بالتوفيق اخي بارك الله فيك الحمد لله انه طلع المطلوب

اتفضل وهذا عربي تم استخدام هذا الكود Option Compare Database 'Option Explicit Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub Command2_Click() On Error Resume Next DoCmd.SetWarnings False LoadKeyboardLayout "00000401", 1 retry: TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه") If TempVars!xv = "" Then If MsgBox(" يـجـب ادخـال رقـم الـتـلـفـون ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10) End If DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));" DoCmd.SetWarnings True Me.Text0 = "" End Sub test36 (1).accdb

ارفق مثالك وسوف نساعدك

اخي اعمل تقرير ثم ضع الشرط عند الرقم التسلسلي الشرط بيكون يساوي اسم النموذج وحقل الرقم التسلسلي

اتفضل هذا طلبك الاول اعاده طلب ادخال الرقم وطلبك الاخير الاثنين معا دعوه صالحه تكفي abo yaseen.accdb

اتفضل في حدث الكميه بعد التحديث وعند البع بيكون بالعكس بدل + بيكون - DoCmd.RunSQL "UPDATE الأصناف SET الأصناف.الكمية = الكمية+[forms]![الأصناف]![الكمية] " & vbCrLf & _ "WHERE (((الأصناف.المعرف)=[forms]![الأصناف]![المعرف]));" Me.الكمية = Me.الكمية * ("1000")

ممتاز اخي شيفان بارك الله فيك وجعله في ميزان حسناتك

اظن انه كما طلب جزاك الله الف خير اخي شيفان

الله حاولت فيه ما طلعت بنتيجه اذا وجد لك حل مش حنبخل عليك ممكن احد الاخوه يفيدك

العفوووو اخي الكريم بالتوفيق

خرج اللي في دماغك اولأ هههههههههههههه

عند الضغط على تعديل زرالاغلاق.Enabled = false وعند الضغط على حفظ زرالاغلاق.Enabled = True

ارفق مثال وابشر

امين يارب ولك بالمثل بارك الله فيك نحن في الخدمه بما نستطيع

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

لانه يحمي جميع الكودات وعندما تقول بعمل accde لن تستطيع ان تنفذه اذا وجد كود خاطي

اتفضل On Error GoTo Err_أمر24_Click If MsgBox(" هل انت متأكد ؟", _ vbCritical + vbYesNo, _ "تنبيه") = vbNo Then Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.البرنامج.SetFocus End If Exit_أمر24_Click: Exit Sub Err_أمر24_Click: MsgBox Err.Description Resume Exit_أمر24_Click

الله يسامحك كان من اول كنا سوينها لكن اول كان كلامك غير والان غير اتفضل احذف الكود الاول كامل اللي هو في طباعه التقرير واستبدله بهذا واخبرتني بالنتيجه عملت لك كود ولا اروع نفس كود البحث او في الاحرى هو نفسه اللي في البحث On Error Resume Next Dim aboyaseen As String Dim varFilter As Variant varFilter = Null If Not IsNull(Me.n1) Then varFilter = "[ItemName] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If ' كود البحث بين تاريخين If Not IsNull(Me.Date1) Or IsNull(Me.Date2) Then aboyaseen = (varFilter + " AND ") & "[datemod] Between [Forms]![Sersh_F]![Date1] And [Forms]![Sersh_F]![Date2]" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If If Not IsNull(Me.k1) Then varFilter = "[ItemName] LIKE '*" & [Forms]![Sersh_F]![n1] & "*'" DoCmd.OpenReport "Sersh_rpt", acViewReport, , aboyaseen End If With Me.Items_Sub.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

اتفضل DoCmd.OpenReport "Sersh_rpt", acViewReport, , Left(Nz([datemod], 0), 50) & "[datemod] Between date1 And date2"

جرب شغله كما قلت لك وشوف النتيجه

تشغيل برنامج الاكسس في اي مجلد ، وبدون رسائل الأمان

اتفضل If IsNull(Me.QSold) Then Me.Refresh ElseIf IsNull(Me.itemName) Then MsgBox " الحقل فاضي" Me.QSold = "" ElseIf [QSold] >= [QAvilable] Then MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If

هذا طلبك حسب المرفق If IsNull(Me.QSold) Then Me.Refresh ElseIf [QSold] >= [QAvilable] Then MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If