طارق زكريا حسين جاه الرسول قام بنشر مايو 1, 2015 قام بنشر مايو 1, 2015 بسم الله الرحمن الرحيم بعد التحية المطلوب ان شاء الله 1- فى فورم التقارير اريد كود لزر الحذف بحيث عند اختيار عنصر من اللست بوكس يتم حذفه نهائيا ولكم جزيل الشكر والتقديرفواتير السنترال.rar
طارق زكريا حسين جاه الرسول قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 اريد كود الحذف هذا رابط المشاركة www.officena.net/ib/index.php?showtopic=61131&p=393850 لك كل الشكر والتقدير
طلعت محمد حسن قام بنشر مايو 2, 2015 قام بنشر مايو 2, 2015 السلام عليكم اخي الكريم طارق شاهد المرفق ان شاء الله يكون فيه طلبك. فواتير السنترال.rar
خزاني قام بنشر مايو 2, 2015 قام بنشر مايو 2, 2015 اخي طلعت محمد حسن كود يحذف عنصر من اللست بوكس فقط دون ان يحذفه نهائيا من ورقة العمل كود حذف عنصر من اللست بوكس فقط Me.ListFind.RemoveItem (Me.ListFind.ListIndex)
طارق زكريا حسين جاه الرسول قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 اخى المحترم طلعت محمد حسن بعد التحية ارجوا من سيادتكم ان يكون الحذف نهائيا من قاعدة البيانات ولكم جزيل الشكر
خزاني قام بنشر مايو 2, 2015 قام بنشر مايو 2, 2015 Private Sub ListFind_Click() Me.CommandButton5.Visible = IIf(Me.ListFind <> -1, True, False) End Sub Private Sub CommandButton5_Click() ActiveSheet.Unprotect (123) Application.ScreenUpdating = False Sheets("data").Rows(ListFind.ListIndex + 2).Delete ListFind.RemoveItem (ListFind.ListIndex) ListFind.List = Sheets("data").Range("A2:d500").Value Application.ScreenUpdating = True Me.CommandButton5.Visible = IIf(Me.ListFind <> -1, True, False) End Sub Private Sub UserForm_Initialize() ListFind.ColumnCount = 6 ListFind.List = Sheets("data").Range("A2:g500").Value End Sub
طارق زكريا حسين جاه الرسول قام بنشر مايو 2, 2015 الكاتب قام بنشر مايو 2, 2015 اخى العزيز خزاني ليس هو بالحل الصحيح لك جزيل الشكر
طارق زكريا حسين جاه الرسول قام بنشر مايو 3, 2015 الكاتب قام بنشر مايو 3, 2015 انا فى انتظاركم ان شاء الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.