| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 액세스 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
Private Sub Command3_Click()
Dim db As Database
Dim rs As DAO.Recordset
Dim SpiritColumn As Integer, SpiritList As Integer
Dim i As Integer
Dim Spirit(7, 1) As Variant
Dim strList As String
Dim christman, name, sex, oldyear, address, homephone, handphone
Set db = CurrentDb()
Set rs = db.OpenRecordset("영혼", dbOpenTable)
For i = 1 To 7
With Forms![영혼이동폼]![영혼]
If .ItemsSelected.Count > 0 Then
SpiritColumn = .ColumnCount
SpiritList = .ListCount
Spirit(i, 1) = .Column(SpiritColumn, SpiritList)
End If
End With
Next i
christman = Spirit(1, 1)
name = Spirit(2, 1)
sex = Spirit(3, 1)
oldyear = Spirit(4, 1)
address = Spirit(5, 1)
homephone = Spirit(6, 1)
handphone = Spirit(7, 1)
strList = "insert into 영혼(교인이름, 이름, 성별, 나이, 주소, 집전화, 핸드폰, 비고) "
strList = strList & "values(christman, name, sex, oldyear,address, homephone, handphone, null)"
db.Execute strList, dbConsistent
db.Close
rs.Close
End Sub
목록상자를 만들었는데 테이블의 비고필드(메모형식)는 마법사를 실행하니 나타나지 않더군요
그래서 insert문에서 임의로 만들어 null 값을 넣었는데 잘못한 것은 아닌지 모르겠습니다.
'3061'런타임 오류가 발생하였습니다.
매개 변수가 너무 적습니다. 7이(가)필요합니다.
라는 에러가 나오고 디버그하니 db.Execute strList, dbConsistent에 노란색을 표시됩니다.
어디가 틀린것인지 알 수가 없군요
고수님들 살펴주세요
|
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
