แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - arampong

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

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

2
เรียนอาจารย์ข้อ 1.ผมเข้าใจละครับเรื่อง Funtion If
2.ได้แล้วครับผมสลับ strUserID กับ  strTxItem สลับ Text ครับ
3. ยังติดอยู่ครับว่าทำไมมันไม่ setfocus ให้

3
เรียนอาจารย์ทุกท่านรบกวนช่วยดู 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

4
ได้ละครับผม ตามอาจารย์เลยครับ

ขอบคุณมากๆเลยครับอาจารย์ :miao:

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

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

6
ทำได้แล้วครับ

   If CurrentRecord = Recordset.RecordCount And CurrentRecord <> 1 Then
    DoCmd.GoToRecord , "", acFirst
Else
   
    DoCmd.GoToRecord , "", acNext
   
End If


และถ้าหากเป็นปุ่มถอยหลังละครับ DoCmd.GoToRecord , , acPrevious  หากเป็น Record แรกจะให้ไป Record สุดท้ายทำยังไงครับ

ขอบคุณครับ

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


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

8
ขอบคุณอาจารย์ ปิ่นณรงค์ มากครับ

ขออภัยที่เข้ามาช้าครับ พอดีเข้าไปหาดูที่ Youtube ครับ ได้แนวคิดแบบนี้ครับ 


ตามอาจารย์แนะนำใกล้เคียงกว่า แต่ผมจะลองเอามาปรับใช้ตามอาจารย์ดูครับ เดี๋ยวลองแล้วยังไงจะแจ้งอาจารย์อีกทีครับ
ขอบคุณมากครับ

9
ขอบคุณครับอาจารย์

   คือทำแบบตัวอย่างที่2ของอาจารย์เลยครับ
แต่ตัวอย่างอาจารย์ให้มามันจะเก็บแค่รูปเดียวที่ฟิวpicture
พอดีผมไปดูข้อมูลมา มันจะมีเอกสารบางตัวที่มีมากกว่า 1 รูปครับ
ก็เคยจะสอบถามอาจารย์ ให้ช่วยแนะนำหน่อยครับว่าจะให้คลิกดูรูปทีละรูปยังไงครับหากว่า 1 Item มีหลายรูป
และพาท ที่เก็บจะเก็บแบบไหนดีครับ

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

10
ขอบคุณมากครับอาจารย์
       
      ตอนแรกกะจะคิดว่าให้เปิดกับโปรแกรมดูรูปข้องนอกเลย แต่ทำแบบอาจารย์น่าจะสะดวกกว่า
ขอสอบถามเพิ่มเติมครับ หากผมมีมากกว่า 1 รูปจะให้ดูทีละรูปจะทำยังไงครับ
คือประมาณว่า 1Item มีมากกว่า 1 รูป

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

11
เรียนอาจารย์
       ผมมีตาราง T1 ทีมี ฟิว ITEM=ใช้เก็บชื่อรูป และ Picture=เก็บพาทรูปภาพ ครับ 
       ที่ Form มี Text  ITEM และ Picture หากเรียกข้อมูล Item แล้วจะแสดง Picture ทันที
     
      คือพอแสดงแล้วผมอยากให้เปิดรูปภาพขึ้นมาเลยครับ จะต้องเขียน Code ยังไงครับ
      ปกติมันจะโชว์ Link แล้วต้องกดที่ Link ถึงจะเปิดให้ครับ
คือต้องการจะเปิดภาพ Auto ทันทีทีเรียกชื่อ Item ขึ้นมาถูกครับ

ขอบคุณครับ

12
ขอบคุณมากครับ
ใช้ได้ดีเลยครับ
ก่อนหน้าที่อาจารย์ จะตอบผมได้ทดลองใช้ Query Update
แล้วก็สร้างปุ่มขึ้นมา ให้ Run Query ที่สร้าง ก็ได้เช่นกันครับ
แต่จะติดที่มันจะมี popup แจ้งเตือนตลอดครับ
ใช้แบบคำแนะนำของอาจารย์ ดีที่สุดครับ

ขอบคุณครับ

13
เรียนอาจารย์

         ผมต้องการทำปุ่มCMD  เพื่อลบข้อมูลที่พิว F1 ลบทุกRecord คือลบเฉพาะพิวนี้นะครับ ที่ตาราง T1 จะเขียนคำสั่งยังไงครับ
เข้าใจว่าน่าจะเป็น SQL  Update หรือเปล่าครับ ลบกวนแนะนำด้วยครับ

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

14
ได้ตามที่ต้องการเลยครับ

ขอบคุณครับผม

15
สอบถามอาจารย์ครับ
ผมจะทำการเลือกข้อมูลจากตารางT1 ไปยัง T2 ดังรูปครับ
โดยมีเงื่อนไขว่า
ให้เอาชื่อที่ไม่ซ้ำกัน  หากซ้ำกันให้เอา ID ล่าสุดหรือ IDที่มากที่สุดครับ

ขอบคุณครับ



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

พอจะเข้าใจละครับ ใช้ตาราง Query แล้วอยากหาค่ามากที่สุด ที่ขึ้นต้นด้วยอะไรค่อยเอาไปแทน

ขอบคุณครับ

หน้า: [1] 2