نجوم المشاركات

تفضل في حال كانت القيمة رقمية "[TextBox1] = " & Me.TextBox في حال كانت القيمة تاريخ "[TextBox1] = #" & Me.TextBox & "#" في حال كانت القيمة نص "[TextBox1] Like '" & Me.TextBox &"' "

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

يمكن ولكن كيف اكثر من مستخدم ؟ لنفترض انا وانت نعمل على جهاز واحد ما ، ثم قمت انت بحفظ بيانات الدخول بحيث لما تدخل مرة اخرى للبرنامج تكون البيانات موجودة ولست بحاجة الى ادخالها من جديد لما ادخل انا سوف اجد بياناتك ظاهرة وسوف ادخل بحسابك

وعليكم السلام ورحمة الله تفضل التعديل DATA1041-5.rar

Sub Test() Dim s$ s = "D:\Programation\VISUAL STUDIO\Projectes\DATA.xls" MsgBox Split(s, "\")(UBound(Split(s, "\"))) End Sub

السلام عليكم في نموذج Frm_acc لا يوجد عنصر تحكم FatherOfAcc كذلك لا توجد فانكشن / وظيفة باسم aadd لذلك قم بالغاء السطر التالي Call aadd في نموذج Frm_h لا يوجد عنصر تحكم Text45 في نموذج Fb_center قم بالغاء السطر التالي Private Sub Cosave_Click() تجربه.rar تحياتي

بالخدمة استاذ وتفضل التعديل Database32-3.rar

Private Sub TextBox1_Change() Dim dFrom As Date, dTo As Date, lr As Long With ActiveSheet lr = .Range("B" & Rows.Count).End(xlUp).Row If TextBox1.Text <> "" Then .AutoFilterMode = False dFrom = .Range("F1").Value2 dTo = .Range("G1").Value2 With .Range("B2:Q" & lr) .AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr .AutoFilter 8, ">=" & CLng(dFrom), xlAnd, "<=" & CLng(dTo) End With Else .AutoFilterMode = False End If End With End Sub

حبيبي أخي العزيز ali mohamed ali أولاً: شكراً جزيلاً على إهتمام حضرتك شكراً على الملف المرفق جميل جداً تسلم إيدك بس هي الفكرة أني كنت عايزة طريقة لطباعة الصورة وهي معروضة فى الفورم بمعني عند البحث عن بيانات يستلزم ربطها بصورة ويوجد بيانات كثيرة لسهولة مراجهة المستند المرفق لقراءة ما بداخلة يستلزم حجم الصورة يكون كبير لذلك أريد طباعة الصورة المعروضة بعد البحث فى الفورة أسف للإطالة مرفق لحضرتك برنامج صادر ووارد لسة هكملة سيوضح لك ما أقصد حيث أنني أعمل بشركة مقاولات والخطابات بين الشركة والجهات الأخري كتيرة بعد أرشفة الخطابات فى مستندات فأحتاج الى خطاب معين لذلك كنت أريد أن أضيف صورة كبيرة توضح الخطاب طبعاً فى أساتذة أفاضل فى المنتدي قدمو برامج فى الصادر والوارد كثيرة وقيمة ولكن لايوجد بها إرفاق صورة للمستند بحثت كثيراً على كود يضاف الى زر يطبع الصورة المرفقة في الفورم وأخيراً توجهت الى أكبر منبر لأهل الخبرة فى المنتدي الغالي وأكرر شكري لحضرتك أستاذ ali mohamed ali وأنا سعيد لأني دي أول مشاركة لي فى المنتدي الصادر والوارد الخاص بشركة.rar

قم بما يلي: 1- file>>> Options<<< formulas 2- من الخانة Working with formulas ضع علامة صح على R1C1 reference style 3- Ok

بارك الله فيك أخي الكريم ولكن أعتقد أن وضع البرامج مفتوحة يكون أفضل