۲۷-شهریور-۱۳۸۵, ۲۳:۰۹:۲۴
سلام
عزیز من دکمه ریفرش رو همین طوری قرار دادم اگه حذف هم کنید مشکلی پیش نمیاد (امتحان کن متوجه میشی)
در مورد سوال دوم
کار مشکلی نیست
اما باید خاصیت Style رو به 0-Standard تغییر بدی
بعد هم این کد رو اضافه کن
اگه مشکلی بود حتما من رو مطلع کن
موفق باشی
خدانگهدار
عزیز من دکمه ریفرش رو همین طوری قرار دادم اگه حذف هم کنید مشکلی پیش نمیاد (امتحان کن متوجه میشی)
در مورد سوال دوم
کار مشکلی نیست
اما باید خاصیت Style رو به 0-Standard تغییر بدی
بعد هم این کد رو اضافه کن
کد:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
On Error GoTo Er1
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & App.Path & "\db1.mdb"
rst.Open "Test", cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst!Name = Combo1.Text
rst.Update
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
Combo1.Clear
Refresh_Click
Combo1.ListIndex = Combo1.ListCount - 1
End If
Exit Sub
Er1:
MsgBox Err.Description
End Sub
اگه مشکلی بود حتما من رو مطلع کن
موفق باشی
خدانگهدار