เรียนอาจารย์และสมาชิกทุกท่านครับ
     
     ผมอยากได้ Code ที่สั่งปิดโปรแกรม PowerPoint ที่เปิดอยู่ครับ
คือผมไอ้ Code ที่เปิดโปรแกรม PowerPoint คือ


Function OpenPPT(sFile As String, Optional bRunAsSlideShow As Boolean)
Dim oPPT As Object
On Error Resume Next
Set oPPT = GetObject(, "PowerPoint.Application")
If err.Number <> 0 Then
err.Clear
Set oPPT = CreateObject("PowerPoint.Application")
End If
On Error GoTo Error_Handler
oPPT.Visible = True
oPPT.Presentations.Open (sFile)
If bRunAsSlideShow Then oPPT.ActivePresentation.SlideShowSettings.Run
Error_Handler_Exit:
On Error Resume Next
Set oPPT = Nothing
Exit Function
Error_Handler:
MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
"Error Number: " & err.Number & vbCrLf & _
"Error Source: OpenPPT" & vbCrLf & _
"Error Description: " & err.Description, _
vbCritical, "An Error has Occured!"
Resume Error_Handler_Exit
End Function


 '***************************************************************
 ' ที่ปุ่มคำสั่ง

Private Sub Command13_Click()
        Call OpenPPT("D:\Program\file1.ppsx", True)
End Sub


แล้วถ้าจะสั่งให้ปิดละครับ ต้องเขียนยังไงครับ
ขอบคุณครับ

ขอบคุณครับ

ขอบคุณทั้ง 2 ท่านครับ

ขอสอบถามครับการโยนค่า Checkbox ข้าม Form ครับ
คือ ผมมีForm ชื่อ Frm1,Frm2  โดยที่
Frm1 รับค่าที่ Text1
สมมุติครับถ้าค่า Text1 = "QM" ถ้าใช่
ให้ Frm2 ที่ Checkbox1 = True จะเขียนแบบไหนครับ
ขอบคุณครับ

เรียนอาจารย์ และสมาชิก
 ผมจะลองทำบัญชีรายรับรายจ่าย ในครอบครัวดู พอจะมีตัวอย่าง Access ให้ศึกษาหรือไม่ครับ
หากมีรบกวนแบ่งปันผมหน่อยครับ

ด้วยความกรณาอย่างสูงครับ ขอบคุณครับ

เรียนอาจารย์ทุกท่านรบกวนช่วยดู Code ให้หน่อยครับว่าผมผิดตรงส่วนไหนครับ

คือ 1.ผมเขียน If เพื่อเช็คค่า TXUserID ถ้าเป้นคาว่างให้แจ้งเตือนแล้วปิดเปิด form ใหม่
    2.ถ้าไม่ใช่ค่าว่าง ให้เช็คค่า TxItem  ว่าในฐานข้อมูลมีค่าหรือเปล่า คือ strSQL>0   ให้ทำงาน
    3.ถ้า strSQL <0 ให้เคลียค่า TxItem แล้วให้ setfocus ที่TxItem

ที่ติดตอนนี้คือครับ 1.ผมมี If 2 จุดแต่โปรแกรมทำไมให้ปิด End If จุดเดียวครับ
                      2.ค่า TXUserID เป็นค่าว่างแต่ทำไมไปทำงานตรงส่วน TxItem ได้ครับทั้งที่เช็คค่าว่างแล้ว
                      3.ค่า Else สุดท้าย TxItem.Value = Null ทำงานได้แต่ TxItem.SetFocus ทำไม Cursor ไปวิ่งไปที่กำหนดครับ

    ขอขอบคุณอาจารย์ไว้ล่วงหน้าครับ       
     

จากที่ผมเขียนครับ cODE ได้ตามนี้ครับ


Private Sub TxITEM_AfterUpdate()


Dim dbb As DAO.Database 'ÊÓËÃѺà¡çº Log
Dim rss As DAO.Recordset  'ÊÓËÃѺà¡çº Log
Dim strSQL As String
Dim strUserID As String
Dim strTxItem As String

On Error Resume Next

strTxItem = TxItem.Value
strUserID = TXUserID.Value

strSQL = DCount("Item", "QrItem")
Set dbb = CurrentDb
   
  If strTxItem = "" Then
            MsgBox "¡ÃسÒãÊè¼Ùéãªé§Ò¹¡è͹·Ø¡¤ÃÑ駤ÃѺ", vbOKOnly, "Warning!"
            DoCmd.Close acForm, Me.Name
            DoCmd.OpenForm "frmQR_T1" 
           
     ElseIf strSQL > 0 Then
                 
             Set dbb = CurrentDb
             Set rss = db.OpenRecordset("LogUser", dbOpenDynaset) 'ºÑ¹·Ö¡ Log ¡ÒÃãªé§Ò¹Å§ã¹µÒÃÒ§
             rss.AddNew
             rss!UserID = strUserID ' ºÑ¹·Ö¡ Item User
             rss!ITEM = strTxItem 'ºÑ¹·Ö¡ Item
             rss!Login = Now() 'ºÑ¹·Ö¡·Ñé§ Çѹ·Õè áÅÐàÇÅһѨ¨ØºÑ¹
            rss.Update
            rss.Close: Set rss = Nothing
            dbb.Close: Set dbb = Nothing
            Me.Requery
            Command9.SetFocus
           
           
    Else
                             
            MsgBox "Item ¹ÕéäÁèÁÕã¹ÃкºËÃ×ÍÂѧäÁèä´éà¾ÔèÁà¢éÒä»ã¹Ãкº", vbOKOnly, "Warning!"
            TxItem.Value = Null
            TxItem.SetFocus
     
      End If
     'End If   
End Sub

ขอบคุณครับ
อาจารย์ครับ หมายถึงเงื่อนไขที่ใช้เช็คครับ         
ว่าถ้าเป็น Record แรกแล้ว กดต่อไป ค่อยให้ไป  docmd.GoToRecord,,acLast
ผมไม่รู้จะเขียนเช็คยังไงครับ

ขอบคุณอีกครั้งครับ

ขอบคุณอาจารย์อีกครั้งครับ
   
ผมได้ทำตามตัวอย่างอาจารย์ครับ เพราะดูจากรูปผมแล้วเยอะพอสมควรครับ
อยากถามอาจากเพิ่มเติมครับ 
เรื่อง DoCmd.GoToRecord , , acNext 
ปุ่ม Next Record นี่เราจะเขียนให้มันวนได้หรือไม่ครับกรณีที่ พอไปที่ Record สุดท้ายแล้ว
ให้วนมาที่ Record แรกใหม่ครับ
คืองงตรงจะเช็คยังไงว่าถึง Record สุดท้ายแล้วให้ไป Record แรก


ขอบคุณมากครับ