29-10-14, 12:06 AM
السلام عليم
ممكن تحويل هذا الكود الى دالة تستقبل اسم الخامة وحجمها واظهاره وتخرجلى قيم الخامة على تكس بوكس
Dim DB As Database
'Dim rs1 As Recordset
'
'Set DB = OpenDatabase("union2.2.mdb")
'
'Set rs1 = DB.OpenRecordset("SELECT quantity FROM Nami WHERE material_name = '" + Text2.Text + "'")
'Set rs2 = DB.OpenRecordset("SELECT quantity FROM Badi WHERE material_name = '" + Text2.Text + "'")
'Set rs3 = DB.OpenRecordset("SELECT quantity FROM Nahi WHERE material_name = '" + Text2.Text + "'")
'
'Do While Not rs1.EOF
'If rs1("quantity") <> "" Then
'Text1.Text = Val(Text1.Text) + Val(rs1("quantity"))
'End If
'rs1.MoveNext
'Loop
'
'
'Do While Not rs2.EOF
'If rs2("quantity") <> "" Then
'Text6.Text = Val(Text6.Text) + Val(rs2("quantity"))
'End If
'rs2.MoveNext
'Loop
'
'
'
'Do While Not rs3.EOF
'If rs3("quantity") <> "" Then
'Text7.Text = Val(Text7.Text) + Val(rs3("quantity"))
'End If
'rs3.MoveNext
'Loop
ارجوا الاهتمام
ممكن تحويل هذا الكود الى دالة تستقبل اسم الخامة وحجمها واظهاره وتخرجلى قيم الخامة على تكس بوكس
Dim DB As Database
'Dim rs1 As Recordset
'
'Set DB = OpenDatabase("union2.2.mdb")
'
'Set rs1 = DB.OpenRecordset("SELECT quantity FROM Nami WHERE material_name = '" + Text2.Text + "'")
'Set rs2 = DB.OpenRecordset("SELECT quantity FROM Badi WHERE material_name = '" + Text2.Text + "'")
'Set rs3 = DB.OpenRecordset("SELECT quantity FROM Nahi WHERE material_name = '" + Text2.Text + "'")
'
'Do While Not rs1.EOF
'If rs1("quantity") <> "" Then
'Text1.Text = Val(Text1.Text) + Val(rs1("quantity"))
'End If
'rs1.MoveNext
'Loop
'
'
'Do While Not rs2.EOF
'If rs2("quantity") <> "" Then
'Text6.Text = Val(Text6.Text) + Val(rs2("quantity"))
'End If
'rs2.MoveNext
'Loop
'
'
'
'Do While Not rs3.EOF
'If rs3("quantity") <> "" Then
'Text7.Text = Val(Text7.Text) + Val(rs3("quantity"))
'End If
'rs3.MoveNext
'Loop
ارجوا الاهتمام