ผมเขียนโปรแกรมทำนามบัตรตอนนี้ เพิ่มลบ ได้แล้ว
แต่ตอนนี้ติดโค้ดคำสั่งแก้ไข กับคำสั่งปริ้น
ตอนรัน พอแก้ไขข้อมูลแล้วกดปุ่มปุ่มแก้ไข มันก็ไม่แก้ไข มันไม่เปลี่อนอะไรเลย
ส่วนคำสั่งปริ้นยังทำไม่ได้ครับ คือผมจะปริ้นทั้งหน้าจอโปรแกรมออกมาเลย ต้องเขียนไงครับ
รบกวนท่านผู้รู้ช่วยทีครับ
__________________

__________________
Option Explicit
Dim Conn As New ADODB.Connection
Dim RC As New ADODB.Recordset
Dim SQL As String
Const strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"

Private Sub Command1_Click()

With RC
                        
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("code")
            Text3.Text = .Fields("nam")
            Text4.Text = .Fields("dep")
            Text5.Text = .Fields("etc")
            Text6.Text = .Fields("nampic")
            Text7.Text = .Fields("nameng")
            Text8.Text = .Fields("blood")
           
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With

End Sub

Private Sub Command10_Click() 'update
With RC
.Fields("id").Update
End With
End Sub

Private Sub Command2_Click()
With RC
            .MovePrevious
            If .BOF = True Then .MoveLast
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("code")
            Text3.Text = .Fields("nam")
            Text4.Text = .Fields("dep")
            Text5.Text = .Fields("etc")
            Text6.Text = .Fields("nampic")
            Text7.Text = .Fields("nameng")
            Text8.Text = .Fields("blood")
            
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With
End Sub

Private Sub Command3_Click()
With RC
            .MoveNext
            If .Fields("id") = "" Then
            MsgBox ("X")
            End If
            If .EOF = True Then .MoveFirst
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("code")
            Text3.Text = .Fields("nam")
            Text4.Text = .Fields("dep")
            Text5.Text = .Fields("etc")
            Text6.Text = .Fields("nampic")
            Text7.Text = .Fields("nameng")
            Text8.Text = .Fields("blood")
         
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With
End Sub

Private Sub Command4_Click()
With RC
            .MoveLast
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("code")
            Text3.Text = .Fields("nam")
            Text4.Text = .Fields("dep")
            Text5.Text = .Fields("etc")
            Text6.Text = .Fields("nampic")
            Text7.Text = .Fields("nameng")
            Text8.Text = .Fields("blood")
            
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With

End Sub

Private Sub Command5_Click() 'Save new data
With RC

        .AddNew
            .Fields("code") = Text2.Text
            .Fields("nam") = Text3.Text
            .Fields("dep") = Text4.Text
            .Fields("etc") = Text5.Text
            .Fields("nampic") = Text6.Text
            .Fields("nameng") = Text7.Text
            
            .Fields("blood") = Text8.Text
                               
        .Update
        MsgBox "Done", vbInformation, "New data"
End With

Call Form_Load
End Sub

Private Sub Command6_Click() 'delete
With RC
        Dim snam As String
        snam = .Fields("nam")
        .Delete
        .Requery
        MsgBox "Delete complese"
End With

Call Form_Load

End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click() 'clear
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text8.Text = ""
            
End Sub

Private Sub Command9_Click() 'edit
       
    With RC
            .Fields("code") = Text2.Text
            .Fields("nam") = Text3.Text
            .Fields("dep") = Text4.Text
            .Fields("etc") = Text5.Text
            .Fields("nampic") = Text6.Text
            .Fields("nameng") = Text7.Text
            .Fields("blood") = Text8.Text
            
             MsgBox "Edit Done"
End With

Call Form_Load

End Sub

Private Sub Form_Load()
' open database
With Conn
        If .State = 1 Then .Close
        .ConnectionString = strConn & ";Data Source=" & App.Path & "\db\customer.mdb"
        .Open
End With

'Open dataguid
With RC
        SQL = "SELECT * FROM myCustomer  ORDER BY id ASC"
        If .State = 1 Then .Close
        .CursorLocation = 3
        .Open SQL, Conn, 2, 3
        
        Label6.Caption = "All Customer " & .RecordCount & " Man "
        If .RecordCount <> 0 Then
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("code")
            Text3.Text = .Fields("nam")
            Text4.Text = .Fields("dep")
            Text5.Text = .Fields("etc")
            Text6.Text = .Fields("nampic")
            Text7.Text = .Fields("nameng")
            Text8.Text = .Fields("blood")
         
                        
            
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
        End If
        
With Adodc1
        .ConnectionString = strConn & ";Data Source=" & App.Path & "\db\customer.mdb"
        .RecordSource = SQL
        .Refresh
End With

End With


End Sub