แสดงกระทู้

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 - PNR

หน้า: 1 ... 13 14 15 [16] 17 18 19 ... 32
271
คือเราสร้าง จุดของตัวเอง ใน google map แล้วดึงมาลงบนฟรอม ให้แสดงไว้ดูเฉย
อยากจะเอา google map นั้นไปไว้ใน report

อาจจะใช้การ Snapshot  หรือ Print Screen ไปแสดงในรายงาน หรือ อาจจะใช้วิธีอื่นๆ ต้องดูก่อนว่าสร้างฟอร์มไว้แบบไหน
ถ้ามีตัวอย่างที่ทำไว้แล้ว สามารถเพิ่มเติมไปแสดงในรายงานให้ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

272
ซ้ำซ้อนแน่นอนครับ คุณต้องกำหนดว่าจะนำเข้าข้อมูลอย่างไรครับ
มันสามารถกำหนดได้ครับ เช่นถ้ามี ID ที่เป็น PK  อยู่แล้ว ก็ไม่ต้อง Append เข้าไปครับ


โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

273
ใช้ Append Query ได้ครับ โดยเลือกตารางที่ต้องการ Append เข้าไป
วิธีการนี้คือการนำเข้าข้อมูลไปยังตารางเป้าหมายได้ที่ละหลายๆเรคคอร์ดเลยครับ

วิธีการทำ ลองดูลิ้งนี้นะครับ

https://www.thai-access.com/index.php?topic=543.msg2382#msg2382
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

274
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 02 ก.ย. 63 , 12:15:17 »
ขอบคุณมากๆเลยครับ แต่ตอนนี้ถ้าเกิด text1 เราไม่ต้องการกรอกข้อมูล แต่ตอนรวม มันจะมีค่าเว้นวรรคมาด้วย ถ้าเราไม่ต้องการทำยังไงครับ
ใช้ Trim เข้ามาช่วยครับ


Option Compare Database
Public strText1, strText2, strText3 As Variant

Private Sub Text1_Change()
If Len(Me.Text1.Text) > 0 Then
strText1 = Me.Text1.Text
Else
strText1 = Null
End If
OutPutString
End Sub

Private Sub Text2_Change()
If Len(Me.Text2.Text) > 0 Then
strText2 = Me.Text2.Text
Else
strText2 = Null
End If
OutPutString
End Sub

Private Sub Text3_Change()
If Len(Me.Text3.Text) > 0 Then
strText3 = Me.Text3.Text
Else
strText3 = Null
End If
OutPutString
End Sub

Private Sub OutPutString()
Me.total = Trim(strText1 & IIf(IsNull(strText2), Null, " " & strText2) & IIf(IsNull(strText3), Null, " " & strText3))
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, naekkhung

275
ขอบคุณมากครับ อาจารย์ PNR
ที่ งง คือ ผมมีอีกหน้าจอ เป็น Order ขาย
ลักษณะเหมือนกันเปี๊ยบเลย Continuous Form จอนั้นกลับไม่เป็นปัญหา
พยายามหาข้อแตกต่างใน Properties ก็หาไม่เจอ
วิธีอาจารย์ยากไปนิด ยังไม่ค่อยเข้าใจ ขอเวลาศึกษาก่อนครับ

ลองดูตัวอย่างด้านบนครับ มีตัวอย่างให้ดูด้วย โดยให้สังเกตุตรง cboUnit ที่ซ้อนกันกับ cboInput
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

276
สาเหตุเกิดจาก Combobox นั้นก็คือตัวเดียวกับ เรคคอร์ดแรกนั้นละครับ

เราสามารถใช้การสร้าง Combobox ซ้อน Combobox เพื่อให้เลือกรายการแล้วไปแสดงอีก Combobox หนึ่งครับ
ลองดูที่กระทู้นี้ครับ ส่วนตัวอย่างเดี่ยวผมลองหาให้แปป
https://www.thai-access.com/index.php?topic=1316.msg5802#msg5802

โดยใช้ Combobox Unbound ในการเลือกรายการมาแสดงใน Combobox หลัก
สมมุติ Combobox Unbound ชื่อ CboInput
        Combobox Unit ชื่อ CboUnit   

ที่คอมโบบ๊อก CboInput กำหนดให้ แสดงด้านหลังสุด


โค้ดก็มีประมาณนี้

Private Sub CboUnit_GotFocus()
Me.CboInput.SetFocus  'เมื่อเรากดจะเลือกรายการ Cursor จะถูกให้ไป Focus ที่ CboInput
Me.CboInput.Requery  'สั่งให้มีการลำดับรายการใหม่
Me.CboInput.Dropdown 'แสดงรายการแบบ Dropdown
End Sub

Private Sub CboInput_AfterUpdate()
Me.CboUnit = Me.CboInput 'สั่งให้รายการที่เลือกกลับมาแสดงที่ CboUnit
End Sub


โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

277
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 31 ส.ค. 63 , 16:03:16 »
เราสามารถที่จะพอทำได้ครับ โดยใช้การกำหนด ประกาศตัวแปรเป็น Public นะครับ
ผมสมมุติ text1 ถึง text3 และ textbox แสดงชื่อ total
เพราะโดยปกติ .Text จะใช้ได้กับ คอนโทรลที่ โฟกัสอยู่เท่านั้น
เราจึงควรสร้างตัวแปรขึ้นมาเก็บค่าไว้ก่อนเพื่อนำไปต่อกับ ตัวแปรต่อๆไป ครับ

ดังตัวอย่างโค้ดนี้

โค๊ด: [Select]
Option Compare Database
Public strText1, strText2, strText3 As Variant

Private Sub Form_Current()
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub

Private Sub Text1_Change()
If Len(Me.Text1.Text) > 0 Then
strText1 = Me.Text1.Text
End If
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub
Private Sub Text2_Change()
If Len(Me.Text2.Text) > 0 Then
strText2 = Me.Text2.Text
End If
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub
Private Sub Text3_Change()
If Len(Me.Text3.Text) > 0 Then
strText3 = Me.Text3.Text
End If
Me.total = strText1 & " " & strText2 & " " & strText3
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, naekkhung

278
สามารถใช้ UpdateQuery ในการอัพเดท Field ที่ต้องการ โดยต้องกำหนดให้ตรงกับ PrimaryKey ด้วยนะครับเช่น
ผมสมมุติว่า Primary Key คือ ID แต่ของคุณผมไม่แน่ใจว่าชื่อ iCustCode หรือเปล่าถ้าใช่ก็เปลี่ยนจาก ID เป็น iCustCode นะครับ

โค้ด SQL ก็จะเป็น

UPDATE tblTransaction INNER JOIN ImPort_Data ON tblTransaction.ID = ImPort_Data.ID SET tblTransaction.tCustItem = [ImPort_Data].iCustPartsCode
WHERE (((tblTransaction.ID)=[ImPort_Data].[ID]));


โพสต์นี้ได้รับคำขอบคุณจาก: honeypiez19

279
จากอันเก่าปรับโค้ดเป็นแบบนี้นะครับ ไม่ต้องสร้างตารางใหม่
เอาตาราง Temp ออกไปได้เลย

โค๊ด: [Select]
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strWong_Code As String
Dim strMember_Code As String
Dim SQL As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("TB2", dbOpenDynaset)
If Not rst.BOF And Not rst.EOF Then
  rst.MoveFirst
  strWong_Code = rst![วง]
  strMember_Code = rst![สมาชิก]
  rst.MoveNext
 
  Do Until rst.EOF
    If strWong_Code = rst![วง] Then
      strMember_Code = strMember_Code & "," & rst![สมาชิก]
    Else
DoCmd.SetWarnings False
   SQL = "UPDATE TB1 " & _
        "SET samachik= '" & strMember_Code & "'" & _
        "WHERE [รหัส] = '" & strWong_Code & "'"
    DoCmd.RunSQL SQL
      strWong_Code = rst![วง]
      strMember_Code = rst![สมาชิก]
    End If
    rst.MoveNext
  Loop 

DoCmd.SetWarnings False
   SQL = "UPDATE TB1 " & _
        "SET samachik= '" & strMember_Code & "'" & _
        "WHERE [รหัส] = '" & strWong_Code & "'"
    DoCmd.RunSQL SQL
    DoCmd.SetWarnings True
End If
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, nonc31

280
ถ้าเป็น text ไม่น่าจะมีปัญหานี้ได้เลย
ขอดู SQL ทั้งอันหน่อยและข้อมูลในตารางด้วย
หรือรีโมทไปแก้ให้ไหมครับ

โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

281
ศึกษาการใช้ Trim ในการตัดช่องว่างครับตัวอย่างในลิ้งนี้

https://www.techonthenet.com/access/functions/string/trim.php

หรือใส่ว่า
FULLNAME: Trim([Name]) & " " & Trim([Surname])
ที่ Column ชื่อ Fullname จะมีการตัดการเว้นวรรคที่เป็นส่วนเกินออกไปทั้ง 2 ฟิลล์ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: nikorn

282
ห้อง MS Access / : ปิด Subform ใน MS Access
« เมื่อ: 20 ส.ค. 63 , 19:08:15 »
ที่ฟอร์มหลักใน event form open
ใส่โค้ดเพื่อซ่อนซัพฟอร์ม

Private Sub Form_Open(Cancel As Integer)
Me.[ชื่อซัพฟอร์ม].Visible = False
End Sub

หรือ

Form![ชื่อฟอร์มหลัก]![ชื่อซัพฟอร์ม].visible =false

และที่ปุ่มค้นหาเมื่อการค้นหาทำงานก็กำหนดให้
Me.[ชื่อซัพฟอร์ม].visible = True
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess

283
เราสามารถเอาข้อมูลจาก Query Union ไปสร้างเป็น Table ได้ไหมครับ

ได้ Query Union แล้วก็ไปสร้าง MakeTable Query ต่อได้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

284
เพิ่มเป็นแบบนี้ครับ
โค๊ด: [Select]
Private Sub Combo0_AfterUpdate()
If Me.Combo0 = "1" Then
Me.Text1.Locked = False
Me.Text1 = "0"
Me.Text2.Locked = False
Me.Text2 = "0"
Me.Text3.Locked = False
Me.Text3 = "0"
Me.Text4.Locked = True
Me.Text4 = Null
Me.Text5.Locked = True
Me.Text5 = Null
Me.Text6.Locked = True
Me.Text6 = Null
ElseIf Me.Combo0 = "2" Then
Me.Text1.Locked = False
Me.Text1 = "0"
Me.Text2.Locked = False
Me.Text2 = "0"
Me.Text3.Locked = False
Me.Text3 = "0"
Me.Text4.Locked = False
Me.Text4 = "0"
Me.Text5.Locked = False
Me.Text5 = "0"
Me.Text6.Locked = False
Me.Text6 = "0"
ElseIf Me.Combo0 = "3" Then
Me.Text1.Locked = False
Me.Text1 = "0"
Me.Text2.Locked = False
Me.Text2 = "0"
Me.Text3.Locked = True
Me.Text3 = Null
Me.Text4.Locked = True
Me.Text4 = Null
Me.Text5.Locked = True
Me.Text5 = Null
Me.Text6.Locked = True
Me.Text6 = Null
Else
Me.Text1.Locked = True
Me.Text1 = Null
Me.Text2.Locked = True
Me.Text2 = Null
Me.Text3.Locked = True
Me.Text3 = Null
Me.Text4.Locked = True
Me.Text4 = Null
Me.Text5.Locked = True
Me.Text5 = Null
Me.Text6.Locked = True
Me.Text6 = Null
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, ชุติพนธ์ มหาทรัพย์, Somsak472

285
ผมมีช่องให้กรอกทั้งหมด 6 ช่อง แต่เมื่อผมใส่ค่าประเภทเป็น 1 ให้เปิดช่องสำหรับกรอกค่าแค่ 3 ช่องจาก6ช่อง อีก3 ช่องให่ประติเสธการใส่ค่า

แล้วพอ ผมใส่ค่าประเภทเป็น 2 ให้เปิดช่องสำหรับใส่ค่าทั้งหมด6 ช่อง
พอ ผมใส่ค่าประเภทเป็น 3 ให้เปิดช่องสำหรับใส่ค่าทั้งหมด2 ช่อง



พอมีวิธีทำไหมครับ

ใช้ Locked มาช่วยก็ได้ครับเช่น
โค๊ด: [Select]
Private Sub Combo0_AfterUpdate()
If Me.Combo0 = "1" Then
Me.Text1.Locked = False
Me.Text2.Locked = False
Me.Text3.Locked = False
Me.Text4.Locked = True
Me.Text5.Locked = True
Me.Text6.Locked = True
ElseIf Me.Combo0 = "2" Then
Me.Text1.Locked = False
Me.Text2.Locked = False
Me.Text3.Locked = False
Me.Text4.Locked = False
Me.Text5.Locked = False
Me.Text6.Locked = False
ElseIf Me.Combo0 = "3" Then
Me.Text1.Locked = False
Me.Text2.Locked = False
Me.Text3.Locked = True
Me.Text4.Locked = True
Me.Text5.Locked = True
Me.Text6.Locked = True
End If
End Sub

มี textbox 6 ตัว และ combobox 1 ตัว

combobox ชื่อ Combo0
มี textbox ชื่อ text1 ถึง 6

หรือใช้การซ่อน textbox ก็ได้เช่น
โค๊ด: [Select]
Private Sub Combo0_AfterUpdate()
If Me.Combo0 = "1" Then
Me.Text1.Visible = True
Me.Text2.Visible = True
Me.Text3.Visible = True
Me.Text4.Visible = False
Me.Text5.Visible = False
Me.Text6.Visible = False
ElseIf Me.Combo0 = "2" Then
Me.Text1.Visible = True
Me.Text2.Visible = True
Me.Text3.Visible = True
Me.Text4.Visible = True
Me.Text5.Visible = True
Me.Text6.Visible = True
ElseIf Me.Combo0 = "3" Then
Me.Text1.Visible = True
Me.Text2.Visible = True
Me.Text3.Visible = False
Me.Text4.Visible = False
Me.Text5.Visible = False
Me.Text6.Visible = False
Else
Me.Text1.Visible = False
Me.Text2.Visible = False
Me.Text3.Visible = False
Me.Text4.Visible = False
Me.Text5.Visible = False
Me.Text6.Visible = False
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ชุติพนธ์ มหาทรัพย์

286
ได้แล้วใช่ไหมครับ
 :yuush: :yuush:
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

287
ปัญหาจากการกำหนด Relationship ครับต้องเอาการกำหนดตรงส่วนนี้มาดูครับ
หรือถ้าชิ้นงานนี้ไม่ได้ลับมากโพสไฟล์นั้นลงบอร์ดเดี่ยวช่วยตรวจสอบให้
โพสต์นี้ได้รับคำขอบคุณจาก: skyfall1997

288
เอาโค้ดนี้ไปวางในแต่ละฟิลล์ในคิวรี่ได้เลย

หมู่
โค๊ด: [Select]
qADDRMU: IIf(IsNull([ADDRMU]),"-",Replace(Replace([ADDRMU],"ม.",""),"หมู่ที่ ",""))
ซอย
โค๊ด: [Select]
qADDRSOI: IIf(IsNull([ADDRSOI]),"-",Replace(Replace([ADDRSOI],"ซอย",""),"ตรอก",""))
ถนน
โค๊ด: [Select]
qADDRRD: IIf(IsNull([ADDRRD]),"-",Replace([ADDRRD],"ถนน",""))
ตำบล
โค๊ด: [Select]
qADDRTB:IIF(isnull(ADDRTB),"-",Replace(Replace(Replace(ADDRTB, "ต.", ""), "ตำบล", ""), "แขวง", ""))
อำเภอ
โค๊ด: [Select]
qADDRAP:IIF(isnull(ADDRAP),"-",Replace(Replace(Replace(ADDRAP, "อ.", ""), "อำเภอ", ""), "เขต", ""))
จังหวัด
โค๊ด: [Select]
qADDRCW:IIF(isnull(ADDRCW),"-",Replace(Replace(ADDRCW, "จ.", ""), "จังหวัด", ""))

และโค้ดรวมทุกโค้ดสำหรับ SQL นะครับ

SELECT IIf(IsNull([ADDRSOI]),"-",Replace(Replace([ADDRSOI],"ซอย",""),"ตรอก","")) AS qADDRSOI, IIf(IsNull([ADDRRD]),"-",Replace([ADDRRD],"ถนน","")) AS qADDRRD, IIf(IsNull([ADDRTB]),"-",Replace(Replace(Replace([ADDRTB],"ต.",""),"ตำบล",""),"แขวง","")) AS qADDRTB, IIf(IsNull([ADDRAP]),"-",Replace(Replace(Replace([ADDRAP],"อ.",""),"อำเภอ",""),"เขต","")) AS qADDRAP, IIf(IsNull([ADDRCW]),"-",Replace(Replace([ADDRCW],"จ.",""),"จังหวัด","")) AS qADDRCW FROM [ชื่อตารางหรือคิวรี่];
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess

หน้า: 1 ... 13 14 15 [16] 17 18 19 ... 32