combo box

[mheiy]

how can i automatically add a new number when i click the combo box.

example my inside my combo box i have a course of NURSING, IT, Engineering
then i choose Nursing the txtBatchNUm will automatically generate NUR-0002.
hope anyone can help....

Private Sub cmdSave_Click()
   With tbCourse
           .MoveFirst
            .Find "BatchNumber = '" & txtBatchNum & "'"
            If .Fields(2) = txtBatchNum Then
                MsgBox "Batch Number Already Exist.", vbInformation, "Titus School of Multimedia"
                txtBatchNum = ""
                txtBatchNum.SetFocus
            ElseIf .EOF = True Then
                .AddNew
                AddFields
                MsgBox "Batch Number successfully saved to the record.", vbInformation, "Titus School of Multimedia"
                .Update
                .Requery
                txtBatchNum = ""
                cmbCourse.Clear
                cmbDepartment.Clear
                txtNoSeat = ""
             End If
        End With
End Sub
 
Private Sub Form_Load()
With tbCourse
 If .BOF = True And .EOF = True Then
        Refresh
    Else
        Do Until .EOF
            cmbCourse.AddItem (.Fields(0))
            .MoveNext
        Loop
    End If
End With
 
With tbDepartment
 If .BOF = True And .EOF = True Then
        Refresh
    Else
        Do Until .EOF
            cmbDepartment.AddItem (.Fields(0))
           .MoveNext
        Loop
    End If
End With
 
End Sub
 
Private Sub AddFields()
 
With tbBatch
    .Fields(0) = cmbCourse
    .Fields(1) = txtNoSeat
    .Fields(2) = txtBatchNum
    .Fields(3) = cmbDepartment
End With
 
End Sub

[wei82]

You can do this...example:-
Private Sub Combo1_Change()
if combo1.text = "NURSING" Then
txtBatchNUm.text = XXXXXX
end If
End Sub

[mheiy]

theres a database for the course example
CourseName BatchNumber
Nursing Nur-0001
Engineering Eng-0001
IT IT-0001

the the combo box will be filled up by the Fields of the CourseName
example i choose Nursing the it will automatically add Nur-0002

[mheiy]

can anynone help me about combo box if i choose one in combo box the text box will automatically add a new number like this NUR-00001

Private Sub cmbCourse_Click()
a = cmbCourse.Text
'tmp = tbCourse.Fields(2)
 
Call rload
 Do While tbCourse!CourseName <> a
 tbCourse.MoveNext
 If tbCourse!CourseName = a Then
 txtBatchNum.Text = tbCourse!BatchNumber + temp
 tmp = Left(tmp, 3) & (Format(CInt(Right(tmp, 4)) + 1, "00#"))
    End If
Loop
 
End Sub

it have an error on

tmp = Left(tmp, 3) & (Format(CInt(Right(tmp, 4)) + 1, "00#"))

[AIS4U]

You already asked this question.

[mheiy]

yes can anyone help me with this

[amrita]

yes can anyone help me with this

I didn't get ..what is the value of temp???

[mheiy]

the Batch Number have a format of this NUR-0001 how can i add another batch number with the same format

[ganeshmoorthy]

you mean to say that you want to make the same format of a field to another field...

[Siddharth Rout]

Hi

Does this help?

'If you want in this format NUR-0001
tmp = Left(tmp, 4) & Format(Right(tmp, 4)+1, "0000")
 
'If you want in this format NUR-00001
tmp = Left(tmp, 4) & Format(Right(tmp, 5)+1, "00000")

[Hack]

Duplicate threads merged.

Please do not create more than one thread for the same question.