محمد احمد لطفى

هل هذا ما تريد

واذا كنت تريد ان يكون حقل  الاجراء ما يكون فاضي 

ضع  فى الحقل الاجراء

Not Is Null
مثال.rar

تفضل 

 
SavedPath = """" & CurrentProject.Path & "\Public_Library\" & Me.Book_Name & "\r.pdf" & """" SavedPath = CurrentProject.Path & "\Public_Library\" & Me.Book_Name & "\r.pdf"  

تفضل بالتوفيق

 
Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer) Dim carType As String carType = Me![نوع المنتج].Value ' التحقق من النوع المدخل باستخدام Select Case Select Case carType Case "تويوتا", "جيب", "نيسان", "هونداي" ' النوع المدخل صحيح، لا شيء يحتاج إلى فعله Case Else MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال" Cancel = True ' إلغاء التحديث End Select End Sub

أو
 
Private Sub نوع_المنتج_BeforeUpdate(Cancel As Integer) Select Case Me![نوع المنتج].Value Case "تويوتا", "جيب", "نيسان", "هونداي" ' النوع صحيح Case Else MsgBox "النوع المدخل غير صحيح. يرجى إدخال أحد الأنواع التالية: تويوتا، جيب، نيسان، هونداي.", vbExclamation, "خطأ في الإدخال" Cancel = True End Select End Sub
ينصح بتغيير اسم الحقول الى الانجليزية

تفضل بالتوفيق عن طريق التنسيق الشرطى 

 
test13102024.rar

غير 

 
Dim i, ii As Integer الى 

 
Dim i As Long, ii As Long استبدلت المتغيرين i و ii بنوع Long للتعامل مع أرقام أكبر من 4 خانات.

الخطأ "Run-time error 6" يتعلق بتجاوز الحد الأقصى لنوع البيانات Integer.

أن شاء الله هو الحل بالتوفيق

تفضل بالتوفيق 

 
DoCmd.SetWarnings False 'On Error GoTo errhld: Dim Arr() As String Dim i As Long Arr = Split(Str) FnSearch = "عدم وجود المطلوب" ' القيمة الافتراضية إذا لم يتم العثور على شيء For i = 0 To UBound(Arr) If i + 8 <= UBound(Arr) Then If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & " " & Trim(Arr(i + 3)) & " " & Trim(Arr(i + 4)) & " " & Trim(Arr(i + 5)) & " " & Trim(Arr(i + 6)) & " " & Trim(Arr(i + 7)) & " " & Trim(Arr(i + 8)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & " " & Trim(Arr(i + 3)) & " " & Trim(Arr(i + 4)) & "'") Exit For End If End If If i + 3 <= UBound(Arr) Then If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & " " & Trim(Arr(i + 3)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & " " & Trim(Arr(i + 3)) & "'") Exit For End If End If If i + 2 <= UBound(Arr) Then If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & " " & Trim(Arr(i + 2)) & "'") Exit For End If End If If i + 1 <= UBound(Arr) Then If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & "'") Exit For End If End If If i <= UBound(Arr) Then If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & "'") Exit For End If End If Next i errhld = Nz(DLookup("KindX", "TableX", "[NameX] Like '" & SetName & "'"), "غير مسجل")  

تفضل هل هذا ما تقصد 
 
Dim qdf As DAO.QueryDef Dim fld As DAO.Field Dim fieldName As String Dim fieldExists As Boolean fieldName = "b0" On Error Resume Next Set qdf = CurrentDb.QueryDefs("QForExport") On Error GoTo 0 If qdf Is Nothing Then MsgBox "The query QForExport does not exist." Exit Sub End If For Each fld In qdf.Fields If fld.Name = fieldName Then fieldExists = True Exit For End If Next fld If fieldExists Then MsgBox "The field (" & fieldName & ") exists." Else Beep MsgBox "The field (" & fieldName & ") does not exist." End If و قد يختلف الأمر اذا كان الاستعلام يحتوى على أكثر من جدول به نفس اسم الجقل كما أشار أستاذى أبو خليل
TTTEst.mdb

تفضل 

قمت بالتنفيذ فى حقل name1  نفذ نفس الفكرة فى باقى الحقول
بالتوفيق

 
تلوين النصوص الفارغة.mdb

تفضل هل هذا ما تريد بالتوفيق
 
جديد.accdb

تفضل هل هذا ما تريد 

 
INSERT INTO tbmor ( [or] ) SELECT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr; mor.accdb

تفضل اذا كان هناك مشكلة ارفق مثال
Color.mdb

تفضل 

 
qtest-1.accdb

تفضل بالتوفيق 
استعلام تحديث
UPDATE tbbook SET mookname = Trim(Left([mookname], InStr(1, [mookname], "/") - 1)) WHERE InStr(1, [mookname], "/") > 0; تشغيله من نموذج
 
DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbbook SET mookname = Trim(Left([mookname],InStr(1,[mookname],""/"")-1)) " & vbCrLf & _ "WHERE InStr(1,[mookname],""/"")>0;" DoCmd.SetWarnings True library.accdb

تفضل 
وأنصحك بالابتعاد عن تسمية رؤوس العواميد بالعربى

 
IIf([نوع الحركة]="سند قبض مورد";[نوع الحركة];0) سند.mdb

تفضل بالتوفيق 
 
Dim strSQL As String ' Replace "YourTableName" with the actual name of your table strSQL = "DELETE FROM TBmast WHERE idmast Mod 2 = 0;" CurrentDb.Execute strSQL MsgBox "تم حذف السجلات ذات الرقم الزوجي بنجاح.", vbInformation Me.Requery  
 
mast.accdb

تفضل وجدت هذا الامر بالتوفيق
 
Second.accdb

تفضل 

 
999.accdb

تفضل 

و اذا كانت الاجابة صحيحة اختار افضل اجابة لغلق الموضوع 
جدول.accdb استعلام.accdb

اسف تفضل

 
Word (1) (1).accdb

ضيف فى الكود الاول 
On Error Resume Next

بعد اذن أستاذى @Foksh

يجب شرح ما تريد بالضبط  
Database11 (1).accdb

تفضل بالتوفيق

 غير التنسيق زى ما حضرتك عاوز


 
yyyymmdd.accdb

استاذى @kanory

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

1 - تم تحديث النشاط مباشرة بدالة FnSearch بعد أن تم تغييرها الى likeA و ليس likeB اى ما سيتم نقله هو likeA . 

2 - تم مسح النشاط من حقل namex
                    
Replace([TableX].[NameX],[LikeA],"""");" 3 - تم تحديث النشاط  الى LikeB

اذا كان هناك شيىء خاطىء أو لم انتبه اليه يرجى اعلامى 


                                                                                                           وجزاكم الله كل خير  

قد لمعت عيناه
 
Replace&add Final.mdb

تفضل

هل هذا ما تريد

 
55.accdb

ده بالنسبة للموبايل 
 
If DLookup("[mobile]", "[settings_general_tbl]", "-1") Then else End If If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then else End If

غير موبايل باى حقل تانى و اكتبى الشروط الى حضرتك عاوزها هل هذا هو المطلوب