แสดงกระทู้

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

หน้า: [1] 2 3 4
1
ผมเคยใช้แต่  DoCmd.FindRecord  มันค้นหาแบบข้ามฟอร์มได้   :miao: :miao: :miao:

RecordsetClone.FindFirst  ลองทำดูแล้วมันก็น่าจะโอยุนะ
    Forms!main!house.Form.RecordsetClone.FindFirst "[hcode] = " & Forms!main!person.Form.hcode
    Forms!main!house.Form.Bookmark = Forms!main!house.Form.RecordsetClone.Bookmark
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

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

2
        With [textbox].FormatConditions
            .Delete 'ลบเงื่อนไขเดิม
            With .Add(acExpression, acEqual, "[txt1]<60") 'เพิ่มรูปแบบตามเงื่อนไข
            .BackColor = vbRed 'แสดงสีของ textbox
            End With
        End With

จะประมาณนี้    รูปแบบอื่นๆ ก็หาใน google เอานะครับ  หรือ  https://www.thai-access.com/topic_post.asp?CategoryID=&TopicID=3032
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

5
แนบไฟล์มาให้ อ.ทั้งหลาย ทำตัวอย่างให้ แล้วไปแกะเอาจะง่ายกว่าครับ อธิบายในถามตอบ มันยาวเกิน  :cool: :cool: :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: 10idlnw

6
1.กำหนดคุณสมบัติฟอร์ม อนุญาตให้เพิ่ม เป็น  "ไม่ใช่"
2.สร้าง textbox_tmp ขึ้นมา โดยไม่เชื่อมกับฟิลด์ของตาราง
3.ปุ่มเพิ่ม
    If Not IsNull(Me.textbox_tmp) Then
            Me.AllowAdditions = True
            DoCmd.GoToRecord , , acNewRec
            Me.txt_Message=me.textbox_tmp
    End If
4.ปุ่มบันทึก
    me.Refresh
    Me.textbox_tmp=Null
    Me.AllowAdditions = False

จะประมาณนี้ครับ 
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

7
อ่านได้เป็น แสนล้าน
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

8
ห้อง MS Access / : การเก็บข้อมูล user ,password
« เมื่อ: 01 เม.ย. 65 , 01:34:03 »
คลิปอาจารย์เพิ่งทำ  ผมแปะกันลืมละกัน
โพสต์นี้ได้รับคำขอบคุณจาก: chai, Max

9
ผมก็ได้มานานแล้ว แต่ไม่ได้ทำใช้
โพสต์นี้ได้รับคำขอบคุณจาก: aek

10
#If Win64 Or VBA7 Then
   Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
   Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if

ทำโค๊ดแบบนี้  เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

11
ก่อนอื่นต้องขอขอบคุณอาจารณ์ทุกท่านนะครับ ที่ได้แก้ไขปัญหาต่างๆ ในการทำ Code  ....
สำหรับโพสนี้ ก็หวังว่าท่านที่ต้องการทำแบบผม กำลังมองหาวิธีการต่างๆนานา (เหมือนผม)
จะได้รับประโยชน์ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, PNR

12
ตอนเลือกเสร็จ  ต้องมีคำสั่งให้ซับฟอร์มรีเฟรซ หรือ รีคิวรี่ ด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

13
รีเลชั่นน่าจะเป็นแบบนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Misstract

14
ทำ sub ฟอร์ม 2 อัน ก็อยู่ด้วยกันแล้ว
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

15
ก็ลงทะเบียน ActiveX ด้วยโค๊ด bat file ดังนี้
1.คัดลอกไฟล์ .dll หรือ .ocx ไปไว้ที่ system32 หรือ sysWOW64 แล้วแต่ bit
2.รีจีสเตอร์ regsvr32.exe %systemroot%\SysWOW64\.ocx

ประมาณนี้ครับ

ถ้าทำแล้วติดขัด ให้ทำใน safe mode

ถ้าทำใน safe mode ยังไม่ได้อีก ก็เป็นที่วินโดว์แล้วล่ะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ekppom

16
ตามหลัก คนต้องมีที่อยู่  ก็ควรจะบันทึกที่อยู่ก่อน  แล้วจึงให้สามารถมาบันทึกคนได้

ทำแบบนี้เหมือนทำพร้อมๆ กัน เราก็คีย์ข้อมูลมากขึ้นสิครับ

5คน หรือ 10คน อยู่บ้านเดียวกัน ยังต้องมาคีย์ที่อยู่ทุกคนอีก (มันไม่ลดภาระ)  :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: Misstract

หน้า: [1] 2 3 4