Query on add button

Question

Hello expert
i have one table having four field named as wardtype, room no, bed no, status.
i want to insert a entry as like
when i insert wardtype "general" roomno "G1" bed capacity "7" status "vacant" then it insert like below
ward type roomno bed no staus
general G1 1 vaccant
general G1 2 vaccant
general G1 3 vaccant
general G1 4 vaccant
general G1 5 vaccant
general G1 6 vaccant
general G1 7 vaccant
how to do this please help............

Answer 1

Hi,
please edit text label with below code
Private Sub DoAddMovie()
        Dim oEdit As SAPbouiCOM.EditText
        Dim oItem As SAPbouiCOM.Item
        Dim Ogid As SAPbouiCOM.ComboBox
        Dim oForm As SAPbouiCOM.Form
        Dim isFound As Boolean
        Dim oUsrTbl As SAPbobsCOM.UserTable
        Dim strFind, Name, Shelf, space As String
        'isFound = False
        oUsrTbl = oCompany.UserTables.Item("EMP") '''yr table name instead of EMP
        oForm = SBO_Application.Forms.ActiveForm
        oItem = oForm.Items.Item("txtCode")
        oEdit = oItem.Specific
        strFind = (oEdit.String)
        Dim i As Integer
        If ((strFind <> "") And (strFind <> Nothing)) Then
            For i = 0 To DBDSEMP.Size - 1
                If (DBDSEMP.GetValue("Code", i).Trim(" ") = strFind) Then
                    isFound = True
                    Exit For
                End If
            Next i
            If Not isFound Then
                'Name
                Ogid = oForm.Items.Item("txtName").Specific
                Name = Ogid.Selected.Description
                'Shelf
                oItem = oForm.Items.Item("txtShelf")
                oEdit = oItem.Specific
                Shelf = (oEdit.String) 'cint
                'Space
                oItem = oForm.Items.Item("txtSpace")
                oEdit = oItem.Specific
                space = (oEdit.String)
                oUsrTbl.Code = strFind
                oUsrTbl.Name = strFind
                oUsrTbl.UserFields.Fields.Item("U_wardtype ").Value = "general "
                oUsrTbl.UserFields.Fields.Item("U_roomno").Value = "g1"
                oUsrTbl.UserFields.Fields.Item("U_bedno").Value = 1
                oUsrTbl.UserFields.Fields.Item("U_STATUS").Value = "vaccant"
                oUsrTbl.Add()
                DBDSEMP.Query()
                SBO_Application.MessageBox("Employee ID Added")
            Else
                SBO_Application.MessageBox("Employee ID with this code already exists")
            End If
        Else
            SBO_Application.MessageBox("You must type the Employee ID")
        End If
    End Subs.Item("U_STATUS").Value = "Unpaid"
End Sub
Thanks
Kevin
Edited by: Kevin Shah on Sep 25, 2009 5:34 PM