แสดงกระทู้

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.


Topics - nonc31

หน้า: [1]
1
ทำตามบทเรียน ที่อาจารย์ แสดงไว้ใน Youtube 

แต่ผมทำไม่ผ่าน  ขอความช่วยเหลือครับ

2
เหมือนจะง่าย  แต่กว่าจะเข้าใจ  นำมาฝากครับ  วินโดว์ 7 ขึ้นมา ใช้ SendKeys "{HOME}" และ  SendKeys "{END}" ไม่ได้แล้ว

Option Compare Database

#If Win64 Or VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare PtrSafe Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#End If

    Private Const VK_HOME = &H24
    Private Const VK_END = &H23
    Private Const VK_F2 = &H71
   
Private Sub Command2_Click() 'SendKeys HOME
    Me.Text0.SetFocus
    keybd_event VK_F2, 1, 0, 0
    keybd_event VK_F2, 1, KEYEVENTF_KEYUP, 0
    keybd_event VK_HOME, 1, 0, 0
    keybd_event VK_HOME, 1, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command3_Click() 'SendKeys END ใช้ F2 แทน
    Me.Text0.SetFocus
    keybd_event VK_F2, 1, 0, 0
    keybd_event VK_F2, 1, KEYEVENTF_KEYUP, 0
End Sub

3
ไปได้โค๊ดที่อาจารย์ลงไว้ใน Youtube

ผมเก็บเมลล์เพื่อนๆ ไว้ถ้าต้องการ Loop ชื่อเมลล์ลงในบรรทัด  .To = Nz(ฟิลด์เก็บเมลล์)
ต้องทำโค๊ดยังไงครับ  หรือมีโค๊ดอื่นมั๊ยครับ สำหรับการส่งเมลล์เป็นกลุ่มๆ


On Error GoTo Err:
    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String

    'late binding
    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")

    ' load all default configurations
    mailConfig.Load -1

    Set fields = mailConfig.fields

    'Set All Email Properties
    With NewMail
        .Sender = Forms!mainmail!mygmail
        .From = Nz(Forms!mainmail!mydetail)
        .To = Nz(Me.fmail)  '<<<<<<<<< ต้องการ Loop  ลงตรงนี้  <<<<<<<<<<<<<<<<<<<<
        .CC = Nz(Forms!mainmail!sumnao1)
        .BCC = Nz(Forms!mainmail!sumnao2)
        .Subject = Nz(Forms!mainmail!ruang1)
        .BodyPart.Charset = "utf-8"
        .HTMLbody = "<Font Face=AngsanaUPC Size=" & Forms!mainmail!fontSiz & " Color=" & Forms!mainmail!seefon & ">" & Forms!mainmail!bui1 & Nz(Forms!mainmail!detail2) & Forms!mainmail!bui2 & "</Font>"
       
        If Not IsNull(Forms!mainmail!fi1) Then
            If Dir(Forms!mainmail!fi1) <> "" Then
                .Addattachment Nz(Forms!mainmail!fi1)
            End If
        End If
       
        If Not IsNull(Forms!mainmail!fi2) Then
            If Dir(Forms!mainmail!fi2) <> "" Then
                .Addattachment Nz(Forms!mainmail!fi2)
            End If
        End If
       
        If Not IsNull(Forms!mainmail!fi3) Then
            If Dir(Forms!mainmail!fi3) <> "" Then
                .Addattachment Nz(Forms!mainmail!fi3)
            End If
        End If
       
    End With

    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

    With fields
        .Item(msConfigURL & "/smtpusessl") = True
        .Item(msConfigURL & "/smtpauthenticate") = 1
        .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
        .Item(msConfigURL & "/smtpserverport") = 465
        .Item(msConfigURL & "/sendusing") = 2
        .Item(msConfigURL & "/sendusername") = Forms!mainmail!mygmail
        .Item(msConfigURL & "/sendpassword") = DLookup("mypass", "mypass")
        .Update
    End With
    NewMail.Configuration = mailConfig
    NewMail.Send

Exit_Err:
    'Release object memory
    Set NewMail = Nothing
    Set mailConfig = Nothing
    End

Err:
    Select Case Err.Number
    Case -2147220973  'Could be because of Internet Connection
        MsgBox "Check your internet connection." & vbNewLine & Err.Number & ": " & Err.Description
    Case -2147220975  'Incorrect credentials User ID or password
        MsgBox "Check your login credentials and try again." & vbNewLine & Err.Number & ": " & Err.Description
    Case Else   'Report other errors
        MsgBox "Error encountered while sending email." & vbNewLine & Err.Number & ": " & Err.Description
    End Select

    Resume Exit_Err

4
ผมต้องการให้ปุ่มอยู่กลางจอ โดยอ้างอิงกับความละเอียดของจอ(pixcel) มีโค๊ดแนะนำมั๊ยครับ

5
ผมมีโปรเจ็ค Access2003  32บิต  ผมสร้างไฟล์ MDE ด้วย Access2003 32บิต ได้สำเร็จ แต่...
1.เงื่อนไขของ MDE นี้เปิดใน Access 64บิตไม่ได้  แต่ผมต้องการเปิดใน Access 64บิต จึงทำ...
2.แปลงไฟล์ จาก .mdb เป็น .accdb 64บิต  ด้วย Access2013 64บิต  ไฟล์ใหม่นี้เปิดได้ปกติ
3.แปลงจาก .accdb  เป็น  .accde  ด้วย Access2013 64บิต ขั้นตอนนี้ ไม่สามารถสร้างได้  :cry: :cry: :cry:
  Access บอกเหตุผลนั่นโน่นนี่ ว่าไม่สามารถแปลงเป็น .accde ได้
  แต่ Access2003  32บิต กลับทำเป็น .MDE ได้  :question: :question:

....ท่านใดมีประสบการณ์วิธีการช่วยแนะนำด้วยครับ ต้องการมาก เลย 64บิต

แต่ก่อนไม่ได้คิดจะสร้างเป็น MDE/accde  ป้องกันด้วยการเข้ารหัส

....แต่จุดอ่อนของการเข้ารหัส  มัน "แฮ็ก" ได้  เลยจะทำเป็น MDE/accde แทน ในการแจกจ่ายโปรเจ็ค
หรือใครมีวิธีอื่นๆ ในการป้องกันโค๊ดของโปรเจ็ค ช่วยแนะนำด้วยนะครับ

ขอขอบคุณล่วงหน้าครับ

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

8
ปัจจุบันผมใช้ ODBC 8.0 เชื่อมต่อกับ MySQL 5.6 ในข้อมูลจำนวนหลักแสน-ล้าน รู้สึกว่ามันจะประมวลผลช้า  แต่สังเกตว่า Navicat ประมวลผลเร็วกว่า ไม่ทราบว่ามีวิธีอะไรยังไง  ให้ Access ประมวลผลได้ใกล้เคียง Navicat ได้บ้างครับ  มีเครื่องมือไหนพอช่วยได้บ้าง

11
เชื่อมต่อ Mysql ด้วย ODBC ฟิลด์ Username ที่เป็นตัวอักษรภาษาไทย แสดงผล #Deleted เป็นเฉพาะตารางเดียว ตารางอื่นไม่เป็นไร
มีวิธีแก้ไขยังไงครับ  ตารางเป็น InnoDB

12
ผมเคยเจอปัญหา Access จากเดิมรันได้ อยู่มาวันหนึ่งก็รันไม่ได้
(โปรแกรมเดิม/Code เดิม ปล.โปรแกรมมีการใช้ ActiveX)
ลองถอนการติดตั้งแล้วลง Access ใหม่ แบบปกติก็แล้ว แบบแอดวานด์ก็แล้ว จัดการ Registry ก็แล้ว
แต่ก็ไม่สามารถรันได้ สุดท้ายคือลงวินโดว์ใหม่ ถึงรันได้
...กรณีแบบนี้ท่านทั้งหลายมีวิธีแก้ไขอย่างไรครับ โดยที่ไม่ต้องติดตั้งวินโดว์ใหม่... :sweat:

13
ต้องการค้นหาไฟล์ที่ระบุแบบเจาะจง เช่นต้องการค้นไฟล์ abc.doc ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น รันไม่ผ่าน :ouch:
มี code นึงเหมือนจะได้ รันผ่าน แต่เป็นการอ่านชื่อโฟลเดอร์ ส่วนการค้นหาไฟล์ผมไปต่อไม่เป็น :cry:

Private Sub Command3_Click()
Dim MyPath, MyName As String
MyPath = "C:\Program Files (x86)\"
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
      ' Use bitwise comparison to make sure MyName is a directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         ' Display entry only if it's a directory.
         MsgBox MyName
      End If
        MyName = Dir()   ' Get next entry.
Loop
End Sub

ใครมี Code มีลิงค์ รบกวนขอด้วยครับ

14
Private Sub Command0_Click()
DoCmd.SetWarnings False
Dim db As DAO.Database
Dim tbl As TableDef
Dim fld As DAO.Field
Dim strSQL As String
   
Set db = CurrentDb
    strSQL = "ALTER TABLE testFieldType ALTER COLUMN fieldA Integer;"
    db.Execute strSQL

        Set fld = Nothing
        Set tbl = Nothing
        Set db = Nothing

End Sub

ผลออกมามันเป็น Long Integer  ทำไมมันไม่เป็น  Integer  ช่วยด้วยครับ

หน้า: [1]