แสดงกระทู้

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 3
1
สุดยอดไอเดียร์ครับ
ได้ความรู้หลายอย่างที่น่าทึ่งมากครับวันนี้
1.ไม่คิดว่าจะดึง Module มาใช้ใน Query ได้
2.การผนวกตารางกัน สามารถรวมตารางให้ให้เกิดตารางใหม่ตามต้องการได้

ขอนำไปใช้ละครับ

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

2
เรียนผู้รู้ทุกท่าน และอาจารย์ทุกท่านครับ

          ตามหัวข้อเลยครับ ผมดึงข้อมูลเป็นแบบ Link จาก Excel เข้า Access โดยที่ห้ามแก้ไขหรือเพิ่มคอลั่มจาก File Excel
แล้วเอามาใช้งานแต่ติดที่ Excel ไม่มีField Numberและไม่มี Field ที่ไม่ซ้ำครับ ที่ผมจะเอามาใช้ Running Number ให้กับรายการที่ Query ครับเลยทดลองดำดังนี้ครับ

1. ดึง Ms Excel เข้า Ms Access
2. ดึงข้อมูลทั้งหมดมาทำ Query ขึ้นมาเพื่อว่าจะได้เอาข้อมูลไปทำอะไรต่อได้ (ตอนนี้ต้องการทำเลข Running Number หรือลำดับรายการที่ Query ครับ)
3. ที่ข้อมูลที่ดึงมามันไม่มีข้อมูลที่ไม่ซ้ำกัน และไม่มีข้อมูลที่เป็น Number อย่างเดียวเลยครับ

ผมสามารถสร้างเลข Running number เข้าไปที่ Query ได้ไหมครับ และอย่างไร รบกวนแนะนำด้วยครับ
ขอบคุณครับ

3
เรียนอาจารย์ทุกท่าน
พอจะขยายความ คำตอบท่านนี้ที่ถามได้ไหมครับ ผมไม่เข้าใจครับ
พอดีเจอ เตือนแบบนี้เหมือนกัน

เป็นที่การตั้งสิทธิ์การเข้าถึงของแต่ละเครื่อง

หมายถึง User password ที่เข้าใช้งานหรือครับ
แล้วต้องแก้ปัญหานี้ตรงไหนครับ

ขอบคุณครับ

4
ได้แล้วครับ จากกระทู้เก่าของ อ.TTT

  Dim i As Integer
    Dim strSelected As String
    strSelected = Nz([TX01])
     
    For i = 0 To ListBox.ListCount - 1
        If ListBox.Selected(i) = True Then
            If strSelected = "" Then
               strSelected = Listbox.Column(1, i)
            Else
               strSelected = strSelected & ";" & ListBox.Column(1, i)
            End If
        End If
    Next i
    Me.TX01 = strSelected

ขอบคุณครับ

5
สอบถามเพิ่มเติมครับ
ผมพอจะเขียนได้ละครับ แต่มีคำถามเพิ่มเติมครับ

1.ผมจะให้รายการที่สองที่กดเลือกมาต่อรายการแรกที่เลือกไปแล้วยังไง (ตอนนี้จาก Code มันลบตัวเก่าแล้วเอาตัวใหม่มาแทนครับที่ TX01)
2.Email เป็นColum ที่สองในListbox ผมต้องย้ายไปไว้ที่1 ถึงดึงค่ามาได้ถ้าไม่ย้ายแต่จะดึง Columสองมาแทนจะทำยังไงครับ

Dim x As Long
For x = 0 To Me.ListBox.ListCount - 1
    If Me.ListBox.Selected(x) = True Then
                  myString = myString & Me.ListBox.Column(boundColumnZeroBasedIndex, x) & ";"
    End If
    Next x
    TX01.Value = myString

ขอบคุณครับ

6
เรียนอาจารย์ทุกท่านและผู้รู้ครับทุกคนครับ

          ขอสอบถามเรื่องการเลือกข้อมูลจาก ListBox แล้ว นำรายการที่เลือกมาต่อกันครับ
คือ ผมมี Listbox ที่มีรายการ ID และ Email 2 คอลัมน์  ต้องการการเขียน Code
เมื่อคลิกเลือกข้อมูลใน Listbox ลงใน Tx01  หากเลือกมากกว่า 1 รายการก็ให้เอา Email มาต่อกัน
เช่น A@hotmail.com;B@hotmail.com;C@hotmail.com
ตรงคำสั่ง SQL จะเขียนแบบไหนครับ
ผมทดลองทำตามตัวอย่างอาจารย์สันติสุข แต่ติดตรงจะเอามาต่อข้อความกันยังไงครับ รบกวนแนะนำด้วยครับ
คือผมจะทำการเลือก Email เพื่อส่งหลายๆคนครับ

Private Sub ListBox_Click()
Dim dbs As Object, rst As Object
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * From TB_Email Where ID =" & Me.Listbox)
If Not rst.EOF Then
Me.TX01 = rst("Email")

Else
MsgBox "ไม่พบข้อมูล", vbOKOnly, "No data"
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Sub


ขอบคุณครับ

7
เจอแล้วครับ
มัันขาด

microsoft outlook 16.0 object library

ครับผม

8
จากกระทู้นี้ ขอสอบถามต่อ เพราะ ตั่งแต่ถามมา คือก๋ใช้เครื่องเดิมมาตลอดครับ
คือ Windows 7 32bit  Office 2007
โปรแกรมทำงานได้ดีปกติครับ

แต่พอใช้ Windows 10 64 bit + Office 2016
มันก็แจ้ง
runtime error 429 activex component can t create object
พอมีใครเคยเจอแบบนี้ไหมครับ รบกวนชี้แนะด้วยครับ


9
ขอบคุณครับ

10
ขอถามต่ออีกนิดครับ

ถ้า QM ผมมี QM1-QM20
มันต่องใช้ IF เยอะมาก พอจะย่นให้สั้นได้ไหมครับ
จากที่อาจาย์หลายท่านแนะนำ IF เยอะมันจะ
ทำงานหลายรอบ และอาจทำให้โปรแกรมช้า

ขอรบกวนอีกครั้งครับ

Private Sub Text0_AfterUpdate()
    If Text0.Value = "QM1" Then
        Forms![frmForm2]![Check1] = True
    ElseIf Text0.Value = "QM2" Then
        Forms![frmForm2]![Check2] = True
     ElseIf Text0.Value = "QM3" Then
        Forms![frmForm2]![Check3] = True
       ElseIf........QM20

     Else
    Forms![frmForm2]![Check2] = False
    Forms![frmForm2]![Check3] = False
    Forms![frmForm2]![Check4] = False


End If
End If
End If
.
.
.
End Sub

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

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

12
เรียนอาจารย์
ผมได้เขียน ที่ Frm1
Private Sub Text1_Enter()
If Me.Text1 = "QM" then
Forms("Frm2").Checkbox1 = True
Else
MsgBox "กรุณาใส่ข้อความให้ถูกต้อง"
End if
End Sub

เรียนอาจารย์ มันไม่มี Error แต่ checkbox1 ก็ไม่มีค่าครับ ทำไมมันไม่ติกถูกที่checkbox1 ครับ
ขอบคุณครับ


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

14



เป็นที่ Windows 10 ครับ  ส่วน Windows7 หรือต่ำลงมาใช้งานได้ปกติครับ(พอดีเปลี่ยนเครื่องเป็นWindows10 ครับจึงพบปัญหาตามภาพครับ ก่อนหน้าใช้ได้ปกติครับ)

Private Sub Command23_Click()
Dim Rec As String
Dim ol As Object
Dim olMail As Object
Dim strCC As String
If Text12 = " " Or IsNull(Text12) Then
MsgBox "¡ÃسÒãÊè¢éͤÇÒÁ"
Else
Rec = Text12.Value
Set ol = CreateObject("Outlook.Application")
Set olMail = ol.CreateItem(0)
With olMail
.To = "AAA@hotmail.com"
.Subject = "àÍ¡ÊÒèҡ IT"
.Body = Rec
.Display
'.Send
End With
Set olMail = Nothing
Set ol = Nothing
NetSend "192.168.1.1", Rec
End If
End Sub

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

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

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

หน้า: [1] 2 3