euro_999 قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 السلام عليكم ورحمة الله وبركاتة ارجو من الاخوان تعديل كود الفورم لكي يدخل المعلومات في كل مربع مخصصص له ..... وشكراً Monthly.rar
عبد الفتاح كيرة قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 (معدل) الكود بعد التعديل Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = Worksheets("Penalty") 'find first empty row in database iRow = ws.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row 'check for a part number If Trim(Me.txtDate.Value) = "" Or Trim(Me.txtBadge.Value) = "" Then Me.txtDate.SetFocus MsgBox "Please enter a number and badge" Exit Sub End If 'copy the data to the database ws.Cells(iRow, 2).Value = Me.txtDate.Value ws.Cells(iRow, 3).Value = Me.txtBadge.Value ws.Cells(iRow, 4).Value = Me.txtBank.Value ws.Cells(iRow, 5).Value = Me.txtTransactionType.Value ws.Cells(iRow, 6).Value = Me.txtAmountSR.Value ws.Cells(iRow, 7).Value = Me.txtRemarks.Value 'clear the data Me.txtDate.Value = "" Me.txtBadge.Value = "" Me.txtBank.Value = "" Me.txtTransactionType.Value = "" Me.txtAmountSR.Value = "" Me.txtRemarks.Value = "" Me.txtDate.SetFocus End Sub Monthly-kemas.rar تم تعديل مايو 21, 2011 بواسطه kemas
الـعيدروس قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 (معدل) السلام عليكم مشكور استاذنا الفاضل كيماس على الاضافات واضفت كمان بدل التكست بوكس على حسب جدوله لاحظت العمود Transaction Type قائمة منسدله فيها خيارين فااضفت كومبكس وفيها الخيارين انشاء الله يكون افى بالغرض اليك المرفق بالنسبة للرفع للموقع مغلق عندي فرفعت الملف في موقع رفع اخر http://www.2shared.com/document/nm8Bw7t1/Monthly-kemas-abood.html تم تعديل مايو 21, 2011 بواسطه alidroos
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.