Click here to Skip to main content
15,902,276 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: operator overloding in VB Pin
Dave Kreskowiak24-Sep-03 17:38
mveDave Kreskowiak24-Sep-03 17:38 
GeneralRe: operator overloding in VB Pin
Anthony_Yio3-Oct-03 21:29
Anthony_Yio3-Oct-03 21:29 
GeneralRe: operator overloding in VB Pin
Anonymous24-Oct-03 8:54
Anonymous24-Oct-03 8:54 
GeneralAudit log Pin
24-Sep-03 1:32
suss24-Sep-03 1:32 
GeneralControl Designer & Child Controls Issue Pin
scott@otech.com23-Sep-03 4:15
scott@otech.com23-Sep-03 4:15 
GeneralProblem with Web Client Pin
КфВ22-Sep-03 21:05
sussКфВ22-Sep-03 21:05 
GeneralRe: Problem with Web Client Pin
Jim Taylor25-Sep-03 4:19
Jim Taylor25-Sep-03 4:19 
GeneralHelp Pin
Anonymous22-Sep-03 6:58
Anonymous22-Sep-03 6:58 
I am trying to get a number that will start at (2 digit month, 2 digit year (not visible) and 3 digit sequence number) that will automatically reset to 001 when the month changes. The number needs reference a table and go off the last number used. I have not been having any luck with it :banghead: any suggestions?


Private Sub cmd1_Click()
Set localConnection = CurrentDb()
Set rJN = localConnection.OpenRecordset("TEST")
rJN.MoveLast

Dim cMonth As Integer
Dim cYear As Integer
Dim vYear As Integer
Dim vMonth As Integer
Dim vNum As Integer

vYear = Int(Val(Left$(rJN![Test], 2)))
vMonth = Int(Val(Mid$(rJN![Test], 2)))
vNum = Int(Val(Right$(rJN![Test], 3)))
cYear = Year(Now)
cMonth = Month(Now)

If vMonth = cMonth Then
rJN = rJN + 1
Else
rJN = "001"
End If

End Sub


:help: Thanks
GeneralRe: Help Pin
NetPointerIN22-Sep-03 11:14
NetPointerIN22-Sep-03 11:14 
GeneralRestoring of DB Pin
Anonymous22-Sep-03 3:27
Anonymous22-Sep-03 3:27 
GeneralAccess Report Printing from VB Pin
Dangleberry21-Sep-03 22:26
sussDangleberry21-Sep-03 22:26 
QuestionIs it possible??? Pin
Doominator21-Sep-03 12:04
Doominator21-Sep-03 12:04 
GeneralPrinting Software - Please Help Me .... Pin
Wism Chan20-Sep-03 14:28
sussWism Chan20-Sep-03 14:28 
GeneralCalendar & DropDown boxes for changing Calendar Month, Day, Year Pin
iamalexCode20-Sep-03 11:24
iamalexCode20-Sep-03 11:24 
Generalusing vb6 crystal reports 7 in .net Pin
Anonymous20-Sep-03 10:15
Anonymous20-Sep-03 10:15 
GeneralXPath problem Pin
raf franco20-Sep-03 3:39
raf franco20-Sep-03 3:39 
GeneralRe: XPath problem Pin
Jan Tielens22-Sep-03 20:07
Jan Tielens22-Sep-03 20:07 
GeneralRe: XPath problem Pin
raf franco22-Sep-03 20:45
raf franco22-Sep-03 20:45 
GeneralResizing Columns in a DataGrid Pin
Emile Jacobs20-Sep-03 1:15
Emile Jacobs20-Sep-03 1:15 
GeneralRe: Resizing Columns in a DataGrid Pin
ami-uhle26-Sep-03 5:39
ami-uhle26-Sep-03 5:39 
GeneralAdding controls to a child control of a UserControl at design time Pin
jplocster19-Sep-03 22:15
jplocster19-Sep-03 22:15 
QuestionHow to Use API AddForm in VB.net Pin
allanli19-Sep-03 0:22
allanli19-Sep-03 0:22 
AnswerRe: How to Use API AddForm in VB.net Pin
NetPointerIN19-Sep-03 6:57
NetPointerIN19-Sep-03 6:57 
GeneralRe: How to Use API AddForm in VB.net Pin
allanli19-Sep-03 16:06
allanli19-Sep-03 16:06 
QuestionHELP! How to convert MS Word/Excel into Image? Pin
j.j18-Sep-03 23:24
j.j18-Sep-03 23:24 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.