Private Sub Command3_Click()
rs.AddNew
Text1(0).SetFocus
Call AddnewDisplay
Text1(0).Text = ascii
End Sub
Private Sub Command6_Click()
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
rs.Fields(i) = Text1(i).Text
Next i
rs.Update
Adodc1.Refresh
End Sub
Private Sub AddnewDisplay()
Dim k As Integer
For k = 0 To rs.Fields.Count - 1
Text1(k).Text = ""
Next k
End Sub
Private Function ascii() As String
Dim val As Integer
rs.MoveLast
ascii = rs.Fields(0)
val = Asc(ascii)
val = val + 1
ascii = Chr(val)
End Function
....到底那出錯了..請幫幫忙
新增按下去去抓最後一筆記錄的第一欄位轉ascii碼在加一加轉回字串然後把轉出來的ascii放入text1(0).text之後按存檔卻出錯了
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • 蛋仔
  • 嗯把Text1(0).Text = ascii
    取消自己輸入就可以
    但我希望他自己產生,是這個出錯媽,資料庫的欄位型態是文字
    Private Function ascii() As String
    Dim val As Integer
    rs.MoveLast
    ascii = rs.Fields(0)
    val = Asc(ascii)
    val = val + 1
    ascii = Chr(val)
    End Function

  • 濛濛
  • ascii是保留字變數或副程序的名子不可使用
    至於你的內容呵呵我沒看所以不知道