ช่วยด้วยคับ ผมเจอปัญหา
คือผมกำลังเขียนโปรแกรมร้านเช่าหนังสือการ์ตูนเป็น โปรเจ็คตอนจบปีสามอะคับ แล้วไปเจอปัญหาเกี่ยวกับตาราง การสร้าง สีผมมืดแปดด้านแล้วคับ
นี่คือ Code ที่เขียนใน frmRent เป็น Form ที่เกี่ยวกับการเช่า - คืนหนังสือ ปัญหาที่พบเจอก็คือ จะมีปุ่ม ๆ นึงคลิ๊กเข้าไปก็จะเปิดหน้าต่าง เล็ก ๆ ออกมาแล้วพิมพ์ชื่อก็จะ Search หาชื่อที่อยู่ อัตโนมัตินี่คือ Code ใน textbox นะคับเด่วผมจะให้รูปประกอบด้วยคับ
Private Sub txtSearch_KeyPress(KeyAscii As Integer) Dim sqlMember As String
If KeyAscii = 13 Then If txtSearch.Text = "" Then Exit Sub sqlMember = "SELECT Member.MemberID, Member.FullName, " sqlMember = sqlMember & " Member.Address,Member.IDCard, " sqlMember = sqlMember & " Member.Telephone, Member.IsExpired," sqlMember = sqlMember & " Member.CurrentBookToRent, Member.BranchID," sqlMember = sqlMember & " MemberType.*" sqlMember = sqlMember & " FROM Member, MemberType" sqlMember = sqlMember & " WHERE (Member.MemberTypeID = MemberType.MemberTypeID)" sqlMember = sqlMember & " AND (Member.FullName LIKE '%" & txtSearch.Text & "%')" sqlMember = sqlMember & " AND (Member.BranchID='" & dcbBranch.BoundText & "')" sqlMember = sqlMember & " ORDER BY Member.MemberID" With rsHideMember If .State = adStateOpen Then .Close .ActiveConnection = Conn .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Open sqlMember If .RecordCount <> 0 Then Set mfgMemberList.DataSource = rsHideMember Else Dim i As Integer With mfgMemberList For i = 1 To .Rows - 2 If .Rows > 2 Then .Rows = .Rows - 1 End If .Clear Next End With End If End With OrderMemberList '<<<<< ตรงนี้รันผ่านคับ แต่ MFGRowColor ข้างล่างอะคับเกิด Debug' MFGRowColor mfgMemberList, 195, 255, 117 End If End Sub
|