تعديل كود الفورم

[euro_999]

السلام عليكم ورحمة الله وبركاتة

ارجو من الاخوان تعديل كود الفورم لكي يدخل المعلومات في كل مربع مخصصص له ..... وشكراً

Monthly.rar

[عبد الفتاح كيرة]

الكود بعد التعديل

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

[الـعيدروس]

السلام عليكم

مشكور استاذنا الفاضل كيماس على الاضافات

واضفت كمان بدل التكست بوكس

على حسب جدوله لاحظت العمود Transaction Type

قائمة منسدله فيها خيارين

فااضفت كومبكس وفيها الخيارين انشاء الله يكون افى بالغرض

اليك المرفق

بالنسبة للرفع للموقع مغلق عندي فرفعت الملف في موقع رفع اخر

http://www.2shared.com/document/nm8Bw7t1/Monthly-kemas-abood.html

تم تعديل مايو 21, 2011 بواسطه alidroos

[euro_999]

جزاكم الله خير وبارك فيكم على المساعده