แสดงกระทู้

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

หน้า: [1] 2 3
1
ใช้ function Replace() ดูนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess

2
Loop RecordSet ครับ อาจเก็บสถานะไว้ 1 ฟิวด์ว่าส่งแล้ว เช่น status=0 ยังไม่ส่ง 1=ส่งแล้ว ครั้งต่อไปเวลากดก็ให้ส่งเฉพาะที่สถานะใหม่เท่านั้น
ตัวอย่าง เช่น
dim db as dao.database
dim rs as dao.recordset
dim sqlStr as string
dim ms as String 'Message


sqlStr = "SELECT * FROM table_dataxxx as c WHERE status=0"

set db = currentDb
set rs = db.openRecordset(sqlStr)

rs.movefirst

do while not rs.EOF
  ms=rs!fieldName & xxx... 'สร้าง Message
  call LineNotify(ms,rs!token) 'เรียกใช้ Sub พร้อมกับส่ง Argument
  docmd.runsql "๊Update table_dataxxx Set status=1 Where id=rs!id"
  rs.movenext
loop

ผิดพลาดประการใดต้องขออภัยด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: aek

3
ตั้งค่า Page setup ให้พิมพ์ตาม default printer แล้ว Save ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

5
ทำไมไม่สั่งปิดทุกฟอร์มแล้วเปิดใหม่เรียงตามฟอร์มที่ต้องการครับ
Dim obj As AccessObject, dbs As Object
            Set dbs = Application.CurrentProject
            For Each obj In dbs.AllForms
                    If obj.IsLoaded = True Then
                    DoCmd.Close acForm, obj.Name, acSaveYes
                    End If
                Next obj
'เรียงตามลำดับที่ต้องการ
DoCmd.OpenForm "FormA"
DoCmd.OpenForm "FormB"
DoCmd.OpenForm "FormC"

ปล.ไม่รู้ว่าใช่คำตอบมั้ย
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

6
ทำเป็นฟอร์ม แล้วเลือกฟิวด์ที่ไม่ใช่ Barcode ตั้งค่า properties ชื่อ Tab stop เลือกเป็น No ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: prajak

7
สร้าง Query แล้วให้ subform ผูกกับ Query ดีกว่ามั้ยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

8
ไม่เข้าใจคำถาม แต่เดาว่า ต้องการ count โดยแยกเพศ ชาย/หญิง ใน Textbox ของฟอร์มมั้ยครับ ฟังก์ชั่น count สามารถใส่เงื่อนไขได้ เช่น Textbox 1 แสดงจำนวนเพศชาย ก็ nz(count("*","ตารางxxx","[ชื่อฟิวด์เพศ]='ชาย'"),0)
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ

9
ขอความรู้เรื่องการเขียน code vba สำหรับรันได้ทั้ง office 32 และ 64 บิต ครับ ส่วนตัวเขียนเฉพาะ 32 บิต แต่คอมรุ่นใหม่ๆติดตั้ง office 64 บิต ซึ่งโปรแกรมจะรันไม่ได้ ต้องติดตั้ง office ใหม่ หากจะเขียน code ให้ทำงานได้ทั้ง 2 ระบบ ต้องเขียนอย่างไรครับ
โพสต์นี้ได้รับคำขอบคุณจาก: marut.navy

10
ลองเอาไปประยุกต์ดูนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Un

11
วน loop อ่านชื่อไฟล์ใน folder แล้วเอาชื่อไฟล์ตัด .txt ออก
จากนั้น ไป count record
count=DCount("*","table","[cid]="' & cid จากชื่อไฟล์ &"'")
if count=0
   msgbox
end if
โพสต์นี้ได้รับคำขอบคุณจาก: Un

12
ผมเคยเจอแบบนี้ หาวิธีแก้ไม่ได้ ถ้าไม่มี backup น่าจะต้องทำใจเลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

13
Option Compare Database

Function setNewText(text As String) As String
Dim strText As String
Dim newString As String
strText = Left(text, 3)

Select Case strText
Case "5-1": newString = Replace(text, strText, "A-")
Case "6-1": newString = Replace(text, strText, "B-")
Case "7-1": newString = Replace(text, strText, "C-")
Case "8-1": newString = Replace(text, strText, "D-")
Case "9-1": newString = Replace(text, strText, "E-")
Case Else: newString = "Error"
End Select
setNewText = newString
End Function
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี, aek

14
ลองฟังก์ชั่น Replace() ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

15
ทำได้แล้วครับ ประยุกต์ตามกระทู้นี้
https://www.thai-access.com/index.php?topic=1005.0
โพสต์นี้ได้รับคำขอบคุณจาก: พีระณัฐ สุขกำเนิด

16
setFocus ที่ Textbox อื่นก่อน แล้วมา setFocus ที่ TX08
เช่น
...
Me.TX10.SetFocus
Me.TX08.SetFocus
โพสต์นี้ได้รับคำขอบคุณจาก: Twofive Juu

17
code คุณ TTT ใช้ได้เลยครับ

Private Sub Command1_Click()
Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    Set tdf = db.CreateTableDef("department")
   
    tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
    tdf.SourceTableName = "department"
    db.TableDefs.Delete "department"
    db.TableDefs.Append tdf

    Set tdf = db.CreateTableDef("vendor")
   
    tdf.Connect = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};Server=192.168.0.243;Database=dental_stock;UID=sa;PWD=sa1234;Option=3"
    tdf.SourceTableName = "vendor"
    db.TableDefs.Delete "vendor"
    db.TableDefs.Append tdf

    db.Close: Set db = Nothing
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Max, Naruemon Krunpuek

18
คลิกขวา เลือก preperty เลือก open with

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

หน้า: [1] 2 3